diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/check.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/check.rb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/ext/tk/sample/demos-jp/check.rb b/ext/tk/sample/demos-jp/check.rb index 762b99778b..422e898ec9 100644 --- a/ext/tk/sample/demos-jp/check.rb +++ b/ext/tk/sample/demos-jp/check.rb @@ -1,15 +1,15 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # checkbutton widget demo (called by 'widget') # -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($check_demo) && $check_demo $check_demo.destroy $check_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $check_demo = TkToplevel.new {|w| title("Checkbutton Demonstration") iconname("check") @@ -18,25 +18,25 @@ $check_demo = TkToplevel.new {|w| base_frame = TkFrame.new($check_demo).pack(:fill=>:both, :expand=>true) -# label 生成 +# label msg = TkLabel.new(base_frame) { font $font wraplength '4i' justify 'left' - text "下には 3 つのチェックボタンが表示されています。クリックするとボタンの選択状態が変わり、Tcl 変数 ( TkVariable オブジェクトでアクセスできます ) にそのボタンの状態を示す値を設定します。現在の変数の値を見るには「変数参照」ボタンをクリックしてください。" + text "筝 3 ゃс帥潟茵腓冴障帥潟御倶紊Tcl 紊 ( TkVariable 吾сс≪祉鴻с障 ) 帥潟倶腓冴ゃ荐絎障憜紊違ゃ荀紊医с帥潟" } msg.pack('side'=>'top') -# 変数生成 +# 紊亥 wipers = TkVariable.new(0) brakes = TkVariable.new(0) sober = TkVariable.new(0) -# frame 生成 +# frame TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $check_demo $check_demo = nil @@ -46,13 +46,13 @@ TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'check'} }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text '変数参照' + text '紊医' command proc{ showVars(base_frame, ['wipers', wipers], ['brakes', brakes], ['sober', sober]) @@ -62,9 +62,9 @@ TkFrame.new(base_frame) {|frame| }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# checkbutton 生成 -[ TkCheckButton.new(base_frame, 'text'=>'ワイパー OK', 'variable'=>wipers), - TkCheckButton.new(base_frame, 'text'=>'ブレーキ OK', 'variable'=>brakes), - TkCheckButton.new(base_frame, 'text'=>'運転手 素面', 'variable'=>sober) +# checkbutton +[ TkCheckButton.new(base_frame, 'text'=>'ゃ OK', 'variable'=>wipers), + TkCheckButton.new(base_frame, 'text'=>'若 OK', 'variable'=>brakes), + TkCheckButton.new(base_frame, 'text'=>'荵∽ 膣', 'variable'=>sober) ].each{|w| w.relief('flat'); w.pack('side'=>'top', 'pady'=>2, 'anchor'=>'w')} |