glimmer-dsl-gtk 0.0.5 → 0.0.9

data/samples/cairo/fill_style.rb

@@ -0,0 +1,43 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Fill Style'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    path {
+      rectangle 12, 12, 232, 70
+      path { # sub-path
+        arc 64, 64, 40, 0, 2*Math::PI
+      }
+      path { # sub-path
+        arc_negative 192, 64, 40, 0, -2*Math::PI
+      }
+      
+      fill_rule Cairo::FILL_RULE_EVEN_ODD
+      line_width 6
+      fill 0, 178.5, 0
+      stroke 0, 0, 0
+    }
+    
+    path {
+      rectangle 12, 12, 232, 70
+      path { # sub-path
+        arc 64, 64, 40, 0, 2*Math::PI
+      }
+      path { # sub-path
+        arc_negative 192, 64, 40, 0, -2*Math::PI
+      }
+      
+      translate 0, 128
+      fill_rule Cairo::FILL_RULE_WINDING
+      line_width 6
+      fill 0, 0, 229.5
+      stroke 0, 0, 0
+    }
+  }
+}.show

data/samples/cairo/gradient.rb

@@ -0,0 +1,31 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Gradient'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+        
+    # Create the Linear Pattern
+    rectangle(0, 0, 256, 256) {
+      pat = Cairo::LinearPattern.new(0.0, 0.0,  0.0, 256.0)
+      pat.add_color_stop_rgba(1, 0, 0, 0, 1)
+      pat.add_color_stop_rgba(0, 1, 1, 1, 1)
+      
+      fill pat
+    }
+    
+    # Create the radial pattern
+    arc(128.0, 128.0, 76.8, 0, 2 * Math::PI) {
+      pat = Cairo::RadialPattern.new(115.2, 102.4, 25.6,
+                                         102.4,  102.4, 128.0)
+      pat.add_color_stop_rgba(0, 1, 1, 1, 1)
+      pat.add_color_stop_rgba(1, 0, 0, 0, 1)
+      
+      fill pat
+    }
+  }
+}.show

data/samples/cairo/image.rb

@@ -0,0 +1,28 @@
+require 'glimmer-dsl-gtk'
+require 'net/http'
+
+image_content = Net::HTTP.get(URI('https://raw.githubusercontent.com/AndyObtiva/glimmer-dsl-gtk/master/images/breaking-blue-wave.png'))
+image_file = File.join(Dir.home, 'breaking-blue-wave.png')
+File.write(image_file, image_content)
+
+include Glimmer
+
+window {
+  title 'Image'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+        
+    image = Cairo::ImageSurface.from_png(image_file)
+    w = image.width
+    h = image.height
+    
+    translate 128.0, 128.0
+    rotate 45*Math::PI/180
+    scale 256.0/w, 256.0/h
+    translate -0.5*w, -0.5*h
+    
+    paint image, 0, 0
+  }
+}.show

data/samples/cairo/image_gradient.rb

@@ -0,0 +1,37 @@
+require 'glimmer-dsl-gtk'
+require 'net/http'
+
+image_content = Net::HTTP.get(URI('https://raw.githubusercontent.com/AndyObtiva/glimmer-dsl-gtk/master/images/breaking-blue-wave.png'))
+image_file = File.join(Dir.home, 'breaking-blue-wave.png')
+File.write(image_file, image_content)
+
+include Glimmer
+
+window {
+  title 'Image Gradient'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    image = Cairo::ImageSurface.from_png(image_file)
+    w = image.width
+    h = image.height
+    
+    # Load the image as a surface pattern
+    pattern = Cairo::SurfacePattern.new(image)
+    pattern.extend = Cairo::EXTEND_REPEAT
+    
+    # Set up the scale matrix
+    pattern.matrix = Cairo::Matrix.scale(w/256.0 * 5.0, h/256.0 * 5.0)
+    
+    rectangle(0, 0, 256, 256) {
+      translate 128.0, 128.0
+      rotate Math::PI / 4
+      scale 1/Math.sqrt(2), 1/Math.sqrt(2)
+      translate -128.0, -128.0
+        
+      fill pattern
+    }
+  }
+}.show

data/samples/cairo/multi_segment_caps.rb

