glimmer-dsl-swt 4.17.10.5 → 4.18.0.1

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,25 @@ 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
+    Display.setAppName('Glimmer Meta-Sample')
     shell {
       minimum_size 1280, 768
       text 'Glimmer Meta-Sample (The Sample of Samples)'
-      
-      on_swt_show {
-        SampleDirectory.selected_sample = SampleDirectory.all_samples.first
-      }
+      image File.expand_path('../../icons/scaffold_app.png', __dir__)
       
       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)
@@ -131,7 +170,7 @@ class MetaSampleApplication
             SampleDirectory.sample_directories.each { |sample_directory|
               expand_item {
                 layout_data(:fill, :fill, true, true)
-                text "#{sample_directory.name} Samples"
+                text " #{sample_directory.name} Samples"
                 
                 radio_group { |radio_group_proxy|
                   row_layout(:vertical) {
@@ -144,22 +183,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/elaborate/tic_tac_toe.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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
@@ -61,7 +61,7 @@ class TicTacToe
   end
 
   def display_game_over_message(message_text)
-    message_box(@shell) {
+    message_box {
       text 'Game Over'
       message message_text
     }.open

data/samples/elaborate/tic_tac_toe/board.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/elaborate/tic_tac_toe/cell.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/elaborate/user_profile.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_browser.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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
@@ -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

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_checkbox.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_checkbox_group.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_combo.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_computed.rb

@@ -1,5 +1,5 @@
-# Copyright (c) 2007-2020 Andy Maleh
-# 
+# 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
@@ -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_computed/contact.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_custom_shell.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_custom_widget.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_date_time.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_dialog.rb

@@ -0,0 +1,78 @@
+# 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.
+
+include Glimmer
+
+shell {
+  row_layout :vertical
+  
+  text 'Hello, Dialog!'
+  
+  7.times {|n|
+    dialog_number = n + 1
+    
+    button {
+      layout_data {
+        width 200
+        height 50
+      }
+      text "Dialog #{dialog_number}"
+      
+      on_widget_selected {
+        dialog { |dialog_proxy|
+          row_layout(:vertical) {
+            center true
+          }
+          
+          text "Dialog #{dialog_number}"
+          
+          label(:center) {
+            text "Given `dialog` is modal, you cannot interact with app closed.\nUnlike `message_box`, `dialog` can contain arbitrary widgets."
+          }
+          composite {
+            row_layout {
+              margin_height 0
+              margin_top 0
+              margin_bottom 0
+            }
+
+            radio {
+              text 'Radio'
+            }
+            checkbox {
+              text 'Checkbox'
+            }
+            text {
+              text 'Text'
+            }
+          }
+          button {
+            text 'Close'
+            
+            on_widget_selected {
+              dialog_proxy.close
+            }
+          }
+        }.open
+      }
+    }
+  }
+}.open

data/samples/hello/hello_directory_dialog.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_drag_and_drop.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_expand_bar.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_file_dialog.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_group.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2007-2020 Andy Maleh
+# 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

data/samples/hello/hello_link.rb

@@ -0,0 +1,80 @@
+# 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.
+
+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