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/itemfont.rb : control font of widget items
#
require 'tk'

module TkItemFontOptkeys
  def __item_font_optkeys(id)
    # maybe need to override
    ['font']
  end
  private :__item_font_optkeys
end

module TkTreatItemFont
  include TkItemFontOptkeys

def __item_pathname(id)
    # maybe need to override
    [self.path, id].join(';')
  end
  private :__item_pathname

################################################

def tagfont_configinfo(tagOrId, key = nil)
    optkeys = __item_font_optkeys(tagid(tagOrId))
    if key && !optkeys.find{|opt| opt.to_s == key.to_s}
      fail ArgumentError, "unknown font option name `#{key}'"
    end

win, tag = __item_pathname(tagid(tagOrId)).split(';')

if key
      pathname = [win, tag, key].join(';')
      TkFont.used_on(pathname) ||
        TkFont.init_widget_font(pathname,
                                *(__item_confinfo_cmd(tagid(tagOrId))))
    elsif optkeys.size == 1
      pathname = [win, tag, optkeys[0]].join(';')
      TkFont.used_on(pathname) ||
        TkFont.init_widget_font(pathname,
                                *(__item_confinfo_cmd(tagid(tagOrId))))
    else
      fonts = {}
      optkeys.each{|key|
        key = key.to_s
        pathname = [win, tag, key].join(';')
        fonts[key] =
          TkFont.used_on(pathname) ||
          TkFont.init_widget_font(pathname,
                                  *(__item_confinfo_cmd(tagid(tagOrId))))
      }
      fonts
    end
  end
  alias tagfontobj tagfont_configinfo

def tagfont_configure(tagOrId, slot)
    pathname = __item_pathname(tagid(tagOrId))

slot = _symbolkey2str(slot)

__item_font_optkeys(tagid(tagOrId)).each{|optkey|
      optkey = optkey.to_s
      l_optkey = 'latin' << optkey
      a_optkey = 'ascii' << optkey
      k_optkey = 'kanji' << optkey

if slot.key?(optkey)
        fnt = slot.delete(optkey)
        if fnt.kind_of?(TkFont)
          slot.delete(l_optkey)
          slot.delete(a_optkey)
          slot.delete(k_optkey)

fnt.call_font_configure([pathname, optkey],
                                  *(__item_config_cmd(tagid(tagOrId)) << {}))
          next
        else
          if fnt
            if (slot.key?(l_optkey) ||
                slot.key?(a_optkey) ||
                slot.key?(k_optkey))
              fnt = TkFont.new(fnt)

lfnt = slot.delete(l_optkey)
              lfnt = slot.delete(a_optkey) if slot.key?(a_optkey)
              kfnt = slot.delete(k_optkey)

fnt.latin_replace(lfnt) if lfnt
              fnt.kanji_replace(kfnt) if kfnt

fnt.call_font_configure([pathname, optkey],
                                      *(__item_config_cmd(tagid(tagOrId)) << {}))
              next
            else
              fnt = hash_kv(fnt) if fnt.kind_of?(Hash)
              unless TkItemConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
                tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << fnt))
              else
                begin
                  tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << fnt))
                rescue => e
                  # ignore
                end
              end
            end
          end
          next
        end
      end

lfnt = slot.delete(l_optkey)
      lfnt = slot.delete(a_optkey) if slot.key?(a_optkey)
      kfnt = slot.delete(k_optkey)

if lfnt && kfnt
        TkFont.new(lfnt, kfnt).call_font_configure([pathname, optkey],
                                                   *(__item_config_cmd(tagid(tagOrId)) << {}))
      elsif lfnt
        latintagfont_configure([lfnt, optkey])
      elsif kfnt
        kanjitagfont_configure([kfnt, optkey])
      end
    }

# configure other (without font) options
    tk_call(*(__item_config_cmd(tagid(tagOrId)).concat(hash_kv(slot)))) if slot != {}
    self
  end

def latintagfont_configure(tagOrId, ltn, keys=nil)
    if ltn.kind_of?(Array)
      key = ltn[1]
      ltn = ltn[0]
    else
      key = nil
    end

optkeys = __item_font_optkeys(tagid(tagOrId))
    if key && !optkeys.find{|opt| opt.to_s == key.to_s}
      fail ArgumentError, "unknown font option name `#{key}'"
    end

win, tag = __item_pathname(tagid(tagOrId)).split(';')

optkeys = [key] if key

optkeys.each{|optkey|
      optkey = optkey.to_s

pathname = [win, tag, optkey].join(';')

if (fobj = TkFont.used_on(pathname))
        fobj = TkFont.new(fobj) # create a new TkFont object
      elsif Tk::JAPANIZED_TK
        fobj = fontobj          # create a new TkFont object
      else
        ltn = hash_kv(ltn) if ltn.kind_of?(Hash)
        unless TkItemConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
          tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << ltn))
        else
          begin
            tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << ltn))
          rescue => e
            # ignore
          end
        end
        next
      end

