Posted to tcl by yeeling at Tue Aug 07 10:37:48 GMT 2007view pretty
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=>$_)); } for (my $i=0; $i<scalar @menus; $i++) { $menus[$i]->grid(-sticky=>'w', -row=>0, -column=>$i); $fm->gridColumnconfigure($i,-weight=>1); } }
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); }