libui_paradise 0.3.9 → 0.4.13

data/lib/libui_paradise/examples/complex/032_simple_window_example.rb

@@ -39,6 +39,7 @@ class NotificationFunctionalityExample < LibuiParadise::Base # === LibuiParadise
   # === reset                                                     (reset tag)
   # ========================================================================= #
   def reset
+    reset_the_internal_hash
     default_title_width_height(TITLE, WIDTH, HEIGHT)
   end
 
@@ -49,7 +50,7 @@ class NotificationFunctionalityExample < LibuiParadise::Base # === LibuiParadise
     # ======================================================================= #
     # === @window
     # ======================================================================= #
-    @window = ui_padded_main_window(title?, width?, height?, 0)
+    @window = create_padded_main_window(title?, width?, height?, 0)
   end
 
   # ========================================================================= #

data/lib/libui_paradise/examples/complex/033_daemonize_and_exit_after_delay_example.rb

@@ -53,6 +53,7 @@ class DaemonizeAndExitAfterDelayExample < LibuiParadise::Base # === LibuiParadis
   # === reset                                                     (reset tag)
   # ========================================================================= #
   def reset
+    reset_the_internal_hash
     default_title_width_height(TITLE, WIDTH, HEIGHT)
   end
 
@@ -63,7 +64,7 @@ class DaemonizeAndExitAfterDelayExample < LibuiParadise::Base # === LibuiParadis
     # ======================================================================= #
     # === @window
     # ======================================================================= #
-    @window = ui_padded_main_window(title?, width?, height?, 0)
+    @window = create_padded_main_window(title?, width?, height?, 0)
   end
 
   # ========================================================================= #
@@ -71,7 +72,7 @@ class DaemonizeAndExitAfterDelayExample < LibuiParadise::Base # === LibuiParadis
   # ========================================================================= #
   def run
     super()
