glimmer-dsl-tk 0.0.37 → 0.0.41

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2454b5a3d7bd7159328cab0c0c82a4ebcdb54066bec28a1549e3cbca61d1bd8d
-  data.tar.gz: 7535984b2838617c7a40ee336c653e6c5c9029c7e49b3a4a13f1815897ecec8d
+  metadata.gz: a6ce065d32aa469d1e55999bdcd730d0837110d6fb7cda8fd8992e297c9ed600
+  data.tar.gz: 48c7e0517d0135656c36698cee1d2ccf65c342aed1793c135766e860572dec6a
 SHA512:
-  metadata.gz: d377872669979a76bf149aec8683ade86fadd7efa50817abe4f8e582a0f3b53ac354759f3e7e6aa4e683fcd6296308eb7339c049718fcd7c673e4452f1052614
-  data.tar.gz: b321a3e34b16f9a1719797c51f25521a48c4c12ba39f92a730618dedc54f564754f24e73f60118023213583e3629c188643684cc7d326628613c982c0a87e7d0
+  metadata.gz: 4f06cb1144383c64b489f58016c880c4fb82d506ce63f8dd1953448748017b9f3910c0d7792d926d5479bc89564a503639b406e3d62728a690e11ef8e81e3126
+  data.tar.gz: 2d6fa5b4cede272fd2aeec4a83a58cfd2dc8d59157692052b179d4ec91a1a7925061f20bf0dcc06160fb9d375ac493c5f75169106ea61878a011a8c5fec022f9

data/CHANGELOG.md

@@ -1,7 +1,46 @@
 # Change Log
 
+## 0.0.41
+
+- Support `scrollbar_frame` Glimmer custom widget as a frame that automatically provides scrollbars when its content's size exceeds its size
+- Support `scrollbar_frame` `xscrollbar` and `yscrollbar` attributes (to enable/disable via boolean or set to a custom externally instantiated scrollbar if needed)
+- Hello, Scrollbar Frame!
+
+## 0.0.40
+
+- Hello, Scrollbar!
+- Default to 'alt' Tk theme on Linux
+- Added Windows/Linux accelerators to Hello, Menu Bar!
+- Fix issue with extra junk character added to beginning of Hello, Checkbutton! by mistake
+- Fix issue with Hello, Menu Bar! help menu item crashing in Linux (it is restricted to Mac only)
+- Fix issue with Hello, Text! focus losing selection in Linux upon setting background/foreground/font/font-size
+
+## 0.0.39
+
+- Add Language and Language Name menus to Hello, Menu Bar! sample
+- Update Hello, Button! sample to indicate compound option value on image text buttons
+- Support Mac `menu_item(:about, label: ) { on('command') {} }`
+- Support Mac `menu_item(:preferences) { on('command') {} }`
+- Support Mac `menu_item(:help) { on('command') {} }`
+- Support Mac `menu_item(:quit) { on('command') {} }`
+- Support Mac/X11 `'Help'` menu
+- Support Mac `'Window'` menu
+- Support Windows `'System'` menu
+
+
+## 0.0.38
+
+- Hello, Menu Bar! sample
+- Support `menu` and `menu_item` widgets including `:command` (default), `:separator`, `:radiobutton`, and `:checkbutton` styles
+- Support menu item `accelerator` attribute
+- Support menu item `selection` attribute
+- Support menu item `state` attribute
+- Support menu item command event, which is triggered on mouse/keyboard menu item selection or via accelerator
+- Support `toplevel` `iconphoto` (more conveniently via direct path) and `resizable` attributes
+
 ## 0.0.37
 
+- Support `focus: true` or `focus: [integer]` option for all selection formatting methods (`add_selection_format`, `remove_selection_format`, `toggle_selection_format`, `add_selection_font_format`, `remove_selection_font_format`, `toggle_selection_font_format`)
 - Have `text` widget grab focus after every formatting modification in Hello, Text! (e.g. after clicking `B` for Bold)
 
 ## 0.0.36

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.37
+# [<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.41
 ## 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)
