glimmer-dsl-swt 4.20.13.12 → 4.20.13.13

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: bec3c88dee81e6625c208ce0fe97f02984b27faa107bb5b1c0667612ada04cae
-  data.tar.gz: 4221c07f12ba4d2de558223a60546218a530c02cdb34e0d6c1a03b19b7a4ba6c
+  metadata.gz: 73c5a7ba90a7c91df55ac716b815e08e71b9ff13294ebf44e4c6587aa67080f2
+  data.tar.gz: 889670d6eba956aaf4cc267c8a70cf36283379369a51bed85b5b5dd2aadd2762
 SHA512:
-  metadata.gz: 1c555e4e44ae1ca8933a35d2316bc8711d4888483b0f6ff3a90d372e7f25f3b66b9ac114239f5970e8f72f69ad2aa1358dc0833d96a8689c5d14b0fa6aba79ef
-  data.tar.gz: 363b079ba036a24e47a6919bc72d1dbaa4396586ae814ccb77cde3917b6ca917c5e5fe295dc17ff9339cfa9dfb526ee60e936af4e4d66f081901727017712f4e
+  metadata.gz: 455e0b8626d4782e9ec122de48eae8ffec9688b2a724de11c858c4833925389ca3e2a46285e47e30b50e0fe414ccbe74f5dd869bbcbe03986e682dd5a1aad991
+  data.tar.gz: 4ae13e2fedaa551c03ff3b8919bfe9ffa4faf31b7b6b393ba37b91e1fb54c179703da2c3d5283446122a7867eb970373ed191289ad2ace0e92880058b633f573

data/CHANGELOG.md

@@ -1,5 +1,10 @@
 # Change Log
 
+### 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

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.12
+# [<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.13
 ## 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.12 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.13 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.12
+jgem install glimmer-dsl-swt -v 4.20.13.13
 ```
 
 `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.12'
+gem 'glimmer-dsl-swt', '~> 4.20.13.13'
 ```
 
 And, then run:
@@ -375,7 +375,7 @@ glimmer
 ```
 
 ```
-Glimmer (JRuby Desktop Development GUI Framework) - JRuby Gem: glimmer-dsl-swt v4.20.13.12
+Glimmer (JRuby Desktop Development GUI Framework) - JRuby Gem: glimmer-dsl-swt v4.20.13.13
       
 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.12
+4.20.13.13

data/docs/reference/GLIMMER_SAMPLES.md

@@ -65,6 +65,7 @@
     - [Glimmer Tetris](#glimmer-tetris)
     - [Klondike Solitaire](#klondike-solitaire)
     - [Mandelbrot Fractal](#mandelbrot-fractal)
+    - [Parking](#parking)
     - [Stock Ticker](#stock-ticker)
     - [Metronome](#metronome)
     - [Weather](#weather)
@@ -1148,6 +1149,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?

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/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.12
+  version: 4.20.13.13
 platform: ruby
 authors:
 - Andy Maleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-08-01 00:00:00.000000000 Z
+date: 2021-08-02 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   requirement: !ruby/object:Gem::Requirement
@@ -568,6 +568,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