tkwrapper 1.5.0 → 1.7.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: abffb1cc7ae4efaf8b26ebdd49acca56837989829713473f21971f8a5f5a9063
-  data.tar.gz: 1e659e3049a41d4aff307f700ac27cc86d014ec844134aa65bc7bd20c2f692db
+  metadata.gz: 3ffefbd7d08458a1cfa097980b725729a14165d4b0a6a63319d2b651ed64369d
+  data.tar.gz: 87bd8af7b88ad3951a44829763fae77e5fb874a934d129b8b205c42f7c14af9b
 SHA512:
-  metadata.gz: efbad85fe488198ff115feac31872163da0da8b796ef0a21babf33d21976e14da0f809a93a502cbfc0f9225e4446e30c1b567680af2b3c7e7eae862cf0b5f64b
-  data.tar.gz: 7d0addd32901d46c6d0175219ee83dd4478f699bc05ec7804f0a76dac02b1950a11f7a22dafa494996961bc8f25582c1f6be4f36c3cf19c9b3a3e5050cb0df9f
+  metadata.gz: 5a80b659836c0627f762a40c6c275a398d0cd786153e5687ab57e6c4ba4116db8d8cb91f238bb3ca00e15624dfe14d73fa283ed9489d3dc7d546ff08254b8518
+  data.tar.gz: 22d9d0c242d08248fd569c70f4a068cbe8e1725218bfd876db691e8ec93df5968021560f15770b816c150863f4191edc3f63466ac0472cba2df357b2267af48b

data/lib/util/array.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+module Util
+  def self.first_not_nil(array, default = nil)
+    index = indexes.find { |i| !array[i].nil? }
+    index.nil? ? default : array[index]
+  end
+end

data/lib/util/hash_recursive.rb

@@ -1,12 +1,12 @@
 # frozen_string_literal: true
 
 module Util
-  def self.merge_recursive!(*hashes)
+  def self.merge_recursive!(*hashes, overwrite: true)
     hashes[0].merge!(*hashes[1..]) do |_key, old, new|
       if old.is_a?(Hash) && new.is_a?(Hash)
         merge_recursive!(old, new)
       else
-        new
+        overwrite ? new : old
       end
     end
   end

data/lib/util/tk/cell.rb

@@ -17,6 +17,7 @@ class TkWrapper::Util::Tk::Cell
     start_row = grid_info['row']
     end_row = start_row + grid_info['rowspan'] - 1
 
+    container.tk_widget.update
     TkGrid.bbox(container.tk_widget, start_col, start_row, end_col, end_row)
   end
 

data/lib/util/tk/finder.rb

@@ -15,6 +15,7 @@ class TkWrapper::Util::Tk::Finder
   end
 
   def iter(comparators, widgets = @widgets, lookup = @lookup)
+    comparators = [comparators] unless comparators.is_a?(Array)
     Enumerator.new do |y|
       comparators = each_widget_lookup_match(lookup, comparators) { |m| y << m }
       each_widget_comparator_match(widgets, comparators) { |m| y << m }
@@ -33,7 +34,6 @@ class TkWrapper::Util::Tk::Finder
   private
 
   def create_value_matchers(comparators)
-    comparators = [comparators] unless comparators.is_a?(Array)
     comparators.map { |comparator| Matcher.new(comparator: comparator) }
   end
 
@@ -55,7 +55,8 @@ class TkWrapper::Util::Tk::Finder
     matchers = create_value_matchers(comparators)
 
     widgets.each do |widget|
-      widget.ids.each do |id|
+      ids = widget.ids.empty? ? [nil] : widget.ids
+      ids.each do |id|
         matchers.each do |matcher|
           (match = matcher.match(id, widget)) && block.call(match)
         end

data/lib/util/tk/font.rb

@@ -48,4 +48,18 @@ class TkWrapper::Util::Tk::Font
   def update
     @tk_widget.font = TkFont.new(@config)
   end
+
+  def char_width
+    measure('0')
+  end
+
+  def linespace
+    metrics['linespace']
+  end
+
+  def metrics
+    @tk_widget.font.metrics.each_with_object({}) do |(key, value), metrics|
+      metrics[key] = value
+    end
+  end
 end