@@ -57,7 +57,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
 - [glimmer-dsl-swt](https://github.com/AndyObtiva/glimmer-dsl-swt): Glimmer DSL for SWT (JRuby Desktop Development GUI Framework)
 - [glimmer-dsl-opal](https://github.com/AndyObtiva/glimmer-dsl-opal): Glimmer DSL for Opal (Pure Ruby Web GUI and Auto-Webifier of Desktop Apps)
 - [glimmer-dsl-libui](https://github.com/AndyObtiva/glimmer-dsl-libui): Glimmer DSL for LibUI (Prerequisite-Free Ruby Desktop Development GUI Library)
-- [glimmer-dsl-gtk](https://github.com/AndyObtiva/glimmer-dsl-gtk): Ruby-GNOME Desktop Development GUI Library
+- [glimmer-dsl-gtk](https://github.com/AndyObtiva/glimmer-dsl-gtk): Glimmer DSL for GTK (Ruby-GNOME Desktop Development GUI Library)
 - [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)
 
@@ -82,6 +82,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
       - [Image Attribute](#image-attribute)
       - [Frame Padding](#frame-padding)
       - [Notebook Frame](#notebook-frame)
+      - [Menu Item Accelerator](#menu-item-accelerator)
       - [Icon Photo](#icon-photo)
       - [Root Background](#root-background)
       - [Toplevel Mac Style](#toplevel-mac-style)
@@ -120,10 +121,14 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, Drag and Drop!](#hello-drag-and-drop)
     - [Hello, Built-in Dialog!](#hello-built-in-dialog)
     - [Hello, Separator!](#hello-separator)
+    - [Hello, Scrollbar!](#hello-scrollbar)
+    - [Hello, Scrollbar Frame!](#hello-scrollbar-frame)
+    - [Hello, Menu Bar!](#hello-menu-bar)
   - [Applications](#applications)
     - [Glimmer Tk Calculator](#glimmer-tk-calculator)
     - [Y3network Ruby UI](#y3network-ruby-ui)
     - [CryptoPunks GUI](#cryptopunks-gui)
+    - [Circule](#circule)
   - [Process](#process)
   - [Resources](#resources)
   - [Help](#help)
@@ -146,6 +151,21 @@ For example, on the Mac, you can:
 - Run: `rvm install 3.0.2 --enable-shared --enable-pthread --with-tk --with-tcl`
 - Run: `gem install tk -v0.4.0`
 
+For example, on Windows, you can follow the [instructions over here](https://tkdocs.com/tutorial/install.html), specifically the following:
+- Install Ruby+Devkit (including MSYS/MINGW toolchains) through Windows Installer: https://rubyinstaller.org/downloads/
+- Install the ActiveTcl Windows package from [ActiveState.com](https://activestate.com)
+- Follow this instruction: "First, Ruby needs to find the tcl86t.dll and tk86t.dll shared libraries. These are located in C:\ActiveTcl\bin. Make a copy of them somewhere Ruby can find them, e.g. C:\Ruby26\bin."
+- Setup environment variables TCL_LIBRARY=C:\ActiveTcl\lib\tcl8.6 & TK_LIBRARY=C:\ActiveTcl\lib\tk8.6
+- Run: `gem install tk -v0.4.0`
+
+For example, on Linux, you can:
+- Download the ActiveTcl Linux package from [ActiveState.com](https://activestate.com)
+- Extract the tar gz file using command `tar zxvf ActiveTcl-version-number.tar.gz`
+- Run included install shell script `./ActiveTcl-version-number/install.sh`
+- Install [RVM](https://rvm.io/) by running `\curl -sSL https://get.rvm.io | bash -s stable` (and run `curl -sSL https://rvm.io/pkuczynski.asc | gpg --import -` if needed for mentioned security reasons)
+- Run: `rvm install 3.0.2 --enable-shared --enable-pthread --with-tk --with-tcl`
+- Run: `gem install tk -v0.4.0`
+
 Afterwards, if you open `irb`, you should be able to run `require 'tk'` successfully.
 
 ## Setup
@@ -161,7 +181,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.37'
+gem 'glimmer-dsl-tk', '~> 0.0.41'
 ```
 
 And, then run:
@@ -285,11 +305,18 @@ keyword(args) | attributes | event bindings & callbacks
 `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
+`menu(label: nil) (label is nil if nested under root/toplevel for menu bar)` | None | None
+`menu_item(style = :command, label: , underline: )` (style also can be `:radiobutton`, `:checkbutton`, `:separator`, `:about`, `:preferences`, `:quit`, `:help`) | `state`, `accelerator`, `selection` & `variable` (if `:radiobutton` or `:checkbutton`), `image`, `compound` | `command`
 `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'`
+`root` | `title`, `iconphoto`, `background`, `alpha`, `escapable`, `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'`
+`scrollbar` | `orient` | `command`
+`scrollbar_frame` | `xscrollbar` (Boolean or scrollbar widget proxy), `yscrollbar` (Boolean or scrollbar widget proxy) | None
 `separator` | `orient` (`'horizontal' (default) or 'vertical'`) | None
+`toplevel` | `title`, `iconphoto`, `background`, `alpha`, `escapable`, `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'`
 `text` | `value`, [many more attributes](https://tcl.tk/man/tcl8.6/TkCmd/text.htm#M116) | `'modified'`, `'selection'`, `'insert_mark_moved'` (alias: `'insert_mark_move', 'InsertMarkMove', 'InsertMarkMoved'`)
+`x_scrollbar` | `orient` (`'horizontal'`) | `command`
+`y_scrollbar` | `orient` (`'vertical'`) | `command`
 
 Options for `get_open_file` and `get_multiple_open_file` include:
 - `filetypes`: `Hash` of `'Group Name' => '.ext'` entries (e.g. `filetypes: {'PNG Images' => '.png'}`
@@ -409,8 +436,44 @@ Other useful built-in API methods:
 - `text_edit_undo`
 - `text_edit_redo`
 
+If you would like to add scrollbars, you can set the `xscrollbar` and `yscrollbar` attributes.
+
+Example of adding a vertical `scrollbar`:
+
+```ruby
+    textarea_yscrollbar = y_scrollbar {
+      grid row:0, column:1
+    }
+
+    textarea = text {
+      grid row:0, column:0, column_weight: 0
+      wrap "word"
+      yscrollbar textarea_yscrollbar
+    }
+```
+
+Example of adding both a horizontal `scrollbar` and a vertical `scrollbar` (must disable `wrap "word"` for horizontal scrolling to work):
+
+```ruby
+    textarea_xscrollbar = x_scrollbar {
+      grid row:1, column:0, column_span: 2, row_weight: 0
+    }
+
+    textarea_yscrollbar = y_scrollbar {
+      grid row:0, column:1
+    }
+
+    textarea = text {
+      grid row:0, column:0, column_weight: 0
+      xscrollbar textarea_xscrollbar
+      yscrollbar textarea_yscrollbar
+    }
+```
+
 Check out the [Hello, Text!](#hello-text) sample for a good demonstration of the `text` widget features.
 
+Check out the [Hello, Scrollbar!](#hello-scrollbar) sample for a `text` demo with scrolling.
+
 #### Drag and Drop API
 
 Drag and drop works by simply designating a widget as a drag source with attribute `drag_source true`
@@ -456,6 +519,10 @@ Frames have a padding of `15` all around by default to produce more user-friendl
 
 When nesting `frame` under `notebook`, you can pass a `:text` keyword argument to indicate the tab title.
 
+#### Menu Item Accelerator
+
+`menu_item` `accelerator` is automatically bound to the `command` set inside `menu_item` content (no need to do manual binding as per [Tk docs](https://tkdocs.com/tutorial/menus.html)).
+
 #### Icon Photo
 
 The `iconphoto` attribute on `root` is set to the Glimmer icon by default if no icon photo is supplied.
@@ -2920,6 +2987,447 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello separator](images/glimmer-dsl-tk-screenshot-sample-hello-separator.png)
 
+### Hello, Scrollbar!
+
+Glimmer code (from [samples/hello/hello_scrollbar.rb](samples/hello/hello_scrollbar.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+root {
+  title 'Hello, Scrollbar!'
+  width 400
+  height 500
+  
+  notebook {
+    grid sticky: 'nsew'
+    
+    frame(text: 'Scrollable List') {
+      @list = list {
+        grid sticky: 'nsew', row: 0, column: 0, row_weight: 1, column_weight: 1
+        items 40.times.map {|n| "Item #{n + 1} of a very long list" }
+      }
+      
+      @scrollbar = scrollbar {
+        grid row: 0, column: 1
+        # orient 'vertical' # default
+      }
+      @list.yscrollbar @scrollbar
+    }
+    
+    frame(text: 'Scrollable Text') {
+      @text = text {
+        grid sticky: 'nsew', row: 0, column: 0, row_weight: 1, column_weight: 1
+        value ("This is a random sample of text that will repeat over and over and over"*2 + "\n")*40
+      }
+      
+      @yscrollbar = scrollbar {
+        grid row: 0, column: 1
+        # orient 'vertical' # default
+      }
+      @text.yscrollbar @yscrollbar
+       
+      @xscrollbar = scrollbar {
+        grid row: 1, column: 0, column_span: 2, row_weight: 0
+        orient 'horizontal'
+      }
+      @text.xscrollbar @xscrollbar
+    }
+  }
+  
+}.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_scrollbar'"
+```
+
+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_scrollbar.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello scrollbar](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-list.png)
+
+![glimmer dsl tk screenshot sample hello scrollbar](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-text.png)
+
+### Hello, Scrollbar Frame!
+
+Glimmer code (from [samples/hello/hello_scrollbar_frame.rb](samples/hello/hello_scrollbar_frame.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+root {
+  title 'Hello, Scrollbar Frame!'
+  width 400
+  height 400
+  
+  notebook {
+    grid sticky: 'nsew'
+    
+    frame(text: 'X/Y Scroll') {
+      scrollbar_frame {
+        30.times do |row|
+          10.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+    
+    frame(text: 'Y Scroll') {
+      scrollbar_frame {
+        xscrollbar false
+        
+        30.times do |row|
+          2.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+    
+    frame(text: 'X Scroll') {
+      scrollbar_frame {
+        yscrollbar false
+        
+        13.times do |row|
+          10.times do |column|
+            button {
+              grid row: row, column: column, row_weight: 0, column_weight: 0
+              text "Row #{row} | Column #{column}"
+            }
+          end
+        end
+      }
+    }
+  }
+}.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_scrollbar_frame'"
+```
+
+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_scrollbar_frame.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello scrollbar frame x y scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-x-y-scroll.png)
+
+![glimmer dsl tk screenshot sample hello scrollbar frame y scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-y-scroll.png)
+
+![glimmer dsl tk screenshot sample hello scrollbar frame x scroll](images/glimmer-dsl-tk-screenshot-sample-hello-scrollbar-frame-x-scroll.png)
+
+### Hello, Menu Bar!
+
+Glimmer code (from [samples/hello/hello_menu_bar.rb](samples/hello/hello_menu_bar.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+COLORS = [:white, :red, :yellow, :green, :blue, :magenta, :gray, :black]
+
+Tk::Tile::Style.theme_use "classic" # this enables setting background on label just for demo purposes
+
+root { |r|
+  title 'Hello, Menu Bar!'
+  
+  @label = label {
+    grid row_weight: 1, column_weight: 1
+    text 'Check Out The Menu Bar Above!'
+    font size: 50
+    anchor 'center'
+  }
+  
+  menu {
+    # Mac-specific application menu (right next to the Apple menu)
+    if OS.mac?
+      menu(:application) {
+        menu_item(:about, label: 'About My Application') {
+          accelerator 'Command+A'
+          
+          on('command') do
+            message_box(parent: r, title: 'About', message: 'About my application.')
+          end
+        }
+        
+        menu_item(:preferences) {
+          on('command') do
+            message_box(parent: r, title: 'Preferences', message: 'Preferences of my application.')
+          end
+        }
+        
+        # If not defined, application simply quits upon selecting Quit menu item
+        menu_item(:quit) {
+          on('command') do
+            message_box(parent: r, title: 'Quit', message: 'Quitting my application...')
+            exit(0)
+          end
+        }
+      }
+    end
+    
+    # Windows-specific system menu (to the top-left of the window frame)
+    if OS.windows?
+      menu(label: 'System')
+    end
+    
+    menu(label: 'File', underline: 0) {
+      menu_item(label: 'New', underline: 0) {
+        accelerator OS.mac? ? 'Command+N' : 'Control+N'
+
+        on('command') do
+          message_box(parent: r, title: 'New', message: 'New file created.')
+        end
+      }
+      
+      menu_item(label: 'Open...', underline: 0) {
+        accelerator OS.mac? ? 'Command+O' : 'Control+O'
+
+        on('command') do
+          message_box(parent: r, title: 'Open', message: 'Opening File...')
+        end
+      }
+      
+      menu(label: 'Open Recent', underline: 5) {
+        menu_item(label: 'File 1') {
+          on('command') do
+            message_box(parent: r, title: 'File 1', message: 'File 1 Contents')
+          end
+        }
+        
+        menu_item(label: 'File 2') {
+          on('command') do
+            message_box(parent: r, title: 'File 2', message: 'File 2 Contents')
+          end
+        }
+      }
+      
+      menu_item(:separator)
+      
+      menu_item(label: 'Exit', underline: 1) {
+        on('command') do
+          exit(0)
+        end
+      }
+    }
+    
+    menu(label: 'Edit', underline: 0) {
+      menu_item(label: 'Cut', underline: 2) {
+        accelerator OS.mac? ? 'Command+X' : 'Control+X'
+      }
+      
+      menu_item(label: 'Copy', underline: 0) {
+        accelerator OS.mac? ? 'Command+C' : 'Control+C'
+      }
+      
+      menu_item(label: 'Paste', underline: 0) {
+        accelerator OS.mac? ? 'Command+V' : 'Control+V'
+      }
+    }
+    
+    menu(label: 'Options', underline: 0) {
+      menu_item(:checkbutton, label: 'Enabled', underline: 0) {
+        on('command') do
+          @select_one_menu.children.each { |menu_item| menu_item.state = menu_item.state == 'disabled' ? 'normal' : 'disabled' }
+          @select_multiple_menu.children.each { |menu_item| menu_item.state = menu_item.state == 'disabled' ? 'normal' : 'disabled' }
+        end
+      }
+      
+      @select_one_menu = menu(label: 'Select One', underline: 7) {
+        menu_item(:radiobutton, label: 'Option 1') {
+          state 'disabled'
+        }
+        menu_item(:radiobutton, label: 'Option 2') {
+          state 'disabled'
+        }
+        menu_item(:radiobutton, label: 'Option 3') {
+          state 'disabled'
+        }
+      }
+      
+      @select_multiple_menu = menu(label: 'Select Multiple', underline: 7) {
+        menu_item(:checkbutton, label: 'Option 4') {
+          state 'disabled'
+        }
+        menu_item(:checkbutton, label: 'Option 5') {
+          state 'disabled'
+        }
+        menu_item(:checkbutton, label: 'Option 6') {
+          state 'disabled'
+        }
+      }
+    }
+    
+    menu(label: 'Language', underline: 3) {
+      ['denmark', 'finland', 'france', 'germany', 'italy', 'mexico', 'netherlands', 'norway', 'usa'].each do |image_name|
+        menu_item(:radiobutton, label: image_name.capitalize) {
+          selection image_name == 'usa'
+          image File.expand_path("images/#{image_name}.png", __dir__)
+        }
+      end
+    }
+    
+    menu(label: 'Country', underline: 3) {
+      ['denmark', 'finland', 'france', 'germany', 'italy', 'mexico', 'netherlands', 'norway', 'usa'].each do |image_name|
+        menu_item(:radiobutton, label: image_name.capitalize) {
+          selection image_name == 'usa'
+          image File.expand_path("images/#{image_name}.png", __dir__)
+          compound 'left'
+        }
+      end
+    }
+    
+    menu(label: 'Format', underline: 0) {
+      menu(label: 'Background Color', underline: 0) {
+        COLORS.each { |color_style|
+          menu_item(:radiobutton, label: color_style.to_s.split('_').map(&:capitalize).join(' ')) {
+            on('command') do
+              @label.background = color_style
+            end
+          }
+        }
+      }
+      
+      menu(label: 'Foreground Color', underline: 11) {
+        COLORS.each { |color_style|
+          menu_item(:radiobutton, label: color_style.to_s.split('_').map(&:capitalize).join(' ')) {
+            on('command') do
+              @label.foreground = color_style
+            end
+          }
+        }
+      }
+    }
+    
+    menu(label: 'View', underline: 0) {
+      menu_item(:radiobutton, label: 'Small', underline: 0) {
+        accelerator OS.mac? ? 'Command+S' : 'Control+S'
+        
+        on('command') do
+          @label.font = {size: 25}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Medium', underline: 0) {
+        accelerator OS.mac? ? 'Command+M' : 'Control+M'
+        selection true
+
+        on('command') do
+          @label.font = {size: 50}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Large', underline: 0) {
+        accelerator OS.mac? ? 'Command+L' : 'Control+L'
+        
+        on('command') do
+          @label.font = {size: 75}
+        end
+      }
+    }
+    
+    # Mac-specific window menu (containing zooming/resizing menu items)
+    menu(label: 'Window', underline: 0) if OS.mac?
+    
+    menu(label: 'Help', underline: 0) {
+      if OS.mac?
+        menu_item(:help) {
+          on('command') do
+            message_box(parent: r, title: 'Help', message: 'Help for my application.')
+          end
+        }
+      end
+      
+      menu_item(label: 'Manual', underline: 0) {
+        accelerator OS.mac? ? 'Command+Shift+M' : 'Control+U'
+
+        on('command') do
+          message_box(parent: r, title: 'Manual', message: 'Manual Contents')
+        end
+      }
+      
+      menu_item(label: 'Tutorial', underline: 0) {
+        accelerator OS.mac? ? 'Command+Shift+T' : 'Control+T'
+
+        on('command') do
+          message_box(parent: r, title: 'Tutorial', message: 'Tutorial Contents')
+        end
+      }
+      
+      menu_item(:separator)
+      
+      menu_item(label: 'Report an Issue...', underline: 0) {
+        on('command') do
+          message_box(parent: r, title: 'Report an Issue', message: 'Reporting an issue...')
+        end
+      }
+    }
+  }
+}.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_menu_bar'"
+```
+
+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_menu_bar.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-application.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-file.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-edit.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-options.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-language.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-language-name.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-window.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-format.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-view.png)
+
+![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-help.png)
+
 ## Applications
 
 ### Glimmer Tk Calculator
@@ -2938,9 +3446,17 @@ https://github.com/ancorgs/y3network-ruby-ui
 
 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
+https://github.com/cryptopunksnotdead/cryptopunks-gui
+
+![CryptoPunks GUI Screenshot](https://raw.githubusercontent.com/cryptopunksnotdead/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
+
+### Circule
+
+Generate an icon of overlapping circles derived from a hash.
+
+https://gitlab.com/fjc/circule
 
-![CryptoPunks GUI Screenshot](https://raw.githubusercontent.com/AndyObtiva/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
+[Demo Video](https://gitlab.com/fjc/circule/-/raw/master/circule-demo.mp4)
 
 ## Process
 

data/VERSION

@@ -1 +1 @@
-0.0.37
+0.0.41