glimmer-dsl-tk 0.0.30 → 0.0.31

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 9c90a3de5c636e2d9fcce122eaa07691e49842721d356a6266e75ff3f77b15ed
-  data.tar.gz: 82927885f588122a63c984c6acbd13110bc93197a075e8d3ef522bce98162ac9
+  metadata.gz: 883bb9d265c58ea872a90069aba8e308ee4688653d2ca200fb5289976850dc1c
+  data.tar.gz: 34f92aa593f48fbe0edf1b469ebc5ec0b81e2789a8995d1b04cd77748c72c081
 SHA512:
-  metadata.gz: ba0ba8c92a2294998b6b43ac7397a9f27d499becc7603d8e51823aac0a4f442152208ae316829c019ed5bdb3ee763c8165a7309c3789c3009328a64851aabb27
-  data.tar.gz: b0a1bfe8894b410bbcf5781721fb3a044d0534b5f31260a128f9232db89d331ea7ec1843d288abc1ab16f17f046f3f869739d14c11bf74aa30bb7dbc59f9c551
+  metadata.gz: a8a0d78446483775e82da34e94ede3a1566b2e1201cd5c3bbbfaa1ed27f424bcb1d61826b7f600616550e999bcec117560d52742f3a4779d94dd8aa7adf18661
+  data.tar.gz: fbc6ad5515dc20099c7e1c1827738f7d2edc133575f030afa69c2256c3e2bc6981986e494ada3498eeda6e4809bc5409dd7a61cc91666898d0dd48d7f1805277

data/CHANGELOG.md

@@ -1,10 +1,17 @@
 # Change Log
 
-## 0.0.30
+## 0.0.31
 
 - Improve Hello, Text! (toolbar buttons: justify left, justify center, justify right)
-- Fixed Hello, Built-in Dialog! Font Dialog issue
+- `on('destroy') {|widget| ...}` support in widgets to better track calls to "destroy" method and `'<Destroy>'` binding event (as opposed to the unreliable tracking of '<Destroy>' alone)
+- Support observing `text` general events (e.g. `'<KeyPress>'`) through `on(event) {}` (was not working before because it required applying a tag, a general `__all__` tag is applied automatically now on full range (`1.0` to `end`))
+- Ensure unregistering observers (like data-binding observers) when destroying a widget
+- Add `Glimmer::Tk::ToplevelProxy` widget proxy support similar to `Glimmer::Tk::RootProxy`
 
+## 0.0.30
+
+- Improve Hello, Text! (toolbar buttons: find dialog)
+- Fixed Hello, Built-in Dialog! Font Dialog issue
 ## 0.0.29
 
 - Hello, Built-in Dialog! (demonstrating all built-in dialogs like get_open_file and choose_color)

data/README.md

