glimmer_tetris 1.0.0

data/app/glimmer_tetris/view/block.rb

@@ -0,0 +1,39 @@
+# Copyright (c) 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 GlimmerTetris
+  module View
+    class Block
+      include Glimmer::UI::CustomWidget
+      
+      option :game_block
+  
+      body {
+        canvas { |canvas_proxy|
+          bevel(size: BLOCK_SIZE) {
+            base_color bind(game_block, :color)
+          }
+        }
+      }
+  
+    end
+  end
+end

data/app/glimmer_tetris/view/high_score_dialog.rb

@@ -0,0 +1,124 @@
+# Copyright (c) 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 GlimmerTetris
+  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 'Tetris'
+          
+          tetris_menu_bar(game: game)
+          
+          label(:center) {
+            text bind(game, :game_over) {|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 bind(game, :high_scores, read_only_sort: true), column_properties(:name, :score, :lines, :level)
+          }
+          composite {
+            row_layout :horizontal
+                        
+            @play_close_button = button {
+              text bind(game, :game_over) {|game_over| game_over ? 'Play Again?' : 'Close'}
+              focus true # initial focus
+              
+              on_widget_selected {
+                async_exec { 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
+              game.save_high_scores!
+              @high_score_table.edit_table_item(
+                @high_score_table.items.first, # row item
+                0, # column
+                write_on_cancel: true,
+                after_write: -> {
+                  game.save_high_scores!
+                  @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/app/glimmer_tetris/view/playfield.rb

@@ -0,0 +1,57 @@
+# Copyright (c) 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 GlimmerTetris
+  module View
+    class Playfield
+      include Glimmer::UI::CustomWidget
+  
+      options :game_playfield, :playfield_width, :playfield_height
+  
+      body {
+        composite((:double_buffered unless OS.mac?)) {
+          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 do |row|
+            playfield_width.times do |column|
+              block(game_block: game_playfield[row][column]) {
+                layout_data {
+                  width_hint BLOCK_SIZE
+                  height_hint BLOCK_SIZE
+                }
+              }
+            end
+          end
+        }
+      }
+  
+    end
+  end
+end

data/app/glimmer_tetris/view/score_lane.rb

@@ -0,0 +1,81 @@
+# Copyright (c) 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 'playfield'
+
+class GlimmerTetris
+  module View
+    class ScoreLane
+      include Glimmer::UI::CustomWidget
+  
+      options :game
+      
+      body {
+        composite {
+          row_layout {
+            type :vertical
+            center true
+            fill true
+            margin_width 0
+            margin_right BLOCK_SIZE
+            margin_height BLOCK_SIZE
+          }
+          label(:center) {
+            text 'Next'
+            font name: FONT_NAME, height: FONT_TITLE_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)
+
+          label(:center) {
+            text 'Score'
+            font name: FONT_NAME, height: FONT_TITLE_HEIGHT, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text bind(game, :score)
+            font height: FONT_TITLE_HEIGHT
+          }
+          
+          label # spacer
+          
+          label(:center) {
+            text 'Lines'
+            font name: FONT_NAME, height: FONT_TITLE_HEIGHT, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text bind(game, :lines)
+            font height: FONT_TITLE_HEIGHT
+          }
+          
+          label # spacer
+          
+          label(:center) {
+            text 'Level'
+            font name: FONT_NAME, height: FONT_TITLE_HEIGHT, style: FONT_TITLE_STYLE
+          }
+          label(:center) {
+            text bind(game, :level)
+            font height: FONT_TITLE_HEIGHT
+          }
+        }
+      }
+    end
+  end
+end

data/app/glimmer_tetris/view/tetris_menu_bar.rb

@@ -0,0 +1,142 @@
+# Copyright (c) 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 GlimmerTetris
+  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 bind(game, :game_over)
+              accelerator COMMAND_KEY, :s
+              
+              on_widget_selected {
+                game.start!
+              }
+            }
+            menu_item(:check) {
+              text '&Pause'
+              accelerator COMMAND_KEY, :p
+              enabled bind(game, :game_over, on_read: :!) {|value| value && !game.show_high_scores}
+              enabled bind(game, :show_high_scores, on_read: :!) {|value| value && !game.game_over}
+              selection bind(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 bind(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_item(:check) {
+              text '&Beeping'
+              accelerator COMMAND_KEY, :b
+              selection bind(game, :beeping)
+            }
+            menu {
+              text 'Up Arrow'
+              menu_item(:radio) {
+                text '&Instant Down'
+                accelerator COMMAND_KEY, :shift, :i
+                selection bind(game, :instant_down_on_up, computed_by: :up_arrow_action)
+              }
+              menu_item(:radio) {
+                text 'Rotate &Right'
+                accelerator COMMAND_KEY, :shift, :r
+                selection bind(game, :rotate_right_on_up, computed_by: :up_arrow_action)
+              }
+              menu_item(:radio) {
+                text 'Rotate &Left'
+                accelerator COMMAND_KEY, :shift, :l
+                selection bind(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