@@ -0,0 +1,27 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Multi Segment Caps'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    path {
+      move_to 50.0, 75.0
+      line_to 200.0, 75.0
+      
+      move_to 50.0, 125.0
+      line_to 200.0, 125.0
+      
+      move_to 50.0, 175.0
+      line_to 200.0, 175.0
+      
+      line_width 30
+      line_cap Cairo::LINE_CAP_ROUND
+      stroke 0, 0, 0
+    }
+  }
+}.show

data/samples/cairo/rounded_rectangle.rb

@@ -0,0 +1,20 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Rounded Rectangle'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    path {
+      rounded_rectangle(25.6, 25.6, 204.8, 204.8, 20)
+    
+      fill 127.5, 127.5, 255
+      line_width 10.0
+      stroke 127.5, 0, 0, 0.5
+    }
+  }
+}.show

data/samples/cairo/set_line_cap.rb

@@ -0,0 +1,53 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Set line cap'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    # The main code
+    path {
+      move_to 64.0, 50.0
+      line_to 64.0, 200.0
+      
+      line_cap Cairo::LINE_CAP_BUTT #  default
+      line_width 30
+      stroke 0, 0, 0
+    }
+    
+    path {
+      move_to 128.0, 50.0
+      line_to 128.0, 200.0
+      
+      line_cap Cairo::LINE_CAP_ROUND
+      line_width 30
+      stroke 0, 0, 0
+    }
+    
+    path {
+      move_to 192.0, 50.0
+      line_to 192.0, 200.0
+      
+      line_cap Cairo::LINE_CAP_SQUARE
+      line_width 30
+      stroke 0, 0, 0
+    }
+    
+    #  draw helping lines */
+    path {
+      move_to 64.0, 50.0
+      line_to 64.0, 200.0
+      move_to 128.0, 50.0
+      line_to 128.0, 200.0
+      move_to 192.0, 50.0
+      line_to 192.0, 200.0
+      
+      line_width 2.56
+      stroke 255, 51, 51
+    }
+  }
+}.show

data/samples/cairo/set_line_join.rb

@@ -0,0 +1,43 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Set line join'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    # The main code
+    path {
+      move_to 76.8, 84.48
+      rel_line_to 51.2, -51.2
+      rel_line_to 51.2, 51.2
+      
+      line_join Cairo::LINE_JOIN_MITER # default
+      line_width 40.96
+      stroke 0, 0, 0
+    }
+    
+    path {
+      move_to 76.8, 161.28
+      rel_line_to 51.2, -51.2
+      rel_line_to 51.2, 51.2
+      
+      line_join Cairo::LINE_JOIN_BEVEL
+      line_width 40.96
+      stroke 0, 0, 0
+    }
+    
+    path {
+      move_to 76.8, 238.08
+      rel_line_to 51.2, -51.2
+      rel_line_to 51.2, 51.2
+      
+      line_join Cairo::LINE_JOIN_ROUND
+      line_width 40.96
+      stroke 0, 0, 0
+    }
+  }
+}.show

data/samples/cairo/text.rb

@@ -0,0 +1,46 @@
+require 'glimmer-dsl-gtk'
+
+include Glimmer
+
+window {
+  title 'Text'
+  default_size 256, 256
+  
+  drawing_area {
+    paint 242.25, 242.25, 242.25
+    
+    font_family = OS.linux? ? 'Sans' : (OS.mac? ? 'Helvetica' : 'Arial')
+    
+    # The main code
+    path {
+      move_to 10.0, 135.0
+      show_text 'Hello'
+      
+      font_face font_family, Cairo::FONT_SLANT_NORMAL, Cairo::FONT_WEIGHT_BOLD
+      font_size 90.0
+      line_width 2.56
+      fill 0, 0, 0
+      stroke 0, 0, 0
+    }
+    
+    path {
+      move_to 70.0, 165.0
+      text_path 'void'
+      
+      font_face font_family, Cairo::FONT_SLANT_NORMAL, Cairo::FONT_WEIGHT_BOLD
+      font_size 90.0
+      line_width 2.56
+      fill 127.5, 127.5, 255
+      stroke 0, 0, 0
+    }
+    
+    # draw helping lines
+    path {
+      arc 10.0, 135.0, 5.12, 0, 2*Math::PI
+      close_path
+      arc 70.0, 165.0, 5.12, 0, 2*Math::PI
+      
+      fill 255, 51, 51, 0.6
+    }
+  }
+}.show

data/samples/elaborate/tetris/model/game.rb

