glimmer-dsl-swt 4.20.13.6 → 4.20.13.10

data/samples/elaborate/klondike_solitaire/view/hidden_playing_card.rb

@@ -0,0 +1,26 @@
+class KlondikeSolitaire
+  module View
+    class HiddenPlayingCard
+      include Glimmer::UI::CustomShape
+  
+      options :card_x, :card_y
+      
+      before_body do
+        self.card_x ||= 0
+        self.card_y ||= 0
+      end
+      
+      body {
+        rectangle(card_x, card_y, 49, 79, 15, 15) {
+          background :red
+          
+          # border
+          rectangle(0, 0, 49, 79, 15, 15) {
+            foreground :black
+          }
+        }
+      }
+  
+    end
+  end
+end

data/samples/elaborate/klondike_solitaire/view/playing_card.rb

@@ -0,0 +1,35 @@
+class KlondikeSolitaire
+  module View
+    class PlayingCard
+      include Glimmer::UI::CustomShape
+  
+      options :card_x, :card_y, :model, :parent_pile
+      
+      before_body do
+        self.card_x ||= 0
+        self.card_y ||= 0
+      end
+  
+      body {
+        rectangle(card_x, card_y, 49, 79, 15, 15) {
+          background model.hidden ? :red : :white
+          
+          # border
+          rectangle(0, 0, 49, 79, 15, 15) {
+            foreground :black
+          }
+          
+          unless model.hidden?
+            text {
+              string model ? "#{model.rank_text}#{model.suit_text}" : ""
+              x 5
+              y 5
+              foreground model ? model.color : :transparent
+            }
+          end
+        }
+      }
+  
+    end
+  end
+end

data/samples/elaborate/klondike_solitaire/view/tableau.rb

@@ -0,0 +1,41 @@
+require_relative 'dealing_pile'
+require_relative 'dealt_pile'
+require_relative 'column_pile'
+require_relative 'foundation_pile'
+
+require_relative '../model/game'
+
+class KlondikeSolitaire
+  module View
+    class Tableau
+      include Glimmer::UI::CustomWidget
+      
+      option :game
+      
+      body {
+        canvas {
+          background :dark_green
+          
+          # row 1
+          @foundation_piles = Model::PlayingCard::SUITS.each_with_index.map do |suit, i|
+            foundation_pile(pile_x: MARGIN + i*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, game: game, suit: suit)
+          end
+          @dealt_pile = dealt_pile(pile_x: MARGIN + 5*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealt_pile)
+          @dealing_pile = dealing_pile(pile_x: MARGIN + 6*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: 0, model: game.dealing_pile)
+          
+          # row 2
+          @column_piles = 7.times.map do |n|
+            column_pile(pile_x: MARGIN + n*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING), pile_y: PLAYING_CARD_HEIGHT + PLAYING_CARD_SPACING, model: game.column_piles[n])
+          end
+          
+          on_mouse_up do |event|
+            if @dealing_pile.body_root.include?(event.x, event.y)
+              game.dealing_pile.deal!
+            end
+          end
+        }
+      }
+  
+    end
+  end
+end

data/samples/elaborate/login.rb

@@ -65,9 +65,9 @@ end
 class Login
   include Glimmer::UI::CustomShell
 
