Hi all, My setup is Activeperl v5.8.4 build 810, Tk v804.026 running on Win2K.
I wrote a little test program that uses Tk to display a window with a menubar along the top.
I have tried to adjust fonts globally for the Menu but where
I have tried to change the code, it has not worked -
see lines marked: # HAS NO EFFECT!
I can change the font for individual Menu items, but I would
like to change the font for the entire menu including the label 'File'.
Can anybody point me in the right direction? 
# 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__

[download]
My first question on Perl Monks - hope I got it right!

In reply to Setting fonts in Tk Menu's by davros

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.