data/lib/widgets/auto_resize_entry.rb

@@ -12,7 +12,7 @@ class TkWrapper::Widgets::AutoResizeEntry < TkWrapper::Widgets::Entry
 
   def build(parent, **args)
     super(parent, **args)
-    parent.tk_widget.bind('Configure') { resize }
+    parent.bind('Configure') { resize }
     tk_widget.textvariable = TkVariable.new unless tk_widget.textvariable
     tk_widget.textvariable.trace('write') { resize }
     resize

data/lib/widgets/auto_resize_text.rb

@@ -0,0 +1,94 @@
+# frozen_string_literal: true
+
+require_relative 'text'
+
+class TkWrapper::Widgets::AutoResizeText < TkWrapper::Widgets::Frame
+  attr_reader :text
+
+  def initialize(**args)
+    @min_number_chars = 8
+    @min_number_lines = 2
+
+    super(**args)
+
+    @longest_line_width = 0
+    @config.merge({ grid: :onecell }, overwrite: false)
+  end
+
+  def create_childs
+    @text = Text.new(config: {
+      grid:   { sticky: 'nsew' },
+      width:  @min_number_chars,
+      height: @min_number_lines
+    })
+  end
+
+  def build(parent, **args)
+    super(parent, **args)
+    @text.bind('<Modified>', &method(:autoresize))
+    TkGrid.propagate(tk_widget, 0)
+    resize(lines: @min_number_lines, chars: @min_number_chars)
+  end
+
+  def resize(height: nil, width: nil, lines: nil, chars: nil)
+    width  = width_needed_for_chars(chars)  if chars
+    height = height_needed_for_lines(lines) if lines
+
+    opts.width  = width  if width
+    opts.height = height if height
+  end
+
+  private
+
+  # width of cursor + borders (textfield + frame) + padding (textfield + frame)
+  def additional_width_needed_for_textfield
+    @text.opts.insertwidth +
+      @text.accumulated_border_and_padding_width +
+      accumulated_border_and_padding_width
+  end
+
+  def additional_height_needed_for_textfield
+    # TODO: cursor height?
+    @text.accumulated_border_and_padding_height +
+      accumulated_border_and_padding_height
+  end
+
+  def width_needed_for_chars(num_chars)
+    text.font.char_width * num_chars + additional_width_needed_for_textfield
+  end
+
+  def height_needed_for_lines(num_lines)
+    @text.height_of_lines(num_lines) + additional_height_needed_for_textfield
+  end
+
+  def width_needed_for_textfield
+    @text.longest_line_width + additional_width_needed_for_textfield
+  end
+
+  def height_needed_for_textfield
+    @text.height_of_lines + additional_height_needed_for_textfield
+  end
+
+  def max_width
+    [@cell.bbox[2], 0].max
+  end
+
+  def min_width
+    [max_width, width_needed_for_chars(@min_number_chars)].min
+  end
+
+  def min_height
+    height_needed_for_lines(@min_number_lines)
+  end
+
+  def autoresize
+    return unless @text.tk_widget.modified?
+
+    width  = [[min_width,  width_needed_for_textfield].max, max_width].min
+    height = [min_height, height_needed_for_textfield].max
+
+    resize(height: height, width: width)
+
+    @text.tk_widget.modified(false)
+  end
+end

data/lib/widgets/base/configuration.rb

@@ -28,14 +28,14 @@ class TkWrapper::Widgets::Base::Configuration
     @config = parse_and_clone(config)
   end
 
-  def merge(*configurations)
+  def merge(*configurations, overwrite: true)
     configurations = configurations.map do |configuration|
       configuration = configuration.config if configuration.is_a?(self.class)
 
       parse_and_clone(configuration)
     end
 
-    Util.merge_recursive!(@config, *configurations)
+    Util.merge_recursive!(@config, *configurations, overwrite: overwrite)
   end
 
   def [](key)
@@ -77,17 +77,23 @@ class TkWrapper::Widgets::Base::Configuration
     @config[:grid].reject { |option, _| NON_TK_OPTIONS.include?(option) }
   end
 
