libui_paradise 0.1.49

data/lib/libui_paradise/examples/008_simple_notepad_example.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+window = UI.window('Notepad', 500, 300, 1)
+
+vbox = ui_vbox
+
+text_view = ui_text_view
+text_view.set_text(
+  "This is an example.\nAs can be seen, text has been assigned to this.\n"
+)
+vbox.add(text_view, 1)
+button_show_content = ui_button('Paste the content of the text-buffer above')
+button_show_content.on_clicked {
+  e text_view.text?.to_s
+}
+
+vbox.add(button_show_content, 1)
+window.child = vbox
+window.intelligent_exit

data/lib/libui_paradise/examples/009_checkbox_example.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+should_quit_callback = proc {
+  UI.control_destroy(MAIN_WINDOW)
+  UI.quit
+  0
+}
+
+open_menu_item_clicked = proc {
+  puts "Clicked 'Open'"
+  0
+}
+
+save_menu_item_clicked = proc {
+  puts "Clicked 'Save'"
+  0
+}
+
+# =========================================================================== #
+# Create 'File' menu with a few items and callbacks when the items are
+# clicked.
+# =========================================================================== #
+menu = UI.menu('File')
+open_menu_item = UI.menu_append_item(menu, 'Open')
+UI.menu_item_on_clicked(open_menu_item, open_menu_item_clicked, nil)
+save_menu_item = UI.menu_append_item(menu, 'Save')
+UI.menu_item_on_clicked(save_menu_item, save_menu_item_clicked, nil)
+UI.menu_append_quit_item(menu)
+UI.on_should_quit(should_quit_callback, nil)
+
+# =========================================================================== #
+# Create 'Edit' menu
+# =========================================================================== #
+edit_menu = UI.new_menu('Edit')
+UI.menu_append_check_item(edit_menu, 'Checkable Item_')
+UI.menu_append_separator(edit_menu)
+disabled_item = UI.menu_append_item(edit_menu, 'Disabled Item_')
+UI.menu_item_disable(disabled_item)
+
+preferences = UI.menu_append_preferences_item(menu)
+
+help_menu = UI.menu('Help')
+UI.menu_append_item(help_menu, 'Help')
+UI.menu_append_about_item(help_menu)
+
+vbox = UI.vbox
+
+a_hbox = UI.hbox
+UI.box_set_padded(vbox, 1)
+UI.box_set_padded(a_hbox, 1)
+
+vbox.add(a_hbox, 1)
+
+group = UI.new_group('Top Group')
+UI.group_set_margined(group, 1)
+a_hbox.add(group, 0)
+
+inner = UI.vbox
+UI.box_set_padded(inner, 1)
+UI.group_set_child(group, inner)
+
+checkbox = UI.checkbox('Checkbox')
+checkbox_toggle_callback = proc { |ptr|
+  checked = UI.checkbox_checked(ptr) == 1
+  UI.checkbox_set_text(ptr, "I am the checkbox (#{checked})")
+}
+
+UI.checkbox_on_toggled(checkbox, checkbox_toggle_callback, nil)
+inner.add(checkbox, 0)
+
+MAIN_WINDOW = UI.window('hello world', 600, 600, 1)
+
+UI.window_set_margined(MAIN_WINDOW, 1)
+UI.window_set_child(MAIN_WINDOW, vbox)
+
+UI.window_on_closing(MAIN_WINDOW, should_quit_callback, nil)
+MAIN_WINDOW.control_show
+UI.main_then_quit

data/lib/libui_paradise/examples/010_grid_example.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This example shows how to use the grid-related aspects of ruby-libui.
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+window = UI.main_window('A simple grid-example', 1200, 200, 15)
+
+grid = ui_grid
+UI.grid_append(grid, text('Yo1'), 0, 0, 1, 1, 0, 0, 1, 0)
+UI.grid_append(grid, text('Yo2'), 1, 0, 1, 1, 0, 0, 1, 0)
+UI.grid_append(grid, text('Yo3'), 2, 0, 1, 1, 0, 0, 1, 0)
+
+UI.grid_append(grid, text('Yo4'), 0, 1, 1, 1, 0, 0, 1, 0)
+UI.grid_append(grid, text('Yo5'), 1, 1, 1, 1, 0, 0, 1, 0)
+UI.grid_append(grid, text('Yo6'), 2, 1, 1, 1, 0, 0, 1, 0)
+
+grid.is_padded
+
+vbox = ui_vbox
+vbox.add(grid)
+
+window.child = vbox
+window.intelligent_exit

