glimmer-dsl-tk 0.0.40 → 0.0.44

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 94a9453b27626850d61fc8b19ebf662f5f842a39548eb52cc280a2f123bb5a9b
-  data.tar.gz: '08586efe1d641f14ed9d93975efea3de3697c51fe37e3496ad257cc5498fd2d6'
+  metadata.gz: 5cb173f133301f49a6f4ddfc86578e450b563ff842b96274b6003b784b2e8acb
+  data.tar.gz: 810087c40f044768c6394a968b945fdc2e3c4c0d1eb8caac2b3421259c431d61
 SHA512:
-  metadata.gz: 00c61781ce122ec8053c81cdd4aaf90707a6f2c984a6be794d47d41760fd98ad5e0ffb90816ae510d4243ac776a8c4cf1dd0f797b7e08d9736695f03985d283a
-  data.tar.gz: 959e8368cb542d0d01d501ce5bd4ee3c9a3e83cb8822eeaca1aadcdf2a781515d3e453df2d93d4802bfee77ae4ac2a7e626988115cd458ba7088ff54c14a594f
+  metadata.gz: 8842b20e509fd9c0f918953942665ac5a0609cbc91b0faf020c808e736890e1d2617abb579b384696711ecb0d40bf7ab82a5a0e669a1ff878bede9ed061c6abb
+  data.tar.gz: 983740e737d7e066f56411ddea5ab7ab607bf196579d519e41aea07bd4c5e8d24b2dcd178086a3d8f35aa8e6ae7b0b8995cb27e3846516887ad4908e07758847

data/CHANGELOG.md

@@ -1,5 +1,29 @@
 # Change Log
 
+## 0.0.44
+
+- Fix issue with not being able to drop list into checkbox in Hello, Drag and Drop! by disabling functionality for list just like button
+
+## 0.0.43
+
+- Modified Hello, Drag and Drop! to include a list
+- Removed the need to require `'glimmer/tk/drag_and_drop_extension'` to do drag and drop; it is automatically included in `require 'glimmer-dsl-tk'` now.
+- Remove 'os' gem due to Tk having the capability to detect the OS it is on using `Tk.windowingsystem` (include Glimmer implementation of `OS` class having `OS.mac?`, `OS.windows?` and `OS.linux?`)
+- Default to 'clam' Tk theme on Linux ('alt' looks a bit too classic with certain widgets)
+
+## 0.0.42
+
+- Add vertical/horizontal scrollbars to Meta-Sample
+- Keep only vertical scrollbar in Hello, Text!
+- Fix issue with including bwidgets and iwidgets in Windows (by removing from default requires, leaving to users to require manually when needed only and only systems that support them)
+- Fix Hello, Menu Bar! sample in Windows (by disabling Windows-special System menu, which does not seem to be working in Tk)
+
+## 0.0.41
+
+- Support `scrollbar_frame` Glimmer custom widget as a frame that automatically provides scrollbars when its content's size exceeds its size
+- Support `scrollbar_frame` `xscrollbar` and `yscrollbar` attributes (to enable/disable via boolean or set to a custom externally instantiated scrollbar if needed)
+- Hello, Scrollbar Frame!
+
 ## 0.0.40
 
 - Hello, Scrollbar!

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.40
+# [<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.44
 ## 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)
