def create_self(parent, *args)
# File tk/lib/tk/canvastag.rb, line 424
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
# File tk/lib/tk/canvastag.rb, line 452
def exclude(*tags)
for i in tags
#i.dtag(@id)
@c.dtag(i, @id)
end
self
end
private :create_self
# File tk/lib/tk/canvastag.rb, line 443
def include(*tags)
for i in tags
#i.addtag(@id)
@c.addtag_withtag(@id, i)
end
self
end