glimmer-dsl-swt 4.17.10.4 → 4.18.0.0

data/samples/elaborate/login.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2020 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,7 +19,6 @@
 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-#Presents login screen data
 class LoginPresenter
 
   attr_accessor :user_name
@@ -35,7 +34,6 @@ class LoginPresenter
   def status=(status)
     @status = status
 
-    #TODO add feature to bind dependent properties to master property (2017-07-25 nested data binding)
     notify_observers("logged_in")
     notify_observers("logged_out")
   end
@@ -65,7 +63,6 @@ class LoginPresenter
 
 end
 
-#Login screen
 class Login
   include Glimmer
 
@@ -77,10 +74,10 @@ class Login
         grid_layout 2, false #two columns with differing widths
 
         label { text "Username:" } # goes in column 1
-        @user_name_text = text {                     # goes in column 2
+        @user_name_text = text {   # goes in column 2
           text bind(presenter, :user_name)
           enabled bind(presenter, :logged_out)
-          on_key_pressed { |event| 
+          on_key_pressed { |event|
             @password_text.set_focus if event.keyCode == swt(:cr)
           }
         }
@@ -89,7 +86,7 @@ class Login
         @password_text = text(:password, :border) {
           text bind(presenter, :password)
           enabled bind(presenter, :logged_out)
-          on_key_pressed { |event| 
+          on_key_pressed { |event|
             presenter.login if event.keyCode == swt(:cr)
           }
         }
@@ -101,21 +98,21 @@ class Login
           text "Login"
           enabled bind(presenter, :logged_out)
           on_widget_selected { presenter.login }
-          on_key_pressed { |event| 
+          on_key_pressed { |event|
             presenter.login if event.keyCode == swt(:cr)
-          }          
+          }
         }
 
         button {
           text "Logout"
           enabled bind(presenter, :logged_in)
           on_widget_selected { presenter.logout }
-          on_key_pressed { |event| 
+          on_key_pressed { |event|
             if event.keyCode == swt(:cr)
               presenter.logout
               @user_name_text.set_focus
             end
-          }          
+          }
         }
       }
     }

data/samples/elaborate/meta_sample.rb

@@ -1,4 +1,9 @@
+require 'fileutils'
+require 'etc'
+
 class Sample
+  include Glimmer::DataBinding::ObservableModel
+  
   attr_accessor :sample_directory, :file, :selected
   
   def initialize(file, sample_directory: )
@@ -19,12 +24,39 @@ class Sample
     @name
   end
   
-  def content
-    @content = File.read(file)
+  def code
+    reset_code! if @code.nil?
+    @code
   end
-    
-  def launch
-    load file
+  
+  def reset_code!
+    @code = File.read(file)
+    notify_observers('code')
+  end
+  
+  def editable
+    File.basename(file) != 'meta_sample.rb'
+  end
+  alias launchable editable
+  
+  def launch(modified_code)
+    parent_directory = File.basename(File.dirname(file))
+    modified_file_parent_directory = File.join(Etc.getpwuid.dir, '.glimmer', 'samples', parent_directory)
+    launch_file = modified_file = File.join(modified_file_parent_directory, File.basename(file))
+    begin
+      FileUtils.mkdir_p(modified_file_parent_directory)
+      FileUtils.cp_r(file, modified_file_parent_directory)
+      FileUtils.cp_r(file.sub(/\.rb/, ''), modified_file_parent_directory) if File.exist?(file.sub(/\.rb/, ''))
+      File.write(modified_file, modified_code)
+    rescue => e
+      puts 'Error writing sample modifications. Launching original sample.'
+      puts e.full_message
+      launch_file = file # load original file if failed to write changes
+    end
+    load(launch_file)
+  ensure
+    FileUtils.rm_rf(modified_file)
+    FileUtils.rm_rf(modified_file.sub(/\.rb/, ''))
   end
 end
 
@@ -111,18 +143,23 @@ end
 class MetaSampleApplication
   include Glimmer
   
