glimmer-dsl-tk 0.0.24 → 0.0.25

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 406613fff26324b7f91ddbaea11f01f90241b883f99a7732beb27a097eaae24d
-  data.tar.gz: d2e0828831b9cb7a6b017be648253972ad1cb8e8c48fa20046e6a3bd4b0b59f5
+  metadata.gz: 1c940ac2487be1d7d3088f773bd34aa32f089fa58867ccdcb241886a36cc4327
+  data.tar.gz: 814497bd3fda9e8b11b7388b4c7d35f0fc6ee966ed0d6e0e7ac010151eac3ca6
 SHA512:
-  metadata.gz: 9ba903e6e9d4e611e7c7f17c94f902a6a33945e07ab46136c30003ad5189b707a6485ab4f7c472503699ead75119b20d237e9bda1484f32373354dc74ba8e90a
-  data.tar.gz: c4d5f2c7f8338e3fdfc0452e97d7f0498b7b2ded75a586272f11cfadc61b71ee6db197d2b76441d2c2f925914ff61e6577d8fef36c106426267bd7a23c3d3d5f
+  metadata.gz: 78c56736b536e3e284b417840f96ed0bcf8598dec29e0e09ba9a5174dce2797e1973ae1039b4715658361bf4db9b37f1862040c3e84ae9d3d4df7252f4e77ae8
+  data.tar.gz: ca7968598a8281c48304899c4fd6bfc48e8f4647592cb41d3e6b657027f675ce974e7222dd34d7b6b0fa9caad94fc1d3f216161042d182a20c8f61f7a91f9482

data/CHANGELOG.md

@@ -1,5 +1,16 @@
 # Change Log
 
