Gecko [ beriskala.com ]

Name	Size	Permission	Date
bigdecimal	[ DIR ]	drwxr-xr-x	2026-05-01 04:24
cgi	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
date	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
digest	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
dl	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
drb	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
fiddle	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
io	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
irb	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
json	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
matrix	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
minitest	[ DIR ]	drwxr-xr-x	2026-05-01 04:24
net	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
openssl	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
optparse	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
psych	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
racc	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rake	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rbconfig	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rdoc	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rexml	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rinda	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
ripper	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rss	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
rubygems	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
shell	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
syslog	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
test	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
tk	[ DIR ]	drwxr-xr-x	2026-05-01 04:23
tkextlib	[ DIR ]	drwxr-xr-x	2026-05-01 04:23
uri	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
webrick	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
x86_64-linux	[ DIR ]	drwxr-xr-x	2026-05-01 04:24
xmlrpc	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
yaml	[ DIR ]	drwxr-xr-x	2026-04-30 23:44
English.rb	6.44 KB	-rw-r--r--	2013-02-04 06:20
abbrev.rb	3.31 KB	-rw-r--r--	2013-02-21 21:05
base64.rb	2.63 KB	-rw-r--r--	2013-05-19 07:40
benchmark.rb	17.95 KB	-rw-r--r--	2013-09-20 20:35
cgi.rb	9.84 KB	-rw-r--r--	2013-07-18 18:20
cmath.rb	8.93 KB	-rw-r--r--	2015-07-03 13:42
complex.rb	380 B	-rw-r--r--	2009-08-16 20:04
csv.rb	81.68 KB	-rw-r--r--	2014-09-14 19:55
date.rb	946 B	-rw-r--r--	2023-07-26 17:52
debug.rb	29.08 KB	-rw-r--r--	2013-12-14 18:18
delegate.rb	11.13 KB	-rw-r--r--	2014-02-02 17:16
digest.rb	2.34 KB	-rw-r--r--	2023-07-26 17:52
dl.rb	280 B	-rw-r--r--	2023-07-26 17:52
drb.rb	19 B	-rw-r--r--	2009-10-02 14:15
e2mmap.rb	3.89 KB	-rw-r--r--	2013-12-17 14:50
erb.rb	26.07 KB	-rw-r--r--	2014-08-11 19:25
expect.rb	2.14 KB	-rw-r--r--	2023-07-26 17:52
fiddle.rb	1.65 KB	-rw-r--r--	2023-07-26 17:52
fileutils.rb	47.17 KB	-rw-r--r--	2015-04-28 09:46
find.rb	2.36 KB	-rw-r--r--	2014-10-15 19:01
forwardable.rb	7.86 KB	-rw-r--r--	2013-05-24 02:16
getoptlong.rb	15.38 KB	-rw-r--r--	2013-05-19 19:20
gserver.rb	8.86 KB	-rw-r--r--	2014-07-06 18:27
ipaddr.rb	17.05 KB	-rw-r--r--	2015-10-29 18:06
irb.rb	20.03 KB	-rw-r--r--	2016-03-25 12:52
json.rb	1.74 KB	-rw-r--r--	2023-07-26 17:52
kconv.rb	5.74 KB	-rw-r--r--	2023-07-26 17:52
logger.rb	22.37 KB	-rw-r--r--	2016-02-25 14:34
mathn.rb	6.52 KB	-rw-r--r--	2011-08-27 02:52
matrix.rb	45.43 KB	-rw-r--r--	2014-07-11 18:38
mkmf.rb	80.5 KB	-rw-r--r--	2023-07-26 17:49
monitor.rb	6.93 KB	-rw-r--r--	2012-11-16 20:25
multi-tk.rb	98.4 KB	-rw-r--r--	2023-07-26 17:52
mutex_m.rb	2 KB	-rw-r--r--	2013-02-20 06:21
observer.rb	5.81 KB	-rw-r--r--	2013-11-21 08:14
open-uri.rb	24.27 KB	-rw-r--r--	2014-02-22 12:24
open3.rb	20.37 KB	-rw-r--r--	2013-12-01 06:43
openssl.rb	528 B	-rw-r--r--	2023-07-26 17:52
optparse.rb	50.8 KB	-rw-r--r--	2013-11-28 11:04
ostruct.rb	7.7 KB	-rw-r--r--	2013-10-23 18:44
pathname.rb	15.3 KB	-rw-r--r--	2023-07-26 17:52
pp.rb	14.1 KB	-rw-r--r--	2013-10-22 12:59
prettyprint.rb	16.33 KB	-rw-r--r--	2013-05-19 07:40
prime.rb	13.2 KB	-rw-r--r--	2013-07-15 08:51
profile.rb	205 B	-rw-r--r--	2009-10-02 14:15
profiler.rb	4.51 KB	-rw-r--r--	2013-05-20 03:34
pstore.rb	14.85 KB	-rw-r--r--	2012-11-11 07:53
psych.rb	14.88 KB	-rw-r--r--	2023-07-26 17:52
rake.rb	2.12 KB	-rw-r--r--	2013-10-12 01:05
rational.rb	308 B	-rw-r--r--	2009-09-24 04:12
rdoc.rb	4.92 KB	-rw-r--r--	2013-12-22 13:55
remote-tk.rb	14.11 KB	-rw-r--r--	2023-07-26 17:52
resolv-replace.rb	1.73 KB	-rw-r--r--	2013-03-11 17:17
resolv.rb	72.31 KB	-rw-r--r--	2015-05-13 10:03
ripper.rb	2.53 KB	-rw-r--r--	2023-07-26 17:52
rss.rb	2.84 KB	-rw-r--r--	2011-05-11 14:52
rubygems.rb	30.97 KB	-rw-r--r--	2023-07-26 17:49
scanf.rb	23.54 KB	-rw-r--r--	2013-12-14 06:25
securerandom.rb	8.49 KB	-rw-r--r--	2013-11-07 21:34
set.rb	18.7 KB	-rw-r--r--	2013-11-23 03:20
shell.rb	10.3 KB	-rw-r--r--	2013-05-19 07:40
shellwords.rb	5.94 KB	-rw-r--r--	2013-12-14 21:56
singleton.rb	4.02 KB	-rw-r--r--	2011-05-18 18:39
socket.rb	25.6 KB	-rw-r--r--	2023-07-26 17:52
sync.rb	7.25 KB	-rw-r--r--	2013-05-19 07:40
tcltk.rb	10.06 KB	-rw-r--r--	2023-07-26 17:52
tempfile.rb	11.4 KB	-rw-r--r--	2013-11-21 12:58
thwait.rb	3.38 KB	-rw-r--r--	2013-11-07 20:32
time.rb	21.32 KB	-rw-r--r--	2015-08-17 12:11
timeout.rb	3.7 KB	-rw-r--r--	2015-08-17 12:25
tk.rb	163.72 KB	-rw-r--r--	2023-07-26 17:52
tkafter.rb	57 B	-rw-r--r--	2023-07-26 17:52
tkbgerror.rb	63 B	-rw-r--r--	2023-07-26 17:52
tkcanvas.rb	60 B	-rw-r--r--	2023-07-26 17:52
tkclass.rb	950 B	-rw-r--r--	2023-07-26 17:52
tkconsole.rb	63 B	-rw-r--r--	2023-07-26 17:52
tkdialog.rb	60 B	-rw-r--r--	2023-07-26 17:52
tkentry.rb	57 B	-rw-r--r--	2023-07-26 17:52
tkfont.rb	54 B	-rw-r--r--	2023-07-26 17:52
tkmacpkg.rb	60 B	-rw-r--r--	2023-07-26 17:52
tkmenubar.rb	63 B	-rw-r--r--	2023-07-26 17:52
tkmngfocus.rb	66 B	-rw-r--r--	2023-07-26 17:52
tkpalette.rb	63 B	-rw-r--r--	2023-07-26 17:52
tkscrollbox.rb	69 B	-rw-r--r--	2023-07-26 17:52
tktext.rb	54 B	-rw-r--r--	2023-07-26 17:52
tkvirtevent.rb	69 B	-rw-r--r--	2023-07-26 17:52
tkwinpkg.rb	60 B	-rw-r--r--	2023-07-26 17:52
tmpdir.rb	4.15 KB	-rw-r--r--	2013-05-19 07:40
tracer.rb	6.4 KB	-rw-r--r--	2013-07-18 18:20
tsort.rb	14.14 KB	-rw-r--r--	2013-10-17 19:29
ubygems.rb	268 B	-rw-r--r--	2009-10-02 14:15
un.rb	8.87 KB	-rw-r--r--	2013-07-05 18:13
uri.rb	3.07 KB	-rw-r--r--	2011-05-14 00:33
weakref.rb	3.23 KB	-rw-r--r--	2013-11-10 02:12
webrick.rb	6.69 KB	-rw-r--r--	2013-10-06 03:09
xmlrpc.rb	8.49 KB	-rw-r--r--	2013-12-12 06:39
yaml.rb	2.31 KB	-rw-r--r--	2013-08-12 08:19

