glimmer-dsl-tk 0.0.28 → 0.0.32

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.28
+# [<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.32
 ## 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)
@@ -75,6 +75,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
       - [Common Attributes](#common-attributes)
       - [Common Themed Widget States](#common-themed-widget-states)
       - [Text API](#text-api)
+      - [Drag and Drop API](#drag-and-drop-api)
     - [Smart Defaults and Conventions](#smart-defaults-and-conventions)
       - [Grid Layout](#grid-layout)
       - [Image Attribute](#image-attribute)
@@ -90,6 +91,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [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)
+    - [Text Data-Binding](#text-data-binding)
     - [Spinbox Data-Binding](#spinbox-data-binding)
     - [Checkbutton Data-Binding](#checkbutton-data-binding)
     - [Radiobutton Data-Binding](#radiobutton-data-binding)
@@ -113,10 +115,17 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, Spinbox!](#hello-spinbox)
     - [Hello, Computed!](#hello-computed)
     - [Hello, Drag and Drop!](#hello-drag-and-drop)
+    - [Hello, Built-in Dialog!](#hello-built-in-dialog)
+    - [Hello, Separator!](#hello-separator)
+  - [Applications](#applications)
+    - [Glimmer Tk Calculator](#glimmer-tk-calculator)
+    - [Y3network Ruby UI](#y3network-ruby-ui)
+    - [CryptoPunks GUI](#cryptopunks-gui)
+  - [Process](#process)
+  - [Resources](#resources)
   - [Help](#help)
     - [Issues](#issues)
     - [Chat](#chat)
-  - [Process](#process)
   - [Planned Features and Feature Suggestions](#planned-features-and-feature-suggestions)
   - [Change Log](#change-log)
   - [Contributing](#contributing)
@@ -149,7 +158,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.28'
+gem 'glimmer-dsl-tk', '~> 0.0.32'
 ```
 
 And, then run:
@@ -191,7 +200,7 @@ The Glimmer GUI DSL follows these simple concepts in mapping from Tk syntax:
 - **Widget Keyword**: Any Tk widget (e.g. `Tk::Tile::Label`) or toplevel window (e.g. `TkRoot`) may be declared by its lower-case underscored name without the namespace (e.g. `label` or `root`). This is called a keyword and is represented in the Glimmer GUI DSL by a Ruby method behind the scenes.
 - **Args**: Any keyword method may optionally take arguments surrounded by parentheses (e.g. a `frame` nested under a `notebook` may receive tab options like `frame(text: 'Users')`, which gets used behind the scenes by Tk code such as `notebook.add tab, text: 'Users'`)
 - **Content/Options Block**: Any keyword may optionally be followed by a Ruby curly-brace block containing nested widgets (content) and attributes (options). Attributes are simply Tk option keywords followed by arguments and no block (e.g. `title 'Hello, World!'` under a `root`)
-- **Event Binding Block**: `on(event) {}` keyword receiving a Tk binding event name (e.g. `KeyPress` or `ComboboxSelected`). No need to surround event by `<>` as [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) takes care of that automatically.
+- **Event Binding Block**: `on(event) {}` keyword receiving a Tk binding event name (e.g. `KeyPress` or `ComboboxSelected`). Surrounding event by `<>` is optional as [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) can take care of that automatically.
 
 Example of an app written in [Tk](https://www.tcl.tk/) imperative syntax:
 
@@ -260,8 +269,14 @@ 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 {}`
 `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 {}`
+`choose_color(options = nil)` | None | None
+`choose_directory(options = nil)` | None | None
+`choose_font(options = nil) {|font| ... }` | None | None
 `combobox` | `state`, `text` | `'ComboboxSelected'`
 `entry` | `width`, `text`, `validate`, `show` (`'none', 'focus', 'focusin', 'focusout', 'key', or 'all'`) | `'validate'`, `'invalid'`, `'change'`, `validatecommand {}`, `invalidcommand {}`
+`get_multiple_open_file(options = nil)` | None | None
+`get_open_file(options = nil)` | None | None
+`get_save_file(options = nil)` | None | None
 `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
@@ -270,7 +285,11 @@ 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'`
+`separator` | `orient` (`'horizontal' (default) or 'vertical'`) | None
+`text` | `value`, [many more attributes](https://tcl.tk/man/tcl8.6/TkCmd/text.htm#M116) | `'modified'`, `'selection'`
+
+Options for `get_open_file` and `get_multiple_open_file` include:
+- `filetypes`: `Hash` of `'Group Name' => '.ext'` entries (e.g. `filetypes: {'PNG Images' => '.png'}`
 
 #### Common Attributes
 
@@ -322,9 +341,7 @@ keyword(args) | attributes | event bindings & callbacks
 
 #### Text API
 
-[Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) automatically provides a `text` attribute for the `text` widget that enables updating its content simply without worrying about whether to manually insert by index, delete, or append.
-
-Also, the `text` widget is enhanced by [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) to enable simpler manipulation of text options without dealing with [tags](https://tkdocs.com/tutorial/text.html) directly. Simply specify region to mutate and option/value or font_option/value, and [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) takes care of the rest by automating work of adding/removing [tags](https://tkdocs.com/tutorial/text.html) behind the scenes.
+The `text` widget is enhanced by [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) to enable simpler manipulation of text options without dealing with [tags](https://tkdocs.com/tutorial/text.html) directly. Simply specify region to mutate and option/value or font_option/value, and [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk) takes care of the rest by automating work of adding/removing [tags](https://tkdocs.com/tutorial/text.html) behind the scenes.
 
 - `add_format(region_start, region_end, option, value)`
 - `remove_format(region_start, region_end, option, value)`
@@ -338,6 +355,8 @@ Also, the `text` widget is enhanced by [Glimmer DSL for Tk](https://rubygems.org
 - `add_selection_font_format(region_start, region_end, font_option, value)`
 - `remove_selection_font_format(region_start, region_end, font_option, value)`
 - `toggle_selection_font_format(region_start, region_end, font_option, value)`
+- `text#insert_image(text_index, *image_args)`: inserts image into `text` `value` content at `text_index` location (e.g. `'insert'`)
+- `text#get_open_file_to_insert_image(text_index = 'insert')`: opens a file dialog to select one of the available image formats and then inserts image into `text` `value` content
 
 Available options:
 
@@ -381,6 +400,19 @@ Other useful built-in API methods:
 
 Check out the [Hello, Text!](#hello-text) sample for a good demonstration of the `text` widget features.
 
+#### Drag and Drop API
+
+Drag and drop works by simply designating a widget as a drag source with attribute `drag_source true`
+
+Alternatively, add listeners:
+- `on_drag_start {|event| ...}`: fires on drag start receiving an `event` arg to set `data` and configure `source`
+- `on_drag_motion {|event| ...}`: fires on drag motion receiving an `event` arg to check `event#drop_accepted`, and configure `source` and `tooltip`
+
+On the drop target, you simply define:
+- `on_drop { |event| ...}`: fires on drop, receiving an `event` arg with `event#target` and `event#data` (set during drag). You can even destroy the `event#source` if you want to get rid of the dragged widget.
+
+Learn more at the [Hello, Drag and Drop!](#hello-drag-and-drop) sample.
+
 ### Smart Defaults and Conventions
 
 #### Event Bindings
@@ -466,6 +498,8 @@ Example:
 ```
 
 Extra convenience options may be passed to `grid` when using [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk):
+- `column_span`: alias for `columnspan` keyword arg
+- `row_span`: alias for `rowspan` keyword arg
 - `min_width`: alias for `columnminsize` being called on `TkGrid.columnconfigure`
 - `min_height`: alias for `rowminsize` being called on `TkGrid.rowconfigure`
 - `column_weight`: alias for `columnweight` being called on `TkGrid.columnconfigure`
@@ -578,6 +612,24 @@ 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.
 
+### Text Data-Binding
+
+Example:
+
+This assumes a `Person` model with a `biography` attribute.
+
+```ruby
+  text {
+    value <=> [person, :biography]
+  }
+```
+
+That code binds the `value` of `text` to the `biography` attribute on the `person` model.
+
+It automatically handles all the Tk plumbing behind the scenes.
+
+More details can be found in [Hello, Text!](#hello-text) sample below.
+
 ### Spinbox Data-Binding
 
 Example:
@@ -698,6 +750,128 @@ 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)
 
+Code:
+
+```ruby
+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 1280
+      height 720
+      
+      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.value = 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.value)
+                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.value = File.read(file_path_for(selected_sample))
+            end
+          }
+        }
+      }
+      
+      @code_text = text {
+        grid row: 0, column: 1, column_weight: 1
+        value File.read(file_path_for(selected_sample))
+      }
+    }
+    @root.open
+  end
+end
+
+MetaSample.new.launch
+```
+
 ### Hello, World!
 
 Glimmer code (from [samples/hello/hello_world.rb](samples/hello/hello_world.rb)):
@@ -1389,8 +1563,6 @@ root { |r|
   title 'Hello, Message Box!'
   
   frame {
-    grid sticky: 'nsew', padx: 15, pady: 15
-    
     button {
       text 'Please Click To Win a Surprise'
       
@@ -1442,8 +1614,6 @@ root { |r|
   }
   
   frame {
-    grid sticky: 'nsew', padx: 15, pady: 15
-    
     label {
       grid row: 0, column: 0
       text 'Result:'
@@ -1471,7 +1641,6 @@ ruby -r ./lib/glimmer-dsl-tk.rb samples/hello/hello_message_box.rb
 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!
 
@@ -1700,6 +1869,8 @@ Glimmer app:
 
 ### Hello, Text!
 
+You may use the META+F shortcut to bring up the Find Dialog.
+
 Icons used in this sample were made by <a href="https://www.flaticon.com/authors/freepik" title="Freepik">Freepik</a> from <a href="https://www.flaticon.com/" title="Flaticon"> www.flaticon.com</a>
 
 Glimmer code (from [samples/hello/hello_text.rb](samples/hello/hello_text.rb)):
@@ -1711,14 +1882,47 @@ class HelloText
   include Glimmer
   
   COLOR_OPTIONS = %w[black purple blue green orange yellow red white].map(&:capitalize)
-  FOREGROUND_PROMPT = '<select foreground>'
-  BACKGROUND_PROMPT = '<select background>'
+  FONT_FAMILY_OPTIONS = ::TkFont.families
+  FOREGROUND_PROMPT = '<foreground>'
+  BACKGROUND_PROMPT = '<background>'
+  FONT_FAMILY_PROMPT = '<font family>'
+  FONT_SIZE_PROMPT = '<font size>'
   
   def initialize
     @foreground = FOREGROUND_PROMPT
     @background = BACKGROUND_PROMPT
+    @font_family = FONT_FAMILY_PROMPT
+    @font_size = FONT_SIZE_PROMPT
+    @document = <<~MULTI_LINE_STRING
+      According to the National Post, a heavy metal-loving high school principal in Canada will be allowed to keep her job, days after a public campaign to oust her made headlines around the globe.
+      
+      Parents at Eden High School in St. Catharines, Ontario launched a petition to remove principal Sharon Burns after discovering she's an IRON MAIDEN fan.
+      
+      The petition, titled "Eden High School Principal, Sharon Burns, Needs to Be Transferred Immediately!" read, "We are deeply disturbed that the principal assigned to the school blatantly showed Satanic symbols and her allegiance to Satanic practices on her public social media platforms where all the students can see them under @edenprincipal (not her personal account)."
+      
+      More than 500 people signed the petition to transfer Burns after she posted a picture of herself flashing the "devil horns" hand sign with a doll of the MAIDEN zombie mascot Eddie behind her as well as a personalized license plate reading "IRNMADEN" and a handwritten note that reads "Eddie 666" on a car's dashboard.
+      
+      
+      The number 666 is used to represent the devil, and is featured prominently in MAIDEN's artwork by the band, whose classic third album is titled "The Number Of The Beast".
+      
+      The petition was later updated to state that the demand for her transfer is not because of her love for metal, but for "openly displaying her own handmade sign with the 666 clearly displayed on it".
+      
+      The creator of the original petition wrote: "Sharon knows full well what she did was simply inappropriate, unnecessary and not professional but has yet to publicly admit so and is willing to allow people to believe a completely different story, making very real concerns seem petty."
+      
+      Meanwhile, a counter-petition supporting Burns garnered over 20,000 signatures.
+      
+      "It is ridiculous that a couple of parents judge her role as a principal only based on an Instagram post. (About liking the band IRON MAIDEN. That's it.) Eden High School is a public school. Not a Christian school," the petition titled "We need Mrs Burns" stated. "She has made Eden a safe space for so many people. She spreads nothing but love and kindness."
+      
+      After the complaints were aired, the District School Board of Niagara spoke with Burns and the parents who launched the petition, and the issue is over as far as the board is concerned, Kim Sweeney, the board's chief communications officer, told the National Post. No disciplinary action or policy changes were needed.
+      
+      "Our belief is that taste in music is subjective and we support that both students and staff enjoy a wide variety of genres," Sweeney said.
+      
+      The original petition has since been removed.
+    MULTI_LINE_STRING
   end
   
+  attr_accessor :document
+      
   attr_accessor :foreground
   
   def foreground_options
@@ -1731,15 +1935,65 @@ class HelloText
     [BACKGROUND_PROMPT] + COLOR_OPTIONS
   end
   
+  attr_accessor :font_family
+  
+  def font_family_options
+    [FONT_FAMILY_PROMPT] + FONT_FAMILY_OPTIONS
+  end
+  
+  attr_accessor :font_size
+  
+  def font_size_options
+    [FONT_SIZE_PROMPT] + (9..64).to_a.map(&:to_s)
+  end
+  
   def launch
     root {
       title 'Hello, Text!'
+      width 1280
+      height 800
       
       frame {
         grid row: 0, column: 0
         
+        label {
+          grid row: 0, column: 0, columnspan: 17
+          text 'Select a region of text and then apply formatting from the toolbar'
+        }
+        
+        column_index = -1
+        
+        combobox {
+          grid row: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :font_family, after_write: ->(value) { @text.toggle_selection_font_format('family', value == FONT_FAMILY_PROMPT ? 'Courier New' : value) }]
+        }
+        
+        combobox {
+          grid row: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :font_size, after_write: ->(value) { @text.toggle_selection_font_format('size', value == FONT_SIZE_PROMPT ? 13 : value) }]
+        }
+        
+        combobox {
+          grid row: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        }
+        
+        combobox {
+          grid row: 1, column: column_index += 1, column_weight: 1
+          readonly true
+          text <=> [self, :background, after_write: ->(value) { @text.add_selection_format('background', value == BACKGROUND_PROMPT ? 'white' : value) }]
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
         button {
-          grid row: 0, column: 0, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'B'
           style font: {weight: 'bold'}
           
@@ -1749,7 +2003,7 @@ class HelloText
         }
         
         button {
-          grid row: 0, column: 1, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'I'
           style font: {slant: 'italic'}
           
@@ -1759,7 +2013,7 @@ class HelloText
         }
         
         button {
-          grid row: 0, column: 2, column_weight: 0
+          grid row: 1, column: column_index += 1, column_weight: 0
           text 'U'
           style font: {underline: true}
           
@@ -1768,48 +2022,113 @@ class HelloText
           end
         }
         
-        combobox {
-          grid row: 0, column: 4, column_weight: 1
-          readonly true
-          text <=> [self, :foreground, after_write: ->(value) { @text.add_selection_format('foreground', value == FOREGROUND_PROMPT ? 'black' : value) }]
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
         }
         
-        combobox {
-          grid row: 0, column: 5, column_weight: 1
-          readonly true
-          text <=> [self, :background, after_write: ->(value) { @text.add_selection_format('background', value == BACKGROUND_PROMPT ? 'black' : value) }]
-        }
-      }
-      
-      @text = text {
-        grid row: 1, column: 0, row_weight: 1
-        wrap 'word'
-        text <<~MULTI_LINE_STRING
-          According to the National Post, a heavy metal-loving high school principal in Canada will be allowed to keep her job, days after a public campaign to oust her made headlines around the globe.
-          
-          Parents at Eden High School in St. Catharines, Ontario launched a petition to remove principal Sharon Burns after discovering she's an IRON MAIDEN fan.
-          
-          The petition, titled "Eden High School Principal, Sharon Burns, Needs to Be Transferred Immediately!" read, "We are deeply disturbed that the principal assigned to the school blatantly showed Satanic symbols and her allegiance to Satanic practices on her public social media platforms where all the students can see them under @edenprincipal (not her personal account)."
-          
-          More than 500 people signed the petition to transfer Burns after she posted a picture of herself flashing the "devil horns" hand sign with a doll of the MAIDEN zombie mascot Eddie behind her as well as a personalized license plate reading "IRNMADEN" and a handwritten note that reads "Eddie 666" on a car's dashboard.
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/cut.png", __dir__), subsample: 32
           
+          on('command') do
+            @text.text_cut
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/copy.png", __dir__), subsample: 32
           
-          The number 666 is used to represent the devil, and is featured prominently in MAIDEN's artwork by the band, whose classic third album is titled "The Number Of The Beast".
+          on('command') do
+            @text.text_copy
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/paste.png", __dir__), subsample: 32
           
-          The petition was later updated to state that the demand for her transfer is not because of her love for metal, but for "openly displaying her own handmade sign with the 666 clearly displayed on it".
+          on('command') do
+            @text.text_paste
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-left.png", __dir__), subsample: 32
           
-          The creator of the original petition wrote: "Sharon knows full well what she did was simply inappropriate, unnecessary and not professional but has yet to publicly admit so and is willing to allow people to believe a completely different story, making very real concerns seem petty."
+          on('command') do
+            @text.add_selection_format('justify', 'left')
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-center.png", __dir__), subsample: 32
           
-          Meanwhile, a counter-petition supporting Burns garnered over 20,000 signatures.
+          on('command') do
+            @text.add_selection_format('justify', 'center')
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/align-right.png", __dir__), subsample: 32
           
-          "It is ridiculous that a couple of parents judge her role as a principal only based on an Instagram post. (About liking the band IRON MAIDEN. That's it.) Eden High School is a public school. Not a Christian school," the petition titled "We need Mrs Burns" stated. "She has made Eden a safe space for so many people. She spreads nothing but love and kindness."
+          on('command') do
+            @text.add_selection_format('justify', 'right')
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/undo.png", __dir__), subsample: 32
           
-          After the complaints were aired, the District School Board of Niagara spoke with Burns and the parents who launched the petition, and the issue is over as far as the board is concerned, Kim Sweeney, the board's chief communications officer, told the National Post. No disciplinary action or policy changes were needed.
+          on('command') do
+            @text.edit_undo
+          end
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/redo.png", __dir__), subsample: 32
           
-          "Our belief is that taste in music is subjective and we support that both students and staff enjoy a wide variety of genres," Sweeney said.
+          on('command') do
+            @text.edit_redo
+          end
+        }
+        
+        separator {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          orient 'vertical'
+        }
+        
+        button {
+          grid row: 1, column: column_index += 1, column_weight: 0
+          image File.expand_path("images/picture.png", __dir__), subsample: 32
           
-          The original petition has since been removed.
-        MULTI_LINE_STRING
+          on('command') do
+            @text.get_open_file_to_insert_image
+          end
+        }
+      }
+      
+      @text = text {
+        grid row: 1, column: 0, row_weight: 1
+        wrap 'word'
+        undo true
+        value <=> [self, :document]
       }
     }.open
   end
@@ -1834,6 +2153,8 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello text](images/glimmer-dsl-tk-screenshot-sample-hello-text.png)
 
+![glimmer dsl tk screenshot sample hello text find dialog](images/glimmer-dsl-tk-screenshot-sample-hello-text-find-dialog.png)
+
 ### Hello, Spinbox!
 
 Glimmer code (from [samples/hello/hello_spinbox.rb](samples/hello/hello_spinbox.rb)):
@@ -2152,22 +2473,195 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello drag and drop](images/glimmer-dsl-tk-screenshot-sample-hello-drag-and-drop.png)
 
-## Help
+### Hello, Built-in Dialog!
 
-### Issues
+Glimmer code (from [samples/hello/hello_built_in_dialog.rb](samples/hello/hello_built_in_dialog.rb)):
 
-You may submit [issues](https://github.com/AndyObtiva/glimmer/issues) on [GitHub](https://github.com/AndyObtiva/glimmer/issues).
+```ruby
+require 'glimmer-dsl-tk'
 
-[Click here to submit an issue.](https://github.com/AndyObtiva/glimmer/issues)
+include Glimmer
 
-### Chat
+root { |w|
+  title 'Hello, Built-in Dialog!'
+  width 400
+  height 400
+  x 150
+  y 150
+  
+  frame {
+    %w[get_open_file get_multiple_open_file get_save_file choose_directory choose_color].each do |dialog|
+      button {
+        text dialog.split('_').map(&:capitalize).join(' ')
+        
+        on('command') do
+          result = send(dialog, parent: w)
+          @result_label.text = [result].flatten.join("\n")
+        end
+      }
+    end
+    
+    button {
+      text 'Choose Font'
+      
+      on('command') do
+        choose_font(family: 'Courier New', size: '30', weight: 'bold') do |chosen_font|
+          @result_label.text = chosen_font
+        end
+      end
+    }
+  }
+  
+  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
+```
 
-If you need live help, try to [![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)
+Run with [glimmer-dsl-tk](https://rubygems.org/gems/glimmer-dsl-tk) gem installed:
+
+```
+ruby -r glimmer-dsl-tk -e "require 'samples/hello/hello_built_in_dialog'"
+```
+
+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_built_in_dialog.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello built in dialog 1](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-get-open-file.png)
+![glimmer dsl tk screenshot sample hello built in dialog 2](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-get-open-file-done.png)
+
+![glimmer dsl tk screenshot sample hello built in dialog 3](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-choose-color.png)
+![glimmer dsl tk screenshot sample hello built in dialog 4](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-choose-color-done.png)
+
+![glimmer dsl tk screenshot sample hello built in dialog 5](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-choose-font.png)
+![glimmer dsl tk screenshot sample hello built in dialog 6](images/glimmer-dsl-tk-screenshot-sample-hello-built-in-dialog-choose-font-done.png)
+
+### Hello, Separator!
+
+Glimmer code (from [samples/hello/hello_separator.rb](samples/hello/hello_separator.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+root {
+  title 'Hello, Separator!'
+  width 200
+  height 200
+  
+  label {
+    grid row: 0, column: 0, min_width: 100, min_height: 100, column_weight: 0, sticky: 'nsew'
+    text 'Label 1'
+    anchor 'center'
+  }
+  
+  separator {
+    grid row: 0, column: 1
+    orient 'vertical'
+  }
+  
+  label {
+    grid row: 0, column: 2, min_width: 100, min_height: 100, sticky: 'nsew'
+    text 'Label 2'
+    anchor 'center'
+  }
+  
+  separator {
+    grid row: 1, column: 0, column_span: 3
+    # orient 'horizontal' # default
+  }
+  
+  label {
+    grid row: 2, column: 0, min_width: 100, min_height: 100, sticky: 'nsew'
+    text 'Label 3'
+    anchor 'center'
+  }
+  
+  separator {
+    grid row: 2, column: 1
+    orient 'vertical'
+  }
+  
+  label {
+    grid row: 2, column: 2, min_width: 100, min_height: 100, sticky: 'nsew'
+    text 'Label 4'
+    anchor 'center'
+  }
+}.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_separator'"
+```
+
+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_separator.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello separator](images/glimmer-dsl-tk-screenshot-sample-hello-separator.png)
+
+## Applications
+
+### Glimmer Tk Calculator
+
+"I wanted to try how it feels to write an UI in glimmer-dsl-tk so I decided to write an alternative version of the [Glimmer Calculator](https://github.com/AndyObtiva/glimmer-cs-calculator) that uses [Tk]([Tk](https://www.tcl.tk/)) and runs in the regular [MRI Ruby interpreter](https://www.ruby-lang.org/en/)." - [Ancor Gonzalez Sosa](https://github.com/ancorgs)
+
+https://github.com/ancorgs/glimmer-tk-calculator
+
+![Glimmer Tk Calculator Screenshot](https://raw.githubusercontent.com/ancorgs/glimmer-tk-calculator/master/screenshot.png)
+
+### Y3network Ruby UI
+
+https://github.com/ancorgs/y3network-ruby-ui
+
+### CryptoPunks GUI
+
+This is a Graphical User Interface for the famous [cryptopunks Ruby gem](https://github.com/cryptopunksnotdead/cryptopunks/tree/master/cryptopunks).
+
+https://github.com/AndyObtiva/cryptopunks-gui
+
+![CryptoPunks GUI Screenshot](https://raw.githubusercontent.com/AndyObtiva/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
 
 ## Process
 
 [Glimmer Process](https://github.com/AndyObtiva/glimmer/blob/master/PROCESS.md)
 
+## Resources
+
+- [Tk Tutorial](https://tkdocs.com/tutorial/index.html)
+- [Code Master Blog](https://andymaleh.blogspot.com/search/label/Tk)
+
+## Help
+
+### Issues
+
+If you encounter [issues](https://github.com/AndyObtiva/glimmer-dsl-tk/issues) that are not reported, discover missing features that are not mentioned in [TODO.md](TODO.md), or think up better ways to use [Tk](https://www.tcl.tk/) than what is possible with [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk), you may submit an [issue](https://github.com/AndyObtiva/glimmer-dsl-tk/issues/new) or [pull request](https://github.com/AndyObtiva/glimmer-dsl-tk/compare) on [GitHub](https://github.com).
+
+### Chat
+
+If you need live help, try to [![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)
+
 ## Planned Features and Feature Suggestions
 
 These features have been planned or suggested. You might see them in a future version of [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk). You are welcome to contribute more feature suggestions.