Posted to tcl by yeeling at Tue Aug 07 10:23:12 GMT 2007view raw

  1. sub mkmenu
  2. {
  3. my @menus;
  4. my $fm=$poe_main_window->Frame(
  5. -relief => 'raised',
  6. -borderwidth => 2)->grid(-row=>0, -column=>0, -pady=>0, -sticky=>'ew');
  7. my $i=0;
  8. foreach (qw/File Tools Help/) {
  9. $fm->Menubutton(-text=>$_)->grid(-sticky=>'ew',-row=>0, -column=>$i);
  10. $i++;
  11. }
  12. }