Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	161 B	-rw-r--r--	2023-07-26 18:09
autoload.rb	22.79 KB	-rw-r--r--	2023-07-26 18:09
bgerror.rb	698 B	-rw-r--r--	2023-07-26 18:09
bindtag.rb	2.7 KB	-rw-r--r--	2023-07-26 18:09
busy.rb	2.25 KB	-rw-r--r--	2023-07-26 18:09
button.rb	800 B	-rw-r--r--	2023-07-26 18:09
canvas.rb	22.85 KB	-rw-r--r--	2023-07-26 18:09
canvastag.rb	9.22 KB	-rw-r--r--	2023-07-26 18:09
checkbutton.rb	1.01 KB	-rw-r--r--	2023-07-26 18:09
clipboard.rb	1.67 KB	-rw-r--r--	2023-07-26 18:09
clock.rb	1.63 KB	-rw-r--r--	2023-07-26 18:09
composite.rb	11.9 KB	-rw-r--r--	2023-07-26 18:09
console.rb	1.3 KB	-rw-r--r--	2023-07-26 18:09
dialog.rb	8.93 KB	-rw-r--r--	2023-07-26 18:09
encodedstr.rb	4.58 KB	-rw-r--r--	2023-07-26 18:09
entry.rb	2.61 KB	-rw-r--r--	2023-07-26 18:09
event.rb	17.53 KB	-rw-r--r--	2023-07-26 18:09
font.rb	60.35 KB	-rw-r--r--	2023-07-26 18:09
fontchooser.rb	3.62 KB	-rw-r--r--	2023-07-26 18:09
frame.rb	3.48 KB	-rw-r--r--	2023-07-26 18:09
grid.rb	7.72 KB	-rw-r--r--	2023-07-26 18:09
image.rb	12.57 KB	-rw-r--r--	2023-07-26 18:09
itemconfig.rb	55.11 KB	-rw-r--r--	2023-07-26 18:09
itemfont.rb	9.32 KB	-rw-r--r--	2023-07-26 18:09
kinput.rb	1.59 KB	-rw-r--r--	2023-07-26 18:09
label.rb	640 B	-rw-r--r--	2023-07-26 18:09
labelframe.rb	1.02 KB	-rw-r--r--	2023-07-26 18:09
listbox.rb	7.85 KB	-rw-r--r--	2023-07-26 18:09
macpkg.rb	1.94 KB	-rw-r--r--	2023-07-26 18:09
menu.rb	20.07 KB	-rw-r--r--	2023-07-26 18:09
menubar.rb	4.11 KB	-rw-r--r--	2023-07-26 18:09
menuspec.rb	13.78 KB	-rw-r--r--	2023-07-26 18:09
message.rb	724 B	-rw-r--r--	2023-07-26 18:09
mngfocus.rb	703 B	-rw-r--r--	2023-07-26 18:09
msgcat.rb	8.49 KB	-rw-r--r--	2023-07-26 18:09
namespace.rb	14.38 KB	-rw-r--r--	2023-07-26 18:09
optiondb.rb	11.11 KB	-rw-r--r--	2023-07-26 18:09
optionobj.rb	4.9 KB	-rw-r--r--	2023-07-26 18:09
pack.rb	2.54 KB	-rw-r--r--	2023-07-26 18:09
package.rb	2.83 KB	-rw-r--r--	2023-07-26 18:09
palette.rb	1.16 KB	-rw-r--r--	2023-07-26 18:09
panedwindow.rb	7.79 KB	-rw-r--r--	2023-07-26 18:09
place.rb	3.89 KB	-rw-r--r--	2023-07-26 18:09
radiobutton.rb	2.01 KB	-rw-r--r--	2023-07-26 18:09
root.rb	2.07 KB	-rw-r--r--	2023-07-26 18:09
scale.rb	2.79 KB	-rw-r--r--	2023-07-26 18:09
scrollable.rb	1.77 KB	-rw-r--r--	2023-07-26 18:09
scrollbar.rb	4.69 KB	-rw-r--r--	2023-07-26 18:09
scrollbox.rb	1.16 KB	-rw-r--r--	2023-07-26 18:09
selection.rb	2.22 KB	-rw-r--r--	2023-07-26 18:09
spinbox.rb	3.07 KB	-rw-r--r--	2023-07-26 18:09
tagfont.rb	890 B	-rw-r--r--	2023-07-26 18:09
text.rb	45.67 KB	-rw-r--r--	2023-07-26 18:09
textimage.rb	2.25 KB	-rw-r--r--	2023-07-26 18:09
textmark.rb	4.94 KB	-rw-r--r--	2023-07-26 18:09
texttag.rb	7.79 KB	-rw-r--r--	2023-07-26 18:09
textwindow.rb	4.29 KB	-rw-r--r--	2023-07-26 18:09
timer.rb	14.41 KB	-rw-r--r--	2023-07-26 18:09
tk_mac.rb	3.71 KB	-rw-r--r--	2023-07-26 18:09
toplevel.rb	7.01 KB	-rw-r--r--	2023-07-26 18:09
ttk_selector.rb	3.01 KB	-rw-r--r--	2023-07-26 18:09
txtwin_abst.rb	816 B	-rw-r--r--	2023-07-26 18:09
validation.rb	9.64 KB	-rw-r--r--	2023-07-26 18:09
variable.rb	45.82 KB	-rw-r--r--	2023-07-26 18:09
virtevent.rb	3.54 KB	-rw-r--r--	2023-07-26 18:09
winfo.rb	8.39 KB	-rw-r--r--	2023-07-26 18:09
winpkg.rb	3.9 KB	-rw-r--r--	2023-07-26 18:09
wm.rb	14.87 KB	-rw-r--r--	2023-07-26 18:09
xim.rb	2.77 KB	-rw-r--r--	2023-07-26 18:09

