glimmer-dsl-libui 0.4.4 → 0.4.8

data/examples/histogram.rb

@@ -2,106 +2,108 @@
 
 require 'glimmer-dsl-libui'
 
-include Glimmer
-
-X_OFF_LEFT   = 20
-Y_OFF_TOP    = 20
-X_OFF_RIGHT  = 20
-Y_OFF_BOTTOM = 20
-POINT_RADIUS = 5
-COLOR_BLUE   = 0x1E90FF
-
-@datapoints   = 10.times.map {Random.new.rand(90)}
-
-def graph_size(area_width, area_height)
-  graph_width = area_width - X_OFF_LEFT - X_OFF_RIGHT
-  graph_height = area_height - Y_OFF_TOP - Y_OFF_BOTTOM
-  [graph_width, graph_height]
-end
-
-def point_locations(width, height)
-  xincr = width / 9.0 # 10 - 1 to make the last point be at the end
-  yincr = height / 100.0
-
-  @datapoints.each_with_index.map do |value, i|
-    val = 100 - value
-    [xincr * i, yincr * val]
+class Histogram
+  include Glimmer
+  
+  X_OFF_LEFT   = 20
+  Y_OFF_TOP    = 20
+  X_OFF_RIGHT  = 20
+  Y_OFF_BOTTOM = 20
+  POINT_RADIUS = 5
+  COLOR_BLUE   = Glimmer::LibUI.interpret_color(0x1E90FF)
+  
+  attr_accessor :datapoints, :histogram_color
+  
+  def initialize
+    @datapoints   = 10.times.map {Random.new.rand(90)}
+    @histogram_color        = COLOR_BLUE
   end
