diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
commit | 4c3328f5476f54c84b1f048eed075e6edf5e5b1d (patch) | |
tree | 92b661314bdfd045882e365e3e43b77f57244725 /ext/tk/lib/tkcanvas.rb | |
parent | d7bdf5df56f337d8ca1152598ff138703896c54b (diff) |
* (bug fix) TkEntry#delete
* (bug fix) some widget demos
* support <TkVariable object> == <Symbol>
( "coerce TkVariable" add to the TODO list :-) )
* freeze some object for security reason
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4282 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkcanvas.rb')
-rw-r--r-- | ext/tk/lib/tkcanvas.rb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb index cbe4f89043..47e925c4fe 100644 --- a/ext/tk/lib/tkcanvas.rb +++ b/ext/tk/lib/tkcanvas.rb @@ -11,7 +11,7 @@ require 'tkfont' module TkTreatCItemFont include TkTreatItemFont - ItemCMD = ['itemconfigure', TkComm::None] + ItemCMD = ['itemconfigure'.freeze, TkComm::None].freeze def __conf_cmd(idx) ItemCMD[idx] end @@ -529,7 +529,7 @@ class TkcTag<TkObject include TkcTagAccess CTagID_TBL = TkCore::INTERP.create_table - Tk_CanvasTag_ID = ['ctag', '00000'] + Tk_CanvasTag_ID = ['ctag'.freeze, '00000'].freeze TkCore::INTERP.init_ip_env{ CTagID_TBL.clear } @@ -660,7 +660,7 @@ class TkcTagCurrent<TkcTag end class TkcGroup<TkcTag - Tk_cGroup_ID = ['tkcg', '00000'] + Tk_cGroup_ID = ['tkcg'.freeze, '00000'].freeze def create_self(parent, *args) if not parent.kind_of?(TkCanvas) fail format("%s need to be TkCanvas", parent.inspect) @@ -823,7 +823,7 @@ class TkImage<TkObject TkCommandNames = ['image'.freeze].freeze Tk_IMGTBL = TkCore::INTERP.create_table - Tk_Image_ID = ['i', '00000'] + Tk_Image_ID = ['i'.freeze, '00000'].freeze TkCore::INTERP.init_ip_env{ Tk_IMGTBL.clear } |