libui_paradise 0.2.49 → 0.4.13

data/lib/libui_paradise/examples/simple/003_fancy_text_example.rb

@@ -21,13 +21,31 @@ USE_THIS_FONT = 'Hack' # Or 'Courier New'.
 
 # =========================================================================== #
 # === append_with_attribute
+#
+# The first argument is the String that is to be appended.
+#
+# To append a bigger font, use something like this:
+#
+#   bigger_font = UI.new_size_attribute(62)
+#   append_with_attribute(attr_str, 'font size', bigger_font, nil)
+#
+# To append bold text, use:
+#
+#   attr1 = LibUI.new_weight_attribute(LibUI::TextWeightBold)
+#   append_with_attribute(attr_str, 'font weight', attr1)
+#
 # =========================================================================== #
-def append_with_attribute(attr_str, what, attr1, attr2)
-  start_pos = LibUI.attributed_string_len(attr_str)
-  end_pos = start_pos + what.length
-  LibUI.attributed_string_append_unattributed(attr_str, what)
-  LibUI.attributed_string_set_attribute(attr_str, attr1, start_pos, end_pos)
-  LibUI.attributed_string_set_attribute(attr_str, attr2, start_pos, end_pos) if attr2
+def append_with_attribute(
+    widget,
+    use_this_text,
+    attr1,
+    attr2 # This is rarely needed.
+  )
+  start_pos = LibUI.attributed_string_len(widget)
+  end_pos   = start_pos + what.length
+  LibUI.attributed_string_append_unattributed(widget, use_this_text)
+  LibUI.attributed_string_set_attribute(widget, attr1, start_pos, end_pos)
+  LibUI.attributed_string_set_attribute(widget, attr2, start_pos, end_pos) if attr2
 end
 
 # =========================================================================== #
@@ -48,23 +66,27 @@ def make_attribute_string
 
   # ========================================================================= #
   # === Use a bigger font next
+  #
+  # The bigger font will be use for the String "font size".
   # ========================================================================= #
-  bigger_font = UI.new_size_attribute(45)
+  bigger_font = UI.new_size_attribute(62)
   append_with_attribute(attr_str, 'font size', bigger_font, nil)
-  UI.attributed_string_append_unattributed(attr_str, ', ')
+
+  LibUI.attributed_string_append_unattributed(attr_str, ', ') # Then append ','.
 
   # ========================================================================= #
   # === Make bold text next                                        (bold tag)
   # ========================================================================= #
   attr1 = LibUI.new_weight_attribute(LibUI::TextWeightBold)
   append_with_attribute(attr_str, 'font weight', attr1, nil)
+
   LibUI.attributed_string_append_unattributed(attr_str, ', ')
 
-  attr1 = LibUI.new_italic_attribute(UI::TextItalicItalic)
+  attr1 = LibUI.new_italic_attribute(LibUI::TextItalicItalic)
   append_with_attribute(attr_str, 'font italicness', attr1, nil)
   UI.attributed_string_append_unattributed(attr_str, ', ')
 
-  attr1 = LibUI.new_stretch_attribute(UI::TextStretchCondensed)
+  attr1 = LibUI.new_stretch_attribute(LibUI::TextStretchCondensed)
   append_with_attribute(attr_str, 'font stretch', attr1, nil)
   UI.attributed_string_append_unattributed(attr_str, ', ')
 
@@ -79,31 +101,31 @@ def make_attribute_string
   append_with_attribute(attr_str, 'text background color', attr1, nil)
   UI.attributed_string_append_unattributed(attr_str, ', ')
 
-  attr1 = UI.new_underline_attribute(UI::UnderlineSingle)
+  attr1 = UI.new_underline_attribute(LibUI::UnderlineSingle)
   append_with_attribute(attr_str, 'underline style', attr1, nil)
   UI.attributed_string_append_unattributed(attr_str, ', ')
 
   UI.attributed_string_append_unattributed(attr_str, 'and ')