+  def configure_grid(tk_widget)
+    grid = grid(only_tk_options: true)
+    return if grid.empty?
+
+    tk_widget.grid(grid)
+  end
+
   def configure_tk_widget(tk_widget)
     @config.each do |option, value|
       next if NON_TK_OPTIONS.include?(option)
 
-      if option == :grid
-        grid = grid(only_tk_options: true)
-        next if grid.empty?
-        next tk_widget.grid(grid) if option == :grid
+      case option
+      when :grid  then configure_grid(tk_widget)
+      when :pack  then tk_widget.pack(value)
+      when :place then tk_widget.place(value)
+      else             tk_widget[option] = value
       end
-
-      tk_widget[option] = value
     end
 
     configure_weights(tk_widget)

data/lib/widgets/base/manager.rb

@@ -47,6 +47,10 @@ class TkWrapper::Widgets::Base::Manager
     widget.config.merge(*configurations(widget))
   end
 
+  def tk_widget(id)
+    @widgets[id].tk_widget
+  end
+
   alias modify add_modification
   alias config add_configurations
 end

data/lib/widgets/base/matcher.rb

@@ -39,7 +39,7 @@ class TkWrapper::Widgets::Base::Matcher
     when String, Symbol then match_string(value, comparator, widget)
     when Regexp         then match_regex(value, comparator, widget)
     when Class          then match_class(value, comparator, widget)
-    when nil            then Match(value, { widget: widget })
+    when nil            then Match.new(value, widget: widget)
     else                     false
     end
   end

data/lib/widgets/base/matches.rb

@@ -25,10 +25,10 @@ class TkWrapper::Widgets::Base::Matches
   end
 
   def [](key)
-    case @matches[key].size
-    when 0 then nil
-    when 1 then @matches[key][0]
-    else        @matches[key]
+    case @matches[key]&.size
+    when 0, nil then nil
+    when 1      then @matches[key][0]
+    else             @matches[key]
     end
   end
 

data/lib/widgets/base/padding.rb

@@ -0,0 +1,60 @@
+# frozen_string_literal: true
+
+class TkWrapper::Widgets::Base::Padding
+  def initialize(widget)
+    @widget = widget
+  end
+
+  def set(left: nil, top: nil, right: nil, bottom: nil)
+    values = get
+    @widget.tk_widget.padding = [
+      left   || values.left,
+      top    || values.top,
+      right  || values.right,
+      bottom || values.bottom
+    ]
+  end
+
+  def get
+    (left, top, right, bottom) = @widget.tk_widget.padding.split
+
+    {
+      left:   left   || 0,
+      top:    top    || left || 0,
+      right:  right  || left || 0,
+      bottom: bottom || top  || left || 0
+    }
+  end
+
+  def left
+    get[:left]
+  end
+
+  def top
+    get[:top]
+  end
+
+  def right
+    get[:right]
+  end
+
+  def bottom
+    get[:bottom]
+  end
+
+  def left=(left)
+    set(left: left)
+  end
+
+  def top=(top)
+    set(top: top)
+  end
+
+  def right=(right)
+    set(right: right)
+  end
+
+  def bottom=(bottom)
+    set(bottom: bottom)
+  end
+end

data/lib/widgets/base/tk_options.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+require_relative 'padding'
+
+class TkWrapper::Widgets::Base::TkOptions
+  attr_reader :padding
+
+  def self.default_to_zero(*properties)
+    properties.each do |property|
+      define_method(property) do
+        value = @widget.tk_widget[property]
+        value.is_a?(Numeric) ? value : 0
+      end
+    end
+  end
+
+  default_to_zero :padx, :insertwidth, :borderwidth,
+                  :spacing1, :spacing2, :spacing3
+
+  def initialize(widget)
+    @widget = widget
+    @padding = TkWrapper::Widgets::Base::Padding.new(@widget)
+  end
+
+  def padding=(hash)
+    @padding.set(**hash)
+  end
+
+  def method_missing(key, value = nil)
+    if key[-1] == '='
+      @widget.tk_widget[key[0..-2].to_sym] = value
+    else
+      @widget.tk_widget[key]
+    end
+  end
+
+  def respond_to_missing?(*)
+    # no known way to check if tk_widget[key] exists
+    false
+  end
+end

