如何避免神奇的Gtk2 accel_key数字？

Question

我想要为我的GTK应用程序中的一个子例程提供一个加速器，使用Perl的Gtk2绑定。Gtk2::AccelGroup->connect()使用$accel_key作为参数，它似乎是一个表示键的整数。Gtk2可以导出常量或函数来代替这个神奇的数字吗？

Answer 1

使用Gtk2::Accelerator->parse()

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' }
);