glimmer-dsl-swt 4.22.2.1 → 4.22.2.5

data/samples/elaborate/snake/presenter/cell.rb

@@ -0,0 +1,27 @@
+class Snake
+  module Presenter
+    class Cell
+      COLOR_CLEAR = :white
+      COLOR_SNAKE = :green
+      COLOR_APPLE = :red
+    
+      attr_reader :row, :column, :grid
+      attr_accessor :color
+      
+      def initialize(grid: ,row: ,column: )
+        @row = row
+        @column = column
+        @grid = grid
+      end
+      
+      def clear
+        self.color = COLOR_CLEAR unless color == COLOR_CLEAR
+      end
+      
+      # inspect is overridden to prevent printing very long stack traces
+      def inspect
+        "#{super[0, 150]}... >"
+      end
+    end
+  end
+end

data/samples/elaborate/snake/presenter/grid.rb

@@ -0,0 +1,49 @@
+require 'glimmer'
+require_relative '../model/game'
+require_relative 'cell'
+
+class Snake
+  module Presenter
+    class Grid
+      include Glimmer
+      
+      attr_reader :game, :cells
+      
+      def initialize(game = Model::Game.new)
+        @game = game
+        @cells = @game.height.times.map do |row|
+          @game.width.times.map do |column|
+            Cell.new(grid: self, row: row, column: column)
+          end
+        end
+        observe(@game.snake, :vertebrae) do |new_vertebrae|
+          occupied_snake_positions = @game.snake.vertebrae.map {|v| [v.row, v.column]}
+          @cells.each_with_index do |row_cells, row|
+            row_cells.each_with_index do |cell, column|
+              if [@game.apple.row, @game.apple.column] == [row, column]
+                cell.color = Cell::COLOR_APPLE
+              elsif occupied_snake_positions.include?([row, column])
+                cell.color = Cell::COLOR_SNAKE
+              else
+                cell.clear
+              end
+            end
+          end
+        end
+      end
+      
+      def clear
+        @cells.each do |row_cells|
+          row_cells.each do |cell|
+            cell.clear
+          end
+        end
+      end
+      
+      # inspect is overridden to prevent printing very long stack traces
+      def inspect
+        "#{super[0, 75]}... >"
+      end
+    end
+  end
+end

data/samples/elaborate/snake.rb

@@ -0,0 +1,103 @@
+require 'glimmer-dsl-swt'
+
+require_relative 'snake/presenter/grid'
+
+class Snake
+  include Glimmer::UI::CustomShell
+  
+  CELL_SIZE = 15
+  SNAKE_MOVE_DELAY = 100 # millis
+  
+  before_body do
+    @game = Model::Game.new
+    @grid = Presenter::Grid.new(@game)
+    @game.start
+    @keypress_queue = []
+    
+    display {
+      on_swt_keydown do |key_event|
+        if key_event.keyCode == 32
+          @game.toggle_pause
+        else
+          @keypress_queue << key_event.keyCode
+        end
+      end
+    }
+  end
+  
+  after_body do
+    register_observers
+  end
+  
+  body {
+    shell(:no_resize) {
+      grid_layout(@game.width, true) {
+        margin_width 0
+        margin_height 0
+        horizontal_spacing 0
+        vertical_spacing 0
+      }
+    
+      # data-bind window title to game score, converting it to a title string on read from the model
+      text <= [@game, :score, on_read: -> (score) {"Snake (Score: #{@game.score})"}]
+      minimum_size @game.width * CELL_SIZE, @game.height * CELL_SIZE
+      
+      @game.height.times do |row|
+        @game.width.times do |column|
+          canvas {
+            layout_data {
+              width_hint CELL_SIZE
+              height_hint CELL_SIZE
+            }
+            
+            rectangle(0, 0, CELL_SIZE, CELL_SIZE) {
+              background <= [@grid.cells[row][column], :color] # data-bind square fill to grid cell color
+            }
+          }
+        end
+      end
+    }
+  }
+  
+  def register_observers
+    observe(@game, :over) do |game_over|
+      async_exec do
+        if game_over
+          message_box {
+            text 'Game Over!'
+            message "Score: #{@game.score} | High Score: #{@game.high_score}"
+          }.open
+          @game.start
+        end
+      end
+    end
+    
+    timer_exec(SNAKE_MOVE_DELAY, &method(:move_snake))
+  end
+  
+  def move_snake
+    unless @game.paused? || @game.over?
+      process_queued_keypress
+      @game.snake.move
+    end
+    timer_exec(SNAKE_MOVE_DELAY, &method(:move_snake))
+  end
+  
+  def process_queued_keypress
+    # key press queue ensures one turn per snake move to avoid a double-turn resulting in instant death (due to snake illogically going back against itself)
+    key = @keypress_queue.shift
+    if [@game.snake.head.orientation, key] == [:north, swt(:arrow_right)] ||
+       [@game.snake.head.orientation, key] == [:east, swt(:arrow_down)] ||
+       [@game.snake.head.orientation, key] == [:south, swt(:arrow_left)] ||
+       [@game.snake.head.orientation, key] == [:west, swt(:arrow_up)]
+      @game.snake.turn_right
+    elsif [@game.snake.head.orientation, key] == [:north, swt(:arrow_left)] ||
+          [@game.snake.head.orientation, key] == [:west, swt(:arrow_down)] ||
+          [@game.snake.head.orientation, key] == [:south, swt(:arrow_right)] ||
+          [@game.snake.head.orientation, key] == [:east, swt(:arrow_up)]
+      @game.snake.turn_left
+    end
+  end
+end
+
+Snake.launch

