How about trying Perl/Tk???

$mw = MainWindow->new ;
$mw->geometry( "1000x640+10+0" ) ; ##whatever size you want
$mw->configure ( -menu => my $menubar = $mw->Menu ) ;

my $file  =    $menubar->cascade ( -label => 'File' , -menuitems => 
file_menuitems ) ;
my $edit  =    $menubar->cascade ( -label => 'Edit' , -menuitems => 
edit_menuitems ) ;

###..........................
### Now for the subroutines ###

sub file_menuitems {
   [
     [ qw/command New/ ] ,

     [ qw/command Open -command/ =>
           
            sub { 
                        ###your code goes here

                    } ] ,
     [ qw/command Save/ ] 

   ]  ;

}

Mastering Perl/Tk is a good book.

On Wednesday 16 June 2004 12:38, Lawrence F. Durfee wrote:
> I am trying to create a pull down menu with multiple options to select. I
> believe it is done with Menu() and AddMenuItem(), but I can't find any
> documentation.
>
> Can anyone help?
>
> Thanks,
>   LarryD
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to