glimmer-dsl-tk 0.0.26 → 0.0.30

data/VERSION

@@ -1 +1 @@
-0.0.26
+0.0.30

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

@@ -0,0 +1,57 @@
+# 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'
+require 'glimmer/dsl/expression'
+
+module Glimmer
+  module DSL
+    module Tk
+      class BuiltInDialogExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword = "get_#{keyword}" if keyword.start_with?('open')
+          (keyword.start_with?('get') or keyword.start_with?('choose')) and
+          (
+            (block.nil? and ::Tk.respond_to?(keyword.camelcase)) or
+            keyword == 'choose_font'
+          )
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          if args.first.is_a?(Hash)
+            options = args.first.symbolize_keys
+            options[:filetypes] = options.delete(:file_types) if options.keys.include?(:file_types)
+            options[:filetypes] = options[:filetypes].map { |key, value| "{#{key}} {#{value}}" } if options[:filetypes].is_a?(Hash)
+            options[:parent] = options[:parent].tk if options[:parent].is_a?(Glimmer::Tk::RootProxy)
+            args[0] = options
+          end
+          keyword = "get_#{keyword}" if keyword.start_with?('open') || keyword.start_with?('save') || keyword.start_with?('multiple')
+          if keyword == 'choose_font'
+            TkFont::Fontchooser.configure(:font => args, :command => block)
+            TkFont::Fontchooser.show
+          else
+            ::Tk.send(keyword.camelcase, *args)
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -42,6 +42,7 @@ module Glimmer
           attribute
           shine_data_binding
           widget
+          built_in_dialog
         ]
       )
     end

data/lib/glimmer/tk/drag_and_drop_extension.rb

@@ -0,0 +1,112 @@
+require "json"
+
+module Glimmer
+  module Tk
+    class WidgetProxy
+      attr_accessor :on_drag_motion_block
+
+      def drag_source=(value)
+        @drag_source = value
+        if @drag_source
+          make_draggable
+        else
+          make_non_draggable
+        end
+      end
+
+      def on_drag_start_block=(block)
+        @on_drag_start_block = block
+        make_draggable
+      end
+
+      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 + "}"))
+          @on_drop_block.call(drop_event) if self.tk == drop_event.target
+        })
+        self.tk.bind("<DropCheckEvent>", proc { |tk_event|
+          drop_check_event = DragAndDropEvent.json_create(JSON.parse("{" + tk_event.detail + "}"))
+          drop_check_event.source.event_generate("<DropAcceptedEvent>")
+        })
+      end
+
+      def textvariable_defined?
+        tk_widget_has_attribute_setter?(:textvariable) && !tk.textvariable.nil?
+      end
+
+      def make_draggable
+        drag_event = nil
+        bind("<DropAcceptedEvent>", proc { |event| drag_event.drop_accepted = true })
+        bind("B1-Motion", proc { |tk_event|
+          if drag_event.nil?
+            tooltip = TkToplevel.new(root).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.tk, 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
+              drag_event.data = if textvariable_defined? then tk.textvariable.value elsif has_attribute?(:text) then tk.text end
+              TkLabel.new(tooltip) { text drag_event.data }.pack
+            elsif !@on_drag_start_block.nil?
+              @on_drag_start_block.call(drag_event)
+              TkLabel.new(tooltip) { text drag_event.data }.pack if tooltip.winfo_children().length == 0
+            end
+          else
+            drag_event.x_root, drag_event.y_root = tk_event.x_root, tk_event.y_root
+            drag_event.drop_accepted = false
+            move_over_widget = tk_event.widget.winfo_containing(tk_event.x_root, tk_event.y_root)
+            drag_event.target = move_over_widget
+            move_over_widget.event_generate("<DropCheckEvent>", :data => drag_event.to_json)
+            if @on_drag_motion_block.nil?
+              # Default motion behavior:
+              # 1.Change cursor to show whether text can be dropped.
+              # 2.Move tooltip with dragged data.
+              if drag_event.drop_accepted
+                tk_event.widget.configure(:cursor => "hand1")
+              else
+                tk_event.widget.configure(:cursor => "hand2")
+              end
+              drag_event.tooltip.geometry("+#{tk_event.x_root + 10}+#{tk_event.y_root - 2}")
+            else
+              @on_drag_motion_block.call(drag_event)
+            end
+          end
+        })
+        bind("ButtonRelease-1", proc { |tk_event|
+          if drag_event
+            drag_event.target = tk_event.widget.winfo_containing(tk_event.x_root, tk_event.y_root)
+            drag_event.source.configure(:cursor => "")
+            drag_event.target.event_generate("<DropEvent>", :data => drag_event.to_json)
+            drag_event.tooltip.destroy
+            drag_event = nil
+          end
+        })
+      end
+
+      def make_non_draggable
+        @tk.bind_remove("B1-Motion")
+        @tk.bind_remove("ButtonRelease-1")
+        @tk.bind_remove("<DropAcceptedEvent>")
+      end
+
+      DragAndDropEvent = Struct.new(:source, :target, :tooltip, :x_root, :y_root, :data, :drop_accepted) do
+        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]), ObjectSpace._id2ref(object["v"][2])].concat(object["v"].drop 3))
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/tk/label_proxy.rb

