glimmer-dsl-tk 0.0.34 → 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

@@ -36,6 +36,7 @@ module Glimmer
 
       def post_add_content
         set_attribute('iconphoto', File.expand_path('../../../icons/glimmer.png', __dir__)) if @tk.iconphoto.nil?
+        super
       end
       
       def open
@@ -46,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/text_proxy.rb

@@ -39,7 +39,6 @@ module Glimmer
             @modified_count ||= 0
             @modified_count += 1
             listener.call(*args)
-            apply_all_tag
             @insert_mark_moved_proc&.call
             @tk.modified = false
           end
@@ -72,28 +71,17 @@ module Glimmer
             end
           end
         else
-          apply_all_tag
-          # TODO make listener pass an event that has a modifiers attribute for easy representation of :shift, :meta, :control, etc... while a letter button is pressed
-          @listeners ||= {}
-          begin
-            @listeners[listener_name] ||= []
-            @tk.tag_bind(ALL_TAG, listener_name) { |event| @listeners[listener_name].each {|l| l.call(event)} } if @listeners[listener_name].empty?
-            @listeners[listener_name] << listener
-          rescue => e
-            @listeners.delete(listener_name)
-            Glimmer::Config.logger.debug {"Unable to bind to #{listener_name} .. attempting to surround with <>"}
-            Glimmer::Config.logger.debug {e.full_message}
-            listener_name = "<#{listener_name}" if !listener_name.start_with?('<')
-            listener_name = "#{listener_name}>" if !listener_name.end_with?('>')
-            @listeners[listener_name] ||= []
-            @tk.tag_bind(ALL_TAG, listener_name) { |event| @listeners[listener_name].each {|l| l.call(event)} } if @listeners[listener_name].empty?
-            @listeners[listener_name] << listener
-          end
+          super
         end
       end
       
       def edit_undo
-        @tk.edit_undo if @modified_count.to_i > 2 # <Modified> fires twice the first time, which is equivalent to one change.
+        # <Modified> fires twice the first time, which is equivalent to one change.
+        if @modified_count.to_i > 2
+          # must count the extra 2 modified count that will occur upon undo too
+          @modified_count -= 4
+          @tk.edit_undo
+        end
       end
       
       def edit_redo
@@ -104,31 +92,31 @@ module Glimmer
         end
       end
       
-      def add_selection_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| add_format(range_start, range_end, option, value) }
+      def add_selection_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| add_format(range_start, range_end, option, value) }
       end
       
-      def remove_selection_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| remove_format(range_start, range_end, option, value) }
+      def remove_selection_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| remove_format(range_start, range_end, option, value) }
       end
       
-      def toggle_selection_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| toggle_format(range_start, range_end, option, value) }
+      def toggle_selection_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| toggle_format(range_start, range_end, option, value) }
       end
       
-      def add_selection_font_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| add_font_format(range_start, range_end, option, value) }
+      def add_selection_font_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| add_font_format(range_start, range_end, option, value) }
       end
       
-      def remove_selection_font_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| remove_font_format(range_start, range_end, option, value) }
+      def remove_selection_font_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| remove_font_format(range_start, range_end, option, value) }
       end
       
-      def toggle_selection_font_format(option, value, no_selection_default: :insert_word)
-        process_selection_ranges(no_selection_default: no_selection_default) { |range_start, range_end| toggle_font_format(range_start, range_end, option, value) }
+      def toggle_selection_font_format(option, value, no_selection_default: :insert_word, focus: true)
+        process_selection_ranges(no_selection_default: no_selection_default, focus: focus) { |range_start, range_end| toggle_font_format(range_start, range_end, option, value) }
       end
       
-      def process_selection_ranges(no_selection_default: :insert_word, &processor)
+      def process_selection_ranges(no_selection_default: :insert_word, focus: true, &processor)
         regions = @tk.tag_ranges('sel')
         if regions.empty?
           case no_selection_default
@@ -143,6 +131,11 @@ module Glimmer
           range_end = region.last
           processor.call(range_start, range_end)
         end
+        if focus == true
+          @tk.focus
+        elsif focus.is_a?(Integer)
+          ::Tk.after(focus) { @tk.focus }
+        end
       end
       
       def applied_format?(region_start, region_end, option, value)
@@ -444,16 +437,11 @@ module Glimmer
         self.wrap = 'none'
         self.padx = 5
         self.pady = 5
-        on('Modified') { apply_all_tag }
       end
       
       def clone_font(font)
         ::TkFont.new(Hash[font.actual])
       end
-      
-      def apply_all_tag
-        @tk.tag_add(ALL_TAG, '1.0', 'end')
-      end
     end
   end
 end

data/lib/glimmer/tk/toplevel_proxy.rb

@@ -32,11 +32,40 @@ module Glimmer
       DEFAULT_HEIGHT = 95
       
       attr_reader :tk
+      attr_accessor :escapable
+      alias escapable? escapable
+      
+      def post_add_content
+        if escapable?
+           on('KeyPress') do |event|
+            if event.keysym == 'Escape'
+              grab_release
+              destroy
+            end
+          end
+        end
+      end
       
       def has_attribute?(attribute, *args)
         %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
@@ -114,6 +143,17 @@ module Glimmer
           destroy
         end
       end
+      
+      def mac_style=(mac_class, mac_attribute_list = nil)
+        if OS.mac?
+          @mac_style = [mac_class, mac_attribute_list]
+          ::Tk.tk_call("::tk::unsupported::MacWindowStyle", "style", @tk, *@mac_style.compact)
+        end
+      end
+      
+      def mac_style
+        @mac_style
+      end
     end
   end
 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
@@ -460,14 +459,20 @@ module Glimmer
           parent_proxy.handle_listener(listener_name, &listener) if parent_proxy
           # TODO return a listener registration object that has a deregister method
         else
+          @listeners ||= {}
           begin
-            @tk.bind(listener_name, &listener)
+            @listeners[listener_name] ||= []
+            @tk.bind(listener_name) { |event| @listeners[listener_name].each {|l| l.call(event)} } if @listeners[listener_name].empty?
+            @listeners[listener_name] << listener
           rescue => e
+            @listeners.delete(listener_name)
             Glimmer::Config.logger.debug {"Unable to bind to #{listener_name} .. attempting to surround with <>"}
             Glimmer::Config.logger.debug {e.full_message}
             listener_name = "<#{listener_name}" if !listener_name.start_with?('<')
             listener_name = "#{listener_name}>" if !listener_name.end_with?('>')
-            @tk.bind(listener_name, &listener)
+            @listeners[listener_name] ||= []
+            @tk.bind(listener_name) { |event| @listeners[listener_name].each {|l| l.call(event)} } if @listeners[listener_name].empty?
+            @listeners[listener_name] << listener
           end
         end
       end
@@ -501,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/elaborate/meta_sample.rb

@@ -56,7 +56,7 @@ class MetaSample
   
   def run_sample(sample)
     Thread.new do
-      command = "ruby -r #{glimmer_dsl_tk_file} #{sample} 2>&1"
+      command = "#{RbConfig.ruby} -r #{glimmer_dsl_tk_file} #{sample} 2>&1"
       result = ''
       IO.popen(command) do |f|
         f.each_line do |line|

data/samples/hello/hello_checkbutton.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2020-2021 Andy Maleh
+`# 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

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