glimmer-dsl-swt 4.20.13.10 → 4.20.13.14

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 982e9293313f88fc19f63d148e0b59b1dcda227e25bc47d9eb07377359b90084
-  data.tar.gz: c90ad4be0b5ebf2aaa28b5b0376934e518f7fbe878a3ecb4a37982fa5feac554
+  metadata.gz: 9e7f58c70a78eb8867dd0116be71fb75a3a369deeb7f5676c673dde098304d55
+  data.tar.gz: '078a62bf56f74b1e156ef520d39c37e15b2324367bd813d0dd6a2a3f66e52e2d'
 SHA512:
-  metadata.gz: 6946dfd8d245a2ef28df3df0c7eb3b74213f4c912c69a6de5ce0bd4f42d7b69f87671df845a816c532d6b580bd0f9da535639368aba6ed0abd76d689c66ded07
-  data.tar.gz: c630515458b13ab4b08c6c662c27759c9a0adb8903e5f0a5e20aba958792d3949f48ae47d9849ffddbe52d4a7b33887955979d76ffe6223871cc51e8f844c443
+  metadata.gz: 4bb4fc88a86497ce00a50735ee2c189d9fdfb1698e8fa568e1ddad2565809d40e8602bf309fd29efc933481fe3f7d142c50ba80ee7d571dd2eb7c6d0e4dba405
+  data.tar.gz: c43f3edbc949886f21029c429229b73b4f5c08a89af9f7ad42a02539de8a8bc842eff606ccd090609fe05802cc9685499390bd1997f813be714e730ba2f8f801

data/CHANGELOG.md

@@ -1,5 +1,22 @@
 # Change Log
 
+### 4.20.13.14
+
+- Connect 4 elaborate sample
+
+### 4.20.13.13
+
+- Parking elaborate sample
+- Support shape contain?/include? when a transform (e.g. rotation) is applied
+
+### 4.20.13.12
+
+- Fixed issue with dragged shapes having `drag_source true` not going back to original position when not dropped in a target if they were part of a composite shape
+
+### 4.20.13.11
+
+- Conway's Game of Life elaborate sample
+
 ### 4.20.13.10
 
 - Update Glimmer Style Guide, scaffolding, and samples to have `before_body` and `after_body` in custom widgets/shells/shapes always take a `do; end` block since they contain logic not visuals

data/README.md

