glimmer-dsl-opal 0.26.1 → 0.28.0

data/lib/glimmer-dsl-opal/samples/elaborate/tetris.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2021 Andy Maleh
+# Copyright (c) 2020-2021 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
@@ -25,11 +25,7 @@ require_relative 'tetris/view/playfield'
 require_relative 'tetris/view/score_lane'
 require_relative 'tetris/view/high_score_dialog'
 require_relative 'tetris/view/tetris_menu_bar'
-class Event
-  def location
-    `#@native.location`
-  end
-end
+
 class Tetris
   include Glimmer::UI::CustomShell
   
@@ -72,8 +68,13 @@ class Tetris
         when 'e'.bytes.first
           game.rotate!(:right)
         when swt(:shift), swt(:alt)
-          game.rotate!(:right)
+          if key_event.keyLocation == swt(:right) # right key
+            game.rotate!(:right)
+          elsif key_event.keyLocation == swt(:left) # left key
+            game.rotate!(:left)
+          end
         end
+        
       end
     }
   end
@@ -142,7 +143,7 @@ class Tetris
   def show_about_dialog
     message_box {
       text 'Glimmer Tetris'
-      message "Glimmer Tetris\n\nGlimmer DSL for SWT Sample\n\nLeft is A\nRight is D\nDown is S\nUp is W\nRotate Left is Q\nRotate Right is E\n\n for Left, Down, Right, Up\n\nCopyright (c) 2007-2021 Andy Maleh"
+      message "Glimmer Tetris\n\nGlimmer DSL for SWT Sample\n\nUse arrow keys for movement\nand right/left alt/shift keys for rotation\nAlternatively:\nLeft is A\nRight is D\nDown is S\nUp is W\nRotate Left is Q\nRotate Right is E\n\nCopyright (c) 2007-2021 Andy Maleh"
     }.open
   end
 end

data/lib/glimmer-dsl-opal/samples/hello/hello_canvas.rb

@@ -0,0 +1,83 @@
+# Copyright (c) 2020-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 HelloCanvas
+  include Glimmer::UI::CustomShell
+  
+  body {
+    shell {
+      text 'Hello, Canvas!'
+      minimum_size 320, 400
+    
+      canvas {
+        background :yellow
+        
+        rectangle(0, 0, 220, 400) {
+          background rgb(255, 0, 0)
+        }
+        rectangle(50, 20, 300, 150, 30, 50) {
+          background :magenta
+        }
+        rectangle(50, 20, 300, 150, 30, 50) {
+          foreground :yellow
+        }
+        rectangle(205, 50, 86, 97) {
+          foreground :yellow
+        }
+        rectangle(67, 75, 128, 38) {
+          background :yellow
+        }
+        rectangle(150, 200, 100, 70) {
+          background :dark_magenta
+        }
+        rectangle(50, 200, 30, 70) {
+          background :magenta
+        }
+        oval(110, 310, 100, 100) {
+          background :yellow
+        }
+        text('Picasso', 67, 103) {
+          foreground :dark_magenta
+          font name: 'Courier', height: 30
+        }
+        polygon(250, 210, 260, 170, 270, 210, 290, 230) {
+          background :dark_yellow
+        }
+        polyline(250, 110, 260, 70, 270, 110, 290, 130, 250, 110) {
+          foreground :black
+        }
+        3.times do |n|
+          line(250, 120 + n*10, 270 + n*10, 80 + n*10) {
+            foreground :yellow
+          }
+        end
+        10.times do |n|
+          point(220 + n*5, 100 + n*5) {
+            foreground :yellow
+          }
+        end
+      }
+    }
+  }
+end
+
+HelloCanvas.launch
+        

data/lib/glimmer-dsl-opal/samples/hello/hello_text.rb

