kmx git

#!/usr/bin/env ikc3

defmodule Kmsg do

  require Gtk4
  require Gtk4.Application
  require Gtk4.ApplicationWindow
  require Gtk4.Box
  require Gtk4.Button
  require Gtk4.Frame
  require Gtk4.Label
  require Gtk4.ListBox
  require Gtk4.Paned
  require Gtk4.TextView
  require Gtk4.Widget
  require Gtk4.Window

  def activate = fn (app) {
    window = Gtk4.ApplicationWindow.new(app)
    Gtk4.Window.set_title(window, "Kmsg")
    Gtk4.Window.set_default_size(window, (Uw) 640, (Uw) 480)
    paned = Gtk4.Paned.new(:horizontal)
    Gtk4.Widget.set_size_request(paned, 200, 200);
    scrolled_window1 = Gtk4.ScrolledWindow.new()
    list_box1 = Gtk4.ListBox.new()
    labels1 = List.map(List.count(20), fn (x) {
      label = Gtk4.Label.new("Label")
      Gtk4.Widget.set_halign(label, :start)
      Gtk4.ListBox.append(list_box1, label)
      label
    })
    Gtk4.ScrolledWindow.set_child(scrolled_window1, list_box1)
    Gtk4.Paned.set_start_child(paned, scrolled_window1)
    Gtk4.Paned.set_resize_start_child(paned, true)
    Gtk4.Paned.set_shrink_start_child(paned, false)
    box1 = Gtk4.Box.new(:vertical, 0)
    scrolled_window2 = Gtk4.ScrolledWindow.new()
    list_box2 = Gtk4.ListBox.new()
    Gtk4.Widget.set_vexpand(list_box2, true)
    labels2 = List.map(List.count(200), fn (x) {
      label = Gtk4.Label.new("thodg: message")
      Gtk4.Widget.set_halign(label, :start)
      Gtk4.ListBox.append(list_box2, label)
      label
    })
    Gtk4.Paned.set_resize_end_child(paned, false)
    Gtk4.Paned.set_shrink_end_child(paned, false)
    Gtk4.ScrolledWindow.set_child(scrolled_window2, list_box2)
    Gtk4.Box.append(box1, scrolled_window2)
    box2 = Gtk4.Box.new(:horizontal, 0)
    Gtk4.Box.append(box1, box2)
    Gtk4.Paned.set_end_child(paned, box1)
    Gtk4.Window.set_child(window, paned)
    text_view = Gtk4.TextView.new()
    Gtk4.Widget.set_hexpand(text_view, true)
    Gtk4.Box.append(box2, text_view)
    button = Gtk4.Button.new_with_label("Send")
    Gtk4.Box.append(box2, button)
    Gtk4.Paned.set_position(paned, 240);
    Gtk4.Window.present(window)
  }

  def main = fn () {
    puts("Kmsg.main: starting, please wait...")
    Gtk4.init()
    app = Gtk4.Application.new("Kmsg", "io.kmx.kmsg")
    Gtk4.signal_connect(app, "activate", Kmsg.activate)
    status = Gtk4.Application.run(app)
    puts("Kmsg.main: exiting: #{inspect(status)}")
    Gtk4.Application.delete(app)
    status
  }

end

Kmsg.main()
kc3-lang/kc3/kmsg/kmsg.kc3

Commit

kmsg/kmsg.kc3
