glimmer-dsl-tk 0.0.47 → 0.0.51

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: a534fbbe0b7c850fe702b42bf16eb4bc1854f68baa736b73ebf0bf6d5cc29f28
-  data.tar.gz: b38740259743b4e579ec72251dee2018f826007dc975b3efe8a4b90d9b5031da
+  metadata.gz: 8e73712c604d4ac237f122877e2c4a558570b212fcbf0c192b3c3cccf760cd10
+  data.tar.gz: 6bf3e67c3cebdd497c2775d2a7f72cc5efefb68c2116bf61e0511a3fa4c54161
 SHA512:
-  metadata.gz: 03d144a49d2494ce0ff6576aaf510157d15086868f69d14bf70c27b3c7ed08e68125a86892ace5c9c178b52255252ad44a3b90ba49e7ff91e71d5e47af301f7c
-  data.tar.gz: 7543abee9889820cea1911ec3f6c395ea61ad96e761b8f7ad384cc17b50140854fb524852055e34eea7d221a38047bd1d3f053866a6d8b17363066739383529a
+  metadata.gz: ffe9c7c5fb555f4419828d34cca5a86aca6c98756afa37d7b83d2c46086e6ca964651b5f256e092a7c1622bb30f86b52c9e3168529f6bc45426ff5cbb9fceb37
+  data.tar.gz: aca17f0b69b67fa68ef13ac707a96416a3a88d16bf3607190c8cba553763fc9bebf7054a25db310dd5dd0975746f3f5e0717cba899fe8e9f0eaf0f4870fd2870

data/CHANGELOG.md

@@ -1,5 +1,28 @@
 # Change Log
 
+## 0.0.51
+
+- Center application root/toplevel within screen by default (if x or y are specified, they are respected instead)
+- Enhance Hello, Contextual Menu! & Hello, Menu Bar! to display a message box upon selecting a Language/Country
+- Explicitly support all menu item attributes: `activebackground`, `activeforeground`, `background`, `bitmap`, `columnbreak`, `compound`, `font`, `foreground`, `hidemargin`, `indicatoron`, `menu`, `offvalue`, `onvalue`, `selectcolor`, `selectimage`, `state`, `underline`, `value`
+
+## 0.0.50
+
+- Support manual binding of contextual menu by passing `bind: false` option (e.g. `menu(bind: false) {...}` as demonstrated in samples/hello/hello_contextual_menu.rb)
+- Support binding multiple contextual menus (they show up consecutively unless there is conditional logic to control showing them individually)
+- Update Hello, Contextual Menu! to add a comment and an example about manual menu binding
+- Upgrade to glimmer 2.5.4
+
+## 0.0.49
+
+- [API Breaking] Update menu bar support to require `menu_bar` keyword under `root` or `toplevel`
+- Support contextual menu by nesting `menu` keyword under `root` or `toplevel`
+
+## 0.0.48
+
+- Moved `OS` class to `Glimmer::Tk::OS` to avoid clashing with os gem when installed for users
+- Moved `DragAndDropEvent` from `Glimmer::Tk::DraggableAndDroppable` into `Glimmer::Tk` namespace directly as `Glimmer::Tk::DragAndDropEvent`
+
 ## 0.0.47
 
 - Upgrade to glimmer 2.5.1 (includes more advanced data-binding/observer features)

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.47
+# [<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.51
 ## 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)
@@ -53,7 +53,7 @@ Glimmer app:
 
 NOTE: Glimmer DSL for Tk is currently in early alpha mode (incomplete). Please help make better by contributing, adopting for small or low risk projects, and providing feedback. It is still an early alpha, so the more feedback and issues you report the better.
 
-Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
+Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems you might be interested in:
 - [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)