@@ -36,21 +36,27 @@ class Tetris
       PREVIEW_PLAYFIELD_WIDTH = 4
       PREVIEW_PLAYFIELD_HEIGHT = 2
       SCORE_MULTIPLIER = {1 => 40, 2 => 100, 3 => 300, 4 => 1200}
+      UP_ARROW_ACTIONS = %i[instant_down rotate_right rotate_left]
+      SPEEDS = %i[snail sloth turtle rabbit gorilla bear horse gazelle cheetah falcon]
+      SPEED_INITIAL_DELAYS = SPEEDS.each_with_index.inject({}) {|hash, speed_index_pair| hash.merge(speed_index_pair.first => 1.1 - speed_index_pair.last*(0.1)) }
       
       attr_reader :playfield_width, :playfield_height
-      attr_accessor :game_over, :paused, :preview_tetromino, :lines, :score, :level, :high_scores, :beeping, :added_high_score, :show_high_scores, :up_arrow_action
+      attr_accessor :game_over, :paused, :preview_tetromino, :lines, :score, :level, :high_scores, :beeping, :added_high_score, :show_high_scores, :up_arrow_action, :show_preview_tetromino, :initial_delay
       alias game_over? game_over
       alias paused? paused
       alias beeping? beeping
       alias added_high_score? added_high_score
+      alias show_preview_tetromino? show_preview_tetromino
       
       def initialize(playfield_width = PLAYFIELD_WIDTH, playfield_height = PLAYFIELD_HEIGHT)
+        @initial_delay = SPEED_INITIAL_DELAYS[:snail]
         @playfield_width = playfield_width
         @playfield_height = playfield_height
         @high_scores = []
         @show_high_scores = false
         @beeping = true
         @up_arrow_action = :rotate_left
+        @show_preview_tetromino = true
         load_high_scores!
       end
       
@@ -200,47 +206,35 @@ class Tetris
       end
       
       def delay
-        [1.1 - (level.to_i * 0.1), 0.001].max
+        [@initial_delay - (level.to_i * 0.1), 0.001].max
       end
       
       def beep
         @beeper&.call if beeping
       end
       
-      def instant_down_on_up=(value)
-        self.up_arrow_action = :instant_down if value
-      end
-      
-      def instant_down_on_up
-        self.up_arrow_action == :instant_down
-      end
-      
-      def instant_down_on_up!
-        self.up_arrow_action = :instant_down
-      end
-      
-      def rotate_right_on_up=(value)
-        self.up_arrow_action = :rotate_right if value
-      end
-      
-      def rotate_right_on_up
-        self.up_arrow_action == :rotate_right
-      end
-      
-      def rotate_right_on_up!
-        self.up_arrow_action = :rotate_right
-      end
-      
-      def rotate_left_on_up=(value)
-        self.up_arrow_action = :rotate_left if value
-      end
-      
-      def rotate_left_on_up
-        self.up_arrow_action == :rotate_left
+      SPEED_INITIAL_DELAYS.each do |speed, speed_initial_day|
+        define_method("speed_#{speed}=") do |is_true|
+          self.initial_delay = speed_initial_day if is_true
+        end
+        
+        define_method("speed_#{speed}") do
+          self.initial_delay == speed_initial_day
+        end
       end
       
-      def rotate_left_on_up!
-        self.up_arrow_action = :rotate_left
+      UP_ARROW_ACTIONS.each do |up_arrow_action_symbol|
+        define_method("#{up_arrow_action_symbol}_on_up=") do |is_true|
+          self.up_arrow_action = up_arrow_action_symbol if is_true
+        end
+        
+        define_method("#{up_arrow_action_symbol}_on_up") do
+          self.up_arrow_action == up_arrow_action_symbol
+        end
+        
+        define_method("#{up_arrow_action_symbol}_on_up!") do
+          self.up_arrow_action = up_arrow_action_symbol
+        end
       end
       
       def reset_tetrominoes

data/samples/elaborate/tetris.rb

@@ -94,17 +94,32 @@ class Tetris
     
     Model::Game::PREVIEW_PLAYFIELD_HEIGHT.times do |row|
       Model::Game::PREVIEW_PLAYFIELD_WIDTH.times do |column|
-        observe(@game.preview_playfield[row][column], :color) do |new_color|
-          color = new_color
+        preview_updater = proc do
           block = @preview_playfield_blocks[row][column]