@@ -0,0 +1,149 @@
+# Copyright (c) 2020-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 HelloText
+  include Glimmer::UI::CustomShell
+  
+  attr_accessor :default, :no_border, :center, :left, :right, :password, :telephone, :read_only, :wrap, :multi
+  
+  before_body do
+    self.default = 'default is :border style'
+    self.no_border = 'no border'
+    self.center = 'centered'
+    self.left = 'left-aligned'
+    self.right = 'right-aligned'
+    self.password = 'password'
+    self.telephone = '555-555-5555'
+    self.read_only = 'Telephone area code is 555'
+    self.wrap = 'wraps if text content is too long like this example'
+    self.multi = "multi-line enables hitting enter,\nbut works like wrap on the web"
+  end
+  
+  body {
+    shell {
+      grid_layout 2, false
+      
+      text 'Hello, Text!'
+      minimum_size 350, 100
+      
+      label {
+        text 'text'
+      }
+      text { # includes :border style by default
+        layout_data :fill, :center, true, false
+        text <=> [self, :default]
+      }
+
+      label {
+        text 'text(:none)'
+      }
+      text(:none) { # no border
+        layout_data :fill, :center, true, false
+        text <=> [self, :no_border]
+      }
+
+      label {
+        text 'text(:center, :border)'
+      }
+      text(:center, :border) {
+        layout_data :fill, :center, true, false
+        text <=> [self, :center]
+      }
+
+      label {
+        text 'text(:left, :border)'
+      }
+      text(:left, :border) {
+        layout_data :fill, :center, true, false
+        text <=> [self, :left]
+      }
+
+      label {
+        text 'text(:right, :border)'
+      }
+      text(:right, :border) {
+        layout_data :fill, :center, true, false
+        text <=> [self, :right]
+      }
+
+      label {
+        text 'text(:password, :border)'
+      }
+      text(:password, :border) {
+        layout_data :fill, :center, true, false
+        text <=> [self, :password]
+      }
+
+      label {
+        text 'text(:read_only, :border)'
+      }
+      text(:read_only, :border) {
+        layout_data :fill, :center, true, false
+        text <= [self, :read_only]
+      }
+      
+      label {
+        text 'text with event handlers'
+      }
+      text {
+        layout_data :fill, :center, true, false
+        text <=> [self, :telephone]
+        
+        # this event kicks in just after the user typed and before modifying the text attribute value
+        on_verify_text do |verify_event|
+          new_text = verify_event.widget.text.clone
+          # new_text[verify_event.start...verify_event.end] = verify_event.text # Opal does not allow string mutation like JRuby in Glimmer DSL for SWT
+          new_text = "#{new_text[0...verify_event.start]}#{verify_event.text}#{new_text[verify_event.end..-1]}"
+          verify_event.doit = telephone?(new_text)
+        end
+        
+        # this event kicks in just after the text widget is verified and modified
+        on_modify_text do |modify_event|
+          self.read_only = "Telephone area code is #{modify_event.widget.text.gsub(/[^0-9]/, '')[0...3]}"
+        end
+      }
+      
+      label {
+        text 'text(:wrap, :border)'
+      }
+      text(:wrap, :border) {
+        layout_data(:fill, :center, true, false) {
+          width_hint 100
+        }
+        text <=> [self, :wrap]
+      }
+
+      label {
+        text 'text(:multi, :border)'
+      }
+      text(:multi, :border) {
+        layout_data :fill, :center, true, false
+        text <=> [self, :multi]
+      }
+    }
+  }
+  
+  def telephone?(text)
+    !!text.match(/^\d{0,3}[-.\/]?\d{0,3}[-.\/]?\d{0,4}$/)
+  end
+end
+
+HelloText.launch

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-opal
 version: !ruby/object:Gem::Version
-  version: 0.26.1
+  version: 0.28.0
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-08-24 00:00:00.000000000 Z
+date: 2021-08-30 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -300,6 +300,7 @@ files:
 - lib/glimmer-dsl-opal/samples/hello/hello_button.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_c_combo.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_c_tab.rb
+- lib/glimmer-dsl-opal/samples/hello/hello_canvas.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_checkbox.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_checkbox_group.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_combo.rb
@@ -328,6 +329,7 @@ files:
 - lib/glimmer-dsl-opal/samples/hello/hello_tab.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_table.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_table/baseball_park.png
+- lib/glimmer-dsl-opal/samples/hello/hello_text.rb
 - lib/glimmer-dsl-opal/samples/hello/hello_world.rb
 - lib/glimmer-dsl-opal/samples/hello/images/denmark.png
 - lib/glimmer-dsl-opal/samples/hello/images/finland.png
@@ -406,6 +408,7 @@ files:
 - lib/glimmer/swt/c_combo_proxy.rb
 - lib/glimmer/swt/c_tab_folder_proxy.rb
 - lib/glimmer/swt/c_tab_item_proxy.rb
+- lib/glimmer/swt/canvas_proxy.rb
 - lib/glimmer/swt/checkbox_proxy.rb
 - lib/glimmer/swt/color_proxy.rb
 - lib/glimmer/swt/combo_proxy.rb
@@ -413,6 +416,14 @@ files:
 - lib/glimmer/swt/control_editor.rb
 - lib/glimmer/swt/custom/checkbox_group.rb
 - lib/glimmer/swt/custom/radio_group.rb
+- lib/glimmer/swt/custom/shape.rb
+- lib/glimmer/swt/custom/shape/line.rb
+- lib/glimmer/swt/custom/shape/oval.rb
+- lib/glimmer/swt/custom/shape/point.rb
+- lib/glimmer/swt/custom/shape/polygon.rb
+- lib/glimmer/swt/custom/shape/polyline.rb
+- lib/glimmer/swt/custom/shape/rectangle.rb
+- lib/glimmer/swt/custom/shape/text.rb
 - lib/glimmer/swt/date_time_proxy.rb
 - lib/glimmer/swt/dialog_proxy.rb
 - lib/glimmer/swt/display_proxy.rb
@@ -436,6 +447,7 @@ files:
 - lib/glimmer/swt/progress_bar_proxy.rb
 - lib/glimmer/swt/property_owner.rb
 - lib/glimmer/swt/radio_proxy.rb
+- lib/glimmer/swt/rectangle.rb
 - lib/glimmer/swt/row_layout_proxy.rb
 - lib/glimmer/swt/scale_proxy.rb
 - lib/glimmer/swt/scrolled_composite_proxy.rb