diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/button.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/button.rb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ext/tk/sample/demos-jp/button.rb b/ext/tk/sample/demos-jp/button.rb index 87ced45810..301100b057 100644 --- a/ext/tk/sample/demos-jp/button.rb +++ b/ext/tk/sample/demos-jp/button.rb @@ -1,36 +1,36 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # button widget demo (called by 'widget') # # -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($button_demo) && $button_demo $button_demo.destroy $button_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $button_demo = TkToplevel.new {|w| title("Button Demonstration") iconname("button") positionWindow(w) } -# label 生成 +# label msg = TkLabel.new($button_demo) { font $kanji_font wraplength '4i' justify 'left' - text "ボタンをクリックすると、ボタンの背景色がそのボタンに書かれている色になります。ボタンからボタンへの移動はタブを押すことでも可能です。またスペースで実行することができます。" + text "帥潟帥潟蚊帥潟吾蚊障帥潟帥潟吾腱糸帥若с純с障鴻若鴻у茵с障" } msg.pack('side'=>'top') -# frame 生成 +# frame $button_buttons = Tk::Frame.new($button_demo) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $button_demo $button_demo = nil @@ -39,13 +39,13 @@ $button_buttons = Tk::Frame.new($button_demo) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'button'} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# button 生成 +# button TkButton.new($button_demo){ text "Peach Puff" width 10 |