In Files

  • tk/lib/tkextlib/itcl/incr_tcl.rb

Class/Module Index [+]

Quicksearch

Tk::Itcl::ItclObject

Public Class Methods

call_proc(name, *args) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 55
def self.call_proc(name, *args)
  tk_call("#{ITCL_CLASSNAME}::#{cmd}", *args)
end
            
new(*args) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 46
def initialize(*args)
  if (@klass = self.class::ITCL_CLASSNAME).empty?
    fail RuntimeError, 'unknown itcl class (abstract class?)'
  end
  @id = Tk::Itcl::ItclObject::TCL_OBJ_ID.join(TkCore::INTERP._ip_id_)
  @path = @id
  Tk::Itcl::ItclObject::ITCL_OBJ_ID[1].succ!
end
            

Public Instance Methods

call_method(name, *args) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 59
def call_method(name, *args)
  tk_call(@path, name, *args)
end
            
info_class() click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 68
def info_class
  tk_call(@path, 'info', 'class')
end
            
info_function(*args) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 80
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
            
info_heritage() click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 76
def info_heritage
  list(tk_call(@path, 'info', 'heritage'))
end
            
info_inherit() click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 72
def info_inherit
  simplelist(tk_call(@path, 'info', 'inherit'))
end
            
info_variable(*args) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 91
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
            
isa(klass) click to toggle source
 
               # File tk/lib/tkextlib/itcl/incr_tcl.rb, line 63
def isa(klass)
  bool(tk_call(@path, 'isa', klass))
end
            
Also aliased as: itcl_kind_of?
itcl_kind_of?(klass) click to toggle source
Alias for: isa