data/lib/widgets/base/widget.rb

@@ -1,28 +1,49 @@
 require "#{LIB_DIR}/util/tk/cell"
 require "#{LIB_DIR}/util/tk/finder"
-require "#{LIB_DIR}/tk_extensions"
 
 require_relative 'base'
+require_relative 'window_info'
+require_relative 'tk_options'
 
 class TkWrapper::Widgets::Base::Widget
   extend Forwardable
-  include TkExtensions
   include Enumerable
 
   def_delegators :@finder, :find, :find_all
+  def_delegators :tk_widget, :update
+  def_delegator :tk_widget, :bind_append, :bind
+  def_delegator :@manager, :widgets, :managed
 
   attr_accessor :config
-  attr_reader :parent, :ids, :cell, :childs, :manager
+  attr_reader :parent, :ids, :cell, :childs, :manager, :winfo, :opts, :font
 
   def tk_class() end
 
-  def initialize(config: {}, childs: [], manager: nil, ids: [])
-    @cell = TkWrapper::Util::Tk::Cell.new(self)
-    @finder = TkWrapper::Util::Tk::Finder.new(widgets: self)
+  def initialize(parent: nil, config: {}, childs: [], manager: nil, ids: [], id: [])
+    initialize_utilities
     @config = TkWrapper::Widgets::Base::Configuration.new(config)
-    @childs = childs.is_a?(Array) ? childs : [childs]
     @manager = manager
-    @ids = ids.is_a?(Array) ? ids : [ids]
+    @ids = init_id(id) + init_id(ids)
+    @parent = parent
+    modify_configuration(@config)
+    @childs = normalize_childs(childs)
+    parent&.push(self)
+  end
+
+  def initialize_utilities
+    @cell   = TkWrapper::Util::Tk::Cell.new(self)
+    @winfo  = TkWrapper::Widgets::Base::WindowInfo.new(self)
+    @opts   = TkWrapper::Widgets::Base::TkOptions.new(self)
+    @finder = TkWrapper::Util::Tk::Finder.new(widgets: self)
+  end
+
+  def init_id(id)
+    id.is_a?(Array) ? id : [id]
+  end
+
+  def normalize_childs(childs)
+    childs = create_childs || childs
+    childs.is_a?(Array) ? childs : [childs]
   end
 
   def create_tk_widget(parent)
@@ -30,7 +51,7 @@ class TkWrapper::Widgets::Base::Widget
 
     return unless tk_class
 
-    parent&.tk_widget ? tk_class.new(parent.tk_widget) : tk_class.new
+    tk_class.new(parent&.tk_widget)
   end
 
   # if parent is provided and self has no tk_class, the tk_widget of the
@@ -41,23 +62,6 @@ class TkWrapper::Widgets::Base::Widget
     (@tk_widget = create_tk_widget(parent)) || parent&.tk_widget
   end
 
-  def build(parent, configure: true, manager: nil)
-    @parent = parent
-    tk_widget # creates the widget if possible and not yet created
-    @font = TkWrapper::Util::Tk::Font.new(tk_widget)
-    @manager ||= manager
-    @config.merge(*@manager.configurations(self)) if @manager
-    self.configure if configure
-    @manager&.execute_modifications(self)
-    @manager&.widgets&.push(self)
-    @childs.each { |child| child.build(self, manager: @manager) }
-  end
-
-  def configure
-    @config.configure_tk_widget(tk_widget)
-    @config.configure_tearoff
-  end
-
   def each(&block)
     nodes_to_walk = [self]
     until nodes_to_walk.empty?
@@ -69,6 +73,43 @@ class TkWrapper::Widgets::Base::Widget
 
   def push(child)
     @childs.push(child)