@@ -29,16 +29,6 @@ module Glimmer
     # Follows the Proxy Design Pattern
     class LabelProxy < WidgetProxy
       include TextVariableOwner
-      
-      FONTS_PREDEFINED = %w[default text fixed menu heading caption small_caption icon tooltip]
-      
-      def font=(value)
-        if (value.is_a?(Symbol) || value.is_a?(String)) && FONTS_PREDEFINED.include?(value.to_s.downcase)
-          @tk.font = "tk_#{value}_font".camelcase(:upper)
-        else
-          super
-        end
-      end
     end
   end
 end

data/lib/glimmer/tk/text_proxy.rb

@@ -43,22 +43,6 @@ module Glimmer
         end
       end
     
-      def text=(value)
-        if value != @text
-          if @text && value.start_with?(@text)
-            insert('end', value[@text.size..-1])
-          else
-            delete('1.0', 'end')
-            insert('end', value)
-          end
-          @text = value
-        end
-      end
-      
-      def text
-        @text = get("1.0", 'end')
-      end
-      
       def add_selection_format(option, value)
         process_selection_ranges { |range_start, range_end| add_format(range_start, range_end, option, value) }
       end
@@ -100,7 +84,7 @@ module Glimmer
         
         tag_names.select do |tag_name|
           @tk.tag_ranges(tag_name).any? do |range|
-            if range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f
+            if text_index_less_than_or_equal_to_other_text_index?(range.first, region_start) && text_index_greater_than_or_equal_to_other_text_index?(range.last, region_end)
               @tk.tag_cget(tag_name, option) == value
             end
           end
@@ -120,7 +104,7 @@ module Glimmer
           @tk.tag_ranges(tag_name).any? do |range|
             if range.first.to_f.between?(region_start.to_f, region_end.to_f) or
                range.last.to_f.between?(region_start.to_f, region_end.to_f) or
-               (range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f)
+               (text_index_less_than_or_equal_to_other_text_index?(range.first, region_start) && text_index_greater_than_or_equal_to_other_text_index?(range.last, region_end))
               @tk.tag_cget(tag_name, option) == value
             end
           end
@@ -141,47 +125,223 @@ module Glimmer
           add_format(region_start, region_end, option, value)
         end
       end
