kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* (bug fix) bug on Tk object ID management

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4298 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2003-08-03 08:53:06 +00:00
parent 25cd84e00c
commit d34dbd1118
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ext/tk/lib/tkcanvas.rb
View file

@ -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

2
ext/tk/lib/tktext.rb
View file

@ -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