glimmer-dsl-swt 4.20.13.8 → 4.20.13.12

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

@@ -11,17 +11,11 @@ class KlondikeSolitaire
   PLAYING_CARD_WIDTH = 50
   PLAYING_CARD_HEIGHT = 80
   PLAYING_CARD_SPACING = 5
+  MARGIN = 15
+  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 {
@@ -32,36 +26,49 @@ 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) {
       row_layout(:vertical) {
         fill true
         center true
+        margin_width 0
+        margin_height 0
+        margin_top 15
       }
-      minimum_size 400, 400
+      minimum_size TABLEAU_WIDTH, TABLEAU_HEIGHT
       text "Glimmer Klondike Solitaire"
       background :dark_green
     
       action_panel(game: @game)
       tableau(game: @game) {
         layout_data {
-          width 380
-          height 400
+          width TABLEAU_WIDTH
+          height TABLEAU_HEIGHT
         }
       }
       
       menu_bar {
+        menu {
+          text '&Game'
+          menu_item {
+            text '&Restart'
+            accelerator (OS.mac? ? :command : :ctrl), :r
+            
+            on_widget_selected {
+              @game.restart!
+            }
+          }
+          menu_item {
+            text 'E&xit'
+            accelerator :alt, :f4
+            
+            on_widget_selected {
+              body_root.close
+            }
+          }
+        }
         menu {
           text '&Help'
           menu_item {

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

@@ -22,6 +22,34 @@ class KlondikeSolitaire
             new(rank, suit)
           end
         end
+        
+        def rank_text(rank)
+          case rank
+          when 1
+            'A'
+          when 11
+            'J'
+          when 12
+            'Q'
+          when 13
+            'K'
+          else
+            rank
+          end
+        end
+        
+        def suit_text(suit)
+          case suit
+          when :spades
+            "♠"
+          when :hearts
+            "♥"
+          when :clubs
+            "♣"
+          when :diamonds
+            "♦"
+          end
+        end
       end
       
       attr_reader :rank, :suit
@@ -45,6 +73,14 @@ class KlondikeSolitaire
       def to_s
         "Playing Card #{rank}#{suit.to_s[0].upcase}"
       end
+      
+      def suit_text
+        self.class.suit_text(suit)
+      end
+      
+      def rank_text
+        self.class.rank_text(rank)
+      end
     end
   end
 end

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

@@ -1,20 +1,28 @@
+require_relative '../model/playing_card'
+
 class KlondikeSolitaire
   module View
     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
             text {
-              string suit.to_s[0].upcase
+              string Model::PlayingCard.suit_text(suit)
               x :default
               y :default
               is_transparent true
+              foreground Model::PlayingCard::BLACK_SUITS.include?(suit) ? :black : :red
             }
           end
         }

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) {
@@ -21,7 +21,7 @@ class KlondikeSolitaire
           
           unless model.hidden?
             text {
-              string model ? "#{model.rank} #{model.suit.to_s[0].upcase}" : ""
+              string model ? "#{model.rank_text}#{model.suit_text}" : ""
               x 5
               y 5
               foreground model ? model.color : :transparent

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

@@ -18,14 +18,14 @@ class KlondikeSolitaire
           
           # row 1
           @foundation_piles = Model::PlayingCard::SUITS.each_with_index.map do |suit, i|
-            foundation_pile(pile_x: i*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, game: game, suit: suit)
+            foundation_pile(pile_x: MARGIN + i*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, game: game, suit: suit)
           end
-          @dealt_pile = dealt_pile(pile_x: 5*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealt_pile)
-          @dealing_pile = dealing_pile(pile_x: 6*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealing_pile)
+          @dealt_pile = dealt_pile(pile_x: MARGIN + 5*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealt_pile)
+          @dealing_pile = dealing_pile(pile_x: MARGIN + 6*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealing_pile)
           
           # row 2
           @column_piles = 7.times.map do |n|
-            column_pile(pile_x: n*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: PLAYING_CARD_HEIGHT + PLAYING_CARD_SPACING, model: game.column_piles[n])
+            column_pile(pile_x: MARGIN + n*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: PLAYING_CARD_HEIGHT + PLAYING_CARD_SPACING, model: game.column_piles[n])
           end
           
           on_mouse_up do |event|

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 {

data/samples/elaborate/mandelbrot_fractal.rb

@@ -149,33 +149,33 @@ class MandelbrotFractal
       
   option :zoom, default: 1.0
   
-  before_body {
+  before_body do
     Display.app_name = 'Mandelbrot Fractal'
     # pre-calculate mandelbrot image
     @mandelbrot_image = build_mandelbrot_image
-  }
+  end
   
-  after_body {
-    observe(Mandelbrot, :work_in_progress) {
+  after_body do
+    observe(Mandelbrot, :work_in_progress) do
       update_mandelbrot_shell_title!
-    }
-    observe(Mandelbrot, :zoom) {
+    end
+    observe(Mandelbrot, :zoom) do
       update_mandelbrot_shell_title!
-    }
+    end
     # pre-calculate zoomed mandelbrot images even before the user zooms in
     puts 'Starting background calculation thread...'
-    @thread = Thread.new {
+    @thread = Thread.new do
       future_zoom = 1.5
-      loop {
+      loop do
         puts "Creating mandelbrot for background calculation at zoom: #{future_zoom}"
         the_mandelbrot = Mandelbrot.for(max_iterations: color_palette.size - 1, zoom: future_zoom, background: true)
         pixels = the_mandelbrot.calculate_points
         build_mandelbrot_image(mandelbrot_zoom: future_zoom)
         @canvas.cursor = :cross unless @canvas.disposed?
         future_zoom += 0.5
-      }
-    }
-  }
+      end
+    end
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/meta_sample.rb

@@ -192,13 +192,13 @@ end
 class MetaSampleApplication
   include Glimmer::UI::CustomShell
   
-  before_body {
+  before_body do
     Sample.ensure_user_glimmer_directory
     selected_sample_directory = SampleDirectory.sample_directories.first
     selected_sample = selected_sample_directory.samples.first
     selected_sample_directory.selected_sample_name = selected_sample.name
     Display.app_name = 'Glimmer Meta-Sample'
-  }
+  end
   
   body {
     shell(:fill_screen) {

data/samples/elaborate/metronome.rb

@@ -64,9 +64,9 @@ class Metronome
       
   attr_accessor :rhythm
   
-  before_body {
+  before_body do
     @rhythm = Rhythm.new(4)
-  }
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/stock_ticker.rb

@@ -65,7 +65,7 @@ class StockTicker
   
   include Glimmer::UI::CustomShell
   
-  before_body {
+  before_body do
     @stocks = [
       Stock.new('DELL', 81),
       Stock.new('AAPL', 121),
@@ -126,16 +126,16 @@ class StockTicker
         end
       end
     end
-  }
+  end
   
-  after_body {
-    @thread = Thread.new {
-      loop {
+  after_body do
+    @thread = Thread.new do
+      loop do
         @stocks.each(&:tick!)
         sleep(0.01)
-      }
-    }
-  }
+      end
+    end
+  end
   
   body {
     shell {