# Menu chapter
menubutton .mb -text Sampler -menu .mb.menu
pack .mb -padx 10 -pady 10
set m [menu .mb.menu -tearoff 1]
$m add command -label Hello! -command {puts "Hello, World!"}
$m add check -label Boolean -variable foo \
	-command {puts "foo = $foo"}
$m add separator
$m add cascade -label Fruit -menu $m.sub1
set m [menu $m.sub1 -tearoff 0]
$m add radio -label apple -variable fruit
$m add radio -label orange -variable fruit
$m add radio -label kiwi -variable fruit