-  attr1 = LibUI.new_underline_attribute(UI::UnderlineDouble)
-  attr2 = LibUI.new_underline_color_attribute(UI::UnderlineColorCustom, 1.0, 0.0, 0.5, 1.0)
+  attr1 = LibUI.new_underline_attribute(LibUI::UnderlineDouble)
+  attr2 = LibUI.new_underline_color_attribute(LibUI::UnderlineColorCustom, 1.0, 0.0, 0.5, 1.0)
   append_with_attribute(attr_str, 'underline color', attr1, attr2)
   UI.attributed_string_append_unattributed(attr_str, '. ')
 
   UI.attributed_string_append_unattributed(attr_str, 'Furthermore, there are attributes allowing for ')
-  attr1 = LibUI.new_underline_attribute(UI::UnderlineSuggestion)
-  attr2 = LibUI.new_underline_color_attribute(UI::UnderlineColorSpelling, 0, 0, 0, 0)
+  attr1 = LibUI.new_underline_attribute(LibUI::UnderlineSuggestion)
+  attr2 = LibUI.new_underline_color_attribute(LibUI::UnderlineColorSpelling, 0, 0, 0, 0)
   append_with_attribute(attr_str, 'special underlines for indicating spelling errors', attr1, attr2)
-  UI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
+  LibUI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
 
-  UI.attributed_string_append_unattributed(attr_str,
+  LibUI.attributed_string_append_unattributed(attr_str,
                                            'and control over OpenType features such as ligatures (for instance, ')
-  otf = UI.new_open_type_features
+  otf = LibUI.new_open_type_features
   UI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 0)
-  attr1 = UI.new_features_attribute(otf)
+  attr1 = LibUI.new_features_attribute(otf)
   append_with_attribute(attr_str, 'afford', attr1, nil)
   UI.attributed_string_append_unattributed(attr_str, ' vs. ')
   UI.open_type_features_add(otf, 'l', 'i', 'g', 'a', 1)
-  attr1 = UI.new_features_attribute(otf)
+  attr1 = LibUI.new_features_attribute(otf)
   append_with_attribute(attr_str, 'afford', attr1, nil)
   UI.free_open_type_features(otf)
   UI.attributed_string_append_unattributed(attr_str, ").\n")
@@ -112,30 +134,32 @@ def make_attribute_string
                                            'Use the controls '\
                                            'opposite to the text '\
                                            'to control properties of the text.')
-  attr_str
+  attr_str # And return the String here.
 end
 
 # =========================================================================== #
 # === on_font_changed
 # =========================================================================== #
-def on_font_changed(area)
-  UI.area_queue_redraw_all(area)
+def on_font_changed(i)
+  UI.area_queue_redraw_all(i)
 end
 
 # =========================================================================== #
 # === on_combobox_selected
 # =========================================================================== #
-def on_combobox_selected(area)
-  UI.area_queue_redraw_all(area)
+def on_combobox_selected(i)
+  UI.area_queue_redraw_all(i)
 end
 
+# =========================================================================== #
 # === draw_event
+# =========================================================================== #
 def draw_event(adp, attr_str, font_button, alignment)
   area_draw_params = UI::FFI::AreaDrawParams.new(adp)
+
   default_font = UI::FFI::FontDescriptor.malloc
   default_font.to_ptr.free = Fiddle::RUBY_FREE
-  default_font = UI::FFI::FontDescriptor.malloc
-  default_font.to_ptr.free = Fiddle::RUBY_FREE
+
   params = UI::FFI::DrawTextLayoutParams.malloc
   params.to_ptr.free = Fiddle::RUBY_FREE
 
@@ -145,17 +169,17 @@ def draw_event(adp, attr_str, font_button, alignment)
   params.Width = area_draw_params.AreaWidth
   params.Align = UI.combobox_selected(alignment)
   text_layout = UI.draw_new_text_layout(params)
-  UI.draw_text(area_draw_params.Context, text_layout, 0, 0)
-  UI.draw_free_text_layout(text_layout)
-  UI.free_font_button_font(default_font)
+  LibUI.draw_text(area_draw_params.Context, text_layout, 0, 0)
+  LibUI.draw_free_text_layout(text_layout)
+  LibUI.free_font_button_font(default_font)
 end
 
-UI.init
+LibUI.init
 
 handler = UI::FFI::AreaHandler.malloc
 handler.to_ptr.free = Fiddle::RUBY_FREE
 handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _area, adp|
-  draw_event(adp, @attr_str, @font_button, @alignment)
+  draw_event(adp, @attr_str, @font_button, @combobox)
 end
 
 handler.Draw = handler_draw_event
