diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-01 09:38:48 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-01 09:38:48 +0000 |
| commit | ffcedd79505ea2e99f859c7cea2fb2221c948d4c (patch) | |
| tree | 02232516faf0e1959ecb5d5b7aca25a52f9f87ca /ext/tk/lib/tk/canvastag.rb | |
| parent | 73cf1d02bac2dbdd5d7f673a33d81444a00c865e (diff) | |
* ext/tk/lib/tcltklib : bug fix
* ext/tk/lib/tk : bug fix and add Tcl/Tk extension support libraries
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6559 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tk/canvastag.rb')
| -rw-r--r-- | ext/tk/lib/tk/canvastag.rb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ext/tk/lib/tk/canvastag.rb b/ext/tk/lib/tk/canvastag.rb index 5a98127f6b..056bf74c05 100644 --- a/ext/tk/lib/tk/canvastag.rb +++ b/ext/tk/lib/tk/canvastag.rb @@ -204,6 +204,14 @@ class TkcTag<TkObject @id end + def exist? + if @c.find_withtag(@id) + true + else + false + end + end + def delete @c.delete @id CTagID_TBL[@cpath].delete(@id) if CTagID_TBL[@cpath] |