
set Name [unique2 $Composite.f20]
set Parent $Name
#------------------------------------------
frame $Name
$Name configure  -background gray80 -borderwidth 2 -height 50 -relief ridge -width 50
pack $Name -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top

set Name $Parent.m3
#------------------------------------------
set Menu_string($Name) {{ 
  {Load command "puts load"} 
  {Save command "puts save"} 
  {Quit command "puts quit"} 
}}
menubutton $Name
$Name configure -menu $Name.m
eval "make_menu $Name $Menu_string($Name)"
$Name configure  -background gray80 -font -*-fixed-bold-r-normal--13-* -foreground gray10 -relief raised -text File
pack $Name -anchor nw -expand 1 -fill x -ipadx 0 -ipady 0 -padx 0 -pady 0 -side left

set Name $Parent.m4
#------------------------------------------
set Menu_string($Name) {{ 
  {Cut command "puts cut"} 
  {Copy command "puts copy"} 
  {Paste command "puts paste"} 
}}
menubutton $Name
$Name configure -menu $Name.m
eval "make_menu $Name $Menu_string($Name)"
$Name configure  -background gray80 -font -*-fixed-bold-r-normal--13-* -foreground gray10 -relief raised -text Edit
pack $Name -anchor nw -expand 1 -fill x -ipadx 0 -ipady 0 -padx 0 -pady 0 -side left

set Name $Parent.m5
#------------------------------------------
set Menu_string($Name) {{ 
  {About... command "puts about"} 
  {Help command "puts help"} 
}}
menubutton $Name
$Name configure -menu $Name.m
eval "make_menu $Name $Menu_string($Name)"
$Name configure  -background gray80 -font -*-fixed-bold-r-normal--13-* -foreground gray10 -relief raised -text Help
pack $Name -anchor nw -expand 1 -fill x -ipadx 0 -ipady 0 -padx 0 -pady 0 -side left
