glimmer-dsl-swt 4.18.5.2 → 4.18.6.1

data/lib/glimmer/swt/custom/shape/rectangle.rb

@@ -34,6 +34,7 @@ module Glimmer
       class Shape
         class Rectangle < Shape
           def parameter_names
+            # TODO consider optimizing just like text where it is set upon updating attribute and here you just return a variable
             if @args.to_a.size >= 6
               rectangle_round_parameter_names
             elsif @args.to_a.size == 5
@@ -81,7 +82,11 @@ module Glimmer
           end
           
           def point_xy_array
-            [[x, y], [x + width, y], [x + width, y + height], [x, y + height]]
+            [[x, y], [x + calculated_width, y], [x + calculated_width, y + calculated_height], [x, y + calculated_height]]
+          end
+          
+          def absolute_point_xy_array
+            [[absolute_x, absolute_y], [absolute_x + calculated_width, absolute_y], [absolute_x + calculated_width, absolute_y + calculated_height], [absolute_x, absolute_y + calculated_height]]
           end
           
           # checks if drawn or filled rectangle includes the point denoted by x and y (if drawn, it only returns true if point lies on the edge)
@@ -89,7 +94,7 @@ module Glimmer
             if filled?
               contain?(x, y)
             else
-              comparison_lines = point_xy_array.zip(point_xy_array.rotate(1))
+              comparison_lines = absolute_point_xy_array.zip(absolute_point_xy_array.rotate(1))
               comparison_lines.any? {|line| Line.include?(line.first.first, line.first.last, line.last.first, line.last.last, x, y)}
             end
           end

data/lib/glimmer/swt/custom/shape/text.rb

@@ -33,8 +33,6 @@ module Glimmer
       # That is because Shape is drawn on a parent as graphics and doesn't have an SWT widget for itself
       class Shape
         class Text < Shape
-          attr_accessor :extent
-        
           def parameter_names
             @parameter_names || text_parameter_names
           end
@@ -69,11 +67,11 @@ module Glimmer
           end
           
           def width
-            extent&.x
+            @extent&.x
           end
           
           def height
-            extent&.y
+            @extent&.y
           end
           
         end

data/lib/glimmer/swt/dialog_proxy.rb

@@ -52,6 +52,10 @@ module Glimmer
         def dialog_class(keyword)
           the_class = eval(keyword.camelcase(:upper))
           the_class if the_class.ancestors.include?(org.eclipse.swt.widgets.Dialog)
+        rescue => e
+          Glimmer::Config.logger.debug {"Dialog for keyword #{keyword} not found!"}
+          Glimmer::Config.logger.debug { e.full_message }
+          nil
         end
       end
 

data/lib/glimmer/swt/proxy_properties.rb

@@ -73,7 +73,7 @@ module Glimmer
         Glimmer::SWT::DisplayProxy.instance.auto_exec do
           result = if proxy_source_object&.respond_to?(attribute_setter(attribute_name))
             swt_widget_operation = true
-            proxy_source_object&.send(attribute_setter(attribute_name), *args) unless proxy_source_object&.send(attribute_getter(attribute_name)) == args.first
+            proxy_source_object&.send(attribute_setter(attribute_name), *args) unless (proxy_source_object&.respond_to?(attribute_getter(attribute_name)) && proxy_source_object&.send(attribute_getter(attribute_name))) == args.first
           elsif proxy_source_object&.respond_to?(ruby_attribute_setter(attribute_name))
             swt_widget_operation = true
             proxy_source_object&.send(ruby_attribute_setter(attribute_name), args)

data/lib/glimmer/swt/widget_proxy.rb

@@ -291,6 +291,22 @@ module Glimmer
           @swt_widget.removeControlListener(listener.swt_listener)
         end
       end
+      
+      def x
+        bounds.x
+      end
+
+      def y
+        bounds.y
+      end
+      
+      def width
+        bounds.width
+      end
+
+      def height
+        bounds.height
+      end
 
       # these work in tandem with the property_type_converters
       # sometimes, they are specified in subclasses instead

data/samples/elaborate/contact_manager.rb

@@ -19,6 +19,8 @@
 # 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_relative "contact_manager/contact_manager_presenter"
 
 class ContactManager

data/samples/elaborate/login.rb

@@ -19,6 +19,8 @@
 # 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'
+
 class LoginPresenter
 
   attr_accessor :user_name

data/samples/elaborate/mandelbrot_fractal.rb

@@ -19,6 +19,7 @@
 # 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 'complex'
 require 'concurrent-ruby'
 
@@ -378,7 +379,7 @@ class MandelbrotFractal
       image @mandelbrot_image
     }
     @canvas.set_size @mandelbrot_image.bounds.width, @mandelbrot_image.bounds.height
