Perl 如何避免神奇的Gtk2加速键数字？

我想在GTK应用程序中为一个子例程提供一个加速器，使用Perl的

Gtk2

绑定

->connect（）

将

$accel_key

作为参数，它似乎是一个表示键的整数。Gtk2是否可以导出常数或一个函数来代替这个幻数？

使用：

使用Gtk2；
my（$key，$mods）=Gtk2:：Accelerator->parse（'a'）；
#钥匙是97美元
#$mods是“[控制掩码mod1掩码]”
my$ag=Gtk2:：AccelGroup->new（）；
$ag->connect(
Gtk2:：加速器->解析（“”），
[qw/visible/]，sub{say'hi}
);

使用：

使用Gtk2；
my（$key，$mods）=Gtk2:：Accelerator->parse（'a'）；
#钥匙是97美元
#$mods是“[控制掩码mod1掩码]”
my$ag=Gtk2:：AccelGroup->new（）；
$ag->connect(
Gtk2:：加速器->解析（“”），
[qw/visible/]，sub{say'hi}
);

use Gtk2;
my ( $key, $mods ) = Gtk2::Accelerator->parse( '<control><alt>a' );
# $key is 97
# $mods is '[ control-mask mod1-mask ]'

my $ag = Gtk2::AccelGroup->new();
$ag->connect(
    Gtk2::Accelerator->parse( '<control><alt><a>' ),
    [qw/visible/], sub { say 'hi' }
);