diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/check2.rb')
| -rw-r--r-- | ext/tk/sample/demos-jp/check2.rb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/ext/tk/sample/demos-jp/check2.rb b/ext/tk/sample/demos-jp/check2.rb index 9f845183f3..558e588535 100644 --- a/ext/tk/sample/demos-jp/check2.rb +++ b/ext/tk/sample/demos-jp/check2.rb @@ -1,15 +1,15 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # checkbutton widget demo2 (called by 'widget') # -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($check2_demo) && $check2_demo $check2_demo.destroy $check2_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $check2_demo = TkToplevel.new {|w| title("Checkbutton Demonstration 2") iconname("check2") @@ -18,37 +18,37 @@ $check2_demo = TkToplevel.new {|w| base_frame = TkFrame.new($check2_demo).pack(:fill=>:both, :expand=>true) -# label 生成 +# label msg = TkLabel.new(base_frame) { font $font wraplength '4i' justify 'left' - text "下には４つのチェックボタンが表示されています。クリックするとボタンの選択状態が変わり、Tcl変数（TkVariableオブジェクトでアクセスできます）にそのボタンの状態を示す値を設定します。最初のボタンの状態は他の３つのボタンの状態にも依存して変化します。もし３つのボタンの一部だけにチェックが付けられている場合、最初のボタンはトライステート（３状態）モードでの表示を行います。現在の変数の値を見るには「変数参照」ボタンをクリックしてください。" + text "筝鐚ゃс帥潟茵腓冴障帥潟御倶紊Tcl紊逸TkVariable吾сс≪祉鴻с障鐚帥潟倶腓冴ゃ荐絎障帥潟倶篁鐚ゃ帥潟倶箴絖紊障鐚ゃ帥潟筝с篁翫帥潟ゃ鴻若鐚鐚倶鐚≪若с茵腓冴茵障憜紊違ゃ荀紊医с帥潟" } msg.pack('side'=>'top') -# 変数生成 +# 紊亥 safety = TkVariable.new(0) wipers = TkVariable.new(0) brakes = TkVariable.new(0) sober = TkVariable.new(0) -# frame 生成 +# frame TkFrame.new(base_frame) {|frame| TkGrid(TkFrame.new(frame, :height=>2, :relief=>:sunken, :bd=>2), :columnspan=>4, :row=>0, :sticky=>'ew', :pady=>2) TkGrid('x', - TkButton.new(frame, :text=>'変数参照', + TkButton.new(frame, :text=>'紊医', :image=>$image['view'], :compound=>:left, :command=>proc{ showVars($check2_demo, ['safety', safety], ['wipers', wipers], ['brakes', brakes], ['sober', sober]) }), - TkButton.new(frame, :text=>'コード参照', + TkButton.new(frame, :text=>'潟若', :image=>$image['view'], :compound=>:left, :command=>proc{showCode 'check2'}), - TkButton.new(frame, :text=>'閉じる', + TkButton.new(frame, :text=>'', :image=>$image['delete'], :compound=>:left, :command=>proc{ tmppath = $check2_demo @@ -61,16 +61,16 @@ TkFrame.new(base_frame) {|frame| }.pack('side'=>'bottom', 'fill'=>'x') -# checkbutton 生成 -TkCheckButton.new(base_frame, :text=>'安全性検査', :variable=>safety, +# checkbutton +TkCheckButton.new(base_frame, :text=>'絎ф', :variable=>safety, :relief=>:flat, :onvalue=>'all', :offvalue=>'none', :tristatevalue=>'partial'){ pack('side'=>'top', 'pady'=>2, 'anchor'=>'w') } -[ TkCheckButton.new(base_frame, 'text'=>'ワイパー OK', 'variable'=>wipers), - TkCheckButton.new(base_frame, 'text'=>'ブレーキ OK', 'variable'=>brakes), - TkCheckButton.new(base_frame, 'text'=>'運転手 素面', 'variable'=>sober) +[ 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', 'padx'=>15, 'pady'=>2, 'anchor'=>'w') |