glimmer-dsl-swt 4.21.2.4 → 4.22.1.1

data/samples/elaborate/quarto/view/message_box_panel.rb

@@ -0,0 +1,114 @@
+# 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 Quarto
+  module View
+    class MessageBoxPanel
+      include Glimmer::UI::CustomShape
+      
+      FONT_HEIGHT_DEFAULT = 12
+      BUTTON_TEXT_DEFAULT = 'OK'
+      
+      option :message
+      option :location_x, default: :default
+      option :location_y, default: :default
+      option :size_width
+      option :size_height
+      option :background_color, default: :white
+      option :foreground_color, default: :black
+      option :border_line_width, default: 1
+      option :text_font, default: {height: FONT_HEIGHT_DEFAULT}
+      option :text_color, default: :black
+      
+      attr_reader :closed
+      alias closed? closed
+      
+      def can_handle_observation_request?(observation_request)
+        observation_request == 'on_closed' || super
+      end
+      
+      def handle_observation_request(observation_request, &block)
+        if observation_request == 'on_closed'
+          @on_closed_handlers ||= []
+          @on_closed_handlers << block
+        else
+          super
+        end
+      end
+      
+      before_body do
+        @font_height = text_font[:height] || FONT_HEIGHT_DEFAULT
+        self.size_width ||= [:default, @font_height*4.0]
+        self.size_height ||= [:default, @font_height*4.0]
+        @text_offset = -1.2*@font_height
+        
+        display {
+          on_swt_keyup do |key_event|
+            close if key_event.keyCode == swt(:cr)
+          end
+        }
+      end
+      
+      body {
+        rectangle(location_x, location_y, size_width, size_height, round: true) {
+          background background_color
+                      
+          text(message, :default, [:default, @text_offset]) {
+            foreground :black
+            font text_font
+          }
+          
+          rectangle(0, 0, :max, :max, round: true) { # border drawn around max dimensions of parent
+            foreground foreground_color
+            line_width border_line_width
+          }
+          
+          rectangle(:default, [:default, @font_height + (@font_height/2.0)], @font_height*5.5, @font_height*2.0, @font_height, @font_height, round: true) {
+            background background_color
+
+            text(BUTTON_TEXT_DEFAULT) {
+              foreground text_color
+              font text_font
+            }
+            
+            on_mouse_up do
+              close
+            end
+          }
+          
+          rectangle(:default, [:default, @font_height + (@font_height/2.0)], @font_height*5.5, @font_height*2.0, @font_height, @font_height, round: true) { # border
+            foreground foreground_color
+            line_width border_line_width
+          }
+        }
+      }
+      
+      def close
+        unless @closed
+          @closed = true
+          @on_closed_handlers&.each {|handler| handler.call}
+          @on_closed_handlers&.clear
+          body_root.dispose
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/piece.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 'cylinder'
+require_relative 'cube'
+
+class Quarto
+  module View
+    class Piece
+      include Glimmer::UI::CustomShape
+      
+      SIZE_SHORT = 28
+      SIZE_TALL = 48
+      BASIC_SHAPE_WIDTH = 48
+      BASIC_SHAPE_HEIGHT = 28
+      LINE_THICKNESS = 2
+      
+      options :game, :model, :location_x, :location_y
+      
+      before_body do
+        @background_color = model.light? ? COLOR_LIGHT_WOOD : COLOR_DARK_WOOD
+        @size = model.short? ? SIZE_SHORT : SIZE_TALL
+        @shape_location_x = 0
+        @shape_location_y = model.short? ? 20 : 0
+      end
+      
+      body {
+        shape(location_x, location_y) {
+          if model.is_a?(Model::Piece::Cylinder)
+            cylinder(location_x: @shape_location_x, location_y: @shape_location_y, cylinder_height: @size, oval_width: BASIC_SHAPE_WIDTH, oval_height: BASIC_SHAPE_HEIGHT, pitted: model.pitted?, background_color: @background_color, line_thickness: LINE_THICKNESS)
+          else
+            cube(location_x: @shape_location_x, location_y: @shape_location_y, cube_height: @size, rectangle_width: BASIC_SHAPE_WIDTH, rectangle_height: BASIC_SHAPE_HEIGHT, pitted: model.pitted?, background_color: @background_color, line_thickness: LINE_THICKNESS)
+          end
+        }
+      }
+    end
+  end
+end