data/lib/libui_paradise/examples/011_fancy_text_example.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This example currently does not work.
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+main_window = UI.main_window('A fancy test example', 1200, 200, 15)
+
+string = UI.new_attributed_string
+attribute = UI.new_color_attribute(0.75, 0.25, 0.5, 0.75)
+UI.attributed_string_append_unattributed('text color', attribute)
+
+vbox = UI.vbox
+vbox.add(attribute)
+
+main_window.child = vbox
+main_window.control_show
+main_window.simple_exit
+UI.main_then_quit

data/lib/libui_paradise/examples/012_control_gallery.rb

@@ -0,0 +1,180 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+should_quit = proc {
+  puts 'Bye Bye'
+  UI.control_destroy(MAIN_WINDOW)
+  UI.quit
+  0
+}
+
+open_menu_item_clicked = proc do
+  puts "Clicked 'Open'"
+  0
+end
+
+save_menu_item_clicked = proc {
+  puts "Clicked 'Save'"
+  0
+}
+
+# Create 'File' menu with a few items and callbacks
+# when the items are clicked
+menu = UI.new_menu('File')
+open_menu_item = UI.menu_append_item(menu, 'Open')
+UI.menu_item_on_clicked(open_menu_item, open_menu_item_clicked, nil)
+save_menu_item = UI.menu_append_item(menu, 'Save')
+UI.menu_item_on_clicked(save_menu_item, save_menu_item_clicked, nil)
+UI.menu_append_quit_item(menu)
+UI.on_should_quit(should_quit, nil)
+
+# =========================================================================== #
+# Create the 'Edit' menu
+# =========================================================================== #
+edit_menu = UI.new_menu('Edit')
+UI.menu_append_check_item(edit_menu, 'Checkable Item_')
+UI.menu_append_separator(edit_menu)
+disabled_item = UI.menu_append_item(edit_menu, 'Disabled Item_')
+UI.menu_item_disable(disabled_item)
+
+preferences = UI.menu_append_preferences_item(menu)
+
+# =========================================================================== #
+# Create the 'Help' menu
+# =========================================================================== #
+help_menu = UI.new_menu('Help')
+UI.menu_append_item(help_menu, 'Help')
+UI.menu_append_about_item(help_menu)
+
+vbox = ui_padded_vbox
+hbox = ui_padded_hbox
+vbox.maximal(hbox)
+
+group = UI.new_group('Basic Controls')
+UI.group_set_margined(group, 1)
+hbox.add(group, 0)
+
+inner = ui_padded_vbox
+UI.group_set_child(group, inner)
+
+button = ui_button('Button')
+button_clicked_callback = proc {
+  ui_msg_box(MAIN_WINDOW, 'Information', 'You clicked the button')
+  0
+}
+UI.button_on_clicked(button, button_clicked_callback, nil)
+inner.minimal(button)
+
+checkbox = ui_checkbox('Checkbox')
+checkbox_toggle_callback = proc { |ptr|
+  checked = UI.checkbox_checked(ptr) == 1
+  UI.window_set_title(MAIN_WINDOW, "Checkbox is #{checked}")
+  UI.checkbox_set_text(ptr, "I am the checkbox (#{checked})")
+  0
+}
+UI.checkbox_on_toggled(checkbox, checkbox_toggle_callback, nil)
+UI.box_append(inner, checkbox, 0)
+
+UI.box_append(inner, UI.new_label('Label'), 0)
+UI.box_append(inner, UI.new_horizontal_separator, 0)
+UI.box_append(inner, UI.new_date_picker, 0)
+UI.box_append(inner, UI.new_time_picker, 0)
+UI.box_append(inner, UI.new_date_time_picker, 0)
+UI.box_append(inner, UI.new_font_button, 0)
+UI.box_append(inner, UI.new_color_button, 0)
+
+inner2 = UI.vbox
+UI.box_set_padded(inner2, 1)
+UI.box_append(hbox, inner2, 1)
+
+group = UI.new_group('Numbers')
+UI.group_set_margined(group, 1)
+UI.box_append(inner2, group, 0)
+
+inner = ui_padded_vbox
+UI.group_set_child(group, inner)
+
+spinbox = ui_spinbox(0, 100)
+# =========================================================================== #
+# === spinbox_changed_callbac
+#
+# The function called when the spinbox is changed.
+# =========================================================================== #
+spinbox_changed_callback = proc { |ptr|
+  puts "New Spinbox value: #{UI.spinbox_value(ptr)}"
+  0
+}
+spinbox.set_value(42)
+UI.spinbox_on_changed(spinbox, spinbox_changed_callback, nil)
+inner.append(spinbox, 0)
+
+slider = UI.new_slider(0, 100)
+slider_changed_callback = proc { |ptr|
+  puts "New Slider value: #{UI.slider_value(ptr)}"
+  0
+}
+UI.slider_on_changed(slider, slider_changed_callback, nil)
+UI.box_append(inner, slider, 0)
+
+progressbar = UI.new_progress_bar
+UI.box_append(inner, progressbar, 0)
+
+group = UI.new_group('Lists')
+UI.group_set_margined(group, 1)
+UI.box_append(inner2, group, 0)
+
+inner = ui_padded_vbox
+UI.group_set_child(group, inner)
+
+combobox_selected_callback = proc { |ptr|
+  puts "New combobox selection: #{UI.combobox_selected(ptr)}"
+}
+cbox = ui_combobox
+UI.combobox_append(cbox, 'combobox Item 1')
+UI.combobox_append(cbox, 'combobox Item 2')
+UI.combobox_append(cbox, 'combobox Item 3')
+inner.add(cbox, 0)
+UI.combobox_on_selected(cbox, combobox_selected_callback, nil)
+
+# Show an editable combobox next:
+ebox = ui_editable_combo_box
+UI.editable_combobox_append(ebox, 'Editable Item 1')
+UI.editable_combobox_append(ebox, 'Editable Item 2')
+UI.editable_combobox_append(ebox, 'Editable Item 3')
+inner.add(ebox, 0)
+
+rb = ui_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')
+inner.maximal(rb)
+
+tab = ui_tab
+hbox1 = ui_hbox
+UI.tab_append(tab, 'Page 1', hbox1)
+UI.tab_append(tab, 'Page 2', ui_hbox)
+UI.tab_append(tab, 'Page 3', ui_hbox)
+inner2.maximal(tab)
+
+# =========================================================================== #
+# === text_changed_callback
+# =========================================================================== #
+text_changed_callback = proc { |ptr|
+  puts "Current textbox data: '#{UI.entry_text(ptr)}'"
+}
+
+text_entry = ui_entry
+text_entry.set_text('Please enter your feelings')
+text_entry.on_changed { text_changed_callback }
+hbox1.append(text_entry, 1)
+
+MAIN_WINDOW = UI.window('hello world', 600, 600, 1)
+UI.window_set_margined(MAIN_WINDOW, 1)
+UI.window_set_child(MAIN_WINDOW, vbox)
+
+UI.window_on_closing(MAIN_WINDOW, should_quit, nil)
+MAIN_WINDOW.control_show
+UI.main_then_quit