@@ -176,6 +200,9 @@ LibUI.on_should_quit {
 # =========================================================================== #
 @attr_str = make_attribute_string
 
+# =========================================================================== #
+# Create the main window next:
+# =========================================================================== #
 main_window = LibUI.new_window('Text-Drawing Example', WIDTH, 480, 1)
 LibUI.window_set_margined(main_window, 1)
 LibUI.window_on_closing(main_window) {
@@ -184,6 +211,9 @@ LibUI.window_on_closing(main_window) {
   0
 }
 
+# =========================================================================== #
+# Add a hbox:
+# =========================================================================== #
 hbox = LibUI.new_horizontal_box
 LibUI.box_set_padded(hbox, 1)
 LibUI.window_set_child(main_window, hbox)
@@ -193,28 +223,35 @@ LibUI.box_set_padded(vbox, 1)
 LibUI.box_append(hbox, vbox, 0)
 
 @font_button = LibUI.new_font_button
-LibUI.font_button_on_changed(@font_button) { on_font_changed(@area) }
+LibUI.font_button_on_changed(@font_button) {
+  # Invoke a method here:
+  on_font_changed(@area)
+}
 LibUI.box_append(vbox, @font_button, 0)
 
 form = LibUI.new_form
 LibUI.form_set_padded(form, 1)
 LibUI.box_append(vbox, form, 0)
 
+# =========================================================================== #
 # Add a combobox entry next.
-# @alignment = ui_combobox(%w( Left Center Right ))
-@alignment = LibUI.new_combobox
-LibUI.combobox_append(@alignment, 'Left')
-LibUI.combobox_append(@alignment, 'Center')
-LibUI.combobox_append(@alignment, 'Right')
-LibUI.combobox_set_selected(@alignment, 0)
-LibUI.combobox_on_selected(@alignment) { on_combobox_selected(@area) }
-LibUI.form_append(form, 'Alignment', @alignment, 0)
+# @combobox = ui_combobox(%w( Left Center Right ))
+# =========================================================================== #
+@combobox = LibUI.new_combobox
+LibUI.combobox_append(@combobox, 'Left')
+LibUI.combobox_append(@combobox, 'Center')
+LibUI.combobox_append(@combobox, 'Right')
+LibUI.combobox_set_selected(@combobox, 0)
+LibUI.combobox_on_selected(@combobox) { on_combobox_selected(@area) }
+LibUI.form_append(form, 'Alignment', @combobox, 0)
 
+# =========================================================================== #
+# Add a new area next:
+# =========================================================================== #
 @area = LibUI.new_area(handler)
 LibUI.box_append(hbox, @area, 1)
 
 LibUI.control_show(main_window)
 LibUI.main
-
 LibUI.free_attributed_string(@attr_str)
-LibUI.uninit
+LibUI.uninit

data/lib/libui_paradise/examples/simple/005_text_drawing_example.rb

@@ -30,15 +30,15 @@ def make_attribute_string
 
   attr1 = LibUI.new_family_attribute('Courier New')
   append_with_attribute(attr_str, 'font family', attr1, nil)
-  UI.attributed_string_append_unattributed(attr_str, ', ')
+  LibUI.attributed_string_append_unattributed(attr_str, ', ')
 
   attr1 = LibUI.new_size_attribute(18)
   append_with_attribute(attr_str, 'font size', attr1, nil)
-  UI.attributed_string_append_unattributed(attr_str, ', ')
+  LibUI.attributed_string_append_unattributed(attr_str, ', ')
 
-  attr1 = UI.new_weight_attribute(UI::TextWeightBold)
+  attr1 = LibUI.new_weight_attribute(UI::TextWeightBold)
   append_with_attribute(attr_str, 'font weight', attr1, nil)
-  UI.attributed_string_append_unattributed(attr_str, ', ')
+  LibUI.attributed_string_append_unattributed(attr_str, ', ')
 
   attr1 = UI.new_italic_attribute(UI::TextItalicItalic)
   append_with_attribute(attr_str, 'font italicness', attr1, nil)
@@ -66,11 +66,11 @@ def make_attribute_string
   append_with_attribute(attr_str, 'underline color', attr1, attr2)
   UI.attributed_string_append_unattributed(attr_str, '. ')
 
-  UI.attributed_string_append_unattributed(attr_str, 'Furthermore, there are attributes allowing for ')
+  LibUI.attributed_string_append_unattributed(attr_str, 'Furthermore, there are attributes allowing for ')
   attr1 = UI.new_underline_attribute(UI::UnderlineSuggestion)
   attr2 = UI.new_underline_color_attribute(UI::UnderlineColorSpelling, 0, 0, 0, 0)
   append_with_attribute(attr_str, 'special underlines for indicating spelling errors', attr1, attr2)
-  UI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
+  LibUI.attributed_string_append_unattributed(attr_str, ' (and other types of errors) ')
 
   UI.attributed_string_append_unattributed(attr_str,
                                            'and control over OpenType features such as ligatures (for instance, ')
@@ -137,19 +137,19 @@ handler.MouseCrossed = do_nothing
 handler.DragBroken   = do_nothing
 handler.KeyEvent     = key_event
 
-UI.on_should_quit do
+UI.on_should_quit {
   UI.control_destroy(main_window)
-end
+}
 
 @attr_str = make_attribute_string
 
 main_window = UI.new_window('Text-Drawing Example', 640, 480, 1)
 UI.window_set_margined(main_window, 1)
-UI.window_on_closing(main_window) do
+UI.window_on_closing(main_window) {
   UI.control_destroy(main_window)
   UI.quit
   0
-end
+}
 
 hbox = UI.new_horizontal_box
 UI.box_set_padded(hbox, 1)
@@ -173,7 +173,7 @@ UI.combobox_append(@alignment, 'Center')
 UI.combobox_append(@alignment, 'Right')
 UI.combobox_set_selected(@alignment, 0)
 UI.combobox_on_selected(@alignment) { on_combobox_selected(@area) }
-UI.form_append(form, 'Alignment', @alignment, 0)
+LibUI.form_append(form, 'Alignment', @alignment, 0)
 
 @area = LibUI.new_area(handler)
 LibUI.box_append(hbox, @area, 1)

data/lib/libui_paradise/examples/simple/007_control_gallery.rb

@@ -80,7 +80,8 @@ end
 UI.box_append(inner, checkbox, 0)
 
 # Label
-UI.box_append(inner, UI.new_label('Label'), 0)
+label = UI.new_label('Label')
+UI.box_append(inner, label, 0)
 
 # Separator
 UI.box_append(inner, UI.new_horizontal_separator, 0)
@@ -150,40 +151,46 @@ UI.combobox_append(cbox, 'combobox Item 1')
 UI.combobox_append(cbox, 'combobox Item 2')
 UI.combobox_append(cbox, 'combobox Item 3')
 UI.box_append(inner, cbox, 0)
-UI.combobox_on_selected(cbox) do |ptr|
+UI.combobox_on_selected(cbox) { |ptr|
   puts "New combobox selection: #{UI.combobox_selected(ptr)}"
-end
+}
 
+# =========================================================================== #
 # Editable Combobox
+# =========================================================================== #
 ebox = UI.new_editable_combobox
 UI.editable_combobox_append(ebox, 'Editable Item 1')
 UI.editable_combobox_append(ebox, 'Editable Item 2')
 UI.editable_combobox_append(ebox, 'Editable Item 3')
 UI.box_append(inner, ebox, 0)
 
+# =========================================================================== #
 # Radio Buttons
+# =========================================================================== #
 rb = UI.new_radio_buttons
 UI.radio_buttons_append(rb, 'Radio Button 1')
 UI.radio_buttons_append(rb, 'Radio Button 2')
 UI.radio_buttons_append(rb, 'Radio Button 3')
 UI.box_append(inner, rb, 1)
 
+# =========================================================================== #
 # Tab
-tab = UI.new_tab
-hbox1 = UI.new_horizontal_box
-hbox2 = UI.new_horizontal_box
-UI.tab_append(tab, 'Page 1', hbox1)
-UI.tab_append(tab, 'Page 2', hbox2)
-UI.tab_append(tab, 'Page 3', UI.new_horizontal_box)
-UI.box_append(inner2, tab, 1)
+# =========================================================================== #
+tab = LibUI.new_tab
+hbox1 = LibUI.new_horizontal_box
+hbox2 = LibUI.new_horizontal_box
+LibUI.tab_append(tab, 'Page 1', hbox1)
+LibUI.tab_append(tab, 'Page 2', hbox2)
+LibUI.tab_append(tab, 'Page 3', UI.new_horizontal_box)
+LibUI.box_append(inner2, tab, 1)
 
 # Text Entry
 text_entry = UI.new_entry
-UI.entry_set_text text_entry, 'Please enter your feelings'
-UI.entry_on_changed(text_entry) do |ptr|
+LibUI.entry_set_text text_entry, 'Please enter your feelings'
+LibUI.entry_on_changed(text_entry) { |ptr|
   puts "Current textbox data: '#{UI.entry_text(ptr)}'"
-end
-UI.box_append(hbox1, text_entry, 1)
+}
+LibUI.box_append(hbox1, text_entry, 1)
 
 UI.control_show(MAIN_WINDOW)
 

data/lib/libui_paradise/examples/simple/009_spectrum.rb

@@ -1,7 +1,13 @@
 #!/usr/bin/env ruby
 # =========================================================================== #
 require 'libui'
-require 'ffi-portaudio'  # https://github.com/nanki/ffi-portaudio
+
+begin
+  require 'ffi-portaudio'  # https://github.com/nanki/ffi-portaudio
+rescue LoadError
+  puts 'Install this: https://github.com/nanki/ffi-portaudio'
+end
+
 require 'numo/pocketfft' # https://github.com/yoshoku/numo-pocketfft
 
 # =========================================================================== #

data/lib/libui_paradise/examples/simple/010_font_button.rb

@@ -0,0 +1,31 @@
+require 'libui'
+
+UI = LibUI
+
+UI.init
+
+main_window = UI.new_window('Font example', 300, 200, 1)
+
+font_button = UI.new_font_button
+font_descriptor = UI::FFI::FontDescriptor.malloc
+font_descriptor.to_ptr.free = Fiddle::RUBY_FREE
+UI.font_button_on_changed(font_button) {
+  UI.font_button_font(font_button, font_descriptor) # Add the font_description here.
+  p family: font_descriptor.Family.to_s,
+    size: font_descriptor.Size,
+    weight: font_descriptor.Weight,
+    italic: font_descriptor.Italic,
+    stretch: font_descriptor.Stretch
+}
+
+UI.window_on_closing(main_window) do
+  puts 'Bye Bye'
+  UI.quit
+  1
+end
+
+UI.window_set_child(main_window, font_button)
+UI.control_show(main_window)
+
+UI.main
+UI.uninit

data/lib/libui_paradise/examples/simple/011_simple_notepad.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+require 'libui'
+
+UI = LibUI
+
+UI.init
+
+main_window = UI.new_window('Notepad', 500, 300, 1)
+UI.window_on_closing(main_window) do
+  puts 'Bye Bye'
+  UI.quit
+  1
+end
+
+vbox = UI.new_vertical_box
+UI.window_set_child(main_window, vbox)
+
+entry = UI.new_non_wrapping_multiline_entry
+UI.box_append(vbox, entry, 1)
+
+UI.control_show(main_window)
+UI.main
+UI.uninit

data/lib/libui_paradise/examples/simple/012_table_example.rb

@@ -0,0 +1,71 @@
+# =========================================================================== #
+# === 012_table_example.rb
+# =========================================================================== #
+
+# =========================================================================== #
+# Taken from kojix2' upstream code.
+# =========================================================================== #
+require 'libui'
+
+alias e puts
+
+UI = LibUI
+
+LibUI.init
+
+main_window = LibUI.new_window('Animal sounds', 300, 200, 1)
+
+hbox = LibUI.new_horizontal_box
+LibUI.window_set_child(main_window, hbox)
+
+data = [
+  %w( cat meow ),
+  %w( dog woof ),
+  %w( chicken cock-a-doodle-doo ),
+  %w( horse neigh ),
+  %w( cow moo )
+]
+
+# Protects BlockCaller objects from garbage collection.
+@block_callers = []
+def rbcallback(*args, &block)
+  args << [0] if args.size == 1 # Argument types are omitted
+  block_caller = Fiddle::Closure::BlockCaller.new(*args, &block)
+  @block_callers << block_caller
+  block_caller
+end
+
+model_handler = UI::FFI::TableModelHandler.malloc
+model_handler.to_ptr.free = Fiddle::RUBY_FREE
+model_handler.NumColumns   = rbcallback(4) { 2 }
+model_handler.ColumnType   = rbcallback(4) { 0 }
+model_handler.NumRows      = rbcallback(4) { 5 }
+model_handler.CellValue    = rbcallback(1, [1, 1, 4, 4]) do |_, _, row, column|
+  UI.new_table_value_string(data[row][column])
+end
+model_handler.SetCellValue = rbcallback(0, [0]) {}
+
+# Create the table model:
+model = UI.new_table_model(model_handler)
+
+table_params = UI::FFI::TableParams.malloc
+table_params.to_ptr.free = Fiddle::RUBY_FREE
+table_params.Model = model
+table_params.RowBackgroundColorModelColumn = -1
+
+table = UI.new_table(table_params)
+LibUI.table_append_text_column(table, 'Animal', 0, -1)
+LibUI.table_append_text_column(table, 'Description', 1, -1)
+
+LibUI.box_append(hbox, table, 1)
+LibUI.control_show(main_window)
+
+LibUI.window_on_closing(main_window) {
+  # e 'Bye Bye'
+  LibUI.quit
+  1
+}
+
+LibUI.main
+LibUI.free_table_model(model)
+LibUI.uninit

data/lib/libui_paradise/examples/simple/013_scrolling_pane_example.rb

@@ -0,0 +1,28 @@
+# =========================================================================== #
+# === 013_scrolling_pane_example.rb
+# =========================================================================== #
+# This currently does not work. libui-ng first has to add support for
+# that.
+# =========================================================================== #
+require 'libui'
+
+alias e puts
+
+LibUI.init
+
+main_window = LibUI.new_window('Scrolling pane example', 300, 200, 1)
+
+scroll_area = LibUI.new_scrolling_area
+pp scroll_area.class
+hbox = LibUI.new_horizontal_box
+LibUI.window_set_child(main_window, hbox)
+
+LibUI.control_show(main_window)
+
+LibUI.window_on_closing(main_window) {
+  LibUI.quit
+  1
+}
+
+LibUI.main
+LibUI.uninit

data/lib/libui_paradise/examples/simple/014_simple_entry_example.rb

@@ -0,0 +1,30 @@
+# =========================================================================== #
+# === 014_simple_entry_example.rb
+# =========================================================================== #
+require 'libui'
+
+alias e puts
+
+LibUI.init
+
+main_window = LibUI.new_window('Two entries example - right one is read-only', 300, 200, 1)
+
+hbox = LibUI.new_horizontal_box
+LibUI.box_set_padded(hbox, 1)
+entry1 = LibUI.new_entry
+entry2 = LibUI.new_entry
+LibUI.entry_set_read_only(entry2, 1)
+
+LibUI.box_append(hbox, entry1, 1)
+LibUI.box_append(hbox, entry2, 1)
+
+LibUI.window_set_child(main_window, hbox)
+LibUI.control_show(main_window)
+
+LibUI.window_on_closing(main_window) {
+  LibUI.quit
+  1
+}
+
+LibUI.main
+LibUI.uninit

data/lib/libui_paradise/examples/simple/015_slider_example.rb

@@ -0,0 +1,32 @@
+# =========================================================================== #
+# === 015_slider_example.rb
+# =========================================================================== #
+require 'libui'
+
+alias e puts
+
+LibUI.init
+
+main_window = LibUI.new_window('Slider example', 800, 240, 1)
+
+hbox = LibUI.new_horizontal_box
+LibUI.box_set_padded(hbox, 1)
+slider1 = LibUI.new_slider(0, 10)
+LibUI.slider_set_has_tool_tip(slider1, 1) # Testing this.
+
+LibUI.slider_on_changed(slider1) {
+  e 'My value was changed to: '+LibUI.slider_value(slider1).to_s
+}
+ 
+LibUI.box_append(hbox, slider1, 1)
+
+LibUI.window_set_child(main_window, hbox)
+LibUI.control_show(main_window)
+
+LibUI.window_on_closing(main_window) {
+  LibUI.quit
+  1
+}
+
+LibUI.main
+LibUI.uninit