glimmer-dsl-tk 0.0.11 → 0.0.15

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0ce8665311ec56974f2f930183c6cd2ad4b2867436ddffbdf66984659f0e830f
-  data.tar.gz: 13ddbe796e17917d0e392fc61e7c96443f430e4f403ff9730cd6b92e24b424aa
+  metadata.gz: 12e68b40c6fb5c056f778d8864b88a01adb69ee4c0fe4273cc007a7d8d589cb9
+  data.tar.gz: 16281eeb0be0b1556390c42504f82d879ae6e13f427875215454f8a5d8949706
 SHA512:
-  metadata.gz: b005addc832a5f0af7aeb0285d41dc8e52b40d61088ea16272657c65ddcdbaa92c6af09cb11fd5fb34de6de1b10a11f2d6d0e31d9f2b1a279a0fbaa14fd17b21
-  data.tar.gz: 2a154821ce05f1f53d0bbd8c3336daea2b4c2ee709753f9b3872015f839a1e5a41747666171481ef658d4e682f43e137659b692089a641520b20f5b95f0d1e8f
+  metadata.gz: 07ec8746537d220b0b768715f29f5796543f497c1054c55796b8a23ae0ac83c4007d545d378b3ac7896893f68a1a2f2d0b11a0bbd002254cddb5369d7d6a5653
+  data.tar.gz: aae794b82923901cd227d899fa914978e168fb8c35ff8433ccda048d7845e346aa9b74b001d91cc7779dcbe588cad46817fac48aa7c3ec3be1332ebf9ce80852

data/CHANGELOG.md

@@ -1,5 +1,28 @@
 # Change Log
 
