glimmer-dsl-swt 4.20.0.3 → 4.20.2.1

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

@@ -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/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

data/samples/elaborate/user_profile.rb

@@ -23,7 +23,9 @@ require 'glimmer-dsl-swt'
 
 include Glimmer
 
-shell {
+# A version of this was featured in a dzone article as an intro to Glimmer syntax:
+# https://dzone.com/articles/an-introduction-glimmer
+shell { |shell_proxy|
   text "User Profile"
 
   composite {
@@ -72,7 +74,7 @@ shell {
     button {
       text "close"
       layout_data :left, :center, true, true
-      on_widget_selected { exit(0) }
+      on_widget_selected { shell_proxy.close }
     }
   }
 }.open

data/samples/elaborate/weather.rb

@@ -0,0 +1,164 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer-dsl-swt'
+require 'net/http'
+require 'json'
+require 'facets/string/titlecase'
+
+class Weather
+  include Glimmer::UI::CustomShell
+  
+  DEFAULT_FONT_HEIGHT = 30
+  DEFAULT_FOREGROUND = :white
+  
+  attr_accessor :city, :temp, :temp_min, :temp_max, :feels_like, :humidity
+  
+  before_body {
+    @weather_mutex = Mutex.new
+    self.city = 'Montreal, QC, CA'
+    fetch_weather!
+  }
+  
+  after_body {
+    Thread.new do
+      loop do
+        sleep(10)
+        break if body_root.disposed?
+        fetch_weather!
+      end
+    end
+  }
+  
+  body {
+    shell(:no_resize) {
+      grid_layout
+            
+      text 'Glimmer Weather'
+      minimum_size 400, 300
+      background rgb(135, 176, 235)
+      
+      text {
+        layout_data(:center, :center, true, true)
+        
+        text <=> [self, :city]
+        
+        on_key_pressed {|event|
+          if event.keyCode == swt(:cr) # carriage return
+            Thread.new do
+              fetch_weather!
+            end
+          end
+        }
+      }
+            
+      tab_folder {
+        layout_data(:center, :center, true, true)
+        
+        ['℃', '℉'].each do |temp_unit|
+          tab_item {
+            grid_layout 2, false
+            
+            text temp_unit
+            background :transparent
+            
+            rectangle(0, 0, [:default, -2], [:default, -2], 15, 15) {
+              foreground DEFAULT_FOREGROUND
+            }
+      
+            %w[temp temp_min temp_max feels_like].each do |field_name|
+              temp_field(field_name, temp_unit)
+            end
+            
+            humidity_field
+          }
+        end
+      }
+    }
+  }
+  
+  def temp_field(field_name, temp_unit)
+    name_label(field_name)
+    label {
+      layout_data(:fill, :center, true, false)
+      text <= [self, field_name, on_read: ->(t) { "#{kelvin_to_temp_unit(t, temp_unit).to_f.round}°" }]
+      font height: DEFAULT_FONT_HEIGHT
+      foreground DEFAULT_FOREGROUND
+    }
+  end
+  
+  def humidity_field
+    name_label('humidity')
+    label {
+      layout_data(:fill, :center, true, false)
+      text <= [self, 'humidity', on_read: ->(h) { "#{h.to_f.round}%" }]
+      font height: DEFAULT_FONT_HEIGHT
+      foreground DEFAULT_FOREGROUND
+    }
+  end
+  
+  def name_label(field_name)
+    label {
+      layout_data :fill, :center, false, false
+      text field_name.titlecase
+      font height: DEFAULT_FONT_HEIGHT
+      foreground DEFAULT_FOREGROUND
+    }
+  end
+  
+  def fetch_weather!
+    @weather_mutex.synchronize do
+      self.weather_data = JSON.parse(Net::HTTP.get('api.openweathermap.org', "/data/2.5/weather?q=#{city}&appid=1d16d70a9aec3570b5cbd27e6b421330"))
+    end
+  rescue
+    # No Op
+  end
+  
+  def weather_data=(data)
+    @weather_data = data
+    main_data = data['main']
+    # temps come back in Kelvin
+    self.temp = main_data['temp']
+    self.temp_min = main_data['temp_min']
+    self.temp_max = main_data['temp_max']
+    self.feels_like = main_data['feels_like']
+    self.humidity = main_data['humidity']
+  end
+  
+  def kelvin_to_temp_unit(kelvin, temp_unit)
+    temp_unit == '℃' ? kelvin_to_celsius(kelvin) : kelvin_to_fahrenheit(kelvin)
+  end
+  
+  def kelvin_to_celsius(kelvin)
+    kelvin - 273.15
+  end
+  
+  def celsius_to_fahrenheit(celsius)
+    (celsius * 9 / 5 ) + 32
+  end
+  
+  def kelvin_to_fahrenheit(kelvin)
+    celsius_to_fahrenheit(kelvin_to_celsius(kelvin))
+  end
+  
+end
+
+Weather.launch