data/samples/elaborate/stock_ticker.rb

@@ -170,42 +170,42 @@ class StockTicker
                   }
                 end
                 
-                on_mouse_down {
+                on_mouse_down do
                   @drag_detected = false
-                }
+                end
                 
-                on_drag_detected { |drag_detect_event|
+                on_drag_detected do |drag_detect_event|
                   @drag_detected = true
                   @drag_start_x = drag_detect_event.x
                   @drag_start_y = drag_detect_event.y
-                }
+                end
                 
-                on_mouse_move { |mouse_event|
+                on_mouse_move do |mouse_event|
                   if @drag_detected
                     origin = tab[:scrolled_composite].origin
                     new_x = origin.x - (mouse_event.x - @drag_start_x)
                     new_y = origin.y - (mouse_event.y - @drag_start_y)
                     tab[:scrolled_composite].set_origin(new_x, new_y)
                   end
-                }
+                end
                 
-                on_mouse_up { |mouse_event|
+                on_mouse_up do |mouse_event|
                   @drag_detected = false
-                }
+                end
               }
             }
           }
         end
       }
     
-      on_swt_show {
+      on_swt_show do
         Stock.price_min = 25
         Stock.price_max = @tabs.first[:canvas].bounds.height - 6
-      }
+      end
       
-      on_widget_disposed {
+      on_widget_disposed do
         @thread.kill # safe to kill as data is in memory only
-      }
+      end
     }
   }
 end

data/samples/elaborate/tetris.rb

@@ -54,7 +54,7 @@ class Tetris
     Display.app_name = 'Glimmer Tetris'
 
     display {
-      on_swt_keydown { |key_event|
+      on_swt_keydown do |key_event|
         case key_event.keyCode
         when swt(:arrow_down), 's'.bytes.first
           if OS.mac?
@@ -88,16 +88,16 @@ class Tetris
             game.rotate!(:left)
           end
         end
-      }
+      end
 
       # if running in app mode, set the Mac app about dialog (ignored in platforms)
-      on_about {
+      on_about do
         show_about_dialog
-      }
+      end
       
-      on_quit {
+      on_quit do
         exit(0)
-      }
+      end
     }
   end
   
@@ -150,15 +150,15 @@ class Tetris
     icon_size = 8
     icon_pixel_size = icon_block_size * icon_size
     image(icon_pixel_size, icon_pixel_size) {
-      icon_size.times { |row|
-        icon_size.times { |column|
+      icon_size.times do |row|
+        icon_size.times do |column|
           colored = row >= 1 && column.between?(1, 6)
           color = colored ? color(([:white] + Model::Tetromino::LETTER_COLORS.values).sample) : color(:white)
           x = column * icon_block_size
           y = row * icon_block_size
           bevel(x: x, y: y, base_color: color, size: icon_block_size)
-        }
-      }
+        end
+      end
     }
   end
 

data/samples/elaborate/timer.rb

@@ -24,12 +24,13 @@ class Timer
     Display.setAppName('Glimmer Timer')
     
     @display = display {
-      on_about {
+      on_about do
         display_about_dialog
-      }
-      on_preferences {
+      end
+      
+      on_preferences do
         display_about_dialog
-      }
+      end
     }
 
     @min = 0
