glimmer-dsl-swt 4.20.13.14 → 4.20.13.18

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

@@ -26,8 +26,6 @@ require_relative 'connect4/model/grid'
 class Connect4
   include Glimmer::UI::CustomShell
   
-  WIDTH = 7
-  HEIGHT = 6
   COLOR_BACKGROUND = rgb(63, 104, 212)
   COLOR_EMPTY_SLOT = :white
   COLOR_COIN1 = rgb(236, 223, 56)
@@ -36,7 +34,7 @@ class Connect4
   attr_accessor :current_player_color
   
   before_body do
-    @grid = Model::Grid.new(WIDTH, HEIGHT)
+    @grid = Model::Grid.new
     select_player_color
   end
     
@@ -68,13 +66,13 @@ class Connect4
   
   body {
     shell(:no_resize) {
-      grid_layout(7, true)
+      grid_layout(Model::Grid::WIDTH, true)
 
       text 'Glimmer Connect 4'
       background COLOR_BACKGROUND
       
-      HEIGHT.times do |row_index|
-        WIDTH.times do |column_index|
+      Model::Grid::HEIGHT.times do |row_index|
+        Model::Grid::WIDTH.times do |column_index|
           canvas {
             layout_data {
               width_hint 50

data/samples/elaborate/connect4/model/grid.rb

@@ -24,12 +24,13 @@ require_relative 'slot'
 class Connect4
   module Model
     class Grid
-      attr_reader :width, :height, :slot_rows
+      WIDTH = 7
+      HEIGHT = 6
+    
+      attr_reader :slot_rows
       attr_accessor :current_player, :game_over
     
-      def initialize(width, height)
-        @width = width
-        @height = height
+      def initialize
         build_slots
         start!
       end
@@ -60,8 +61,8 @@ class Connect4
       private
       
       def build_slots
-        @slot_rows = height.times.map do |row_index|
-          width.times.map do |column_index|
+        @slot_rows = HEIGHT.times.map do |row_index|
+          WIDTH.times.map do |column_index|
             Slot.new(self)
           end
         end
@@ -82,10 +83,10 @@ class Connect4
       def evaluate_horizontal_win
         connections = nil
         last_slot_value = nil
-        height.times do |row_index|
+        HEIGHT.times do |row_index|
           connections = nil
           last_slot_value = nil
-          width.times do |column_index|
+          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
@@ -103,10 +104,10 @@ class Connect4
       def evaluate_vertical_win
         connections = nil
         last_slot_value = nil
-        width.times do |column_index|
+        WIDTH.times do |column_index|
           connections = nil
           last_slot_value = nil
-          height.times do |row_index|
+          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

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/hello/hello_arrow.rb

@@ -0,0 +1,67 @@
+# 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'
+
+include Glimmer
+
+shell {
+  row_layout(:vertical) {
+    fill true
+    center true
+  }
+  
+  text 'Hello, Arrow!'
+  
+  label(:center) {
+    text 'Click the arrow to get a menu.'
+  }
+  
+  arrow { # can be customized by passing `:arrow` SWT style + `:left`, `:right`, `:up`, or `:down` (default)
+    menu {
+      menu_item {
+        text 'Item &1'
+        
+        on_widget_selected do
+          message_box {
+            text 'Item 1'
+            message 'Item 1 selected!'
+          }.open
+        end
+      }
+      menu_item {
+        text 'Item &2'
+        
+        on_widget_selected do
+          message_box {
+            text 'Item 2'
+            message 'Item 2 selected!'
+          }.open
+        end
+      }
+    }
+    
+    on_widget_selected do |event|
+      event.widget.menu.visible = true
+    end
+  }
+    
+}.open

data/samples/hello/hello_custom_shell.rb

@@ -88,6 +88,8 @@ class EmailShell
 end
 
 class HelloCustomShell
+  include Glimmer
+  
   Email = Struct.new(:date, :subject, :from, :message, keyword_init: true)
   EmailSystem = Struct.new(:emails, keyword_init: true)
   

data/samples/hello/hello_slider.rb

@@ -0,0 +1,58 @@
+# 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'
+
+class HelloScale
+  include Glimmer::UI::CustomShell
+  
+  attr_accessor :value
+  
+  before_body do
+    @value = 50
+  end
+  
+  body {
+    shell {
+      row_layout(:vertical) {
+        fill true
+        center true
+      }
+      
+      text 'Hello, Slider!'
+      
+      label(:center) {
+        text <= [self, :value]
+      }
+      
+      slider { # optionally takes :vertical or :horizontal (default) SWT style
+        minimum 0
+        maximum 110 # leave room for 10 extra (slider stops at 100)
+        page_increment 10 # page increment occurs when clicking area between slider and beginning or end
+        selection <=> [self, :value]
+      }
+        
+    }
+    
+  }
+end
+
+HelloScale.launch