glimmer-dsl-tk 0.0.24 → 0.0.28

data/samples/elaborate/meta_sample.rb

@@ -0,0 +1,138 @@
+# 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.
+
+require 'glimmer-dsl-tk'
+require 'facets'
+require 'fileutils'
+
+class MetaSample
+  include Glimmer
+  
+  attr_accessor :selected_sample_index
+  
+  def initialize
+    @selected_sample_index = 0
+  end
+  
+  def samples
+    if @samples.nil?
+      sample_files = Dir.glob(File.join(File.expand_path('../hello', __dir__), '**', 'hello_*.rb'))
+      sample_file_names = sample_files.map { |f| File.basename(f, '.rb') }
+      sample_file_names = sample_file_names.reject { |f| f == 'meta_sample' || f.match(/\d$/) }
+      @samples = sample_file_names.map { |f| f.underscore.titlecase }
+    end
+    @samples
+  end
+  
+  def file_path_for(sample)
+    File.join(File.expand_path('../hello', __dir__), "#{sample.underscore}.rb")
+  end
+  
+  def glimmer_dsl_tk_file
+    File.expand_path('../../lib/glimmer-dsl-tk', __dir__)
+  end
+  
+  def selected_sample
+    samples[@selected_sample_index]
+  end
+  
+  def run_sample(sample)
+    Thread.new do
+      command = "ruby -r #{glimmer_dsl_tk_file} #{sample} 2>&1"
+      result = ''
+      IO.popen(command) do |f|
+        f.each_line do |line|
+          result << line
+          puts line
+          $stdout.flush
+        end
+      end
+      ::Tk.after(100) do
+        message_box(parent: @root, title: 'Error Running Sample', message: result) if result.downcase.include?('error')
+      end
+    end
+  end
+  
+  def launch
+    @root = root {
+      title 'Glimmer Meta-Sample'
+      width 1280
+      height 720
+      
+      frame {
+        grid row: 0, column: 0, column_weight: 0, row_weight: 1
+        
+        samples.each_with_index do |sample, index|
+          radiobutton {
+            text sample
+            variable <=> [self, :selected_sample_index, on_write: ->(v) {v ? index : selected_sample_index}, on_read: ->(v) {v == index}]
+            
+            on('command') do
+              @selected_sample_index = index
+              @code_text.text = File.read(file_path_for(selected_sample))
+            end
+          }
+        end
+        
+        frame {
+          button {
+            grid row: 0, column: 0
+            text 'Launch'
+            
+            on('command') do
+              begin
+                parent_dir = File.join(Dir.home, '.glimmer-dsl-tk', 'samples', 'hello')
+                FileUtils.mkdir_p(parent_dir)
+                sample_file = File.join(parent_dir, "#{selected_sample.underscore}.rb")
+                File.write(sample_file, @code_text.text)
+                FileUtils.cp_r(File.expand_path('../../icons', __dir__), File.dirname(File.dirname(parent_dir)))
+                FileUtils.cp_r(File.expand_path('../hello/images', __dir__), parent_dir)
+                sample_namespace_directory = File.expand_path("../hello/#{selected_sample.underscore}", __dir__)
+                FileUtils.cp_r(sample_namespace_directory, parent_dir) if Dir.exist?(sample_namespace_directory)
+                run_sample(sample_file)
+              rescue => e
+                puts e.full_message
+                puts 'Unable to write code changes! Running original sample...'
+                run_sample(file_path_for(selected_sample))
+              end
+            end
+          }
+          button {
+            grid row: 0, column: 1
+            text 'Reset'
+            
+            on('command') do
+              @code_text.text = File.read(file_path_for(selected_sample))
+            end
+          }
+        }
+      }
+      
+      @code_text = text {
+        grid row: 0, column: 1, column_weight: 1
+        text File.read(file_path_for(selected_sample))
+      }
+    }
+    @root.open
+  end
+end
+
+MetaSample.new.launch

data/samples/hello/hello_checkbutton.rb