-    child.build(self)
+    child.build(self, manager: @manager)
+  end
+
+  protected
+
+  def build_childs
+    @childs.each { |child| child.build(self, manager: @manager) }
+  end
+
+  def modify_configuration(config) end
+
+  def create_childs() end
+
+  def before_build(**args) end
+
+  def after_build() end
+
+  def inner_build(configure: true, manager: nil)
+    tk_widget # creates the widget if possible and not yet created
+    @font = TkWrapper::Util::Tk::Font.new(tk_widget)
+    @manager ||= manager
+    @config.merge(*@manager.configurations(self), overwrite: false) if @manager
+    self.configure if configure
+    @manager&.execute_modifications(self)
+    @manager&.widgets&.push(self)
+    build_childs
+  end
+
+  def build(parent, configure: true, manager: nil)
+    @parent = parent
+    before_build(configure: configure, manager: manager)
+    inner_build(configure: configure, manager: manager)
+    after_build
+  end
+
+  def configure
+    @config.configure_tk_widget(tk_widget)
+    @config.configure_tearoff
   end
 end

data/lib/widgets/base/widget_store.rb

@@ -17,6 +17,7 @@ class TkWrapper::Widgets::Base::WidgetStore
     widget.ids.each do |id|
       (@lookup[id] ||= []).push(widget)
     end
+    (@lookup[nil] ||= []).push(widget) if widget.ids.empty?
   end
 
   def each(&block)
@@ -26,7 +27,7 @@ class TkWrapper::Widgets::Base::WidgetStore
   end
 
   def [](key)
-    @lookup[key].size == 1 ? @lookup[key].first : @lookup[key]
+    @lookup[key]&.size == 1 ? @lookup[key].first : @lookup[key]
   end
 
   private

data/lib/widgets/base/window_info.rb

@@ -0,0 +1,17 @@
+class TkWrapper::Widgets::Base::WindowInfo
+  def initialize(widget)
+    @widget = widget
+  end
+
+  def method_missing(name, *args)
+    if @widget.tk_widget.respond_to?("winfo_#{name}")
+      @widget.tk_widget.send("winfo_#{name}", *args)
+    else
+      super
+    end
+  end
+
+  def respond_to_missing?(name, *)
+    @widget.tk_widget.respond_to?("winfo_#{name}") || super
+  end
+end

data/lib/widgets/button.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+require 'tkextlib/tile'
+
+class TkWrapper::Widgets::Button < TkWrapper::Widgets::Base::Widget
+  def tk_class
+    Tk::Tile::Button
+  end
+end

data/lib/widgets/entry.rb

@@ -1,7 +1,9 @@
 # frozen_string_literal: true
 
+require 'tkextlib/tile'
+
 class TkWrapper::Widgets::Entry < TkWrapper::Widgets::Base::Widget
   def tk_class
-    TkWidgets::Entry
+    Tk::Tile::Entry
   end
 end

data/lib/widgets/frame.rb

@@ -1,7 +1,17 @@
 # frozen_string_literal: true
 
+require 'tkextlib/tile'
+
 class TkWrapper::Widgets::Frame < TkWrapper::Widgets::Base::Widget
   def tk_class
-    TkWidgets::Frame
+    Tk::Tile::Frame
+  end
+
+  def accumulated_border_and_padding_width
+    opts.padding.left + opts.padding.right + 2 * opts.borderwidth
+  end
+
+  def accumulated_border_and_padding_height
+    opts.padding.top + opts.padding.bottom + 2 * opts.borderwidth
   end
 end

data/lib/widgets/grid.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require 'tkextlib/tile'
+
 # classification of TkGrid
 class TkWrapper::Widgets::Grid < TkWrapper::Widgets::Base::Widget
   attr_reader :parent, :matrix
@@ -7,14 +9,16 @@ class TkWrapper::Widgets::Grid < TkWrapper::Widgets::Base::Widget
   Widget = TkWrapper::Widgets::Base::Widget
 
   def tk_class
-    TkWidgets::Frame
+    Tk::Tile::Frame
   end
 
   def initialize(**arguments)
+    parent = arguments.delete(:parent)
     super(**arguments)
     @childs.map! { |row| row.is_a?(Array) ? row : [row] }
     configure_cells_for_grid
     @childs.flatten! && @childs.select! { |cell| cell.is_a?(Widget) }
+    parent&.push(self)
   end
 
   def configure_cells_for_grid

data/lib/widgets/label.rb

