glimmer-dsl-tk 0.0.14 → 0.0.18

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 497468a4ac3cef00c77957d6cb216ba1aed9916214e54561e8bff752c5117261
-  data.tar.gz: 3da1ce8af59ea3e03f45b1ab7c218c375fd86a145959657e8251d431bc6d0d90
+  metadata.gz: fa03163d6b0577d65e67d245b810079da4ddd6aca50cde649963e9448defe1ee
+  data.tar.gz: 3d2cadbe0dff5e003ada1938a461785b11d5899d671d12f998b0c783983fa4dc
 SHA512:
-  metadata.gz: f8def1bfc6f2263a3557a0fd6ccdf48b53180a259a63972463341e9afa235610634b4070b3b5b425c7a0205b73d2b22f3f9562cdebb53b3792232723f7a3a0bb
-  data.tar.gz: 7bd54e692f828e9134876bf9b00f3f3d2413235c919673ffe44be294c6890fcf1c2655ab5928a92a3e814049a37bd458e82f5870c0d051c91f0f60f14eebcd6b
+  metadata.gz: 6160cea03e0e6ed6e1511271cd780db176ba569b2774e9a304749e612ec242ad65d611dce0c475f29dfe3f9dce869bee8c660825a90fff0b3a0f5315cf7fbb47
+  data.tar.gz: abc75b8c436416257770b9af8e38470bbf4ab53f448a281c6626fa56ef7617ffee4d551038fa9618b00d33cd63f9c8cf19f51b311406497e1ce99a54ba22d2f0

data/CHANGELOG.md

@@ -1,5 +1,50 @@
 # Change Log
 
