glimmer-dsl-opal 0.25.4 → 0.26.3

data/lib/glimmer-dsl-opal/samples/elaborate/tetris/view/block.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 Tetris
+  module View
+    class Block
+      include Glimmer::UI::CustomWidget
+  
+      options :game_playfield, :block_size, :row, :column
+  
+      body {
+        canvas { |canvas_proxy|
+          background <= [game_playfield[row][column], :color]
+        }
+      }
+    end
+  end
+end

data/lib/glimmer-dsl-opal/samples/elaborate/tetris/view/high_score_dialog.rb

@@ -0,0 +1,122 @@
+# 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 'tetris_menu_bar'
+
+class Tetris
+  module View
+    class HighScoreDialog
+      include Glimmer::UI::CustomShell
+  
+      options :parent_shell, :game
+      
+      after_body {
+        @game_over_observer = observe(game, :game_over) do |game_over|
+          close if !game_over
+        end
+      }
+      
+      body {
+        dialog(parent_shell) {
+          row_layout {
+            type :vertical
+            center true
+          }
+          text 'Glimmer Tetris'
+          
+          tetris_menu_bar(game: game)
+          
+          label(:center) {
+            text <= [game, :game_over, on_read: ->(game_over) { game_over ? 'Game Over!' : 'High Scores' }]
+            font name: FONT_NAME, height: FONT_TITLE_HEIGHT, style: FONT_TITLE_STYLE
+          }
+          @high_score_table = table {
+            layout_data {
+              height 100
+            }
+            
+            table_column {
+              text 'Name'
+            }
+            table_column {
+              text 'Score'
+            }
+            table_column {
+              text 'Lines'
+            }
+            table_column {
+              text 'Level'
+            }
+            
+            items <=> [game, :high_scores, read_only_sort: true, column_properties: [:name, :score, :lines, :level]]
+          }
+          composite {
+            row_layout :horizontal
+                        
+            @play_close_button = button {
+              text <= [game, :game_over, on_read: ->(game_over) { game_over ? 'Play Again?' : 'Close'}]
+              focus true # initial focus
+              
+              on_widget_selected {
+                close
+                game.paused = @game_paused
+                game.restart! if game.game_over?
+              }
+            }
+          }
+          
+          on_swt_show {
+            @game_paused = game.paused?
+            game.paused = true
+            if game.game_over? && game.added_high_score?
+              game.added_high_score = false
+              @high_score_table.edit_table_item(
+                @high_score_table.items.first, # row item
+                0, # column
+                write_on_cancel: true,
+                after_write: -> {
+                  @play_close_button.set_focus
+                },
+              )
+            end
+          }
+          
+          on_shell_closed {
+            # guard is needed because there is an observer in Tetris closing on
+            # game.show_high_scores change, which gets set below
+            unless @closing
+              @closing = true
+              @high_score_table.cancel_edit!
+              game.paused = @game_paused
+              game.show_high_scores = false
+            else
+              @closing = false
+            end
+          }
+          
+          on_widget_disposed {
+            @game_over_observer.deregister
+          }
+        }
+      }
+    end
+  end
+end

data/lib/glimmer-dsl-opal/samples/elaborate/tetris/view/playfield.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 'block'
+
+class Tetris
+  module View
+    class Playfield
+      include Glimmer::UI::CustomWidget
+  
+      options :game_playfield, :playfield_width, :playfield_height, :block_size
+  
+      body {
+        composite {
+          grid_layout {
+            num_columns playfield_width
+            make_columns_equal_width true
+            margin_width block_size
+            margin_height block_size
+            horizontal_spacing 0
+            vertical_spacing 0
+          }
+
+          playfield_height.times { |row|
+            playfield_width.times { |column|
+              block(game_playfield: game_playfield, block_size: block_size, row: row, column: column) {
+                layout_data {
+                  width_hint block_size
+                  height_hint block_size
+                }
+              }
+            }
+          }
+        }
+      }
+    end
+  end
+end

data/lib/glimmer-dsl-opal/samples/elaborate/tetris/view/score_lane.rb

