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;