glimmer-dsl-tk 0.0.27 → 0.0.31

data/samples/hello/hello_text.rb

@@ -25,14 +25,47 @@ class HelloText
   include Glimmer
   
   COLOR_OPTIONS = %w[black purple blue green orange yellow red white].map(&:capitalize)
-  FOREGROUND_PROMPT = '<select foreground>'
-  BACKGROUND_PROMPT = '<select background>'
+  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
+    @document = <<~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
   end
   
+  attr_accessor :document, :find_text
+      
   attr_accessor :foreground
   
   def foreground_options
@@ -45,15 +78,73 @@ class HelloText
     [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 find
+    text_index = @text.search(/#{find_text}/i, @text.tag_ranges('sel')&.first&.last || @text.index('insert'))
+    unless text_index.to_s.empty?
+      @text.tag_remove('sel', '1.0', 'end')
+      @text.tag_add('sel', text_index, "#{text_index} + #{find_text.size} chars")
+    end
+  end
+  
   def launch
-    root {
+    root { |r|
       title 'Hello, Text!'
+      width 1280
+      height 800
       
       frame {
         grid row: 0, column: 0
         
+        label {
+          grid row: 0, column: 0, columnspan: 17
+          text 'Select a region of text and then apply formatting from the toolbar'
+        }
+        
+        column_index = -1
+        
+        combobox {
+          grid row: 1, column: column_index += 1, 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: 1, column: column_index += 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: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        }
+        
+        combobox {
+          grid row: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :background, after_write: ->(value) { @text.add_selection_format('background', value == BACKGROUND_PROMPT ? 'white' : value) }]
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
         button {
-          grid row: 0, column: 0, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'B'
           style font: {weight: 'bold'}
           
@@ -63,7 +154,7 @@ class HelloText
         }
         
         button {
-          grid row: 0, column: 1, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'I'
           style font: {slant: 'italic'}
           
@@ -73,7 +164,7 @@ class HelloText
         }
         
         button {
-          grid row: 0, column: 2, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'U'
           style font: {underline: true}
           
@@ -82,48 +173,156 @@ class HelloText
           end
         }
         
-        combobox {
-          grid row: 0, column: 4, column_weight: 1
-          readonly true
-          text <=> [self, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
         }
         
-        combobox {
-          grid row: 0, column: 5, column_weight: 1
-          readonly true
-          text <=> [self, :background, after_write: ->(value) { @text.add_selection_format('background', value == BACKGROUND_PROMPT ? 'black' : value) }]
-        }
-      }
-      
-      @text = text {
-        grid row: 1, column: 0, row_weight: 1
-        wrap 'word'
-        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.
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/cut.png", __dir__), subsample: 32
           
+          on('command') do
+            @text.text_cut
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/copy.png", __dir__), subsample: 32
           
-          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".
+          on('command') do
+            @text.text_copy
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/paste.png", __dir__), subsample: 32
           
-          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".
+          on('command') do
+            @text.text_paste
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-left.png", __dir__), subsample: 32
           
-          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."
+          on('command') do
+            @text.add_selection_format('justify', 'left')
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-center.png", __dir__), subsample: 32
           
-          Meanwhile, a counter-petition supporting Burns garnered over 20,000 signatures.
+          on('command') do
+            @text.add_selection_format('justify', 'center')
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-right.png", __dir__), subsample: 32
           
-          "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."
+          on('command') do
+            @text.add_selection_format('justify', 'right')
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/undo.png", __dir__), subsample: 32
           
-          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.
+          on('command') do
+            @text.edit_undo
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/redo.png", __dir__), subsample: 32
           
-          "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.
+          on('command') do
+            @text.edit_redo
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/picture.png", __dir__), subsample: 32
           
-          The original petition has since been removed.
-        MULTI_LINE_STRING
+          on('command') do
+            @text.get_open_file_to_insert_image
+          end
+        }
+      }
+      
+      @text = text {
+        grid row: 1, column: 0, row_weight: 1
+        wrap 'word'
+        undo true
+        value <=> [self, :document]
+        
+        on('KeyPress') do |event|
+          if event.state == 8 && event.char == 'f'
+            toplevel(r) { |tl|
+              title 'Find'
+              
+              label {
+                text 'Text:'
+              }
+              entry { |e|
+                focus true
+                text <=> [
+                  self,
+                  :find_text,
+                  after_write: lambda do
+                    text_index = @text.search(/#{find_text}/i, 'insert')
+                    unless text_index.to_s.empty?
+                      @text.tag_remove('sel', '1.0', 'end')
+                      @text.tag_add('sel', text_index, "#{text_index} + #{find_text.size} chars")
+                    end
+                  end
+                ]
+                
+                on('KeyPress') do |event|
+                  if event.keysym == 'Return'
+                    find
+                  elsif event.keysym == 'Escape'
+                    tl.grab_release
+                    tl.destroy
+                  end
+                end
+              }
+              button {
+                text 'Find'
+                default 'active'
+                
+                on('command') do
+                  find
+                end
+              }
+            }
+          end
+        end
       }
     }.open
   end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.27
+  version: 0.0.31
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-21 00:00:00.000000000 Z
+date: 2021-10-28 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -16,14 +16,14 @@ dependencies:
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: 2.1.2
+        version: 2.4.0
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: 2.1.2
+        version: 2.4.0
 - !ruby/object:Gem::Dependency
   name: puts_debuggerer
   requirement: !ruby/object:Gem::Requirement
@@ -211,10 +211,12 @@ files:
 - icons/glimmer.png
 - lib/glimmer-dsl-tk.rb
 - lib/glimmer/data_binding/tk/list_selection_binding.rb
+- lib/glimmer/data_binding/tk/one_time_observer.rb
 - lib/glimmer/data_binding/tk/widget_binding.rb
 - lib/glimmer/dsl/tk/attribute_expression.rb
 - lib/glimmer/dsl/tk/bind_expression.rb
 - lib/glimmer/dsl/tk/block_attribute_expression.rb
+- lib/glimmer/dsl/tk/built_in_dialog_expression.rb
 - lib/glimmer/dsl/tk/data_binding_expression.rb
 - lib/glimmer/dsl/tk/dsl.rb
 - lib/glimmer/dsl/tk/format_expression.rb
@@ -228,6 +230,7 @@ files:
 - lib/glimmer/tk/checkbutton_proxy.rb
 - lib/glimmer/tk/combobox_proxy.rb
 - lib/glimmer/tk/commandable.rb
+- lib/glimmer/tk/drag_and_drop_extension.rb
 - lib/glimmer/tk/entry_proxy.rb
 - lib/glimmer/tk/frame_proxy.rb
 - lib/glimmer/tk/label_proxy.rb
@@ -238,15 +241,18 @@ files:
 - lib/glimmer/tk/spinbox_proxy.rb
 - lib/glimmer/tk/text_proxy.rb
 - lib/glimmer/tk/text_variable_owner.rb
+- lib/glimmer/tk/toplevel_proxy.rb
 - lib/glimmer/tk/treeview_proxy.rb
 - lib/glimmer/tk/variable_owner.rb
 - lib/glimmer/tk/widget_proxy.rb
 - samples/elaborate/meta_sample.rb
+- samples/hello/hello_built_in_dialog.rb
 - samples/hello/hello_button.rb
 - samples/hello/hello_checkbutton.rb
 - samples/hello/hello_combobox.rb
 - samples/hello/hello_computed.rb
 - samples/hello/hello_computed/contact.rb
+- samples/hello/hello_drag_and_drop.rb
 - samples/hello/hello_entry.rb
 - samples/hello/hello_frame.rb
 - samples/hello/hello_label.rb
@@ -256,9 +262,15 @@ files:
 - samples/hello/hello_notebook.rb
 - samples/hello/hello_radiobutton.rb
 - samples/hello/hello_root.rb
+- samples/hello/hello_separator.rb
 - samples/hello/hello_spinbox.rb
 - samples/hello/hello_text.rb
 - samples/hello/hello_world.rb
+- samples/hello/images/align-center.png
+- samples/hello/images/align-left.png
+- samples/hello/images/align-right.png
+- samples/hello/images/copy.png
+- samples/hello/images/cut.png
 - samples/hello/images/denmark.png
 - samples/hello/images/finland.png
 - samples/hello/images/france.png
@@ -267,6 +279,11 @@ files:
 - samples/hello/images/mexico.png
 - samples/hello/images/netherlands.png
 - samples/hello/images/norway.png
+- samples/hello/images/paste.png
+- samples/hello/images/picture.png
+- samples/hello/images/redo.png
+- samples/hello/images/search.png
+- samples/hello/images/undo.png
 - samples/hello/images/usa.png
 homepage: http://github.com/AndyObtiva/glimmer-dsl-tk
 licenses:
@@ -288,7 +305,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.2.29
+rubygems_version: 3.2.22
 signing_key:
 specification_version: 4
 summary: Glimmer DSL for Tk