# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 61
def self.call_proc(name, *args)
tk_call("#{ITCL_CLASSNAME}::#{cmd}", *args)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 50
def initialize(*args)
if (@klass = self.class::ITCL_CLASSNAME).empty?
fail RuntimeError, 'unknown itcl class (abstract class?)'
end
Tk::Itcl::ItclObject::ITCL_OBJ_ID.mutex.synchronize{
@id = Tk::Itcl::ItclObject::TCL_OBJ_ID.join(TkCore::INTERP._ip_id_)
Tk::Itcl::ItclObject::ITCL_OBJ_ID[1].succ!
}
@path = @id
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 65
def call_method(name, *args)
tk_call(@path, name, *args)
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 74
def info_class
tk_call(@path, 'info', 'class')
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 86
def info_function(*args)
if args[-1].kind_of?(Array)
params = args.pop
params.each{|param|
param = param.to_s
args << ( (param[0] == --)? param: "-#{param}" )
}
end
list(tk_call(@path, 'info', 'function', *args))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 82
def info_heritage
list(tk_call(@path, 'info', 'heritage'))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 78
def info_inherit
simplelist(tk_call(@path, 'info', 'inherit'))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 97
def info_variable(*args)
if args[-1].kind_of?(Array)
params = args.pop
params.each{|param|
param = param.to_s
args << ( (param[0] == --)? param: "-#{param}" )
}
end
list(tk_call(@path, 'info', 'variable', *args))
end
# File tk/lib/tkextlib/itcl/incr_tcl.rb, line 69
def isa(klass)
bool(tk_call(@path, 'isa', klass))
end
Commenting is here to help enhance the documentation. For example, sample code, or clarification of the documentation.
If you have questions about Ruby or the documentation, please post to one of the Ruby mailing lists. You will get better, faster, help that way.
If you wish to post a correction of the docs, please do so, but also file bug report so that it can be corrected for the next release. Thank you.