glimmer-dsl-swt 4.20.13.9 → 4.20.13.13

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/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

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 {

data/samples/elaborate/tetris.rb

@@ -43,7 +43,7 @@ class Tetris
   
   attr_reader :game
   
-  before_body {
+  before_body do
     @mutex = Mutex.new
     @game = Model::Game.new(playfield_width, playfield_height)
         
@@ -99,9 +99,9 @@ class Tetris
         exit(0)
       }
     }
-  }
+  end
   
-  after_body {
+  after_body do
     observe(@game, :game_over) do |game_over|
       if game_over
         show_high_score_dialog
@@ -117,7 +117,7 @@ class Tetris
       end
     end
     @game.start!
-  }
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/tetris/view/bevel.rb

@@ -29,9 +29,9 @@ class Tetris
       option :x, default: 0
       option :y, default: 0
       
-      before_body {
+      before_body do
         self.bevel_pixel_size = 0.16*size.to_f if bevel_pixel_size.nil?
-      }
+      end
       
       body {
         rectangle(x, y, size, size) {

data/samples/elaborate/tetris/view/score_lane.rb

@@ -29,10 +29,10 @@ class Tetris
   
       options :block_size, :game
       
-      before_body {
+      before_body do
         @font_name = FONT_NAME
         @font_height = FONT_TITLE_HEIGHT
-      }
+      end
   
       body {
         composite {