data/lib/libui_paradise/examples/013_midi_player.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+music_directory = File.expand_path(ARGV[0] || '~/Music/')
+midi_files      = Dir.glob(File.join(music_directory, '**/*.mid'))
+                     .sort_by { |path| File.basename(path) }
+VERSION = '0.0.1'.freeze
+
+@pid = nil
+
+play_midi = proc do
+  if @pid.nil? && @selected_file
+    begin
+      @pid = spawn "timidity #{@selected_file}"
+      @th = Process.detach @pid
+    rescue Errno::ENOENT => e
+      warn 'Timidty++ not found. Please install Timidity++.'
+      warn 'https://sourceforge.net/projects/timidity/'
+    end
+  end
+  0
+end
+
+stop_midi = proc do
+  if @pid
+    if @th.alive?
+      Process.kill(:SIGKILL, @pid)
+      @pid = nil
+    else
+      @pid = nil
+    end
+  end
+end
+
+help_menu = UI.new_menu('Help')
+version_item = UI.menu_append_item(help_menu, 'Version')
+
+UI.new_window('Tiny Midi Player', 200, 50, 1).tap do |main_window|
+  UI.menu_item_on_clicked(version_item) {
+    UI.msg_box(main_window,
+               'Tiny Midi Player',
+               "Written in Ruby\n" \
+               "https://github.com/kojix2/libui\n Version #{VERSION}"
+    )
+    0
+  }
+
+  UI.window_on_closing(main_window) {
+    UI.control_destroy(main_window)
+    UI.quit
+    0
+  }
+
+  UI.new_horizontal_box.tap do |hbox|
+    UI.new_vertical_box.tap do |vbox|
+      UI.new_button('▶').tap do |button1|
+        UI.button_on_clicked(button1, play_midi)
+        UI.box_append(vbox, button1, 1)
+      end
+      UI.new_button('■').tap do |button2|
+        UI.button_on_clicked(button2, stop_midi)
+        at_exit(&stop_midi)
+        vbox.add(button2, 1)
+      end
+      hbox.add(vbox, 0)
+    end
+    UI.window_set_child(main_window, hbox)
+
+    UI.new_combobox.tap do |cbox|
+      midi_files.each { |path|
+        name = File.basename(path)
+        UI.combobox_append(cbox, name)
+      }
+      UI.combobox_on_selected(cbox) { |ptr|
+        @selected_file = midi_files[UI.combobox_selected(ptr)]
+        if @th && @th.alive?
+          stop_midi.call
+          play_midi.call
+        end
+        0
+      }
+      hbox.add(cbox, 1)
+    end
+  end
+  UI.control_show(main_window)
+end
+
+UI.main_then_quit

