Posted to tcl by yeeling at Tue Aug 07 10:37:48 GMT 2007view raw

  1. sub mkmenu
  2. {
  3. my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ];
  4. my @menus;
  5. $my $fm=$poe_main_window->Frame(
  6. -relief => 'raised',
  7. -borderwidth => 2)->grid(-row=>0, -column=>0, -pady=>0, -sticky=>'ew');
  8. foreach (qw/File Tools Help/) {
  9. push (@menus,$fm->Menubutton(-text=>$_));
  10. }
  11.  
  12. for (my $i=0; $i<scalar @menus; $i++)
  13. {
  14. $menus[$i]->grid(-sticky=>'w', -row=>0, -column=>$i);
  15. $fm->gridColumnconfigure($i,-weight=>1);
  16. }
  17. }

Comments

Posted by dkf at Tue Aug 07 10:39:29 GMT 2007 [text] [code]

sub mkmenu { my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ]; my @menus; $my $fm=$poe_main_window->Frame( -relief => 'raised', -borderwidth => 2)->grid(-row=>0, -column=>0, -pady=>0, -sticky=>'ew'); foreach (qw/File Tools Help/) { push (@menus,$fm->Menubutton(-text=>$_)); } my $i; for ($i=0; $i<scalar @menus; $i++) { $menus[$i]->grid(-sticky=>'w', -row=>0, -column=>$i); } $fm->gridColumnconfigure($i,-weight=>1); }