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 | d34dbd11183932edff06e20a9ec21c0ce450a52f (patch) | |
| tree | 284336ae2b7a477699fc0edcf58fe69bad723a65 /ext/tk/lib/tktext.rb | |
| parent | 25cd84e00cba7c64240561eb3b019cf451ed6f71 (diff) | |
* (bug fix) bug on Tk object ID management
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4298 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tktext.rb')
| -rw-r--r-- | ext/tk/lib/tktext.rb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb index 6fa69aa597..ae40ac8750 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 |