Меню Perl Tkx "-underline" не работает должным образом
Я следовал Tkx::Tutorial, чтобы попытаться узнать, как создать графический интерфейс с использованием Perl. Я попал в раздел, где есть пример того, как создать меню, и последовал за ним. Это работает почти полностью правильно, за исключением одной функции. -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" не открывает меню справки.
(Обратите внимание, что "новая" функция в настоящее время ничего не делает, поэтому вызов к ней прерывается. Предполагается, что сейчас это так, поэтому просто игнорируйте ее.)
После нажатия на меню "Файл" откроется второе меню. Здесь сочетания клавиш работают "N", а "E" выполняет соответствующие команды, но они по-прежнему не подчеркнуты должным образом.
Почему это не работает так, как должно?