kc3-lang/kc3/kmsg/kmsg.kc3

Branch - branch -masterpdfv0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.15v0.1.14v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.2.0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : ac77b4d6
  Author : Thomas de Grivel
  Date : 2024-12-20T21:08:48
  

  whitespace
  

Download

• kmsg/kmsg.kc3

• #!/usr/bin/env ikc3
  defmodule Kmsg do
  
    require Gtk4
    require Gtk4.ActionMap
    require Gtk4.Application
    require Gtk4.ApplicationWindow
    require Gtk4.Box
    require Gtk4.Button
    require Gtk4.Frame
    require Gtk4.Label
    require Gtk4.ListBox
    require Gtk4.Menu
    require Gtk4.MenuItem
    require Gtk4.Paned
    require Gtk4.ScrolledWindow
    require Gtk4.SimpleAction
    require Gtk4.TextView
    require Gtk4.Widget
    require Gtk4.Window
    require List
  
    def on_connect_ok = fn (action, void){
     puts("Kmsg.connect_ok")
    }
  
    def on_connect = fn (action, void) {
      puts("Kmsg.connect")
      window = Gtk4.Window.new()
      Gtk4.Window.set_title(window, "Kmsg: Connect")
      vbox = Gtk4.Box.new(:vertical, 1)
      hbox = Gtk4.Box.new(:horizontal, 0)
      label = Gtk4.Label.new("Host")
      button = Gtk4.Button.new_with_label("Ok")
      entry = Gtk4.Entry.new()
      Gtk4.Box.append(hbox, label)
      Gtk4.Box.append(hbox, entry)
      Gtk4.Box.append(vbox, hbox)
      Gtk4.Box.append(vbox, button)
      Gtk4.Window.set_child(window, vbox)
      Gtk4.Window.present(window)
    }
  
    def on_send = fn (action, %{window: window,
                                text_view_w: text_view_w}) {
      message = Gtk4.TextView.get_text(text_view_w)
      puts("Kmsg.send #{inspect(message)}")
      Gtk4.TextView.set_text(text_view_w, "")
    }
  
    def activate = fn (app, void) {
      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()
      channels = 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(channels, label)
        label
      })
      Gtk4.ScrolledWindow.set_child(scrolled_window1, channels)
      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_box = Gtk4.ListBox.new()
      Gtk4.Widget.set_vexpand(list_box, true)
      labels2 = List.map(List.count(200), fn (x) {
        label = Gtk4.Label.new("<b>thodg</b>: Message <i>with <b>markup</b></i> !")
        Gtk4.Label.set_use_markup(label, true)
        Gtk4.Widget.set_halign(label, :start)
        Gtk4.ListBox.append(list_box, 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_box)
      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_w = Gtk4.TextView.new()
      Gtk4.TextView.set_monospace(text_view_w, true)
      Gtk4.Widget.set_hexpand(text_view_w, true)
      Gtk4.Box.append(box2, text_view_w)
      button = Gtk4.Button.new_with_label("Send")
      Gtk4.signal_connect(button, "clicked", Kmsg.on_send,
        %{window: window, text_view_w: text_view_w})
      Gtk4.Box.append(box2, button)
      Gtk4.Paned.set_position(paned, 240);
      connect_action = Gtk4.SimpleAction.new("connect", Kmsg.on_connect, void)
      Gtk4.ActionMap.add_action(app, connect_action)
      Gtk4.Application.set_accel_for_action(app, "app.connect", "<Control>N");
      menu = Gtk4.Menu.new()
      file_menu = Gtk4.Menu.new()
      item = Gtk4.MenuItem.new("Connect", "app.connect")
      Gtk4.Menu.append_item(file_menu, item)
      Gtk4.Menu.append_section(menu, "File", file_menu)
      Gtk4.Application.set_menubar(app, menu)
      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, void)
      status = Gtk4.Application.run(app)
      puts("Kmsg.main: exiting: #{inspect(status)}")
      Gtk4.Application.delete(app)
      status
    }
  
  end
  Kmsg.main()
  

Download