glimmer-dsl-tk 0.0.12 → 0.0.16

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: d17b887519b4dcbc1d9730240835fa918d81902268ea4c8607a2528696b6c5fd
-  data.tar.gz: df8da719382108710096f6026e362c32fff92fb15b720ba43bceb5d12b688f04
+  metadata.gz: 86a726f184dac65952c4a78352e88df639707b156a3a95bf9a9e99728b78b3a1
+  data.tar.gz: f6caaace87672c8f636d3f97f5b223b167e48f1f23620b82c0b19286cdfd6f35
 SHA512:
-  metadata.gz: c7384362360e983fd820843b0c9ceccad79a39e96a152aea42ae414327b2b4665c8b2af1470a7ee5da69695968daec98fb7b52c34d68b732934b3efeb59f0073
-  data.tar.gz: c809eecf36d5c60e81ade4beb39ed52260cd1b0e1fb9a8ee6ac97fd7d9bc68e315d17fd2e49fad6eb39e452fefe1551d627fa2381ac3b1594d3cdbe0efa8905c
+  metadata.gz: e64dc523caf04755e3380846ef1ac9b9abec8bfdb3cd8b1e251dd98ef4a70470e73e744310cf2e9ce943a0085ac9c730b655dc5945c29409d6e09cc6f1095dd4
+  data.tar.gz: 23f99d7734e49d93f702c8987840e6ac043c247c83457be9f6cd1b028624aedb733e68b98c7922a2ec5a17afe05134da90664ab5dcf464350f31dc1afb45dd18

data/CHANGELOG.md

@@ -1,5 +1,27 @@
 # Change Log
 
+## 0.0.16
+
+- Support common themed widget state attributes: `active`, `disabled`, `focus`, `pressed`, `selected`, `background`, `readonly`, `alternate`, `invalid`, and `hover`
+- Update Hello, Button! to utilize `focus true` in first button.
+
+## 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

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.12
+# [<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.16
 ## 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!'
   }
@@ -81,7 +87,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.12'
+gem 'glimmer-dsl-tk', '~> 0.0.16'
 ```
 
 And, then run:
@@ -167,6 +173,36 @@ root {
 }.open
 ```
 
+### Supported Widgets
+
+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`
+`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`: `Hash` of `:row`, `:column`, `:padx`, `:pady`, `:sticky` (`'e', 'w', 'n', 's'` or any combination of direction letters)
+
+#### Common Themed Widget States
+
+- `active?`
+- `disabled?`
+- `focus?`
+- `pressed?`
+- `selected?`
+- `background?`
+- `readonly?`
+- `alternate?`
+- `invalid?`
+- `hover?`
+
 ### Smart Defaults and Convensions
 
 #### Grid Layout
@@ -221,7 +257,25 @@ More details can be found in the [Hello, Computed!](#hello-computed) sample belo
 
 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).
 
-### Combo 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.
+
+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:
 
@@ -239,7 +293,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
 
@@ -284,24 +338,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 <=> [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:
@@ -337,7 +373,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 +382,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 +404,112 @@ 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'
+          focus true
+          
+          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,14 +553,107 @@ 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'
@@ -441,19 +673,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!
 

data/VERSION

@@ -1 +1 @@
-0.0.12
+0.0.16

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/tk/root_proxy.rb

@@ -45,9 +45,7 @@ module Glimmer
       
       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

@@ -120,10 +120,25 @@ module Glimmer
         @tk.respond_to?(attribute)
       end
       
+      def has_state?(attribute)
+        attribute = attribute.sub(/\?$/, '').sub(/=$/, '')
+        if @tk.respond_to?(:tile_state)
+          begin
+            @tk.tile_instate(attribute)
+            true
+          rescue
+            false
+          end
+        else
+          false
+        end
+      end
+      
       def has_attribute?(attribute, *args)
         (widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][attribute.to_s]) ||
           tk_widget_has_attribute_setter?(attribute) ||
           tk_widget_has_attribute_getter_setter?(attribute) ||
+          has_state?(attribute) ||
           respond_to?(attribute_setter(attribute), args)
       end
 
@@ -135,6 +150,13 @@ module Glimmer
           @tk.send(attribute_setter(attribute), *args) unless @tk.send(attribute) == args.first
         elsif tk_widget_has_attribute_getter_setter?(attribute)
           @tk.send(attribute, *args)
+        elsif has_state?(attribute)
+          attribute = attribute.sub(/=$/, '')
+          if !!args.first
+            @tk.tile_state(attribute)
+          else
+            @tk.tile_state("!#{attribute}")
+          end
         else
           send(attribute_setter(attribute), args)
         end
@@ -146,6 +168,8 @@ module Glimmer
           widget_custom_attribute[:getter][:invoker].call(@tk, args)
         elsif tk_widget_has_attribute_getter_setter?(attribute)
           @tk.send(attribute)
+        elsif has_state?(attribute)
+          @tk.tile_instate(attribute.sub(/\?$/, ''))
         else
           send(attribute)
         end
@@ -157,6 +181,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 }},
@@ -210,6 +240,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?
@@ -222,9 +268,9 @@ module Glimmer
 
       def method_missing(method, *args, &block)
         method = method.to_s
-        if args.empty? && block.nil? && widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][method]
+        if args.empty? && block.nil? && ((widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][method]) || has_state?(method))
           get_attribute(method)
-        elsif widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][method.sub(/=$/, '')] && method.end_with?('=') && block.nil?
+        elsif method.end_with?('=') && block.nil? && ((widget_custom_attribute_mapping[tk.class] && widget_custom_attribute_mapping[tk.class][method.sub(/=$/, '')]) || has_state?(method))
           set_attribute(method.sub(/=$/, ''), *args)
         else
           tk.send(method, *args, &block)

data/samples/hello/hello_button.rb

@@ -0,0 +1,97 @@
+# 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 { |b|
+          text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
+          default 'active'
+          focus true
+          
+          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,14 +34,14 @@ 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'
@@ -58,4 +58,4 @@ class HelloCombo
   end
 end
 
-HelloCombo.new.launch
+HelloCombobox.new.launch

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.12
+  version: 0.0.16
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-09 00:00:00.000000000 Z
+date: 2021-10-10 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -197,6 +197,7 @@ 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
@@ -209,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