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:

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]

Any pointers? Thanks like alwasy.