# Menu.pl
use strict;
use warnings;
use diagnostics;
use Tk;

my $mw  = MainWindow-> new(-title  => 'Testing Tk::Menu',
                          -width  =>  500,
                          -height =>  300,
                          -background =>  'yellow',
                          -name   =>  'Demo',
                         );
$mw-> minsize(500,300);

my $menubar = $mw-> Menu(-type => 'menubar',
                        -font =>  "Verdana 14 bold", # HAS NO EFFECT!
                       );

$mw-> configure(-menu => $menubar);
$menubar-> configure(-font => "Verdana 14 bold"); # HAS NO EFFECT!

my $m1 = $menubar-> cascade
         (  -label     =>  'File',
            -tearoff   =>  0,
            -menuitems =>  [[Button => 'New',
                             -font    => "Verdana 16 bold", # OK
                                              -command => 
\&create_new_file ],
                           [Button =>  'Open', -command =>
_file       ],
                           [Button =>  'Exit', -command => sub
       ],
                          ]
         );

MainLoop;

sub create_new_file { print "create_new_file...\n"; }

sub open_file       { print "open_file...\n"; }

__END__