@@ -1,7 +1,9 @@
 # frozen_string_literal: true
 
+require 'tkextlib/tile'
+
 class TkWrapper::Widgets::Label < TkWrapper::Widgets::Base::Widget
   def tk_class
-    TkWidgets::Label
+    Tk::Tile::Label
   end
 end

data/lib/widgets/menu.rb

@@ -1,8 +1,10 @@
 # frozen_string_literal: true
 
+require 'tk'
+
 class TkWrapper::Widgets::Menu < TkWrapper::Widgets::Base::Widget
   def tk_class
-    TkWidgets::TkMenu
+    TkMenu
   end
 
   def build(parent, **args)
@@ -12,7 +14,7 @@ class TkWrapper::Widgets::Menu < TkWrapper::Widgets::Base::Widget
 
   class Cascade < TkWrapper::Widgets::Base::Widget
     def tk_class
-      TkWidgets::TkMenu
+      TkMenu
     end
 
     def build(parent, **args)

data/lib/widgets/mount_point.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+class TkWrapper::Widgets::MountPoint < TkWrapper::Widgets::Base::Widget
+  def initialize(**args)
+    super(**args)
+  end
+
+  def build_childs(skip: true)
+    super() unless skip
+  end
+
+  def mount=(childs)
+    mount(childs)
+  end
+
+  def mount(childs = nil)
+    if childs
+      @childs = childs.is_a?(Array) ? childs : [childs]
+    end
+    @childs.each do |child|
+      child.config.merge(@config)
+    end
+    build_childs(skip: false)
+  end
+end

data/lib/widgets/root.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require 'tk'
+
 class TkWrapper::Widgets::Root < TkWrapper::Widgets::Base::Widget
   def initialize(**arguments)
     super(**arguments)
@@ -7,6 +9,6 @@ class TkWrapper::Widgets::Root < TkWrapper::Widgets::Base::Widget
   end
 
   def tk_class
-    TkWidgets::TkRoot
+    TkRoot
   end
 end

data/lib/widgets/text.rb

@@ -1,7 +1,66 @@
 # frozen_string_literal: true
 
+require 'tk'
+
 class TkWrapper::Widgets::Text < TkWrapper::Widgets::Base::Widget
   def tk_class
-    TkWidgets::TkText
+    TkText
+  end
+
+  def pos(key)
+    match = tk_widget.index(key).match(/(.*)\.(.*)/)
+    [match[1].to_i, match[2].to_i]
+  end
+
+  def count_lines
+    pos('end')[0] - 1
+  end
+
+  def current_line_nr
+    pos('insert')[0]
+  end
+
+  def value=(value)
+    tk_widget.delete('1.0', 'end')
+    tk_widget.insert('1.0', value)
+  end
+
+  def lines(start_pos = '1.0', end_pos = 'end')
+    start_pos = start_pos.is_a?(String) ? start_pos : "#{start_pos}.0"
+    end_pos   = end_pos.is_a?(String)   ? end_pos   : "#{end_pos}.0"
+    tk_widget.get(start_pos, end_pos).split("\n")
+  end
+
+  def longest_line_width
+    lines.map { |line| @font.measure(line) }.max || 0
+  end
+
+  # includes spacing1 and spacing2 (add. space above and below line)
+  # does not include spacing3 (additional space between lines)
+  def line_height_including_padding
+    # linespace: max height of characters of the font
+    # spacing1: additional space above line
+    # spacing3: additional space below line
+    @font.linespace + opts.spacing1 + opts.spacing3
+  end
+
+  def height_of_lines(num_lines = count_lines)
+    h = num_lines * line_height_including_padding
+
+    # spacing 3: additional space between lines
+    h + [num_lines - 1, 0].max * opts.spacing3
+  end
+
+  def resize(lines: nil, chars: nil)
+    tk_widget['height'] = lines if lines
+    tk_widget['width']  = chars if chars
+  end
+
+  def accumulated_border_and_padding_width
+    2 * (opts.padx + opts.borderwidth)
+  end
+
+  def accumulated_border_and_padding_height
+    2 * (opts.pady + opts.borderwidth)
   end
 end

data/lib/widgets/widgets.rb