@@ -86,6 +86,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
       - [Icon Photo](#icon-photo)
       - [Root Background](#root-background)
       - [Toplevel Mac Style](#toplevel-mac-style)
+      - [Root/Toplevel Centered Within Screen](#root-toplevel-centered-within-screen)
       - [Text Defaults](#text-defaults)
   - [The Grid Geometry Manager](#the-grid-geometry-manager)
   - [Data-Binding](#data-binding)
@@ -125,6 +126,7 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
     - [Hello, Scrollbar!](#hello-scrollbar)
     - [Hello, Scrollbar Frame!](#hello-scrollbar-frame)
     - [Hello, Menu Bar!](#hello-menu-bar)
+    - [Hello, Contextual Menu!](#hello-contextual-menu)
   - [Applications](#applications)
     - [Glimmer Tk Calculator](#glimmer-tk-calculator)
     - [Y3network Ruby UI](#y3network-ruby-ui)
@@ -182,7 +184,7 @@ gem install glimmer-dsl-tk
 
 Add the following to `Gemfile`:
 ```
-gem 'glimmer-dsl-tk', '0.0.47'
+gem 'glimmer-dsl-tk', '0.0.51'
 ```
 
 And, then run:
@@ -208,6 +210,7 @@ Tk Concepts consist of:
 - [Widgets](https://tkdocs.com/tutorial/concepts.html#widgets): Widgets are all the things that you see onscreen. In our example, we had a button, an entry, a few labels, and a frame. Others are things like checkboxes, tree views, scrollbars, text areas, and so on. Widgets are what are often referred to as "controls"; you'll also often see them referred to as "windows," particularly in Tk's documentation, a holdover from its X11 roots (so under that terminology, both a toplevel window and things like a button would be called windows).
 - [Geometry Management](https://tkdocs.com/tutorial/concepts.html#geometry): If you've been playing around creating widgets, you've probably noticed that just by creating them, they didn't end up showing up onscreen. Having things actually put in the onscreen window, and precisely where in the window they show up is a separate step called geometry management.
 - [Event Handling](https://tkdocs.com/tutorial/concepts.html#events): In Tk, as in most other user interface toolkits, there is an event loop which receives events from the operating system. These are things like button presses, keystrokes, mouse movement, window resizing, and so on.
+- [Themes](https://tkdocs.com/tutorial/styles.html): Tk apps are themable. You can list available themes with `::Tk::Tile::Style.theme_names` (e.g. `["aqua", "clam", "alt", "default", "classic"]` on Mac) and select a theme with `::Tk::Tile::Style.theme_use 'theme_name'` (e.g. `::Tk::Tile::Style.theme_use 'classic'`). Theme defaults to `'clam'` in Linux and `'aqua'` in Mac.
 
 Learn more at the official [Tk Concepts Tutorial](https://tkdocs.com/tutorial/concepts.html)
 
@@ -310,6 +313,7 @@ keyword(args) | attributes | event bindings & callbacks
 `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_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 {}`
@@ -578,6 +582,10 @@ Tk.tk_call("::tk::unsupported::MacWindowStyle", "style", tk_toplevel_widget, mac
 
 More details can be found at the [Hello, Toplevel!](#hello-toplevel) sample.
 
+#### Root/Toplevel Centered Within Screen
+
+`root` and `toplevel` are centered within screen by default unless `x` or `y` attributes are specified, in which case, they are honored instead.
+
 #### Text Defaults
 
 `text` widget has these defaults:
@@ -3232,7 +3240,7 @@ root { |r|
     anchor 'center'
   }
   
-  menu {
+  menu_bar {
     # Mac-specific application menu (right next to the Apple menu)
     if OS.mac?
       menu(:application) {
@@ -3496,6 +3504,192 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello menu-bar](images/glimmer-dsl-tk-screenshot-sample-hello-menu-bar-help.png)
 
+### Hello, Contextual Menu!
+
+Glimmer code (from [samples/hello/hello_contextual_menu.rb](samples/hello/hello_contextual_menu.rb)):
+
+```ruby
+require 'glimmer-dsl-tk'
+
+include Glimmer
+
+COLORS = [:white, :red, :yellow, :green, :blue, :magenta, :gray, :black]
+
+Tk::Tile::Style.theme_use 'classic' if OS.mac? # this enables setting background on label just for demo purposes
+
+root { |r|
+  title 'Hello, Contextual Menu!'
+  
+  @label = label {
+    grid row_weight: 1, column_weight: 1
+    text 'Right-Click To Pop Up Contextual Menu!'
+    font size: 50
+    anchor 'center'
+  }
+  
+  # Contextual Menu is bound to mouse right-click (and CTRL-click on Mac) by default
+  # (Read Comment Below for Alternative)
+  menu {
+    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: 0) {
+      ['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: 3) {
+      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 'Control+S'
+        
+        on('command') do
+          @label.font = {size: 25}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Medium', underline: 0) {
+        accelerator 'Control+M'
+        selection true
+
+        on('command') do
+          @label.font = {size: 50}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Large', underline: 0) {
+        accelerator 'Control+L'
+        
+        on('command') do
+          @label.font = {size: 75}
+        end
+      }
+    }
+  }
+  
+  # You can replace `menu {` code with `menu(bind: false) {` if you want to bind manually,
+  # which can be useful if you want to show menu at a specific location based on conditional logic.
+  #
+  # You can also repurpose a `menu_bar` as a contextual menu by declaring `@menu = menu_bar {` and
+  # binding to mouse right-click.
+  #
+  # Example:
+  #
+  # @menu = menu(bind: false) {
+  #   menu(label: 'File', underline: 0) {
+  #     menu_item(label: 'Exit')
+  #   }
+  # }
+  # if OS.mac?
+  #   on('2') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   end
+  #   on('Control-1') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   end
+  # else
+  #   on('3') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   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_contextual_menu'"
+```
+
+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_contextual_menu.rb
+```
+
+Glimmer app:
+
+![glimmer dsl tk screenshot sample hello contextual-menu](images/glimmer-dsl-tk-screenshot-sample-hello-contextual-menu.png)
+
 ## Applications
 
 ### Glimmer Tk Calculator

data/VERSION

@@ -1 +1 @@
-0.0.47
+0.0.51

data/lib/glimmer/tk/drag_and_drop_event.rb

@@ -0,0 +1,23 @@
+module Glimmer
+  module Tk
+    DragAndDropEvent = Struct.new(:source, :target, :tooltip, :x_root, :y_root, :data, :drop_accepted) do
+      alias drop_accepted? drop_accepted
+      
+      def as_json(*)
+        klass = self.class.name
+        {
+          JSON.create_id => klass,
+          "v" => [values[0].object_id, values[1].object_id, values[2].object_id].concat(values.drop 3),
+        }
+      end
+
+      def to_json(*args)
+        as_json.to_json(*args)
+      end
+
+      def self.json_create(object)
+        new(*[ObjectSpace._id2ref(object["v"][0]), ObjectSpace._id2ref(object["v"][1]).proxy, ObjectSpace._id2ref(object["v"][2])].concat(object["v"].drop 3))
+      end
+    end
+  end
+end

data/lib/glimmer/tk/draggable_and_droppable.rb

@@ -19,6 +19,7 @@
 # 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_relative 'drag_and_drop_event'
 require "json"
 
 module Glimmer
@@ -65,11 +66,11 @@ module Glimmer
       def on_drop_block=(value)
         @on_drop_block = value
         self.tk.bind("<DropEvent>", proc { |tk_event|
-          drop_event = DragAndDropEvent.json_create(JSON.parse("{" + tk_event.detail + "}"))
+          drop_event = Glimmer::Tk::DragAndDropEvent.json_create(JSON.parse("{" + tk_event.detail + "}"))
           @on_drop_block.call(drop_event) if self == drop_event.target
         })
         self.tk.bind("<DropCheckEvent>", proc { |tk_event|
-          drop_check_event = DragAndDropEvent.json_create(JSON.parse("{" + tk_event.detail + "}"))
+          drop_check_event = Glimmer::Tk::DragAndDropEvent.json_create(JSON.parse("{" + tk_event.detail + "}"))
           drop_check_event.source.event_generate("<DropAcceptedEvent>")
         })
       end
@@ -86,7 +87,7 @@ module Glimmer
             tooltip = WidgetProxy.new('toplevel', root_parent_proxy, [])
             tooltip.overrideredirect(1) #create tooltip window to display dragged data
             tooltip.geometry("+#{tk_event.x_root + 10}+#{tk_event.y_root - 2}")
-            drag_event = DragAndDropEvent.new(self, nil, tooltip, tk_event.x_root, tk_event.y_root, nil, false)
+            drag_event = Glimmer::Tk::DragAndDropEvent.new(self, nil, tooltip, tk_event.x_root, tk_event.y_root, nil, false)
             if @drag_source
               tk_event.widget.configure(:cursor => "hand2")
               # Default data to drag is text
@@ -159,26 +160,6 @@ module Glimmer
         @tk.bind_remove('<DropCheckEvent>')
         @on_drop_block = nil
       end
-
-      DragAndDropEvent = Struct.new(:source, :target, :tooltip, :x_root, :y_root, :data, :drop_accepted) do
-        alias drop_accepted? drop_accepted
-        
-        def as_json(*)
-          klass = self.class.name
-          {
-            JSON.create_id => klass,
-            "v" => [values[0].object_id, values[1].object_id, values[2].object_id].concat(values.drop 3),
-          }
-        end
-
-        def to_json(*args)
-          as_json.to_json(*args)
-        end
-
-        def self.json_create(object)
-          new(*[ObjectSpace._id2ref(object["v"][0]), ObjectSpace._id2ref(object["v"][1]).proxy, ObjectSpace._id2ref(object["v"][2])].concat(object["v"].drop 3))
-        end
-      end
     end
   end
 end

data/lib/glimmer/tk/menu_item_proxy.rb

@@ -36,10 +36,13 @@ module Glimmer
         'Control' => 'Control',
       }
       
+      ATTRIBUTES = %w[activebackground activeforeground background bitmap columnbreak compound font foreground hidemargin indicatoron menu offvalue onvalue selectcolor selectimage state underline value]
+      
       attr_reader :options
     
       def initialize(underscored_widget_name, parent_proxy, args, &block)
         @options = args.last.is_a?(Hash) ? args.last : {}
+        @label = @options[:label]
         super
       end
     
@@ -62,17 +65,14 @@ module Glimmer
         end.join('-')
       end
       
-      def state=(value)
-        @state = value
-        configure_menu_item_attribute(state: value)
-      end
-      
-      def state
-        @state
+      def label=(value)
+        @last_label = @label
+        @label = value
+        configure_menu_item_attribute(label: @label)
       end
       
       def label
-        @options[:label]
+        @label
       end
       
       def image=(*args)
@@ -151,9 +151,9 @@ module Glimmer
       
       def selection=(value)
         if value
-          variable.value = label
+          self.value = variable.value = label
         elsif checkbutton?
-          variable.value = ''
+          self.value = variable.value = ''
         end
       end
       
@@ -170,7 +170,34 @@ module Glimmer
         elsif quit? && attribute_value_hash[:command]
           ::Tk.ip_eval("proc ::tk::mac::Quit {} {#{::Tk.install_cmd(attribute_value_hash[:command])}}") if OS.mac?
         else
-          @parent_proxy.tk.entryconfigure label, attribute_value_hash
+          if attribute_value_hash.keys.first.to_s == 'label'
+            @parent_proxy.tk.entryconfigure @last_label, attribute_value_hash
+            self.value = variable.value = attribute_value_hash.values.first if variable.value == @last_label
+          else
+            @parent_proxy.tk.entryconfigure label, attribute_value_hash
+          end
+        end
+      end
+      
+      def has_attributes_attribute?(attribute)
+        attribute = attribute.to_s
+        attribute = attribute.sub(/\?$/, '').sub(/=$/, '')
+        ATTRIBUTES.include?(attribute)
+      end
+      
+      def set_attribute(attribute, value)
+        if has_attributes_attribute?(attribute)
+          configure_menu_item_attribute(attribute => value)
+        else
+          super
+        end
+      end
+      
+      def get_attribute(attribute)
+        if has_attributes_attribute?(attribute)
+          @parent_proxy.tk.entrycget label, attribute
+        else
+          super
         end
       end
       

data/lib/glimmer/tk/menu_proxy.rb

@@ -34,7 +34,22 @@ module Glimmer
       def post_add_content
         case @parent_proxy
         when ToplevelProxy
-          @parent_proxy.tk['menu'] = @tk
+          if @keyword == 'menu_bar'
+            @parent_proxy.tk['menu'] = @tk
+          elsif @options[:bind].nil? || @options[:bind]
+            if OS.mac?
+              @parent_proxy.handle_listener('2') do |event|
+                popup(event.x_root, event.y_root)
+              end
+              @parent_proxy.handle_listener('Control-1') do |event|
+                popup(event.x_root, event.y_root)
+              end
+            else
+              @parent_proxy.handle_listener('3') do |event|
+                popup(event.x_root, event.y_root)
+              end
+            end
+          end
         end
       end
       
@@ -75,8 +90,7 @@ module Glimmer
 #           elsif @parent_proxy.parent_proxy.is_a?(ToplevelProxy) && OS.windows? && system?
 #             @tk = ::TkSysMenu_System.new(@parent_proxy.tk).tap {|tk| tk.singleton_class.include(Glimmer::Tk::Widget); tk.proxy = self}
           else
-            tk_widget_class = self.class.tk_widget_class_for(@keyword)
-            @tk = tk_widget_class.new(@parent_proxy.tk).tap {|tk| tk.singleton_class.include(Glimmer::Tk::Widget); tk.proxy = self}
+            @tk = ::Tk::Menu.new(@parent_proxy.tk).tap {|tk| tk.singleton_class.include(Glimmer::Tk::Widget); tk.proxy = self}
           end
           case @parent_proxy
           when MenuProxy
@@ -85,5 +99,6 @@ module Glimmer
         end
       end
     end
+    MenuBarProxy = MenuProxy
   end
 end

data/lib/{os.rb → glimmer/tk/os.rb}

@@ -19,18 +19,30 @@
 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-class OS
-  class << self
-    def mac?
-      Tk.windowingsystem == 'aqua'
-    end
-    
-    def windows?
-      Tk.windowingsystem == 'win32'
-    end
-    
-    def linux?
-      Tk.windowingsystem == 'x11'
+require 'tk'
+
+module Glimmer
+  module Tk
+    class OS
+      class << self
+        def mac?
+          ::Tk.windowingsystem == 'aqua'
+        end
+        
+        def windows?
+          ::Tk.windowingsystem == 'win32'
+        end
+        
+        def linux?
+          ::Tk.windowingsystem == 'x11'
+        end
+      end
     end
   end
 end
+
+begin
+  OS
+rescue
+  ::OS = Glimmer::Tk::OS
+end

data/lib/glimmer/tk/toplevel_proxy.rb

@@ -36,6 +36,7 @@ module Glimmer
       alias escapable? escapable
       
       def post_add_content
+        center_within_screen unless @x || @y
         if escapable?
            on('KeyPress') do |event|
             if event.keysym == 'Escape'
@@ -93,10 +94,12 @@ module Glimmer
       end
       
       def x=(value)
+        @x = value
         self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}#{y_sign}#{abs_y}"
       end
       
       def y=(value)
+        @y = value
         self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}"
       end
       
@@ -110,6 +113,17 @@ module Glimmer
         end
       end
       
+      def center_within_screen
+        monitor_width, monitor_height = wm_maxsize
+        update :idletasks
+        current_width = width
+        current_height = height
+        self.x = (winfo_screenwidth - width) / 2
+        self.y = (winfo_screenheight - height) / 2
+        self.width = width
+        self.height = height
+      end
+      
       private
       
       def sign_number(sign, number)

data/lib/glimmer-dsl-tk.rb

@@ -29,7 +29,6 @@ require 'puts_debuggerer' if ENV['pd'].to_s.downcase == 'true'
 require 'tk'
 #require 'tkextlib/bwidget' # does not work on Windows
 #require 'tkextlib/iwidgets' # does not work on Windows
-require 'os'
 require 'facets/hash/symbolize_keys'
 require 'facets/string/underscore'
 require 'facets/string/camelcase'
@@ -38,6 +37,7 @@ require 'delegate'
 # Internal requires
 # require 'ext/glimmer/config'
 # require 'ext/glimmer'
+require 'glimmer/tk/os'
 require 'glimmer/dsl/tk/dsl'
 
 Glimmer::Config.loop_max_count = -1
@@ -48,11 +48,11 @@ Glimmer::Config.excluded_keyword_checkers << lambda do |method_symbol, *args|
   result ||= method == 'load_iseq'
 end
 
-Tk::Tile::Style.theme_use 'clam' if OS.linux?
+::Tk::Tile::Style.theme_use 'clam' if OS.linux?
 
 ::TkOption.add '*tearOff', 0
 
-class ::Tk::TkSysMenu_Window < Tk::Menu
-  include Tk::SystemMenu
+class ::Tk::TkSysMenu_Window < ::Tk::Menu
+  include ::Tk::SystemMenu
   SYSMENU_NAME = 'window'
 end

data/samples/hello/hello_contextual_menu.rb

@@ -0,0 +1,192 @@
+# 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' if OS.mac? # this enables setting background on label just for demo purposes
+
+root { |r|
+  title 'Hello, Contextual Menu!'
+  
+  @label = label {
+    grid row_weight: 1, column_weight: 1
+    text 'Right-Click To Pop Up Contextual Menu!'
+    font size: 50
+    anchor 'center'
+  }
+  
+  # Contextual Menu is bound to mouse right-click (and CTRL-click on Mac) by default
+  # (Read Comment Below for Alternative)
+  menu {
+    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__)
+          
+          on('command') do
+            message_box(parent: r, title: 'Language Selection', message: "You selected the language of #{image_name.capitalize}!")
+          end
+        }
+      end
+    }
+    
+    menu(label: 'Country', underline: 0) {
+      ['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'
+          
+          on('command') do
+            message_box(parent: r, title: 'Country Selection', message: "You selected the country of #{image_name.capitalize}!")
+          end
+        }
+      end
+    }
+    
+    menu(label: 'Format', underline: 3) {
+      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 'Control+S'
+        
+        on('command') do
+          @label.font = {size: 25}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Medium', underline: 0) {
+        accelerator 'Control+M'
+        selection true
+
+        on('command') do
+          @label.font = {size: 50}
+        end
+      }
+      
+      menu_item(:radiobutton, label: 'Large', underline: 0) {
+        accelerator 'Control+L'
+        
+        on('command') do
+          @label.font = {size: 75}
+        end
+      }
+    }
+  }
+  
+  # You can replace `menu {` code with `menu(bind: false) {` if you want to bind manually,
+  # which can be useful if you want to show menu at a specific location based on conditional logic.
+  #
+  # You can also repurpose a `menu_bar` as a contextual menu by declaring `@menu = menu_bar {` and
+  # binding to mouse right-click.
+  #
+  # Example:
+  #
+  # @menu = menu(bind: false) {
+  #   menu(label: 'File', underline: 0) {
+  #     menu_item(label: 'Exit')
+  #   }
+  # }
+  # if OS.mac?
+  #   on('2') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   end
+  #   on('Control-1') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   end
+  # else
+  #   on('3') do |event|
+  #     @menu.popup(event.x_root, event.y_root)
+  #   end
+  # end
+}.open

data/samples/hello/hello_menu_bar.rb

@@ -37,7 +37,7 @@ root { |r|
     anchor 'center'
   }
   
-  menu {
+  menu_bar {
     # Mac-specific application menu (right next to the Apple menu)
     if OS.mac?
       menu(:application) {
@@ -157,6 +157,10 @@ root { |r|
         menu_item(:radiobutton, label: image_name.capitalize) {
           selection image_name == 'usa'
           image File.expand_path("images/#{image_name}.png", __dir__)
+          
+          on('command') do
+            message_box(parent: r, title: 'Language Selection', message: "You selected the language of #{image_name.capitalize}!")
+          end
         }
       end
     }
@@ -167,6 +171,10 @@ root { |r|
           selection image_name == 'usa'
           image File.expand_path("images/#{image_name}.png", __dir__)
           compound 'left'
+          
+          on('command') do
+            message_box(parent: r, title: 'Country Selection', message: "You selected the country of #{image_name.capitalize}!")
+          end
         }
       end
     }

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.47
+  version: 0.0.51
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-11-22 00:00:00.000000000 Z
+date: 2021-12-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -208,6 +208,7 @@ files:
 - lib/glimmer/dsl/tk/widget_expression.rb
 - lib/glimmer/tk/checkbutton_proxy.rb
 - lib/glimmer/tk/combobox_proxy.rb
+- lib/glimmer/tk/drag_and_drop_event.rb
 - lib/glimmer/tk/draggable_and_droppable.rb
 - lib/glimmer/tk/entry_proxy.rb
 - lib/glimmer/tk/frame_proxy.rb
@@ -217,6 +218,7 @@ files:
 - lib/glimmer/tk/menu_item_proxy.rb
 - lib/glimmer/tk/menu_proxy.rb
 - lib/glimmer/tk/notebook_proxy.rb
+- lib/glimmer/tk/os.rb
 - lib/glimmer/tk/radiobutton_proxy.rb
 - lib/glimmer/tk/root_proxy.rb
 - lib/glimmer/tk/scrollbar_frame_proxy.rb
@@ -228,7 +230,6 @@ files:
 - lib/glimmer/tk/variable_owner.rb
 - lib/glimmer/tk/widget.rb
 - lib/glimmer/tk/widget_proxy.rb
-- lib/os.rb
 - samples/elaborate/meta_sample.rb
 - samples/hello/hello_built_in_dialog.rb
 - samples/hello/hello_button.rb
@@ -236,6 +237,7 @@ files:
 - samples/hello/hello_combobox.rb
 - samples/hello/hello_computed.rb
 - samples/hello/hello_computed/contact.rb
+- samples/hello/hello_contextual_menu.rb
 - samples/hello/hello_drag_and_drop.rb
 - samples/hello/hello_entry.rb
 - samples/hello/hello_frame.rb