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

sub mkmenu
{
    my @menus;
    my $fm=$poe_main_window->Frame(
        -relief => 'raised', 
        -borderwidth => 2)->grid(-row=>0, -column=>0, -pady=>0, -sticky=>'ew');
    my $i=0;
    foreach (qw/File Tools Help/) {
        $fm->Menubutton(-text=>$_)->grid(-sticky=>'ew',-row=>0, -column=>$i);
        $i++;
    }
}