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/tktext.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/tktext.rb')
-rw-r--r-- | ext/tk/lib/tktext.rb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb index a28c3d31fc..6fa69aa597 100644 --- a/ext/tk/lib/tktext.rb +++ b/ext/tk/lib/tktext.rb @@ -9,7 +9,7 @@ require 'tkfont' module TkTreatTextTagFont include TkTreatItemFont - ItemCMD = ['tag', 'configure'] + ItemCMD = ['tag'.freeze, 'configure'.freeze].freeze def __conf_cmd(idx) ItemCMD[idx] end @@ -24,7 +24,7 @@ module TkTreatTextTagFont end class TkText<TkTextWin - ItemConfCMD = ['tag', 'configure'] + ItemConfCMD = ['tag'.freeze, 'configure'.freeze].freeze include TkTreatTextTagFont include Scrollable @@ -767,7 +767,7 @@ class TkTextTag<TkObject include TkTreatTagFont TTagID_TBL = TkCore::INTERP.create_table - Tk_TextTag_ID = ['tag', '00000'] + Tk_TextTag_ID = ['tag'.freeze, '00000'].freeze TkCore::INTERP.init_ip_env{ TTagID_TBL.clear } @@ -971,7 +971,7 @@ end class TkTextMark<TkObject TMarkID_TBL = TkCore::INTERP.create_table - Tk_TextMark_ID = ['mark', '00000'] + Tk_TextMark_ID = ['mark'.freeze, '00000'].freeze TkCore::INTERP.init_ip_env{ TMarkID_TBL.clear } |