+  def initialize
+    selected_sample_directory = SampleDirectory.sample_directories.first
+    selected_sample = selected_sample_directory.samples.first
+    selected_sample_directory.selected_sample_name = selected_sample.name
+  end
+  
   def launch
     shell {
       minimum_size 1280, 768
       text 'Glimmer Meta-Sample (The Sample of Samples)'
       
-      on_swt_show {
-        SampleDirectory.selected_sample = SampleDirectory.all_samples.first
-      }
-      
       sash_form {
         composite {
-          grid_layout 1, false
+          grid_layout(1, false) {
+            margin_width 0
+            margin_height 0
+          }
             
           expand_bar {
             layout_data(:fill, :fill, true, true)
@@ -144,22 +181,43 @@ class MetaSampleApplication
             }
           }
           
-          button {
+          composite {
+            fill_layout
             layout_data(:fill, :center, true, false) {
               height_hint 120
             }
-            text 'Launch Sample'
-            font height: 30
-            on_widget_selected {
-              SampleDirectory.selected_sample.launch
+            
+            button {
+              text 'Launch'
+              font height: 30
+              enabled bind(SampleDirectory, 'selected_sample.launchable')
+              
+              on_widget_selected {
+                begin
+                  SampleDirectory.selected_sample.launch(@code_text.text)
+                rescue StandardError, SyntaxError => launch_error
+                  message_box {
+                    text 'Error Launching'
+                    message launch_error.full_message
+                  }.open
+                end
+              }
+            }
+            button {
+              text 'Reset'
+              font height: 30
+              enabled bind(SampleDirectory, 'selected_sample.editable')
+              
+              on_widget_selected {
+                SampleDirectory.selected_sample.reset_code!
+              }
             }
           }
         }
             
-        code_text {
-          text bind(SampleDirectory, 'selected_sample.content')
-          editable false
-          caret nil
+        @code_text = code_text {
+          text bind(SampleDirectory, 'selected_sample.code', read_only: true)
+          editable bind(SampleDirectory, 'selected_sample.editable')
         }
         
         weights 4, 9

data/samples/hello/hello_browser.rb

@@ -22,7 +22,9 @@
 include Glimmer
 
 shell {
+  text 'Hello, Browser!'
   minimum_size 1024, 860
+  
   browser {
     url 'https://brightonresort.com/about'
   }

data/samples/hello/hello_button.rb

@@ -0,0 +1,46 @@
+# Copyright (c) 2007-2020 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 HelloButton
+  include Glimmer
+  
+  attr_accessor :count
+  
+  def initialize
+    @count = 0
+  end
+  
+  def launch
+    shell {
+      text 'Hello, Button!'
+      
+      button {
+        text bind(self, :count) {|value| "Click To Increment: #{value}  "}
+        
+        on_widget_selected {
+          self.count += 1
+        }
+      }
+    }.open
+  end
+end
+
+HelloButton.new.launch

data/samples/hello/hello_computed.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2020 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
@@ -35,6 +35,7 @@ class HelloComputed
   def launch
     shell {
       text 'Hello, Computed!'
+      
       composite {
         grid_layout {
           num_columns 2
@@ -42,6 +43,7 @@ class HelloComputed
           horizontal_spacing 20
           vertical_spacing 10
         }
+        
         label {text 'First &Name: '}
         text {
           text bind(@contact, :first_name)
@@ -50,6 +52,7 @@ class HelloComputed
             grab_excess_horizontal_space true
           }
         }
+        
         label {text '&Last Name: '}
         text {
           text bind(@contact, :last_name)
@@ -58,6 +61,7 @@ class HelloComputed
             grab_excess_horizontal_space true
           }
         }
+        
         label {text '&Year of Birth: '}
         text {
           text bind(@contact, :year_of_birth)
@@ -66,6 +70,7 @@ class HelloComputed
             grab_excess_horizontal_space true
           }
         }
+        
         label {text 'Name: '}
         label {
           text bind(@contact, :name, computed_by: [:first_name, :last_name])
@@ -74,6 +79,7 @@ class HelloComputed
             grab_excess_horizontal_space true
           }
         }
+        
         label {text 'Age: '}
         label {
           text bind(@contact, :age, on_write: :to_i, computed_by: [:year_of_birth])

data/samples/hello/hello_link.rb

@@ -0,0 +1,80 @@
+# Copyright (c) 2007-2020 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.
+
+include Glimmer
+
+shell { |main_shell|
+  grid_layout {
+    margin_width 20
+    margin_height 10
+  }
+  
+  background :white
+  text 'Hello, Link!'
+  
+  @link = link {
+    background :white
+    link_foreground :dark_green
+    font height: 16
+    text <<~MULTI_LINE_STRING
+    
+      You may click on any <a>link</a> to get help.
+      
+      How do you know <a href="which-link-href-value">which link</a> you clicked?
+      
+      Just keep clicking <a href="all links">links</a> to find out!
+    MULTI_LINE_STRING
+        
+    on_widget_selected { |selection_event|
+      # This retrieves the clicked link href (or contained text if no href is set)
+      @selected_link = selection_event.text
+    }
+    on_mouse_up { |mouse_event|
+      unless @selected_link.nil?
+        @help_shell.close unless @help_shell.nil? || @help_shell.is_disposed
+        @help_shell = shell(:no_trim) {
+          grid_layout {
+            margin_width 10
+            margin_height 10
+          }
+          
+          background :yellow
+          
+          label {
+            background :yellow
+            text "Did someone ask for help about \"#{@selected_link}\"?\nYou don't really need help. You did it!"
+          }
+          
+          on_swt_show {
+            x = main_shell.location.x + @link.location.x + mouse_event.x
+            y = main_shell.location.y + @link.location.y + mouse_event.y + 20
+            @help_shell.location = Point.new(x, y)
+          }
+          on_focus_lost {
+            @selected_link = nil
+            @help_shell.close
+          }
+        }
+        @help_shell.open
+      end
+    }
+  }
+}.open

data/samples/hello/hello_list_multi_selection.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2020 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
@@ -24,22 +24,27 @@ class HelloListMultiSelection
     attr_accessor :provinces, :provinces_options
   
     def initialize
-      self.provinces_options=[
-        "",
-        "Quebec",
-        "Ontario",
-        "Manitoba",
-        "Saskatchewan",
-        "Alberta",
-        "British Columbia",
-        "Nova Skotia",
-        "Newfoundland"
+      self.provinces_options = [
+        '',
+        'Alberta',
+        'British Columbia',
+        'Manitoba',
+        'New Brunswick',
+        'Newfoundland and Labrador',
+        'Northwest Territories',
+        'Nova Scotia',
+        'Nunavut',
+        'Ontario',
+        'Prince Edward Island',
+        'Quebec',
+        'Saskatchewan',
+        'Yukon'
       ]
-      self.provinces = ["Quebec", "Manitoba", "Alberta"]
+      reset_provinces
     end
   
     def reset_provinces
-      self.provinces = ["Quebec", "Manitoba", "Alberta"]
+      self.provinces = ['Quebec', 'Manitoba', 'Alberta']
     end
   end
   
@@ -49,7 +54,7 @@ class HelloListMultiSelection
     person = Person.new
     
     shell {
-      grid_layout      
+      grid_layout
       
       text 'Hello, List Multi Selection!'
       
@@ -58,7 +63,7 @@ class HelloListMultiSelection
       }
       
       button {
-        text "Reset Selection To Defaults"
+        text 'Reset Selections To Default Values'
         
         on_widget_selected { person.reset_provinces }
       }