-  before_body {
+  before_body do
     @presenter = LoginPresenter.new
-  }
+  end
 
   body {
     shell {

data/samples/elaborate/mandelbrot_fractal.rb

@@ -149,33 +149,33 @@ class MandelbrotFractal
       
   option :zoom, default: 1.0
   
-  before_body {
+  before_body do
     Display.app_name = 'Mandelbrot Fractal'
     # pre-calculate mandelbrot image
     @mandelbrot_image = build_mandelbrot_image
-  }
+  end
   
-  after_body {
-    observe(Mandelbrot, :work_in_progress) {
+  after_body do
+    observe(Mandelbrot, :work_in_progress) do
       update_mandelbrot_shell_title!
-    }
-    observe(Mandelbrot, :zoom) {
+    end
+    observe(Mandelbrot, :zoom) do
       update_mandelbrot_shell_title!
-    }
+    end
     # pre-calculate zoomed mandelbrot images even before the user zooms in
     puts 'Starting background calculation thread...'
-    @thread = Thread.new {
+    @thread = Thread.new do
       future_zoom = 1.5
-      loop {
+      loop do
         puts "Creating mandelbrot for background calculation at zoom: #{future_zoom}"
         the_mandelbrot = Mandelbrot.for(max_iterations: color_palette.size - 1, zoom: future_zoom, background: true)
         pixels = the_mandelbrot.calculate_points
         build_mandelbrot_image(mandelbrot_zoom: future_zoom)
         @canvas.cursor = :cross unless @canvas.disposed?
         future_zoom += 0.5
-      }
-    }
-  }
+      end
+    end
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/meta_sample.rb

@@ -192,13 +192,13 @@ end
 class MetaSampleApplication
   include Glimmer::UI::CustomShell
   
-  before_body {
+  before_body do
     Sample.ensure_user_glimmer_directory
     selected_sample_directory = SampleDirectory.sample_directories.first
     selected_sample = selected_sample_directory.samples.first
     selected_sample_directory.selected_sample_name = selected_sample.name
     Display.app_name = 'Glimmer Meta-Sample'
-  }
+  end
   
   body {
     shell(:fill_screen) {

data/samples/elaborate/metronome.rb

@@ -64,9 +64,9 @@ class Metronome
       
   attr_accessor :rhythm
   
-  before_body {
+  before_body do
     @rhythm = Rhythm.new(4)
-  }
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/stock_ticker.rb

@@ -65,7 +65,7 @@ class StockTicker
   
   include Glimmer::UI::CustomShell
   
-  before_body {
+  before_body do
     @stocks = [
       Stock.new('DELL', 81),
       Stock.new('AAPL', 121),
@@ -126,16 +126,16 @@ class StockTicker
         end
       end
     end
-  }
+  end
   
-  after_body {
-    @thread = Thread.new {
-      loop {
+  after_body do
+    @thread = Thread.new do
+      loop do
         @stocks.each(&:tick!)
         sleep(0.01)
-      }
-    }
-  }
+      end
+    end
+  end
   
   body {
     shell {

data/samples/elaborate/tetris.rb

@@ -43,7 +43,7 @@ class Tetris
   
   attr_reader :game
   
-  before_body {
+  before_body do
     @mutex = Mutex.new
     @game = Model::Game.new(playfield_width, playfield_height)
         
@@ -99,9 +99,9 @@ class Tetris
         exit(0)
       }
     }
-  }
+  end
   
-  after_body {
+  after_body do
     observe(@game, :game_over) do |game_over|
       if game_over
         show_high_score_dialog
@@ -117,7 +117,7 @@ class Tetris
       end
     end
     @game.start!
-  }
+  end
   
   body {
     shell(:no_resize) {

data/samples/elaborate/tetris/view/bevel.rb

@@ -29,9 +29,9 @@ class Tetris
       option :x, default: 0
       option :y, default: 0
       
-      before_body {
+      before_body do
         self.bevel_pixel_size = 0.16*size.to_f if bevel_pixel_size.nil?
-      }
+      end
       
       body {
         rectangle(x, y, size, size) {

data/samples/elaborate/tetris/view/score_lane.rb

@@ -29,10 +29,10 @@ class Tetris
   
       options :block_size, :game
       
-      before_body {
+      before_body do
         @font_name = FONT_NAME
         @font_height = FONT_TITLE_HEIGHT
-      }
+      end
   
       body {
         composite {

data/samples/elaborate/tic_tac_toe.rb

@@ -26,16 +26,16 @@ require_relative "tic_tac_toe/board"
 class TicTacToe
   include Glimmer::UI::CustomShell
 
-  before_body {
+  before_body do
     @tic_tac_toe_board = Board.new
-  }
+  end
   
-  after_body {
-    observe(@tic_tac_toe_board, :game_status) { |game_status|
+  after_body do
+    observe(@tic_tac_toe_board, :game_status) do |game_status|
       display_win_message if game_status == Board::WIN
       display_draw_message if game_status == Board::DRAW
-    }
-  }
+    end
+  end
 
   body {
     shell {

data/samples/elaborate/timer.rb

@@ -20,7 +20,7 @@ class Timer
   ## Use before_body block to pre-initialize variables to use in body
   #
   #
-  before_body {
+  before_body do
     Display.setAppName('Glimmer Timer')
     
     @display = display {
@@ -34,11 +34,11 @@ class Timer
 
     @min = 0
     @sec = 0
-  }
+  end
 
   ## Use after_body block to setup observers for widgets in body
   #
-  after_body {
+  after_body do
     Thread.new {
       loop {
         sleep(1)
@@ -56,7 +56,7 @@ class Timer
         end
       }
     }
-  }
+  end
 
   ## Add widget content inside custom shell body
   ## Top-most widget must be a shell or another custom shell

data/samples/elaborate/weather.rb

@@ -33,13 +33,13 @@ class Weather
   
   attr_accessor :city, :temp, :temp_min, :temp_max, :feels_like, :humidity
   
-  before_body {
+  before_body do
     @weather_mutex = Mutex.new
     self.city = 'Montreal, QC, CA'
     fetch_weather!
-  }
+  end
   
-  after_body {
+  after_body do
     Thread.new do
       loop do
         sleep(10)
@@ -47,7 +47,7 @@ class Weather
         fetch_weather!
       end
     end
-  }
+  end
   
   body {
     shell(:no_resize) {

data/samples/hello/hello_button.rb

@@ -26,9 +26,9 @@ class HelloButton
   
   attr_accessor :count
   
-  before_body {
+  before_body do
     @count = 0
-  }
+  end
   
   body {
     shell {

data/samples/hello/hello_c_combo.rb

@@ -38,9 +38,9 @@ class HelloCCombo
 
   include Glimmer::UI::CustomShell
   
-  before_body {
+  before_body do
     @person = Person.new
-  }
+  end
   
   body {
     shell {

data/samples/hello/hello_canvas.rb

@@ -27,19 +27,19 @@ class HelloCanvas
   attr_accessor :selected_shape
   attr_accessor :artist
   
-  before_body {
+  before_body do
     @image_object = image(File.expand_path('../../icons/scaffold_app.png', __dir__), width: 50)
     @artist = ''
-  }
+  end
   
-  after_body {
+  after_body do
     Thread.new {
       'Picasso'.chars.each do |character|
         sleep(1)
         self.artist += character
       end
     }
-  }
+  end
   
   body {
     shell {

data/samples/hello/hello_canvas_animation.rb

@@ -27,14 +27,14 @@ class HelloCanvasAnimation
   
   attr_accessor :animation_every, :animation_fps, :animation_frame_count, :animation_duration_limit, :animation_started, :animation_finished
   
-  before_body {
+  before_body do
     @animation_every = 0.050 # seconds
     @animation_fps = 0
     @animation_frame_count = 100
     @animation_duration_limit = 0 # seconds
     @animation_started = true
     @animation_finished = false
-  }
+  end
   
   body {
     shell {

data/samples/hello/hello_canvas_data_binding.rb

@@ -37,7 +37,7 @@ class HelloCanvasDataBinding
     [:solid, :dash, :dot, :dashdot, :dashdotdot]
   end
   
-  before_body {
+  before_body do
     self.x1_value = 0
     self.y1_value = 0
     self.x2_value = CANVAS_WIDTH
@@ -47,7 +47,7 @@ class HelloCanvasDataBinding
     self.foreground_blue = 228
     self.line_width_value = 3
     self.line_style_value = :dot
-  }
+  end
   
   body {
     shell {