@@ -1,4 +1,4 @@
-# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for SWT 4.20.13.10
+# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for SWT 4.20.13.14
 ## JRuby Desktop Development GUI Framework
 [![Gem Version](https://badge.fury.io/rb/glimmer-dsl-swt.svg)](http://badge.fury.io/rb/glimmer-dsl-swt)
 [![Travis CI](https://travis-ci.com/AndyObtiva/glimmer-dsl-swt.svg?branch=master)](https://travis-ci.com/github/AndyObtiva/glimmer-dsl-swt)
@@ -15,7 +15,7 @@
 [<img src="https://covers.oreillystatic.com/images/9780596519650/lrg.jpg" width=105 /><br />
 Featured in JRuby Cookbook](http://shop.oreilly.com/product/9780596519650.do) and [Chalmers/Gothenburg University Software Engineering Master's Lecture Material](http://www.cse.chalmers.se/~bergert/slides/guest_lecture_DSLs.pdf)
 
-[Glimmer DSL for SWT](https://rubygems.org/gems/glimmer-dsl-swt) 4.20.13.10 includes [SWT 4.20](https://download.eclipse.org/eclipse/downloads/drops4/R-4.20-202106111600/), which was released on June 11, 2021. Gem version numbers are in sync with the SWT library versions. The first two digits represent the SWT version number. The last two digits represent the minor and patch versions of Glimmer DSL for SWT. Note that SWT now supports AARCH64 on Mac and Linux, but it is not fully tested in Glimmer DSL for SWT yet, so deem its support experimental for the time being without guarantees for functionality until declared otherwise (report any issues you may encounter).
+[Glimmer DSL for SWT](https://rubygems.org/gems/glimmer-dsl-swt) 4.20.13.14 includes [SWT 4.20](https://download.eclipse.org/eclipse/downloads/drops4/R-4.20-202106111600/), which was released on June 11, 2021. Gem version numbers are in sync with the SWT library versions. The first two digits represent the SWT version number. The last two digits represent the minor and patch versions of Glimmer DSL for SWT. Note that SWT now supports AARCH64 on Mac and Linux, but it is not fully tested in Glimmer DSL for SWT yet, so deem its support experimental for the time being without guarantees for functionality until declared otherwise (report any issues you may encounter).
 
 **Starting in version 4.20.0.0, [Glimmer DSL for SWT](https://rubygems.org/gems/glimmer-dsl-swt) comes with the new [***Shine***](/docs/reference/GLIMMER_GUI_DSL_SYNTAX.md#shine) syntax** for highly intuitive and visually expressive View/Model Attribute Mapping, relying on `<=>` for bidirectional (two-way) data-binding and `<=` for unidirectional (one-way) data-binding, providing an alternative to the `bind` keyword (keep in mind that it is still a beta, so default back to `bind` whenever needed).
 
@@ -326,7 +326,7 @@ jgem install glimmer-dsl-swt
 
 Or this command if you want a specific version:
 ```
-jgem install glimmer-dsl-swt -v 4.20.13.10
+jgem install glimmer-dsl-swt -v 4.20.13.14
 ```
 
 `jgem` is JRuby's version of `gem` command.
@@ -354,7 +354,7 @@ Note: if you're using activerecord or activesupport, keep in mind that Glimmer u
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-swt', '~> 4.20.13.10'
+gem 'glimmer-dsl-swt', '~> 4.20.13.14'
 ```
 
 And, then run:
@@ -375,7 +375,7 @@ glimmer
 ```
 
 ```
-Glimmer (JRuby Desktop Development GUI Framework) - JRuby Gem: glimmer-dsl-swt v4.20.13.10
+Glimmer (JRuby Desktop Development GUI Framework) - JRuby Gem: glimmer-dsl-swt v4.20.13.14
       
 Usage: glimmer [--bundler] [--pd] [--quiet] [--debug] [--log-level=VALUE] [[ENV_VAR=VALUE]...] [[-jruby-option]...] (application.rb or task[task_args]) [[application2.rb]...]
 

data/VERSION

@@ -1 +1 @@
-4.20.13.10
+4.20.13.14

data/docs/reference/GLIMMER_SAMPLES.md

@@ -60,10 +60,13 @@
     - [User Profile](#user-profile)
     - [Login](#login)
     - [Tic Tac Toe](#tic-tac-toe)
+    - [Connect 4](#connect-4)
     - [Contact Manager](#contact-manager)
+    - [Game of Life](#game-of-life)
     - [Glimmer Tetris](#glimmer-tetris)
     - [Klondike Solitaire](#klondike-solitaire)
     - [Mandelbrot Fractal](#mandelbrot-fractal)
+    - [Parking](#parking)
     - [Stock Ticker](#stock-ticker)
     - [Metronome](#metronome)
     - [Weather](#weather)
@@ -1043,6 +1046,34 @@ Code:
 ![Tic Tac Toe In Progress](/images/glimmer-tic-tac-toe-in-progress.png)
 ![Tic Tac Toe Game Over](/images/glimmer-tic-tac-toe-game-over.png)
 
+#### Connect 4
+
+This sample demonstrates a widget/shape hybrid MVC application, including GUI layout and data-binding.
+
+Code:
+
+[samples/elaborate/connect4.rb](/samples/elaborate/connect4.rb)
+
+Connect 4
+
+![Connect 4](/images/glimmer-connect4.png)
+
+Connect 4 - About To Drop
+
+![Connect 4 About To Drop](/images/glimmer-connect4-about-to-drop.png)
+
+Connect 4 - Dropped Coin
+
+![Connect 4 Dropped Coin](/images/glimmer-connect4-dropped-coin.png)
+
+Connect 4 - Player 1 Wins
+
+![Connect 4 Player 1 Wins](/images/glimmer-connect4-player1-wins.png)
+
+Connect 4 - Game Over Message Box
+
+![Connect 4 Game Over Message Box](/images/glimmer-connect4-game-over-dialog.png)
+
 #### Contact Manager
 
 This sample demonstrates table data-binding, sorting, filtering, GUI layout, MVP pattern, and test-driven development (has [specs](https://github.com/AndyObtiva/glimmer-dsl-swt/blob/master/spec/samples/elaborate/contact_manager/contact_manager_presenter_spec.rb)).
@@ -1071,6 +1102,16 @@ Contact Manager - Edit Done
 
 ![Contact Manager](/images/glimmer-contact-manager-edit-done.png)
 
+#### Game of Life
+
+This sample demonstrates how to build an interactive canvas-based visualization of Conway's Game of Life ([test-first](https://github.com/AndyObtiva/glimmer-dsl-swt/blob/master/spec/samples/elaborate/game_of_life/model/grid_spec.rb)), taking advantage of data-binding and multi-threading.
+
+Code:
+
+[samples/elaborate/game_of_life.rb](/samples/elaborate/game_of_life.rb)
+
+![Game of Life](/images/glimmer-game-of-life.gif)
+
 #### Glimmer Tetris
 
 This sample demonstrates how to build an interactive animated game with MVC architecture, custom-shell/custom-widgets, multi-threading, asynchronous programming, data-binding, canvas shape graphic decorations, canvas shape icon image generation, and keyboard events/shortcuts.
@@ -1101,15 +1142,15 @@ Code:
 
 #### Klondike Solitaire
 
-This sample demonstrates how to build an interactive card game with MVC architecture, custom-shell/custom-widgets, data-binding, observers, and drag & drop.
+This sample demonstrates how to build an interactive card game with MVC architecture, canvas, custom-shapes, data-binding, observers, and drag & drop.
 
 Code:
 
 [samples/elaborate/klondike_solitaire.rb](/samples/elaborate/klondike_solitaire.rb)
 
-![Tetris](/images/glimmer-klondike-solitaire.png)
+![Klondike Solitaire](/images/glimmer-klondike-solitaire.png)
 
-![Tetris](/images/glimmer-klondike-solitaire-played.png)
+![Klondike Solitaire Played](/images/glimmer-klondike-solitaire-played.png)
 
 #### Mandelbrot Fractal
 
@@ -1137,6 +1178,28 @@ Code:
 
 ![Mandelbrot Fractal Help Menu](/images/glimmer-mandelbrot-menu-help.png)
 
+#### Parking
+
+This sample demonstrates how to use method-based custom shapes and how to take advantage of transforms (e.g. rotation).
+
+It enables booking a parking spot at the entrance of a building's parking, which in a real scenario would have prompted for payment too.
+
+Code:
+
+[samples/elaborate/parking.rb](/samples/elaborate/parking.rb)
+
+Parking
+
+![Parking](/images/glimmer-parking.png)
+
+Parking Floor 4
+
+![Parking Floor 4](/images/glimmer-parking-floor4.png)
+
+Parking Booked
+
+![Parking Booked](/images/glimmer-parking-booked.png)
+
 #### Stock Ticker
 
 This sample demonstrates a Stock Ticker that generates random stock price data for 4 different stocks and provides 4 different tab views of the graphed data using the [Canvas Path DSL](/docs/reference/GLIMMER_GUI_DSL_SYNTAX.md#canvas-path-dsl). It leverages a thread that runs in the background and ticks the stocks to generate random new stock prices before amending the graphed paths with them.

data/lib/glimmer-dsl-swt.rb

@@ -38,6 +38,7 @@ require 'super_module'
 require 'date'
 require 'facets/string/capitalized'
 require 'facets/hash/symbolize_keys'
+require 'matrix'
 
 # Internal requires
 require 'ext/glimmer/config'

data/lib/glimmer/swt/custom/drawable.rb

@@ -62,6 +62,7 @@ module Glimmer
           # Optimize further by having a collection of disposable_shapes independent of shapes, which is much smaller and only has shapes that require disposal (shapes with patterns or image)
           shapes.dup.each {|s| s.dispose(dispose_images: dispose_images, dispose_patterns: dispose_patterns) } if requires_shape_disposal?
         end
+        alias dispose_shapes clear_shapes
         
         def paint_pixel_by_pixel(width = nil, height = nil, &each_pixel_color)
           if @image_double_buffered

data/lib/glimmer/swt/custom/shape.rb

@@ -216,6 +216,7 @@ module Glimmer
         # Subclasses (like polygon) may override to indicate if a point x,y coordinates falls inside the shape
         # some shapes may choose to provide a fuzz factor to make usage of this method for mouse clicking more user friendly
         def contain?(x, y)
+          x, y = inverse_transform_point(x, y)
           # assume a rectangular filled shape by default (works for several shapes like image, text, and focus)
           x.between?(self.absolute_x, self.absolute_x + calculated_width.to_f) && y.between?(self.absolute_y, self.absolute_y + calculated_height.to_f)
         end
@@ -232,6 +233,24 @@ module Glimmer
           included = include?(x, y)
           included ||= expanded_shapes.reject {|shape| shape == except_child}.detect { |shape| shape.include?(x, y) }
         end
+        
+        # if there is a transform, invert it and apply on x, y point coordinates
+        def inverse_transform_point(x, y)
+          current_transform = (transform || parent_shape_containers.map(&:transform).first)&.first
+          if current_transform
+            transform_array = [1,2,3,4,5,6].to_java(:float)
+            current_transform.getElements(transform_array)
+            inverse_transform = TransformProxy.new(DisplayProxy.instance.swt_display, *transform_array.to_a)
+            inverse_transform_array = [1,2,3,4,5,6].to_java(:float)
+            inverse_transform.getElements(inverse_transform_array)
+            matrix = Matrix[[inverse_transform_array[0], inverse_transform_array[1]], [inverse_transform_array[2], inverse_transform_array[3]]]
+            result = matrix * Matrix.column_vector([x, y])
+            x, y = result.to_a.flatten
+            x += inverse_transform_array[5]
+            y += inverse_transform_array[4]
+          end
+          [x, y]
+        end
 
         # Indicates if a shape's x, y, width, height differ from its bounds calculation (e.g. arc / polygon)
         def irregular?
@@ -713,7 +732,7 @@ module Glimmer
               end
             end
             @drawable_on_mouse_up = drawable.handle_observation_request('on_mouse_up') do |event|
-              if Shape.dragging && Shape.dragged_shape == self && !Shape.drop_shapes.detect {|shape| shape.include_with_children?(event.x, event.y)}
+              if Shape.dragging && Shape.dragged_shape == self && !Shape.drop_shapes.detect {|shape| shape.include_with_children?(event.x, event.y, except_child: Shape.dragged_shape)}
                 Shape.dragging = false
                 Shape.dragged_shape.x = Shape.dragged_shape_original_x
                 Shape.dragged_shape.y = Shape.dragged_shape_original_y

data/lib/glimmer/swt/custom/shape/arc.rb

@@ -53,6 +53,7 @@ module Glimmer
             
           # checks if shape contains the point denoted by x and y
           def contain?(x, y)
+            x, y = inverse_transform_point(x, y)
             geometry.contains(x, y)
           end
           
@@ -60,6 +61,7 @@ module Glimmer
             if filled?
               contain?(x, y)
             else
+              x, y = inverse_transform_point(x, y)
               # give it some fuzz to allow a larger region around the drawn oval to accept including a point (helps with mouse clickability on a shape)
               outer_shape_geometry = java.awt.geom.Arc2D::Double.new(self.absolute_x, self.absolute_y, calculated_width + 3, calculated_height + 3, start_angle, arc_angle, java.awt.geom.Arc2D::PIE)
               inner_shape_geometry = java.awt.geom.Arc2D::Double.new(self.absolute_x, self.absolute_y, calculated_width - 3, calculated_height - 3, start_angle, arc_angle, java.awt.geom.Arc2D::PIE)

data/lib/glimmer/swt/custom/shape/cubic.rb

@@ -55,6 +55,7 @@ module Glimmer
         
           # checks if drawn or filled rectangle includes the point denoted by x and y (if drawn, it only returns true if point lies on the edge)
           def include?(x, y, filled: nil)
+            x, y = inverse_transform_point(x, y)
             filled = filled? if filled.nil?
             makeshift_gc = org.eclipse.swt.graphics.GC.new(Glimmer::SWT::DisplayProxy.instance.swt_display)
             swt_path = org.eclipse.swt.graphics.Path.new(Glimmer::SWT::DisplayProxy.instance.swt_display)

data/lib/glimmer/swt/custom/shape/line.rb

@@ -123,6 +123,7 @@ module Glimmer
           end
           
           def include?(x, y)
+            x, y = inverse_transform_point(x, y)
             # TODO must account for line width
             Line.include?(absolute_x1, absolute_y1, absolute_x2, absolute_y2, x, y)
           end

data/lib/glimmer/swt/custom/shape/oval.rb

@@ -39,6 +39,7 @@ module Glimmer
           
           # checks if shape contains the point denoted by x and y
           def contain?(x, y)
+            x, y = inverse_transform_point(x, y)
             shape_geometry = java.awt.geom.Ellipse2D::Double.new(self.absolute_x, self.absolute_y, calculated_width, calculated_height)
             shape_geometry.contains(x, y)
           end
@@ -48,6 +49,7 @@ module Glimmer
             if filled?
               contain?(x, y)
             else
+              x, y = inverse_transform_point(x, y)
               # give it some fuzz to allow a larger region around the drawn oval to accept including a point (helps with mouse clickability on a shape)
               outer_shape_geometry = java.awt.geom.Ellipse2D::Double.new(self.absolute_x - 3, self.absolute_y - 3, calculated_width + 6, calculated_height + 6)
               inner_shape_geometry = java.awt.geom.Ellipse2D::Double.new(self.absolute_x + 3, self.absolute_y + 3, calculated_width - 6, calculated_height - 6)

data/lib/glimmer/swt/custom/shape/path.rb

@@ -61,17 +61,13 @@ module Glimmer
             end
           end
           
-          def contain?(x, y)
-            makeshift_gc = org.eclipse.swt.graphics.GC.new(Glimmer::SWT::DisplayProxy.instance.swt_display)
-            @swt_path.contains(x.to_f, y.to_f, makeshift_gc, false)
-          end
-          
           def contain?(x, y)
             include?(x, y, filled: true)
           end
         
           # checks if drawn or filled rectangle includes the point denoted by x and y (if drawn, it only returns true if point lies on the edge)
           def include?(x, y, filled: nil)
+            x, y = inverse_transform_point(x, y)
             filled = filled? if filled.nil?
             makeshift_gc = org.eclipse.swt.graphics.GC.new(Glimmer::SWT::DisplayProxy.instance.swt_display)
             @swt_path.contains(x.to_f, y.to_f, makeshift_gc, !filled)

data/lib/glimmer/swt/custom/shape/point.rb

@@ -49,6 +49,7 @@ module Glimmer
           end
           
           def include?(x, y)
+            x, y = inverse_transform_point(x, y)
             # give it some fuzz (helps makes mouse clicking easier)
             x.to_i.between?(self.absolute_x.to_i - 2, self.absolute_x.to_i + 2) && y.to_i.between?(self.absolute_y.to_i - 2, self.absolute_y.to_i + 2)
           end

data/lib/glimmer/swt/custom/shape/polygon.rb

@@ -152,6 +152,7 @@ module Glimmer
           end
           
           def contain?(x, y)
+            x, y = inverse_transform_point(x, y)
             geometry.contains(x, y)
           end
 
@@ -159,6 +160,7 @@ module Glimmer
             if filled?
               contain?(x, y)
             else
+              x, y = inverse_transform_point(x, y)
               comparison_lines = absolute_point_xy_array.zip(absolute_point_xy_array.rotate(1))
               comparison_lines.any? {|line| Line.include?(line.first.first, line.first.last, line.last.first, line.last.last, x, y)}
             end

data/lib/glimmer/swt/custom/shape/polyline.rb

@@ -130,6 +130,7 @@ module Glimmer
           end
           
           def include?(x, y)
+            x, y = inverse_transform_point(x, y)
             comparison_lines = absolute_point_xy_array.zip(absolute_point_xy_array.rotate(1))
             comparison_lines.pop # ignore last pair since you don't want to compare last point with first point
             comparison_lines.any? {|line| Line.include?(line.first.first, line.first.last, line.last.first, line.last.last, x, y)}

data/lib/glimmer/swt/custom/shape/rectangle.rb

@@ -85,6 +85,7 @@ module Glimmer
             if filled?
               contain?(x, y)
             else
+              x, y = inverse_transform_point(x, y)
               comparison_lines = absolute_point_xy_array.zip(absolute_point_xy_array.rotate(1))
               comparison_lines.any? {|line| Line.include?(line.first.first, line.first.last, line.last.first, line.last.last, x, y)}
             end

data/samples/elaborate/connect4.rb

@@ -0,0 +1,118 @@
+# 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 'connect4/model/grid'
+
+class Connect4
+  include Glimmer::UI::CustomShell
+  
+  WIDTH = 7
+  HEIGHT = 6
+  COLOR_BACKGROUND = rgb(63, 104, 212)
+  COLOR_EMPTY_SLOT = :white
+  COLOR_COIN1 = rgb(236, 223, 56)
+  COLOR_COIN2 = rgb(176, 11, 23)
+  
+  attr_accessor :current_player_color
+  
+  before_body do
+    @grid = Model::Grid.new(WIDTH, HEIGHT)
+    select_player_color
+  end
+    
+  after_body do
+    observe(@grid, :current_player) do
+      select_player_color
+    end
+
+    observe(@grid, :game_over) do |game_over_value|
+      if game_over_value
+        game_over_message = case game_over_value
+        when true
+          "Game over!\nDraw!"
+        when 1
+          "Game over!\nPlayer 1 (yellow) wins!"
+        when 2
+          "Game over!\nPlayer 2 (red) wins!"
+        end
+        
+        message_box {
+          text 'Game Over!'
+          message game_over_message
+        }.open
+        
+        @grid.restart!
+      end
+    end
+  end
+  
+  body {
+    shell(:no_resize) {
+      grid_layout(7, true)
+
+      text 'Glimmer Connect 4'
+      background COLOR_BACKGROUND
+      
+      HEIGHT.times do |row_index|
+        WIDTH.times do |column_index|
+          canvas {
+            layout_data {
+              width_hint 50
+              height_hint 50
+            }
+            
+            background :transparent
+            
+            the_oval = oval(0, 0, 50, 50) {
+              background <= [@grid.slot_rows[row_index][column_index], :value, on_read: ->(v) { v == 0 ? COLOR_EMPTY_SLOT : (v == 1 ? COLOR_COIN1 : COLOR_COIN2)}]
+            }
+            
+            if row_index == 0
+              entered = false
+              on_mouse_enter do
+                entered = true
+                the_oval.background = current_player_color if @grid.slot_rows[row_index][column_index].value == 0
+              end
+              
+              on_mouse_exit do
+                entered = false
+                the_oval.background = COLOR_EMPTY_SLOT if @grid.slot_rows[row_index][column_index].value == 0
+              end
+              
+              on_mouse_up do
+                @grid.insert!(column_index)
+                the_oval.background = current_player_color if entered && @grid.slot_rows[row_index][column_index].value == 0
+              end
+            end
+          }
+        end
+      end
+    }
+  }
+  
+  def select_player_color
+    self.current_player_color = @grid.current_player == 1 ? COLOR_COIN1 : COLOR_COIN2
+  end
+end
+
+Connect4.launch

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

@@ -0,0 +1,173 @@
+# 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 'slot'
+
+class Connect4
+  module Model
+    class Grid
+      attr_reader :width, :height, :slot_rows
+      attr_accessor :current_player, :game_over
+    
+      def initialize(width, height)
+        @width = width
+        @height = height
+        build_slots
+        start!
+      end
+      
+      def start!
+        self.game_over = false
+        self.current_player = 1
+        reset_slots
+      end
+      alias restart! start!
+      
+      def insert!(column_index)
+        found_row_index = bottom_most_free_row_index(column_index)
+        raise "Illegal move at #{column_index}" if found_row_index == -1
+        @slot_rows[found_row_index][column_index].value = @current_player
+        self.current_player = @current_player%2 + 1
+        evaluate_game_over
+      end
+      
+      # returns bottom most free row index
+      # returns -1 if none
+      def bottom_most_free_row_index(column_index)
+        found_row_index = @slot_rows.size - 1
+        found_row_index -= 1 until found_row_index == -1 || @slot_rows[found_row_index][column_index].value == 0
+        found_row_index
+      end
+      
+      private
+      
+      def build_slots
+        @slot_rows = height.times.map do |row_index|
+          width.times.map do |column_index|
+            Slot.new(self)
+          end
+        end
+      end
+      
+      def reset_slots
+        @slot_rows.flatten.each {|s| s.value = 0}
+      end
+      
+      def evaluate_game_over
+        evaluate_horizontal_win
+        evaluate_vertical_win
+        evaluate_sw_ne_diagonal_win
+        evaluate_se_nw_diagonal_win
+        self.game_over ||= true if @slot_rows.flatten.map(&:value).all? {|v| v > 0}
+      end
+      
+      def evaluate_horizontal_win
+        connections = nil
+        last_slot_value = nil
+        height.times do |row_index|
+          connections = nil
+          last_slot_value = nil
+          width.times do |column_index|
+            slot = @slot_rows[row_index][column_index]
+            if slot.value.to_i > 0 && slot.value == last_slot_value
+              connections += 1
+            else
+              last_slot_value = slot.value
+              connections = 1
+            end
+            break if connections == 4
+          end
+          break if connections == 4
+        end
+        self.game_over = last_slot_value if connections == 4
+      end
+      
+      def evaluate_vertical_win
+        connections = nil
+        last_slot_value = nil
+        width.times do |column_index|
+          connections = nil
+          last_slot_value = nil
+          height.times do |row_index|
+            slot = @slot_rows[row_index][column_index]
+            if slot.value.to_i > 0 && slot.value == last_slot_value
+              connections += 1
+            else
+              last_slot_value = slot.value
+              connections = 1
+            end
+            break if connections == 4
+          end
+          break if connections == 4
+        end
+        self.game_over = last_slot_value if connections == 4
+      end
+      
+      def evaluate_sw_ne_diagonal_win
+        sw_ne_coordinates = [
+          [[3, 0], [2, 1], [1, 2], [0, 3]],
+          [[4, 0], [3, 1], [2, 2], [1, 3], [0, 4]],
+          [[5, 0], [4, 1], [3, 2], [2, 3], [1, 4], [0, 5]],
+          [[5, 1], [4, 2], [3, 3], [2, 4], [1, 5], [0, 6]],
+          [[5, 2], [4, 3], [3, 4], [2, 5], [1, 6]],
+          [[5, 3], [4, 4], [3, 5], [2, 6]],
+        ]
+        evaluate_diagonal_win(sw_ne_coordinates)
+      end
+      
+      def evaluate_se_nw_diagonal_win
+        sw_ne_coordinates = [
+          [[0, 3], [1, 4], [2, 5], [3, 6]],
+          [[0, 2], [1, 3], [2, 4], [3, 5], [4, 6]],
+          [[0, 1], [1, 2], [2, 3], [3, 4], [4, 5], [5, 6]],
+          [[0, 0], [1, 1], [2, 2], [3, 3], [4, 4], [5, 5]],
+          [[1, 0], [2, 1], [3, 2], [4, 3], [5, 4]],
+          [[2, 0], [3, 1], [4, 2], [5, 3]],
+        ]
+        evaluate_diagonal_win(sw_ne_coordinates)
+      end
+      
+      def evaluate_diagonal_win(diagonal_coordinates)
+        connections = nil
+        last_slot_value = nil
+        diagonal_coordinates.each do |group|
+          connections = nil
+          last_slot_value = nil
+          group.each do |row_index, column_index|
+            slot = @slot_rows[row_index][column_index]
+            if slot.value.to_i > 0 && slot.value == last_slot_value
+              connections += 1
+            else
+              last_slot_value = slot.value
+              connections = 1
+            end
+            break if connections == 4
+          end
+          break if connections == 4
+        end
+        self.game_over = last_slot_value if connections == 4
+      end
+    
+    end
+    
+  end
+  
+end

data/samples/elaborate/connect4/model/slot.rb

@@ -0,0 +1,36 @@
+# 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 Connect4
+  module Model
+    class Slot
+      attr_reader :grid
+      
+      # value 0 means empty, 1 means player 1 coin, and 2 means player 2 coin
+      attr_accessor :value
+    
+      def initialize(grid)
+        @value = 0
+        @grid = grid
+      end
+    end
+  end
+end

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

@@ -29,7 +29,7 @@ class KlondikeSolitaire
   end
 
   body {
-    shell(:no_resize) {
+    shell {
       row_layout(:vertical) {
         fill true
         center true

data/samples/elaborate/parking.rb

@@ -0,0 +1,146 @@
+# 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 'parking/model/parking_presenter'
+      
+class Parking
+  include Glimmer::UI::CustomShell
+    
+  FLOOR_COUNT = 4
+  
+  before_body do
+    @parking_spots = Model::ParkingSpot::LETTERS.clone
+    @parking_presenter = Model::ParkingPresenter.new(FLOOR_COUNT)
+  end
+
+  body {
+    shell(:no_resize) {
+      row_layout(:vertical) {
+        center true
+      }
+    
+      text 'Parking'
+    
+      label {
+        text 'Select an available spot to park'
+        font height: 30
+      }
+      label {
+        text 'Floor:'
+        font height: 20
+      }
+      spinner {
+        minimum 1
+        maximum FLOOR_COUNT
+        font height: 20
+        selection <=> [@parking_presenter, :selected_floor]
+        
+        on_widget_selected do
+          @parking_spots = Model::ParkingSpot::LETTERS.clone
+          @canvas.dispose_shapes
+          @canvas.content {
+            parking_floor
+          }
+        end
+      }
+      @canvas = canvas {
+        layout_data {
+          width 600
+          height 600
+        }
+        
+        background :dark_gray
+        
+        parking_floor
+      }
+    }
+  }
+  
+  def parking_floor
+    parking_quad(67.5, 0, 125)
+    parking_quad(67.5, 0, 125) { |shp|
+      shp.rotate(90)
+    }
+    parking_quad(67.5, 0, 125) { |shp|
+      shp.rotate(180)
+    }
+    parking_quad(67.5, 0, 125) { |shp|
+      shp.rotate(270)
+    }
+  end
+        
+  def parking_quad(location_x, location_y, length, &block)
+    distance = (1.0/3)*length
+    parking_spot(location_x, location_y, length, &block)
+    parking_spot(location_x + distance, location_y, length, &block)
+    parking_spot(location_x + 2*distance, location_y, length, &block)
+    parking_spot(location_x + 3*distance, location_y, length, &block)
+  end
+      
+  def parking_spot(location_x, location_y, length, &block)
+    parking_spot_letter = @parking_spots.shift
+    height = length
+    width = (2.0/3)*length
+    shape(location_x, location_y) { |the_shape|
+      line_width (1.0/15)*length
+      foreground :white
+  
+      block&.call(the_shape)
+    
+      rectangle(location_x, location_y, width, height) {
+        background <= [
+          @parking_presenter.floors[@parking_presenter.selected_floor - 1].parking_spots[parking_spot_letter],
+          :booked,
+          on_read: ->(b) {b ? :red : :dark_gray}
+        ]
+        
+        text {
+          x :default
+          y :default
+          string parking_spot_letter
+          font height: 20
+        }
+        
+        on_mouse_up do
+          begin
+            @parking_presenter.floors[@parking_presenter.selected_floor - 1].book!(parking_spot_letter)
+            message_box {
+              text 'Parking Booked!'
+              message "Floor #{@parking_presenter.selected_floor} Parking Spot #{parking_spot_letter} Is Booked!"
+            }.open
+          rescue => e
+            # No Op if already booked
+          end
+        end
+      }
+    
+      line(location_x, location_y, location_x, location_y + height)
+      line(location_x, location_y, location_x + width, location_y)
+      line(location_x + width, location_y, location_x + width, location_y + height)
+      
+    }
+  end
+end
+  
+Parking.launch
+  

data/samples/elaborate/parking/model/parking_floor.rb

@@ -0,0 +1,41 @@
+# 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 'parking_spot'
+
+class Parking
+  module Model
+    class ParkingFloor
+      attr_reader :number, :parking_spots
+    
+      def initialize(floor_number)
+        @number = floor_number
+        @parking_spots = ParkingSpot::LETTERS.reduce({}) do |hash, letter|
+          hash.merge(letter => ParkingSpot.new(self, letter))
+        end
+      end
+      
+      def book!(parking_spot_letter)
+        parking_spots[parking_spot_letter].book!
+      end
+    end
+  end
+end

data/samples/elaborate/parking/model/parking_presenter.rb

@@ -0,0 +1,42 @@
+# 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 'parking_floor'
+        
+class Parking
+  module Model
+    class ParkingPresenter
+      attr_reader :floor_count
+      attr_accessor :floors, :selected_floor
+        
+      def initialize(floor_count)
+        self.floors = 1.upto(floor_count).map do |floor_number|
+          ParkingFloor.new(floor_number)
+        end
+        self.selected_floor = 1
+      end
+      
+      def book(parking_spot_letter)
+        self.floors[selected_floor - 1].book(parking_spot_letter)
+      end
+    end
+  end
+end

data/samples/elaborate/parking/model/parking_spot.rb

@@ -0,0 +1,46 @@
+# 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 Parking
+  module Model
+    class ParkingSpot
+      LETTERS = %W[A B C D E F G H I J K L M N O P]
+      
+      attr_reader :parking_floor, :letter
+      attr_accessor :booked
+      alias booked? booked
+    
+      def initialize(parking_floor, letter)
+        @parking_floor = parking_floor
+        @letter = letter
+      end
+      
+      def book!
+        raise "Floor #{parking_floor.number} Parking Spot #{letter} Is Already Booked!" if booked?
+        self.booked = true
+      end
+      
+      def free!
+        self.booked = false
+      end
+    end
+  end
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-swt
 version: !ruby/object:Gem::Version
-  version: 4.20.13.10
+  version: 4.20.13.14
 platform: ruby
 authors:
 - Andy Maleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-07-31 00:00:00.000000000 Z
+date: 2021-08-03 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   requirement: !ruby/object:Gem::Requirement
@@ -541,10 +541,16 @@ files:
 - samples/elaborate/calculator/model/command/operation/subtract.rb
 - samples/elaborate/calculator/model/command/point.rb
 - samples/elaborate/calculator/model/presenter.rb
+- samples/elaborate/connect4.rb
+- samples/elaborate/connect4/model/grid.rb
+- samples/elaborate/connect4/model/slot.rb
 - samples/elaborate/contact_manager.rb
 - samples/elaborate/contact_manager/contact.rb
 - samples/elaborate/contact_manager/contact_manager_presenter.rb
 - samples/elaborate/contact_manager/contact_repository.rb
+- samples/elaborate/game_of_life.rb
+- samples/elaborate/game_of_life/model/cell.rb
+- samples/elaborate/game_of_life/model/grid.rb
 - samples/elaborate/klondike_solitaire.rb
 - samples/elaborate/klondike_solitaire/model/column_pile.rb
 - samples/elaborate/klondike_solitaire/model/dealing_pile.rb
@@ -565,6 +571,10 @@ files:
 - samples/elaborate/mandelbrot_fractal.rb
 - samples/elaborate/meta_sample.rb
 - samples/elaborate/metronome.rb
+- samples/elaborate/parking.rb
+- samples/elaborate/parking/model/parking_floor.rb
+- samples/elaborate/parking/model/parking_presenter.rb
+- samples/elaborate/parking/model/parking_spot.rb
 - samples/elaborate/stock_ticker.rb
 - samples/elaborate/tetris.rb
 - samples/elaborate/tetris/model/block.rb