@@ -0,0 +1,83 @@
+# 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 'block'
+require_relative 'playfield'
+
+class Tetris
+  module View
+    class ScoreLane
+      include Glimmer::UI::CustomWidget
+  
+      options :block_size, :game
+      
+      before_body do
+        @font_name = FONT_NAME
+        @font_height = FONT_TITLE_HEIGHT
+      end
+  
+      body {
+        composite {
+          row_layout {
+            type :vertical
+            center true
+          }
+          label(:center) {
+            text 'Next'
+            font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
+          }
+          playfield(game_playfield: game.preview_playfield, playfield_width: Model::Game::PREVIEW_PLAYFIELD_WIDTH, playfield_height: Model::Game::PREVIEW_PLAYFIELD_HEIGHT, block_size: block_size)
+
+          label(:center) {
+            text 'Score'
+            font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text <= [game, :score]
+            font height: @font_height
+          }
+          
+          label # spacer
+          
+          label(:center) {
+            text 'Lines'
+            font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text <= [game, :lines]
+            font height: @font_height
+          }
+          
+          label # spacer
+          
+          label(:center) {
+            text 'Level'
+            font name: @font_name, height: @font_height, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text <= [game, :level]
+            font height: @font_height
+          }
+        }
+      }
+    end
+  end
+end

data/lib/glimmer-dsl-opal/samples/elaborate/tetris/view/tetris_menu_bar.rb

@@ -0,0 +1,136 @@
+# 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 Tetris
+  module View
+    class TetrisMenuBar
+      include Glimmer::UI::CustomWidget
+
+      COMMAND_KEY = OS.mac? ? :command : :ctrl
+  
+      options :game
+      
+      body {
+        menu_bar {
+          menu {
+            text '&Game'
+            
+            menu_item {
+              text '&Start'
+              enabled <= [game, :game_over]
+              accelerator COMMAND_KEY, :s
+              
+              on_widget_selected {
+                game.start!
+              }
+            }
+            menu_item(:check) {
+              text '&Pause'
+              accelerator COMMAND_KEY, :p
+              enabled <= [game, :game_over, on_read: ->(value) { !value && !game.show_high_scores }]
+              enabled <= [game, :show_high_scores, on_read: ->(value) { !value && !game.game_over }]
+              selection <=> [game, :paused]
+            }
+            menu_item {
+              text '&Restart'
+              accelerator COMMAND_KEY, :r
+              
+              on_widget_selected {
+                game.restart!
+              }
+            }
+            menu_item(:separator)
+            menu_item {
+              text '&Exit'
+              accelerator COMMAND_KEY, :x
+              
+              on_widget_selected {
+                parent_proxy.close
+              }
+            }
+          } # end of menu
+          
+          menu {
+            text '&View'
+            
+            menu {
+              text '&High Scores'
+              menu_item(:check) {
+                text '&Show'
+                accelerator COMMAND_KEY, :shift, :h
+                selection <=> [game, :show_high_scores]
+              }
+              menu_item {
+                text '&Clear'
+                accelerator COMMAND_KEY, :shift, :c
+                
+                on_widget_selected {
+                  game.clear_high_scores!
+                }
+              }
+            }
+          } # end of menu
+          
+          menu {
+            text '&Options'
+            menu {
+              text 'Up Action'
+              menu_item(:radio) {
+                text '&Instant Down'
+                accelerator COMMAND_KEY, :shift, :i
+                selection <=> [game, :instant_down_on_up, computed_by: :up_arrow_action]
+              }
+              menu_item(:radio) {
+                text 'Rotate &Right'
+                accelerator COMMAND_KEY, :shift, :r
+                selection <=> [game, :rotate_right_on_up, computed_by: :up_arrow_action]
+              }
+              menu_item(:radio) {
+                text 'Rotate &Left'
+                accelerator COMMAND_KEY, :shift, :l
+                selection <=> [game, :rotate_left_on_up, computed_by: :up_arrow_action]
+              }
+            }
+          } # end of menu
+          
+          menu {
+            text '&Help'
+            
+            menu_item {
+              text '&About'
+              accelerator COMMAND_KEY, :shift, :a
+              
+              on_widget_selected {
+                parent_custom_shell&.show_about_dialog
+              }
+            }
+          } # end of menu
+        }
+      }
+      
+      def parent_custom_shell
+        # grab custom shell widget wrapping parent widget proxy (i.e. Tetris) and invoke method on it
+        the_parent_custom_shell = parent_proxy&.get_data('custom_shell')
+        the_parent_custom_shell if the_parent_custom_shell&.visible?
+      end
+    end
+  end
+end

data/lib/glimmer-dsl-opal/samples/elaborate/tetris.rb

