Method: Tk::Itcl::ItclObject#initialize

Defined in:
ext/lib/tkextlib/itcl/incr_tcl.rb

#initialize(*args) ⇒ ItclObject

Returns a new instance of ItclObject.



50
51
52
53
54
55
56
57
58
59
 
# File 'ext/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