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