glimmer-dsl-swt 4.20.13.13 → 4.20.13.17

data/samples/elaborate/battleship/view/grid.rb

@@ -0,0 +1,77 @@
+# 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 '../model/grid'
+
+require_relative 'cell'
+
+class Battleship
+  module View
+    class Grid
+      include Glimmer::UI::CustomWidget
+      
+      options :game, :player
+      
+      body {
+        composite {
+          grid_layout(Model::Grid::WIDTH + 1, true) {
+            margin_width 0
+            margin_height 0
+            horizontal_spacing 0
+            vertical_spacing 0
+          }
+    
+          label(:center) {
+            layout_data(:fill, :center, true, false) {
+              horizontal_span (Model::Grid::WIDTH + 1)
+            }
+            
+            text player.to_s.capitalize
+            font height: 20, style: :bold
+          }
+          
+          label # filler
+          Model::Grid::WIDTH.times do |column_index|
+            label {
+              text (column_index + 1).to_s
+              font height: 16
+            }
+          end
+          
+          Model::Grid::HEIGHT.times do |row_index|
+            label {
+              text Model::Grid::ROW_ALPHABETS[row_index]
+              font height: 16
+            }
+            Model::Grid::WIDTH.times do |column_index|
+              cell(game: game, player: player, row_index: row_index, column_index: column_index) {
+                layout_data {
+                  width_hint 25
+                  height_hint 25
+                }
+              }
+            end
+          end
+        }
+      }
+    end
+  end
+end

data/samples/elaborate/battleship/view/ship.rb

@@ -0,0 +1,65 @@
+# 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 Battleship
+  module View
+    class Ship
+      include Glimmer::UI::CustomWidget
+      
+      options :game, :player, :ship_name, :ship_length
+      
+      body {
+        composite {
+          row_layout(:vertical) {
+            fill true
+            margin_width 0
+            margin_height 0
+          }
+      
+          label {
+            text ship_name.to_s.titlecase
+            font height: 16
+          }
+        
+          composite {
+            grid_layout(ship_length, true) {
+              margin_width 0
+              margin_height 0
+              horizontal_spacing 0
+              vertical_spacing 0
+            }
+            
+            ship_length.times do |column_index|
+              cell(game: game, player: player, type: :ship, column_index: column_index, ship: game.ship_collections[player].ships[ship_name]) {
+                layout_data {
+                  width_hint 25
+                  height_hint 25
+                }
+              }
+            end
+          }
+        }
+      }
+    end
+  end
+end

data/samples/elaborate/battleship/view/ship_collection.rb

@@ -0,0 +1,49 @@
+# 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 '../model/game'
+require_relative '../model/ship_collection'
+
+require_relative 'ship'
+
+class Battleship
+  module View
+    class ShipCollection
+      include Glimmer::UI::CustomWidget
+      
+      options :game, :player
+      
+      body {
+        composite {
+          row_layout(:vertical) {
+            fill true
+            margin_width 0
+            margin_height 0
+          }
+          
+          Model::ShipCollection::BATTLESHIPS.each do |ship_name, ship_length|
+            ship(game: game, player: player, ship_name: ship_name, ship_length: ship_length)
+          end
+        }
+      }
+    end
+  end
+end

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