Class Tk::Itcl::ItclObject < TkObject

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 61
def self.call_proc(name, *args)
  tk_call("#{ITCL_CLASSNAME}::#{cmd}", *args)
end

# File ext/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 ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 65
def call_method(name, *args)
  tk_call(@path, name, *args)
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 74
def info_class
  tk_call(@path, 'info', 'class')
end

# File ext/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 ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 82
def info_heritage
  list(tk_call(@path, 'info', 'heritage'))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 78
def info_inherit
  simplelist(tk_call(@path, 'info', 'inherit'))
end

# File ext/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 ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 69
def isa(klass)
  bool(tk_call(@path, 'isa', klass))
end

# File ext/tk/lib/tkextlib/itcl/incr_tcl.rb, line 45
def mutex; @mutex; end