Rename

# tof

#### tcltk library, more direct manipulation of tcl/tk
####    Sep. 5, 1997    Y. Shigehiro

require "tcltklib"

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

# module TclTk: collection of tcl/tk utilities (supplies namespace.)
module TclTk

# initialize Hash to hold unique symbols and such
  @namecnt = {}

# initialize Hash to hold callbacks
  @callback = {}
end

# TclTk.mainloop(): call TclTkLib.mainloop()
def TclTk.mainloop()
  print("mainloop: start\n") if $DEBUG
  TclTkLib.mainloop()
  print("mainloop: end\n") if $DEBUG
end

# TclTk.deletecallbackkey(ca): remove callback from TclTk module
#     this does not remove callbacks from tcl/tk interpreter
#     without calling this method, TclTkInterpreter will not be GCed
#   ca: callback(TclTkCallback)
def TclTk.deletecallbackkey(ca)
  print("deletecallbackkey: ", ca.to_s(), "\n") if $DEBUG
  @callback.delete(ca.to_s)
end

# TclTk.dcb(ca, wid, W): call TclTk.deletecallbackkey() for each callbacks
#     in an array.
#     this is for callback for top-level <Destroy>
#   ca: array of callbacks(TclTkCallback)
#   wid: top-level widget(TclTkWidget)
#   w: information about window given by %W(String)
def TclTk.dcb(ca, wid, w)
  if wid.to_s() == w
    ca.each{|i|
      TclTk.deletecallbackkey(i)
    }
  end
