glimmer-dsl-tk 0.0.25 → 0.0.26

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 1c940ac2487be1d7d3088f773bd34aa32f089fa58867ccdcb241886a36cc4327
-  data.tar.gz: 814497bd3fda9e8b11b7388b4c7d35f0fc6ee966ed0d6e0e7ac010151eac3ca6
+  metadata.gz: 23370b36e8a1902b5115b534e8d9510ff5660d9b5daa9bf31abec321976eb485
+  data.tar.gz: ebb5477ba30c249375d96f81747f250ea45ea14b20bc0420b373c9a36b0d79fc
 SHA512:
-  metadata.gz: 78c56736b536e3e284b417840f96ed0bcf8598dec29e0e09ba9a5174dce2797e1973ae1039b4715658361bf4db9b37f1862040c3e84ae9d3d4df7252f4e77ae8
-  data.tar.gz: ca7968598a8281c48304899c4fd6bfc48e8f4647592cb41d3e6b657027f675ce974e7222dd34d7b6b0fa9caad94fc1d3f216161042d182a20c8f61f7a91f9482
+  metadata.gz: 7249831c8104e32a6cab14341757932acb621e8de027ff6b698e6f017361959b27174b8ecd1d9a6ea3aa428a93a4392a57ceee2d7c7f08f4513eddf95129a051
+  data.tar.gz: 7cafb57cb7fc10656d70d101cc32e8e0e18e6636ff34ed4c2056b8f8dbc9ec428205f96643792adaf939c2fc0789974f11be4718e6f443fca74bf4c6aee6c21a

data/CHANGELOG.md

@@ -1,5 +1,15 @@
 # Change Log
 
+## 0.0.26
+
+- Ensure spinbox data-binding updates on text key changes (without incrementing/decrementing)
+- Optimize `text=` attribute setter on `text` widget when setting a text value that includes all previous text by having it not delete and reinsert, yet append instead.
+- Support font attribute for arbitrary fonts with terse syntax (`font 'times 12 bold'` not `font TkFont.new('times 12 bold')`)
+- Support a quicker way of tagging (instead of the two-step process of tagging with a keyword and then configuring the keyword style) (e.g. `text.tag(5.0, 6.0, :background=>'yellow', :font=>'TkFixedFont', :relief=>'raised')`)
+- Support styles (via `style` keyword or with attribute defaulting to style when not available) and ability to define and apply a style in one shot
+- Support `TextProxy#toggle_format` (+ `TextProxy#add_format` & `TextProxy#remove_format`) to be able to toggle a tag format option on or off for `text` widget in one shot instead of having to apply a tag and then configure a tag format
+- Hello, Text! (a word processor with a toolbar having foreground color and background color)
+
 ## 0.0.25
 
 - Elaborate, Meta-Sample

data/README.md

