glimmer-dsl-swt 4.20.13.12 → 4.20.13.16

data/samples/elaborate/connect4.rb

@@ -0,0 +1,116 @@
+# 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
+  
+  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
+    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(Model::Grid::WIDTH, true)
+
+      text 'Glimmer Connect 4'
+      background COLOR_BACKGROUND
+      
+      Model::Grid::HEIGHT.times do |row_index|
+        Model::Grid::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,174 @@
+# 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
+      WIDTH = 7
+      HEIGHT = 6
+    
+      attr_reader :slot_rows
+      attr_accessor :current_player, :game_over
+    
+      def initialize
+        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/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/klondike_solitaire/view/column_pile.rb

@@ -43,7 +43,6 @@ class KlondikeSolitaire
               end
               drop_event.dragged_shape.dispose
             rescue => e
-#               pd e
               drop_event.doit = false
             end
           end

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

@@ -36,7 +36,6 @@ class KlondikeSolitaire
           
           on_drop do |drop_event|
             begin
-              # TODO make sure one cannot drag a column pile of cards here
               card_shape = drop_event.dragged_shape.get_data('custom_shape')
               card = card_shape.model
               card_parent_pile = card_shape.parent_pile
@@ -46,7 +45,6 @@ class KlondikeSolitaire
               card_source_model.remove!(card)
               drop_event.dragged_shape.dispose
             rescue => e
-#               pd e
               drop_event.doit = false
             end
           end

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
+