end

# TclTk._addcallback(ca): register callback
#   ca: callback(TclTkCallback)
def TclTk._addcallback(ca)
  print("_addcallback: ", ca.to_s(), "\n") if $DEBUG
  @callback[ca.to_s()] = ca
end

# TclTk._callcallback(key, arg): invoke registered callback
#   key: key to select callback (to_s value of the TclTkCallback)
#   arg: parameter from tcl/tk interpreter
def TclTk._callcallback(key, arg)
  print("_callcallback: ", @callback[key].inspect, "\n") if $DEBUG
  @callback[key]._call(arg)
  # throw out callback value
  # should return String to satisfy rb_eval_string()
  return ""
end

# TclTk._newname(prefix): generate unique name(String)
#   prefix: prefix of the unique name
def TclTk._newname(prefix)
  # generated name counter is stored in @namecnt
  if !@namecnt.key?(prefix)
    # first appearing prefix, initialize
    @namecnt[prefix] = 1
  else
    # already appeared prefix, generate next name
    @namecnt[prefix] += 1
  end
  return "#{prefix}#{@namecnt[prefix]}"
end

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

# class TclTkInterpreter: tcl/tk interpreter
class TclTkInterpreter

# initialize():
  def initialize()
    # generate interpreter object
    @ip = TclTkIp.new()