+## 0.0.25
+
+- Elaborate, Meta-Sample
+- Hello, Spinbox!
+- Support `spinbox` `command {}` and `on('increment') {}` / `on('decrement') {}`
+- Support `spinbox` `format` attribute (e.g. `format '%0.2f'`
+- Make `grid sticky: 'nsew', column_weight: 1` the default for all widgets (column weight is only applied to the first widget in a series of siblings)
+- Support `text` widget with `text` attribute/data-binding just like `entry`
+- Set `background '#ececec' if OS.mac?` on `root` by default
+- Support `'modified'`/`'selected'` event bindings for `text` widget
+
 ## 0.0.24
 
 - Hello, Entry!

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.24
+# [<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.25
 ## 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)
@@ -82,12 +82,14 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
       - [Notebook Frame](#notebook-frame)
       - [Icon Photo](#icon-photo)
   - [The Grid Geometry Manager](#the-grid-geometry-manager)
-  - [Bidirectional Data-Binding](#bidirectional-data-binding)
+  - [Data-Binding](#data-binding)
     - [Label Data-Binding](#label-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)
+    - [Spinbox Data-Binding](#spinbox-data-binding)
+    - [Text Data-Binding](#text-data-binding)
     - [Checkbutton Data-Binding](#checkbutton-data-binding)
     - [Radiobutton Data-Binding](#radiobutton-data-binding)
   - [Command Callback](#command-callback)
@@ -106,6 +108,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, List Single Selection!](#hello-list-single-selection)
     - [Hello, List Multi Selection!](#hello-list-multi-selection)
     - [Hello, Entry!](#hello-entry)
+    - [Hello, Spinbox!](#hello-spinbox)
     - [Hello, Computed!](#hello-computed)
   - [Help](#help)
     - [Issues](#issues)
@@ -143,7 +146,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.24'
+gem 'glimmer-dsl-tk', '~> 0.0.25'
 ```
 
 And, then run:
@@ -256,6 +259,7 @@ keyword(args) | attributes | event bindings & callbacks
 `checkbutton` | `text`, `variable` (Boolean), `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `onvalue` (default: `1`), `offvalue` (default: `0`) | `command {}`
 `combobox` | `state`, `text` | `'ComboboxSelected'`
 `entry` | `width`, `text`, `validate`, `show` (`'none', 'focus', 'focusin', 'focusout', 'key', or 'all'`) | `'validate'`, `'invalid'`, `'change'`, `validatecommand {}`, `invalidcommand {}`
+`spinbox` | `text`, `from`, `to`, `increment`, `format`, [more attributes](https://tcl.tk/man/tcl8.6/TkCmd/text.htm#M116) | `command {}`, `'increment'`, `'decrement'`
 `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
@@ -263,6 +267,7 @@ keyword(args) | attributes | event bindings & callbacks
 `notebook` | None | None
 `radiobutton` | `text`, `variable` (Boolean), `image` (optional keyword args: `subsample`, `zoom`, `from`, `to`, `shrink`, `compositingrule`), `compound` (`'center', 'top', 'bottom', 'left', 'right'`), `value` (default: `text`) | `command {}`
 `root` | `title`, `iconphoto`, `background`, `alpha`, `fullscreen?`, `topmost?`, `transparent?`, `stackorder`, `winfo_screendepth`, `winfo_screenvisual`, `winfo_screenwidth`, `winfo_screenheight`, `winfo_pixels('li')`, `winfo_screen`, `wm_maxsize`, `state` (`'normal', 'iconic', 'withdrawn', 'icon', 'zoomed'`) | `'DELETE_WINDOW'`, `'OPEN_WINDOW'`
+`text` | `text`, [many more attributes](https://tcl.tk/man/tcl8.6/TkCmd/text.htm#M116) | `'modified'`, `'selection'`
 
 #### Common Attributes
 
@@ -477,6 +482,46 @@ It automatically handles all the Tk plumbing behind the scenes.
 
 More details can be found in [Hello, Entry!](#hello-entry) and [Hello, Computed!](#hello-computed) samples below.
 
+### Spinbox Data-Binding
+
+Example:
+
+This assumes a `Person` model with a `donation` attribute.
+
+```ruby
+  spinbox {
+    from 1.0 # minimum value
+    to 150.0 # maximum value
+    increment 5.0 # increment on up and down
+    format '%0.2f'
+    text <=> [person, :country]
+  }
+```
+
+That code binds the `textvariable` value of the `spinbox` to the `donation` attribute on the `person` model.
+
+It automatically handles all the Tk plumbing behind the scenes.
+
+More details can be found in [Hello, Spinbox!](#hello-spinbox) sample below.
+
+### Text Data-Binding
+
+Example:
+
+This assumes a `Person` model with a `address` attribute.
+
+```ruby
+  text {
+    text <=> [person, :address]
+  }
+```
+
+That code binds the text content of `text` to the `address` attribute on the `person` model.
+
+It automatically handles all the Tk plumbing behind the scenes (including fine-grained inserts and deletes, abstracting them all away).
+
+More details can be found in [Glimmer Meta-Sample](#samples) below.
+
 ### Checkbutton Data-Binding
 
 Example:
@@ -547,6 +592,22 @@ More details can be found in the [Hello, Button!](#hello-button) sample below.
 
 ## Samples
 
+The easiest way to run samples is by launching the Glimmer Meta-Sample (the Sample of Samples).
+
+Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -r glimmer-dsl-tk -e "require 'samples/elaborate/meta_sample'"
+```
+
+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/elaborate/meta_sample.rb
+```
+
+![glimmer dsl tk screenshot sample meta sample](images/glimmer-dsl-tk-screenshot-sample-elaborate-meta-sample.png)
+
 ### Hello, World!
 
 Glimmer code (from [samples/hello/hello_world.rb](samples/hello/hello_world.rb)):
@@ -1625,6 +1686,83 @@ Glimmer app:
 ![glimmer dsl tk screenshot sample hello entry](images/glimmer-dsl-tk-screenshot-sample-hello-entry.png)
 ![glimmer dsl tk screenshot sample hello entry validated](images/glimmer-dsl-tk-screenshot-sample-hello-entry-validated.png)
 
+### Hello, Spinbox!
+
+Glimmer code (from [samples/hello/hello_spinbox.rb](samples/hello/hello_spinbox.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+class HelloSpinbox
+  class Person
+    attr_accessor :donation
+  end
+  
+  include Glimmer
+  
+  def initialize
+    @person = Person.new
+    @person.donation = 5.0 # in dollars
+  end
+  
+  def launch
+    root {
+      title 'Hello, Spinbox!'
+      
+      label {
+        text 'Please select the amount you would like to donate to the poor:'
+      }
+      
+      frame {
+        label {
+          grid row: 0, column: 0
+          text 'Amount:'
+          font 'caption'
+        }
+        
+        label {
+          grid row: 0, column: 1
+          text '$'
+        }
+        
+        spinbox { |sb|
+          grid row: 0, column: 2
+          from 1.0 # minimum value
+          to 150.0 # maximum value
+          increment 5.0 # increment on up and down
+          format '%0.2f'
+          text <=> [@person, :donation]
+        }
+        
+        label {
+          grid row: 1, column: 0, columnspan: 3
+          text <=> [@person, :donation, on_read: ->(value) { "Thank you for your donation of $#{"%.2f" % value.to_f}"}]
+        }
+
+      }
+    }.open
+  end
+end
+
+HelloSpinbox.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_spinbox'"
+```
+
+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_spinbox.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello spinbox](images/glimmer-dsl-tk-screenshot-sample-hello-spinbox.png)
+
 ### Hello, Computed!
 
 Glimmer code (from [samples/hello/hello_computed.rb](samples/hello/hello_computed.rb)):

data/VERSION

@@ -1 +1 @@
-0.0.24
+0.0.25

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

@@ -0,0 +1,39 @@
+# Copyright (c) 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/spinbox_proxy'
+
+module Glimmer
+  module DSL
+    module Tk
+      class FormatExpression < StaticExpression
+        def can_interpret?(parent, keyword, *args, &block)
+          super && parent.is_a?(Glimmer::Tk::SpinboxProxy) && args.size == 1 && block.nil?
+        end
+        
+        def interpret(parent, keyword, *args, &block)
+          parent.tk.format(*args)
+        end
+      end
+    end
+  end
+end

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

@@ -38,7 +38,7 @@ module Glimmer
   
         def interpret(parent, keyword, *args, &block)
           args = [parent] + args unless parent.nil?
-          Glimmer::Tk::RootProxy.new(*args)
+          Glimmer::Tk::RootProxy.new(*args, &block)
         end
         
         def add_content(parent, keyword, *args, &block)

data/lib/glimmer/tk/frame_proxy.rb

@@ -20,6 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/notebook_proxy'
 
 module Glimmer
   module Tk
@@ -38,6 +39,13 @@ module Glimmer
         end
         super
       end
+      
+      private
+      
+      def initialize_defaults
+        super unless @parent_proxy.is_a?(NotebookProxy)
+        self.padding = 15
+      end
     end
   end
 end

data/lib/glimmer/tk/radiobutton_proxy.rb

@@ -31,7 +31,7 @@ module Glimmer
       include Commandable
       
       def sibling_radio_buttons
-        @parent_proxy.children.select {|child| child.is_a?(RadiobuttonProxy)}
+        @parent_proxy.children.select {|child| child.is_a?(RadiobuttonProxy) && child != self}
       end
       
       private

data/lib/glimmer/tk/root_proxy.rb

@@ -31,9 +31,11 @@ module Glimmer
       DEFAULT_WIDTH = 190
       DEFAULT_HEIGHT = 95
       
-      def initialize(*args)
+      def initialize(*args, &block)
         @tk = ::TkRoot.new
         @tk.minsize = DEFAULT_WIDTH, DEFAULT_HEIGHT
+        initialize_defaults
+        post_add_content if block.nil?
       end
 
       def post_add_content
@@ -176,6 +178,10 @@ module Glimmer
       def geometry_signs
         geometry.chars.select {|char| char.match(/[+-]/)}
       end
+      
+      def initialize_defaults
+        self.background = '#ececec' if OS.mac?
+      end
     end
   end
 end

data/lib/glimmer/tk/spinbox_proxy.rb

@@ -0,0 +1,52 @@
+# Copyright (c) 2020-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/text_variable_owner'
+
+module Glimmer
+  module Tk
+    # Proxy for Tk::Tile::TSpinbox
+    #
+    # Follows the Proxy Design Pattern
+    class SpinboxProxy < WidgetProxy
+      include TextVariableOwner
+      
+      def command_block=(proc)
+        tk.command(proc)
+      end
+    
+      def handle_listener(listener_name, &listener)
+        case listener_name.to_s.downcase
+        when 'command', 'change'
+          command(&listener)
+        when 'increment', '<increment>', '<<increment>>'
+          bind('<Increment>', listener)
+        when 'decrement', '<decrement>', '<<decrement>>'
+          bind('<Decrement>', listener)
+        else
+          super
+        end
+      end
+      
+    end
+  end
+end

data/lib/glimmer/tk/text_proxy.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/tk/widget_proxy'
+
+module Glimmer
+  module Tk
+    # Proxy for Tk::Text
+    #
+    # Follows the Proxy Design Pattern
+    class TextProxy < WidgetProxy
+      def handle_listener(listener_name, &listener)
+        listener_name = listener_name.to_s.downcase
+        case listener_name
+        when '<<modified>>', '<modified>', 'modified'
+          modified_listener = Proc.new do |*args|
+            listener.call(*args)
+            @tk.modified = false
+          end
+          bind('<Modified>', modified_listener)
+        when '<<selection>>', '<selection>', 'selection'
+          bind('<Selection>', listener)
+        else
+          super
+        end
+      end
+    
+      def text=(value)
+        if value != @text
+          @text = value
+          delete('1.0', 'end')
+          insert('end', value)
+        end
+      end
+      
+      def text(value = nil)
+        if value.nil?
+          @text = get("1.0", 'end')
+        else
+          self.text = value
+        end
+      end
+      
+      private
+      
+      def initialize_defaults
+        super
+        self.padx = 5
+        self.pady = 5
+      end
+    end
+  end
+end

data/lib/glimmer/tk/widget_proxy.rb

@@ -74,8 +74,8 @@ 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
-        initialize_defaults
         @parent_proxy.post_initialize_child(self)
+        initialize_defaults
         post_add_content if @block.nil?
       end
       
@@ -276,6 +276,12 @@ module Glimmer
               setter: {name: 'text=', invoker: lambda { |widget, args| @tk.textvariable&.value = args.first }},
             },
           },
+          ::Tk::Tile::TSpinbox => {
+            'text' => {
+              getter: {name: 'text', invoker: lambda { |widget, args| @tk.textvariable&.value }},
+              setter: {name: 'text=', invoker: lambda { |widget, args| @tk.textvariable&.value = args.first }},
+            },
+          },
           ::Tk::Root => {
             'text' => {
               getter: {name: 'text', invoker: lambda { |widget, args| @tk.title }},
@@ -309,11 +315,25 @@ module Glimmer
           },
           ::Tk::Tile::TEntry => {
             'text' => lambda do |observer|
-              tk.textvariable.trace('write') {
+              @tk.textvariable.trace('write') {
                 observer.call(@tk.textvariable.value)
               }
             end,
           },
+          ::Tk::Tile::TSpinbox => {
+            'text' => lambda do |observer|
+              @tk.command {
+                observer.call(@tk.textvariable&.value)
+              }
+            end,
+          },
+          ::Tk::Text => {
+            'text' => lambda do |observer|
+              handle_listener('modified') do
+                observer.call(text)
+              end
+            end,
+          },
           ::Tk::Tile::TRadiobutton => {
             'variable' => lambda do |observer|
               @tk.command {
@@ -384,7 +404,10 @@ module Glimmer
       private
       
       def initialize_defaults
-        grid unless @tk.is_a?(::Tk::Toplevel)
+        options = {}
+        options[:sticky] = 'nsew'
+        options[:column_weight] = 1 if @parent_proxy.children.count == 1
+        grid(options) unless @tk.is_a?(::Tk::Toplevel)
       end
     end
   end

data/samples/elaborate/meta_sample.rb

@@ -0,0 +1,138 @@
+# 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'
+require 'facets'
+require 'fileutils'
+
+class MetaSample
+  include Glimmer
+  
+  attr_accessor :selected_sample_index
+  
+  def initialize
+    @selected_sample_index = 0
+  end
+  
+  def samples
+    if @samples.nil?
+      sample_files = Dir.glob(File.join(File.expand_path('../hello', __dir__), '**', 'hello_*.rb'))
+      sample_file_names = sample_files.map { |f| File.basename(f, '.rb') }
+      sample_file_names = sample_file_names.reject { |f| f == 'meta_sample' || f.match(/\d$/) }
+      @samples = sample_file_names.map { |f| f.underscore.titlecase }
+    end
+    @samples
+  end
+  
+  def file_path_for(sample)
+    File.join(File.expand_path('../hello', __dir__), "#{sample.underscore}.rb")
+  end
+  
+  def glimmer_dsl_tk_file
+    File.expand_path('../../lib/glimmer-dsl-tk', __dir__)
+  end
+  
+  def selected_sample
+    samples[@selected_sample_index]
+  end
+  
+  def run_sample(sample)
+    Thread.new do
+      command = "ruby -r #{glimmer_dsl_tk_file} #{sample} 2>&1"
+      result = ''
+      IO.popen(command) do |f|
+        f.each_line do |line|
+          result << line
+          puts line
+          $stdout.flush
+        end
+      end
+      ::Tk.after(100) do
+        message_box(parent: @root, title: 'Error Running Sample', message: result) if result.downcase.include?('error')
+      end
+    end
+  end
+  
+  def launch
+    @root = root {
+      title 'Glimmer Meta-Sample'
+      width 700
+      height 500
+      
+      frame {
+        grid row: 0, column: 0, column_weight: 0, row_weight: 1
+        
+        samples.each_with_index do |sample, index|
+          radiobutton {
+            text sample
+            variable <=> [self, :selected_sample_index, on_write: ->(v) {v ? index : selected_sample_index}, on_read: ->(v) {v == index}]
+            
+            on('command') do
+              @selected_sample_index = index
+              @code_text.text = File.read(file_path_for(selected_sample))
+            end
+          }
+        end
+        
+        frame {
+          button {
+            grid row: 0, column: 0
+            text 'Launch'
+            
+            on('command') do
+              begin
+                parent_dir = File.join(Dir.home, '.glimmer-dsl-tk', 'samples', 'hello')
+                FileUtils.mkdir_p(parent_dir)
+                sample_file = File.join(parent_dir, "#{selected_sample.underscore}.rb")
+                File.write(sample_file, @code_text.text)
+                FileUtils.cp_r(File.expand_path('../../icons', __dir__), File.dirname(File.dirname(parent_dir)))
+                FileUtils.cp_r(File.expand_path('../hello/images', __dir__), parent_dir)
+                sample_namespace_directory = File.expand_path("../hello/#{selected_sample.underscore}", __dir__)
+                FileUtils.cp_r(sample_namespace_directory, parent_dir) if Dir.exist?(sample_namespace_directory)
+                run_sample(sample_file)
+              rescue => e
+                puts e.full_message
+                puts 'Unable to write code changes! Running original sample...'
+                run_sample(file_path_for(selected_sample))
+              end
+            end
+          }
+          button {
+            grid row: 0, column: 1
+            text 'Reset'
+            
+            on('command') do
+              @code_text.text = File.read(file_path_for(selected_sample))
+            end
+          }
+        }
+      }
+      
+      @code_text = text {
+        grid row: 0, column: 1, column_weight: 1
+        text File.read(file_path_for(selected_sample))
+      }
+    }
+    @root.open
+  end
+end
+
+MetaSample.new.launch

data/samples/hello/hello_checkbutton.rb

@@ -80,7 +80,6 @@ class HelloCheckbutton
   def launch
     root {
       title 'Hello, Checkbutton!'
-      background '#ececec' if OS.mac?
       
       label {
         text 'Check all snow activities you are interested in:'

data/samples/hello/hello_radiobutton.rb

@@ -1,3 +1,24 @@
+# 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 HelloRadiobutton
@@ -27,7 +48,6 @@ class HelloRadiobutton
   def launch
     root {
       title 'Hello, Radio!'
-      background '#ececec' if OS.mac?
       
       label {
         text 'Gender:'

data/samples/hello/hello_spinbox.rb

@@ -0,0 +1,75 @@
+# 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 HelloSpinbox
+  class Person
+    attr_accessor :donation
+  end
+  
+  include Glimmer
+  
+  def initialize
+    @person = Person.new
+    @person.donation = 5.0 # in dollars
+  end
+  
+  def launch
+    root {
+      title 'Hello, Spinbox!'
+      
+      label {
+        text 'Please select the amount you would like to donate to the poor:'
+      }
+      
+      frame {
+        label {
+          grid row: 0, column: 0
+          text 'Amount:'
+          font 'caption'
+        }
+        
+        label {
+          grid row: 0, column: 1
+          text '$'
+        }
+        
+        spinbox {
+          grid row: 0, column: 2
+          from 1.0 # minimum value
+          to 150.0 # maximum value
+          increment 5.0 # increment on up and down
+          format '%0.2f'
+          text <=> [@person, :donation]
+        }
+        
+        label {
+          grid row: 1, column: 0, columnspan: 3
+          text <=> [@person, :donation, on_read: ->(value) { "Thank you for your donation of $#{"%.2f" % value.to_f}"}]
+        }
+
+      }
+    }.open
+  end
+end
+
+HelloSpinbox.new.launch

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.24
+  version: 0.0.25
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-15 00:00:00.000000000 Z
+date: 2021-10-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -217,6 +217,7 @@ files:
 - lib/glimmer/dsl/tk/block_attribute_expression.rb
 - lib/glimmer/dsl/tk/data_binding_expression.rb
 - lib/glimmer/dsl/tk/dsl.rb
+- lib/glimmer/dsl/tk/format_expression.rb
 - lib/glimmer/dsl/tk/list_selection_data_binding_expression.rb
 - lib/glimmer/dsl/tk/message_box_expression.rb
 - lib/glimmer/dsl/tk/on_expression.rb
@@ -234,10 +235,13 @@ files:
 - lib/glimmer/tk/notebook_proxy.rb
 - lib/glimmer/tk/radiobutton_proxy.rb
 - lib/glimmer/tk/root_proxy.rb
+- lib/glimmer/tk/spinbox_proxy.rb
+- lib/glimmer/tk/text_proxy.rb
 - lib/glimmer/tk/text_variable_owner.rb
 - lib/glimmer/tk/treeview_proxy.rb
 - lib/glimmer/tk/variable_owner.rb
 - lib/glimmer/tk/widget_proxy.rb
+- samples/elaborate/meta_sample.rb
 - samples/hello/hello_button.rb
 - samples/hello/hello_checkbutton.rb
 - samples/hello/hello_combobox.rb
@@ -252,6 +256,7 @@ files:
 - samples/hello/hello_notebook.rb
 - samples/hello/hello_radiobutton.rb
 - samples/hello/hello_root.rb
+- samples/hello/hello_spinbox.rb
 - samples/hello/hello_world.rb
 - samples/hello/images/denmark.png
 - samples/hello/images/finland.png