-    Thread.abort_on_exception = true
+    abort_on_exception
     run_in_the_background
     Thread.new {
       add_these_widgets_to_the_main_window(

data/lib/libui_paradise/examples/complex/034_bold_text_example.rb

@@ -0,0 +1,115 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require '034_bold_text_example.rb'
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+# =========================================================================== #
+# === FONT_FAMILY_TO_USE
+# =========================================================================== #
+FONT_FAMILY_TO_USE = 'Georgia'
+
+window = margined_window(:filename, :default, 200, 0)
+
+outer_vbox = padded_vbox
+
+handler = LibUI::FFI::AreaHandler.malloc
+handler.to_ptr.free = Fiddle::RUBY_FREE
+area    = LibUI.new_area(handler)
+
+# Michael Ende (1929-1995)
+# The Neverending Story is a fantasy novel by German writer Michael Ende,
+# The English version, translated by Ralph Manheim, was published in 1983.
+
+TITLE = 'Michael Ende'
+
+str1 = '  With thelignancy. '
+str2 = '  A cry of fear escaped Bastian. '
+str3 = '  A cry of te '
+str4 = '  Could shele'
+str5 = '  And thens. '
+
+str = ''
+attr_str = LibUI.new_attributed_string(str)
+
+# =========================================================================== #
+# === attr_str.append
+#
+# The first argument is the text that should be appended.
+# =========================================================================== #
+def attr_str.append(this_text, color)
+  c = case color
+      # :red
+      when :red
+        [0.0, 0.5, 0.0, 0.7]
+      # :green
+      when :green
+        [0.5, 0.0, 0.25, 0.7]
+      end
+  color_attribute = LibUI.new_color_attribute(*c)
+  start_position = LibuiParadise.string_length(self) # self is a Fiddle::Pointer.
+  # ========================================================================= #
+  # 1) append the unattributed string
+  # ========================================================================= #
+  LibUI.attributed_string_append_unattributed(self, this_text)
+  # ========================================================================= #
+  # 2) style the attributed string next
+  # ========================================================================= #
+  LibUI.attributed_string_set_attribute(self, color_attribute, start_position, start_position + this_text.size)
+  # ========================================================================= #
+  # 3) Add two newlines
+  # ========================================================================= #
+  LibUI.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 = LibUI::FFI::AreaDrawParams.new(adp)
+  default_font = LibUI::FFI::FontDescriptor.malloc
+  default_font.to_ptr.free = Fiddle::RUBY_FREE
+  default_font.Family = FONT_FAMILY_TO_USE
+  default_font.Size = 13
+  default_font.Weight = 500
+  default_font.Italic = 0
+  default_font.Stretch = 4
+  params = LibUI::FFI::DrawTextLayoutParams.malloc
+  params.to_ptr.free = Fiddle::RUBY_FREE
+
+  # LibUI.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 = LibUI.draw_new_text_layout(params)
+  LibUI.draw_text(area_draw_params.Context, text_layout, 0, 0)
+  LibUI.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.
+do_nothing = Fiddle::Closure::BlockCaller.new(0, [0]) {}
+key_event  = Fiddle::Closure::BlockCaller.new(1, [0]) { 0 }
+handler.MouseEvent   = do_nothing
+handler.MouseCrossed = do_nothing
+handler.DragBroken   = do_nothing
+handler.KeyEvent     = key_event
+
+box = outer_vbox
+box << area
+
+window = padded_window(TITLE, :default, 400, 1)
+window << box
+window.intelligent_exit
+
+LibUI.control_show(window)
+LibUI.main
+LibUI.uninit

data/lib/libui_paradise/examples/complex/035_parse_into_table_example.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# require '035_parse_into_table_example.rb'
+# =========================================================================== #
+require 'libui_paradise/autoinclude'
+
+module LibuiParadise
+
+module GUI
+
+module LibUI
+
+class ParseIntoTableExample # === LibuiParadise::GUI::LibUI::ParseIntoTableExample
+
+  require 'libui_paradise'
+  include LibuiParadise::BaseModule
+
+  # ========================================================================= #
+  # === TITLE
+  # ========================================================================= #
+  TITLE = 'Parse into table example'
+
+  # ========================================================================= #
+  # === WIDTH
+  # ========================================================================= #
+  WIDTH = 1200
+
+  # ========================================================================= #
+  # === HEIGHT
+  # ========================================================================= #
+  HEIGHT = 120
+
+  # ========================================================================= #
+  # === initialize
+  # ========================================================================= #
+  def initialize(
+      run_already = true
+    )
+    reset
+    run if run_already
+  end
+
+  # ========================================================================= #
+  # === reset                                                     (reset tag)
+  # ========================================================================= #
+  def reset
+    reset_the_internal_hash
+    title_width_height(TITLE, WIDTH, HEIGHT)
+  end
+
+  # ========================================================================= #
+  # === create_skeleton                            (create tag, skeleton tag)
+  # ========================================================================= #
+  def create_skeleton
+    # ======================================================================= #
+    # === @window
+    # ======================================================================= #
+    @window = create_padded_main_window(title?, width?, height?, 0)
+  end
+
+  # ========================================================================= #
+  # === run
+  # ========================================================================= #
+  def run
+    create_skeleton_then_connect_skeleton
+    outer_vbox = padded_vbox
+    # ======================================================================= #
+    # First add the two buttons on top:
+    # ======================================================================= #
+    outer_vbox.add_hsep
+    grid = parse_into_table('/Depot/j/animals.yml')
+
+    outer_vbox.minimal(grid)
+    @window << outer_vbox
+    @window.intelligent_exit
+  end
+
+  # ========================================================================= #
+  # === run_this_method_on_enter_key_event
+  # ========================================================================= #
+  def run_this_method_on_enter_key_event(
+      entry = @entry
+    )
+    entry.set_text(
+      entry.text?[0 .. -2].to_s
+    )
+  end
+
+  # ========================================================================= #
+  # === evaluate_the_current_input
+  # ========================================================================= #
+  def evaluate_the_current_input(
+      entry   = @entry,
+      pointer = nil,
+      &block
+    )
+    _ = entry.text?
+    if _.end_with?('#')
+      yield if block_given?
+    end
+  end
+
+end; end; end; end
+
+if __FILE__ == $PROGRAM_NAME
+  LibuiParadise::GUI::LibUI::ParseIntoTableExample.new  
+end

data/lib/libui_paradise/examples/simple/001_open_file_example.rb

@@ -17,7 +17,7 @@ button = LibUI.new_button('Open File')
 LibUI.button_on_clicked(button) {
   result = ::LibUI.open_file(main_window).to_s
   if File.exist?(result)
-    e 'The file exists. \o/'
+    e "The file exists, at `#{result}`. \o/"
   end
 }
 

data/lib/libui_paradise/examples/simple/002_histogram_example.rb

@@ -64,9 +64,9 @@ def construct_graph(datapoints, width, height, should_extend)
   locations = point_locations(datapoints, width, height)
   path = LibUI.draw_new_path(0) # winding
   first_location = locations[0] # x and y
-  UI.draw_path_new_figure(path, first_location[0], first_location[1])
+  LibUI.draw_path_new_figure(path, first_location[0], first_location[1])
   locations.each { |loc|
-    UI.draw_path_line_to(path, loc[0], loc[1])
+    LibUI.draw_path_line_to(path, loc[0], loc[1])
   }
 
   if should_extend
@@ -85,8 +85,8 @@ handler_draw_event = Fiddle::Closure::BlockCaller.new(
 ) do |_area_handler, _area, area_draw_params|
   area_draw_params = UI::FFI::AreaDrawParams.new(area_draw_params)
   path = UI.draw_new_path(0) # winding
-  UI.draw_path_add_rectangle(path, 0, 0, area_draw_params.AreaWidth, area_draw_params.AreaHeight)
-  UI.draw_path_end(path)
+  LibUI.draw_path_add_rectangle(path, 0, 0, area_draw_params.AreaWidth, area_draw_params.AreaHeight)
+  LibUI.draw_path_end(path)
   set_solid_brush(brush, 0xFFFFFF, 1.0) # white
   UI.draw_fill(area_draw_params.Context, path, brush.to_ptr)
   UI.draw_free_path(path)
@@ -166,8 +166,8 @@ UI.box_append(hbox, vbox, 0)
 UI.box_append(hbox, histogram, 1)
 
 datapoints = Array.new(10) do
-  UI.new_spinbox(0, 100).tap do |datapoint|
-    UI.spinbox_set_value(datapoint, Random.new.rand(90))
+  LibUI.new_spinbox(0, 100).tap do |datapoint|
+    LibUI.spinbox_set_value(datapoint, Random.new.rand(90))
     UI.spinbox_on_changed(datapoint) {
       # Redraw the drawing area next:
       UI.area_queue_redraw_all(histogram)

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,7 +134,7 @@ 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
 
 # =========================================================================== #
@@ -147,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
@@ -178,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) {
@@ -186,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)
@@ -207,15 +235,15 @@ 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:

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

@@ -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, ')
@@ -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)

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/012_table_example.rb

@@ -61,11 +61,11 @@ LibUI.box_append(hbox, table, 1)
 LibUI.control_show(main_window)
 
 LibUI.window_on_closing(main_window) {
-  e 'Bye Bye'
-  UI.quit
+  # e 'Bye Bye'
+  LibUI.quit
   1
 }
 
-UI.main
-UI.free_table_model(model)
-UI.uninit
+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