# add ruby_fmt command to tcl interpreter
    # ruby_fmt command format arguments by `format' and call `ruby' command
    # (notice ruby command receives only one argument)
    if $DEBUG
      @ip._eval("proc ruby_fmt {fmt args} { puts \"ruby_fmt: $fmt $args\" ; set cmd [list ruby [format $fmt $args]] ; uplevel $cmd }")
    else
      @ip._eval("proc ruby_fmt {fmt args} { set cmd [list ruby [format $fmt $args]] ; uplevel $cmd }")
    end

# @ip._get_eval_string(*args): generate string to evaluate in tcl interpreter
    #   *args: script which is going to be evaluated under tcl/tk
    def @ip._get_eval_string(*args)
      argstr = ""
      args.each{|arg|
        argstr += " " if argstr != ""
        # call to_eval if it is defined
        if (arg.respond_to?(:to_eval))
          argstr += arg.to_eval()
        else
          # call to_s unless defined
          argstr += arg.to_s()
        end
      }
      return argstr
    end

# @ip._eval_args(*args): evaluate string under tcl/tk interpreter
    #     returns result string.
    #   *args: script which is going to be evaluated under tcl/tk
    def @ip._eval_args(*args)
      # calculate the string to eval in the interpreter
      argstr = _get_eval_string(*args)

