summaryrefslogtreecommitdiffstats
path: root/ext/tk/sample/demos-jp/menu.rb
diff options
context:
space:
mode:
authornagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-10-11 04:51:21 +0000
committernagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-10-11 04:51:21 +0000
commitbbe91bcd1898d544739e41fdf91aa8288526540a (patch)
treed280d8542cc44d1cd1a75e8ec87b1f9d231561b7 /ext/tk/sample/demos-jp/menu.rb
parent28c7b64f14c02a953ba051acd144e4ee5144450e (diff)
downloadruby-bbe91bcd1898d544739e41fdf91aa8288526540a.tar.gz
ruby-bbe91bcd1898d544739e41fdf91aa8288526540a.tar.xz
ruby-bbe91bcd1898d544739e41fdf91aa8288526540a.zip
* ext/tk/lib/tk/*: untabify
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@7029 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-jp/menu.rb')
-rw-r--r--ext/tk/sample/demos-jp/menu.rb50
1 files changed, 25 insertions, 25 deletions
diff --git a/ext/tk/sample/demos-jp/menu.rb b/ext/tk/sample/demos-jp/menu.rb
index 79d5b3d4c..50152cead 100644
--- a/ext/tk/sample/demos-jp/menu.rb
+++ b/ext/tk/sample/demos-jp/menu.rb
@@ -79,8 +79,8 @@ TkMenubutton.new($menu_frame, 'text'=>'Basic', 'underline'=>0) {|m|
['A','B','C','D','E','F','G'].each{|c|
# add('command', 'label'=>"文字 \"#{c}\" を印字", 'underline'=>4,
add('command', 'label'=>"Print letter \"#{c}\" (文字 \"#{c}\" を印字)",
- 'underline'=>14, 'accelerator'=>"Meta+#{c}",
- 'command'=>proc{print c,"\n"}, 'accelerator'=>"#{modifier}+#{c}")
+ 'underline'=>14, 'accelerator'=>"Meta+#{c}",
+ 'command'=>proc{print c,"\n"}, 'accelerator'=>"#{modifier}+#{c}")
$menu_demo.bind("#{modifier}-#{c.downcase}", proc{print c,"\n"})
}
}
@@ -91,17 +91,17 @@ TkMenubutton.new($menu_frame, 'text'=>'Cascades', 'underline'=>0) {|m|
TkMenu.new(m, 'tearoff'=>false) {|cascade_menu|
m.configure('menu'=>cascade_menu)
add('command', 'label'=>'Print hello(こんにちは)',
- 'command'=>proc{print "Hello(こんにちは)\n"},
- 'accelerator'=>"#{modifier}+H", 'underline'=>6)
+ 'command'=>proc{print "Hello(こんにちは)\n"},
+ 'accelerator'=>"#{modifier}+H", 'underline'=>6)
$menu_demo.bind("#{modifier}-h", proc{print "Hello(こんにちは)\n"})
add('command', 'label'=>'Print goodbye(さようなら)',
- 'command'=>proc{print "Goodbye(さようなら)\n"},
- 'accelerator'=>"#{modifier}+G", 'underline'=>6)
+ 'command'=>proc{print "Goodbye(さようなら)\n"},
+ 'accelerator'=>"#{modifier}+G", 'underline'=>6)
$menu_demo.bind("#{modifier}-g", proc{print "Goodbye(さようなら)\n"})
TkMenu.new(m, 'tearoff'=>false) {|cascade_check|
cascade_menu.add('cascade', 'label'=>'Check buttons(チェックボタン)',
- 'menu'=>cascade_check, 'underline'=>0)
+ 'menu'=>cascade_check, 'underline'=>0)
oil = TkVariable.new(0)
add('check', 'label'=>'オイル点検', 'variable'=>oil)
trans = TkVariable.new(0)
@@ -112,18 +112,18 @@ TkMenubutton.new($menu_frame, 'text'=>'Cascades', 'underline'=>0) {|m|
add('check', 'label'=>'ライト点検', 'variable'=>lights)
add('separator')
add('command', 'label'=>'現在の値を表示',
- 'command'=>proc{showVars($menu_demo,
- ['オイル点検', oil],
- ['トランスミッション点検', trans],
- ['ブレーキ点検', brakes],
- ['ライト点検', lights])} )
+ 'command'=>proc{showVars($menu_demo,
+ ['オイル点検', oil],
+ ['トランスミッション点検', trans],
+ ['ブレーキ点検', brakes],
+ ['ライト点検', lights])} )
invoke 1
invoke 3
}
TkMenu.new(m, 'tearoff'=>false) {|cascade_radio|
cascade_menu.add('cascade', 'label'=>'Radio buttons(ラジオボタン)',
- 'menu'=>cascade_radio, 'underline'=>0)
+ 'menu'=>cascade_radio, 'underline'=>0)
pointSize = TkVariable.new
add('radio', 'label'=>'10 ポイント', 'variable'=>pointSize, 'value'=>10)
add('radio', 'label'=>'14 ポイント', 'variable'=>pointSize, 'value'=>14)
@@ -137,9 +137,9 @@ TkMenubutton.new($menu_frame, 'text'=>'Cascades', 'underline'=>0) {|m|
add('radio', 'label'=>'イタリック', 'variable'=>style, 'value'=>'italic')
add('separator')
add('command', 'label'=>'現在の値を表示',
- 'command'=>proc{showVars($menu_demo,
- ['ポイントサイズ', pointSize],
- ['スタイル', style])} )
+ 'command'=>proc{showVars($menu_demo,
+ ['ポイントサイズ', pointSize],
+ ['スタイル', style])} )
invoke 1
invoke 7
}
@@ -151,15 +151,15 @@ TkMenubutton.new($menu_frame, 'text'=>'Icons', 'underline'=>0) {|m|
TkMenu.new(m, 'tearoff'=>false) {|icon_menu|
m.configure('menu'=>icon_menu)
add('command',
- 'bitmap'=>'@'+[$demo_dir,'..',
- 'images','pattern.xbm'].join(File::Separator),
- 'command'=>proc{TkDialog.new('title'=>'Bitmap Menu Entry',
- 'text'=>'今あなたが選択したメニューの項目はテキストではなくビットマップを表示していました。それ以外の点では他のメニュー項目と変わりません。',
- 'bitmap'=>'', 'default'=>0,
- 'buttons'=>'了解')} )
+ 'bitmap'=>'@'+[$demo_dir,'..',
+ 'images','pattern.xbm'].join(File::Separator),
+ 'command'=>proc{TkDialog.new('title'=>'Bitmap Menu Entry',
+ 'text'=>'今あなたが選択したメニューの項目はテキストではなくビットマップを表示していました。それ以外の点では他のメニュー項目と変わりません。',
+ 'bitmap'=>'', 'default'=>0,
+ 'buttons'=>'了解')} )
['info', 'questhead', 'error'].each{|icon|
add('command', 'bitmap'=>icon,
- 'command'=>proc{print "You invoked the #{icon} bitmap\n"})
+ 'command'=>proc{print "You invoked the #{icon} bitmap\n"})
}
}
}
@@ -171,7 +171,7 @@ TkMenubutton.new($menu_frame, 'text'=>'More', 'underline'=>0) {|m|
[ 'エントリ','別のエントリ','何もしない','ほとんど何もしない',
'人生を意義あるものに' ].each{|i|
add('command', 'label'=>i,
- 'command'=>proc{print "You invoked \"#{i}\"\n"})
+ 'command'=>proc{print "You invoked \"#{i}\"\n"})
}
}
}
@@ -182,7 +182,7 @@ TkMenubutton.new($menu_frame, 'text'=>'Colors', 'underline'=>0) {|m|
m.configure('menu'=>colors_menu)
['red', 'orange', 'yellow', 'green', 'blue'].each{|c|
add('command', 'label'=>c, 'background'=>c,
- 'command'=>proc{print "You invoked \"#{c}\"\n"})
+ 'command'=>proc{print "You invoked \"#{c}\"\n"})
}
}
}