ZJ.Mike.2009 has asked for the wisdom of the Perl Monks concerning the following question:
How can I change the font of the text for the menu bar and for the menu items? Or is this decided by the system?
I've tried the following code but with no luck:
Any pointers? Thanks like alwasy.use warnings; use strict; package MyApp; use Wx qw(:everything); use base 'Wx::App'; my $font = Wx::Font->new(16,1,wxFONTFAMILY_DEFAULT,wxFONTWEIGHT_BOLD,) +; sub OnInit { my $frame = Wx::Frame->new(undef,-1,'Test',[0,0],[200,200],); my @id = (0 .. 10); my $menu = Wx::Menu->new(); my $menuitem = $menu->Append($id[0], "Help"); $menuitem->SetFont($font); #Font won't change my $menubar = Wx::MenuBar->new(); $menubar->SetFont($font); #Font won't change $menubar->Append($menu, "About"); $frame->SetMenuBar($menubar); $frame->Show(); } MyApp->new->MainLoop;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How do I change the default font size of the menu bar text and that of the menu item text in wxPerl?
by Anonymous Monk on May 07, 2011 at 07:44 UTC | |
by ZJ.Mike.2009 (Scribe) on May 07, 2011 at 08:14 UTC |
Back to
Seekers of Perl Wisdom