glimmer-dsl-swt 4.20.0.2 → 4.20.2.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/login.rb

@@ -35,24 +35,19 @@ class LoginPresenter
 
   def status=(status)
     @status = status
-
-    notify_observers("logged_in")
-    notify_observers("logged_out")
   end
   
   def valid?
     !@user_name.to_s.strip.empty? && !@password.to_s.strip.empty?
   end
 
-  def logged_in
+  def logged_in?
     self.status == "Logged In"
   end
-  alias logged_in? logged_in
 
-  def logged_out
-    !self.logged_in
+  def logged_out?
+    !self.logged_in?
   end
-  alias logged_out? logged_out
 
   def login!
     return unless valid?
@@ -77,13 +72,15 @@ class Login
   body {
     shell {
       text "Login"
+      
       composite {
         grid_layout 2, false #two columns with differing widths
 
         label { text "Username:" } # goes in column 1
         @user_name_text = text {   # goes in column 2
           text <=> [@presenter, :user_name]
-          enabled <= [@presenter, :logged_out]
+          enabled <= [@presenter, :logged_out?, computed_by: :status]
+          
           on_key_pressed { |event|
             @password_text.set_focus if event.keyCode == swt(:cr)
           }
@@ -92,7 +89,8 @@ class Login
         label { text "Password:" }
         @password_text = text(:password, :border) {
           text <=> [@presenter, :password]
-          enabled <= [@presenter, :logged_out]
+          enabled <= [@presenter, :logged_out?, computed_by: :status]
+          
           on_key_pressed { |event|
             @presenter.login! if event.keyCode == swt(:cr)
           }
@@ -103,16 +101,20 @@ class Login
 
         button {
           text "Login"
-          enabled <= [@presenter, :logged_out]
+          enabled <= [@presenter, :logged_out?, computed_by: :status]
+          
           on_widget_selected { @presenter.login! }
           on_key_pressed { |event|
-            @presenter.login! if event.keyCode == swt(:cr)
+            if event.keyCode == swt(:cr)
+              @presenter.login!
+            end
           }
         }
 
         button {
           text "Logout"
-          enabled <= [@presenter, :logged_in]
+          enabled <= [@presenter, :logged_in?, computed_by: :status]
+          
           on_widget_selected { @presenter.logout! }
           on_key_pressed { |event|
             if event.keyCode == swt(:cr)

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/high_score_dialog.rb

@@ -40,7 +40,7 @@ class Tetris
             type :vertical
             center true
           }
-          text 'Tetris'
+          text 'Glimmer Tetris'
           
           tetris_menu_bar(game: game)
           

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 bind(self, :countdown, on_read: :!)
+          
+          on_widget_selected {
+            start_countdown
+          }
+        }
+        menu_item {
+          text 'St&op'
+          enabled bind(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 bind(self, :min)
+        enabled bind(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 bind(self, :sec)
+        enabled bind(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 bind(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 bind(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