+## 0.0.15
+
+- Update Hello, Button! to demo all button attributes
+- Support `button` `image` attribute (accepting image arguments: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule` to automatically process image)
+- Update `root` `iconphoto` support to accept image arguments: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule` to automatically process image
+- Support `button` `compound` attribute (`'center', 'top', 'bottom', 'left', 'right'`)
+- Support `button` `default` attribute (`'active'` or `'normal'`)
+
+## 0.0.14
+
+- Hello, Button!
+
+## 0.0.13
+
+- Hello, Message Box!
+- Support `message_box`
+
+## 0.0.12
+
+- Upgrade to glimmer 2.3.0
+- Support Shine syntax for data-binding
+- Update all data-binding samples to use Shine syntax for data-binding
+
 ## 0.0.11
 
 - Add preliminary support for `treeview` (no data-binding) with `columns`, `show`, and `heading_configure` attributes/methods

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.11
+# [<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.15
 ## 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)
 [![Coverage Status](https://coveralls.io/repos/github/AndyObtiva/glimmer-dsl-tk/badge.svg?branch=master)](https://coveralls.io/github/AndyObtiva/glimmer-dsl-tk?branch=master)
@@ -9,7 +9,7 @@
 
 [Glimmer](https://github.com/AndyObtiva/glimmer) DSL for [Tk](https://www.tcl.tk/) enables desktop development with [Glimmer](https://github.com/AndyObtiva/glimmer) in [Ruby](https://github.com/ruby/ruby).
 
-[Tcl/Tk](https://www.tcl.tk/) has evolved into a practical desktop GUI toolkit due to gaining truly native looking themed widgets on Mac, Windows, and Linux in [Tk version 8.5](https://www.tcl.tk/software/tcltk/8.5.html#:~:text=Highlights%20of%20Tk%208.5&text=Font%20rendering%3A%20Now%20uses%20anti,and%20window%20layout%2C%20and%20more.).
+[Tcl/Tk](https://www.tcl.tk/) has evolved into a practical desktop GUI toolkit due to gaining native looking themed widgets on Mac, Windows, and Linux in [Tk version 8.5](https://www.tcl.tk/software/tcltk/8.5.html#:~:text=Highlights%20of%20Tk%208.5&text=Font%20rendering%3A%20Now%20uses%20anti,and%20window%20layout%2C%20and%20more.).
 
 Additionally, [Ruby](https://www.ruby-lang.org/en/) 3.0 Ractor (formerly known as [Guilds](https://olivierlacan.com/posts/concurrency-in-ruby-3-with-guilds/)) supports truly parallel multi-threading, making both [MRI](https://github.com/ruby/ruby) and [Tk](https://www.tcl.tk/) finally viable for support in [Glimmer](https://github.com/AndyObtiva/glimmer) (Ruby Desktop Development GUI Library) as an alternative to [JRuby on SWT](https://github.com/AndyObtiva/glimmer-dsl-swt).
 
@@ -29,7 +29,13 @@ The trade-off is that while [SWT](https://www.eclipse.org/swt/) provides a pleth
 Glimmer code (from [samples/hello/hello_world.rb](samples/hello/hello_world.rb)):
 
 ```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
 root {
+  title 'Hello, World!'
+  
   label {
     text 'Hello, World!'
   }
@@ -46,7 +52,7 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello world](images/glimmer-dsl-tk-screenshot-sample-hello-world.png)
 
-NOTE: Glimmer DSL for Tk is in alpha mode. Please help make better by contributing, adopting for small or low risk projects, and providing feedback. It is still an early alpha, so the more feedback and issues you report the better.
+NOTE: Glimmer DSL for Tk is currently in early alpha mode (incomplete). Please help make better by contributing, adopting for small or low risk projects, and providing feedback. It is still an early alpha, so the more feedback and issues you report the better.
 
 Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
 - [glimmer-dsl-swt](https://github.com/AndyObtiva/glimmer-dsl-swt): Glimmer DSL for SWT (JRuby Desktop Development GUI Framework)
@@ -81,7 +87,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.11'
+gem 'glimmer-dsl-tk', '~> 0.0.15'
 ```
 
 And, then run:
@@ -167,6 +173,23 @@ root {
 }.open
 ```
 
+### Supported Widgets
+
+keyword(args) | attributes | listeners / events / bindings / callbacks
+------------- | ---------- | ---------
+`button` | `text`, `image`, `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `default` (`'active', 'normal'`) | `command`
+`entry` | `width`, `text` | None
+`frame(text: )` | None | None
+`label` | `text` | None
+`list` | `selectmode`, `selection` | None
+`message_box(type: , message: , detail: , title: , icon: , default: , parent: )` | None | None
+`notebook` | None | None
+`root` | `title`, `iconphoto` | None
+
+#### Common Attributes
+
+- `grid`
+
 ### Smart Defaults and Convensions
 
 #### Grid Layout
@@ -211,7 +234,7 @@ Example:
         entry {
           grid column: 1, row: 2
           width 15
-          text bind(@contact, :year_of_birth)
+          text <=> [@contact, :year_of_birth]
         }
 ```
 
@@ -219,9 +242,27 @@ More details can be found in the [Hello, Computed!](#hello-computed) sample belo
 
 ## Bidirectional Data-Binding
 
-Glimmer supports bidirectional data-binding via the `bind` keyword, which takes a model and an attribute.
+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).
+
+### General Property Data-Binding
+
+Example:
+
+This assumes a `Person` model with a `country` attribute.
+
+```ruby
+  label {
+    text <=> [person, :country]
+  }
+```
+
+That code binds the `textvariable` value of the `label` to the `country` property on the `person` model.
 
-### Combo Data-Binding
+It automatically handles all the Tk plumbing behind the scenes.
+
+More details can be found in the [Hello, Computed!](#hello-computed) sample below.
+
+### Combobox Data-Binding
 
 Example:
 
@@ -230,7 +271,7 @@ This assumes a `Person` model with a `country` attribute representing their curr
 ```ruby
   combobox {
     state 'readonly'
-    text bind(person, :country)
+    text <=> [person, :country]
   }
 ```
 
@@ -239,7 +280,7 @@ It also binds the `text` selection of the `combobox` to the `country` property o
 
 It automatically handles all the Tk plumbing behind the scenes, such as using `TkVariable` and setting `combobox` `values` from `person.country_options` by convention (attribute_name + "_options").
 
-More details can be found in the [Hello, Combo!](#hello-combo) sample below.
+More details can be found in the [Hello, Combobox!](#hello-combobox) sample below.
 
 ### List Single Selection Data-Binding
 
@@ -252,7 +293,7 @@ This assumes a `Person` model with a `country` attribute representing their curr
 ```ruby
   list {
     selectmode 'browse'
-    text bind(person, :country)
+    text <=> [person, :country]
   }
 ```
 
@@ -273,7 +314,7 @@ This assumes a `Person` model with a `provinces` attribute representing their cu
 
 ```ruby
   list {
-    text bind(person, :provinces)
+    text <=> [person, :provinces]
   }
 ```
 
@@ -284,24 +325,6 @@ It automatically handles all the Tk plumbing behind the scenes.
 
 More details can be found in the [Hello, List Multi Selection!](#hello-list-multi-selection) sample below.
 
-### Label Data-Binding
-
-Example:
-
-This assumes a `Person` model with a `country` attribute.
-
-```ruby
-  label {
-    text bind(person, :country)
-  }
-```
-
-That code binds the `textvariable` value of the `label` to the `country` property on the `person` model.
-
-It automatically handles all the Tk plumbing behind the scenes.
-
-More details can be found in the [Hello, Computed!](#hello-computed) sample below.
-
 ### Entry Data-Binding
 
 Example:
@@ -310,7 +333,7 @@ This assumes a `Person` model with a `country` attribute.
 
 ```ruby
   entry {
-    text bind(person, :country)
+    text <=> [person, :country]
   }
 ```
 
@@ -337,7 +360,7 @@ Example:
 
 This resets the person country.
 
-More details can be found in the [Hello, Combo!](#hello-combo) sample below.
+More details can be found in the [Hello, Combobox!](#hello-combobox) sample below.
 
 ## Samples
 
@@ -346,9 +369,13 @@ More details can be found in the [Hello, Combo!](#hello-combo) sample below.
 Glimmer code (from [samples/hello/hello_world.rb](samples/hello/hello_world.rb)):
 
 ```ruby
+require 'glimmer-dsl-tk'
+
 include Glimmer
 
 root {
+  title 'Hello, World!'
+  
   label {
     text 'Hello, World!'
   }
@@ -364,13 +391,111 @@ ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_world'"
 Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
 
 ```
-ruby -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_world'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_world.rb
 ```
 
 Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello world](images/glimmer-dsl-tk-screenshot-sample-hello-world.png)
 
+### Hello, Button!
+
+Glimmer code (from [samples/hello/hello_button.rb](samples/hello/hello_button.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+class HelloButton
+  include Glimmer
+  
+  attr_accessor :count
+  
+  def initialize
+    @count = 0
+  end
+  
+  def launch
+    root {
+      title 'Hello, Button!'
+      
+      frame {
+        grid row: 0, column: 0
+        
+        label {
+          grid pady: 15
+          text 'Text Button'
+        }
+        
+        button {
+          text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
+          default 'active'
+          
+          command {
+            self.count += 1
+          }
+        }
+      }
+        
+      frame {
+        grid row: 0, column: 1
+        
+        label {
+          grid pady: 15
+          text 'Image Button'
+        }
+        
+        button {
+          image File.expand_path('../../icons/glimmer.png', __dir__), subsample: 5
+          
+          command {
+            message_box(title: 'Image Button', message: 'Image Button Clicked!')
+          }
+        }
+      }
+      
+      frame {
+        grid row: 0, column: 2
+        
+        label {
+          grid pady: 15
+          text 'Text Image Buttons'
+        }
+        
+        ['center', 'top', 'bottom', 'left', 'right'].each do |compound_option|
+          button {
+            image File.expand_path('../../icons/glimmer.png', __dir__), subsample: 5
+            text 'Text Image Button'
+            compound compound_option
+            
+            command {
+              message_box(title: 'Text Image Button', message: 'Text Image Button Clicked!', detail: "(#{compound_option})")
+            }
+          }
+        end
+      }
+    }.open
+  end
+end
+
+HelloButton.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_button'"
+```
+
+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_button.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello button](images/glimmer-dsl-tk-screenshot-sample-hello-button.png)
+
 ### Hello, Tab!
 
 Glimmer code (from [samples/hello/hello_tab.rb](samples/hello/hello_tab.rb)):
@@ -414,18 +539,111 @@ Glimmer app:
 ![glimmer dsl tk screenshot sample hello tab English](images/glimmer-dsl-tk-screenshot-sample-hello-tab-english.png)
 ![glimmer dsl tk screenshot sample hello tab French](images/glimmer-dsl-tk-screenshot-sample-hello-tab-french.png)
 
-### Hello, Combo!
+### Hello, Message Box!
+
+Glimmer code (from [samples/hello/hello_message_box.rb](samples/hello/hello_message_box.rb)):
+
+```ruby
+root { |r|
+  title 'Hello, Message Box!'
+  
+  frame {
+    grid sticky: 'nsew', padx: 15, pady: 15
+    
+    button {
+      text 'Please Click To Win a Surprise'
+      
+      command {
+        # specifying parent ensures dialog shows up centered on top of window (instead of centered in display monitor)
+        @result_label.text = message_box(parent: r, title: 'Surprise', message: "Congratulations!\n\nYou won $1,000,000!") # type: 'ok' by default
+      }
+    }
+    
+    button {
+      text 'Download Software Update'
+      
+      command {
+        @result_label.text = message_box(type: 'okcancel', title: 'Software Update', message: "We will begin to download software update.")
+      }
+    }
+    
+    button {
+      text 'Format Hard Drive'
+      
+      command {
+        @result_label.text = message_box(type: 'yesno', icon: 'question', title: 'Format', message: "Would you like to format your hard drive?")
+      }
+    }
+    
+    button {
+      text 'Submit Application'
+      
+      command {
+        @result_label.text = message_box(type: 'yesnocancel', icon: 'question', title: 'Application', message: "Would you like to review application before submitting?")
+      }
+    }
+    
+    button {
+      text 'Play Video'
+      
+      command {
+        @result_label.text = message_box(type: 'retrycancel', icon: 'error', title: 'Video Replay', message: "Video has failed to play. Would you like to retry?")
+      }
+    }
+    
+    button {
+      text 'Installation Completed'
+      
+      command {
+        @result_label.text = message_box(type: 'abortretryignore', icon: 'warning', default: 'ignore', title: 'Failed To Install Extra Utilities', message: "Installation is complete, but extra utilities have failed to install. Would you like to retry installing extra utilities?", detail: 'Encountered network error in downloading extra utilities, resulting in failure to install them')
+      }
+    }
+  }
+  
+  frame {
+    grid sticky: 'nsew', padx: 15, pady: 15
+    
+    label {
+      grid row: 0, column: 0
+      text 'Result:'
+    }
+    
+    @result_label = label {
+      grid row: 0, column: 1
+    }
+  }
+}.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_tab'"
+```
+
+Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_tab'"
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello message box](images/glimmer-dsl-tk-screenshot-sample-hello-message-box.png)
+![glimmer dsl tk screenshot sample hello message box open](images/glimmer-dsl-tk-screenshot-sample-hello-message-box-open.png)
+
+### Hello, Combobox!
 
-Glimmer code (from [samples/hello/hello_combo.rb](samples/hello/hello_combo.rb)):
+Glimmer code (from [samples/hello/hello_combobox.rb](samples/hello/hello_combobox.rb)):
 
 ```ruby
 # ... more code precedes
 root {
-  title 'Hello, Combo!'
+  title 'Hello, Combobox!'
   
   combobox { |proxy|
     state 'readonly'
-    text bind(person, :country)
+    text <=> [person, :country]
   }
   
   button { |proxy|
@@ -441,19 +659,19 @@ root {
 Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
 
 ```
-ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_combo'"
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_combobox'"
 ```
 
 Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
 
 ```
-ruby -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_combo'"
+ruby -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_combobox'"
 ```
 
 Glimmer app:
 
-![glimmer dsl tk screenshot sample hello combo](images/glimmer-dsl-tk-screenshot-sample-hello-combo.png)
-![glimmer dsl tk screenshot sample hello combo dropdown](images/glimmer-dsl-tk-screenshot-sample-hello-combo-dropdown.png)
+![glimmer dsl tk screenshot sample hello combobox](images/glimmer-dsl-tk-screenshot-sample-hello-combobox.png)
+![glimmer dsl tk screenshot sample hello combobox dropdown](images/glimmer-dsl-tk-screenshot-sample-hello-combobox-dropdown.png)
 
 ### Hello, List Single Selection!
 
@@ -466,7 +684,7 @@ root {
   
   list {
     selectmode 'browse'
-    selection bind(person, :country)
+    selection <=> [person, :country]
   }
   
   button {
@@ -504,7 +722,7 @@ root {
   title 'Hello, List Multi Selection!'
   
   list {
-    selection bind(person, :provinces)
+    selection <=> [person, :provinces]
   }
   
   button {
@@ -551,7 +769,7 @@ Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_compute
         entry {
           grid column: 1, row: 0
           width 15
-          text bind(@contact, :first_name)
+          text <=> [@contact, :first_name]
         }
         
         label {
@@ -561,7 +779,7 @@ Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_compute
         entry {
           grid column: 1, row: 1
           width 15
-          text bind(@contact, :last_name)
+          text <=> [@contact, :last_name]
         }
         
         label {
@@ -571,7 +789,7 @@ Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_compute
         entry {
           grid column: 1, row: 2
           width 15
-          text bind(@contact, :year_of_birth)
+          text <=> [@contact, :year_of_birth]
         }
         
         label {
@@ -580,7 +798,7 @@ Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_compute
         }
         label {
           grid column: 1, row: 3, sticky: 'w'
-          text bind(@contact, :name, computed_by: [:first_name, :last_name])
+          text <=> [@contact, :name, computed_by: [:first_name, :last_name]]
         }
         
         label {
@@ -589,7 +807,7 @@ Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_compute
         }
         label {
           grid column: 1, row: 4, sticky: 'w'
-          text bind(@contact, :age, on_write: :to_i, computed_by: [:year_of_birth])
+          text <=> [@contact, :age, on_write: :to_i, computed_by: [:year_of_birth]]
         }
       }
     }.open

data/VERSION

@@ -1 +1 @@
-0.0.11
+0.0.15

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

@@ -40,6 +40,7 @@ module Glimmer
           data_binding
           block_attribute
           attribute
+          shine_data_binding
           widget
         ]
       )

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

@@ -0,0 +1,36 @@
+# 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/static_expression'
+require 'glimmer/tk/root_proxy'
+
+module Glimmer
+  module DSL
+    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)
+          ::Tk::messageBox(*args)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,43 @@
+# Copyright (c) 2007-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/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/tk/widget_binding'
+require 'glimmer/data_binding/shine'
+
+module Glimmer
+  module DSL
+    module Tk
+      class ShineDataBindingExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          args.size == 0 and
+            block.nil? and
+            (parent.respond_to?(:has_attribute?) and parent.has_attribute?(keyword))
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::DataBinding::Shine.new(parent, keyword)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/root_proxy.rb

@@ -40,14 +40,12 @@ module Glimmer
       end
 
       def content(&block)
-        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::RootExpression.new, &block)
+        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::RootExpression.new, keyword, *args, &block)
       end
       
       def set_attribute(attribute, *args)
         if attribute.to_s == 'iconphoto'
-          if args.size == 1 && args.first.is_a?(String)
-            args[0] = ::TkPhotoImage.new(file: args.first)
-          end
+          args[0..-1] = [image_argument(args)]
           super
         else
           super

data/lib/glimmer/tk/widget_proxy.rb

@@ -25,20 +25,6 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class WidgetProxy
-      attr_reader :parent_proxy, :tk, :args
-
-      DEFAULT_INITIALIZERS = {
-        '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,
-      }
-      
       class << self
         def create(keyword, parent, args)
           widget_proxy_class(keyword).new(keyword, parent, args)
@@ -75,12 +61,27 @@ module Glimmer
         end
       end
       
+      attr_reader :parent_proxy, :tk, :args, :keyword
+
+      DEFAULT_INITIALIZERS = {
+        '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)
         @parent_proxy = parent_proxy
         @args = args
+        @keyword = underscored_widget_name
         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
@@ -156,6 +157,12 @@ module Glimmer
       
       def widget_custom_attribute_mapping
         @widget_custom_attribute_mapping ||= {
+          ::Tk::Tile::TButton => {
+            'image' => {
+              getter: {name: 'image', invoker: lambda { |widget, args| @tk.textvariable&.value }},
+              setter: {name: 'image=', invoker: lambda { |widget, args| @tk['image'] = image_argument(args) }},
+            },
+          },
           ::Tk::Tile::TCombobox => {
             'text' => {
               getter: {name: 'text', invoker: lambda { |widget, args| @tk.textvariable&.value }},
@@ -209,6 +216,22 @@ module Glimmer
         }
       end
       
+      def image_argument(args)
+        if args.first.is_a?(::TkPhotoImage)
+          args.first
+        else
+          image_args = {}
+          image_args.merge!(file: args.first.to_s) if args.first.is_a?(String)
+          the_image = ::TkPhotoImage.new(image_args)
+          if args.last.is_a?(Hash)
+            processed_image = ::TkPhotoImage.new
+            processed_image.copy(the_image, args.last)
+            the_image = processed_image
+          end
+          the_image
+        end
+      end
+      
       def add_observer(observer, attribute)
         attribute_listener_installers = @tk.class.ancestors.map {|ancestor| widget_attribute_listener_installers[ancestor]}.compact
         widget_listener_installers = attribute_listener_installers.map{|installer| installer[attribute.to_s]}.compact if !attribute_listener_installers.empty?
@@ -216,7 +239,7 @@ module Glimmer
       end
 
       def content(&block)
-        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::WidgetExpression.new, &block)
+        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::WidgetExpression.new, keyword, *args, &block)
       end
 
       def method_missing(method, *args, &block)

data/samples/hello/hello_button.rb

@@ -0,0 +1,96 @@
+# 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 HelloButton
+  include Glimmer
+  
+  attr_accessor :count
+  
+  def initialize
+    @count = 0
+  end
+  
+  def launch
+    root {
+      title 'Hello, Button!'
+      
+      frame {
+        grid row: 0, column: 0
+        
+        label {
+          grid pady: 15
+          text 'Text Button'
+        }
+        
+        button {
+          text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
+          default 'active'
+          
+          command {
+            self.count += 1
+          }
+        }
+      }
+        
+      frame {
+        grid row: 0, column: 1
+        
+        label {
+          grid pady: 15
+          text 'Image Button'
+        }
+        
+        button {
+          image File.expand_path('../../icons/glimmer.png', __dir__), subsample: 5
+          
+          command {
+            message_box(title: 'Image Button', message: 'Image Button Clicked!')
+          }
+        }
+      }
+      
+      frame {
+        grid row: 0, column: 2
+        
+        label {
+          grid pady: 15
+          text 'Text Image Buttons'
+        }
+        
+        ['center', 'top', 'bottom', 'left', 'right'].each do |compound_option|
+          button {
+            image File.expand_path('../../icons/glimmer.png', __dir__), subsample: 5
+            text 'Text Image Button'
+            compound compound_option
+            
+            command {
+              message_box(title: 'Text Image Button', message: 'Text Image Button Clicked!', detail: "(#{compound_option})")
+            }
+          }
+        end
+      }
+    }.open
+  end
+end
+
+HelloButton.new.launch

data/samples/hello/{hello_combo.rb → hello_combobox.rb}

@@ -34,18 +34,18 @@ class Person
   end
 end
 
-class HelloCombo
+class HelloCombobox
   include Glimmer
   
   def launch
     person = Person.new
     
     root {
-      title 'Hello, Combo!'
+      title 'Hello, Combobox!'
       
       combobox {
         state 'readonly'
-        text bind(person, :country)
+        text <=> [person, :country]
       }
       
       button {
@@ -58,4 +58,4 @@ class HelloCombo
   end
 end
 
-HelloCombo.new.launch
+HelloCombobox.new.launch

data/samples/hello/hello_computed.rb

@@ -48,7 +48,7 @@ class HelloComputed
         entry {
           grid column: 1, row: 0
           width 15
-          text bind(@contact, :first_name)
+          text <=> [@contact, :first_name]
         }
         
         label {
@@ -58,7 +58,7 @@ class HelloComputed
         entry {
           grid column: 1, row: 1
           width 15
-          text bind(@contact, :last_name)
+          text <=> [@contact, :last_name]
         }
         
         label {
@@ -68,7 +68,7 @@ class HelloComputed
         entry {
           grid column: 1, row: 2
           width 15
-          text bind(@contact, :year_of_birth)
+          text <=> [@contact, :year_of_birth]
         }
         
         label {
@@ -77,7 +77,7 @@ class HelloComputed
         }
         label {
           grid column: 1, row: 3, sticky: 'w'
-          text bind(@contact, :name, computed_by: [:first_name, :last_name])
+          text <=> [@contact, :name, computed_by: [:first_name, :last_name]]
         }
         
         label {
@@ -86,7 +86,7 @@ class HelloComputed
         }
         label {
           grid column: 1, row: 4, sticky: 'w'
-          text bind(@contact, :age, on_write: :to_i, computed_by: [:year_of_birth])
+          text <=> [@contact, :age, on_write: :to_i, computed_by: :year_of_birth]
         }
       }
     }.open

data/samples/hello/hello_list_multi_selection.rb

@@ -54,7 +54,7 @@ class HelloListMultiSelection
       title 'Hello, List Multi Selection!'
       
       list {
-        selection bind(person, :provinces)
+        selection <=> [person, :provinces]
       }
       
       button {

data/samples/hello/hello_list_single_selection.rb

@@ -45,7 +45,7 @@ class HelloListSingleSelection
       
       list {
         selectmode 'browse'
-        selection bind(person, :country)
+        selection <=> [person, :country]
       }
       
       button {

data/samples/hello/hello_message_box.rb

@@ -0,0 +1,94 @@
+# 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'
+
+include Glimmer
+
+root { |r|
+  title 'Hello, Message Box!'
+  
+  frame {
+    grid sticky: 'nsew', padx: 15, pady: 15
+    
+    button {
+      text 'Please Click To Win a Surprise'
+      
+      command {
+        # specifying parent ensures dialog shows up centered on top of window (instead of centered in display monitor)
+        @result_label.text = message_box(parent: r, title: 'Surprise', message: "Congratulations!\n\nYou won $1,000,000!") # type: 'ok' by default
+      }
+    }
+    
+    button {
+      text 'Download Software Update'
+      
+      command {
+        @result_label.text = message_box(type: 'okcancel', title: 'Software Update', message: "We will begin to download software update.")
+      }
+    }
+    
+    button {
+      text 'Format Hard Drive'
+      
+      command {
+        @result_label.text = message_box(type: 'yesno', icon: 'question', title: 'Format', message: "Would you like to format your hard drive?")
+      }
+    }
+    
+    button {
+      text 'Submit Application'
+      
+      command {
+        @result_label.text = message_box(type: 'yesnocancel', icon: 'question', title: 'Application', message: "Would you like to review application before submitting?")
+      }
+    }
+    
+    button {
+      text 'Play Video'
+      
+      command {
+        @result_label.text = message_box(type: 'retrycancel', icon: 'error', title: 'Video Replay', message: "Video has failed to play. Would you like to retry?")
+      }
+    }
+    
+    button {
+      text 'Installation Completed'
+      
+      command {
+        @result_label.text = message_box(type: 'abortretryignore', icon: 'warning', default: 'ignore', title: 'Failed To Install Extra Utilities', message: "Installation is complete, but extra utilities have failed to install. Would you like to retry installing extra utilities?", detail: 'Encountered network error in downloading extra utilities, resulting in failure to install them')
+      }
+    }
+  }
+  
+  frame {
+    grid sticky: 'nsew', padx: 15, pady: 15
+    
+    label {
+      grid row: 0, column: 0
+      text 'Result:'
+    }
+    
+    @result_label = label {
+      grid row: 0, column: 1
+    }
+  }
+}.open

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.11
+  version: 0.0.15
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-09-29 00:00:00.000000000 Z
+date: 2021-10-09 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -197,7 +197,9 @@ files:
 - lib/glimmer/dsl/tk/data_binding_expression.rb
 - lib/glimmer/dsl/tk/dsl.rb
 - lib/glimmer/dsl/tk/list_selection_data_binding_expression.rb
+- lib/glimmer/dsl/tk/message_box_expression.rb
 - lib/glimmer/dsl/tk/root_expression.rb
+- lib/glimmer/dsl/tk/shine_data_binding_expression.rb
 - lib/glimmer/dsl/tk/widget_expression.rb
 - lib/glimmer/tk/button_proxy.rb
 - lib/glimmer/tk/entry_proxy.rb
@@ -208,11 +210,13 @@ files:
 - lib/glimmer/tk/root_proxy.rb
 - lib/glimmer/tk/treeview_proxy.rb
 - lib/glimmer/tk/widget_proxy.rb
-- samples/hello/hello_combo.rb
+- samples/hello/hello_button.rb
+- samples/hello/hello_combobox.rb
 - samples/hello/hello_computed.rb
 - samples/hello/hello_computed/contact.rb
 - samples/hello/hello_list_multi_selection.rb
 - samples/hello/hello_list_single_selection.rb
+- samples/hello/hello_message_box.rb
 - samples/hello/hello_tab.rb
 - samples/hello/hello_world.rb
 homepage: http://github.com/AndyObtiva/glimmer-dsl-tk
@@ -235,7 +239,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.2.22
+rubygems_version: 3.2.28
 signing_key:
 specification_version: 4
 summary: Glimmer DSL for Tk