-          block[:background_square].fill = color
-          block[:top_bevel_edge].fill = [color[0] + 4*BEVEL_CONSTANT, color[1] + 4*BEVEL_CONSTANT, color[2] + 4*BEVEL_CONSTANT]
-          block[:right_bevel_edge].fill = [color[0] - BEVEL_CONSTANT, color[1] - BEVEL_CONSTANT, color[2] - BEVEL_CONSTANT]
-          block[:bottom_bevel_edge].fill = [color[0] - BEVEL_CONSTANT, color[1] - BEVEL_CONSTANT, color[2] - BEVEL_CONSTANT]
-          block[:left_bevel_edge].fill = [color[0] - BEVEL_CONSTANT, color[1] - BEVEL_CONSTANT, color[2] - BEVEL_CONSTANT]
-          block[:border_square].stroke = new_color == Model::Block::COLOR_CLEAR ? COLOR_GRAY : color
+          if @game.show_preview_tetromino?
+            new_color = @game.preview_playfield[row][column].color
+            block[:background_square].fill = new_color
+            block[:top_bevel_edge].fill = [new_color[0] + 4*BEVEL_CONSTANT, new_color[1] + 4*BEVEL_CONSTANT, new_color[2] + 4*BEVEL_CONSTANT]
+            block[:right_bevel_edge].fill = [new_color[0] - BEVEL_CONSTANT, new_color[1] - BEVEL_CONSTANT, new_color[2] - BEVEL_CONSTANT]
+            block[:bottom_bevel_edge].fill = [new_color[0] - BEVEL_CONSTANT, new_color[1] - BEVEL_CONSTANT, new_color[2] - BEVEL_CONSTANT]
+            block[:left_bevel_edge].fill = [new_color[0] - BEVEL_CONSTANT, new_color[1] - BEVEL_CONSTANT, new_color[2] - BEVEL_CONSTANT]
+            block[:border_square].stroke = new_color == Model::Block::COLOR_CLEAR ? COLOR_GRAY : new_color
+            @next_label.text = 'Next'
+          else
+            transparent_color = [0, 0, 0, 0]
+            block[:background_square].fill = transparent_color
+            block[:top_bevel_edge].fill = transparent_color
+            block[:right_bevel_edge].fill = transparent_color
+            block[:bottom_bevel_edge].fill = transparent_color
+            block[:left_bevel_edge].fill = transparent_color
+            block[:border_square].stroke = transparent_color
+            @next_label.text = ''
+          end
           block[:drawing_area].queue_draw
         end
+      
+        observe(@game.preview_playfield[row][column], :color, &preview_updater)
+        observe(@game, :show_preview_tetromino, &preview_updater)
       end
     end
     
