diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 08:53:06 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 08:53:06 +0000 |
| commit | 27816a0a002f0cf90dbae563b44e08264fbccac5 (patch) | |
| tree | 284336ae2b7a477699fc0edcf58fe69bad723a65 | |
| parent | 4a222197db3c25c0b9f2f2df057827d0b247f0bf (diff) | |
| download | ruby-27816a0a002f0cf90dbae563b44e08264fbccac5.tar.gz ruby-27816a0a002f0cf90dbae563b44e08264fbccac5.tar.xz ruby-27816a0a002f0cf90dbae563b44e08264fbccac5.zip | |
* (bug fix) bug on Tk object ID management
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4298 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ext/tk/lib/tkcanvas.rb | 6 | ||||
| -rw-r--r-- | ext/tk/lib/tktext.rb | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb index 47e925c4f..a899c9caa 100644 --- a/ext/tk/lib/tkcanvas.rb +++ b/ext/tk/lib/tkcanvas.rb @@ -548,7 +548,7 @@ class TkcTag<TkObject @path = @id = Tk_CanvasTag_ID.join CTagID_TBL[@cpath] = {} unless CTagID_TBL[@cpath] CTagID_TBL[@cpath][@id] = self - Tk_CanvasTag_ID[1] = Tk_CanvasTag_ID[1].succ + Tk_CanvasTag_ID[1].succ! if mode tk_call @c.path, "addtag", @id, mode, *args end @@ -670,7 +670,7 @@ class TkcGroup<TkcTag @path = @id = Tk_cGroup_ID.join CTagID_TBL[@cpath] = {} unless CTagID_TBL[@cpath] CTagID_TBL[@cpath][@id] = self - Tk_cGroup_ID[1] = Tk_cGroup_ID[1].succ + Tk_cGroup_ID[1].succ! add(*args) if args != [] end @@ -829,7 +829,7 @@ class TkImage<TkObject def initialize(keys=nil) @path = Tk_Image_ID.join - Tk_Image_ID[1] = Tk_Image_ID[1].succ + Tk_Image_ID[1].succ! tk_call 'image', 'create', @type, @path, *hash_kv(keys) Tk_IMGTBL[@path] = self end diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb index 6fa69aa59..ae40ac875 100644 --- a/ext/tk/lib/tktext.rb +++ b/ext/tk/lib/tktext.rb @@ -991,7 +991,7 @@ class TkTextMark<TkObject TMarkID_TBL[@id] = self TMarkID_TBL[@tpath] = {} unless TMarkID_TBL[@tpath] TMarkID_TBL[@tpath][@id] = self - Tk_TextMark_ID[0] = Tk_TextMark_ID[0].succ + Tk_TextMark_ID[1].succ! tk_call @t.path, 'mark', 'set', @id, index @t._addtag id, self end |