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;
[download]