@@ -1,4 +1,4 @@
-# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for Tk 0.0.25
+# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for Tk 0.0.26
 ## MRI Ruby Desktop Development GUI Library
 [![Gem Version](https://badge.fury.io/rb/glimmer-dsl-tk.svg)](http://badge.fury.io/rb/glimmer-dsl-tk)
 [![Ruby](https://github.com/AndyObtiva/glimmer-dsl-tk/actions/workflows/ruby.yml/badge.svg)](https://github.com/AndyObtiva/glimmer-dsl-tk/actions/workflows/ruby.yml)
@@ -76,7 +76,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Supported Widgets](#supported-widgets)
       - [Common Attributes](#common-attributes)
       - [Common Themed Widget States](#common-themed-widget-states)
-    - [Smart Defaults and Convensions](#smart-defaults-and-convensions)
+    - [Smart Defaults and Conventions](#smart-defaults-and-conventions)
       - [Grid Layout](#grid-layout)
       - [Label/Button Image](#labelbutton-image)
       - [Notebook Frame](#notebook-frame)
@@ -89,7 +89,6 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [List Multi Selection Data-Binding](#list-multi-selection-data-binding)
     - [Entry Data-Binding](#entry-data-binding)
     - [Spinbox Data-Binding](#spinbox-data-binding)
-    - [Text Data-Binding](#text-data-binding)
     - [Checkbutton Data-Binding](#checkbutton-data-binding)
     - [Radiobutton Data-Binding](#radiobutton-data-binding)
   - [Command Callback](#command-callback)
@@ -108,6 +107,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, List Single Selection!](#hello-list-single-selection)
     - [Hello, List Multi Selection!](#hello-list-multi-selection)
     - [Hello, Entry!](#hello-entry)
+    - [Hello, Text!](#hello-text)
     - [Hello, Spinbox!](#hello-spinbox)
     - [Hello, Computed!](#hello-computed)
   - [Help](#help)
@@ -146,7 +146,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.25'
+gem 'glimmer-dsl-tk', '~> 0.0.26'
 ```
 
 And, then run:
@@ -317,7 +317,7 @@ keyword(args) | attributes | event bindings & callbacks
 - `invalid?`
 - `hover?`
 
-### Smart Defaults and Convensions
+### Smart Defaults and Conventions
 
 #### Event Bindings
 
@@ -325,7 +325,11 @@ Any events that normally can be accepted by the Tk `bind` or `protocol` methods
 
 #### Grid Layout
 
-`grid` layout is the default on most widgets (which support it).
+`grid` layout with `sticky: 'nsew'` is the default on all widgets except toplevel widgets.
+
+Also, any widget that is the first in a series of siblings has `column_weight` as `1` to automatically resize with window resizing by default.
+
+To override that behavior, you may set alternative `grid` keyword args if needed (e.g. `grid sticky: '', column_weight: 0` disables the smart defaults).
 
 #### Label/Button Image
 
@@ -359,6 +363,10 @@ root {
 }.open
 ```
 
+#### Root Background
+
+`root` `background` color attribute is automatically set to `'#ececec'` on the Mac to avoid having a non-native-looking light-colored background.
+
 ## The Grid Geometry Manager
 
 The Grid Geometry Manager is supported via the `grid` keyword just as per the [Tk documentation](https://tkdocs.com/tutorial/grid.html), except by nesting under the widget it concerns.
@@ -377,9 +385,17 @@ Example:
         }
 ```
 
+Extra convenience options may be passed to `grid` when using [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk):
+- `min_width`: alias for `columnminsize` being called on `TkGrid.columnconfigure`
+- `min_height`: alias for `rowminsize` being called on `TkGrid.rowconfigure`
+- `column_weight`: alias for `columnweight` being called on `TkGrid.columnconfigure`
+- `row_weight`: alias for `rowweight` being called on `TkGrid.rowconfigure`
+
+Note also the [Grid Layout](#grid-layout) conventions (e.g. `column_weight` is automatically set to `1` for the first widget in a series of siblings to automatically have all resize when window resize)
+
 More details can be found in the [Hello, Computed!](#hello-computed) sample below.
 
-## Bidirectional Data-Binding
+## Data-Binding
 
 Glimmer supports Shine syntax bidirectional data-binding via the `<=>` operator (read-write) and unidirectional data-binding via the `<=` operator (read-only), which takes a model and an attribute (the `bind` keyword may also be used as the old-style of data-binding).
 
@@ -409,7 +425,7 @@ This assumes a `Person` model with a `country` attribute representing their curr
 
 ```ruby
   combobox {
-    state 'readonly'
+    readonly true # this applies to text editing only (item selection still triggers a write to model)
     text <=> [person, :country]
   }
 ```
@@ -570,7 +586,7 @@ More details can be found in the [Hello, Radiobutton!](#hello-radiobutton) sampl
 
 ## Command Callback
 
-`button` and `checkbutton` can set a `command` block to trigger when the user clicks the button/checkbutton. This may be done with the `command` keyword, passing in a block directly.
+`button`, `spinbox`, `radiobutton` and `checkbutton` can set a `command` block to trigger when the user clicks the button/checkbutton. This may be done with the `command` keyword, passing in a block directly.
 
 Example:
 
@@ -584,6 +600,18 @@ Example:
   }
 ```
 
+Alternatively, it can be treated as simply an event for consistency with other event bindings:
+
+```ruby
+  button {
+    text "Reset Selection"
+    
+    on('command') do
+      person.reset_country
+    end
+  }
+```
+
 More details can be found in the [Hello, Button!](#hello-button) sample below.
 
 ## Gotchas
@@ -1390,12 +1418,12 @@ Glimmer code (from [samples/hello/hello_combobox.rb](samples/hello/hello_combobo
 root {
   title 'Hello, Combobox!'
   
-  combobox { |proxy|
-    state 'readonly'
+  combobox {
+    readonly true # this applies to text editing only (item selection still triggers a write to model)
     text <=> [person, :country]
   }
   
-  button { |proxy|
+  button {
     text "Reset Selection"
     command {
       person.reset_country
@@ -1499,86 +1527,6 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello list multi selection](images/glimmer-dsl-tk-screenshot-sample-hello-list-multi-selection.png)
 
-### Hello, Computed!
-
-Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_computed.rb)):
-
-```ruby
-# ... more code precedes
-    root {
-      title 'Hello, Computed!'
-      
-      frame {
-        grid column: 0, row: 0, padx: 5, pady: 5
-        
-        label {
-          grid column: 0, row: 0, sticky: 'w'
-          text 'First Name: '
-        }
-        entry {
-          grid column: 1, row: 0
-          width 15
-          text <=> [@contact, :first_name]
-        }
-        
-        label {
-          grid column: 0, row: 1, sticky: 'w'
-          text 'Last Name: '
-        }
-        entry {
-          grid column: 1, row: 1
-          width 15
-          text <=> [@contact, :last_name]
-        }
-        
-        label {
-          grid column: 0, row: 2, sticky: 'w'
-          text 'Year of Birth: '
-        }
-        entry {
-          grid column: 1, row: 2
-          width 15
-          text <=> [@contact, :year_of_birth]
-        }
-        
-        label {
-          grid column: 0, row: 3, sticky: 'w'
-          text 'Name: '
-        }
-        label {
-          grid column: 1, row: 3, sticky: 'w'
-          text <=> [@contact, :name, computed_by: [:first_name, :last_name]]
-        }
-        
-        label {
-          grid column: 0, row: 4, sticky: 'w'
-          text 'Age: '
-        }
-        label {
-          grid column: 1, row: 4, sticky: 'w'
-          text <=> [@contact, :age, on_write: :to_i, computed_by: [:year_of_birth]]
-        }
-      }
-    }.open
-# ... more code follows
-```
-
-Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
-
-```
-ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_computed'"
-```
-
-Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
-
-```
-ruby -r ./lib/glimmer-dsl-tk.rb samples/hello/hello_computed.rb
-```
-
-Glimmer app:
-
-![glimmer dsl tk screenshot sample hello computed](images/glimmer-dsl-tk-screenshot-sample-hello-computed.png)
-
 ### Hello, Entry!
 
 Glimmer code (from [samples/hello/hello_entry.rb](samples/hello/hello_entry.rb)):
@@ -1603,7 +1551,7 @@ class HelloEntry
       title 'Hello, Entry!'
       
       label {
-        grid sticky: 'ew', column_weight: 1
+        grid sticky: 'ew'
         text 'default entry'
       }
       entry {
@@ -1686,6 +1634,111 @@ Glimmer app:
 ![glimmer dsl tk screenshot sample hello entry](images/glimmer-dsl-tk-screenshot-sample-hello-entry.png)
 ![glimmer dsl tk screenshot sample hello entry validated](images/glimmer-dsl-tk-screenshot-sample-hello-entry-validated.png)
 
+### Hello, Text!
+
+[Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) automatically provides a `text` attribute for the `text` widget that enables updating its content simply without worrying about whether to manually insert by index, delete, or append.
+
+Glimmer code (from [samples/hello/hello_text.rb](samples/hello/hello_text.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+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>'
+  
+  def initialize
+    @foreground = FOREGROUND_PROMPT
+    @background = BACKGROUND_PROMPT
+  end
+  
+  attr_accessor :foreground
+  
+  def foreground_options
+    [FOREGROUND_PROMPT] + COLOR_OPTIONS
+  end
+  
+  attr_accessor :background
+  
+  def background_options
+    [BACKGROUND_PROMPT] + COLOR_OPTIONS
+  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, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        }
+        
+        combobox {
+          grid row: 0, column: 1, 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
+        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
+```
+
+Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_text'"
+```
+
+Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -r ./lib/glimmer-dsl-tk.rb samples/hello/hello_text.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello text](images/glimmer-dsl-tk-screenshot-sample-hello-text.png)
+
 ### Hello, Spinbox!
 
 Glimmer code (from [samples/hello/hello_spinbox.rb](samples/hello/hello_spinbox.rb)):

data/VERSION

@@ -1 +1 @@
-0.0.25
+0.0.26

data/lib/glimmer/tk/label_proxy.rb

@@ -30,10 +30,11 @@ module Glimmer
     class LabelProxy < WidgetProxy
       include TextVariableOwner
       
-      def set_attribute(attribute, *args)
-        if attribute.to_s == 'font'
-          args[0] = "tk_#{args[0]}_font".camelcase(:upper) if (args[0].is_a?(Symbol) || args[0].is_a?(String)) && args[0].to_s == args[0].to_s.downcase
-          super
+      FONTS_PREDEFINED = %w[default text fixed menu heading caption small_caption icon tooltip]
+      
+      def font=(value)
+        if (value.is_a?(Symbol) || value.is_a?(String)) && FONTS_PREDEFINED.include?(value.to_s.downcase)
+          @tk.font = "tk_#{value}_font".camelcase(:upper)
         else
           super
         end

data/lib/glimmer/tk/root_proxy.rb

@@ -59,16 +59,6 @@ module Glimmer
         when 'iconphoto'
           args[0..-1] = [image_argument(args)]
           super
-        when 'width'
-          @width = args.first.to_i
-          self.geometry = "#{args.first.to_i}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
-        when 'height'
-          @height = args.first.to_i
-          self.geometry = "#{@width || DEFAULT_WIDTH}x#{args.first.to_i}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
-        when 'x'
-          self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{args.first.to_i > 0 ? '+' : '-'}#{args.first.to_i.abs}#{y_sign}#{abs_y}"
-        when 'y'
-          self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{args.first.to_i > 0 ? '+' : '-'}#{args.first.to_i.abs}"
         when 'resizable'
           if args.size == 1 && !args.first.is_a?(Array)
             self.resizable = [args.first]*2
@@ -80,52 +70,38 @@ module Glimmer
         end
       end
       
-      def get_attribute(attribute)
-        attribute = attribute.to_s
-        case attribute
-        when 'width'
-          geometry.split(REGEX_GEOMETRY)[0].to_i
-        when 'height'
-          geometry.split(REGEX_GEOMETRY)[1].to_i
-        when 'x'
-          sign_number(x_sign, geometry.split(REGEX_GEOMETRY)[2].to_i)
-        when 'y'
-          sign_number(y_sign, geometry.split(REGEX_GEOMETRY)[3].to_i)
-        else
-          super
-        end
-      end
-      
       def width
-        get_attribute(:width)
+        geometry.split(REGEX_GEOMETRY)[0].to_i
       end
       
       def height
-        get_attribute(:height)
+        geometry.split(REGEX_GEOMETRY)[1].to_i
       end
       
       def x
-        get_attribute(:x)
+        sign_number(x_sign, geometry.split(REGEX_GEOMETRY)[2].to_i)
       end
       
       def y
-        get_attribute(:y)
+        sign_number(y_sign, geometry.split(REGEX_GEOMETRY)[3].to_i)
       end
       
       def width=(value)
-        set_attribute(:width, value)
+        @width = value.to_i
+        self.geometry = "#{value.to_i}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
       end
       
       def height=(value)
-        set_attribute(:height, value)
+        @height = value.to_i
+        self.geometry = "#{@width || DEFAULT_WIDTH}x#{value.to_i}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
       end
       
       def x=(value)
-        set_attribute(:x, value)
+        self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}#{y_sign}#{abs_y}"
       end
       
       def y=(value)
-        set_attribute(:y, value)
+        self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}"
       end
       
       def handle_listener(listener_name, &listener)

data/lib/glimmer/tk/text_proxy.rb

@@ -45,20 +45,136 @@ module Glimmer
     
       def text=(value)
         if value != @text
+          if @text && value.start_with?(@text)
+            insert('end', value[@text.size..-1])
+          else
+            delete('1.0', 'end')
+            insert('end', value)
+          end
           @text = value
-          delete('1.0', 'end')
-          insert('end', value)
         end
       end
       
-      def text(value = nil)
-        if value.nil?
-          @text = get("1.0", 'end')
-        else
-          self.text = value
+      def text
+        @text = get("1.0", 'end')
+      end
+      
+      def add_selection_format(option, value)
+        process_selection_ranges { |range_start, range_end| add_format(range_start, range_end, option, value) }
+      end
+      
+      def remove_selection_format(option, value)
+        process_selection_ranges { |range_start, range_end| remove_format(range_start, range_end, option, value) }
+      end
+      
+      def toggle_selection_format(option, value)
+        process_selection_ranges { |range_start, range_end| toggle_format(range_start, range_end, option, value) }
+      end
+      
+      def add_selection_font_format(option, value)
+        process_selection_ranges { |range_start, range_end| add_font_format(range_start, range_end, option, value) }
+      end
+      
+      def remove_selection_font_format(option, value)
+        process_selection_ranges { |range_start, range_end| remove_font_format(range_start, range_end, option, value) }
+      end
+      
+      def toggle_selection_font_format(option, value)
+        process_selection_ranges { |range_start, range_end| toggle_font_format(range_start, range_end, option, value) }
+      end
+      
+      def process_selection_ranges(&processor)
+        @tk.tag_ranges('sel').each do |region|
+          range_start = region.first
+          range_end = region.last
+          processor.call(range_start, range_end)
+        end
+      end
+      
+      def applied_format?(region_start, region_end, option, value)
+        !applied_format_tags(region_start, region_end, option, value).empty?
+      end
+      
+      def applied_format_tags(region_start, region_end, option, value)
+        tag_names = @tk.tag_names - ['sel']
+        
+        tag_names.select do |tag_name|
+          @tk.tag_ranges(tag_name).any? do |range|
+            if range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f
+              @tk.tag_cget(tag_name, option) == value
+            end
+          end
+        end
+      end
+            
+      def add_format(region_start, region_end, option, value)
+        @@tag_number = 0 unless defined?(@@tag_number)
+        tag = "tag#{@@tag_number += 1}"
+        @tk.tag_configure(tag, {option => value})
+        @tk.tag_add(tag, region_start, region_end)
+        tag
+      end
+      
+      def remove_format(region_start, region_end, option, value)
+        partial_intersection_option_applied_tags = tag_names.select do |tag_name|
+          @tk.tag_ranges(tag_name).any? do |range|
+            if range.first.to_f.between?(region_start.to_f, region_end.to_f) or
+               range.last.to_f.between?(region_start.to_f, region_end.to_f) or
+               (range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f)
+              @tk.tag_cget(tag_name, option) == value
+            end
+          end
         end
+        
+        partial_intersection_option_applied_tags.each do |tag_name|
+          @tk.tag_remove(tag_name, region_start, region_end)
+        end
+        
+        nil
       end
       
+      # toggles option/value tag (removes if already applied)
+      def toggle_format(region_start, region_end, option, value)
+        if applied_format?(region_start, region_end, option, value)
+          remove_format(region_start, region_end, option, value)
+        else
+          add_format(region_start, region_end, option, value)
+        end
+      end
+            
+#       def applied_font_format?(region_start, region_end, option, value)
+#         !applied_font_format_tags(region_start, region_end, option, value).empty?
+#       end
+#
+#       def applied_font_format_tags(region_start, region_end, option, value)
+#         tag_names = @tk.tag_names - ['sel']
+#
+#         tag_names.select do |tag_name|
+#           @tk.tag_ranges(tag_name).any? do |range|
+#             if range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f
+#               @tk.tag_cget(tag_name, option) == value
+#             end
+#           end
+#         end
+#       end
+#
+#       def add_font_format(region_start, region_end, option, value)
+#       end
+#
+#       def remove_font_format(region_start, region_end, option, value)
+#       end
+#
+      ### toggles option/value tag (removes if already applied)
+#       def toggle_font_format(region_start, region_end, option, value)
+#         if applied_font_format?(region_start, region_end, option, value)
+          ### ensure removing from previous font combination (perhaps checking widget font too)
+#           remove_font_format(region_start, region_end, option, value)
+#         else
+          ### ensure adding to previous font combination (perhaps checking widget font too)
+#           add_font_format(region_start, region_end, option, value)
+#         end
+#       end
+            
       private
       
       def initialize_defaults

data/lib/glimmer/tk/widget_proxy.rb

@@ -57,7 +57,7 @@ module Glimmer
               Glimmer::Config.logger.debug e.full_message
             end
           end
-          tk_widget_class
+          tk_widget_class if tk_widget_class.respond_to?(:new)
         end
       end
       
@@ -144,45 +144,55 @@ module Glimmer
           tk_widget_has_attribute_getter_setter?(attribute) or
           has_state?(attribute) or
           has_attributes_attribute?(attribute) or
-          respond_to?(attribute_setter(attribute), args)
+          respond_to?(attribute_setter(attribute), args) or
+          respond_to?(attribute_setter(attribute), *args, super_only: true) or
+          respond_to?(attribute, *args, super_only: true)
       end
 
       def set_attribute(attribute, *args)
-        widget_custom_attribute = widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][attribute.to_s]
-        if respond_to?(attribute, super_only: true)
-          send(attribute, *args)
-        elsif respond_to?(attribute_setter(attribute), super_only: true)
-          send(attribute_setter(attribute), *args)
-        elsif widget_custom_attribute
-          widget_custom_attribute[:setter][:invoker].call(@tk, args)
-        elsif tk_widget_has_attribute_setter?(attribute)
-          unless args.size == 1 && @tk.send(attribute) == args.first
-            if args.size == 1
-              @tk.send(attribute_setter(attribute), *args)
+        begin
+          widget_custom_attribute = widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][attribute.to_s]
+          if respond_to?(attribute_setter(attribute), super_only: true)
+            send(attribute_setter(attribute), *args)
+          elsif respond_to?(attribute, super_only: true) && self.class.instance_method(attribute).parameters.size > 0
+            send(attribute, *args)
+          elsif widget_custom_attribute
+            widget_custom_attribute[:setter][:invoker].call(@tk, args)
+          elsif tk_widget_has_attribute_setter?(attribute)
+            unless args.size == 1 && @tk.send(attribute) == args.first
+              if args.size == 1
+                @tk.send(attribute_setter(attribute), *args)
+              else
+                @tk.send(attribute_setter(attribute), args)
+              end
+            end
+          elsif tk_widget_has_attribute_getter_setter?(attribute)
+            @tk.send(attribute, *args)
+          elsif has_state?(attribute)
+            attribute = attribute.sub(/=$/, '')
+            if !!args.first
+              @tk.tile_state(attribute)
             else
-              @tk.send(attribute_setter(attribute), args)
+              @tk.tile_state("!#{attribute}")
             end
-          end
-        elsif tk_widget_has_attribute_getter_setter?(attribute)
-          @tk.send(attribute, *args)
-        elsif has_state?(attribute)
-          attribute = attribute.sub(/=$/, '')
-          if !!args.first
-            @tk.tile_state(attribute)
+          elsif has_attributes_attribute?(attribute)
+            attribute = attribute.sub(/=$/, '')
+            @tk.attributes(attribute, args.first)
           else
-            @tk.tile_state("!#{attribute}")
+            raise "#{self} cannot handle attribute #{attribute} with args #{args.inspect}"
           end
-        elsif has_attributes_attribute?(attribute)
-          attribute = attribute.sub(/=$/, '')
-          @tk.attributes(attribute, args.first)
-        else
-          send(attribute_setter(attribute), args)
+        rescue => e
+          Glimmer::Config.logger.debug {"Failed to set attribute #{attribute} with args #{args.inspect}. Attempting to set through style instead..."}
+          Glimmer::Config.logger.debug {e.full_message}
+          apply_style(attribute => args.first)
         end
       end
 
       def get_attribute(attribute)
         widget_custom_attribute = widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][attribute.to_s]
-        if widget_custom_attribute
+        if respond_to?(attribute, super_only: true)
+          send(attribute)
+        elsif widget_custom_attribute
           widget_custom_attribute[:getter][:invoker].call(@tk, args)
         elsif tk_widget_has_attribute_getter_setter?(attribute)
           @tk.send(attribute)
@@ -201,6 +211,12 @@ module Glimmer
         "#{attribute}="
       end
       
+      def style=(styles)
+        styles.each do |attribute, value|
+          apply_style(attribute => value)
+        end
+      end
+      
       def grid(options = {})
         options = options.stringify_keys
         index_in_parent = @parent_proxy.children.index(self)
@@ -221,6 +237,21 @@ module Glimmer
         @tk.grid(options)
       end
       
+      def font=(value)
+        @tk.font = value.is_a?(TkFont) ? value : TkFont.new(value)
+      rescue => e
+        Glimmer::Config.logger.debug {"Failed to set attribute #{attribute} with args #{args.inspect}. Attempting to set through style instead..."}
+        Glimmer::Config.logger.debug {e.full_message}
+        apply_style({"font" => value})
+      end
+      
+      def apply_style(options)
+        @@style_number = 0 unless defined?(@@style_number)
+        style = "style#{@@style_number}.#{@tk.class.name.split('::').last}"
+        ::Tk::Tile::Style.configure(style, options)
+        @tk.style = style
+      end
+      
       def widget_custom_attribute_mapping
         # TODO consider extracting to modules/subclasses
         @widget_custom_attribute_mapping ||= {
@@ -325,6 +356,14 @@ module Glimmer
               @tk.command {
                 observer.call(@tk.textvariable&.value)
               }
+              @tk.validate('key')
+              @tk.validatecommand { |validate_args|
+                observer.call(validate_args.value)
+                new_icursor = validate_args.index
+                new_icursor += validate_args.string.size if validate_args.action == 1
+                @tk.icursor = new_icursor
+                true
+              }
             end,
           },
           ::Tk::Text => {

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_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_text.rb

@@ -0,0 +1,101 @@
+# 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)
+  FOREGROUND_PROMPT = '<select foreground>'
+  BACKGROUND_PROMPT = '<select background>'
+  
+  def initialize
+    @foreground = FOREGROUND_PROMPT
+    @background = BACKGROUND_PROMPT
+  end
+  
+  attr_accessor :foreground
+  
+  def foreground_options
+    [FOREGROUND_PROMPT] + COLOR_OPTIONS
+  end
+  
+  attr_accessor :background
+  
+  def background_options
+    [BACKGROUND_PROMPT] + COLOR_OPTIONS
+  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, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        }
+        
+        combobox {
+          grid row: 0, column: 1, 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
+        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

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.25
+  version: 0.0.26
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-16 00:00:00.000000000 Z
+date: 2021-10-18 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -191,7 +191,7 @@ dependencies:
       - !ruby/object:Gem::Version
         version: 0.7.0
 description: Glimmer DSL for Tk (MRI Ruby Desktop Development GUI Library) - Ruby
-  DSL for Tcl/Tk with bidirectional/unidirectional data-binding support
+  DSL for Tcl/Tk with bidirectional/unidirectional data-binding support.
 email: andy.am@gmail.com
 executables:
 - girb
@@ -257,6 +257,7 @@ files:
 - samples/hello/hello_radiobutton.rb
 - samples/hello/hello_root.rb
 - samples/hello/hello_spinbox.rb
+- samples/hello/hello_text.rb
 - samples/hello/hello_world.rb
 - samples/hello/images/denmark.png
 - samples/hello/images/finland.png