+## 0.0.18
+
+- Hello, Frame! sample
+- Avoid setting grid geometry manager on `toplevel` widget
+- Support `frame` `width` and `height` attributes
+- Support `frame` `borderwidth` attribute
+- Support `frame` `relief` attribute
+- Support `frame` `padding` attribute
+- Rename Hello, Tab! to Hello, Notebook!
+
+## 0.0.17
+
+- Hello, Label! sample
+- Support `label` `anchor` attribute (`'e'`, `'se'`, `'s'`, `'sw'`, `'w'`, `'nw'` or `'center'`)
+- Support `label` `width` attributes
+- Support `label` `image` attribute
+- Support `label` `justify` attribute (`'left', 'center', 'right'`)
+- Support `label` `font` attribute (`'default', 'text', 'fixed', 'menu', 'heading', 'caption', 'small_caption', 'icon', 'tooltip'`)
+- Support `label` `foreground` attribute
+- Support `label` `background` attribute (note that it does not work in Mac 'aqua' theme)
+- Support `label` `compound` attribute
+- Support `label` `relief` attributes (`'flat' (default), 'raised', 'sunken', 'solid', 'ridge', 'groove'`)
+
+## 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,6 +1,7 @@
-# [<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.14
+# [<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.18
 ## 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)
 [![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)
 [![Maintainability](https://api.codeclimate.com/v1/badges/ce2853efdbecf6ebdc73/maintainability)](https://codeclimate.com/github/AndyObtiva/glimmer-dsl-tk/maintainability)
 [![Join the chat at https://gitter.im/AndyObtiva/glimmer](https://badges.gitter.im/AndyObtiva/glimmer.svg)](https://gitter.im/AndyObtiva/glimmer?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
@@ -9,7 +10,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 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 recently improved by 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 +30,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!'
   }
@@ -55,6 +62,55 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
 - [glimmer-dsl-xml](https://github.com/AndyObtiva/glimmer-dsl-xml): Glimmer DSL for XML (& HTML)
 - [glimmer-dsl-css](https://github.com/AndyObtiva/glimmer-dsl-css): Glimmer DSL for CSS (Cascading Style Sheets)
 
+## Table of Contents
+
+- [Glimmer DSL for Tk](#)
+  - [MRI Ruby Desktop Development GUI Library](#mri-ruby-desktop-development-gui-library)
+  - [Pre-requisites](#pre-requisites)
+  - [Setup](#setup)
+    - [Option 1: Install](#option-1-install)
+    - [Option 2: Bundler](#option-2-bundler)
+  - [Girb (Glimmer IRB)](#girb-glimmer-irb)
+  - [Tk Concepts](#tk-concepts)
+  - [Glimmer GUI DSL Concepts](#glimmer-gui-dsl-concepts)
+    - [Supported Widgets](#supported-widgets)
+      - [Common Attributes](#common-attributes)
+      - [Common Themed Widget States](#common-themed-widget-states)
+    - [Smart Defaults and Convensions](#smart-defaults-and-convensions)
+      - [Grid Layout](#grid-layout)
+      - [Label/Button Image](#labelbutton-image)
+      - [Notebook Frame](#notebook-frame)
+      - [Icon Photo](#icon-photo)
+  - [The Grid Geometry Manager](#the-grid-geometry-manager)
+  - [Bidirectional Data-Binding](#bidirectional-data-binding)
+    - [General Property Data-Binding](#general-property-data-binding)
+    - [Combobox Data-Binding](#combobox-data-binding)
+    - [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)
+  - [Command Observer](#command-observer)
+  - [Gotchas](#gotchas)
+  - [Samples](#samples)
+    - [Hello, World!](#hello-world)
+    - [Hello, Button!](#hello-button)
+    - [Hello, Frame!](#hello-frame)
+    - [Hello, Notebook!](#hello-notebook)
+    - [Hello, Label!](#hello-label)
+    - [Hello, Message Box!](#hello-message-box)
+    - [Hello, Combobox!](#hello-combobox)
+    - [Hello, List Single Selection!](#hello-list-single-selection)
+    - [Hello, List Multi Selection!](#hello-list-multi-selection)
+    - [Hello, Computed!](#hello-computed)
+  - [Help](#help)
+    - [Issues](#issues)
+    - [Chat](#chat)
+  - [Process](#process)
+  - [Planned Features and Feature Suggestions](#planned-features-and-feature-suggestions)
+  - [Change Log](#change-log)
+  - [Contributing](#contributing)
+  - [Contributors](#contributors)
+  - [License](#license)
+
 ## Pre-requisites
 
 - [Tcl/Tk](https://www.tcl.tk/): Follow the [install instructions](https://tkdocs.com/tutorial/install.html)
@@ -81,7 +137,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.14'
+gem 'glimmer-dsl-tk', '~> 0.0.18'
 ```
 
 And, then run:
@@ -128,7 +184,7 @@ Example of an app written in [Tk](https://www.tcl.tk/) imperative syntax:
 
 ```ruby
 root = TkRoot.new
-root.title = 'Hello, Tab!'
+root.title = 'Hello, Notebook!'
 
 notebook = ::Tk::Tile::Notebook.new(root).grid
 
@@ -149,7 +205,7 @@ Example of the same app written in [Glimmer](https://github.com/AndyObtiva/glimm
 
 ```ruby
 root {
-  title 'Hello, Tab!'
+  title 'Hello, Notebook!'
    
   notebook {
     frame(text: 'English') {
@@ -169,12 +225,12 @@ root {
 
 ### Supported Widgets
 
-keyword(args) | attributes | listeners/events
+keyword(args) | attributes | event bindings & callbacks
 ------------- | ---------- | ---------
-`button` | `text` | `command`
+`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
+`frame(text: nil)` | `width`, `height`, `borderwidth`, `relief` (`'flat' (default), 'raised', 'sunken', 'solid', 'ridge', 'groove'`) | None
+`label` | `text`, `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `font` (`'default', 'text', 'fixed', 'menu', 'heading', 'caption', 'small_caption', 'icon', 'tooltip'`), `relief` (`'flat' (default), 'raised', 'sunken', 'solid', 'ridge', 'groove'`), `justify` (`'left', 'center', 'right'`), `foreground`, `background` | None
 `list` | `selectmode`, `selection` | None
 `message_box(type: , message: , detail: , title: , icon: , default: , parent: )` | None | None
 `notebook` | None | None
@@ -182,7 +238,20 @@ keyword(args) | attributes | listeners/events
 
 #### Common Attributes
 
-- `grid`
+- `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
 
@@ -190,6 +259,14 @@ keyword(args) | attributes | listeners/events
 
 `grid` layout is the default on most widgets (which support it).
 
+#### Label/Button Image
+
+Label and Button `image` attribute can accept image path directly as an alternative to `TkPhotoImage` object in addition to key values for automatic processing of image (`subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`)
+
+#### Notebook Frame
+
+When nesting `frame` under `notebook`, you can pass a `:text` keyword argument to indicate the tab title.
+
 #### Icon Photo
 
 The `iconphoto` attribute on `root` is set to the Glimmer icon by default if no icon photo is supplied.
@@ -356,6 +433,10 @@ This resets the person country.
 
 More details can be found in the [Hello, Combobox!](#hello-combobox) sample below.
 
+## Gotchas
+
+- Setting `background` attribute on `frame` or `label` does not work in `'aqua'` theme on the Mac (only in `'classic'` theme)
+
 ## Samples
 
 ### Hello, World!
@@ -363,9 +444,13 @@ More details can be found in the [Hello, Combobox!](#hello-combobox) sample belo
 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!'
   }
@@ -381,7 +466,7 @@ 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:
@@ -408,13 +493,62 @@ class HelloButton
     root {
       title 'Hello, Button!'
       
-      button {
-        text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
+      frame {
+        grid row: 0, column: 0
         
-        command {
-          self.count += 1
+        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
@@ -431,55 +565,258 @@ 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 -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_button'"
+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!
+### Hello, Frame!
 
-Glimmer code (from [samples/hello/hello_tab.rb](samples/hello/hello_tab.rb)):
+Glimmer code (from [samples/hello/hello_frame.rb](samples/hello/hello_frame.rb)):
 
 ```ruby
-include Glimmer
+require 'glimmer-dsl-tk'
 
-root {
-  title 'Hello, Tab!'
-   
-  notebook {
-    frame(text: 'English') {
-      label {
-        text 'Hello, World!'
+class HelloFrame
+  include Glimmer
+  
+  def launch
+    root {
+      title 'Hello, Frame!'
+      
+      frame { # frame simply contains widgets for visual organization via a layout
+        relief 'sunken'
+        
+        label {
+          grid row: 0, column: 0, columnspan: 4, padx: 5, pady: 5
+          text 'Enter Your Full Name'
+          font 'caption'
+          anchor 'center'
+        }
+
+        label {
+          grid row: 1, column: 0, padx: 5
+          text "First Name:"
+        }
+        
+        entry {
+          grid row: 1, column: 1, padx: 5
+        }
+        
+        label {
+          grid row: 2, column: 0, padx: 5
+          text "Last Name:"
+        }
+        
+        entry {
+          grid row: 2, column: 1, padx: 5
+        }
       }
-    }
-     
-    frame(text: 'French') {
-      label {
-        text 'Bonjour, Univers!'
+      
+      frame { # an empty frame can specify width and height
+        grid padx: 7, pady: 7
+        width 200
+        height 100
+        borderwidth 3
+        relief 'sunken'
       }
-    }
-  }
-}.open
+    }.open
+  end
+end
+
+HelloFrame.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_tab'"
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_frame'"
 ```
 
 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'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_frame.rb
 ```
 
 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)
+![glimmer dsl tk screenshot sample hello frame](images/glimmer-dsl-tk-screenshot-sample-hello-frame.png)
+
+### Hello, Notebook!
+
+Glimmer code (from [samples/hello/hello_notebook.rb](samples/hello/hello_notebook.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+class HelloNotebook
+  include Glimmer
+  
+  def launch
+    root {
+      title 'Hello, Notebook!'
+       
+      notebook {
+        frame(text: 'English') {
+          label {
+            text 'Hello, World!'
+          }
+        }
+         
+        frame(text: 'French') {
+          label {
+            text 'Bonjour, Univers!'
+          }
+        }
+      }
+    }.open
+  end
+end
+
+HelloNotebook.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_notebook'"
+```
+
+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_notebook.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello notebook English](images/glimmer-dsl-tk-screenshot-sample-hello-notebook-english.png)
+![glimmer dsl tk screenshot sample hello notebook French](images/glimmer-dsl-tk-screenshot-sample-hello-notebook-french.png)
+
+### Hello, Label!
+
+Glimmer code (from [samples/hello/hello_label.rb](samples/hello/hello_label.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+class HelloLabel
+  include Glimmer
+  
+  LABEL_FONTS = ['default', 'text', 'fixed', 'menu', 'heading', 'caption', 'small_caption', 'icon', 'tooltip']
+  LABEL_RELIEFS = ['flat', 'raised', 'sunken', 'solid', 'ridge', 'groove']
+  
+  def launch
+    root {
+      title 'Hello, Label!'
+      
+      notebook {
+        frame(text: 'left-aligned') {
+          3.times do |n|
+            label {
+              text "Field #{n + 1} / default font / flat relief"
+              width 60
+              anchor 'w'
+            }
+          end
+        }
+        
+        frame(text: 'centered') {
+          9.times do |n|
+            label {
+              text "Field #{n + 1} / fixed font / raised relief"
+              width 80
+              anchor 'center'
+              font 'fixed'
+              relief 'raised'
+            }
+          end
+        }
+        
+        frame(text: 'right-aligned') {
+          9.times do |n|
+            label {
+              text "Field #{n + 1} / small_caption font / ridge relief"
+              width 80
+              anchor 'e'
+              font 'small_caption'
+              relief 'ridge'
+            }
+          end
+        }
+        
+        frame(text: 'justified') {
+          label {
+            text <<~MULTI_LINE_STRING
+              This is a very long paragraph that spans multiple lines. It looks better and
+              is easier to read when justified. In fact, this is how to make it look like a
+              new paper column. That results in professional looking text. Magazines use the
+              same sort of justified text. Word processors also support justified text. In
+              fact, this is how text is made for news papers and magainzes, and then published
+              in paper form and digitally.
+            MULTI_LINE_STRING
+            width 60
+            anchor 'center'
+            justify 'center' # other options are: 'left' and 'right'
+            font 'caption' # other options are: 'default', 'text', 'fixed', 'menu', 'heading', 'small_caption', 'icon', 'tooltip'
+            foreground 'blue'
+            relief 'sunken' # other options are: 'flat' (default), 'raised', 'solid', 'ridge', 'groove'
+          }
+        }
+        
+        frame(text: 'images') {
+          ['denmark', 'finland', 'norway'].each do |image_name|
+            label {
+              image File.expand_path("images/#{image_name}.png", __dir__)
+            }
+          end
+        }
+        
+        frame(text: 'background images') {
+          ['italy', 'france', 'mexico'].each do |image_name|
+            label {
+              text image_name.capitalize
+              image File.expand_path("images/#{image_name}.png", __dir__)
+              compound 'center'
+            }
+          end
+        }
+      }
+    }.open
+  end
+end
+
+HelloLabel.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_label'"
+```
+
+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_label.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello label left aligned](images/glimmer-dsl-tk-screenshot-sample-hello-label-left-aligned.png)
+
+![glimmer dsl tk screenshot sample hello label centered](images/glimmer-dsl-tk-screenshot-sample-hello-label-centered.png)
+
+![glimmer dsl tk screenshot sample hello label right aligned](images/glimmer-dsl-tk-screenshot-sample-hello-label-right-aligned.png)
+
+![glimmer dsl tk screenshot sample hello label justified](images/glimmer-dsl-tk-screenshot-sample-hello-label-justified.png)
+
+![glimmer dsl tk screenshot sample hello label images](images/glimmer-dsl-tk-screenshot-sample-hello-label-images.png)
+
+![glimmer dsl tk screenshot sample hello label background images](images/glimmer-dsl-tk-screenshot-sample-hello-label-background-images.png)
 
 ### Hello, Message Box!
 
@@ -560,13 +897,13 @@ root { |r|
 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'"
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_message_box'"
 ```
 
 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'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_message_box.rb
 ```
 
 Glimmer app:
@@ -607,7 +944,7 @@ 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_combobox'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_combobox.rb
 ```
 
 Glimmer app:
@@ -647,7 +984,7 @@ ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_list_single_selection'"
 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_list_single_selection'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_list_single_selection.rb
 ```
 
 Glimmer app:
@@ -685,7 +1022,7 @@ ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_list_multi_selection'"
 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_list_multi_selection'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_list_multi_selection.rb
 ```
 
 Glimmer app:
@@ -765,7 +1102,7 @@ ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_computed'"
 Alternatively, run from cloned project without [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
 
 ```
-ruby -e "require './lib/glimmer-dsl-tk'; require './samples/hello/hello_computed'"
+ruby -r ./lib/glimmer-dsl-tk.rb ./samples/hello/hello_computed.rb
 ```
 
 Glimmer app:

data/VERSION

@@ -1 +1 @@
-0.0.14
+0.0.18

data/lib/glimmer/tk/label_proxy.rb

@@ -27,14 +27,14 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class LabelProxy < WidgetProxy
-      # TODO specify attribute setters
-#       def tk_widget_has_attribute_setter?(attribute)
-#         if ['anchor', 'justify'].include?(attribute.to_s)
-#           true
-#         else
-#           super
-#         end
-#       end
+      def set_attribute(attribute, *args)
+        if attribute.to_s == 'font'
+          args[0] = "tk_#{args[0]}_font".camelcase(:upper) if (args[0].is_a?(Symbol) || args[0].is_a?(String)) && args[0].to_s == args[0].to_s.downcase
+          super
+        else
+          super
+        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

@@ -85,7 +85,7 @@ module Glimmer
         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
+        @tk.grid unless @tk.is_a?(::Tk::Toplevel)
         DEFAULT_INITIALIZERS[underscored_widget_name]&.call(@tk)
         @parent_proxy.post_initialize_child(self)
       end
@@ -117,13 +117,34 @@ module Glimmer
       end
       
       def tk_widget_has_attribute_getter_setter?(attribute)
-        @tk.respond_to?(attribute)
+        begin
+          # TK Widget currently doesn't support respond_to? properly, so I have to resort to this trick for now
+          @tk.send(attribute)
+          true
+        rescue
+          false
+        end
+      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) ||
+        (widget_custom_attribute_mapping[tk.class] and widget_custom_attribute_mapping[tk.class][attribute.to_s]) or
+          tk_widget_has_attribute_setter?(attribute) or
+          tk_widget_has_attribute_getter_setter?(attribute) or
+          has_state?(attribute) or
           respond_to?(attribute_setter(attribute), args)
       end
 
@@ -135,6 +156,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 +174,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 +187,12 @@ module Glimmer
       
       def widget_custom_attribute_mapping
         @widget_custom_attribute_mapping ||= {
+          ::Tk::Tile::TButton => {
+            'image' => {
+              getter: {name: 'image', invoker: lambda { |widget, args| @tk.image }},
+              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 }},
@@ -168,6 +204,10 @@ module Glimmer
               getter: {name: 'text', invoker: lambda { |widget, args| @tk.textvariable&.value }},
               setter: {name: 'text=', invoker: lambda { |widget, args| @tk.textvariable&.value = args.first }},
             },
+            'image' => {
+              getter: {name: 'image', invoker: lambda { |widget, args| @tk.image }},
+              setter: {name: 'image=', invoker: lambda { |widget, args| @tk.image = image_argument(args) }},
+            },
           },
           ::Tk::Tile::TEntry => {
             'text' => {
@@ -210,6 +250,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 +278,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

@@ -34,12 +34,61 @@ class HelloButton
     root {
       title 'Hello, Button!'
       
-      button {
-        text <= [self, :count, on_read: ->(value) { "Click To Increment: #{value}  " }]
+      frame {
+        grid row: 0, column: 0
         
-        command {
-          self.count += 1
+        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

data/samples/hello/hello_frame.rb

@@ -0,0 +1,71 @@
+# 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 HelloFrame
+  include Glimmer
+  
+  def launch
+    root {
+      title 'Hello, Frame!'
+      
+      frame { # frame simply contains widgets for visual organization via a layout
+        relief 'sunken'
+        
+        label {
+          grid row: 0, column: 0, columnspan: 4, padx: 5, pady: 5
+          text 'Enter Your Full Name'
+          font 'caption'
+          anchor 'center'
+        }
+
+        label {
+          grid row: 1, column: 0, padx: 5
+          text "First Name:"
+        }
+        
+        entry {
+          grid row: 1, column: 1, padx: 5
+        }
+        
+        label {
+          grid row: 2, column: 0, padx: 5
+          text "Last Name:"
+        }
+        
+        entry {
+          grid row: 2, column: 1, padx: 5
+        }
+      }
+      
+      frame { # an empty frame can specify width and height
+        grid padx: 7, pady: 7
+        width 200
+        height 100
+        borderwidth 3
+        relief 'sunken'
+      }
+    }.open
+  end
+end
+
+HelloFrame.new.launch

data/samples/hello/hello_label.rb

@@ -0,0 +1,110 @@
+# 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 HelloLabel
+  include Glimmer
+  
+  LABEL_FONTS = ['default', 'text', 'fixed', 'menu', 'heading', 'caption', 'small_caption', 'icon', 'tooltip']
+  LABEL_RELIEFS = ['flat', 'raised', 'sunken', 'solid', 'ridge', 'groove']
+  
+  def launch
+    root {
+      title 'Hello, Label!'
+      
+      notebook {
+        frame(text: 'left-aligned') {
+          3.times do |n|
+            label {
+              text "Field #{n + 1} / default font / flat relief"
+              width 60
+              anchor 'w'
+            }
+          end
+        }
+        
+        frame(text: 'centered') {
+          9.times do |n|
+            label {
+              text "Field #{n + 1} / fixed font / raised relief"
+              width 80
+              anchor 'center'
+              font 'fixed'
+              relief 'raised'
+            }
+          end
+        }
+        
+        frame(text: 'right-aligned') {
+          9.times do |n|
+            label {
+              text "Field #{n + 1} / small_caption font / ridge relief"
+              width 80
+              anchor 'e'
+              font 'small_caption'
+              relief 'ridge'
+            }
+          end
+        }
+        
+        frame(text: 'justified') {
+          label {
+            text <<~MULTI_LINE_STRING
+              This is a very long paragraph that spans multiple lines. It looks better and
+              is easier to read when justified. In fact, this is how to make it look like a
+              new paper column. That results in professional looking text. Magazines use the
+              same sort of justified text. Word processors also support justified text. In
+              fact, this is how text is made for news papers and magainzes, and then published
+              in paper form and digitally.
+            MULTI_LINE_STRING
+            width 60
+            anchor 'center'
+            justify 'center' # other options are: 'left' and 'right'
+            font 'caption' # other options are: 'default', 'text', 'fixed', 'menu', 'heading', 'small_caption', 'icon', 'tooltip'
+            foreground 'blue'
+            relief 'sunken' # other options are: 'flat' (default), 'raised', 'solid', 'ridge', 'groove'
+          }
+        }
+        
+        frame(text: 'images') {
+          ['denmark', 'finland', 'norway'].each do |image_name|
+            label {
+              image File.expand_path("images/#{image_name}.png", __dir__)
+            }
+          end
+        }
+        
+        frame(text: 'background images') {
+          ['italy', 'france', 'mexico'].each do |image_name|
+            label {
+              text image_name.capitalize
+              image File.expand_path("images/#{image_name}.png", __dir__)
+              compound 'center'
+            }
+          end
+        }
+      }
+    }.open
+  end
+end
+
+HelloLabel.new.launch

data/samples/hello/{hello_tab.rb → hello_notebook.rb}

@@ -21,12 +21,12 @@
 
 require 'glimmer-dsl-tk'
 
-class HelloTab
+class HelloNotebook
   include Glimmer
   
   def launch
     root {
-      title 'Hello, Tab!'
+      title 'Hello, Notebook!'
        
       notebook {
         frame(text: 'English') {
@@ -45,4 +45,4 @@ class HelloTab
   end
 end
 
-HelloTab.new.launch
+HelloNotebook.new.launch

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.14
+  version: 0.0.18
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-09 00:00:00.000000000 Z
+date: 2021-10-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -170,7 +170,7 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: 0.7.0
-description: Glimmer DSL for Tk (Ruby Desktop Development GUI Library)
+description: Glimmer DSL for Tk (MRI Ruby Desktop Development GUI Library)
 email: andy.am@gmail.com
 executables:
 - girb
@@ -214,11 +214,22 @@ files:
 - samples/hello/hello_combobox.rb
 - samples/hello/hello_computed.rb
 - samples/hello/hello_computed/contact.rb
+- samples/hello/hello_frame.rb
+- samples/hello/hello_label.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_notebook.rb
 - samples/hello/hello_world.rb
+- samples/hello/images/denmark.png
+- samples/hello/images/finland.png
+- samples/hello/images/france.png
+- samples/hello/images/germany.png
+- samples/hello/images/italy.png
+- samples/hello/images/mexico.png
+- samples/hello/images/netherlands.png
+- samples/hello/images/norway.png
+- samples/hello/images/usa.png
 homepage: http://github.com/AndyObtiva/glimmer-dsl-tk
 licenses:
 - MIT