diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/bitmap.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/bitmap.rb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ext/tk/sample/demos-jp/bitmap.rb b/ext/tk/sample/demos-jp/bitmap.rb index 1193e8de24..d84e9a5f09 100644 --- a/ext/tk/sample/demos-jp/bitmap.rb +++ b/ext/tk/sample/demos-jp/bitmap.rb @@ -1,4 +1,4 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # bitmap widget demo (called by 'widget') # @@ -25,13 +25,13 @@ def bitmapRow(w,*args) } end -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($bitmap_demo) && $bitmap_demo $bitmap_demo.destroy $bitmap_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $bitmap_demo = TkToplevel.new {|w| title("Bitmap Demonstration") iconname("bitmap") @@ -40,17 +40,17 @@ $bitmap_demo = TkToplevel.new {|w| base_frame = TkFrame.new($bitmap_demo).pack(:fill=>:both, :expand=>true) -# label 生成 +# label TkLabel.new(base_frame,'font'=>$font,'wraplength'=>'4i','justify'=>'left', - 'text'=>"このウィンドウには、Tk に組み込まれたすべてのビットマップが、それらの名前と共に表示されています。Tcl のスクリプト中では、それぞれの名前を用いて参照します。"){ + 'text'=>"c潟Tk 腟粋昭障鴻宴茵腓冴障Tcl 鴻筝сс障"){ pack('side'=>'top') } -# frame 生成 +# frame $bitmap_buttons = TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $bitmap_demo $bitmap_demo = nil @@ -59,13 +59,13 @@ $bitmap_buttons = TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'bitmap'} }.pack('side'=>'left', 'expand'=>'yes') } $bitmap_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# frame 設定 +# frame 荐絎 TkFrame.new(base_frame){|f| bitmapRow(f,'error','gray25','gray50','hourglass') bitmapRow(f,'info','question','questhead','warning') |