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;
Back to
Seekers of Perl Wisdom