if fobj.kind_of?(TkFont)
        if ltn.kind_of?(TkFont)
          conf = {}
          ltn.latin_configinfo.each{|key,val| conf[key] = val}
          if keys
            fobj.latin_configure(conf.update(keys))
          else
            fobj.latin_configure(conf)
          end
        else
          fobj.latin_replace(ltn)
        end
      end

fobj.call_font_configure([pathname, optkey], *(__item_config_cmd(tagid(tagOrId)) << {}))
    }
    self
  end
  alias asciitagfont_configure latintagfont_configure

def kanjitagfont_configure(tagOrId, knj, keys=nil)
    if knj.kind_of?(Array)
      key = knj[1]
      knj = knj[0]
    else
      key = nil
    end

optkeys = __item_font_optkeys(tagid(tagOrId))
    if key && !optkeys.find{|opt| opt.to_s == key.to_s}
      fail ArgumentError, "unknown font option name `#{key}'"
    end

win, tag = __item_pathname(tagid(tagOrId)).split(';')

optkeys = [key] if key

optkeys.each{|optkey|
      optkey = optkey.to_s

pathname = [win, tag, optkey].join(';')

if (fobj = TkFont.used_on(pathname))
        fobj = TkFont.new(fobj) # create a new TkFont object
      elsif Tk::JAPANIZED_TK
        fobj = fontobj          # create a new TkFont object
      else
        knj = hash_kv(knj) if knj.kind_of?(Hash)
        unless TkItemConfigMethod.__IGNORE_UNKNOWN_CONFIGURE_OPTION__
          tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << knj))
        else
          begin
            tk_call(*(__item_config_cmd(tagid(tagOrId)) << "-#{optkey}" << knj))
          rescue => e
            # ignore
          end
        end
        next
      end

if fobj.kind_of?(TkFont)
        if knj.kind_of?(TkFont)
          conf = {}
          knj.kanji_configinfo.each{|key,val| conf[key] = val}
          if keys
            fobj.kanji_configure(conf.update(keys))
          else
            fobj.kanji_configure(conf)
          end
        else
          fobj.kanji_replace(knj)
        end
      end

fobj.call_font_configure([pathname, optkey], *(__item_config_cmd(tagid(tagOrId)) << {}))
    }
    self
  end

def tagfont_copy(tagOrId, win, wintag=nil, winkey=nil, targetkey=nil)
    if wintag
      if winkey
        fnt = win.tagfontobj(wintag, winkey).dup
      else
        fnt = win.tagfontobj(wintag).dup
      end
    else
      if winkey
        fnt = win.fontobj(winkey).dup
      else
        fnt = win.fontobj.dup
      end
    end

if targetkey
      fnt.call_font_configure([__item_pathname(tagid(tagOrId)), targetkey],
                              *(__item_config_cmd(tagid(tagOrId)) << {}))
    else
      fnt.call_font_configure(__item_pathname(tagid(tagOrId)),
                              *(__item_config_cmd(tagid(tagOrId)) << {}))
    end
    self
  end

def latintagfont_copy(tagOrId, win, wintag=nil, winkey=nil, targetkey=nil)
    if targetkey
      fontobj(targetkey).dup.call_font_configure([__item_pathname(tagid(tagOrId)), targetkey],
                                                 *(__item_config_cmd(tagid(tagOrId)) << {}))
    else
      fontobj.dup.call_font_configure(__item_pathname(tagid(tagOrId)),
                                      *(__item_config_cmd(tagid(tagOrId)) << {}))
    end

if wintag
      if winkey
        fontobj.latin_replace(win.tagfontobj(wintag, winkey).latin_font_id)
      else
        fontobj.latin_replace(win.tagfontobj(wintag).latin_font_id)
      end
    else
      if winkey
        fontobj.latin_replace(win.fontobj(winkey).latin_font_id)
      else
        fontobj.latin_replace(win.fontobj.latin_font_id)
      end
    end
    self
  end
  alias asciitagfont_copy latintagfont_copy

def kanjifont_copy(tagOrId, win, wintag=nil, winkey=nil, targetkey=nil)
    if targetkey
      fontobj(targetkey).dup.call_font_configure([__item_pathname(tagid(tagOrId)), targetkey],
                                                 *(__item_config_cmd(tagid(tagOrId)) << {}))
    else
        fontobj.dup.call_font_configure(__item_pathname(tagid(tagOrId)),
                                        *(__item_config_cmd(tagid(tagOrId)) << {}))
    end

if wintag
      if winkey
        fontobj.kanji_replace(win.tagfontobj(wintag, winkey).kanji_font_id)
      else
        fontobj.kanji_replace(win.tagfontobj(wintag).kanji_font_id)
      end
    else
      if winkey
        fontobj.kanji_replace(win.fontobj(winkey).kanji_font_id)
      else
        fontobj.kanji_replace(win.fontobj.kanji_font_id)
      end
    end
    self
  end
end