glimmer-dsl-swt 4.20.13.9 → 4.20.13.13

data/samples/elaborate/calculator.rb

@@ -15,7 +15,7 @@ class Calculator
 
   attr_reader :presenter
 
-  before_body {
+  before_body do
     @presenter = Model::Presenter.new
     
     Display.setAppName('Glimmer Calculator')
@@ -30,7 +30,7 @@ class Calculator
         display_about_dialog
       }
     }
-  }
+  end
 
   body {
     shell {

data/samples/elaborate/contact_manager.rb

@@ -26,10 +26,10 @@ require_relative "contact_manager/contact_manager_presenter"
 class ContactManager
   include Glimmer::UI::CustomShell
 
-  before_body {
+  before_body do
     @contact_manager_presenter = ContactManagerPresenter.new
     @contact_manager_presenter.list
-  }
+  end
 
   body {
     shell {

data/samples/elaborate/game_of_life.rb

@@ -0,0 +1,111 @@
+# 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_relative 'game_of_life/model/grid'
+
+class GameOfLife
+  include Glimmer::UI::CustomShell
+  
+  WIDTH = 20
+  HEIGHT = 20
+  CELL_WIDTH = 25
+  CELL_HEIGHT = 25
+  
+  before_body do
+    @grid = GameOfLife::Model::Grid.new(WIDTH, HEIGHT)
+  end
+  
+  body {
+    shell {
+      row_layout :vertical
+      text "Conway's Game of Life (Glimmer Edition)"
+    
+      canvas {
+        layout_data {
+          width WIDTH*CELL_WIDTH
+          height HEIGHT*CELL_HEIGHT
+        }
+        (0...HEIGHT).each do |row_index|
+          (0...WIDTH).each do |column_index|
+            rectangle(column_index*CELL_WIDTH, row_index*CELL_HEIGHT, CELL_WIDTH, CELL_HEIGHT) {
+              background <= [@grid.cell_rows[row_index][column_index], "alive", on_read: ->(a) {a ? :black : :white}]
+              
+              on_mouse_down {
+                @grid.cell_rows[row_index][column_index].toggle_aliveness!
+              }
+            }
+          end
+        end
+      }
+        
+      composite {
+        row_layout(:horizontal) {
+          margin_width 0
+        }
+                
+        button {
+          text 'Step'
+          enabled <= [@grid, :playing, on_read: :! ]
+          
+          on_widget_selected {
+            @grid.step!
+          }
+        }
+        
+        button {
+          text 'Clear'
+          enabled <= [@grid, :playing, on_read: :! ]
+          
+          on_widget_selected {
+            @grid.clear!
+          }
+        }
+                
+        button {
+          text <= [@grid, :playing, on_read: ->(p) { p ? 'Stop' : 'Play' }]
+          
+          on_widget_selected {
+            @grid.toggle_playback!
+          }
+        }
+  
+        label {
+          text 'Slower'
+        }
+              
+        scale {
+          minimum 1
+          maximum 100
+          selection <=> [@grid, :speed]
+        }
+          
+        label {
+          text 'Faster'
+        }
+          
+      }
+    }
+  }
+end
+
+GameOfLife.launch

data/samples/elaborate/game_of_life/model/cell.rb

@@ -0,0 +1,72 @@
+# 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.
+
+class GameOfLife
+  module Model
+    class Cell
+      attr_reader :grid, :row_index, :column_index
+      attr_accessor :alive
+      alias alive? alive
+    
+      def initialize(grid, row_index, column_index, alive=false)
+        @grid = grid
+        @row_index = row_index
+        @column_index = column_index
+        @alive = alive
+      end
+      
+      def live!
+        self.alive = true
+      end
+      
+      def die!
+        self.alive = false
+      end
+      
+      def toggle_aliveness!
+        return if grid.playing?
+        dead ? live! : die!
+      end
+      
+      def dead?
+        !alive?
+      end
+      alias dead dead?
+      
+      # step into the next generation
+      def step!
+        self.alive = (alive? && alive_neighbor_count.between?(2, 3)) || (dead? && alive_neighbor_count == 3)
+      end
+      
+      def alive_neighbor_count
+        [row_index - 1, 0].max.upto([row_index + 1, grid.row_count - 1].min).map do |current_row_index|
+          [column_index - 1, 0].max.upto([column_index + 1, grid.column_count - 1].min).map do |current_column_index|
+            if current_row_index == row_index && current_column_index == column_index
+              0
+            else
+              grid.previous_cell_rows[current_row_index][current_column_index].alive? ? 1 : 0
+            end
+          end
+        end.flatten.reduce(:+)
+      end
+    end
+  end
+end

data/samples/elaborate/game_of_life/model/grid.rb

@@ -0,0 +1,97 @@
+# 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_relative 'cell'
+
+class GameOfLife
+  module Model
+    class Grid
+      include Glimmer # included only to utilize sync_exec/async_exec
+      DEFAULT_ROW_COUNT = 100
+      DEFAULT_COLUMN_COUNT = 100
+      
+      attr_reader :row_count, :column_count
+      attr_accessor :cell_rows, :previous_cell_rows, :playing, :speed
+      alias playing? playing
+    
+      def initialize(row_count=DEFAULT_ROW_COUNT, column_count=DEFAULT_COLUMN_COUNT)
+        @row_count = row_count
+        @column_count = column_count
+        @speed = 1.0
+        build_cells
+      end
+      
+      def clear!
+        cell_rows.each do |row|
+          row.each do |cell|
+            cell.die!
+          end
+        end
+      end
+      
+      # steps into the next generation of cells given their current neighbors
+      def step!
+        self.previous_cell_rows = cell_rows.map do |row|
+          row.map do |cell|
+            cell.clone
+          end
+        end
+        cell_rows.each do |row|
+          row.each do |cell|
+            cell.step!
+          end
+        end
+      end
+      
+      def toggle_playback!
+        if playing?
+          stop!
+        else
+          play!
+        end
+      end
+      
+      def play!
+        self.playing = true
+        Thread.new do
+          while @playing
+            sync_exec { step! }
+            sleep(1.0/@speed)
+          end
+        end
+      end
+      
+      def stop!
+        self.playing = false
+      end
+      
+      private
+      
+      def build_cells
+        @cell_rows = @row_count.times.map do |row_index|
+          @column_count.times.map do |column_index|
+            Cell.new(self, row_index, column_index)
+          end
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/klondike_solitaire.rb

@@ -15,17 +15,7 @@ class KlondikeSolitaire
   TABLEAU_WIDTH = 2*MARGIN + 7*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING)
   TABLEAU_HEIGHT = 400
 
-
-  ## Add options like the following to configure CustomShell by outside consumers
-  #
-  # options :title, :background_color
-  # option :width, default: 320
-  # option :height, default: 240
-
-  ## Use before_body block to pre-initialize variables to use in body
-  #
-  #
-  before_body {
+  before_body do
     @game = Model::Game.new
     Display.app_name = 'Glimmer Klondike Solitaire'
     @display = display {
@@ -36,19 +26,10 @@ class KlondikeSolitaire
         display_about_dialog
       }
     }
-  }
-
-  ## Use after_body block to setup observers for widgets in body
-  #
-  # after_body {
-  #
-  # }
+  end
 
-  ## Add widget content inside custom shell body
-  ## Top-most widget must be a shell or another custom shell
-  #
   body {
-    shell(:no_resize) {
+    shell {
       row_layout(:vertical) {
         fill true
         center true

data/samples/elaborate/klondike_solitaire/view/empty_playing_card.rb

@@ -5,10 +5,15 @@ class KlondikeSolitaire
     class EmptyPlayingCard
       include Glimmer::UI::CustomShape
       
-      option :suit
-  
+      options :card_x, :card_y, :suit
+      
+      before_body do
+        self.card_x ||= 0
+        self.card_y ||= 0
+      end
+      
       body {
-        rectangle(0, 0, 49, 79, 15, 15) {
+        rectangle(card_x, card_y, 49, 79, 15, 15) {
           foreground :gray
           
           if suit

data/samples/elaborate/klondike_solitaire/view/foundation_pile.rb

@@ -10,12 +10,12 @@ class KlondikeSolitaire
       
       attr_accessor :current_image, :model
       
-      before_body {
+      before_body do
         self.current_image = image(50, 80) {empty_playing_card(suit: suit)}
         self.model = game.foundation_piles[Model::PlayingCard::SUITS.index(suit)]
-      }
+      end
   
-      after_body {
+      after_body do
         observe(model, 'playing_cards.last') do |last_card|
           if last_card
             body_root.content {
@@ -28,7 +28,7 @@ class KlondikeSolitaire
             }
           end
         end
-      }
+      end
       
       body {
         shape(pile_x, pile_y) {

data/samples/elaborate/klondike_solitaire/view/hidden_playing_card.rb

@@ -3,8 +3,15 @@ class KlondikeSolitaire
     class HiddenPlayingCard
       include Glimmer::UI::CustomShape
   
+      options :card_x, :card_y
+      
+      before_body do
+        self.card_x ||= 0
+        self.card_y ||= 0
+      end
+      
       body {
-        rectangle(0, 0, 49, 79, 15, 15) {
+        rectangle(card_x, card_y, 49, 79, 15, 15) {
           background :red
           
           # border

data/samples/elaborate/klondike_solitaire/view/playing_card.rb

@@ -5,10 +5,10 @@ class KlondikeSolitaire
   
       options :card_x, :card_y, :model, :parent_pile
       
-      before_body {
+      before_body do
         self.card_x ||= 0
         self.card_y ||= 0
-      }
+      end
   
       body {
         rectangle(card_x, card_y, 49, 79, 15, 15) {

data/samples/elaborate/login.rb

@@ -65,9 +65,9 @@ end
 class Login
   include Glimmer::UI::CustomShell
 
-  before_body {
+  before_body do
     @presenter = LoginPresenter.new
-  }
+  end
 
   body {
     shell {