glimmer-dsl-swt 4.20.0.4 → 4.20.3.0

data/samples/elaborate/calculator/model/command/operation.rb

@@ -0,0 +1,27 @@
+class Calculator
+  module Model
+    class Command
+      class Operation < Command
+        def execute
+          if number1 && number2 && operation && !last_command.is_a?(Equals)
+            self.result = operation.calculate.to_s
+            self.number1 = self.result
+          else
+            self.result = last_result || '0'
+            self.operation = self
+          end
+        end
+        
+        def calculate
+          calculation_result = BigDecimal.new(number1.to_s).send(operation_method, BigDecimal.new(number2.to_s)).to_f
+          calculation_result.to_s.match(/\.0+$/) ? calculation_result.to_i : calculation_result
+        end
+        
+        # Subclasses must implement to indicate operation method on number (e.g. :+ for addition)
+        def operation_method
+          raise 'Not implemented!'
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/command/operation/add.rb

@@ -0,0 +1,15 @@
+class Calculator
+  module Model
+    class Command
+      class Operation < Command
+        class Add < Operation
+          keyword '+'
+          
+          def operation_method
+            :+
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/command/operation/divide.rb

@@ -0,0 +1,15 @@
+class Calculator
+  module Model
+    class Command
+      class Operation < Command
+        class Divide < Operation
+          keywords '÷', '/'
+          
+          def operation_method
+            :/
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/command/operation/multiply.rb

@@ -0,0 +1,15 @@
+class Calculator
+  module Model
+    class Command
+      class Operation < Command
+        class Multiply < Operation
+          keywords '×', '*'
+
+          def operation_method
+            :*
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/command/operation/subtract.rb

@@ -0,0 +1,15 @@
+class Calculator
+  module Model
+    class Command
+      class Operation < Command
+        class Subtract < Operation
+          keywords '−', '-'
+          
+          def operation_method
+            :-
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/command/point.rb

@@ -0,0 +1,20 @@
+class Calculator
+  module Model
+    class Command
+      class Point < Command
+        keyword '.'
+
+        def execute
+          self.result = last_result.nil? || !last_command.is_a?(Number) ? '0.' : "#{last_result}."
+          if operation.nil? || last_command.is_a?(Equals)
+            self.number1 = self.result
+            self.number2 = nil
+            self.operation = nil
+          else
+            self.number2 = self.result
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/calculator/model/presenter.rb

@@ -0,0 +1,30 @@
+require_relative 'command'
+
+class Calculator
+  module Model
+    class Presenter
+      FORMATTER = {
+        nil   => '0',
+        'NaN' => 'Not a number'
+      }
+    
+      attr_accessor :result
+      
+      def initialize
+        self.result = '0'
+      end
+      
+      def press(button)
+        command = Command.for(button)
+        if command
+          new_result = command.result
+          self.result = FORMATTER[new_result] || new_result
+        end
+      end
+      
+      def purge_command_history
+        Command.purge_command_history
+      end
+    end
+  end
+end

data/samples/elaborate/contact_manager.rb

@@ -110,7 +110,7 @@ class ContactManager
           }
         }
 