@@ -43,7 +44,7 @@ class Timer
       loop do
         sleep(1)
         if @countdown
-          sync_exec {
+          sync_exec do
             @countdown_time = Time.new(1, 1, 1, 0, min, sec)
             @countdown_time -= 1
             self.min = @countdown_time.min
@@ -52,7 +53,7 @@ class Timer
               stop_countdown
               play_countdown_done_sound
             end
-          }
+          end
         end
       end
     end
@@ -85,31 +86,34 @@ class Timer
           accelerator COMMAND_KEY, 's'
           enabled <= [self, :countdown, on_read: :!]
           
-          on_widget_selected {
+          on_widget_selected do
             start_countdown
-          }
+          end
         }
+        
         menu_item {
           text 'St&op'
           enabled <= [self, :countdown]
           accelerator COMMAND_KEY, 'o'
           
-          on_widget_selected {
+          on_widget_selected do
             stop_countdown
-          }
+          end
         }
+        
         unless OS.mac?
           menu_item(:separator)
           menu_item {
             text 'E&xit'
             accelerator :alt, :f4
             
-            on_widget_selected {
+            on_widget_selected do
               exit(0)
-            }
+            end
           }
         end
       }
+      
       menu {
         text '&Help'
                     
@@ -117,9 +121,9 @@ class Timer
           text '&About'
           accelerator COMMAND_KEY, :shift, 'a'
           
-          on_widget_selected {
+          on_widget_selected do
             display_about_dialog
-          }
+          end
         }
       }
     }
@@ -149,9 +153,10 @@ class Timer
         maximum 59
         selection <=> [self, :min]
         enabled <= [self, :countdown, on_read: :!]
-        on_widget_default_selected {
+        
+        on_widget_default_selected do
           start_countdown
-        }
+        end
       }
       label {
         text ':'
@@ -163,9 +168,10 @@ class Timer
         maximum 59
         selection <=> [self, :sec]
         enabled <= [self, :countdown, on_read: :!]
-        on_widget_default_selected {
+        
+        on_widget_default_selected do
           start_countdown
-        }
+        end
       }
     }
   end
@@ -179,22 +185,26 @@ class Timer
       @start_button = button {
         text '&Start'
         enabled <= [self, :countdown, on_read: :!]
-        on_widget_selected {
+        
+        on_widget_selected do
           start_countdown
-        }
-        on_key_pressed { |event|
+        end
+        
+        on_key_pressed do |event|
           start_countdown if event.keyCode == swt(:cr)
-        }
+        end
       }
       @stop_button = button {
         text 'St&op'
         enabled <= [self, :countdown]
-        on_widget_selected {
+        
+        on_widget_selected do
           stop_countdown
-        }
-        on_key_pressed { |event|
+        end
+        
+        on_key_pressed do |event|
           stop_countdown if event.keyCode == swt(:cr)
-        }
+        end
       }
     }
   end

data/samples/elaborate/user_profile.rb

@@ -32,49 +32,88 @@ shell { |shell_proxy|
     grid_layout 2, false
 
     group {
-      text "Name"
       grid_layout 2, false
+      
       layout_data :fill, :fill, true, true
-      label {text "First"}; text {text "Bullet"}
-      label {text "Last"}; text {text "Tooth"}
+      text "Name"
+      
+      label {
+        text "First"
+      }
+      text {
+        text "Bullet"
+      }
+      
+      label {
+        text "Last"
+      }
+      text {
+        text "Tooth"
+      }
     }
 
     group {
       layout_data :fill, :fill, true, true
       text "Gender"
-      radio {text "Male"; selection true}
-      radio {text "Female"}
+      
+      radio {
+        text "Male"
+        selection true
+      }
+      
+      radio {
+        text "Female"
+      }
     }
 
     group {
       layout_data :fill, :fill, true, true
       text "Role"
-      check {text "Student"; selection true}
-      check {text "Employee"; selection true}
+      
+      check {
+        text "Student"
+        selection true
+      }
+      
+      check {
+        text "Employee"
+        selection true
+      }
     }
 
     group {
-      text "Experience"
       row_layout
+      
       layout_data :fill, :fill, true, true
-      spinner {selection 5}; label {text "years"}
+      text "Experience"
+      
+      spinner {
+        selection 5
+      }
+      label {
+        text "years"
+      }
     }
 
     button {
-      text "save"
       layout_data :right, :center, true, true
-      on_widget_selected {
+      text "save"
+      
+      on_widget_selected do
         message_box {
           text 'Profile Saved!'
           message 'User profile has been saved!'
         }.open
-      }
+      end
     }
 
     button {
-      text "close"
       layout_data :left, :center, true, true
-      on_widget_selected { shell_proxy.close }
+      text "close"
+      
+      on_widget_selected do
+        shell_proxy.close
+      end
     }
   }
 }.open

