Posted to tcl by yeeling at Tue Aug 07 10:37:48 GMT 2007view raw
- 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); }