data/lib/libui_paradise/examples/014_basic_draw_text.rb

@@ -0,0 +1,134 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === 014_basic_draw_text.rb
+# =========================================================================== #
+# This example shows how to display coloured text.
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+# =========================================================================== #
+# === USE_THIS_FONT
+#
+# Specify a certain font to use.
+# =========================================================================== #
+USE_THIS_FONT = 'Georgia'
+
+# =========================================================================== #
+# === TITLE
+# =========================================================================== #
+TITLE = 'Michael Ende (1929-1995) The Neverending Story'
+
+handler = UI::FFI::AreaHandler.malloc
+area = UI.area(handler)
+
+str1 = \
+  '  At last Ygramul sensed that something was coming toward ' \
+  'her. With the speed of lightning, she turned about, confronting ' \
+  'Atreyu with an enormous steel-blue face. Her single eye had a ' \
+  'vertical pupil, which stared at Atreyu with inconceivable malignancy. '
+
+str2 = \
+  '  A cry of fear escaped Bastian. '
+
+str3 = \
+  '  A cry of terror passed through the ravine and echoed from ' \
+  'side to side. Ygramul turned her eye to left and right, to see if ' \
+  'someone else had arrived, for that sound could not have been ' \
+  'made by the boy who stood there as though paralyzed with ' \
+  'horror. '
+
+str4 = \
+  '  Could she have heard my cry? Bastion wondered in alarm. ' \
+  "But that's not possible. "
+
+str5 = \
+  '  And then Atreyu heard Ygramuls voice. It was very high ' \
+  'and slightly hoarse, not at all the right kind of voice for that ' \
+  'enormous face. Her lips did not move as she spoke. It was the ' \
+  'buzzing of a great swarm of hornets that shaped itself into ' \
+  'words. '
+
+str = ''
+attr_str = UI.new_attributed_string(str)
+
+# =========================================================================== #
+# Add an ad-hoc append method.
+# =========================================================================== #
+def attr_str.append(
+    this_text,
+    color
+  )
+  case color
+  # =========================================================================== #
+  # === :red
+  # =========================================================================== #
+  when :red # red colour
+    use_this_colour = UI.new_color_attribute(0.0, 0.5, 0.0, 0.7)
+  # =========================================================================== #
+  # === :green  
+  # =========================================================================== #
+  when :green # green colour
+    use_this_colour = UI.new_color_attribute(0.5, 0.0, 0.25, 0.7)
+  end
+  start = UI.attributed_string_len(self)
+  # =========================================================================== #
+  # Append the stuff next.
+  # =========================================================================== #
+  UI.attributed_string_append_unattributed(self, this_text)
+  UI.attributed_string_set_attribute(self,
+    use_this_colour,
+    start,            # Start position.
+    start + this_text.size # End position.
+  )
+  UI.attributed_string_append_unattributed(self, "\n\n")
+end
+
+attr_str.append(str1, :green)
+attr_str.append(str2, :red)
+attr_str.append(str3, :green)
+attr_str.append(str4, :red)
+attr_str.append(str5, :green)
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) do |_, _, adp|
+  area_draw_params = UI::FFI::AreaDrawParams.new(adp)
+  # =========================================================================== #
+  # Designate our font in use next.
+  # =========================================================================== #
+  default_font = UI::FFI::FontDescriptor.malloc
+  default_font.Family = USE_THIS_FONT
+  default_font.Size = 13
+  default_font.Weight = 500
+  default_font.Italic = 0
+  default_font.Stretch = 4
+  params = UI::FFI::DrawTextLayoutParams.malloc
+
+  # UI.font_button_font(font_button, default_font)
+  params.String = attr_str
+  params.DefaultFont = default_font
+  params.Width = area_draw_params.AreaWidth
+  params.Align = 0
+  text_layout = UI.text_layout(params)
+  UI.draw_text(area_draw_params.Context, text_layout, 0, 0)
+  UI.draw_free_text_layout(text_layout)
+end
+
+handler.Draw         = handler_draw_event
+# Assigning to local variables
+# This is intended to protect Fiddle::Closure from garbage collection.
+handler.MouseEvent   = (c1 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+handler.MouseCrossed = (c2 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+handler.DragBroken   = (c3 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+handler.KeyEvent     = (c4 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+
+box = UI.vbox
+box.set_padded(1)
+box.add(area, 1)
+
+main_window = UI.window(TITLE, 600, 400, 1)
+UI.window_set_margined(main_window, 1)
+main_window.child = box
+main_window.close_properly
+main_window.control_show
+UI.main_then_quit

data/lib/libui_paradise/examples/015_font_example.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# === 015_font_example_text.rb
+# =========================================================================== #
+# This example shows how to display coloured text.
+#
+# An AttributedString is a string which also contains information
+# about styles such as text color, font, font size. It will be
+# drawn in an UiArea element.
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+# =========================================================================== #
+# === USE_THIS_FONT
+#
+# Specify a certain font to use.
+# =========================================================================== #
+USE_THIS_FONT = 'Georgia'
+
+# =========================================================================== #
+# === USE_THIS_FONT_SIZE
+# =========================================================================== #
+USE_THIS_FONT_SIZE = 25
+
+# =========================================================================== #
+# === TITLE
+# =========================================================================== #
+TITLE = 'Font Example'
+
+handler = UI::FFI::AreaHandler.malloc
+area    = UI.new_area(handler)
+
+str1 = 'At last Ygramul sensed that something was coming toward her.'
+
+attr_str = fancy_text('')
+
+def attr_str.append(what)
+  color_attribute = UI.new_color_attribute(0.5, 0.0, 0.25, 0.7)
+  start = UI.attributed_string_len(self)
+  UI.attributed_string_append_unattributed(self, what)
+  UI.attributed_string_set_attribute(self, color_attribute, start, start + what.size)
+  UI.attributed_string_append_unattributed(self, "\n\n")
+end
+
+attr_str.append(str1)
+
+handler_draw_event = Fiddle::Closure::BlockCaller.new(0, [1, 1, 1]) { |_, _, adp|
+  area_draw_params = UI::FFI::AreaDrawParams.new(adp)
+  default_font = font {{
+    font_size:   USE_THIS_FONT_SIZE,
+    font_family: USE_THIS_FONT,
+    italic:      false,
+    stretch:     2,
+    weight:      500
+  }}
+
+  params = ui_draw_text_layout_params
+
+  params.String = attr_str
+  params.DefaultFont = default_font
+  params.Width = area_draw_params.AreaWidth
+  params.Align = 0
+  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)
+}
+
+# =========================================================================== #
+# Assigning to local variables:
+#
+# This is intended to protect Fiddle::Closure from garbage collection.
+#
+# =========================================================================== #
+handler.Draw         = handler_draw_event
+handler.MouseEvent   = (c1 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+handler.MouseCrossed = (c2 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+# handler.DragBroken   = (c3 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+# handler.KeyEvent     = (c4 = Fiddle::Closure::BlockCaller.new(0, [0]) {})
+
+box = ui_padded_vbox
+box.maximal(area)
+box.maximal(ui_hseparator)
+
+main_window = ui_main_window(TITLE, 600, 400, 1)
+UI.window_set_margined(main_window, 1)
+main_window.child = box
+main_window.simple_exit
+main_window.control_show
+main_window.intelligent_exit

data/lib/libui_paradise/examples/016_search_entry_example.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+window = ui_main_window('A search-entry example', 1200, 200, 15)
+
+search_entry = ui_search_entry
+box = ui_padded_vbox
+box.add(search_entry, 1)
+box.is_padded
+
+window.child = box
+window.control_show
+window.intelligent_exit

data/lib/libui_paradise/examples/017_tabs_example.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+window = ui_main_window('A notebook with tabs example', 1200, 200, 15)
+
+tab = ui_tabs
+tab.add('Page 1', ui_hbox)
+tab.add('Page 2', ui_hbox)
+tab.add('Page 3', ui_hbox)
+tab.add('Page 4', ui_hbox)
+tab.add('Page 5', ui_hbox)
+tab.add('Page 6', ui_hbox)
+
+box = ui_padded_vbox
+box.maximal(tab)
+
+window.child = box
+window.control_show
+window.intelligent_exit