-end
-
-# method-based custom control representing a graph path
-def graph_path(width, height, should_extend, &block)
-  locations = point_locations(width, height).flatten
-  path {
-    if should_extend
-      polygon(locations + [width, height, 0, height])
-    else
-      polyline(locations)
+  
+  def graph_size(area_width, area_height)
+    graph_width = area_width - X_OFF_LEFT - X_OFF_RIGHT
+    graph_height = area_height - Y_OFF_TOP - Y_OFF_BOTTOM
+    [graph_width, graph_height]
+  end
+  
+  def point_locations(width, height)
+    xincr = width / 9.0 # 10 - 1 to make the last point be at the end
+    yincr = height / 100.0
+  
+    @datapoints.each_with_index.map do |value, i|
+      val = 100 - value
+      [xincr * i, yincr * val]
     end
-    
-    # apply a transform to the coordinate space for this path so (0, 0) is the top-left corner of the graph
-    transform {
-      translate X_OFF_LEFT, Y_OFF_TOP
-    }
-    
-    block.call
-  }
-end
-
-window('histogram example', 640, 480) {
-  margined true
+  end
   
-  horizontal_box {
-    vertical_box {
-      stretchy false
-      
-      10.times do |i|
-        spinbox(0, 100) { |sb|
-          stretchy false
-          value @datapoints[i]
-          
-          on_changed do
-            @datapoints[i] = sb.value
-            @area.queue_redraw_all
-          end
-        }
+  # method-based custom control representing a graph path
+  def graph_path(width, height, should_extend, &block)
+    locations = point_locations(width, height).flatten
+    path {
+      if should_extend
+        polygon(locations + [width, height, 0, height])
+      else
+        polyline(locations)
       end
       
-      @color_button = color_button {
-        stretchy false
-        color COLOR_BLUE
-        
-        on_changed do
-          @area.queue_redraw_all
-        end
+      # apply a transform to the coordinate space for this path so (0, 0) is the top-left corner of the graph
+      transform {
+        translate X_OFF_LEFT, Y_OFF_TOP
       }
+      
+      block.call
     }
-    
-    @area = area {
-      on_draw do |area_draw_params|
-        rectangle(0, 0, area_draw_params[:area_width], area_draw_params[:area_height]) {
-          fill 0xFFFFFF
-        }
-        
-        graph_width, graph_height = *graph_size(area_draw_params[:area_width], area_draw_params[:area_height])
+  end
+  
+  def launch
+    window('histogram example', 640, 480) {
+      margined true
       
-        figure(X_OFF_LEFT, Y_OFF_TOP) {
-          line(X_OFF_LEFT, Y_OFF_TOP + graph_height)
-          line(X_OFF_LEFT + graph_width, Y_OFF_TOP + graph_height)
+      horizontal_box {
+        vertical_box {
+          stretchy false
           
-          stroke 0x000000, thickness: 2, miter_limit: 10
-        }
-      
-        # now create the fill for the graph below the graph line
-        graph_path(graph_width, graph_height, true) {
-          fill @color_button.color.merge(a: 0.5)
+          10.times do |i|
+            spinbox(0, 100) { |sb|
+              stretchy false
+              value <=> [self, "datapoints[#{i}]", after_write: -> { @area.queue_redraw_all }]
+            }
+          end
+          
+          color_button { |cb|
+            stretchy false
+            color <=> [self, :histogram_color, after_write: -> { @area.queue_redraw_all }]
+          }
         }
         
-        # now draw the histogram line
-        graph_path(graph_width, graph_height, false) {
-          stroke @color_button.color.merge(thickness: 2, miter_limit: 10)
+        @area = area {
+          on_draw do |area_draw_params|
+            rectangle(0, 0, area_draw_params[:area_width], area_draw_params[:area_height]) {
+              fill 0xFFFFFF
+            }
+            
+            graph_width, graph_height = *graph_size(area_draw_params[:area_width], area_draw_params[:area_height])
+          
+            figure(X_OFF_LEFT, Y_OFF_TOP) {
+              line(X_OFF_LEFT, Y_OFF_TOP + graph_height)
+              line(X_OFF_LEFT + graph_width, Y_OFF_TOP + graph_height)
+              
+              stroke 0x000000, thickness: 2, miter_limit: 10
+            }
+          
+            # now create the fill for the graph below the graph line
+            graph_path(graph_width, graph_height, true) {
+              fill @histogram_color.merge(a: 0.5)
+            }
+            
+            # now draw the histogram line
+            graph_path(graph_width, graph_height, false) {
+              stroke @histogram_color.merge(thickness: 2, miter_limit: 10)
+            }
+          end
         }
-      end
-    }
-  }
-}.show
+      }
+    }.show
+  end
+end
+
+Histogram.new.launch

data/examples/histogram2.rb

@@ -0,0 +1,109 @@
+# https://github.com/jamescook/libui-ruby/blob/master/example/histogram.rb
+
+require 'glimmer-dsl-libui'
+
+include Glimmer
+
+X_OFF_LEFT   = 20
+Y_OFF_TOP    = 20
+X_OFF_RIGHT  = 20
+Y_OFF_BOTTOM = 20
+POINT_RADIUS = 5
+COLOR_BLUE   = Glimmer::LibUI.interpret_color(0x1E90FF)
+
+@datapoints   = 10.times.map {Random.new.rand(90)}
+@color        = COLOR_BLUE
+
+def graph_size(area_width, area_height)
+  graph_width = area_width - X_OFF_LEFT - X_OFF_RIGHT
+  graph_height = area_height - Y_OFF_TOP - Y_OFF_BOTTOM
+  [graph_width, graph_height]
+end
+
+def point_locations(width, height)
+  xincr = width / 9.0 # 10 - 1 to make the last point be at the end
+  yincr = height / 100.0
+
+  @datapoints.each_with_index.map do |value, i|
+    val = 100 - value
+    [xincr * i, yincr * val]
+  end
+end
+
+# method-based custom control representing a graph path
+def graph_path(width, height, should_extend, &block)
+  locations = point_locations(width, height).flatten
+  path {
+    if should_extend
+      polygon(locations + [width, height, 0, height])
+    else
+      polyline(locations)
+    end
+    
+    # apply a transform to the coordinate space for this path so (0, 0) is the top-left corner of the graph
+    transform {
+      translate X_OFF_LEFT, Y_OFF_TOP
+    }
+    
+    block.call
+  }
+end
+
+window('histogram example', 640, 480) {
+  margined true
+  
+  horizontal_box {
+    vertical_box {
+      stretchy false
+      
+      10.times do |i|
+        spinbox(0, 100) { |sb|
+          stretchy false
+          value @datapoints[i]
+          
+          on_changed do
+            @datapoints[i] = sb.value
+            @area.queue_redraw_all
+          end
+        }
+      end
+      
+      color_button { |cb|
+        stretchy false
+        color COLOR_BLUE
+        
+        on_changed do
+          @color = cb.color
+          @area.queue_redraw_all
+        end
+      }
+    }
+    
+    @area = area {
+      on_draw do |area_draw_params|
+        rectangle(0, 0, area_draw_params[:area_width], area_draw_params[:area_height]) {
+          fill 0xFFFFFF
+        }
+        
+        graph_width, graph_height = *graph_size(area_draw_params[:area_width], area_draw_params[:area_height])
+      
+        figure(X_OFF_LEFT, Y_OFF_TOP) {
+          line(X_OFF_LEFT, Y_OFF_TOP + graph_height)
+          line(X_OFF_LEFT + graph_width, Y_OFF_TOP + graph_height)
+          
+          stroke 0x000000, thickness: 2, miter_limit: 10
+        }
+      
+        # now create the fill for the graph below the graph line
+        graph_path(graph_width, graph_height, true) {
+          fill @color.merge(a: 0.5)
+        }
+        
+        # now draw the histogram line
+        graph_path(graph_width, graph_height, false) {
+          stroke @color.merge(thickness: 2, miter_limit: 10)
+        }
+      end
+    }
+  }
+}.show

data/examples/meta_example.rb

@@ -24,18 +24,28 @@ class MetaExample
     @examples
   end
   
+  def basic_examples
+    examples.select {|example| example.start_with?('Basic') || ADDITIONAL_BASIC_EXAMPLES.include?(example) }
+  end
+  
+  def advanced_examples
+    examples - basic_examples
+  end
+  
   def examples_with_versions
-    examples.map do |example|
-      version_count_for(example) > 1 ? "#{example} (#{version_count_for(example)} versions)" : example
-    end
+    append_versions(examples)
   end
   
   def basic_examples_with_versions
-    examples_with_versions.select {|example| example.start_with?('Basic') || ADDITIONAL_BASIC_EXAMPLES.include?(example) }
+    append_versions(basic_examples)
   end
   
   def advanced_examples_with_versions
-    examples_with_versions - basic_examples_with_versions
+    append_versions(advanced_examples)
+  end
+  
+  def append_versions(examples)
+    examples.map { |example| version_count_for(example) > 1 ? "#{example} (#{version_count_for(example)} versions)" : example }
   end
   
   def file_path_for(example)
@@ -72,7 +82,7 @@ class MetaExample
   end
   
   def launch
-    window('Meta-Example', 700, 500) {
+    window('Meta-Example', 1000, 500) {
       margined true
       
       horizontal_box {
@@ -107,6 +117,7 @@ class MetaExample
                 @advanced_example_radio_buttons = radio_buttons {
                   stretchy false
                   items advanced_examples_with_versions
+                  selected -1
                   
                   on_selected do
                     @selected_example_index = examples_with_versions.index(advanced_examples_with_versions[@advanced_example_radio_buttons.selected])

data/examples/midi_player.rb

@@ -6,6 +6,8 @@ class TinyMidiPlayer
   include Glimmer
   
   VERSION = '0.0.1'
+  
+  attr_accessor :selected_file
 
   def initialize
     @pid = nil
@@ -68,13 +70,10 @@ class TinyMidiPlayer
           }
         }
 
-        combobox { |c|
+        combobox {
           items @midi_files.map { |path| File.basename(path) }
-          
-          on_selected do
-            @selected_file = @midi_files[c.selected]
-            play_midi if @th&.alive?
-          end
+          # data-bind selected item (String) to self.selected_file with on-read/on-write converters and after_write operation
+          selected_item <=> [self, :selected_file, on_read: ->(f) {File.basename(f.to_s)}, on_write: ->(f) {File.join(@music_directory, f)}, after_write: -> { play_midi if @th&.alive? }]
         }
       }
     }.show

data/examples/midi_player2.rb

@@ -0,0 +1,83 @@
+# frozen_string_literal: true
+
+require 'glimmer-dsl-libui'
+
+class TinyMidiPlayer
+  include Glimmer
+  
+  VERSION = '0.0.1'
+  
+  attr_accessor :selected_file
+
+  def initialize
+    @pid = nil
+    @music_directory = File.expand_path('../sounds', __dir__)
+    @midi_files      = Dir.glob(File.join(@music_directory, '**/*.mid'))
+                          .sort_by { |path| File.basename(path) }
+    at_exit { stop_midi }
+    create_gui
+  end
+
+  def stop_midi
+    if @pid
+      Process.kill(:SIGKILL, @pid) if @th.alive?
+      @pid = nil
+    end
+  end
+
+  def play_midi
+    stop_midi
+    if @pid.nil? && @selected_file
+      begin
+        @pid = spawn "timidity #{@selected_file}"
+        @th = Process.detach @pid
+      rescue Errno::ENOENT
+        warn 'Timidty++ not found. Please install Timidity++.'
+        warn 'https://sourceforge.net/projects/timidity/'
+      end
+    end
+  end
+
+  def show_version
+    msg_box('Tiny Midi Player',
+              "Written in Ruby\n" \
+                "https://github.com/kojix2/libui\n" \
+                "Version #{VERSION}")
+  end
+
+  def create_gui
+    menu('Help') {
+      menu_item('Version') {
+        on_clicked do
+          show_version
+        end
+      }
+    }
+    window('Tiny Midi Player', 200, 50) {
+      horizontal_box {
+        vertical_box {
+          stretchy false
+          
+          button('▶') {
+            on_clicked do
+              play_midi
+            end
+          }
+          button('■') {
+            on_clicked do
+              stop_midi
+            end
+          }
+        }
+
+        combobox { |c|
+          items @midi_files.map { |path| File.basename(path) }
+          # data-bind selected index (Integer) to self.selected_file with on-read/on-write converters and after_write operation
+          selected <=> [self, :selected_file, on_read: ->(f) {@midi_files.index(f)}, on_write: ->(i) {@midi_files[i]}, after_write: -> { play_midi if @th&.alive? }]
+        }
+      }
+    }.show
+  end
+end
+
+TinyMidiPlayer.new

data/examples/midi_player3.rb

@@ -0,0 +1,84 @@
+# frozen_string_literal: true
+
+require 'glimmer-dsl-libui'
+
+class TinyMidiPlayer
+  include Glimmer
+  
+  VERSION = '0.0.1'
+
+  def initialize
+    @pid = nil
+    @music_directory = File.expand_path('../sounds', __dir__)
+    @midi_files      = Dir.glob(File.join(@music_directory, '**/*.mid'))
+                          .sort_by { |path| File.basename(path) }
+    at_exit { stop_midi }
+    create_gui
+  end
+
+  def stop_midi
+    if @pid
+      Process.kill(:SIGKILL, @pid) if @th.alive?
+      @pid = nil
+    end
+  end
+
+  def play_midi
+    stop_midi
+    if @pid.nil? && @selected_file
+      begin
+        @pid = spawn "timidity #{@selected_file}"
+        @th = Process.detach @pid
+      rescue Errno::ENOENT
+        warn 'Timidty++ not found. Please install Timidity++.'
+        warn 'https://sourceforge.net/projects/timidity/'
+      end
+    end
+  end
+
+  def show_version
+    msg_box('Tiny Midi Player',
+              "Written in Ruby\n" \
+                "https://github.com/kojix2/libui\n" \
+                "Version #{VERSION}")
+  end
+
+  def create_gui
+    menu('Help') {
+      menu_item('Version') {
+        on_clicked do
+          show_version
+        end
+      }
+    }
+    window('Tiny Midi Player', 200, 50) {
+      horizontal_box {
+        vertical_box {
+          stretchy false
+          
+          button('▶') {
+            on_clicked do
+              play_midi
+            end
+          }
+          button('■') {
+            on_clicked do
+              stop_midi
+            end
+          }
+        }
+
+        combobox { |c|
+          items @midi_files.map { |path| File.basename(path) }
+          
+          on_selected do
+            @selected_file = @midi_files[c.selected]
+            play_midi if @th&.alive?
+          end
+        }
+      }
+    }.show
+  end
+end
+
+TinyMidiPlayer.new

data/examples/tetris.rb

@@ -109,22 +109,23 @@ class Tetris
     menu('Game') {
       @pause_menu_item = check_menu_item('Pause') {
         enabled false
-        
-        on_clicked do
-          @game.paused = @pause_menu_item.checked?
-        end
+        checked <=> [@game, :paused]
       }
+      
       menu_item('Restart') {
         on_clicked do
           @game.restart!
         end
       }
+      
       separator_menu_item
+      
       menu_item('Exit') {
         on_clicked do
           exit(0)
         end
       }
+      
       quit_menu_item if OS.mac?
     }
     
@@ -134,6 +135,7 @@ class Tetris
           show_high_scores
         end
       }
+      
       menu_item('Clear High Scores') {
         on_clicked {
           @game.clear_high_scores!
@@ -142,22 +144,16 @@ class Tetris
     }
 
     menu('Options') {
-      radio_menu_item('Instant Down on Up Arrow') {
-        on_clicked do
-          @game.instant_down_on_up = true
-        end
+      radio_menu_item('Instant Down on Up Arrow') { |r|
+        checked <=> [@game, :instant_down_on_up]
       }
-      radio_menu_item('Rotate Right on Up Arrow') {
-        on_clicked do
-          @game.rotate_right_on_up = true
-        end
+      
+      radio_menu_item('Rotate Right on Up Arrow') { |r|
+        checked <=> [@game, :rotate_right_on_up]
       }
-      radio_menu_item('Rotate Left on Up Arrow') {
-        checked true
-
-        on_clicked do
-          @game.rotate_left_on_up = true
-        end
+      
+      radio_menu_item('Rotate Left on Up Arrow') { |r|
+        checked <=> [@game, :rotate_left_on_up]
       }
     }
 
@@ -169,6 +165,7 @@ class Tetris
           end
         }
       end
+      
       menu_item('About') {
         on_clicked do
           show_about_dialog