@@ -122,6 +122,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, Built-in Dialog!](#hello-built-in-dialog)
     - [Hello, Separator!](#hello-separator)
     - [Hello, Scrollbar!](#hello-scrollbar)
+    - [Hello, Scrollbar Frame!](#hello-scrollbar-frame)
     - [Hello, Menu Bar!](#hello-menu-bar)
   - [Applications](#applications)
     - [Glimmer Tk Calculator](#glimmer-tk-calculator)
@@ -180,7 +181,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.40'
+gem 'glimmer-dsl-tk', '0.0.44'
 ```
 
 And, then run:
@@ -310,11 +311,12 @@ keyword(args) | attributes | event bindings & callbacks
 `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`, `escapable`, `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'`
 `scrollbar` | `orient` | `command`
-`x_scrollbar` | `orient` (`'horizontal'`) | `command`
-`y_scrollbar` | `orient` (`'vertical'`) | `command`
+`scrollbar_frame` | `xscrollbar` (Boolean or scrollbar widget proxy), `yscrollbar` (Boolean or scrollbar widget proxy) | None
 `separator` | `orient` (`'horizontal' (default) or 'vertical'`) | None
 `toplevel` | `title`, `iconphoto`, `background`, `alpha`, `escapable`, `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'`
 `text` | `value`, [many more attributes](https://tcl.tk/man/tcl8.6/TkCmd/text.htm#M116) | `'modified'`, `'selection'`, `'insert_mark_moved'` (alias: `'insert_mark_move', 'InsertMarkMove', 'InsertMarkMoved'`)
+`x_scrollbar` | `orient` (`'horizontal'`) | `command`
+`y_scrollbar` | `orient` (`'vertical'`) | `command`
 
 Options for `get_open_file` and `get_multiple_open_file` include:
 - `filetypes`: `Hash` of `'Group Name' => '.ext'` entries (e.g. `filetypes: {'PNG Images' => '.png'}`
@@ -2681,27 +2683,31 @@ Glimmer app:
 Glimmer code (from [samples/hello/hello_drag_and_drop.rb](samples/hello/hello_drag_and_drop.rb)):
 
 ```ruby
-require "glimmer-dsl-tk"
-require "glimmer/tk/drag_and_drop_extension"
+require 'glimmer-dsl-tk'
 
 include Glimmer
 
 root {
   title "Hello, Drag and Drop!"
+  
   frame {
     padding 5
+    
     labelframe {
       text "Drag sources"
       padding 5
+      
       label {
-        text "Entry"
         grid :row => 0, :column => 0
+        text "Entry"
       }
+      
       entry {
+        grid :row => 0, :column => 1, :pady => 5, :sticky => "e"
         text "Drag entry text"
         width 30
-        grid :row => 0, :column => 1, :pady => 5, :sticky => "e"
-        on_drag_start { |event|
+        
+        on_drag_start do |event|
           event.data = event.source.textvariable&.value
           event.source.configure(:cursor => "hand2")
           TkLabel.new(event.tooltip) {
@@ -2710,111 +2716,166 @@ root {
             bitmap "warning"
             compound "right"
           }.pack
-        }
-        on_drag_motion { |event|
+        end
+        
+        on_drag_motion do |event|
           if event.drop_accepted
             event.source.configure(:cursor => "hand1")
           else
             event.source.configure(:cursor => "hand2")
           end
           event.tooltip.geometry("+#{event.x_root + 10}+#{event.y_root - 4}")
-        }
+        end
       }
+      
       label {
-        text "Label"
         grid :row => 1, :column => 0
+        text "Label"
       }
+      
       label {
+        grid :row => 1, :column => 1, :pady => 10, :sticky => "e"
         text "Drag label text"
         width 30
-        grid :row => 1, :column => 1, :pady => 10, :sticky => "e"
         drag_source true
       }
+      
       label {
-        text "Combobox"
         grid :row => 2, :column => 0
+        text "Combobox"
       }
+      
       combobox {
+        grid :row => 2, :column => 1, :pady => 5, :sticky => "e"
         text "Spain"
         values %w[USA Canada Mexico Columbia UK Australia Germany Italy Spain]
         width 27
-        grid :row => 2, :column => 1, :pady => 5, :sticky => "e"
-        on_drag_start { |event|
+        
+        on_drag_start do |event|
           event.data = event.source.textvariable&.value
-        }
+        end
       }
+      
       label {
-        text "Button"
         grid :row => 3, :column => 0
+        text 'List'
+      }
+      
+      country_list = list {
+        grid :row => 3, :column => 1, :pady => 5, :sticky => "e"
+        selectmode 'browse'
+        items %w[USA Canada Mexico]
+        selection 'Canada'
+        height 3
+        
+        on_drag_start do |event|
+          event.data = event.source.selection.to_a.first.text
+        end
       }
+      
+      label {
+        grid :row => 4, :column => 0
+        text "Button"
+      }
+      
       button {
+        grid :row => 4, :column => 1, :pady => 5, :sticky => "w"
         text "Drag it"
-        grid :row => 3, :column => 1, :pady => 5, :sticky => "w"
         drag_source true
       }
     }
 
     labelframe {
-      text "Drop targets"
       grid :sticky => "nsew", :pady => 15
+      text "Drop targets"
       padding 5
+      
       label {
-        text "Entry"
         grid :row => 0, :column => 0
+        text "Entry"
       }
+      
       entry {
-        width 30
         grid :row => 0, :column => 1, :pady => 5, :sticky => "e"
+        width 30
+        
         on_drop { |event|
           event.target.textvariable.value = event.data
         }
       }
+      
       label {
-        text "Label"
         grid :row => 1, :column => 0
+        text "Label"
       }
+      
       label {
-        width 30
         grid :row => 1, :column => 1, :pady => 10, :sticky => "e"
+        width 30
         borderwidth 2
         relief "solid"
-        on_drop { |event|
+        
+        on_drop do |event|
           event.target.textvariable.value = event.data
-        }
+        end
       }
+      
       label {
-        text "Combobox"
         grid :row => 2, :column => 0
+        text "Combobox"
       }
+      
       combobox {
-        width 27
         grid :row => 2, :column => 1, :pady => 5, :sticky => "e"
-        on_drop { |event|
+        width 27
+        
+        on_drop do |event|
           event.target.textvariable.value = event.data
-        }
+        end
       }
+      
       label {
-        text "Button"
         grid :row => 3, :column => 0
+        text 'List'
       }
+      
+      list {
+        grid :row => 3, :column => 1, :pady => 5, :sticky => "e"
+        selectmode 'browse'
+        height 3
+        
+        on_drop do |event|
+          event.target.insert('', 'end', :text => event.data)
+        end
+      }
+      
+      label {
+        grid :row => 4, :column => 0
+        text "Button"
+      }
+      
       button {
+        grid :row => 4, :column => 1, :pady => 5, :sticky => "w"
         text "Drop here"
-        grid :row => 3, :column => 1, :pady => 5, :sticky => "w"
-        on_drop { |event|
+        
+        on_drop do |event|
           event.target.text = event.data
-        }
+        end
       }
+      
       label {
+        grid :row => 5, :column => 0
         text "Checkbutton"
-        grid :row => 4, :column => 0
       }
+      
       checkbutton {
+        grid :row => 5, :column => 1, :pady => 5, :sticky => "w"
         text "Drop here to destroy a widget\n(except button)"
-        grid :row => 4, :column => 1, :pady => 5, :sticky => "w"
-        on_drop { |event|
+        
+        on_drop do |event|
           event.target.text = event.data
           event.source.destroy unless event.source.is_a? Tk::Button
-        }
+        end
       }
     }
   }
@@ -3000,7 +3061,7 @@ root {
   height 500
   
   notebook {
-    grid sticky: 'nsew', row_weight: 1, column_weight: 1
+    grid sticky: 'nsew'
     
     frame(text: 'Scrollable List') {
       @list = list {
@@ -3056,6 +3117,89 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello scrollbar](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-text.png)
 
+### Hello, Scrollbar Frame!
+
+Glimmer code (from [samples/hello/hello_scrollbar_frame.rb](samples/hello/hello_scrollbar_frame.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+root {
+  title 'Hello, Scrollbar Frame!'
+  width 400
+  height 400
+  
+  notebook {
+    grid sticky: 'nsew'
+    
+    frame(text: 'X/Y Scroll') {
+      scrollbar_frame {
+        30.times do |row|
+          10.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+    
+    frame(text: 'Y Scroll') {
+      scrollbar_frame {
+        xscrollbar false
+        
+        30.times do |row|
+          2.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+    
+    frame(text: 'X Scroll') {
+      scrollbar_frame {
+        yscrollbar false
+        
+        13.times do |row|
+          10.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+  }
+}.open
+```
+
+Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_scrollbar_frame'"
+```
+
+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_scrollbar_frame.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello scrollbar frame x y scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-x-y-scroll.png)
+
+![glimmer dsl tk screenshot sample hello scrollbar frame y scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-y-scroll.png)
+
+![glimmer dsl tk screenshot sample hello scrollbar frame x scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-x-scroll.png)
+
 ### Hello, Menu Bar!
 
 Glimmer code (from [samples/hello/hello_menu_bar.rb](samples/hello/hello_menu_bar.rb)):
@@ -3114,7 +3258,7 @@ root { |r|
     
     menu(label: 'File', underline: 0) {
       menu_item(label: 'New', underline: 0) {
-        accelerator 'Command+N'
+        accelerator OS.mac? ? 'Command+N' : 'Control+N'
 
         on('command') do
           message_box(parent: r, title: 'New', message: 'New file created.')
@@ -3122,7 +3266,7 @@ root { |r|
       }
       
       menu_item(label: 'Open...', underline: 0) {
-        accelerator 'Command+O'
+        accelerator OS.mac? ? 'Command+O' : 'Control+O'
 
         on('command') do
           message_box(parent: r, title: 'Open', message: 'Opening File...')
@@ -3154,15 +3298,15 @@ root { |r|
     
     menu(label: 'Edit', underline: 0) {
       menu_item(label: 'Cut', underline: 2) {
-        accelerator 'Command+X'
+        accelerator OS.mac? ? 'Command+X' : 'Control+X'
       }
       
       menu_item(label: 'Copy', underline: 0) {
-        accelerator 'Command+C'
+        accelerator OS.mac? ? 'Command+C' : 'Control+C'
       }
       
       menu_item(label: 'Paste', underline: 0) {
-        accelerator 'Command+V'
+        accelerator OS.mac? ? 'Command+V' : 'Control+V'
       }
     }
     
@@ -3174,7 +3318,7 @@ root { |r|
         end
       }
       
-      @select_one_menu = menu(label: 'Select One', underline: 0) {
+      @select_one_menu = menu(label: 'Select One', underline: 7) {
         menu_item(:radiobutton, label: 'Option 1') {
           state 'disabled'
         }
@@ -3186,7 +3330,7 @@ root { |r|
         }
       }
       
-      @select_multiple_menu = menu(label: 'Select Multiple', underline: 0) {
+      @select_multiple_menu = menu(label: 'Select Multiple', underline: 7) {
         menu_item(:checkbutton, label: 'Option 4') {
           state 'disabled'
         }
@@ -3208,7 +3352,7 @@ root { |r|
       end
     }
     
-    menu(label: 'Language Country', underline: 3) {
+    menu(label: 'Country', underline: 3) {
       ['denmark', 'finland', 'france', 'germany', 'italy', 'mexico', 'netherlands', 'norway', 'usa'].each do |image_name|
         menu_item(:radiobutton, label: image_name.capitalize) {
           selection image_name == 'usa'
@@ -3242,7 +3386,7 @@ root { |r|
     
     menu(label: 'View', underline: 0) {
       menu_item(:radiobutton, label: 'Small', underline: 0) {
-        accelerator 'Command+S'
+        accelerator OS.mac? ? 'Command+S' : 'Control+S'
         
         on('command') do
           @label.font = {size: 25}
@@ -3250,7 +3394,7 @@ root { |r|
       }
       
       menu_item(:radiobutton, label: 'Medium', underline: 0) {
-        accelerator 'Command+M'
+        accelerator OS.mac? ? 'Command+M' : 'Control+M'
         selection true
 
         on('command') do
@@ -3259,7 +3403,7 @@ root { |r|
       }
       
       menu_item(:radiobutton, label: 'Large', underline: 0) {
-        accelerator 'Command+L'
+        accelerator OS.mac? ? 'Command+L' : 'Control+L'
         
         on('command') do
           @label.font = {size: 75}
@@ -3267,17 +3411,20 @@ root { |r|
       }
     }
     
-    menu(label: 'Window', underline: 0)
+    # Mac-specific window menu (containing zooming/resizing menu items)
+    menu(label: 'Window', underline: 0) if OS.mac?
     
     menu(label: 'Help', underline: 0) {
-      menu_item(:help) {
-        on('command') do
-          message_box(parent: r, title: 'Help', message: 'Help for my application.')
-        end
-      }
+      if OS.mac?
+        menu_item(:help) {
+          on('command') do
+            message_box(parent: r, title: 'Help', message: 'Help for my application.')
+          end
+        }
+      end
       
       menu_item(label: 'Manual', underline: 0) {
-        accelerator 'Command+Shift+M'
+        accelerator OS.mac? ? 'Command+Shift+M' : 'Control+U'
 
         on('command') do
           message_box(parent: r, title: 'Manual', message: 'Manual Contents')
@@ -3285,7 +3432,7 @@ root { |r|
       }
       
       menu_item(label: 'Tutorial', underline: 0) {
-        accelerator 'Command+Shift+T'
+        accelerator OS.mac? ? 'Command+Shift+T' : 'Control+T'
 
         on('command') do
           message_box(parent: r, title: 'Tutorial', message: 'Tutorial Contents')
@@ -3356,7 +3503,7 @@ https://github.com/ancorgs/y3network-ruby-ui
 
 ### CryptoPunks GUI
 
-This is a Graphical User Interface for the [cryptopunks Ruby gem](https://github.com/cryptopunksnotdead/cryptopunks/tree/master/cryptopunks).
+This is a Graphical User Interface for the famous [cryptopunks Ruby gem](https://github.com/cryptopunksnotdead/cryptopunks/tree/master/cryptopunks).
 
 https://github.com/cryptopunksnotdead/cryptopunks-gui
 

data/VERSION

@@ -1 +1 @@
-0.0.40
+0.0.44

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

@@ -28,11 +28,15 @@ module Glimmer
         def can_interpret?(parent, keyword, *args, &block)
           block_given? and
             args.size == 0 and
-            parent.respond_to?("#{keyword}_block=")
+            (parent.respond_to?("#{keyword}_block=") || (parent.respond_to?(:tk) && parent.tk.respond_to?(keyword)))
         end
   
         def interpret(parent, keyword, *args, &block)
-          parent.send("#{keyword}_block=", block)
+          if parent.respond_to?("#{keyword}_block=")
+            parent.send("#{keyword}_block=", block)
+          else
+            parent.tk.send(keyword, block)
+          end
           nil
         end
       end

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

@@ -38,11 +38,11 @@ module Glimmer
         %w[
           list_selection_data_binding
           data_binding
-          block_attribute
           attribute
           shine_data_binding
           widget
           built_in_dialog
+          block_attribute
         ]
       )
     end

data/lib/glimmer/tk/checkbutton_proxy.rb

@@ -20,7 +20,6 @@
 # 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
@@ -29,7 +28,6 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class CheckbuttonProxy < WidgetProxy
-      include Commandable
       include VariableOwner
     end
   end

data/lib/glimmer/tk/list_proxy.rb

@@ -20,14 +20,11 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
-require 'glimmer/tk/scrollable'
 
 module Glimmer
   module Tk
     # Custom list widget implementation
     class ListProxy < WidgetProxy
-      include Scrollable
-      
       def initialize(underscored_widget_name, parent_proxy, args)
         super('treeview', parent_proxy, args)
         @tk.show = 'tree'

data/lib/glimmer/tk/menu_proxy.rb

@@ -71,8 +71,9 @@ module Glimmer
             @tk = ::TkSysMenu_Help.new(@parent_proxy.tk)
           elsif @parent_proxy.parent_proxy.is_a?(ToplevelProxy) && OS.mac? && window?
             @tk = ::Tk::TkSysMenu_Window.new(@parent_proxy.tk)
-          elsif @parent_proxy.parent_proxy.is_a?(ToplevelProxy) && OS.windows? && system?
-            @tk = ::TkSysMenu_System.new(@parent_proxy.tk)
+          # Windows system menu does not seem to work
+#           elsif @parent_proxy.parent_proxy.is_a?(ToplevelProxy) && OS.windows? && system?
+#             @tk = ::TkSysMenu_System.new(@parent_proxy.tk)
           else
             tk_widget_class = self.class.tk_widget_class_for(@keyword)
             @tk = tk_widget_class.new(@parent_proxy.tk)

data/lib/glimmer/tk/radiobutton_proxy.rb

@@ -20,7 +20,6 @@
 # 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
@@ -28,8 +27,6 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class RadiobuttonProxy < WidgetProxy
-      include Commandable
-      
       def sibling_radio_buttons
         @parent_proxy.children.select {|child| child.is_a?(RadiobuttonProxy) && child != self}
       end