# evaluate under the interpreter
      print("_eval: \"", argstr, "\"") if $DEBUG
      res = _eval(argstr)
      if $DEBUG
        print(" -> \"", res, "\"\n")
      elsif  _return_value() != 0
        print(res, "\n")
      end
      fail(%Q/can't eval "#{argstr}"/) if _return_value() != 0 #'
      return res
    end

# generate tcl/tk command object and register in the hash
    @commands = {}
    # for all commands registered in tcl/tk interpreter:
    @ip._eval("info command").split(/ /).each{|comname|
      if comname =~ /^[.]/
        # if command is a widget (path), generate TclTkWidget,
        # and register it in the hash
        @commands[comname] = TclTkWidget.new(@ip, comname)
      else
        # otherwise, generate TclTkCommand
        @commands[comname] = TclTkCommand.new(@ip, comname)
      end
    }
  end

# commands(): returns hash of the tcl/tk commands
  def commands()
    return @commands
  end

# rootwidget(): returns root widget(TclTkWidget)
  def rootwidget()
    return @commands["."]
  end

# _tcltkip(): returns @ip(TclTkIp)
  def _tcltkip()
    return @ip
  end

# method_missing(id, *args): execute undefined method as tcl/tk command
  #   id: method symbol
  #   *args: method arguments
  def method_missing(id, *args)
    # if command named by id registered, then execute it
    if @commands.key?(id.id2name)
      return @commands[id.id2name].e(*args)
    else
      # otherwise, exception
      super
    end
  end
end

# class TclTkObject: base class of the tcl/tk objects
class TclTkObject

# initialize(ip, exp):
  #   ip: interpreter(TclTkIp)
  #   exp: tcl/tk representation
  def initialize(ip, exp)
    fail("type is not TclTkIp") if !ip.kind_of?(TclTkIp)
    @ip = ip
    @exp = exp
  end

# to_s(): returns tcl/tk representation
  def to_s()
    return @exp
  end
end

# class TclTkCommand: tcl/tk commands
# you should not call TclTkCommand.new()
# commands are created by TclTkInterpreter:initialize()
class TclTkCommand < TclTkObject

# e(*args): execute command.  returns String (e is for exec or eval)
  #   *args: command arguments
  def e(*args)
    return @ip._eval_args(to_s(), *args)
  end
end

# class TclTkLibCommand: tcl/tk commands in the library
class TclTkLibCommand < TclTkCommand

# initialize(ip, name):
  #   ip: interpreter(TclTkInterpreter)
  #   name: command name (String)
  def initialize(ip, name)
    super(ip._tcltkip, name)
  end
end

# class TclTkVariable: tcl/tk variable
class TclTkVariable < TclTkObject

# initialize(interp, dat):
  #   interp: interpreter(TclTkInterpreter)
  #   dat: the value to set(String)
  #       if nil, not initialize variable
  def initialize(interp, dat)
    # auto-generate tcl/tk representation (variable name)
    exp = TclTk._newname("v_")
    # initialize TclTkObject
    super(interp._tcltkip(), exp)
    # safe this for `set' command
    @set = interp.commands()["set"]
    # set value
    set(dat) if dat
  end

# although you can set/read variables by using set in tcl/tk,
  # we provide the method for accessing variables

# set(data): set tcl/tk variable using `set'
  #   data: new value
  def set(data)
    @set.e(to_s(), data.to_s())
  end

# get(): read tcl/tk variable(String) using `set'
  def get()
    return @set.e(to_s())
  end
end

# class TclTkWidget: tcl/tk widget
class TclTkWidget < TclTkCommand

# initialize(*args):
  #   *args: parameters
  def initialize(*args)
    if args[0].kind_of?(TclTkIp)
      # in case the 1st argument is TclTkIp:

# Wrap tcl/tk widget by TclTkWidget
      # (used in TclTkInterpreter#initialize())

# need two arguments
      fail("invalid # of parameter") if args.size != 2

# ip: interpreter(TclTkIp)
      # exp: tcl/tk representation
      ip, exp = args

# initialize TclTkObject
      super(ip, exp)
    elsif args[0].kind_of?(TclTkInterpreter)
      # in case 1st parameter is TclTkInterpreter:

# generate new widget from parent widget

# interp: interpreter(TclTkInterpreter)
      # parent: parent widget
      # command: widget generating tk command(label 等)
      # *args: argument to the command
      interp, parent, command, *args = args

# generate widget name
      exp = parent.to_s()
      exp += "." if exp !~ /[.]$/
      exp += TclTk._newname("w_")
      # initialize TclTkObject
      super(interp._tcltkip(), exp)
      # generate widget
      res = @ip._eval_args(command, exp, *args)
#      fail("can't create Widget") if res != exp
      # for tk_optionMenu, it is legal res != exp
    else
      fail("first parameter is not TclTkInterpreter")
    end
  end
end

# class TclTkCallback: tcl/tk callbacks
class TclTkCallback < TclTkObject

# initialize(interp, pr, arg):
  #   interp: interpreter(TclTkInterpreter)
  #   pr: callback procedure(Proc)
  #   arg: string to pass as block parameters of pr
  #       bind command of tcl/tk uses % replacement for parameters
  #       pr can receive replaced data using block parameter
  #       its format is specified by arg string
  #       You should not specify arg for the command like
  #       scrollbar with -command option, which receives parameters
  #       without specifying any replacement
  def initialize(interp, pr, arg = nil)
    # auto-generate tcl/tk representation (variable name)
    exp = TclTk._newname("c_")
    # initialize TclTkObject
    super(interp._tcltkip(), exp)
    # save parameters
    @pr = pr
    @arg = arg
    # register in the module
    TclTk._addcallback(self)
  end

# to_eval(): retuens string representation for @ip._eval_args
  def to_eval()
    if @arg
      # bind replaces %s before calling ruby_fmt, so %%s is used
      s = %Q/{ruby_fmt {TclTk._callcallback("#{to_s()}", "%%s")} #{@arg}}/
    else
      s = %Q/{ruby_fmt {TclTk._callcallback("#{to_s()}", "%s")}}/
    end

return s
  end

# _call(arg): invoke callback
  #   arg: callback parameter
  def _call(arg)
    @pr.call(arg)
  end
end

# class TclTkImage: tcl/tk images
class TclTkImage < TclTkCommand

# initialize(interp, t, *args):
  #     generating image is done by TclTkImage.new()
  #     destrying is done by image delete (inconsistent, sigh)
  #   interp: interpreter(TclTkInterpreter)
  #   t: image type (photo, bitmap, etc.)
  #   *args: command argument
  def initialize(interp, t, *args)
    # auto-generate tcl/tk representation
    exp = TclTk._newname("i_")
    # initialize TclTkObject
    super(interp._tcltkip(), exp)
    # generate image
    res = @ip._eval_args("image create", t, exp, *args)
    fail("can't create Image") if res != exp
  end
end

# eof