glimmer-dsl-swt 4.20.13.12 → 4.20.13.16

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

@@ -0,0 +1,56 @@
+# 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 'ship'
+
+class Battleship
+  module Model
+    class ShipCollection
+      BATTLESHIPS = {
+        aircraft_carrier: 5,
+        battleship: 4,
+        submarine: 3,
+        cruiser: 3,
+        destroyer: 2
+      }
+      
+      attr_reader :game, :player, :ships
+      attr_accessor :placed_count
+            
+      def initialize(game, player)
+        @game = game
+        @player = player
+        @ships = BATTLESHIPS.reduce({}) do |hash, pair|
+          name, width = pair
+          ship = Ship.new(self, name, width)
+          Glimmer::DataBinding::Observer.proc do |cell_value|
+            self.placed_count = ships.values.map(&:top_left_cell).compact.size
+          end.observe(ship, :top_left_cell)
+          hash.merge(name => ship)
+        end
+      end
+      
+      def reset!
+        ships.values.each(&:reset!)
+      end
+    end
+  end
+end

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

@@ -0,0 +1,59 @@
+# 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 Battleship
+  module View
+    class ActionPanel
+      include Glimmer::UI::CustomWidget
+      
+      options :game
+      
+      body {
+        composite {
+          row_layout(:horizontal) {
+            margin_width 0
+            margin_height 0
+          }
+          
+          layout_data(:center, :center, true, false)
+                  
+          @battle_button = button {
+            text 'Battle!'
+            enabled <= [game.ship_collections[:you], :placed_count, on_read: ->(c) {c == 5}]
+            
+            on_widget_selected do
+              game.battle!
+              @battle_button.enabled = false
+            end
+          }
+                  
+          button {
+            text 'Restart'
+            
+            on_widget_selected do
+              game.reset!
+            end
+          }
+        }
+      }
+    end
+  end
+end

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

@@ -0,0 +1,163 @@
+# 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 Battleship
+  module View
+    class Cell
+      include Glimmer::UI::CustomWidget
+      
+      class << self
+        attr_accessor :dragging
+        alias dragging? dragging
+      end
+      
+      COLOR_WATER = rgb(156, 211, 219)
+      COLOR_SHIP = :gray
+      COLOR_PLACED = :white
+      COLOR_EMPTY = :black
+      COLOR_NO_HIT = :white
+      COLOR_HIT = :red
+      
+      options :game, :player, :row_index, :column_index, :ship
+      option :type, default: :grid # other type is :ship
+      
+      body {
+        canvas {
+          if type == :grid
+            if player == :you
+              background <= [model, :ship, on_read: ->(s) {s ? COLOR_SHIP : COLOR_WATER}]
+            else
+              background COLOR_WATER
+            end
+          else
+            background <= [ship, :sunk, on_read: ->(s) {s ? COLOR_HIT : COLOR_PLACED}]
+            background <= [ship, :top_left_cell, on_read: ->(c) {c ? COLOR_PLACED : COLOR_SHIP}]
+          end
+          
+          rectangle(0, 0, [:max, -1], [:max, -1])
+          oval(:default, :default, 10, 10) {
+            foreground <= [model, :hit, on_read: ->(h) {h == nil ? COLOR_EMPTY : (h ? COLOR_HIT : COLOR_NO_HIT)}]
+          }
+          oval(:default, :default, 5, 5) {
+            background <= [model, :hit, on_read: ->(h) {h == nil ? COLOR_EMPTY : (h ? COLOR_HIT : COLOR_NO_HIT)}]
+          }
+          
+          on_mouse_move do |event|
+            if game.started?
+              if type == :grid
+                if player == :enemy
+                  body_root.cursor = :cross
+                else
+                  body_root.cursor = :arrow
+                end
+              else
+                body_root.cursor = :arrow
+              end
+            end
+          end
+                    
+          if player == :enemy
+            on_mouse_up do
+              game.attack!(row_index, column_index)
+            end
+          end
+          
+          if player == :you
+            on_drag_detected do |event|
+              unless game.started? || game.over?
+                Cell.dragging = true
+                body_root.cursor = :hand if type == :grid
+              end
+            end
+          
+            on_drag_set_data do |event|
+              the_ship = ship || model&.ship
+              if the_ship && !game.started? && !game.over? && !(type == :ship && the_ship.top_left_cell)
+                event.data = the_ship.name.to_s
+              else
+                event.doit = false
+                Cell.dragging = false
+              end
+            end
+            
+            on_mouse_up do
+              unless game.started? || game.over?
+                Cell.dragging = false
+                change_cursor
+              end
+            end
+                        
+            if type == :grid
+              on_mouse_move do |event|
+                unless game.started? || game.over?
+                  change_cursor
+                end
+              end
+              
+              on_mouse_hover do |event|
+                unless game.started? || game.over?
+                  change_cursor
+                end
+              end
+              
+              on_mouse_up do |event|
+                unless game.started? || game.over?
+                  begin
+                    model.ship&.toggle_orientation!
+                  rescue => e
+                    Glimmer::Config.logger.debug e.full_message
+                  end
+                  change_cursor
+                end
+              end
+              
+              on_drop do |event|
+                unless game.started? || game.over?
+                  ship_name = event.data
+                  place_ship(ship_name.to_s.to_sym) if ship_name
+                  Cell.dragging = false
+                  change_cursor
+                end
+              end
+            end
+          end
+        }
+      }
+      
+      def model
+        game.grids[player].cell_rows[row_index][column_index] if type == :grid
+      end
+      
+      def place_ship(ship_name)
+        ship = game.ship_collections[player].ships[ship_name]
+        model.place_ship!(ship)
+      end
+      
+      def change_cursor
+        if type == :grid && model.ship && !Cell.dragging?
+          body_root.cursor = model.ship.orientation == :horizontal ? :sizens : :sizewe
+        elsif !Cell.dragging?
+          body_root.cursor = :arrow
+        end
+      end
+    end
+  end
+end

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