@@ -150,6 +165,16 @@ class Tetris
       
       menu_item(label: 'View') { |mi|
         m = menu {
+          check_menu_item(label: 'Show Next Block Preview') {
+            active @game.show_preview_tetromino?
+          
+            on(:activate) do
+              @game.show_preview_tetromino = !@game.show_preview_tetromino?
+            end
+          }
+          
+          separator_menu_item
+          
           menu_item(label: 'Show High Scores') {
             on(:activate) do
               show_high_score_dialog
@@ -165,6 +190,27 @@ class Tetris
         mi.submenu = m.gtk
       }
       
+      menu_item(label: 'Speed') { |mi|
+        m = menu {
+          rmi = radio_menu_item(nil, Model::Game::SPEEDS.first.to_s.capitalize) {
+            active true
+            
+            on(:activate) do
+              @game.send("speed_#{Model::Game::SPEEDS.first}=", true)
+            end
+          }
+          
+          Model::Game::SPEEDS.drop(1).each do |speed|
+            radio_menu_item(rmi.group, speed.to_s.capitalize) {
+              on(:activate) do
+                @game.send("speed_#{speed}=", true)
+              end
+            }
+          end
+        }
+        mi.submenu = m.gtk
+      }
+      
       menu_item(label: 'Options') { |mi|
         m = menu {
           rmi = radio_menu_item(nil, 'Instant Down on Up') {
@@ -189,7 +235,7 @@ class Tetris
         mi.submenu = m.gtk
       }
       
-      menu_item(label: 'Options') { |mi|
+      menu_item(label: 'Help') { |mi|
         m = menu {
           menu_item(label: 'About') {
             on(:activate) do
@@ -205,6 +251,7 @@ class Tetris
   def score_board
     box(:vertical) {
       label
+      @next_label = label('Next')
       @preview_playfield_blocks = playfield(playfield_width: Model::Game::PREVIEW_PLAYFIELD_WIDTH, playfield_height: Model::Game::PREVIEW_PLAYFIELD_HEIGHT, block_size: BLOCK_SIZE)
       
       label
@@ -278,29 +325,29 @@ class Tetris
   def start_moving_tetrominos_down
     unless @tetrominos_start_moving_down
       @tetrominos_start_moving_down = true
-      GLib::Timeout.add(@game.delay*1000) do
+      tetromino_move = proc do
         @game.down! if !@game.game_over? && !@game.paused?
-        true
+        GLib::Timeout.add(@game.delay*1000, &tetromino_move)
+        false # do not repeat
       end
+      GLib::Timeout.add(@game.delay*1000, &tetromino_move)
     end
   end
   
   def show_game_over_dialog
-    message_dialog(@main_window) { |md|
+    @game.paused = true
+    message_dialog(parent: @main_window) { |md|
       title 'Game Over!'
       text "Score: #{@game.high_scores.first.score}\nLines: #{@game.high_scores.first.lines}\nLevel: #{@game.high_scores.first.level}"
       
       on(:response) do
+        @game.restart!
         md.destroy
       end
     }.show
-    
-    @game.restart!
-    false
   end
   
   def show_high_score_dialog
-    game_paused = !!@game.paused
     @game.paused = true
     
     if @game.high_scores.empty?
@@ -311,20 +358,19 @@ class Tetris
       end.join("\n")
     end
     
-    message_dialog(@main_window) { |md|
+    message_dialog(parent: @main_window) { |md|
       title 'High Scores'
       text high_scores_string
       
       on(:response) do
+        @game.paused = false
         md.destroy
       end
     }.show
-    
-    @game.paused = game_paused
   end
   
   def show_about_dialog
-    message_dialog(@main_window) { |md|
+    message_dialog(parent: @main_window) { |md|
       title 'About'
       text "Glimmer Tetris\n\nGlimmer DSL for GTK\n\nElaborate Sample\n\nCopyright (c) 2021-2022 Andy Maleh"
       

data/samples/elaborate/widget_gallery.rb

@@ -4,7 +4,7 @@ include Glimmer
 
 application('org.glimmer.hello-application') {
   on(:activate) do |app|
-    application_window(app) {
+    application_window(app) { |aw|
       title 'Widget Gallery'
       
       notebook { |n|
@@ -46,13 +46,24 @@ application('org.glimmer.hello-application') {
               spacing 10
               
               label('Button')
-              button('Push Me')
+              button(label: 'Push Me') {
+                on(:clicked) do
+                  message_dialog(parent: aw) { |md|
+                    title 'Information'
+                    text 'You clicked the button'
+                    
+                    on(:response) do
+                      md.destroy
+                    end
+                  }.show
+                end
+              }
               
               label('Radio Button')
               box(:horizontal) {
-                rb = radio_button('One')
-                radio_button(rb, 'Two')
-                radio_button(rb, 'Three')
+                rb = radio_button(label: 'One')
+                radio_button(label: 'Two', member: rb)
+                radio_button(label: 'Three', member: rb)
               }
               
               label('Check Button')
@@ -74,12 +85,12 @@ application('org.glimmer.hello-application') {
               spacing 10
               
               label('Horizontal Scale')
-              h_scale(1, 100, 1) {
+              scale(:horizontal, 1, 100, 1) {
                 visible true
               }
               
               label('Vertical Scale')
-              v_scale(1, 100, 1) {
+              scale(:vertical, 1, 100, 1) {
                 visible true
                 height_request 200
               }

data/samples/hello/hello_button.rb

@@ -5,9 +5,9 @@ include Glimmer
 window { |w|
   title 'Hello, Button!'
   
-  button('Button') {
+  button(label: 'Button') {
     on(:clicked) do
-      message_dialog(w) { |md|
+      message_dialog(parent: w) { |md|
         title 'Information'
         text 'You clicked the button'
         

data/samples/hello/hello_entry.rb

@@ -14,9 +14,9 @@ window { |w|
       end
     }
     
-    button('Button') {
+    button(label: 'Button') {
       on(:clicked) do
-        message_dialog(w) { |md|
+        message_dialog(parent: w) { |md|
           title 'You entered'
           text e.text