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/fontchooser.rb -- "tk fontchooser" support (Tcl/Tk8.6 or later)
#
require 'tk'
require 'tk/font'

module TkFont::Chooser
  extend TkCore
end

module Tk
  Fontchooser = TkFont::Chooser
end

class << TkFont::Chooser
  def method_missing(id, *args)
    name = id.id2name
    case args.length
    when 1
      if name[-1] == ?=
        configure name[0..-2], args[0]
        args[0]
      else
        configure name, args[0]
        self
      end
    when 0
      begin
        cget(name)
      rescue
        super(id, *args)
      end
    else
      super(id, *args)
    end
  end

def __configinfo_value(key, val)
    case key
    when 'parent'
      window(val)
    when 'title'
      val
    when 'font'
      if (lst = tk_split_simplelist(val)).size == 1
        lst[0]
      else
        lst.map{|elem| num_or_str(elem)}
      end
    when 'command'
      tk_tcl2ruby(val)
    when 'visible'
      bool(val)
    else # unknown
      val
    end
  end
  private :__configinfo_value

def configinfo(option=nil)
    if !option && TkComm::GET_CONFIGINFOwoRES_AS_ARRAY
      lst = tk_split_simplelist(tk_call('tk', 'fontchooser', 'configure'))
      ret = []
      TkComm.slice_ary(lst, 2){|k, v|
        k = k[1..-1]
        ret << [k, __configinfo_value(k, v)]
      }
      ret
    else
      current_configinfo(option)
    end
  end

def current_configinfo(option=nil)
    if option
      opt = option.to_s
      fail ArgumentError, "Invalid option `#{option.inspect}'" if opt.empty?
      __configinfo_value(option.to_s, tk_call('tk','fontchooser',
                                              'configure',"-#{opt}"))
    else
      lst = tk_split_simplelist(tk_call('tk', 'fontchooser', 'configure'))
      ret = {}
      TkComm.slice_ary(lst, 2){|k, v|
        k = k[1..-1]
        ret[k] = __configinfo_value(k, v)
      }
      ret
    end
  end

def configure(option, value=None)
    if option.kind_of? Hash
      tk_call('tk', 'fontchooser', 'configure',
              *hash_kv(_symbolkey2str(option)))
    else
      opt = option.to_s
      fail ArgumentError, "Invalid option `#{option.inspect}'" if opt.empty?
      tk_call('tk', 'fontchooser', 'configure', "-#{opt}", value)
    end
    self
  end

def configure_cmd(slot, value)
    configure(slot, install_cmd(value))
  end

def command(cmd=nil, &b)
    if cmd
      configure_cmd('command', cmd)
    elsif b
      configure_cmd('command', Proc.new(&b))
    else
      cget('command')
    end
  end

def cget(slot)
    configinfo slot
  end

def [](slot)
    cget slot
  end

def []=(slot, val)
    configure slot, val
    val
  end

def show
    tk_call('tk', 'fontchooser', 'show')
    self
  end

def hide
    tk_call('tk', 'fontchooser', 'hide')
    self
  end

def toggle
    cget(:visible) ?  hide: show
    self
  end

def set_for(target, title="Font")
    if target.kind_of? TkFont
      configs = {
        :font=>target.actual_hash,
        :command=>proc{|fnt, *args|
          target.configure(TkFont.actual_hash(fnt))
        }
      }
    elsif target.kind_of? Hash
      # key=>value list or OptionObj
      fnt = target[:font] rescue ''
      fnt = fnt.actual_hash if fnt.kind_of?(TkFont)
      configs = {
        :font => fnt,
        :command=>proc{|fnt, *args|
          target[:font] = TkFont.actual_hash(fnt)
        }
      }
    else
      configs = {
        :font=>target.cget_tkstring(:font),
        :command=>proc{|fnt, *args|
          target.font = TkFont.actual_hash_displayof(fnt, target)
        }
      }
    end

configs[:title] = title if title
    configure(configs)
    target
  end

def unset
    configure(:command, nil)
  end
end