-    @scrolled_composite.swt_widget.set_min_size(Point.new(@mandelbrot_image.bounds.width, @mandelbrot_image.bounds.height))
+    @scrolled_composite.set_min_size(Point.new(@mandelbrot_image.bounds.width, @mandelbrot_image.bounds.height))
     if @location_x && @location_y
       # center on mouse click location
       factor = (zoom / last_zoom)

data/samples/elaborate/meta_sample.rb

@@ -19,6 +19,7 @@
 # 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 'fileutils'
 
 class Sample

data/samples/elaborate/stock_ticker.rb

@@ -0,0 +1,229 @@
+# 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'
+
+# This Sample is an Early Alpha (New Canvas Path DSL Feature)
+
+class StockTicker
+  class Stock
+    class << self
+      attr_writer :stock_price_min, :stock_price_max
+      
+      def stock_price_min
+        @stock_price_min ||= 1
+      end
+      
+      def stock_price_max
+        @stock_price_max ||= 600
+      end
+    end
+    
+    attr_reader :name, :stock_prices
+    attr_accessor :stock_price
+    
+    def initialize(name, stock_price)
+      @name = name
+      @stock_price = stock_price
+      @stock_prices = [@stock_price]
+      @delta_sign = 1
+      start_new_trend!
+    end
+    
+    def tick!
+      @tick_count = @tick_count.to_i + 1
+      delta = @tick_count%@trend_length
+      if delta == 0
+        @delta_sign *= -1
+        start_new_trend!
+      end
+      stock_prices << self.stock_price = [[@stock_price + @delta_sign*delta, Stock.stock_price_min].max, Stock.stock_price_max].min
+    end
+    
+    def start_new_trend!
+      @trend_length = (rand*12).to_i + 1
+    end
+  end
+  
+  include Glimmer::UI::CustomShell
+  
+  before_body {
+    @stocks = [
+      Stock.new('DELL', 81),
+      Stock.new('AAPL', 121),
+      Stock.new('MSFT', 232),
+      Stock.new('ADBE', 459),
+    ]
+    @stock_colors = [:red, :dark_green, :blue, :dark_magenta]
+    max_stock_name_width = 0
+    left_margin = 5
+    @tabs = ['Lines', 'Quadratic Bezier Curves', 'Cubic Bezier Curves', 'Points'].map {|title| {title: title, stock_paths: [], stock_transforms: []}}
+    @stocks.each_with_index do |stock, stock_index|
+      observe(stock, :stock_price) do |new_price|
+        begin
+          @tabs.each do |tab|
+            new_x = stock.stock_prices.count - 1
+            new_y = @tabs.first[:canvas].bounds.height - new_price - 1
+            max_stock_name_width = tab[:text]&.bounds&.width if tab[:text]&.bounds&.width.to_f > max_stock_name_width
+            if new_x > 0
+              case tab[:title]
+              when 'Cubic Bezier Curves'
+                if new_x%3 == 0 && stock.stock_prices[new_x] && stock.stock_prices[new_x - 1] && stock.stock_prices[new_x - 2]
+                  tab[:stock_paths][stock_index].content {
+                    cubic(new_x - 2, @tabs.first[:canvas].bounds.height - stock.stock_prices[new_x - 2] - 1, new_x - 1, @tabs.first[:canvas].bounds.height - stock.stock_prices[new_x - 1] - 1, new_x, new_y)
+                    tab[:stock_transforms][stock_index] ||= transform {
+                      translate max_stock_name_width + 5 + left_margin, tab[:text].bounds.height / 2.0
+                    }
+                  }
+                end
+              when 'Quadratic Bezier Curves'
+                if new_x%2 == 0 && stock.stock_prices[new_x] && stock.stock_prices[new_x - 1]
+                  tab[:stock_paths][stock_index].content {
+                    quad(new_x - 1, @tabs.first[:canvas].bounds.height - stock.stock_prices[new_x - 1] - 1, new_x, new_y)
+                    tab[:stock_transforms][stock_index] ||= transform {
+                      translate max_stock_name_width + 5 + left_margin, tab[:text].bounds.height / 2.0
+                    }
+                  }
+                end
+              when 'Lines'
+                tab[:stock_paths][stock_index].content {
+                  line(new_x, new_y)
+                  tab[:stock_transforms][stock_index] ||= transform {
+                    translate max_stock_name_width + 5 + left_margin, tab[:text].bounds.height / 2.0
+                  }
+                }
+              when 'Points'
+                tab[:stock_paths][stock_index].content {
+                  point(new_x, new_y)
+                  tab[:stock_transforms][stock_index] ||= transform {
+                    translate max_stock_name_width + 5 + left_margin, tab[:text].bounds.height / 2.0
+                  }
+                }
+              end
+              new_x_location = new_x + max_stock_name_width + 5 + left_margin + 5
+              canvas_width = tab[:canvas].bounds.width
+              if new_x_location > canvas_width
+                tab[:canvas].set_size(new_x_location, @tabs.first[:canvas].bounds.height)
+                tab[:canvas].cursor = :hand
+                tab[:scrolled_composite].set_min_size(new_x_location, @tabs.first[:canvas].bounds.height)
+                tab[:scrolled_composite].set_origin(tab[:scrolled_composite].origin.x + 1, tab[:scrolled_composite].origin.y) if (tab[:scrolled_composite].origin.x + tab[:scrolled_composite].client_area.width) == canvas_width
+              end
+            else
+              tab[:canvas].content {
+                tab[:text] = text(stock.name, new_x + left_margin, new_y) {
+                  foreground @stock_colors[stock_index]
+                }
+              }
+            end
+          end
+        rescue => e
+          Glimmer::Config.logger.error {e.full_message}
+        end
+      end
+    end
+  }
+  
+  after_body {
+    @thread = Thread.new {
+      loop {
+        @stocks.each(&:tick!)
+        sleep(0.01)
+      }
+    }
+  }
+  
+  body {
+    shell {
+      fill_layout {
+        margin_width 15
+        margin_height 15
+      }
+      text 'Stock Ticker'
+      minimum_size 650, 650
+      background :white
+      
+      @tab_folder = tab_folder {
+        @tabs.each do |tab|
+          tab_item {
+            fill_layout {
+              margin_width 0
+              margin_height 0
+            }
+            text tab[:title]
+            
+            tab[:scrolled_composite] = scrolled_composite {
+              tab[:canvas] = canvas {
+                background :white
+                
+                @stocks.count.times do |stock_index|
+                  tab[:stock_paths][stock_index] = path {
+                    antialias :on
+                    foreground @stock_colors[stock_index]
+                  }
+                end
+                
+                on_mouse_down {
+                  @drag_detected = false
+                }
+                
+                on_drag_detected { |drag_detect_event|
+                  @drag_detected = true
+                  @drag_start_x = drag_detect_event.x
+                  @drag_start_y = drag_detect_event.y
+                }
+                
+                on_mouse_move { |mouse_event|
+                  if @drag_detected
+                    origin = tab[:scrolled_composite].origin
+                    new_x = origin.x - (mouse_event.x - @drag_start_x)
+                    new_y = origin.y - (mouse_event.y - @drag_start_y)
+                    tab[:scrolled_composite].set_origin(new_x, new_y)
+                  end
+                }
+                
+                on_mouse_up { |mouse_event|
+                  @drag_detected = false
+                }
+              }
+            }
+          }
+        end
+      }
+    
+      on_swt_show {
+        Stock.stock_price_min = 25
+        Stock.stock_price_max = @tabs.first[:canvas].bounds.height - 6
+        # pre-initialize all tabs by selecting them so that they render content when they are later in the background
+        @tab_folder.items.each do |item|
+          @tab_folder.selection = item
+        end
+        @tab_folder.selection = @tab_folder.items.first
+      }
+      
+      on_widget_disposed {
+        @thread.kill # safe to kill as data is in memory only
+      }
+    }
+  }
+end
+
+StockTicker.launch
+        