@@ -120,8 +120,9 @@ Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
   - [Applications](#applications)
     - [Glimmer Tk Calculator](#glimmer-tk-calculator)
     - [Y3network Ruby UI](#y3network-ruby-ui)
-    - [Cryptopunks GUI](#cryptopunks-gui)
+    - [CryptoPunks GUI](#cryptopunks-gui)
   - [Process](#process)
+  - [Resources](#resources)
   - [Help](#help)
     - [Issues](#issues)
     - [Chat](#chat)
@@ -1868,6 +1869,8 @@ Glimmer app:
 
 ### Hello, Text!
 
+You may use the META+F shortcut to bring up the Find Dialog.
+
 Icons used in this sample were made by <a href="https://www.flaticon.com/authors/freepik" title="Freepik">Freepik</a> from <a href="https://www.flaticon.com/" title="Flaticon"> www.flaticon.com</a>
 
 Glimmer code (from [samples/hello/hello_text.rb](samples/hello/hello_text.rb)):
@@ -2150,6 +2153,8 @@ Glimmer app:
 
 ![glimmer dsl tk screenshot sample hello text](images/glimmer-dsl-tk-screenshot-sample-hello-text.png)
 
+![glimmer dsl tk screenshot sample hello text find dialog](images/glimmer-dsl-tk-screenshot-sample-hello-text-find-dialog.png)
+
 ### Hello, Spinbox!
 
 Glimmer code (from [samples/hello/hello_spinbox.rb](samples/hello/hello_spinbox.rb)):
@@ -2624,31 +2629,34 @@ Glimmer app:
 
 https://github.com/ancorgs/glimmer-tk-calculator
 
-https://raw.githubusercontent.com/ancorgs/glimmer-tk-calculator/master/screenshot.png
+![Glimmer Tk Calculator Screenshot](https://raw.githubusercontent.com/ancorgs/glimmer-tk-calculator/master/screenshot.png)
 
 ### Y3network Ruby UI
 
 https://github.com/ancorgs/y3network-ruby-ui
 
-### Cryptopunks GUI
+### CryptoPunks GUI
 
-This is a Graphical User Interface for the famous [Cryptopunks Ruby gem](https://github.com/cryptopunksnotdead/cryptopunks/tree/master/cryptopunks).
+This is a Graphical User Interface for the famous [cryptopunks Ruby gem](https://github.com/cryptopunksnotdead/cryptopunks/tree/master/cryptopunks).
 
 https://github.com/AndyObtiva/cryptopunks-gui
 
-![Cryptopunks GUI Screenshot](https://raw.githubusercontent.com/AndyObtiva/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
+![CryptoPunks GUI Screenshot](https://raw.githubusercontent.com/AndyObtiva/cryptopunks-gui/master/screenshots/cryptopunks-gui-screenshot.png)
 
 ## Process
 
 [Glimmer Process](https://github.com/AndyObtiva/glimmer/blob/master/PROCESS.md)
 
+## Resources
+
+- [Tk Tutorial](https://tkdocs.com/tutorial/index.html)
+- [Code Master Blog](https://andymaleh.blogspot.com/search/label/Tk)
+
 ## Help
 
 ### Issues
 
-You may submit [issues](https://github.com/AndyObtiva/glimmer/issues) on [GitHub](https://github.com/AndyObtiva/glimmer/issues).
-
-[Click here to submit an issue.](https://github.com/AndyObtiva/glimmer/issues)
+If you encounter [issues](https://github.com/AndyObtiva/glimmer-dsl-tk/issues) that are not reported, discover missing features that are not mentioned in [TODO.md](TODO.md), or think up better ways to use [Tk](https://www.tcl.tk/) than what is possible with [Glimmer DSL for Tk](https://rubygems.org/gems/glimmer-dsl-tk), you may submit an [issue](https://github.com/AndyObtiva/glimmer-dsl-tk/issues/new) or [pull request](https://github.com/AndyObtiva/glimmer-dsl-tk/compare) on [GitHub](https://github.com).
 
 ### Chat
 

data/VERSION

@@ -1 +1 @@
-0.0.30
+0.0.31

data/lib/glimmer/data_binding/tk/one_time_observer.rb

@@ -0,0 +1,39 @@
+# 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/data_binding/observer'
+
+module Glimmer
+  module DataBinding
+    module Tk
+      # Decorator for Observer that ensures it is only called once
+      # (subsequent invocations of call method do nothing)
+      module OneTimeObserver
+        def call(value)
+          unless @called
+            super
+            @called = true
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/tk/data_binding_expression.rb

@@ -38,12 +38,13 @@ module Glimmer
         end
   
         def interpret(parent, keyword, *args, &block)
-          parent.class
           model_binding = args[0]
           widget_binding_parameters = [parent, keyword]
           widget_binding = DataBinding::Tk::WidgetBinding.new(*widget_binding_parameters)
           #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
-          widget_binding.observe(model_binding)
+          registration = widget_binding.observe(model_binding)
+          parent.on('destroy') { registration.deregister }
+
           # TODO simplify this logic and put it where it belongs
           parent.add_observer(model_binding, keyword) if parent.respond_to?(:add_observer, [model_binding, keyword])
           widget_binding.call(model_binding.evaluate_property)

data/lib/glimmer/dsl/tk/widget_expression.rb

@@ -33,11 +33,15 @@ module Glimmer
   
         def can_interpret?(parent, keyword, *args, &block)
           !EXCLUDED_KEYWORDS.include?(keyword) and
-            parent.respond_to?(:tk) and
             Glimmer::Tk::WidgetProxy.widget_exists?(keyword)
+            (parent.respond_to?(:tk) or args.first.respond_to?(:tk))
         end
   
         def interpret(parent, keyword, *args, &block)
+          if keyword == 'toplevel' && args.first.respond_to?(:tk)
+            parent = args.first
+            args[0] = args.first.tk
+          end
           Glimmer::Tk::WidgetProxy.create(keyword, parent, args, &block)
         end
         

data/lib/glimmer/tk/root_proxy.rb

@@ -19,18 +19,14 @@
 # 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'
+require 'glimmer/tk/toplevel_proxy'
 
 module Glimmer
   module Tk
     # Proxy for TkRoot
     #
     # Follows the Proxy Design Pattern
-    class RootProxy < WidgetProxy
-      REGEX_GEOMETRY = /[x+-]/
-      DEFAULT_WIDTH = 190
-      DEFAULT_HEIGHT = 95
-      
+    class RootProxy < ToplevelProxy
       def initialize(*args, &block)
         @tk = ::TkRoot.new
         @tk.minsize = DEFAULT_WIDTH, DEFAULT_HEIGHT
@@ -50,10 +46,6 @@ module Glimmer
         Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::RootExpression.new, keyword, *args, &block)
       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'
@@ -70,45 +62,8 @@ module Glimmer
         end
       end
       
-      def width
-        geometry.split(REGEX_GEOMETRY)[0].to_i
-      end
-      
-      def height
-        geometry.split(REGEX_GEOMETRY)[1].to_i
-      end
-      
-      def x
-        sign_number(x_sign, geometry.split(REGEX_GEOMETRY)[2].to_i)
-      end
-      
-      def y
-        sign_number(y_sign, geometry.split(REGEX_GEOMETRY)[3].to_i)
-      end
-      
-      def width=(value)
-        @width = value.to_i
-        self.geometry = "#{value.to_i}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
-      end
-      
-      def height=(value)
-        @height = value.to_i
-        self.geometry = "#{@width || DEFAULT_WIDTH}x#{value.to_i}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
-      end
-      
-      def 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)
-        self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}"
-      end
-      
       def handle_listener(listener_name, &listener)
         case listener_name.to_s.upcase
-        when 'WM_DELETE_WINDOW', 'DELETE_WINDOW'
-          listener_name = 'WM_DELETE_WINDOW'
-          @tk.protocol(listener_name, &listener)
         when 'WM_OPEN_WINDOW', 'OPEN_WINDOW'
           @on_open_window_procs ||= []
           @on_open_window_procs << listener
@@ -128,36 +83,6 @@ module Glimmer
         end
         ::Tk.mainloop
       end
-      
-      private
-      
-      def sign_number(sign, number)
-        "#{sign}1".to_i * number
-      end
-      
-      def abs_x
-        geometry.split(REGEX_GEOMETRY)[2].to_i
-      end
-      
-      def abs_y
-        geometry.split(REGEX_GEOMETRY)[3].to_i
-      end
-      
-      def x_sign
-        geometry_signs[0]
-      end
-      
-      def y_sign
-        geometry_signs[1]
-      end
-      
-      def geometry_signs
-        geometry.chars.select {|char| char.match(/[+-]/)}
-      end
-      
-      def initialize_defaults
-        self.background = '#ececec' if OS.mac?
-      end
     end
   end
 end

data/lib/glimmer/tk/text_proxy.rb

@@ -28,8 +28,7 @@ module Glimmer
     # Follows the Proxy Design Pattern
     class TextProxy < WidgetProxy
       def handle_listener(listener_name, &listener)
-        listener_name = listener_name.to_s.downcase
-        case listener_name
+        case listener_name.to_s.downcase
         when '<<modified>>', '<modified>', 'modified'
           modified_listener = Proc.new do |*args|
             listener.call(*args)
@@ -38,8 +37,20 @@ module Glimmer
           bind('<Modified>', modified_listener)
         when '<<selection>>', '<selection>', 'selection'
           bind('<Selection>', listener)
-        else
+        when 'destroy'
           super
+        else
+          @tk.tag_add('__all__', '1.0', 'end') unless @tk.tag_names.include?('__all__')
+          # 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
+          begin
+            @tk.tag_bind('__all__', listener_name, &listener)
+          rescue => e
+            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.tag_bind('__all__', listener_name, &listener)
+          end
         end
       end
     

data/lib/glimmer/tk/toplevel_proxy.rb

@@ -0,0 +1,119 @@
+# 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
+    # Proxy for TkToplevel
+    #
+    # Follows the Proxy Design Pattern
+    class ToplevelProxy < WidgetProxy
+      REGEX_GEOMETRY = /[x+-]/
+      DEFAULT_WIDTH = 190
+      DEFAULT_HEIGHT = 95
+      
+      attr_reader :tk
+      
+      def has_attribute?(attribute, *args)
+        %w[width height x y].include?(attribute.to_s) || super
+      end
+      
+      def width
+        geometry.split(REGEX_GEOMETRY)[0].to_i
+      end
+      
+      def height
+        geometry.split(REGEX_GEOMETRY)[1].to_i
+      end
+      
+      def x
+        sign_number(x_sign, geometry.split(REGEX_GEOMETRY)[2].to_i)
+      end
+      
+      def y
+        sign_number(y_sign, geometry.split(REGEX_GEOMETRY)[3].to_i)
+      end
+      
+      def width=(value)
+        @width = value.to_i
+        self.geometry = "#{value.to_i}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
+      end
+      
+      def height=(value)
+        @height = value.to_i
+        self.geometry = "#{@width || DEFAULT_WIDTH}x#{value.to_i}#{x_sign}#{abs_x}#{y_sign}#{abs_y}"
+      end
+      
+      def 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)
+        self.geometry = "#{@width || DEFAULT_WIDTH}x#{@height || DEFAULT_HEIGHT}#{x_sign}#{abs_x}#{value.to_i > 0 ? '+' : '-'}#{value.to_i.abs}"
+      end
+      
+      def handle_listener(listener_name, &listener)
+        case listener_name.to_s.upcase
+        when 'WM_DELETE_WINDOW', 'DELETE_WINDOW'
+          listener_name = 'WM_DELETE_WINDOW'
+          @tk.protocol(listener_name, &listener)
+        else
+          super
+        end
+      end
+      
+      private
+      
+      def sign_number(sign, number)
+        "#{sign}1".to_i * number
+      end
+      
+      def abs_x
+        geometry.split(REGEX_GEOMETRY)[2].to_i
+      end
+      
+      def abs_y
+        geometry.split(REGEX_GEOMETRY)[3].to_i
+      end
+      
+      def x_sign
+        geometry_signs[0]
+      end
+      
+      def y_sign
+        geometry_signs[1]
+      end
+      
+      def geometry_signs
+        geometry.chars.select {|char| char.match(/[+-]/)}
+      end
+      
+      def initialize_defaults
+        self.background = '#ececec' if OS.mac?
+        on('DELETE_WINDOW') do
+          grab_release
+          destroy
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/widget_proxy.rb

@@ -19,6 +19,8 @@
 # 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/data_binding/tk/one_time_observer'
+
 module Glimmer
   module Tk
     # Proxy for Tk Widget objects
@@ -83,6 +85,27 @@ module Glimmer
         post_add_content if @block.nil?
       end
       
+      def root_parent_proxy
+        current = self
+        current = current.parent_proxy while current.parent_proxy
+        current
+      end
+      
+      def toplevel_parent_proxy
+        ancestor_proxies.find {|widget_proxy| widget_proxy.is_a?(ToplevelProxy)}
+      end
+      
+      # returns list of ancestors ordered from direct parent to root parent
+      def ancestor_proxies
+        ancestors = []
+        current = self
+        while current.parent_proxy
+          ancestors << current.parent_proxy
+          current = current.parent_proxy
+        end
+        ancestors
+      end
+      
       def children
         @children ||= []
       end
@@ -227,7 +250,7 @@ module Glimmer
       
       def grid(options = {})
         options = options.stringify_keys
-        index_in_parent = @parent_proxy.children.index(self)
+        index_in_parent = @parent_proxy&.children&.index(self)
         options['rowspan'] = options.delete('row_span') if options.keys.include?('row_span')
         options['columnspan'] = options.delete('column_span') if options.keys.include?('column_span')
         options['rowweight'] = options.delete('row_weight') if options.keys.include?('row_weight')
@@ -240,10 +263,12 @@ module Glimmer
         options['columnminsize'] = options.delete('minwidth') if options.keys.include?('minwidth')
         options['columnminsize'] = options.delete('min_width') if options.keys.include?('min_width')
         options['columnminsize'] = options['rowminsize'] = options.delete('minsize')  if options.keys.include?('minsize')
-        TkGrid.rowconfigure(@parent_proxy.tk, index_in_parent, 'weight'=> options.delete('rowweight')) if options.keys.include?('rowweight')
-        TkGrid.rowconfigure(@parent_proxy.tk, index_in_parent, 'minsize'=> options.delete('rowminsize')) if options.keys.include?('rowminsize')
-        TkGrid.columnconfigure(@parent_proxy.tk, index_in_parent, 'weight'=> options.delete('columnweight')) if options.keys.include?('columnweight')
-        TkGrid.columnconfigure(@parent_proxy.tk, index_in_parent, 'minsize'=> options.delete('columnminsize')) if options.keys.include?('columnminsize')
+        if index_in_parent
+          TkGrid.rowconfigure(@parent_proxy.tk, index_in_parent, 'weight'=> options.delete('rowweight')) if options.keys.include?('rowweight')
+          TkGrid.rowconfigure(@parent_proxy.tk, index_in_parent, 'minsize'=> options.delete('rowminsize')) if options.keys.include?('rowminsize')
+          TkGrid.columnconfigure(@parent_proxy.tk, index_in_parent, 'weight'=> options.delete('columnweight')) if options.keys.include?('columnweight')
+          TkGrid.columnconfigure(@parent_proxy.tk, index_in_parent, 'minsize'=> options.delete('columnminsize')) if options.keys.include?('columnminsize')
+        end
         @tk.grid(options)
       end
       
@@ -259,6 +284,11 @@ module Glimmer
         apply_style({"font" => value})
       end
       
+      def destroy
+        @tk.destroy
+        @on_destroy_procs&.each {|p| p.call(@tk)}
+      end
+      
       def apply_style(options)
         @@style_number = 0 unless defined?(@@style_number)
         style = "style#{@@style_number += 1}.#{@tk.class.name.split('::').last}"
@@ -421,17 +451,31 @@ module Glimmer
       
       def handle_listener(listener_name, &listener)
         listener_name = listener_name.to_s
-        begin
-          @tk.bind(listener_name, &listener)
-        rescue => e
-          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)
+        if listener_name == 'destroy'
+          # 'destroy' is a more reliable alternative listener binding to '<Destroy>'
+          @on_destroy_procs ||= []
+          listener.singleton_class.include(Glimmer::DataBinding::Tk::OneTimeObserver) unless listener.is_a?(Glimmer::DataBinding::Tk::OneTimeObserver)
+          @on_destroy_procs << listener
+          @tk.bind('<Destroy>', listener)
+          parent_proxy.handle_listener(listener_name, &listener) if parent_proxy
+          # TODO return a listener registration object that has a deregister method
+        else
+          begin
+            @tk.bind(listener_name, &listener)
+          rescue => e
+            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)
+          end
         end
       end
       
+      def on(listener_name, &listener)
+        handle_listener(listener_name, &listener)
+      end
+      
       def content(&block)
         Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Tk::WidgetExpression.new, keyword, *args, &block)
       end

data/samples/hello/hello_text.rb

@@ -64,7 +64,7 @@ class HelloText
     MULTI_LINE_STRING
   end
   
-  attr_accessor :document
+  attr_accessor :document, :find_text
       
   attr_accessor :foreground
   
@@ -90,8 +90,16 @@ class HelloText
     [FONT_SIZE_PROMPT] + (9..64).to_a.map(&:to_s)
   end
   
+  def find
+    text_index = @text.search(/#{find_text}/i, @text.tag_ranges('sel')&.first&.last || @text.index('insert'))
+    unless text_index.to_s.empty?
+      @text.tag_remove('sel', '1.0', 'end')
+      @text.tag_add('sel', text_index, "#{text_index} + #{find_text.size} chars")
+    end
+  end
+  
   def launch
-    root {
+    root { |r|
       title 'Hello, Text!'
       width 1280
       height 800
@@ -272,6 +280,49 @@ class HelloText
         wrap 'word'
         undo true
         value <=> [self, :document]
+        
+        on('KeyPress') do |event|
+          if event.state == 8 && event.char == 'f'
+            toplevel(r) { |tl|
+              title 'Find'
+              
+              label {
+                text 'Text:'
+              }
+              entry { |e|
+                focus true
+                text <=> [
+                  self,
+                  :find_text,
+                  after_write: lambda do
+                    text_index = @text.search(/#{find_text}/i, 'insert')
+                    unless text_index.to_s.empty?
+                      @text.tag_remove('sel', '1.0', 'end')
+                      @text.tag_add('sel', text_index, "#{text_index} + #{find_text.size} chars")
+                    end
+                  end
+                ]
+                
+                on('KeyPress') do |event|
+                  if event.keysym == 'Return'
+                    find
+                  elsif event.keysym == 'Escape'
+                    tl.grab_release
+                    tl.destroy
+                  end
+                end
+              }
+              button {
+                text 'Find'
+                default 'active'
+                
+                on('command') do
+                  find
+                end
+              }
+            }
+          end
+        end
       }
     }.open
   end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-tk
 version: !ruby/object:Gem::Version
-  version: 0.0.30
+  version: 0.0.31
 platform: ruby
 authors:
 - AndyMaleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-23 00:00:00.000000000 Z
+date: 2021-10-28 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -211,6 +211,7 @@ files:
 - icons/glimmer.png
 - lib/glimmer-dsl-tk.rb
 - lib/glimmer/data_binding/tk/list_selection_binding.rb
+- lib/glimmer/data_binding/tk/one_time_observer.rb
 - lib/glimmer/data_binding/tk/widget_binding.rb
 - lib/glimmer/dsl/tk/attribute_expression.rb
 - lib/glimmer/dsl/tk/bind_expression.rb
@@ -240,6 +241,7 @@ files:
 - lib/glimmer/tk/spinbox_proxy.rb
 - lib/glimmer/tk/text_proxy.rb
 - lib/glimmer/tk/text_variable_owner.rb
+- lib/glimmer/tk/toplevel_proxy.rb
 - lib/glimmer/tk/treeview_proxy.rb
 - lib/glimmer/tk/variable_owner.rb
 - lib/glimmer/tk/widget_proxy.rb