diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/floor.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/floor.rb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/ext/tk/sample/demos-jp/floor.rb b/ext/tk/sample/demos-jp/floor.rb index 78cc23a245..5101a026bb 100644 --- a/ext/tk/sample/demos-jp/floor.rb +++ b/ext/tk/sample/demos-jp/floor.rb @@ -1,4 +1,4 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # floorDisplay widget demo (called by 'widget') # @@ -50,7 +50,7 @@ def floorDisplay(w,active) # Create items for the room entry and its label. TkcWindow.new(w, 600, 100, 'anchor'=>'w', 'window'=>$floor_entry) - TkcText.new(w, 600, 100, 'anchor'=>'e', 'text'=>"ֹ: ") + TkcText.new(w, 600, 100, 'anchor'=>'e', 'text'=>"部屋番号: ") w['scrollregion'] = w.bbox('all') end @@ -1572,13 +1572,13 @@ end # Below is the "main program" that creates the floorplan demonstration. -# toplevel widget ¸ߤк +# toplevel widget が存在すれば削除する if defined?($floor_demo) && $floor_demo $floor_demo.destroy $floor_demo = nil end -# demo Ѥ toplevel widget +# demo 用の toplevel widget を生成 $floor_demo = TkToplevel.new {|w| title("Floorplan Canvas Demonstration") iconname("Floorplan") @@ -1589,17 +1589,17 @@ $floor_demo = TkToplevel.new {|w| base_frame = TkFrame.new($floor_demo).pack(:fill=>:both, :expand=>true) -# label +# label 生成 TkLabel.new(base_frame, 'font'=>$font, 'wraplength'=>'8i', 'justify'=>'left', - 'text'=>"Υɥˤϥǥ륨åץȼҤΥꥵܥȥ (DECWRL) δּ꤬줿Х widget äƤޤ 3ƤǡˤΤ1ʬĤޤꤽδּ꤬ɽ褦ˤʤäƤޤ볬ˤϡξǥޥκܥåƤޥƤ볬ξưȡβˤοѤꡢֹ椬ֹ:ץȥɽޤޤȥֹȤοѤޤ"){ + 'text'=>"このウィンドウにはディジタルエクイップメント社のウェスタンリサーチラボラトリ (DECWRL) の間取りが書かれたキャンバス widget が入っています。これは 3階建てで、常にそのうちの1階分が選択、つまりその間取りが表示されるようになっています。ある階を選択するには、その上でマウスの左ボタンをクリックしてください。マウスが選択されている階の上を動くと、その下にある部屋の色が変わり、部屋番号が「部屋番号:」エントリに表示されます。また、エントリに部屋番号を書くとその部屋の色が変わります。"){ pack('side'=>'top') } -# frame +# frame 生成 $floor_buttons = TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text 'λ' - text 'Ĥ' + #text '了解' + text '閉じる' command proc{ tmppath = $floor_demo $floor_demo = nil @@ -1608,17 +1608,17 @@ $floor_buttons = TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'ɻ' + text 'コード参照' command proc{showCode 'floor'} }.pack('side'=>'left', 'expand'=>'yes') } $floor_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# ѿ +# 変数設定 $floorLabels = {} $floorItems = {} -# canvas +# canvas 設定 if $tk_version =~ /^4\.[01]/ $floor_canvas_frame = TkFrame.new(base_frame,'bd'=>2,'relief'=>'sunken', 'highlightthickness'=>2) |