data/samples/elaborate/quarto/view/selected_piece_area.rb

@@ -0,0 +1,69 @@
+# 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 'piece'
+
+class Quarto
+  module View
+    class SelectedPieceArea
+      include Glimmer::UI::CustomShape
+      
+      options :game
+      option :location_x, default: 0
+      option :location_y, default: 0
+      
+      attr_reader :selected_piece
+      
+      body {
+        rectangle(location_x, location_y, PIECES_AREA_WIDTH, SELECTED_PIECE_AREA_HEIGHT) {
+          background COLOR_WOOD
+          
+          rectangle(0, 0, :max, :max, round: true) { # border
+            foreground :black
+            line_width 2
+          }
+          
+          text('Selected Piece', 15, 10) {
+            font height: 18, style: :bold
+          }
+          
+          on_drop do |drop_event|
+            dragged_piece = drop_event.dragged_shape
+            if dragged_piece.parent.get_data('custom_shape').is_a?(AvailablePiecesArea)
+              model = dragged_piece.get_data('custom_shape').model
+              dragged_piece.dispose
+              body_root.content {
+                @selected_piece = piece(game: game, model: model, location_x: 15, location_y: 15 + 25)
+              }
+              game.select_piece(model)
+            else
+              drop_event.doit = false
+            end
+          end
+        }
+      }
+      
+      def reset_selected_piece
+        @selected_piece&.dispose
+      end
+    end
+  end
+end

data/samples/elaborate/quarto.rb