+           
+      # TODO Algorithm for font option formatting
+      # for a region, grab all the latest tags for each subregion as well as the widget font for subregions without a tag
+      # for each part of the region covered by a tag, augment its font with new font option (or remove if that is what is needed)
+      # Once add and remove are implemented, implement toggle
+      # Also, there is a need for a method that checks if a font option value applies to an entire region (to decide which way to toggle with toggle method)
+      def applied_font_format?(region_start, region_end, font_option, value)
+        applied_font_format_tags_and_regions(region_start, region_end).all? do |tag, region_start, region_end|
+          if tag.nil?
+            @tk.font.send(font_option) == value
+          else
+            @tk.tag_cget(tag, 'font').send(font_option) == value
+          end
+        end
+      end
+
+      def applied_font_format_tags_and_regions(region_start, region_end)
+        lines = value.split("\n")
+        tags_and_regions = []
+        all_tag_names = @tk.tag_names - ['sel']
+        (region_start.to_i..region_end.to_i).each do |line_number|
+          start_character_index = 0
+          start_character_index = region_start.to_s.split('.').last.to_i if line_number == region_start.to_i
+          end_character_index = lines[line_number - 1].size
+          end_character_index = region_end.to_s.split('.').last.to_i if line_number == region_end.to_i
+          (start_character_index...end_character_index).each do |character_index|
+            text_index = "#{line_number}.#{character_index}"
+            # TODO reimplement the following using @tk.tag_names without arg since passing an arg seems broken and returns inaccurate results
+            region_tag = all_tag_names.reverse.find do |tag|
+              @tk.tag_cget(tag, 'font') && @tk.tag_ranges(tag).any? do |range_start, range_end|
+                text_index_less_than_or_equal_to_other_text_index?(range_start, text_index) && text_index_greater_than_or_equal_to_other_text_index?(range_end, text_index)
+              end
+            end
+            end_text_index = add_to_text_index(text_index, 1)
+            if tags_and_regions&.last && region_tag == tags_and_regions.last.first
+              tags_and_regions.last[2] = end_text_index
+            else
+              tags_and_regions << [region_tag, text_index, end_text_index]
+            end
+          end
+        end
+        tags_and_regions
+      end
+
+      def add_font_format(region_start, region_end, font_option, value)
+        applied_font_format_tags_and_regions(region_start, region_end).each do |tag, tag_region_start, tag_region_end|
+          if tag
+            bigger_region_tag = @tk.tag_ranges(tag).any? do |range_start, range_end|
+              text_index_less_than_other_text_index?(range_start, tag_region_start) || text_index_greater_than_other_text_index?(range_end, tag_region_end)
+            end
+            if bigger_region_tag
+              @tk.tag_ranges(tag).each do |range_start, range_end|
+                if text_index_less_than_other_text_index?(range_start, tag_region_start) && text_index_less_than_or_equal_to_other_text_index?(range_end, tag_region_end) && text_index_greater_than_or_equal_to_other_text_index?(range_end, tag_region_start)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(range_start, tag_region_start, 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", value)
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                elsif text_index_greater_than_other_text_index?(range_end, tag_region_end) && text_index_greater_than_or_equal_to_other_text_index?(range_start, tag_region_start) && text_index_less_than_or_equal_to_other_text_index?(range_start, tag_region_end)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(tag_region_end, range_end, 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", value)
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                elsif text_index_less_than_other_text_index?(range_start, tag_region_start) && text_index_greater_than_other_text_index?(range_end, tag_region_end)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(range_start, tag_region_start, 'font', font)
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(tag_region_end, range_end, 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", value)
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                end
+              end
+            else
+              current_font = @tk.tag_cget(tag, 'font')
+              current_font.send("#{font_option}=", value)
+            end
+          else
+            add_format(tag_region_start, tag_region_end, 'font', default_font_attributes.merge(font_option => value))
+          end
+        end
+      end
+
+      def remove_font_format(region_start, region_end, font_option, value)
+        applied_font_format_tags_and_regions(region_start, region_end).each do |tag, tag_region_start, tag_region_end|
+          if tag
+            bigger_region_tag = @tk.tag_ranges(tag).any? do |range_start, range_end|
+              text_index_less_than_other_text_index?(range_start, tag_region_start) || text_index_greater_than_other_text_index?(range_end, tag_region_end)
+            end
+            if bigger_region_tag
+              @tk.tag_ranges(tag).each do |range_start, range_end|
+                if text_index_less_than_other_text_index?(range_start, tag_region_start) && text_index_less_than_or_equal_to_other_text_index?(range_end, tag_region_end) && text_index_greater_than_or_equal_to_other_text_index?(range_end, tag_region_start)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(range_start, subtract_from_text_index(tag_region_start, 1), 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", default_for_font_option(font_option))
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                elsif text_index_greater_than_other_text_index?(range_end, tag_region_end) && text_index_greater_than_or_equal_to_other_text_index?(range_start, tag_region_start) && text_index_less_than_or_equal_to_other_text_index?(range_start, tag_region_end)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(add_to_text_index(tag_region_end, 1), range_end, 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", default_for_font_option(font_option))
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                elsif text_index_less_than_other_text_index?(range_start, tag_region_start) && text_index_greater_than_other_text_index?(range_end, tag_region_end)
+                  font = @tk.tag_cget(tag, 'font')
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(range_start, subtract_from_text_index(tag_region_start, 1), 'font', font)
+                  remove_format(range_start, range_end, 'font', font)
+                  add_format(add_to_text_index(tag_region_end, 1), range_end, 'font', font)
+                  font_clone = clone_font(font)
+                  font_clone.send("#{font_option}=", default_for_font_option(font_option))
+                  add_format(tag_region_start, tag_region_end, 'font', font_clone)
+                end
+              end
+            else
+              current_font = @tk.tag_cget(tag, 'font')
+              current_font.send("#{font_option}=", default_for_font_option(font_option))
+            end
+          else
+            add_format(tag_region_start, tag_region_end, 'font', default_font_attributes.merge(font_option => default_for_font_option(font_option)))
+          end
+        end
+      end
+
+      # toggles option/value tag (removes if already applied)
+      def toggle_font_format(region_start, region_end, option, value)
+        if applied_font_format?(region_start, region_end, option, value)
+          remove_font_format(region_start, region_end, option, value)
+        else
+          add_font_format(region_start, region_end, option, value)
+        end
+      end
+      
+      def default_for_font_option(font_option)
+        @tk.font.send(font_option)
+      end
+      
+      def default_font_attributes
+        Hash[@tk.font.actual]
+      end
+      
+      def add_to_text_index(text_index, addition)
+        text_index_parts = text_index.split('.')
+        line = text_index_parts.first
+        char_index = text_index_parts.last
+        char_index = char_index.to_i + addition
+        "#{line}.#{char_index}"
+      end
             
-#       def applied_font_format?(region_start, region_end, option, value)
-#         !applied_font_format_tags(region_start, region_end, option, value).empty?
-#       end
-#
-#       def applied_font_format_tags(region_start, region_end, option, value)
-#         tag_names = @tk.tag_names - ['sel']
-#
-#         tag_names.select do |tag_name|
-#           @tk.tag_ranges(tag_name).any? do |range|
-#             if range.first.to_f <= region_start.to_f && range.last.to_f >= region_end.to_f
-#               @tk.tag_cget(tag_name, option) == value
-#             end
-#           end
-#         end
-#       end
-#
-#       def add_font_format(region_start, region_end, option, value)
-#       end
-#
-#       def remove_font_format(region_start, region_end, option, value)
-#       end
-#
-      ### toggles option/value tag (removes if already applied)
-#       def toggle_font_format(region_start, region_end, option, value)
-#         if applied_font_format?(region_start, region_end, option, value)
-          ### ensure removing from previous font combination (perhaps checking widget font too)
-#           remove_font_format(region_start, region_end, option, value)
-#         else
-          ### ensure adding to previous font combination (perhaps checking widget font too)
-#           add_font_format(region_start, region_end, option, value)
-#         end
-#       end
+      def subtract_from_text_index(text_index, subtraction)
+        add_to_text_index(text_index, -1 * subtraction)
+      end
+      
+      def text_index_less_than_other_text_index?(region1, region2)
+        region1_parts = region1.to_s.split('.')
+        region2_parts = region2.to_s.split('.')
+        return true if region1_parts.first.to_i < region2_parts.first.to_i
+        return false if region1_parts.first.to_i > region2_parts.first.to_i
+        region1_parts.last.to_i < region2_parts.last.to_i
+      end
+            
+      def text_index_less_than_or_equal_to_other_text_index?(region1, region2)
+        region1_parts = region1.to_s.split('.')
+        region2_parts = region2.to_s.split('.')
+        return true if region1_parts.first.to_i < region2_parts.first.to_i
+        return false if region1_parts.first.to_i > region2_parts.first.to_i
+        region1_parts.last.to_i <= region2_parts.last.to_i
+      end
+            
+      def text_index_greater_than_other_text_index?(region1, region2)
+        region1_parts = region1.to_s.split('.')
+        region2_parts = region2.to_s.split('.')
+        return true if region1_parts.first.to_i > region2_parts.first.to_i
+        return false if region1_parts.first.to_i < region2_parts.first.to_i
+        region1_parts.last.to_i > region2_parts.last.to_i
+      end
             
+      def text_index_greater_than_or_equal_to_other_text_index?(region1, region2)
+        region1_parts = region1.to_s.split('.')
+        region2_parts = region2.to_s.split('.')
+        return true if region1_parts.first.to_i > region2_parts.first.to_i
+        return false if region1_parts.first.to_i < region2_parts.first.to_i
+        region1_parts.last.to_i >= region2_parts.last.to_i
+      end
+      
+      def insert_image(text_index, *image_args)
+        TkTextImage.new(@tk, 'insert', :image => image_argument(image_args))
+      end
+      
+      def get_open_file_to_insert_image(text_index = 'insert')
+        image_filename = Glimmer::DSL::Tk::BuiltInDialogExpression.new.interpret(nil, 'get_open_file', filetypes: {
+          'PNG Images' => '.png',
+          'Gif Images' => '.gif',
+          'PPM Images' => '.ppm'
+        })
+        insert_image('insert', image_filename) unless image_filename.nil? || image_filename.to_s.empty?
+      end
+      
       private
       
       def initialize_defaults
         super
+        self.font = {family: 'Courier New'}
+        self.wrap = 'none'
         self.padx = 5
         self.pady = 5
       end
+      
+      def clone_font(font)
+        ::TkFont.new(Hash[font.actual])
+      end
     end
   end
 end

data/lib/glimmer/tk/widget_proxy.rb

@@ -34,7 +34,9 @@ module Glimmer
           begin
             class_name = "#{keyword.camelcase(:upper)}Proxy".to_sym
             Glimmer::Tk.const_get(class_name)
-          rescue
+          rescue => e
+            Glimmer::Config.logger.debug {"Unable to instantiate custom class name for #{keyword} ... defaulting to Glimmer::Tk::WidgetProxy"}
+            Glimmer::Config.logger.debug {e.full_message}
             Glimmer::Tk::WidgetProxy
           end
         end
@@ -54,13 +56,15 @@ module Glimmer
               tk_widget_class = eval(tk_widget_name)
               break
             rescue RuntimeError, SyntaxError, NameError => e
-              Glimmer::Config.logger.debug e.full_message
+              Glimmer::Config.logger.debug {e.full_message}
             end
           end
           tk_widget_class if tk_widget_class.respond_to?(:new)
         end
       end
       
+      FONTS_PREDEFINED = %w[default text fixed menu heading caption small_caption icon tooltip]
+      
       attr_reader :parent_proxy, :tk, :args, :keyword, :children
 
       # Initializes a new Tk Widget
@@ -104,6 +108,8 @@ module Glimmer
           @tk.send(attribute_setter(attribute), @tk.send(attribute))
           result = true
         rescue => e
+          Glimmer::Config.logger.debug { "No tk attribute setter for #{attribute}" }
+          Glimmer::Config.logger.debug { e.full_message }
           result = false
         end
         result
@@ -114,7 +120,8 @@ module Glimmer
           # TK Widget currently doesn't support respond_to? properly, so I have to resort to this trick for now
           @tk.send(attribute)
           true
-        rescue
+        rescue => e
+          Glimmer::Config.logger.debug { "No tk attribute getter setter for #{attribute}" }
           false
         end
       end
@@ -125,7 +132,8 @@ module Glimmer
           begin
             @tk.tile_instate(attribute)
             true
-          rescue
+          rescue => e
+            Glimmer::Config.logger.debug { "No tk state for #{attribute}" }
             false
           end
         else
@@ -220,6 +228,8 @@ module Glimmer
       def grid(options = {})
         options = options.stringify_keys
         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')
         options['columnweight'] = options.delete('column_weight') if options.keys.include?('column_weight')
         options['columnweight'] = options['rowweight'] = options.delete('weight')  if options.keys.include?('weight')
@@ -238,7 +248,11 @@ module Glimmer
       end
       
       def font=(value)
-        @tk.font = value.is_a?(TkFont) ? value : TkFont.new(value)
+        if (value.is_a?(Symbol) || value.is_a?(String)) && FONTS_PREDEFINED.include?(value.to_s.downcase)
+          @tk.font = "tk_#{value}_font".camelcase(:upper)
+        else
+          @tk.font = value.is_a?(TkFont) ? value : TkFont.new(value)
+        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}
@@ -247,7 +261,7 @@ module Glimmer
       
       def apply_style(options)
         @@style_number = 0 unless defined?(@@style_number)
-        style = "style#{@@style_number}.#{@tk.class.name.split('::').last}"
+        style = "style#{@@style_number += 1}.#{@tk.class.name.split('::').last}"
         ::Tk::Tile::Style.configure(style, options)
         @tk.style = style
       end
@@ -367,9 +381,9 @@ module Glimmer
             end,
           },
           ::Tk::Text => {
-            'text' => lambda do |observer|
+            'value' => lambda do |observer|
               handle_listener('modified') do
-                observer.call(text)
+                observer.call(value)
               end
             end,
           },
@@ -410,6 +424,7 @@ module Glimmer
         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?('>')

data/samples/elaborate/meta_sample.rb

@@ -74,8 +74,8 @@ class MetaSample
   def launch
     @root = root {
       title 'Glimmer Meta-Sample'
-      width 700
-      height 500
+      width 1280
+      height 720
       
       frame {
         grid row: 0, column: 0, column_weight: 0, row_weight: 1
@@ -87,7 +87,7 @@ class MetaSample
             
             on('command') do
               @selected_sample_index = index
-              @code_text.text = File.read(file_path_for(selected_sample))
+              @code_text.value = File.read(file_path_for(selected_sample))
             end
           }
         end
@@ -102,7 +102,7 @@ class MetaSample
                 parent_dir = File.join(Dir.home, '.glimmer-dsl-tk', 'samples', 'hello')
                 FileUtils.mkdir_p(parent_dir)
                 sample_file = File.join(parent_dir, "#{selected_sample.underscore}.rb")
-                File.write(sample_file, @code_text.text)
+                File.write(sample_file, @code_text.value)
                 FileUtils.cp_r(File.expand_path('../../icons', __dir__), File.dirname(File.dirname(parent_dir)))
                 FileUtils.cp_r(File.expand_path('../hello/images', __dir__), parent_dir)
                 sample_namespace_directory = File.expand_path("../hello/#{selected_sample.underscore}", __dir__)
@@ -120,7 +120,7 @@ class MetaSample
             text 'Reset'
             
             on('command') do
-              @code_text.text = File.read(file_path_for(selected_sample))
+              @code_text.value = File.read(file_path_for(selected_sample))
             end
           }
         }
@@ -128,7 +128,7 @@ class MetaSample
       
       @code_text = text {
         grid row: 0, column: 1, column_weight: 1
-        text File.read(file_path_for(selected_sample))
+        value File.read(file_path_for(selected_sample))
       }
     }
     @root.open