glimmer-dsl-tk 0.0.22 → 0.0.23

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: f1af2971637c33b4dcebacf0de9239fa24402b92325157df38453a1ba535d99c
-  data.tar.gz: f327b2f968225d46be3768dc109aba6799ad4b00cd4c77b2584ed3729de57a7d
+  metadata.gz: 9d722c9396a9adb7252e4fc65c283fbf923dbe0cb93e17a9d34649ea887f5e56
+  data.tar.gz: 20682a6aa497800f683b87fc180754a58a96362a5a286fab3754bc38edd5d084
 SHA512:
-  metadata.gz: a94b3eff61254b4b134cd19011c51ea1ec1ca952f6f2a753897840a0586cd39ca41483f4701a6746d8768b186a28790f6a010dfa6ba8f27d38d1698058ee11b4
-  data.tar.gz: d0fba3f64cb7b54f94ae6c00d7d6dbe4c1fe400cbc66c15c55b3648cfa3d05b0cb2eba123e6a4a9b1e79c78e9f0c9376282a2f9829d8f95013aa9804bcc05609
+  metadata.gz: 77c488d614a997861369fd032fc1ebc578bee01aa8367c0fd267b99442ec462769f0218c11e236533b3443558294c2ca0940c773777698f4216df85cd1179243
+  data.tar.gz: 521a5c5e3db695b7938fc225619779114e32c06fa2bce870de16f233597d212b3662218a101e95921733c58f4ea02764598167eaa507835bbb25855187566b6a

data/CHANGELOG.md

@@ -1,5 +1,16 @@
 # Change Log
 
+## 0.0.23
+
+- Hello, Radiobutton!
+- Support `radiobutton` ensuring that sibling radio buttons share the same variable to achieve mutually exclusive selection
+- Improved Hello, Checkbutton! sample to demonstrate alternate checkbutton value (half-checked state)
+- Support `checkbutton` with specified `onvalue` and `offvalue` (when they do not have values 1 and 0)
+- Alias `root` `title` attribute as `text` & add children attribute to widgets
+- Alias `notebook` `frame` `:title` as `:text`
+- Alias message_box `:title` as `:text`
+- Fix reference to `Glimmer::Tk::CheckbuttonProxy` (was `Glimmer::Tk::ChecktbuttonProxy`)
+
 ## 0.0.22
 
 - Hello, Checkbutton!

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.21
+# [<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.23
 ## 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)