@@ -0,0 +1,190 @@
+# 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 'yaml'
+
+require_relative 'quarto/model/game'
+require_relative 'quarto/view/board'
+require_relative 'quarto/view/available_pieces_area'
+require_relative 'quarto/view/selected_piece_area'
+require_relative 'quarto/view/message_box_panel'
+
+class Quarto
+  include Glimmer::UI::CustomShell
+  
+  BOARD_DIAMETER = 430
+  PIECES_AREA_WIDTH = 252
+  AVAILABLE_PIECES_AREA_HEIGHT = 295
+  SELECTED_PIECE_AREA_HEIGHT = 124
+  CELL_DIAMETER = 68
+  CELL_LINE_WIDTH = 5
+  CELL_MARGIN = 7
+  SHELL_MARGIN = 15
+  AREA_MARGIN = 10
+  ROW_COUNT = 4
+  COLUMN_COUNT = 4
+  COLOR_WOOD = rgb(239, 196, 156)
+  COLOR_AREA = rgb(206, 188, 170)
+  COLOR_LIGHT_WOOD = rgb(254, 187, 120)
+  COLOR_DARK_WOOD = rgb(204, 108, 58)
+  MESSAGE_BOX_PANEL_WIDTH = 300
+  MESSAGE_BOX_PANEL_HEIGHT = 100
+  FILE_QUARTO_CONFIG = File.join(Dir.home, '.quarto')
+  
+  before_body do
+    load_quarto_config
+    @game = Model::Game.new
+    
+    observe(@game, :current_move) do |new_move|
+      perform_current_move
+    end
+    
+    observe(@game, :over) do |game_over_status|
+      if game_over_status
+        game_over_message = "Game Over! "
+        game_over_message += @game.winner_player_number.nil? ? "Draw!" : "Player #{@game.winner_player_number} wins!"
+        body_root.content {
+          @open_message_box_panel&.close
+          @open_message_box_panel = message_box_panel(
+            message: game_over_message,
+            background_color: COLOR_LIGHT_WOOD,
+            text_font: {height: 16}
+          ) {
+            on_closed do
+              restart_game
+            end
+          }
+        }
+      end
+    end
+  end
+  
+  after_body do
+    perform_current_move
+  end
+  
+  body {
+    shell(:shell_trim, (:double_buffered unless OS.mac?)) {
+      text 'Glimmer Quarto'
+      minimum_size BOARD_DIAMETER + AREA_MARGIN + PIECES_AREA_WIDTH + SHELL_MARGIN*2 + (OS.linux? ? 52 : (OS.windows? ? 16 : 0)), BOARD_DIAMETER + 24 + SHELL_MARGIN*2 + (OS.linux? ? 96 : (OS.windows? ? 32 : 0))
+      maximum_size BOARD_DIAMETER + AREA_MARGIN + PIECES_AREA_WIDTH + SHELL_MARGIN*2 + (OS.linux? ? 52 : (OS.windows? ? 16 : 0)), BOARD_DIAMETER + 24 + SHELL_MARGIN*2 + (OS.linux? ? 96 : (OS.windows? ? 32 : 0))
+      background COLOR_WOOD
+      
+      quarto_menu_bar
+      
+      @board = board(game: @game, location_x: SHELL_MARGIN, location_y: SHELL_MARGIN)
+  
+      @available_pieces_area = available_pieces_area(game: @game, location_x: SHELL_MARGIN + BOARD_DIAMETER + AREA_MARGIN, location_y: SHELL_MARGIN)
+      @selected_piece_area = selected_piece_area(game: @game, location_x: SHELL_MARGIN + BOARD_DIAMETER + AREA_MARGIN, location_y: SHELL_MARGIN + AVAILABLE_PIECES_AREA_HEIGHT + AREA_MARGIN)
+    }
+  }
+  
+  def quarto_menu_bar
+    menu_bar {
+      menu {
+        text 'Game'
+        
+        menu_item {
+          text 'Restart'
+          
+          on_widget_selected do
+            restart_game
+          end
+        }
+        
+        menu_item {
+          text 'Exit'
+          
+          on_widget_selected do
+            exit(0)
+          end
+        }
+      }
+      menu {
+        text 'Help'
+        
+        menu_item(:check) {
+          text 'Help Pop-Ups Enabled'
+          selection <=> [self, :help_pop_ups_enabled]
+        }
+      }
+    }
+  end
+  
+  def help_pop_ups_enabled
+    @quarto_config[:help_pop_ups_enabled]
+  end
+  alias help_pop_ups_enabled? help_pop_ups_enabled
+  
+  def help_pop_ups_enabled=(new_value)
+    @quarto_config[:help_pop_ups_enabled] = new_value
+    save_quarto_config
+  end
+  
+  def load_quarto_config
+    @quarto_config = YAML.load(File.read(FILE_QUARTO_CONFIG)) rescue {}
+    @quarto_config[:help_pop_ups_enabled] = true if @quarto_config[:help_pop_ups_enabled].nil?
+    @quarto_config
+  end
+  
+  def save_quarto_config
+    File.write(FILE_QUARTO_CONFIG, YAML.dump(@quarto_config))
+  rescue => e
+    puts "Unable to save quarto config file to: #{@quarto_config}"
+  end
+  
+  def perform_current_move
+    verbiage = nil
+    case @game.current_move
+    when :select_piece
+      @available_pieces_area.pieces.each {|piece| piece.drag_source = true}
+      verbiage = "Player #{@game.current_player_number} must drag a piece to the Selected Piece\narea for the other player to place on the board!"
+    when :place_piece
+      @available_pieces_area.pieces.each {|piece| piece.drag_source = false}
+      @selected_piece_area.selected_piece.drag_source = true
+      verbiage = "Player #{@game.current_player_number} must drag the selected piece to the board\nin order to place it!"
+    end
+    body_root.text = "Glimmer Quarto | Player #{@game.current_player_number} #{@game.current_move.to_s.split('_').map(&:capitalize).join(' ')}"
+    if help_pop_ups_enabled?
+      async_exec do
+        body_root.content {
+          @open_message_box_panel&.close
+          @open_message_box_panel = message_box_panel(
+            message: verbiage,
+            background_color: COLOR_LIGHT_WOOD,
+            text_font: {height: 16}
+          )
+        }
+        body_root.redraw
+      end
+    end
+  end
+  
+  def restart_game
+    @available_pieces_area.reset_pieces
+    @selected_piece_area.reset_selected_piece
+    @board.reset_cells
+    @game.restart
+  end
+end
+
+Quarto.launch

