Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	127 B	-rw-r--r--	2023-07-26 17:52
autoload.rb	22.71 KB	-rw-r--r--	2023-07-26 17:52
bgerror.rb	667 B	-rw-r--r--	2023-07-26 17:52
bindtag.rb	2.67 KB	-rw-r--r--	2023-07-26 17:52
busy.rb	2.22 KB	-rw-r--r--	2023-07-26 17:52
button.rb	769 B	-rw-r--r--	2023-07-26 17:52
canvas.rb	22.82 KB	-rw-r--r--	2023-07-26 17:52
canvastag.rb	9.19 KB	-rw-r--r--	2023-07-26 17:52
checkbutton.rb	1001 B	-rw-r--r--	2023-07-26 17:52
clipboard.rb	1.64 KB	-rw-r--r--	2023-07-26 17:52
clock.rb	1.6 KB	-rw-r--r--	2023-07-26 17:52
composite.rb	11.87 KB	-rw-r--r--	2023-07-26 17:52
console.rb	1.27 KB	-rw-r--r--	2023-07-26 17:52
dialog.rb	8.9 KB	-rw-r--r--	2023-07-26 17:52
encodedstr.rb	4.55 KB	-rw-r--r--	2023-07-26 17:52
entry.rb	2.58 KB	-rw-r--r--	2023-07-26 17:52
event.rb	17.5 KB	-rw-r--r--	2023-07-26 17:52
font.rb	60.32 KB	-rw-r--r--	2023-07-26 17:52
fontchooser.rb	3.55 KB	-rw-r--r--	2023-07-26 17:52
frame.rb	3.45 KB	-rw-r--r--	2023-07-26 17:52
grid.rb	7.69 KB	-rw-r--r--	2023-07-26 17:52
image.rb	12.54 KB	-rw-r--r--	2023-07-26 17:52
itemconfig.rb	55.14 KB	-rw-r--r--	2023-07-26 17:52
itemfont.rb	9.29 KB	-rw-r--r--	2023-07-26 17:52
kinput.rb	1.56 KB	-rw-r--r--	2023-07-26 17:52
label.rb	609 B	-rw-r--r--	2023-07-26 17:52
labelframe.rb	1014 B	-rw-r--r--	2023-07-26 17:52
listbox.rb	7.82 KB	-rw-r--r--	2023-07-26 17:52
macpkg.rb	1.91 KB	-rw-r--r--	2023-07-26 17:52
menu.rb	20.04 KB	-rw-r--r--	2023-07-26 17:52
menubar.rb	4.08 KB	-rw-r--r--	2023-07-26 17:52
menuspec.rb	13.75 KB	-rw-r--r--	2023-07-26 17:52
message.rb	693 B	-rw-r--r--	2023-07-26 17:52
mngfocus.rb	672 B	-rw-r--r--	2023-07-26 17:52
msgcat.rb	8.46 KB	-rw-r--r--	2023-07-26 17:52
namespace.rb	14.34 KB	-rw-r--r--	2023-07-26 17:52
optiondb.rb	11.28 KB	-rw-r--r--	2023-07-26 17:52
optionobj.rb	4.87 KB	-rw-r--r--	2023-07-26 17:52
pack.rb	2.51 KB	-rw-r--r--	2023-07-26 17:52
package.rb	2.8 KB	-rw-r--r--	2023-07-26 17:52
palette.rb	1.13 KB	-rw-r--r--	2023-07-26 17:52
panedwindow.rb	7.76 KB	-rw-r--r--	2023-07-26 17:52
place.rb	3.86 KB	-rw-r--r--	2023-07-26 17:52
radiobutton.rb	1.98 KB	-rw-r--r--	2023-07-26 17:52
root.rb	2.04 KB	-rw-r--r--	2023-07-26 17:52
scale.rb	2.76 KB	-rw-r--r--	2023-07-26 17:52
scrollable.rb	1.74 KB	-rw-r--r--	2023-07-26 17:52
scrollbar.rb	4.66 KB	-rw-r--r--	2023-07-26 17:52
scrollbox.rb	1.13 KB	-rw-r--r--	2023-07-26 17:52
selection.rb	2.19 KB	-rw-r--r--	2023-07-26 17:52
spinbox.rb	3.04 KB	-rw-r--r--	2023-07-26 17:52
tagfont.rb	859 B	-rw-r--r--	2023-07-26 17:52
text.rb	45.64 KB	-rw-r--r--	2023-07-26 17:52
textimage.rb	2.22 KB	-rw-r--r--	2023-07-26 17:52
textmark.rb	4.91 KB	-rw-r--r--	2023-07-26 17:52
texttag.rb	7.76 KB	-rw-r--r--	2023-07-26 17:52
textwindow.rb	4.26 KB	-rw-r--r--	2023-07-26 17:52
timer.rb	14.46 KB	-rw-r--r--	2023-07-26 17:52
toplevel.rb	6.98 KB	-rw-r--r--	2023-07-26 17:52
ttk_selector.rb	2.98 KB	-rw-r--r--	2023-07-26 17:52
txtwin_abst.rb	785 B	-rw-r--r--	2023-07-26 17:52
validation.rb	9.61 KB	-rw-r--r--	2023-07-26 17:52
variable.rb	45.88 KB	-rw-r--r--	2023-07-26 17:52
virtevent.rb	3.51 KB	-rw-r--r--	2023-07-26 17:52
winfo.rb	8.36 KB	-rw-r--r--	2023-07-26 17:52
winpkg.rb	3.87 KB	-rw-r--r--	2023-07-26 17:52
wm.rb	14.83 KB	-rw-r--r--	2023-07-26 17:52
xim.rb	2.74 KB	-rw-r--r--	2023-07-26 17:52

Rename

#
# 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