diff options
author | ayumin <ayumin@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2011-09-14 17:25:37 +0000 |
---|---|---|
committer | ayumin <ayumin@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2011-09-14 17:25:37 +0000 |
commit | 2fecb27eb47333fda1e0049584d6b56dd336197f (patch) | |
tree | 6a549de0a4c3980bb4c58b0de3055fd0b9756fbf /ext/tk/sample/demos-jp/search.rb | |
parent | 9da539cce9e823ab78699a8784eacfe789e67f6d (diff) | |
download | ruby-2fecb27eb47333fda1e0049584d6b56dd336197f.tar.gz |
Merge branch 'tk_utf8' into trunk
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33271 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-jp/search.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/search.rb | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/ext/tk/sample/demos-jp/search.rb b/ext/tk/sample/demos-jp/search.rb index 293ae83910..238450ae30 100644 --- a/ext/tk/sample/demos-jp/search.rb +++ b/ext/tk/sample/demos-jp/search.rb @@ -1,4 +1,4 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # Text Search widget demo (called by 'widget') # @@ -62,13 +62,13 @@ def textToggle(cmd1,sleep1,cmd2,sleep2) -1, cmd1, cmd2).start(sleep1) end -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($search_demo) && $search_demo $search_demo.destroy $search_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $search_demo = TkToplevel.new {|w| title("Text Demonstration - Search and Highlight") iconname("search") @@ -77,11 +77,11 @@ $search_demo = TkToplevel.new {|w| base_frame = TkFrame.new($search_demo).pack(:fill=>:both, :expand=>true) -# frame 生成 +# frame $search_buttons = TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $search_demo $search_demo = nil @@ -90,15 +90,15 @@ $search_buttons = TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'search'} }.pack('side'=>'left', 'expand'=>'yes') } $search_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# frame 生成 +# frame TkFrame.new(base_frame) {|f| - TkLabel.new(f, 'text'=>'ファイル名:', + TkLabel.new(f, 'text'=>'<ゃ:', 'width'=>13, 'anchor'=>'w').pack('side'=>'left') $search_fileName = TkVariable.new TkEntry.new(f, 'width'=>40, @@ -108,14 +108,14 @@ TkFrame.new(base_frame) {|f| $search_string_entry.focus}) focus } - TkButton.new(f, 'text'=>'読み込み', + TkButton.new(f, 'text'=>'茯粋昭', 'command'=>proc{textLoadFile($search_text, $search_fileName.value)})\ .pack('side'=>'left', 'pady'=>5, 'padx'=>10) }.pack('side'=>'top', 'fill'=>'x') TkFrame.new(base_frame) {|f| - TkLabel.new(f, 'text'=>'検索文字列:', + TkLabel.new(f, 'text'=>'罎膣∽絖:', 'width'=>13, 'anchor'=>'w').pack('side'=>'left') $search_searchString = TkVariable.new $search_string_entry = TkEntry.new(f, 'width'=>40, @@ -124,7 +124,7 @@ TkFrame.new(base_frame) {|f| bind('Return', proc{textSearch($search_text, $search_searchString.value, $search_Tag)}) } - TkButton.new(f, 'text'=>'反転', + TkButton.new(f, 'text'=>'荵', 'command'=>proc{textSearch($search_text, $search_searchString.value, $search_Tag)}) { @@ -165,15 +165,15 @@ else 200 ) end $search_text.insert('1.0', "\ -このウィンドウは検索機構を実現するのにテキスト widget のタグ機能がどの \ -ように使われるのかをデモするものです。まず上のエントリにファイル名を入 \ -れ、<リターン> を押すか「ロード」ボタンを押してください。次にその下の \ -エントリに文字列を入力し、<リターン> を押すか「反転」ボタンを押してく \ -ださい。するとファイル中の、検索文字列と一致する部分に全て \"search_Tag\" \ -というタグがつけられ、タグの表示属性としてその文字列が点滅するように \ -設定されます。\n") +c潟罎膣∽罕絎憗鴻 widget 帥井純 \ +篏帥≪с障筝潟<ゃ \ +<帥若> 若若帥潟若罨<筝 \ +潟絖ュ<帥若> 若荵≪帥潟若 \ +<ゃ筝罎膣∽絖筝眼 \"search_Tag\" \ +帥違ゃ帥違茵腓阪с絖号 \ +荐絎障\n") $search_text.insert('end', "\ -ファイル読み込みのカレントディレクトリは \"#{Dir.pwd}\" です。\ +<ゃ茯粋昭帥潟c \"#{Dir.pwd}\" с\ ") $search_text.set_insert '0.0' |