data/samples/hello/hello_custom_widget.rb

@@ -32,11 +32,24 @@ class GreetingLabel
   option :greeting, default: 'Hello'
   
   # internal attribute (not a custom widget option)
-  attr_accessor :color
+  attr_accessor :label_color
+  
+  def can_handle_observation_request?(event, &block)
+    event.to_s == 'on_color_changed' || super
+  end
+  
+  def handle_observation_request(event, &block)
+    if event.to_s == 'on_color_changed'
+      @color_changed_handlers ||= []
+      @color_changed_handlers << block
+    else
+      super
+    end
+  end
   
   before_body do
     @font = {height: 24, style: :bold}
-    @color = :black
+    @label_color = :black
   end
   
   after_body do
@@ -44,7 +57,8 @@ class GreetingLabel
     
     Thread.new {
       colors.cycle { |color|
-        self.color = color
+        self.label_color = color
+        @color_changed_handlers&.each {|handler| handler.call(color)}
         sleep(1)
       }
     }
@@ -55,7 +69,7 @@ class GreetingLabel
     label(swt_style) {
       text "#{greeting}, #{name}!"
       font @font
-      foreground <=> [self, :color]
+      foreground <=> [self, :label_color]
     }
   }
   
@@ -82,5 +96,9 @@ shell {
   }
   
   # the colors option cycles between colors for the label foreground every second
-  greeting_label(:center, name: 'Mary', greeting: 'Aloha', colors: [:red, :dark_green, :blue])
+  greeting_label(:center, name: 'Mary', greeting: 'Aloha', colors: [:red, :dark_green, :blue]) {
+    on_color_changed do |color|
+      puts "Label color changed: #{color}"
+    end
+  }
 }.open

data/samples/hello/hello_scrolled_composite.rb

@@ -0,0 +1,95 @@
+# 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 {
+  grid_layout {
+    margin_width 0
+    margin_height 0
+  }
+  
+  text 'Hello, Scrolled Composite!'
+  maximum_size 400, 400
+  
+  composite {
+    layout_data {
+      horizontal_alignment :center
+    }
+    
+    row_layout
+    
+    button {
+      text '<<'
+      
+      on_widget_selected do
+        @scrolled_composite.set_origin(0, @scrolled_composite.origin.y)
+      end
+    }
+    
+    button {
+      text '>>'
+      
+      on_widget_selected do
+        @scrolled_composite.set_origin(@inner_composite.size.x, @scrolled_composite.origin.y)
+      end
+    }
+    
+    button {
+      text '^^'
+      
+      on_widget_selected do
+        @scrolled_composite.set_origin(@scrolled_composite.origin.x, 0)
+      end
+    }
+    
+    button {
+      text 'vv'
+      
+      on_widget_selected do
+        @scrolled_composite.set_origin(@scrolled_composite.origin.x, @inner_composite.size.y)
+      end
+    }
+  }
+
+  @scrolled_composite = scrolled_composite {
+    layout_data :fill, :fill, true, true
+    
+    @inner_composite = composite {
+      row_layout(:vertical)
+      
+      background :white
+
+      50.times do |n|
+        label {
+          layout_data {
+            height 20
+          }
+          
+          text "Line #{n+1} has a lot of gibberish in it. In fact, it has so much gibberish that it does not fit the window horizontally, so scrollbars must be used to see all the text."
+          background :white
+        }
+      end
+    }
+  }
+}.open

data/samples/hello/hello_world.rb

@@ -25,6 +25,7 @@ include Glimmer
 
 shell {
   text 'Glimmer'
+
   label {
     text 'Hello, World!'
   }