@@ -9,6 +9,9 @@ require_relative 'frame'
 require_relative 'label'
 require_relative 'menu'
 require_relative 'text'
+require_relative 'auto_resize_text'
 require_relative 'entry'
 require_relative 'auto_resize_entry'
 require_relative 'grid'
+require_relative 'mount_point'
+require_relative 'button'

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: tkwrapper
 version: !ruby/object:Gem::Version
-  version: 1.5.0
+  version: 1.7.2
 platform: ruby
 authors:
 - Benjamin Schnitzler
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-12-19 00:00:00.000000000 Z
+date: 2021-12-26 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: tk
@@ -30,8 +30,8 @@ executables: []
 extensions: []
 extra_rdoc_files: []
 files:
-- lib/tk_extensions.rb
 - lib/tkwrapper.rb
+- lib/util/array.rb
 - lib/util/hash_recursive.rb
 - lib/util/tk/cell.rb
 - lib/util/tk/finder.rb
@@ -39,6 +39,7 @@ files:
 - lib/util/tk/tk.rb
 - lib/util/virtual_methods.rb
 - lib/widgets/auto_resize_entry.rb
+- lib/widgets/auto_resize_text.rb
 - lib/widgets/base/base.rb
 - lib/widgets/base/comparator_item_store.rb
 - lib/widgets/base/configuration.rb
@@ -46,13 +47,18 @@ files:
 - lib/widgets/base/match.rb
 - lib/widgets/base/matcher.rb
 - lib/widgets/base/matches.rb
+- lib/widgets/base/padding.rb
+- lib/widgets/base/tk_options.rb
 - lib/widgets/base/widget.rb
 - lib/widgets/base/widget_store.rb
+- lib/widgets/base/window_info.rb
+- lib/widgets/button.rb
 - lib/widgets/entry.rb
 - lib/widgets/frame.rb
 - lib/widgets/grid.rb
 - lib/widgets/label.rb
 - lib/widgets/menu.rb
+- lib/widgets/mount_point.rb
 - lib/widgets/root.rb
 - lib/widgets/text.rb
 - lib/widgets/widgets.rb

data/lib/tk_extensions.rb

@@ -1,49 +0,0 @@
-require 'tk'
-require 'tkextlib/tile'
-
-module TkExtensions
-  # allow a Tk widget to have multiple bindings for the same event
-  module MultiBind
-    def bind(event, &callback)
-      @bindings ||= {}
-
-      unless @bindings[event]
-        @bindings[event] = []
-        super(event) { execute_all_bindings(event) }
-      end
-
-      @bindings[event].push(callback)
-    end
-
-    def execute_all_bindings(event)
-      @bindings[event].each(&:call)
-    end
-  end
-
-  module TkWidgets
-    # from several Tk widgets create subclasses, which include MultiBind
-    # the reason why we loop over strings and not the classes themselve is, that
-    # the class names may be aliases (e.g. Tk::Tile::Entry is an alias for
-    # Tk::Tile::TEntry)
-    tk_class_names = [
-      'TkRoot',          # becomes TkExtensions::TkRoot
-      'TkText',          # becomes TkExtensions::TkText
-      'TkMenu',          # becomes TkExtensions::TkMenu
-      'Tk::Tile::Entry', # becomes TkExtensions::Entry
-      'Tk::Tile::Frame', # becomes TkExtensions::Frame
-      'Tk::Tile::Label'  # becomes TkExtensions::Label
-    ]
-    tk_class_names.each do |tk_class_name|
-      # extract last part of the name (e.g. Tk::Tile::Entry => Entry)
-      new_child_class_name = tk_class_name.match(/([^:]*)$/)[1]
-      # get the class from the class constant name
-      tk_class = const_get(tk_class_name)
-      # create a new child class of tk_class and have it include MultiBind, which
-      # overwrites the bind method of that class to allow for multiple bindings
-      new_child_class = Class.new(tk_class) { include(MultiBind) }
-      # make the new class known to the TkExtensions namespace to allow to use it
-      # by e.g. TkExtensions::Entry
-      const_set(new_child_class_name, new_child_class)
-    end
-  end
-end