Rename

# frozen_string_literal: false
#
# tk/optionobj.rb : control options for a group of widgets
#
#  NOTE: If you want to use key-only option (no value),
#        use Tk::None for the value of the key-only option.
#
#        e.g. hash_kv({'aaa'=>1, 'bbb'=>Tk::None, 'ccc'=>3})
#                 => ["-aaa", 1, "-bbb", "-ccc", 3]
#
require 'tk'

module Tk
  class OptionObj < Hash
    include TkUtil

def initialize(hash = nil)
      super()
      @observ = []
      update_without_notify(_symbolkey2str(hash)) if hash
    end

def observ_info
      @observ.dup
    end

def observs
      @observ.collect{|win|
        if win.kind_of?(Array)
          win[0]
        else
          win
        end
      }
    end

def _remove_win(win)
      if win.kind_of?(Array)
        widget, method = win
        @observ.delete_if{|x|
          if x.kind_of?(Array)
            x[0] == widget
          else
            x == widget
          end
        }
      else
        @observ.delete_if{|x|
          if x.kind_of?(Array)
            x[0] == win
          else
            x == win
          end
        }
      end
    end
    private :_remove_win

def assign(*wins)
      # win :=
      #   widget             #==> call widget.configure(hash)
      #   [widget]           #==> call widget.configure(hash)
      #   [widget, nil, {src=>target, ... }]
      #                      #==> call widget.configure(hash)
      #                               with converting hash-key
      #   [widget, method]   #==> call widget.method(hash)
      #   [widget, method, {src=>target, ... }]
      #                      #==> call widget.method(hash)
      #                               with converting hash-key
      #   [widget [receiver, method, arg, ... ]]
      #                      #==> call receiver.method(arg, ... , hash)
      #   [widget [receiver, method, arg, ... ], {src=>target, ... }]
      #                      #==> call receiver.method(arg, ... , hash)
      #                               with onverting hash-key
      #
      # src := option_name_on_optobj
      #
      # target :=
      #   nil                #==> not use the src
      #   option_name_on_target_widget
      #   [ option_name_on_target_widget, ... ]
      #                      #==> set all of them
      #
      wins.each{|win|
        _remove_win(win)
        @observ << win
        notify(win)
      }
      self
    end

def unassign(*wins)
      wins.each{|win|
        _remove_win(win)
      }
      self
    end

def notify(target = nil)
      if target
        targets = [target]
      elsif @observ.empty?
        return self
      else
        targets = @observ.dup
      end

return self if empty?

org_hash = _symbolkey2str(self)

targets.each{|win|
        widget = receiver = win
        hash = org_hash
        begin
          if win.kind_of?(Array)
            widget, method, conv_tbl = win
            receiver = widget

if conv_tbl
              hash = {}
              org_hash.each{|key, val|
                key = conv_tbl[key] if conv_tbl.key?(key)
                next unless key
                if key.kind_of?(Array)
                  key.each{|k| hash[k] = val}
                else
                  hash[key] = val
                end
              }
            end

if method.kind_of?(Array)
              receiver, method, *args = method
              receiver.__send__(method, *(args << hash))
            elsif method
              widget.__send__(method, hash)
            else
              widget.configure(hash)
            end

else
            widget.configure(self)
          end
        rescue => e
          if ( ( widget.kind_of?(TkObject) \
                && widget.respond_to?('exist?') \
                && ! receiver.exist? ) \
            || ( receiver.kind_of?(TkObject) \
                && receiver.respond_to?('exist?') \
                && ! receiver.exist? ) )
            @observ.delete(win)
          else
            fail e
          end
        end
      }

self
    end
    alias apply notify

def +(hash)
      unless hash.kind_of?(Hash)
        fail ArgumentError, "expect a Hash"
      end
      new_obj = self.dup
      new_obj.update_without_notify(_symbolkey2str(hash))
      new_obj
    end

alias update_without_notify update

def update(hash)
      update_without_notify(_symbolkey2str(hash))
      notify
    end

def configure(key, value=nil)
      if key.kind_of?(Hash)
        update(key)
      else
        store(key,value)
      end
    end

def [](key)
      super(key.to_s)
    end
    alias cget []

def store(key, val)
      key = key.to_s
      super(key, val)
      notify
    end
    def []=(key, val)
      store(key,val)
    end

def replace(hash)
      super(_symbolkey2str(hash))
      notify
    end

def default(opt)
      fail RuntimeError, "unknown option `#{opt}'"
    end
    private :default

undef :default=
  end
end