Perl Tkx菜单"-underline“似乎不能正常工作。

Question

我一直在跟踪Tkx：：教程，试图学习如何使用Perl制作GUI。我到了其中的一个部分，其中有一个如何创建菜单的例子，并遵循它。它的工作原理几乎完全正确，除了一个功能。-underline部分似乎没有正常工作。

-underline => 0应该在菜单文本的第一个字符下划线，并允许您使用第一个字母作为键盘快捷方式，而不必单击它。

守则如下：

#!/usr/bin/perl

use strict;
use warnings;
use Tkx;

our $VERSION = '1.00';

(my $progname = $0) =~ s,.*[\\/],,;
my $IS_AQUA = Tkx::tk_windowingsystem() eq "aqua";

Tkx::package_require('style');
Tkx::style__use('as', -priority => 70);

my $mw = Tkx::widget->new('.');
$mw->configure(-menu => mk_menu($mw));

Tkx::MainLoop();
exit;

sub mk_menu {
    my $mw = shift;
    my $menu = $mw->new_menu;

    my $file = $menu->new_menu(
        -tearoff => 0,
    );
    $menu->add_cascade(
        -label     => 'File',
        -underline => 0,
        -menu      => $file,
    );
    $file->add_command(
        -label       => 'New',
        -underline   => 0,
        -accelerator => 'Ctrl+N',
        -command     => \&new,
    );
    $mw->g_bind('<Control-n>', \&new);
    $file->add_command(
        -label     => 'Exit',
        -underline => 0,
        -command   => [\&Tkx::destroy, $mw],
    ) unless $IS_AQUA;

    my $help = $menu->new_menu(
        -name    => 'help',
        -tearoff => 0,
    );
    $menu->add_cascade(
        -label     => 'Help',
        -underline => 0,
        -menu      => $help,
    );
    $help->add_command(
        -label   => "\u$progname Manual",
        -command => \&show_manual,
    );

    my $about_menu = $help;
    if ($IS_AQUA) {
        # On Mac OS we want about box to appear in the application
        # menu.  Anything added to a menu with the name "apple" will
        # appear in this menu.
        $about_menu = $menu->new_menu(
            -name => 'apple',
        );
        $menu->add_cascade(
            -menu => $about_menu,
        );
    }
    $about_menu->add_command(
        -label   => "About \u$progname",
        -command => \&about,
    );

    return $menu;
}


sub about {
    Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "About \u$progname",
        -type    => 'ok',
        -icon    => 'info',
        -message => "$progname v$VERSION\n" .
                    "Copyright 2005 ActiveState. " .
                    "All rights reserved.",
    );
}

此代码将创建以下窗口：

​

​

使用"F“作为键盘快捷方式无法打开”文件“菜单，使用"H”则不打开“帮助”菜单。

​

​

(请注意，"New“函数目前什么也不做，因此对它的调用中断了。现在应该是这样的，所以忽略它吧。)

单击“文件”菜单后，第二个菜单将打开。在这里，键盘快捷键似乎工作"N“和"E”将执行他们相应的命令，但他们仍然没有正确的下划线。

为什么这种方法不能正常工作呢？

Answer 1

搁置ALT解决了这个问题。

谢谢@黑帮！