Method: TkcGroup#initialize

Defined in:
lib/tk/canvastag.rb

#initialize(parent, *args) ⇒ TkcGroup

def create_self(parent, *args)



417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
 
# File 'lib/tk/canvastag.rb', line 417

def initialize(parent, *args)
  #unless parent.kind_of?(TkCanvas)
  #  fail ArgumentError, "expect TkCanvas for 1st argument"
  #end
  @c = parent
  @cpath = parent.path
  Tk_cGroup_ID.mutex.synchronize{
    # @path = @id = Tk_cGroup_ID.join('')
    @path = @id = Tk_cGroup_ID.join(TkCore::INTERP._ip_id_)
    Tk_cGroup_ID[1].succ!
  }
  CTagID_TBL.mutex.synchronize{
    CTagID_TBL[@cpath] = {} unless CTagID_TBL[@cpath]
    CTagID_TBL[@cpath][@id] = self
  }
  include(*args) if args != []
end