-        table(:multi) { |table_proxy|
+        table(:editable, :multi) { |table_proxy|
           layout_data {
             horizontal_alignment :fill
             vertical_alignment :fill
@@ -132,7 +132,7 @@ class ContactManager
             width 200
           }
           
-          items bind(@contact_manager_presenter, :results), column_properties(:first_name, :last_name, :email)
+          items <=> [@contact_manager_presenter, :results, column_properties: [:first_name, :last_name, :email]]
           
           on_mouse_up { |event|
             table_proxy.edit_table_item(event.table_item, event.column_index)

data/samples/elaborate/meta_sample.rb

@@ -226,7 +226,7 @@ class MetaSampleApplication
                   row_layout(:vertical) {
                     fill true
                   }
-                  selection bind(sample_directory, :selected_sample_name)
+                  selection <=> [sample_directory, :selected_sample_name]
                   font height: 20
                 }
               }
@@ -242,7 +242,7 @@ class MetaSampleApplication
             button {
               text 'Launch'
               font height: 25
-              enabled bind(SampleDirectory, 'selected_sample.launchable')
+              enabled <= [SampleDirectory, 'selected_sample.launchable']
               
               on_widget_selected {
                 begin
@@ -255,7 +255,7 @@ class MetaSampleApplication
             button {
               text 'Reset'
               font height: 25
-              enabled bind(SampleDirectory, 'selected_sample.editable')
+              enabled <= [SampleDirectory, 'selected_sample.editable']
               
               on_widget_selected {
                 SampleDirectory.selected_sample.reset_code!
@@ -277,8 +277,8 @@ class MetaSampleApplication
           line_numbers {
             background :white
           }
-          text bind(SampleDirectory, 'selected_sample.code', read_only: true)
-          editable bind(SampleDirectory, 'selected_sample.editable')
+          text <=> [SampleDirectory, 'selected_sample.code']
+          editable <= [SampleDirectory, 'selected_sample.editable']
           left_margin 7
           right_margin 7
         }

data/samples/elaborate/tetris.rb

@@ -54,7 +54,7 @@ class Tetris
     Display.app_name = 'Glimmer Tetris'
 
     display {
-      @keyboard_down_listener = on_swt_keydown { |key_event|
+      on_swt_keydown { |key_event|
         case key_event.keyCode
         when swt(:arrow_down), 's'.bytes.first
           game.down! if OS.mac?
@@ -82,7 +82,7 @@ class Tetris
 
       # invoke game.down! on keyup with Windows/Linux since they seem to group-render similar events, preventing intermediate renders (causing invisiblity while holding keys)
       if !OS.mac?
-        @keyboard_up_listener = on_swt_keyup { |key_event|
+        on_swt_keyup { |key_event|
           case key_event.keyCode
           when swt(:arrow_down), 's'.bytes.first
             game.down!
@@ -91,25 +91,25 @@ class Tetris
       end
       
       # if running in app mode, set the Mac app about dialog (ignored in platforms)
-      @about_observer = on_about {
+      on_about {
         show_about_dialog
       }
       
-      @quit_observer = on_quit {
+      on_quit {
         exit(0)
       }
     }
   }
   
   after_body {
-    @game_over_observer = observe(@game, :game_over) do |game_over|
+    observe(@game, :game_over) do |game_over|
       if game_over
         show_high_score_dialog
       else
         start_moving_tetrominos_down
       end
     end
-    @show_high_scores_observer = observe(@game, :show_high_scores) do |show_high_scores|
+    observe(@game, :show_high_scores) do |show_high_scores|
       if show_high_scores
         show_high_score_dialog
       else

data/samples/elaborate/tetris/view/bevel.rb

@@ -35,44 +35,44 @@ class Tetris
       
       body {
         rectangle(x, y, size, size) {
-          background bind(self, :base_color)
+          background <= [self, :base_color]
           polygon(0, 0, size, 0, size - bevel_pixel_size, bevel_pixel_size, bevel_pixel_size, bevel_pixel_size) {
-            background bind(self, :base_color) { |color_value|
+            background <= [self, :base_color, on_read: ->(color_value) {
               unless color_value.nil?
                 color = color(color_value)
                 rgb(color.red + 4*BEVEL_CONSTANT, color.green + 4*BEVEL_CONSTANT, color.blue + 4*BEVEL_CONSTANT)
               end
-            }
+            }]
           }
           polygon(size, 0, size - bevel_pixel_size, bevel_pixel_size, size - bevel_pixel_size, size - bevel_pixel_size, size, size) {
-            background bind(self, :base_color) { |color_value|
+            background <= [self, :base_color, on_read: ->(color_value) {
               unless color_value.nil?
                 color = color(color_value)
                 rgb(color.red - BEVEL_CONSTANT, color.green - BEVEL_CONSTANT, color.blue - BEVEL_CONSTANT)
               end
-            }
+            }]
           }
           polygon(size, size, 0, size, bevel_pixel_size, size - bevel_pixel_size, size - bevel_pixel_size, size - bevel_pixel_size) {
-            background bind(self, :base_color) { |color_value|
+            background <= [self, :base_color, on_read: ->(color_value) {
               unless color_value.nil?
                 color = color(color_value)
                 rgb(color.red - 2*BEVEL_CONSTANT, color.green - 2*BEVEL_CONSTANT, color.blue - 2*BEVEL_CONSTANT)
               end
-            }
+            }]
           }
           polygon(0, 0, 0, size, bevel_pixel_size, size - bevel_pixel_size, bevel_pixel_size, bevel_pixel_size) {
-            background bind(self, :base_color) { |color_value|
+            background <= [self, :base_color, on_read: ->(color_value) {
               unless color_value.nil?
                 color = color(color_value)
                 rgb(color.red - BEVEL_CONSTANT, color.green - BEVEL_CONSTANT, color.blue - BEVEL_CONSTANT)
               end
-            }
+            }]
           }
           rectangle(0, 0, size, size) {
-            foreground bind(self, :base_color) { |color_value|
+            foreground <= [self, :base_color, on_read: ->(color_value) {
               # use gray instead of white for the border
               color_value == Model::Block::COLOR_CLEAR ? :gray : color_value
-            }
+            }]
           }
         }
       }

data/samples/elaborate/tetris/view/block.rb

@@ -31,7 +31,7 @@ class Tetris
       body {
         canvas { |canvas_proxy|
           bevel(size: block_size) {
-            base_color bind(game_playfield[row][column], :color)
+            base_color <= [game_playfield[row][column], :color]
           }
         }
       }

data/samples/elaborate/tetris/view/high_score_dialog.rb

@@ -40,12 +40,12 @@ class Tetris
             type :vertical
             center true
           }
-          text 'Tetris'
+          text 'Glimmer Tetris'
           
           tetris_menu_bar(game: game)
           
           label(:center) {
-            text bind(game, :game_over) {|game_over| game_over ? 'Game Over!' : 'High Scores'}
+            text <= [game, :game_over, on_read: ->(game_over) { game_over ? 'Game Over!' : 'High Scores' }]
             font name: FONT_NAME, height: FONT_TITLE_HEIGHT, style: FONT_TITLE_STYLE
           }
           @high_score_table = table {
@@ -66,13 +66,13 @@ class Tetris
               text 'Level'
             }
             
-            items bind(game, :high_scores, read_only_sort: true), column_properties(:name, :score, :lines, :level)
+            items <=> [game, :high_scores, read_only_sort: true, column_properties: [:name, :score, :lines, :level]]
           }
           composite {
             row_layout :horizontal
                         
             @play_close_button = button {
-              text bind(game, :game_over) {|game_over| game_over ? 'Play Again?' : 'Close'}
+              text <= [game, :game_over, on_read: ->(game_over) { game_over ? 'Play Again?' : 'Close'}]
               focus true # initial focus
               
               on_widget_selected {

data/samples/elaborate/tetris/view/score_lane.rb

@@ -55,7 +55,7 @@ class Tetris
             font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
           }
           label(:center) {
-            text bind(game, :score)
+            text <= [game, :score]
             font height: @font_height
           }
           
@@ -66,7 +66,7 @@ class Tetris
             font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
           }
           label(:center) {
-            text bind(game, :lines)
+            text <= [game, :lines]
             font height: @font_height
           }
           
@@ -77,7 +77,7 @@ class Tetris
             font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
           }
           label(:center) {
-            text bind(game, :level)
+            text <= [game, :level]
             font height: @font_height
           }
         }

data/samples/elaborate/tetris/view/tetris_menu_bar.rb

@@ -35,7 +35,7 @@ class Tetris
             
             menu_item {
               text '&Start'
-              enabled bind(game, :game_over)
+              enabled <= [game, :game_over]
               accelerator COMMAND_KEY, :s
               
               on_widget_selected {
@@ -45,9 +45,9 @@ class Tetris
             menu_item(:check) {
               text '&Pause'
               accelerator COMMAND_KEY, :p
-              enabled bind(game, :game_over, on_read: :!) {|value| value && !game.show_high_scores}
-              enabled bind(game, :show_high_scores, on_read: :!) {|value| value && !game.game_over}
-              selection bind(game, :paused)
+              enabled <= [game, :game_over, on_read: ->(value) { value && !game.show_high_scores }]
+              enabled <= [game, :show_high_scores, on_read: ->(value) { value && !game.game_over }]
+              selection <=> [game, :paused]
             }
             menu_item {
               text '&Restart'
@@ -76,7 +76,7 @@ class Tetris
               menu_item(:check) {
                 text '&Show'
                 accelerator COMMAND_KEY, :shift, :h
-                selection bind(game, :show_high_scores)
+                selection <=> [game, :show_high_scores]
               }
               menu_item {
                 text '&Clear'
@@ -94,24 +94,24 @@ class Tetris
             menu_item(:check) {
               text '&Beeping'
               accelerator COMMAND_KEY, :b
-              selection bind(game, :beeping)
+              selection <=> [game, :beeping]
             }
             menu {
               text 'Up Arrow'
               menu_item(:radio) {
                 text '&Instant Down'
                 accelerator COMMAND_KEY, :shift, :i
-                selection bind(game, :instant_down_on_up, computed_by: :up_arrow_action)
+                selection <=> [game, :instant_down_on_up, computed_by: :up_arrow_action]
               }
               menu_item(:radio) {
                 text 'Rotate &Right'
                 accelerator COMMAND_KEY, :shift, :r
-                selection bind(game, :rotate_right_on_up, computed_by: :up_arrow_action)
+                selection <=> [game, :rotate_right_on_up, computed_by: :up_arrow_action]
               }
               menu_item(:radio) {
                 text 'Rotate &Left'
                 accelerator COMMAND_KEY, :shift, :l
-                selection bind(game, :rotate_left_on_up, computed_by: :up_arrow_action)
+                selection <=> [game, :rotate_left_on_up, computed_by: :up_arrow_action]
               }
             }
           } # end of menu

data/samples/elaborate/timer.rb

@@ -0,0 +1,233 @@
+require 'glimmer-dsl-swt'
+require 'os'
+
+class Timer
+  include Glimmer::UI::CustomShell
+  
+  import 'javax.sound.sampled'
+
+  FILE_SOUND_ALARM = File.expand_path(File.join('timer', 'alarm1.wav'), __dir__)
+  COMMAND_KEY = OS.mac? ? :command : :ctrl
+      
+  ## Add options like the following to configure CustomShell by outside consumers
+  #
+  # options :title, :background_color
+  # option :width, default: 320
+  # option :height, default: 240
+
+  attr_accessor :countdown, :min, :sec
+
+  ## Use before_body block to pre-initialize variables to use in body
+  #
+  #
+  before_body {
+    Display.setAppName('Glimmer Timer')
+    
+    @display = display {
+      on_about {
+        display_about_dialog
+      }
+      on_preferences {
+        display_about_dialog
+      }
+    }
+
+    @min = 0
+    @sec = 0
+  }
+
+  ## Use after_body block to setup observers for widgets in body
+  #
+  after_body {
+    Thread.new {
+      loop {
+        sleep(1)
+        if @countdown
+          sync_exec {
+            @countdown_time = Time.new(1, 1, 1, 0, min, sec)
+            @countdown_time -= 1
+            self.min = @countdown_time.min
+            self.sec = @countdown_time.sec
+            if @countdown_time.min <= 0 && @countdown_time.sec <= 0
+              stop_countdown
+              play_countdown_done_sound
+            end
+          }
+        end
+      }
+    }
+  }
+
+  ## Add widget content inside custom shell body
+  ## Top-most widget must be a shell or another custom shell
+  #
+  body {
+    shell {
+      grid_layout # 1 column
+      
+      # Replace example content below with custom shell content
+      minimum_size (OS.windows? ? 214 : 200), 114
+      image File.join(APP_ROOT, 'package', 'windows', "Timer.ico") if OS.windows?
+      text "Glimmer Timer"
+
+      timer_menu_bar
+      
+      countdown_group
+    }
+  }
+  
+  def timer_menu_bar
+    menu_bar {
+      menu {
+        text '&Action'
+        
+        menu_item {
+          text '&Start'
+          accelerator COMMAND_KEY, 's'
+          enabled <= [self, :countdown, on_read: :!]
+          
+          on_widget_selected {
+            start_countdown
+          }
+        }
+        menu_item {
+          text 'St&op'
+          enabled <= [self, :countdown]
+          accelerator COMMAND_KEY, 'o'
+          
+          on_widget_selected {
+            stop_countdown
+          }
+        }
+        unless OS.mac?
+          menu_item(:separator)
+          menu_item {
+            text 'E&xit'
+            accelerator :alt, :f4
+            
+            on_widget_selected {
+              exit(0)
+            }
+          }
+        end
+      }
+      menu {
+        text '&Help'
+                    
+        menu_item {
+          text '&About'
+          accelerator COMMAND_KEY, :shift, 'a'
+          
+          on_widget_selected {
+            display_about_dialog
+          }
+        }
+      }
+    }
+  end
+  
+  def countdown_group
+    group {
+      # has grid layout with 1 column by default
+      text 'Countdown'
+      font height: 20
+
+      countdown_group_field_composite
+      
+      countdown_group_button_composite
+    }
+  end
+  
+  def countdown_group_field_composite
+    composite {
+      row_layout {
+        margin_width 0
+        margin_height 0
+      }
+      @min_spinner = spinner {
+        text_limit 2
+        digits 0
+        maximum 59
+        selection <=> [self, :min]
+        enabled <= [self, :countdown, on_read: :!]
+        on_widget_default_selected {
+          start_countdown
+        }
+      }
+      label {
+        text ':'
+        font(height: 18) if OS.mac?
+      }
+      @sec_spinner = spinner {
+        text_limit 2
+        digits 0
+        maximum 59
+        selection <=> [self, :sec]
+        enabled <= [self, :countdown, on_read: :!]
+        on_widget_default_selected {
+          start_countdown
+        }
+      }
+    }
+  end
+  
+  def countdown_group_button_composite
+    composite {
+      row_layout {
+        margin_width 0
+        margin_height 0
+      }
+      @start_button = button {
+        text '&Start'
+        enabled <= [self, :countdown, on_read: :!]
+        on_widget_selected {
+          start_countdown
+        }
+        on_key_pressed { |event|
+          start_countdown if event.keyCode == swt(:cr)
+        }
+      }
+      @stop_button = button {
+        text 'St&op'
+        enabled <= [self, :countdown]
+        on_widget_selected {
+          stop_countdown
+        }
+        on_key_pressed { |event|
+          stop_countdown if event.keyCode == swt(:cr)
+        }
+      }
+    }
+  end
+
+  def display_about_dialog
+    message_box(body_root) {
+      text 'About'
+      message "Glimmer Timer\n\nCopyright (c) 2007-2021 Andy Maleh"
+    }.open
+  end
+  
+  def start_countdown
+    self.countdown = true
+    @stop_button.swt_widget.set_focus
+  end
+
+  def stop_countdown
+    self.countdown = false
+    @min_spinner.swt_widget.set_focus
+  end
+
+  def play_countdown_done_sound
+    begin
+      file_or_stream = java.io.File.new(FILE_SOUND_ALARM)
+      audio_stream = AudioSystem.get_audio_input_stream(file_or_stream)
+      clip = AudioSystem.clip
+      clip.open(audio_stream)
+      clip.start
+    rescue => e
+      Glimmer::Config.logger.error e.full_message
+    end
+  end
+end
+
+Timer.launch