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); }