data/samples/elaborate/weather.rb

@@ -62,13 +62,13 @@ class Weather
         
         text <=> [self, :city]
         
-        on_key_pressed {|event|
+        on_key_pressed do |event|
           if event.keyCode == swt(:cr) # carriage return
             Thread.new do
               fetch_weather!
             end
           end
-        }
+        end
       }
             
       tab_folder {

data/samples/hello/hello_button.rb

@@ -27,7 +27,7 @@ class HelloButton
   attr_accessor :count
   
   before_body do
-    @count = 0
+    self.count = 0
   end
   
   body {
@@ -37,9 +37,9 @@ class HelloButton
       button {
         text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
         
-        on_widget_selected {
+        on_widget_selected do
           self.count += 1
-        }
+        end
       }
     }
   }

data/samples/hello/hello_canvas_animation.rb

@@ -123,12 +123,12 @@ class HelloCanvasAnimation
           started        <=> [self, :animation_started]
           finished       <=> [self, :animation_finished]
           
-          frame { |index|
+          frame do |index|
             background rgb(index%100, index%100 + 100, index%55 + 200)
             oval(index*3%300, index*3%300, 20, 20) {
               background :yellow
             }
-          }
+          end
         }
       }
     }

data/samples/hello/hello_color_dialog.rb

@@ -47,18 +47,18 @@ class HelloColorDialog
         layout_data :center, :center, true, false
         background <=> [self, :selected_color]
         
-        on_mouse_up {
+        on_mouse_up do
           self.selected_color = color_dialog.open
-        }
+        end
       }
       
       button {
         layout_data :center, :center, true, false
         text "Choose Color..."
         
-        on_widget_selected {
+        on_widget_selected do
           self.selected_color = color_dialog.open
-        }
+        end
       }
       
     }

data/samples/hello/hello_custom_shell.rb

@@ -140,7 +140,7 @@ class HelloCustomShell
         
         items <=> [@email_system, :emails, column_properties: [:date, :subject, :from]]
         
-        on_mouse_up { |event|
+        on_mouse_up do |event|
           email = event.table_item.get_data
           
           # open a custom email shell
@@ -151,7 +151,7 @@ class HelloCustomShell
             from: email.from,
             message: email.message
           ).open
-        }
+        end
       }
     }.open
   end

data/samples/hello/hello_dialog.rb

@@ -38,7 +38,7 @@ shell { |shell_proxy|
       }
       text "Dialog #{dialog_number}"
       
-      on_widget_selected {
+      on_widget_selected do
         # pass the shell proxy as a parent to make the dialog support hitting the escape button for closing alone without closing app
         dialog(shell_proxy) { |dialog_proxy|
           row_layout(:vertical) {
@@ -70,12 +70,12 @@ shell { |shell_proxy|
           button {
             text 'Close'
             
-            on_widget_selected {
+            on_widget_selected do
               dialog_proxy.close
-            }
+            end
           }
         }.open
-      }
+      end
     }
   }
 }.open

data/samples/hello/hello_directory_dialog.rb

@@ -51,9 +51,9 @@ class HelloDirectoryDialog
       button {
         text "Browse..."
         
-        on_widget_selected {
+        on_widget_selected do
           self.selected_directory = directory_dialog.open
-        }
+        end
       }
     }
   }

data/samples/hello/hello_expand_bar.rb

@@ -96,14 +96,13 @@ class HelloExpandBar
           composite # just filler
         }
         
-        on_item_expanded { |expand_event|
+        on_item_expanded do |expand_event|
           @status_label.text = "#{expand_event.item.text} Expanded!"
-        }
+        end
         
-        on_item_collapsed { |expand_event|
+        on_item_collapsed do |expand_event|
           @status_label.text = "#{expand_event.item.text} Collapsed!"
-        }
-        
+        end
       }
     }
   }