Maintenance of Ruby 2.0.0 ended on February 24, 2016. Read more
# 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