diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-09-07 07:10:44 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-09-07 07:10:44 +0000 |
commit | 865ff7fb4f11bbf1f0e139e16470727828f54e63 (patch) | |
tree | 09e2f00bbd85e05ba96774c32f6ee3b6f543ae64 /ext/tk/lib/tkcanvas.rb | |
parent | a7357c196559f3181e359662d92cb06d7b18e3cb (diff) |
* tcltklib.c (lib_mainloop_core): fixed signal-trap bug
* multi-tk.rb, tk.rb, tkafter.rb, tkcanvas.rb, tkfont.rb, tktext.rb,
tkvirtevent.rb : Ruby/Tk works at $SAFE == 4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4527 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkcanvas.rb')
-rw-r--r-- | ext/tk/lib/tkcanvas.rb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb index 024211aa1d..687f521655 100644 --- a/ext/tk/lib/tkcanvas.rb +++ b/ext/tk/lib/tkcanvas.rb @@ -557,7 +557,7 @@ class TkcTag<TkObject include TkcTagAccess CTagID_TBL = TkCore::INTERP.create_table - Tk_CanvasTag_ID = ['ctag'.freeze, '00000'].freeze + Tk_CanvasTag_ID = ['ctag'.freeze, '00000'.taint].freeze TkCore::INTERP.init_ip_env{ CTagID_TBL.clear } @@ -688,7 +688,7 @@ class TkcTagCurrent<TkcTag end class TkcGroup<TkcTag - Tk_cGroup_ID = ['tkcg'.freeze, '00000'].freeze + Tk_cGroup_ID = ['tkcg'.freeze, '00000'.taint].freeze def create_self(parent, *args) if not parent.kind_of?(TkCanvas) fail format("%s need to be TkCanvas", parent.inspect) @@ -851,7 +851,7 @@ class TkImage<TkObject TkCommandNames = ['image'.freeze].freeze Tk_IMGTBL = TkCore::INTERP.create_table - Tk_Image_ID = ['i'.freeze, '00000'].freeze + Tk_Image_ID = ['i'.freeze, '00000'.taint].freeze TkCore::INTERP.init_ip_env{ Tk_IMGTBL.clear } |