@@ -88,13 +88,15 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [List Single Selection Data-Binding](#list-single-selection-data-binding)
     - [List Multi Selection Data-Binding](#list-multi-selection-data-binding)
     - [Entry Data-Binding](#entry-data-binding)
-    - [Checkbox Data-Binding](#checkbox-data-binding)
+    - [Checkbutton Data-Binding](#checkbutton-data-binding)
+    - [Radiobutton Data-Binding](#radiobutton-data-binding)
   - [Command Callback](#command-callback)
   - [Gotchas](#gotchas)
   - [Samples](#samples)
     - [Hello, World!](#hello-world)
     - [Hello, Button!](#hello-button)
     - [Hello, Checkbutton!](#hello-checkbutton)
+    - [Hello, Radiobutton!](#hello-radiobutton)
     - [Hello, Frame!](#hello-frame)
     - [Hello, Root!](#hello-root)
     - [Hello, Notebook!](#hello-notebook)
@@ -140,7 +142,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.21'
+gem 'glimmer-dsl-tk', '~> 0.0.23'
 ```
 
 And, then run:
@@ -250,7 +252,7 @@ root {
 keyword(args) | attributes | event bindings & callbacks
 ------------- | ---------- | ---------
 `button` | `text`, `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `default` (`'active', 'normal'`) | `command {}`
-`checkbutton` | `text`, `variable` (Boolean), `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `default` (`'active', 'normal'`) | `command {}`
+`checkbutton` | `text`, `variable` (Boolean), `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `onvalue` (default: `1`), `offvalue` (default: `0`) | `command {}`
 `combobox` | `state`, `text` | `'ComboboxSelected'`
 `entry` | `width`, `text` | None
 `frame(text: nil)` | `width`, `height`, `borderwidth`, `relief` (`'flat' (default), 'raised', 'sunken', 'solid', 'ridge', 'groove'`) | None
@@ -258,6 +260,7 @@ keyword(args) | attributes | event bindings & callbacks
 `list` | `selectmode`, `selection` | None
 `message_box(type: , message: , detail: , title: , icon: , default: , parent: )` | None | None
 `notebook` | None | None
+`radiobutton` | `text`, `variable` (Boolean), `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `value` (default: `text`) | `command {}`
 `root` | `title`, `iconphoto`, `background`, `alpha`, `fullscreen?`, `topmost?`, `transparent?`, `stackorder`, `winfo_screendepth`, `winfo_screenvisual`, `winfo_screenwidth`, `winfo_screenheight`, `winfo_pixels('li')`, `winfo_screen`, `wm_maxsize`, `state` (`'normal', 'iconic', 'withdrawn', 'icon', 'zoomed'`) | `'DELETE_WINDOW'`, `'OPEN_WINDOW'`
 
 #### Common Attributes
@@ -473,7 +476,7 @@ It automatically handles all the Tk plumbing behind the scenes.
 
 More details can be found in the [Hello, Computed!](#hello-computed) sample below.
 
-### Checkbox Data-Binding
+### Checkbutton Data-Binding
 
 Example:
 
@@ -489,8 +492,36 @@ That code binds the `variable` value of the `checkbutton` to the boolean `adult`
 
 It automatically handles all the Tk plumbing behind the scenes.
 
+If you need to display a half-checked `checkbutton`, bind to `alternate` attribute.
+
 More details can be found in the [Hello, Checkbutton!](#hello-checkbutton) sample below.
 
+### Radiobutton Data-Binding
+
+Example:
+
+This assumes a `Person` model with boolean `male` and `female` attributes.
+
+```ruby
+  radiobutton {
+    text 'Male'
+    variable <=> [@person, :male]
+  }
+  
+  radiobutton {
+    text 'Female'
+    variable <=> [@person, :female]
+  }
+```
+
+That code binds the `variable` value of the `radiobutton` to the boolean `male` and `female` attributes on the `person` model.
+
+It automatically handles all the Tk plumbing behind the scenes, including setting the `radiobutton` `value` (uses `text` attribute as `value`), enabling an API that works with simple booleans for each `radiobutton`.
+
+For very rare cases, if you need to display a half-selected `radiobutton`, set `alternate` attribute as `true` when the `variable` value is `false`.
+
+More details can be found in the [Hello, Radiobutton!](#hello-radiobutton) sample below.
+
 ## 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.
@@ -657,13 +688,47 @@ require 'glimmer-dsl-tk'
 
 class HelloCheckbutton
   class Person
-    attr_accessor :skiing, :snowboarding, :snowmobiling, :snowshoeing
+    attr_accessor :skiing, :snowboarding, :snowmobiling, :snowshoeing, :snow_activities, :snow_activities_alternate
     
     def initialize
       reset_activities!
+      individual_observer = Glimmer::DataBinding::Observer.proc do
+        unless @updating_group
+          @updating_individual = true
+          if skiing && snowboarding && snowmobiling && snowshoeing
+            self.snow_activities = true
+            self.snow_activities_alternate = false
+          elsif skiing || snowboarding || snowmobiling || snowshoeing
+            self.snow_activities = true
+            self.snow_activities_alternate = true
+          else
+            self.snow_activities = false
+            self.snow_activities_alternate = false
+          end
+          @updating_individual = false
+        end
+      end
+      individual_observer.observe(self, :skiing)
+      individual_observer.observe(self, :snowboarding)
+      individual_observer.observe(self, :snowmobiling)
+      individual_observer.observe(self, :snowshoeing)
+      
+      group_observer = Glimmer::DataBinding::Observer.proc do
+        unless @updating_individual
+          @updating_group = true
+          self.skiing = self.snow_activities
+          self.snowboarding = self.snow_activities
+          self.snowmobiling = self.snow_activities
+          self.snowshoeing = self.snow_activities
+          @updating_group = false
+        end
+      end
+      group_observer.observe(self, :snow_activities)
     end
     
     def reset_activities!
+      self.snow_activities = true
+      self.snow_activities_alternate = true
       self.skiing = false
       self.snowboarding = true
       self.snowmobiling = false
@@ -689,23 +754,31 @@ class HelloCheckbutton
       
       frame {
         checkbutton {
-          text 'Skiing'
-          variable <=> [@person, :skiing]
+          text 'Snow Activities'
+          variable <=> [@person, :snow_activities]
+          alternate <=> [@person, :snow_activities_alternate] # binds half-checked state
         }
         
-        checkbutton {
-          text 'Snowboarding'
-          variable <=> [@person, :snowboarding]
-        }
-        
-        checkbutton {
-          text 'Snowmobiling'
-          variable <=> [@person, :snowmobiling]
-        }
-        
-        checkbutton {
-          text 'Snowshoeing'
-          variable <=> [@person, :snowshoeing]
+        frame {
+          checkbutton {
+            text 'Skiing'
+            variable <=> [@person, :skiing]
+          }
+          
+          checkbutton {
+            text 'Snowboarding'
+            variable <=> [@person, :snowboarding]
+          }
+          
+          checkbutton {
+            text 'Snowmobiling'
+            variable <=> [@person, :snowmobiling]
+          }
+          
+          checkbutton {
+            text 'Snowshoeing'
+            variable <=> [@person, :snowshoeing]
+          }
         }
       }
       
@@ -739,6 +812,120 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello checkbutton](images/glimmer-dsl-tk-screenshot-sample-hello-checkbutton.png)
 
+![glimmer dsl tk screenshot sample hello checkbutton](images/glimmer-dsl-tk-screenshot-sample-hello-checkbutton-all-checked.png)
+
+![glimmer dsl tk screenshot sample hello checkbutton](images/glimmer-dsl-tk-screenshot-sample-hello-checkbutton-none-checked.png)
+
+### Hello, Radiobutton!
+
+Glimmer code (from [samples/hello/hello_radiobutton.rb](samples/hello/hello_radiobutton.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+class HelloRadiobutton
+  class Person
+    attr_accessor :male, :female, :child, :teen, :adult, :senior
+    
+    def initialize
+      reset!
+    end
+    
+    def reset!
+      self.male = true
+      self.female = nil
+      self.child = nil
+      self.teen = nil
+      self.adult = true
+      self.senior = nil
+    end
+  end
+  
+  include Glimmer
+  
+  def initialize
+    @person = Person.new
+  end
+  
+  def launch
+    root {
+      title 'Hello, Radio!'
+      background '#ececec' if OS.mac?
+      
+      label {
+        text 'Gender:'
+        font 'caption'
+      }
+      
+      frame {
+        radiobutton {
+          text 'Male'
+          variable <=> [@person, :male]
+        }
+        
+        radiobutton {
+          text 'Female'
+          variable <=> [@person, :female]
+        }
+      }
+      
+      label {
+        text 'Age Group:'
+        font 'caption'
+      }
+      
+      frame {
+        radiobutton {
+          text 'Child'
+          variable <=> [@person, :child]
+        }
+
+        radiobutton {
+          text 'Teen'
+          variable <=> [@person, :teen]
+        }
+
+        radiobutton {
+          text 'Adult'
+          variable <=> [@person, :adult]
+        }
+
+        radiobutton {
+          text 'Senior'
+          variable <=> [@person, :senior]
+        }
+      }
+      
+      button {
+        text 'Reset'
+        
+        command do
+          @person.reset!
+        end
+      }
+    }.open
+  end
+end
+
+HelloRadiobutton.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_radiobutton'"
+```
+
+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_radiobutton.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello radiobutton](images/glimmer-dsl-tk-screenshot-sample-hello-radiobutton.png)
+
 ### Hello, Frame!
 
 Glimmer code (from [samples/hello/hello_frame.rb](samples/hello/hello_frame.rb)):

data/VERSION

@@ -1 +1 @@
-0.0.22
+0.0.23

data/lib/glimmer/dsl/tk/message_box_expression.rb

@@ -27,7 +27,10 @@ module Glimmer
     module Tk
       class MessageBoxExpression < StaticExpression
         def interpret(parent, keyword, *args, &block)
-          args.first[:parent] = args.first[:parent].tk if args.first.is_a?(Hash) && args.first[:parent].is_a?(Glimmer::Tk::RootProxy)
+          if args.first.is_a?(Hash)
+            args.first[:parent] = args.first[:parent].tk if args.first[:parent].is_a?(Glimmer::Tk::RootProxy)
+            args.first[:title] = args.first.delete(:text) if args.first.keys.include?(:text)
+          end
           ::Tk::messageBox(*args)
         end
       end

data/lib/glimmer/dsl/tk/widget_expression.rb

@@ -52,10 +52,3 @@ module Glimmer
 end
 
 require 'glimmer/tk/widget_proxy'
-require 'glimmer/tk/notebook_proxy'
-require 'glimmer/tk/frame_proxy'
-require 'glimmer/tk/button_proxy'
-require 'glimmer/tk/label_proxy'
-require 'glimmer/tk/list_proxy'
-require 'glimmer/tk/entry_proxy'
-require 'glimmer/tk/treeview_proxy'

data/lib/glimmer/tk/button_proxy.rb

@@ -20,6 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/commandable'
 
 module Glimmer
   module Tk
@@ -27,20 +28,7 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class ButtonProxy < WidgetProxy
-      # TODO extract to a module
-      
-      def command_block=(proc)
-        tk.command(proc)
-      end
-      
-      def handle_listener(listener_name, &listener)
-        case listener_name.to_s.downcase
-        when 'command'
-          command(listener)
-        else
-          super
-        end
-      end
+      include Commandable
     end
   end
 end

data/lib/glimmer/tk/checkbutton_proxy.rb

@@ -20,25 +20,17 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/commandable'
+require 'glimmer/tk/variable_owner'
 
 module Glimmer
   module Tk
     # Proxy for Tk::Tile::Checkbutton
     #
     # Follows the Proxy Design Pattern
-    class ChecktbuttonProxy < WidgetProxy
-      def command_block=(proc)
-        tk.command(proc)
-      end
-      
-      def handle_listener(listener_name, &listener)
-        case listener_name.to_s.downcase
-        when 'command'
-          command(listener)
-        else
-          super
-        end
-      end
+    class CheckbuttonProxy < WidgetProxy
+      include Commandable
+      include VariableOwner
     end
   end
 end

data/lib/glimmer/tk/combobox_proxy.rb

@@ -0,0 +1,34 @@
+# 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/tk/widget_proxy'
+require 'glimmer/tk/text_variable_owner'
+
+module Glimmer
+  module Tk
+    # Proxy for Tk::Tile::Combobox
+    #
+    # Follows the Proxy Design Pattern
+    class ComboboxProxy < WidgetProxy
+      include TextVariableOwner
+    end
+  end
+end

data/lib/glimmer/tk/commandable.rb

@@ -0,0 +1,42 @@
+# 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/tk/widget_proxy'
+
+module Glimmer
+  module Tk
+    # Represents widgets that can invoke a command
+    module Commandable
+      def command_block=(proc)
+        tk.command(proc)
+      end
+      
+      def handle_listener(listener_name, &listener)
+        case listener_name.to_s.downcase
+        when 'command'
+          command(listener)
+        else
+          super
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/entry_proxy.rb

@@ -20,6 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/text_variable_owner'
 
 module Glimmer
   module Tk
@@ -27,6 +28,8 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class EntryProxy < WidgetProxy
+      include TextVariableOwner
+    
       def validatecommand_block=(proc)
         tk.validatecommand(proc)
       end

data/lib/glimmer/tk/frame_proxy.rb

@@ -33,6 +33,7 @@ module Glimmer
         if parent_proxy.is_a?(NotebookProxy)
           @tab_options, args[0] = args[0].to_h.partition {|key, value| NotebookProxy::TAB_OPTIONS.include?(key.to_s)}
           @tab_options = Hash[@tab_options]
+          @tab_options[:text] = @tab_options.delete(:title) if @tab_options.keys.include?(:title)
           args.delete_at(0) if args[0].to_a.empty?
         end
         super

data/lib/glimmer/tk/label_proxy.rb

@@ -20,6 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/text_variable_owner'
 
 module Glimmer
   module Tk
@@ -27,6 +28,8 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     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

data/lib/glimmer/tk/notebook_proxy.rb

@@ -27,17 +27,12 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class NotebookProxy < WidgetProxy
-      TAB_OPTIONS = ['state', 'sticky', 'padding', 'text', 'image', 'compound', 'underline']
+      TAB_OPTIONS = ['state', 'sticky', 'padding', 'text', 'title', 'image', 'compound', 'underline']
     
-      attr_reader :tab_proxies
-    
-      def initialize(*args)
-        @tab_proxies = []
-        super
-      end
+      alias tab_proxies children
     
       def post_initialize_child(child)
-        @tab_proxies << child
+        super
         @tk.add child.tk, child.tab_options
       end
     end

data/lib/glimmer/tk/radiobutton_proxy.rb

@@ -0,0 +1,46 @@
+# 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/tk/widget_proxy'
+require 'glimmer/tk/commandable'
+
+module Glimmer
+  module Tk
+    # Proxy for Tk::Tile::Radiobutton
+    #
+    # Follows the Proxy Design Pattern
+    class RadiobuttonProxy < WidgetProxy
+      include Commandable
+      
+      def sibling_radio_buttons
+        @parent_proxy.children.select {|child| child.is_a?(RadiobuttonProxy)}
+      end
+      
+      private
+      
+      def initialize_defaults
+        super
+        sibling_variable = sibling_radio_buttons.map(&:tk).map(&:variable).compact.first
+        tk.variable = sibling_variable.nil? ? ::TkVariable.new : sibling_variable
+      end
+    end
+  end
+end

data/lib/glimmer/tk/text_variable_owner.rb

@@ -0,0 +1,31 @@
+# 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.
+
+module Glimmer
+  module Tk
+    module TextVariableOwner
+      def initialize_defaults
+        super
+        tk.textvariable = ::TkVariable.new
+      end
+    end
+  end
+end

data/lib/glimmer/tk/variable_owner.rb

@@ -0,0 +1,31 @@
+# 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.
+
+module Glimmer
+  module Tk
+    module VariableOwner
+      def initialize_defaults
+        super
+        tk.variable = ::TkVariable.new
+      end
+    end
+  end
+end

data/lib/glimmer/tk/widget_proxy.rb

@@ -26,8 +26,8 @@ module Glimmer
     # Follows the Proxy Design Pattern
     class WidgetProxy
       class << self
-        def create(keyword, parent, args)
-          widget_proxy_class(keyword).new(keyword, parent, args)
+        def create(keyword, parent, args, &block)
+          widget_proxy_class(keyword).new(keyword, parent, args, &block)
         end
         
         def widget_proxy_class(keyword)
@@ -61,41 +61,31 @@ module Glimmer
         end
       end
       
-      attr_reader :parent_proxy, :tk, :args, :keyword
+      attr_reader :parent_proxy, :tk, :args, :keyword, :children
 
-      DEFAULT_INITIALIZERS = {
-        'checkbutton' => lambda do |tk|
-          tk.variable = ::TkVariable.new
-        end,
-        'combobox' => lambda do |tk|
-          tk.textvariable = ::TkVariable.new
-        end,
-        'label' => lambda do |tk|
-          tk.textvariable = ::TkVariable.new
-        end,
-        'entry' => lambda do |tk|
-          tk.textvariable = ::TkVariable.new
-        end,
-      }
-            
       # Initializes a new Tk Widget
       #
       # Styles is a comma separate list of symbols representing Tk styles in lower case
-      def initialize(underscored_widget_name, parent_proxy, args)
+      def initialize(underscored_widget_name, parent_proxy, args, &block)
         @parent_proxy = parent_proxy
         @args = args
         @keyword = underscored_widget_name
+        @block = block
         tk_widget_class = self.class.tk_widget_class_for(underscored_widget_name)
         @tk = tk_widget_class.new(@parent_proxy.tk, *args)
         # a common widget initializer
-        @tk.grid unless @tk.is_a?(::Tk::Toplevel)
-        DEFAULT_INITIALIZERS[underscored_widget_name]&.call(@tk)
+        initialize_defaults
         @parent_proxy.post_initialize_child(self)
+        post_add_content if @block.nil?
+      end
+      
+      def children
+        @children ||= []
       end
       
       # Subclasses may override to perform post initialization work on an added child
       def post_initialize_child(child)
-        # No Op by default
+        children << child
       end
 
       # Subclasses may override to perform post add_content work
@@ -208,6 +198,7 @@ module Glimmer
       end
       
       def widget_custom_attribute_mapping
+        # TODO consider extracting to modules/subclasses
         @widget_custom_attribute_mapping ||= {
           ::Tk::Tile::TButton => {
             'image' => {
@@ -221,10 +212,24 @@ module Glimmer
               setter: {name: 'image=', invoker: lambda { |widget, args| @tk.image = image_argument(args) }},
             },
             'variable' => {
-              getter: {name: 'variable', invoker: lambda { |widget, args| @tk.variable&.value.to_i == 1 }},
+              getter: {name: 'variable', invoker: lambda { |widget, args| @tk.variable&.value.to_s == @tk.onvalue.to_s }},
               setter: {name: 'variable=', invoker: lambda { |widget, args| @tk.variable&.value = args.first.is_a?(Integer) ? args.first : (args.first ? 1 : 0) }},
             },
           },
+          ::Tk::Tile::TRadiobutton => {
+            'image' => {
+              getter: {name: 'image', invoker: lambda { |widget, args| @tk.image }},
+              setter: {name: 'image=', invoker: lambda { |widget, args| @tk.image = image_argument(args) }},
+            },
+            'text' => {
+              getter: {name: 'text', invoker: lambda { |widget, args| @tk.text }},
+              setter: {name: 'text=', invoker: lambda { |widget, args| @tk.value = @tk.text = args.first }},
+            },
+            'variable' => {
+              getter: {name: 'variable', invoker: lambda { |widget, args| @tk.variable&.value == @tk.value }},
+              setter: {name: 'variable=', invoker: lambda { |widget, args| @tk.variable&.value = args.first ? @tk.value : @tk.variable&.value }},
+            },
+          },
           ::Tk::Tile::TCombobox => {
             'text' => {
               getter: {name: 'text', invoker: lambda { |widget, args| @tk.textvariable&.value }},
@@ -247,15 +252,22 @@ module Glimmer
               setter: {name: 'text=', invoker: lambda { |widget, args| @tk.textvariable&.value = args.first unless @text_variable_edit }},
             },
           },
+          ::Tk::Root => {
+            'text' => {
+              getter: {name: 'text', invoker: lambda { |widget, args| @tk.title }},
+              setter: {name: 'text=', invoker: lambda { |widget, args| @tk.title = args.first }},
+            },
+          },
         }
       end
       
       def widget_attribute_listener_installers
+        # TODO consider extracting to modules/subclasses
         @tk_widget_attribute_listener_installers ||= {
           ::Tk::Tile::TCheckbutton => {
             'variable' => lambda do |observer|
               @tk.command {
-                observer.call(@tk.variable.value.to_i == 1)
+                observer.call(@tk.variable.value.to_s == @tk.onvalue.to_s)
               }
             end,
           },
@@ -286,6 +298,14 @@ module Glimmer
               }
             end,
           },
+          ::Tk::Tile::TRadiobutton => {
+            'variable' => lambda do |observer|
+              @tk.command {
+                pd @tk.variable.value, @tk.value
+                observer.call(@tk.variable.value == @tk.value)
+              }
+            end,
+          },
         }
       end
       
@@ -345,6 +365,14 @@ module Glimmer
         super ||
           tk.respond_to?(method, *args, &block)
       end
+      
+      private
+      
+      def initialize_defaults
+        @tk.grid unless @tk.is_a?(::Tk::Toplevel)
+      end
     end
   end
 end
+
+Dir[File.expand_path('./*_proxy.rb', __dir__)].each {|f| require f}

data/samples/hello/hello_checkbutton.rb

@@ -23,13 +23,47 @@ require 'glimmer-dsl-tk'
 
 class HelloCheckbutton
   class Person
-    attr_accessor :skiing, :snowboarding, :snowmobiling, :snowshoeing
+    attr_accessor :skiing, :snowboarding, :snowmobiling, :snowshoeing, :snow_activities, :snow_activities_alternate
     
     def initialize
       reset_activities!
+      individual_observer = Glimmer::DataBinding::Observer.proc do
+        unless @updating_group
+          @updating_individual = true
+          if skiing && snowboarding && snowmobiling && snowshoeing
+            self.snow_activities = true
+            self.snow_activities_alternate = false
+          elsif skiing || snowboarding || snowmobiling || snowshoeing
+            self.snow_activities = true
+            self.snow_activities_alternate = true
+          else
+            self.snow_activities = false
+            self.snow_activities_alternate = false
+          end
+          @updating_individual = false
+        end
+      end
+      individual_observer.observe(self, :skiing)
+      individual_observer.observe(self, :snowboarding)
+      individual_observer.observe(self, :snowmobiling)
+      individual_observer.observe(self, :snowshoeing)
+      
+      group_observer = Glimmer::DataBinding::Observer.proc do
+        unless @updating_individual
+          @updating_group = true
+          self.skiing = self.snow_activities
+          self.snowboarding = self.snow_activities
+          self.snowmobiling = self.snow_activities
+          self.snowshoeing = self.snow_activities
+          @updating_group = false
+        end
+      end
+      group_observer.observe(self, :snow_activities)
     end
     
     def reset_activities!
+      self.snow_activities = true
+      self.snow_activities_alternate = true
       self.skiing = false
       self.snowboarding = true
       self.snowmobiling = false
@@ -55,23 +89,31 @@ class HelloCheckbutton
       
       frame {
         checkbutton {
-          text 'Skiing'
-          variable <=> [@person, :skiing]
-        }
-        
-        checkbutton {
-          text 'Snowboarding'
-          variable <=> [@person, :snowboarding]
+          text 'Snow Activities'
+          variable <=> [@person, :snow_activities]
+          alternate <=> [@person, :snow_activities_alternate] # binds half-checked state
         }
         
-        checkbutton {
-          text 'Snowmobiling'
-          variable <=> [@person, :snowmobiling]
-        }
-        
-        checkbutton {
-          text 'Snowshoeing'
-          variable <=> [@person, :snowshoeing]
+        frame {
+          checkbutton {
+            text 'Skiing'
+            variable <=> [@person, :skiing]
+          }
+          
+          checkbutton {
+            text 'Snowboarding'
+            variable <=> [@person, :snowboarding]
+          }
+          
+          checkbutton {
+            text 'Snowmobiling'
+            variable <=> [@person, :snowmobiling]
+          }
+          
+          checkbutton {
+            text 'Snowshoeing'
+            variable <=> [@person, :snowshoeing]
+          }
         }
       }
       

data/samples/hello/hello_radiobutton.rb

@@ -0,0 +1,87 @@
+require 'glimmer-dsl-tk'
+
+class HelloRadiobutton
+  class Person
+    attr_accessor :male, :female, :child, :teen, :adult, :senior
+    
+    def initialize
+      reset!
+    end
+    
+    def reset!
+      self.male = true
+      self.female = nil
+      self.child = nil
+      self.teen = nil
+      self.adult = true
+      self.senior = nil
+    end
+  end
+  
+  include Glimmer
+  
+  def initialize
+    @person = Person.new
+  end
+  
+  def launch
+    root {
+      title 'Hello, Radio!'
+      background '#ececec' if OS.mac?
+      
+      label {
+        text 'Gender:'
+        font 'caption'
+      }
+      
+      frame {
+        radiobutton {
+          text 'Male'
+          variable <=> [@person, :male]
+        }
+        
+        radiobutton {
+          text 'Female'
+          variable <=> [@person, :female]
+        }
+      }
+      
+      label {
+        text 'Age Group:'
+        font 'caption'
+      }
+      
+      frame {
+        radiobutton {
+          text 'Child'
+          variable <=> [@person, :child]
+        }
+
+        radiobutton {
+          text 'Teen'
+          variable <=> [@person, :teen]
+        }
+
+        radiobutton {
+          text 'Adult'
+          variable <=> [@person, :adult]
+        }
+
+        radiobutton {
+          text 'Senior'
+          variable <=> [@person, :senior]
+        }
+      }
+      
+      button {
+        text 'Reset'
+        
+        command do
+          @person.reset!
+        end
+      }
+    }.open
+  end
+end
+
+HelloRadiobutton.new.launch

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.22
+  version: 0.0.23
 platform: ruby
 authors:
 - AndyMaleh
@@ -224,13 +224,18 @@ files:
 - lib/glimmer/dsl/tk/widget_expression.rb
 - lib/glimmer/tk/button_proxy.rb
 - lib/glimmer/tk/checkbutton_proxy.rb
+- lib/glimmer/tk/combobox_proxy.rb
+- lib/glimmer/tk/commandable.rb
 - lib/glimmer/tk/entry_proxy.rb
 - lib/glimmer/tk/frame_proxy.rb
 - lib/glimmer/tk/label_proxy.rb
 - lib/glimmer/tk/list_proxy.rb
 - lib/glimmer/tk/notebook_proxy.rb
+- lib/glimmer/tk/radiobutton_proxy.rb
 - lib/glimmer/tk/root_proxy.rb
+- lib/glimmer/tk/text_variable_owner.rb
 - lib/glimmer/tk/treeview_proxy.rb
+- lib/glimmer/tk/variable_owner.rb
 - lib/glimmer/tk/widget_proxy.rb
 - samples/hello/hello_button.rb
 - samples/hello/hello_checkbutton.rb
@@ -243,6 +248,7 @@ files:
 - samples/hello/hello_list_single_selection.rb
 - samples/hello/hello_message_box.rb
 - samples/hello/hello_notebook.rb
+- samples/hello/hello_radiobutton.rb
 - samples/hello/hello_root.rb
 - samples/hello/hello_world.rb
 - samples/hello/images/denmark.png