glimmer-dsl-tk 0.0.37 → 0.0.38

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2454b5a3d7bd7159328cab0c0c82a4ebcdb54066bec28a1549e3cbca61d1bd8d
-  data.tar.gz: 7535984b2838617c7a40ee336c653e6c5c9029c7e49b3a4a13f1815897ecec8d
+  metadata.gz: 5c6969620ced6ade48e45e36bd48909bfe282a412e2f57d8a201f398082c6836
+  data.tar.gz: d8d4bc858b5fdf7399b10d71922a2e12aaf1cbf0b4c8c0db4bf78416e025a5d0
 SHA512:
-  metadata.gz: d377872669979a76bf149aec8683ade86fadd7efa50817abe4f8e582a0f3b53ac354759f3e7e6aa4e683fcd6296308eb7339c049718fcd7c673e4452f1052614
-  data.tar.gz: b321a3e34b16f9a1719797c51f25521a48c4c12ba39f92a730618dedc54f564754f24e73f60118023213583e3629c188643684cc7d326628613c982c0a87e7d0
+  metadata.gz: 35a7d92e7f5b9098a9dcd50a5045447237bd66b89dfdd9f5ea10d45201b050a66b7b272266f275645552980a043cda9b59b6b96f591521a7da326fce4ff60524
+  data.tar.gz: c866f8e9a51d4dd291900ebb0c3b506f5a8d0975d1df779474ebf0997114d4384f5a9d2610e868a3196c1ba1b93cfeb98311d41f4e2b35b1582c64cee2b9dc71

data/CHANGELOG.md

@@ -1,7 +1,18 @@
 # Change Log
 
+## 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.38
 ## 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,12 @@ 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, 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 +149,13 @@ 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`
+
 Afterwards, if you open `irb`, you should be able to run `require 'tk'` successfully.
 
 ## Setup
@@ -161,7 +171,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '~> 0.0.37'
+gem 'glimmer-dsl-tk', '~> 0.0.38'
 ```
 
 And, then run:
@@ -285,10 +295,13 @@ 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`, or `:separator`) | `state`, `accelerator`, `selection` & `variable` (if `:radiobutton` or `:checkbutton`) | `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'`
 `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'`)
 
 Options for `get_open_file` and `get_multiple_open_file` include:
@@ -456,6 +469,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 +2937,203 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello separator](images/glimmer-dsl-tk-screenshot-sample-hello-separator.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 {
+    menu(label: 'File', underline: 0) {
+      menu_item(label: 'New', underline: 0) {
+        accelerator 'Command+N'
+
+        on('command') do
+          message_box(parent: r, title: 'New', message: 'New file created.')
+        end
+      }
+      menu_item(label: 'Open...', underline: 0) {
+        accelerator 'Command+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 'Command+X'
+      }
+      menu_item(label: 'Copy', underline: 0) {
+        accelerator 'Command+C'
+      }
+      menu_item(label: 'Paste', underline: 0) {
+        accelerator 'Command+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: 0) {
+        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: 0) {
+        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: '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 'Command+S'
+        
+        on('command') do
+          @label.font = {size: 25}
+        end
+      }
+      menu_item(:radiobutton, label: 'Medium', underline: 0) {
+        accelerator 'Command+M'
+        selection true
+
+        on('command') do
+          @label.font = {size: 50}
+        end
+      }
+      menu_item(:radiobutton, label: 'Large', underline: 0) {
+        accelerator 'Command+L'
+        
+        on('command') do
+          @label.font = {size: 75}
+        end
+      }
+    }
+    menu(label: 'Help', underline: 0) {
+      menu_item(label: 'Manual', underline: 0) {
+        accelerator 'Command+Shift+M'
+
+        on('command') do
+          message_box(parent: r, title: 'Manual', message: 'Manual Contents')
+        end
+      }
+      menu_item(label: 'Tutorial', underline: 0) {
+        accelerator 'Command+Shift+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-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-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
@@ -2942,6 +3156,14 @@ https://github.com/AndyObtiva/cryptopunks-gui
 
 ![CryptoPunks GUI Screenshot](https://raw.githubusercontent.com/AndyObtiva/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
 
+### Circule
+
+Generate an icon of overlapping circles derived from a hash.
+
+https://gitlab.com/fjc/circule
+
+[Demo Video](https://gitlab.com/fjc/circule/-/raw/master/circule-demo.mp4)
+
 ## Process
 
 [Glimmer Process](https://github.com/AndyObtiva/glimmer/blob/master/PROCESS.md)

data/VERSION

@@ -1 +1 @@
-0.0.37
+0.0.38

data/lib/glimmer/tk/menu_item_proxy.rb

@@ -0,0 +1,144 @@
+# 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
+    class MenuItemProxy < WidgetProxy
+      ACCELERATOR_MODIFIER_EVENT_MAP = {
+        'Command' => 'Command',
+        'Cmd' => 'Command',
+        'Meta' => 'Command',
+        'Option' => 'Option',
+        'Opt' => 'Option',
+        'Alt' => 'Option',
+        'Shift' => 'Shift',
+        'Ctrl' => 'Control',
+        'Control' => 'Control',
+      }
+      
+      attr_reader :options
+    
+      def initialize(underscored_widget_name, parent_proxy, args, &block)
+        @options = args.last.is_a?(Hash) ? args.last : {}
+        super
+      end
+    
+      def accelerator=(value)
+        @accelerator = value
+        @parent_proxy.tk.entryconfigure @options[:label], accelerator: value
+        root_parent_proxy.bind(accelerator_event) do |event|
+          @command_block&.call(event)
+        end
+      end
+      
+      def accelerator
+        @accelerator
+      end
+      
+      def accelerator_event
+        accelerator_parts = @accelerator.split('+')
+        accelerator_parts.map do |accelerator_part|
+          ACCELERATOR_MODIFIER_EVENT_MAP[accelerator_part.capitalize] || accelerator_part.downcase
+        end.join('-')
+      end
+      
+      def state=(value)
+        @state = value
+        @parent_proxy.tk.entryconfigure @options[:label], :state => value
+      end
+      
+      def state
+        @state
+      end
+      
+      def command_block=(proc)
+        @command_block = proc
+        @parent_proxy.tk.entryconfigure @options[:label], command: @command_block
+      end
+      
+      def handle_listener(listener_name, &listener)
+        case listener_name.to_s.downcase
+        when 'command'
+          self.command_block = listener
+        else
+          super
+        end
+      end
+      
+      def command?
+        @args.first.nil? || @args.first == :command || @args.first.is_a?(Hash)
+      end
+      
+      def radiobutton?
+        @args.first == :radiobutton
+      end
+      
+      def checkbutton?
+        @args.first == :radiobutton
+      end
+      
+      def separator?
+        @args.first == :separator
+      end
+      
+      def variable(auto_create: true)
+        if @variable.nil? && auto_create
+          sibling_variable = sibling_radio_menu_items.map {|mi| mi.variable(auto_create: false)}.compact.first
+          @variable = sibling_variable.nil? ? ::TkVariable.new : sibling_variable
+        else
+          @variable
+        end
+        @variable
+      end
+      
+      def selection=(value)
+        if value
+          variable.value = @options[:label]
+          # TODO handle image case where there is no label
+        elsif checkbutton?
+          variable.value = '__unchecked__'
+        end
+      end
+      
+      def selection
+        variable.value == @options[:label]
+      end
+      
+      private
+      
+      def sibling_radio_menu_items
+        @parent_proxy.children.select {|child| child.is_a?(MenuItemProxy) && radiobutton? && child != self}
+      end
+      
+      def build_widget
+        @args.prepend(:command) if @args.first.is_a?(Hash)
+        @args.append({}) if !@args.last.is_a?(Hash)
+        @args.last.merge!(variable: variable, value: @options[:label]) if radiobutton? || checkbutton?
+        case @parent_proxy
+        when MenuProxy
+          @parent_proxy.tk.add(*@args)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/menu_proxy.rb

@@ -0,0 +1,48 @@
+# 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
+    class MenuProxy < WidgetProxy
+      attr_reader :options
+      
+      def initialize(underscored_widget_name, parent_proxy, args, &block)
+        @options = args.last.is_a?(Hash) ? args.last : {}
+        super
+      end
+      
+      private
+      
+      def build_widget
+        tk_widget_class = self.class.tk_widget_class_for(@keyword)
+        @tk = tk_widget_class.new(@parent_proxy.tk)
+        case @parent_proxy
+        when ToplevelProxy
+          @parent_proxy.tk['menu'] = @tk
+        when MenuProxy
+          @parent_proxy.tk.add(:cascade, {menu: @tk}.merge(@options))
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/root_proxy.rb

@@ -47,22 +47,6 @@ module Glimmer
         Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::RootExpression.new, keyword, *args, &block)
       end
       
-      def set_attribute(attribute, *args)
-        case attribute.to_s
-        when 'iconphoto'
-          args[0..-1] = [image_argument(args)]
-          super
-        when 'resizable'
-          if args.size == 1 && !args.first.is_a?(Array)
-            self.resizable = [args.first]*2
-          else
-            super
-          end
-        else
-          super
-        end
-      end
-      
       def handle_listener(listener_name, &listener)
         case listener_name.to_s.upcase
         when 'WM_OPEN_WINDOW', 'OPEN_WINDOW'

data/lib/glimmer/tk/toplevel_proxy.rb

@@ -50,6 +50,22 @@ module Glimmer
         %w[width height x y].include?(attribute.to_s) || super
       end
       
+      def set_attribute(attribute, *args)
+        case attribute.to_s
+        when 'iconphoto'
+          args[0..-1] = [image_argument(args)]
+          super
+        when 'resizable'
+          if args.size == 1 && !args.first.is_a?(Array)
+            self.resizable = [args.first]*2
+          else
+            super
+          end
+        else
+          super
+        end
+      end
+      
       def width
         geometry.split(REGEX_GEOMETRY)[0].to_i
       end

data/lib/glimmer/tk/widget_proxy.rb

@@ -77,8 +77,7 @@ module Glimmer
         @args = args
         @keyword = underscored_widget_name
         @block = block
-        tk_widget_class = self.class.tk_widget_class_for(underscored_widget_name)
-        @tk = tk_widget_class.new(@parent_proxy.tk, *args)
+        build_widget
         # a common widget initializer
         @parent_proxy.post_initialize_child(self)
         initialize_defaults
@@ -121,7 +120,7 @@ module Glimmer
       end
 
       def self.widget_exists?(underscored_widget_name)
-        !!tk_widget_class_for(underscored_widget_name)
+        !!tk_widget_class_for(underscored_widget_name) || (Glimmer::Tk.constants.include?("#{underscored_widget_name.camelcase(:upper)}Proxy".to_sym) && Glimmer::Tk.const_get("#{underscored_widget_name.camelcase(:upper)}Proxy".to_sym).respond_to?(:new))
       end
 
       def tk_widget_has_attribute_setter?(attribute)
@@ -213,8 +212,8 @@ module Glimmer
             raise "#{self} cannot handle attribute #{attribute} with args #{args.inspect}"
           end
         rescue => e
-          Glimmer::Config.logger.debug {"Failed to set attribute #{attribute} with args #{args.inspect}. Attempting to set through style instead..."}
-          Glimmer::Config.logger.debug {e.full_message}
+          Glimmer::Config.logger.error {"Failed to set attribute #{attribute} with args #{args.inspect}. Attempting to set through style instead..."}
+          Glimmer::Config.logger.error {e.full_message}
           apply_style(attribute => args.first)
         end
       end
@@ -507,11 +506,16 @@ module Glimmer
       
       private
       
+      def build_widget
+        tk_widget_class = self.class.tk_widget_class_for(@keyword)
+        @tk = tk_widget_class.new(@parent_proxy.tk, *args)
+      end
+      
       def initialize_defaults
         options = {}
         options[:sticky] = 'nsew'
         options[:column_weight] = 1 if @parent_proxy.children.count == 1
-        grid(options) unless @tk.is_a?(::Tk::Toplevel)
+        grid(options) unless @tk.is_a?(::Tk::Toplevel) || @tk.is_a?(::Tk::Menu) || @tk.nil? # TODO refactor by adding a griddable? method that could be overriden by subclasses to consult for this call
       end
     end
   end

data/lib/glimmer-dsl-tk.rb

@@ -29,6 +29,9 @@ require 'puts_debuggerer' if ENV['pd'].to_s.downcase == 'true'
 require 'tk'
 require 'os'
 require 'facets/hash/symbolize_keys'
+require 'facets/string/underscore'
+require 'facets/string/camelcase'
+require 'delegate'
 
 # Internal requires
 # require 'ext/glimmer/config'
@@ -40,3 +43,4 @@ Glimmer::Config.excluded_keyword_checkers << lambda do |method_symbol, *args|
   result = false
   result ||= method == 'load_iseq'
 end
+::TkOption.add '*tearOff', 0

data/samples/hello/hello_menu_bar.rb

@@ -0,0 +1,183 @@
+# Copyright (c) 2020-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+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 {
+    menu(label: 'File', underline: 0) {
+      menu_item(label: 'New', underline: 0) {
+        accelerator 'Command+N'
+
+        on('command') do
+          message_box(parent: r, title: 'New', message: 'New file created.')
+        end
+      }
+      menu_item(label: 'Open...', underline: 0) {
+        accelerator 'Command+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 'Command+X'
+      }
+      menu_item(label: 'Copy', underline: 0) {
+        accelerator 'Command+C'
+      }
+      menu_item(label: 'Paste', underline: 0) {
+        accelerator 'Command+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: 0) {
+        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: 0) {
+        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: '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 'Command+S'
+        
+        on('command') do
+          @label.font = {size: 25}
+        end
+      }
+      menu_item(:radiobutton, label: 'Medium', underline: 0) {
+        accelerator 'Command+M'
+        selection true
+
+        on('command') do
+          @label.font = {size: 50}
+        end
+      }
+      menu_item(:radiobutton, label: 'Large', underline: 0) {
+        accelerator 'Command+L'
+        
+        on('command') do
+          @label.font = {size: 75}
+        end
+      }
+    }
+    menu(label: 'Help', underline: 0) {
+      menu_item(label: 'Manual', underline: 0) {
+        accelerator 'Command+Shift+M'
+
+        on('command') do
+          message_box(parent: r, title: 'Manual', message: 'Manual Contents')
+        end
+      }
+      menu_item(label: 'Tutorial', underline: 0) {
+        accelerator 'Command+Shift+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

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.37
+  version: 0.0.38
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-11-06 00:00:00.000000000 Z
+date: 2021-11-10 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -235,6 +235,8 @@ files:
 - lib/glimmer/tk/frame_proxy.rb
 - lib/glimmer/tk/label_proxy.rb
 - lib/glimmer/tk/list_proxy.rb
+- lib/glimmer/tk/menu_item_proxy.rb
+- lib/glimmer/tk/menu_proxy.rb
 - lib/glimmer/tk/notebook_proxy.rb
 - lib/glimmer/tk/radiobutton_proxy.rb
 - lib/glimmer/tk/root_proxy.rb
@@ -258,6 +260,7 @@ files:
 - samples/hello/hello_label.rb
 - samples/hello/hello_list_multi_selection.rb
 - samples/hello/hello_list_single_selection.rb
+- samples/hello/hello_menu_bar.rb
 - samples/hello/hello_message_box.rb
 - samples/hello/hello_notebook.rb
 - samples/hello/hello_radiobutton.rb