data/samples/elaborate/tetris.rb

@@ -19,7 +19,7 @@
 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-# Tetris App View Custom Shell (represents `tetris` keyword)
+require 'glimmer-dsl-swt'
 
 require_relative 'tetris/model/game'
 
@@ -28,6 +28,7 @@ require_relative 'tetris/view/score_lane'
 require_relative 'tetris/view/high_score_dialog'
 require_relative 'tetris/view/tetris_menu_bar'
 
+# Tetris App View Custom Shell (represents `tetris` keyword)
 class Tetris
   include Glimmer::UI::CustomShell
   

data/samples/elaborate/tic_tac_toe.rb

@@ -19,6 +19,8 @@
 # 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_relative "tic_tac_toe/board"
 
 class TicTacToe

data/samples/elaborate/user_profile.rb

@@ -1,5 +1,5 @@
 # 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
@@ -7,10 +7,10 @@
 # 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
@@ -19,6 +19,8 @@
 # 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 {
@@ -32,21 +34,21 @@ shell {
       grid_layout 2, false
       layout_data :fill, :fill, true, true
       label {text "First"}; text {text "Bullet"}
-      label {text "Last"}; text {text "Tooth"}  
+      label {text "Last"}; text {text "Tooth"}
     }
 
     group {
       layout_data :fill, :fill, true, true
       text "Gender"
       radio {text "Male"; selection true}
-      radio {text "Female"}  
+      radio {text "Female"}
     }
 
     group {
       layout_data :fill, :fill, true, true
       text "Role"
       check {text "Student"; selection true}
-      check {text "Employee"; selection true}  
+      check {text "Employee"; selection true}
     }
 
     group {
@@ -59,11 +61,11 @@ shell {
     button {
       text "save"
       layout_data :right, :center, true, true
-      on_widget_selected { 
+      on_widget_selected {
         message_box {
           text 'Profile Saved!'
           message 'User profile has been saved!'
-        }.open 
+        }.open
       }
     }