@@ -80,7 +80,6 @@ class HelloCheckbutton
   def launch
     root {
       title 'Hello, Checkbutton!'
-      background '#ececec' if OS.mac?
       
       label {
         text 'Check all snow activities you are interested in:'

data/samples/hello/hello_combobox.rb

@@ -1,3 +1,4 @@
+
 # Copyright (c) 2020-2021 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
@@ -44,7 +45,7 @@ class HelloCombobox
       title 'Hello, Combobox!'
       
       combobox {
-        state 'readonly'
+        readonly true # this applies to text editing only (item selection still triggers a write to model)
         text <=> [person, :country]
       }
       

data/samples/hello/hello_drag_and_drop.rb

@@ -0,0 +1,159 @@
+# 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.
+
+require "glimmer-dsl-tk"
+require "glimmer/tk/drag_and_drop_extension"
+
+include Glimmer
+
+root {
+  title "Hello, Drag and Drop!"
+  frame {
+    padding 5
+    labelframe {
+      text "Drag sources"
+      padding 5
+      label {
+        text "Entry"
+        grid :row => 0, :column => 0
+      }
+      entry {
+        text "Drag entry text"
+        width 30
+        grid :row => 0, :column => 1, :pady => 5, :sticky => "e"
+        on_drag_start { |event|
+          event.data = event.source.textvariable&.value
+          event.source.configure(:cursor => "hand2")
+          TkLabel.new(event.tooltip) {
+            text event.data + " "
+            bg "yellow"
+            bitmap "warning"
+            compound "right"
+          }.pack
+        }
+        on_drag_motion { |event|
+          if event.drop_accepted
+            event.source.configure(:cursor => "hand1")
+          else
+            event.source.configure(:cursor => "hand2")
+          end
+          event.tooltip.geometry("+#{event.x_root + 10}+#{event.y_root - 4}")
+        }
+      }
+      label {
+        text "Label"
+        grid :row => 1, :column => 0
+      }
+      label {
+        text "Drag label text"
+        width 30
+        grid :row => 1, :column => 1, :pady => 10, :sticky => "e"
+        drag_source true
+      }
+      label {
+        text "Combobox"
+        grid :row => 2, :column => 0
+      }
+      combobox {
+        text "Spain"
+        values %w[USA Canada Mexico Columbia UK Australia Germany Italy Spain]
+        width 27
+        grid :row => 2, :column => 1, :pady => 5, :sticky => "e"
+        on_drag_start { |event|
+          event.data = event.source.textvariable&.value
+        }
+      }
+      label {
+        text "Button"
+        grid :row => 3, :column => 0
+      }
+      button {
+        text "Drag it"
+        grid :row => 3, :column => 1, :pady => 5, :sticky => "w"
+        drag_source true
+      }
+    }
+
+    labelframe {
+      text "Drop targets"
+      grid :sticky => "nsew", :pady => 15
+      padding 5
+      label {
+        text "Entry"
+        grid :row => 0, :column => 0
+      }
+      entry {
+        width 30
+        grid :row => 0, :column => 1, :pady => 5, :sticky => "e"
+        on_drop { |event|
+          event.target.textvariable.value = event.data
+        }
+      }
+      label {
+        text "Label"
+        grid :row => 1, :column => 0
+      }
+      label {
+        width 30
+        grid :row => 1, :column => 1, :pady => 10, :sticky => "e"
+        borderwidth 2
+        relief "solid"
+        on_drop { |event|
+          event.target.textvariable.value = event.data
+        }
+      }
+      label {
+        text "Combobox"
+        grid :row => 2, :column => 0
+      }
+      combobox {
+        width 27
+        grid :row => 2, :column => 1, :pady => 5, :sticky => "e"
+        on_drop { |event|
+          event.target.textvariable.value = event.data
+        }
+      }
+      label {
+        text "Button"
+        grid :row => 3, :column => 0
+      }
+      button {
+        text "Drop here"
+        grid :row => 3, :column => 1, :pady => 5, :sticky => "w"
+        on_drop { |event|
+          event.target.text = event.data
+        }
+      }
+      label {
+        text "Checkbutton"
+        grid :row => 4, :column => 0
+      }
+      checkbutton {
+        text "Drop here to destroy a widget\n(except button)"
+        grid :row => 4, :column => 1, :pady => 5, :sticky => "w"
+        on_drop { |event|
+          event.target.text = event.data
+          event.source.destroy unless event.source.is_a? Tk::Button
+        }
+      }
+    }
+  }
+}.open

data/samples/hello/hello_entry.rb

@@ -38,7 +38,7 @@ class HelloEntry
       title 'Hello, Entry!'
       
       label {
-        grid sticky: 'ew', column_weight: 1
+        grid sticky: 'ew'
         text 'default entry'
       }
       entry {
@@ -72,7 +72,7 @@ class HelloEntry
 
         ## this event kicks in just after the text variable is validated and before it is modified
         on('invalid') do |validate_args|
-          @validated_entry_label.text = "#{validate_args.string} is not valid!"
+          @validated_entry_label.text = "#{validate_args.value} is not valid!"
           @validated_entry_label.foreground = 'red'
         end
 

data/samples/hello/hello_radiobutton.rb

@@ -1,3 +1,24 @@
+# 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.
+
 require 'glimmer-dsl-tk'
 
 class HelloRadiobutton
@@ -27,7 +48,6 @@ class HelloRadiobutton
   def launch
     root {
       title 'Hello, Radio!'
-      background '#ececec' if OS.mac?
       
       label {
         text 'Gender:'

data/samples/hello/hello_spinbox.rb

@@ -0,0 +1,75 @@
+# 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.
+
+require 'glimmer-dsl-tk'
+
+class HelloSpinbox
+  class Person
+    attr_accessor :donation
+  end
+  
+  include Glimmer
+  
+  def initialize
+    @person = Person.new
+    @person.donation = 5.0 # in dollars
+  end
+  
+  def launch
+    root {
+      title 'Hello, Spinbox!'
+      
+      label {
+        text 'Please select the amount you would like to donate to the poor:'
+      }
+      
+      frame {
+        label {
+          grid row: 0, column: 0
+          text 'Amount:'
+          font 'caption'
+        }
+        
+        label {
+          grid row: 0, column: 1
+          text '$'
+        }
+        
+        spinbox {
+          grid row: 0, column: 2
+          from 1.0 # minimum value
+          to 150.0 # maximum value
+          increment 5.0 # increment on up and down
+          format '%0.2f'
+          text <=> [@person, :donation]
+        }
+        
+        label {
+          grid row: 1, column: 0, columnspan: 3
+          text <=> [@person, :donation, on_read: ->(value) { "Thank you for your donation of $#{"%.2f" % value.to_f}"}]
+        }
+
+      }
+    }.open
+  end
+end
+
+HelloSpinbox.new.launch

data/samples/hello/hello_text.rb

@@ -0,0 +1,222 @@
+# 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.
+
+require 'glimmer-dsl-tk'
+
+class HelloText
+  include Glimmer
+  
+  COLOR_OPTIONS = %w[black purple blue green orange yellow red white].map(&:capitalize)
+  FONT_FAMILY_OPTIONS = ::TkFont.families
+  FOREGROUND_PROMPT = '<foreground>'
+  BACKGROUND_PROMPT = '<background>'
+  FONT_FAMILY_PROMPT = '<font family>'
+  FONT_SIZE_PROMPT = '<font size>'
+  
+  def initialize
+    @foreground = FOREGROUND_PROMPT
+    @background = BACKGROUND_PROMPT
+    @font_family = FONT_FAMILY_PROMPT
+    @font_size = FONT_SIZE_PROMPT
+  end
+  
+  attr_accessor :foreground
+  
+  def foreground_options
+    [FOREGROUND_PROMPT] + COLOR_OPTIONS
+  end
+  
+  attr_accessor :background
+  
+  def background_options
+    [BACKGROUND_PROMPT] + COLOR_OPTIONS
+  end
+  
+  attr_accessor :font_family
+  
+  def font_family_options
+    [FONT_FAMILY_PROMPT] + FONT_FAMILY_OPTIONS
+  end
+  
+  attr_accessor :font_size
+  
+  def font_size_options
+    [FONT_SIZE_PROMPT] + (9..64).to_a.map(&:to_s)
+  end
+  
+  def launch
+    root {
+      title 'Hello, Text!'
+      
+      frame {
+        grid row: 0, column: 0
+        
+        combobox {
+          grid row: 0, column: 0, column_weight: 1
+          readonly true
+          text <=> [self, :font_family, after_write: ->(value) { @text.toggle_selection_font_format('family', value == FONT_FAMILY_PROMPT ? 'Courier New' : value) }]
+        }
+        
+        combobox {
+          grid row: 0, column: 1, column_weight: 1
+          readonly true
+          text <=> [self, :font_size, after_write: ->(value) { @text.toggle_selection_font_format('size', value == FONT_SIZE_PROMPT ? 13 : value) }]
+        }
+        
+        combobox {
+          grid row: 0, column: 2, column_weight: 1
+          readonly true
+          text <=> [self, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        }
+        
+        combobox {
+          grid row: 0, column: 3, column_weight: 1
+          readonly true
+          text <=> [self, :background, after_write: ->(value) { @text.add_selection_format('background', value == BACKGROUND_PROMPT ? 'white' : value) }]
+        }
+        
+        separator {
+          grid row: 0, column: 4, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 0, column: 5, column_weight: 0
+          text 'B'
+          style font: {weight: 'bold'}
+          
+          on('command') do
+            @text.toggle_selection_font_format('weight', 'bold')
+          end
+        }
+        
+        button {
+          grid row: 0, column: 6, column_weight: 0
+          text 'I'
+          style font: {slant: 'italic'}
+          
+          on('command') do
+            @text.toggle_selection_font_format('slant', 'italic')
+          end
+        }
+        
+        button {
+          grid row: 0, column: 7, column_weight: 0
+          text 'U'
+          style font: {underline: true}
+          
+          on('command') do
+            @text.toggle_selection_font_format('underline', true)
+          end
+        }
+        
+        separator {
+          grid row: 0, column: 8, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 0, column: 9, column_weight: 0
+          image File.expand_path("images/cut.png", __dir__), subsample: 32
+          
+          on('command') do
+            @text.text_cut
+          end
+        }
+        
+        button {
+          grid row: 0, column: 10, column_weight: 0
+          image File.expand_path("images/copy.png", __dir__), subsample: 32
+          
+          on('command') do
+            @text.text_copy
+          end
+        }
+        
+        button {
+          grid row: 0, column: 11, column_weight: 0
+          image File.expand_path("images/paste.png", __dir__), subsample: 32
+          
+          on('command') do
+            @text.text_paste
+          end
+        }
+        
+        separator {
+          grid row: 0, column: 12, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 0, column: 13, column_weight: 1
+          image File.expand_path("images/undo.png", __dir__), subsample: 32
+          
+          on('command') do
+            @text.edit_undo
+          end
+        }
+        
+        button {
+          grid row: 0, column: 14, column_weight: 1
+          image File.expand_path("images/redo.png", __dir__), subsample: 32
+          
+          on('command') do
+            @text.edit_redo
+          end
+        }
+      }
+      
+      @text = text {
+        grid row: 1, column: 0, row_weight: 1
+        wrap 'word'
+        undo true
+        text <<~MULTI_LINE_STRING
+          According to the National Post, a heavy metal-loving high school principal in Canada will be allowed to keep her job, days after a public campaign to oust her made headlines around the globe.
+          
+          Parents at Eden High School in St. Catharines, Ontario launched a petition to remove principal Sharon Burns after discovering she's an IRON MAIDEN fan.
+          
+          The petition, titled "Eden High School Principal, Sharon Burns, Needs to Be Transferred Immediately!" read, "We are deeply disturbed that the principal assigned to the school blatantly showed Satanic symbols and her allegiance to Satanic practices on her public social media platforms where all the students can see them under @edenprincipal (not her personal account)."
+          
+          More than 500 people signed the petition to transfer Burns after she posted a picture of herself flashing the "devil horns" hand sign with a doll of the MAIDEN zombie mascot Eddie behind her as well as a personalized license plate reading "IRNMADEN" and a handwritten note that reads "Eddie 666" on a car's dashboard.
+          
+          
+          The number 666 is used to represent the devil, and is featured prominently in MAIDEN's artwork by the band, whose classic third album is titled "The Number Of The Beast".
+          
+          The petition was later updated to state that the demand for her transfer is not because of her love for metal, but for "openly displaying her own handmade sign with the 666 clearly displayed on it".
+          
+          The creator of the original petition wrote: "Sharon knows full well what she did was simply inappropriate, unnecessary and not professional but has yet to publicly admit so and is willing to allow people to believe a completely different story, making very real concerns seem petty."
+          
+          Meanwhile, a counter-petition supporting Burns garnered over 20,000 signatures.
+          
+          "It is ridiculous that a couple of parents judge her role as a principal only based on an Instagram post. (About liking the band IRON MAIDEN. That's it.) Eden High School is a public school. Not a Christian school," the petition titled "We need Mrs Burns" stated. "She has made Eden a safe space for so many people. She spreads nothing but love and kindness."
+          
+          After the complaints were aired, the District School Board of Niagara spoke with Burns and the parents who launched the petition, and the issue is over as far as the board is concerned, Kim Sweeney, the board's chief communications officer, told the National Post. No disciplinary action or policy changes were needed.
+          
+          "Our belief is that taste in music is subjective and we support that both students and staff enjoy a wide variety of genres," Sweeney said.
+          
+          The original petition has since been removed.
+        MULTI_LINE_STRING
+      }
+    }.open
+  end
+end
+
+HelloText.new.launch