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