@@ -0,0 +1,155 @@
+# 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 'tetris/model/game'
+
+require_relative 'tetris/view/playfield'
+require_relative 'tetris/view/score_lane'
+require_relative 'tetris/view/high_score_dialog'
+require_relative 'tetris/view/tetris_menu_bar'
+class Event
+  def location
+    `#@native.location`
+  end
+end
+class Tetris
+  include Glimmer::UI::CustomShell
+  
+  BLOCK_SIZE = 7
+  FONT_NAME = 'Menlo'
+  FONT_TITLE_HEIGHT = 32
+  FONT_TITLE_STYLE = :bold
+  BEVEL_CONSTANT = 20
+  
+  option :playfield_width, default: Model::Game::PLAYFIELD_WIDTH
+  option :playfield_height, default: Model::Game::PLAYFIELD_HEIGHT
+  
+  attr_reader :game
+  
+  before_body do
+    @game = Model::Game.new(playfield_width, playfield_height)
+        
+    Display.app_name = 'Glimmer Tetris'
+
+    display {
+      on_swt_keydown do |key_event|
+        case key_event.keyCode
+        when swt(:arrow_up), 'w'.bytes.first
+          case game.up_arrow_action
+          when :instant_down
+            game.down!(instant: true)
+          when :rotate_right
+            game.rotate!(:right)
+          when :rotate_left
+            game.rotate!(:left)
+          end
+        when swt(:arrow_down), 's'.bytes.first
+          game.down!
+        when swt(:arrow_left), 'a'.bytes.first
+          game.left!
+        when swt(:arrow_right), 'd'.bytes.first
+          game.right!
+        when 'q'.bytes.first
+          game.rotate!(:left)
+        when 'e'.bytes.first
+          game.rotate!(:right)
+        when swt(:shift), swt(:alt)
+          if key_event.keyLocation == swt(:right) # right key
+            game.rotate!(:right)
+          elsif key_event.keyLocation == swt(:left) # left key
+            game.rotate!(:left)
+          end
+        end
+        
+      end
+    }
+  end
+  
+  after_body do
+    observe(@game, :game_over) do |game_over|
+      if game_over
+        show_high_score_dialog
+      else
+        start_moving_tetrominos_down
+      end
+    end
+    observe(@game, :show_high_scores) do |show_high_scores|
+      if show_high_scores
+        show_high_score_dialog
+      else
+        @high_score_dialog.close unless @high_score_dialog.nil? || @high_score_dialog.disposed? || !@high_score_dialog.visible?
+      end
+    end
+    @game.start!
+  end
+  
+  body {
+    shell(:no_resize) {
+      grid_layout {
+        num_columns 2
+        make_columns_equal_width false
+        margin_width 0
+        margin_height 0
+        horizontal_spacing 0
+      }
+      
+      text 'Glimmer Tetris'
+      background rgb(236, 236, 236)
+
+      tetris_menu_bar(game: game)
+
+      playfield(game_playfield: game.playfield, playfield_width: playfield_width, playfield_height: playfield_height, block_size: BLOCK_SIZE) {
+        layout_data {
+          width_hint 370
+        }
+      }
+
+      score_lane(game: game, block_size: BLOCK_SIZE) {
+        layout_data(:fill, :fill, true, true)
+      }
+    }
+  }
+
+  def start_moving_tetrominos_down
+    Async::Task.new do
+      work = lambda do
+        @game.down!
+        Async::Task.new(delay: @game.delay * 1000.0, &work) unless @game.game_over? || body_root.disposed?
+      end
+      Async::Task.new(delay: @game.delay * 1000.0, &work)
+    end
+  end
+  
+  def show_high_score_dialog
+    return if @high_score_dialog&.visible?
+    @high_score_dialog = high_score_dialog(parent_shell: body_root, game: @game) #if @high_score_dialog.nil? || @high_score_dialog.disposed?
+    @high_score_dialog.show
+  end
+  
+  def show_about_dialog
+    message_box {
+      text 'Glimmer Tetris'
+      message "Glimmer Tetris\n\nGlimmer DSL for SWT Sample\n\nUse arrow keys for movement\nand right/left alt/shift keys for rotation\nAlternatively:\nLeft is A\nRight is D\nDown is S\nUp is W\nRotate Left is Q\nRotate Right is E\n\n for Left, Down, Right, Up\n\nCopyright (c) 2007-2021 Andy Maleh"
+    }.open
+  end
+end
+
+Tetris.launch