From 2fecb27eb47333fda1e0049584d6b56dd336197f Mon Sep 17 00:00:00 2001 From: ayumin Date: Wed, 14 Sep 2011 17:25:37 +0000 Subject: Merge branch 'tk_utf8' into trunk git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33271 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/demos-jp/label.rb | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'ext/tk/sample/demos-jp/label.rb') diff --git a/ext/tk/sample/demos-jp/label.rb b/ext/tk/sample/demos-jp/label.rb index 19105e6f71..700e6a61ce 100644 --- a/ext/tk/sample/demos-jp/label.rb +++ b/ext/tk/sample/demos-jp/label.rb @@ -1,15 +1,15 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # label widget demo (called by 'widget') # -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($label_demo) && $label_demo $label_demo.destroy $label_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $label_demo = TkToplevel.new {|w| title("Label Demonstration") iconname("label") @@ -18,20 +18,20 @@ $label_demo = TkToplevel.new {|w| base_frame = TkFrame.new($label_demo).pack(:fill=>:both, :expand=>true) -# label 生成 +# label msg = TkLabel.new(base_frame) { font $font wraplength '4i' justify 'left' - text "下には5つのラベルが表示されています。左側にはテキストラベルが3つあり、右側にはビットマップラベルとテキストラベルがあります。ラベルというのはあまり面白いものではありません。なぜなら眺める以外何もできないからです。" + text "筝5ゃ茵腓冴障綏眼鴻3ゃ勀眼鴻障障∝純с障冴篁ュ篏сс" } msg.pack('side'=>'top') -# frame 生成 +# frame TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $label_demo $label_demo = nil @@ -40,23 +40,23 @@ TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'label'} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# label demo 用フレーム生成 +# label demo 若 f_left = TkFrame.new(base_frame) f_right = TkFrame.new(base_frame) [f_left, f_right].each{|w| w.pack('side'=>'left', 'expand'=>'yes', 'padx'=>10, 'pady'=>10, 'fill'=>'both')} -# label 生成 -[ TkLabel.new(f_left, 'text'=>'最初のラベル'), - TkLabel.new(f_left, 'text'=>'2 番目。ちょっと浮き上がらせてみました', +# label +[ TkLabel.new(f_left, 'text'=>''), + TkLabel.new(f_left, 'text'=>'2 <c羌筝帥障', 'relief'=>'raised'), - TkLabel.new(f_left, 'text'=>'3 番目。沈んでいます ', 'relief'=>'sunken') + TkLabel.new(f_left, 'text'=>'3 羃с障 ', 'relief'=>'sunken') ].each{|w| w.pack('side'=>'top', 'expand'=>'yes', 'pady'=>2, 'anchor'=>'w')} # TkLabel.new(f_right) { @@ -66,4 +66,4 @@ Tk::Label.new(f_right) { relief 'sunken' }.pack('side'=>'top') -TkLabel.new(f_right) { text 'Tcl/Tk 所有者' }.pack('side'=>'top') +TkLabel.new(f_right) { text 'Tcl/Tk ' }.pack('side'=>'top') -- cgit v1.2.3