perl - 如何避免魔法 Gtk2 accel_key 数字？

Question

我想要一个加速器，用于我的 GTK 应用程序中的子例程，使用Gtk2Perl 的绑定。接受一个as 参数，它似乎是一个表示键的整数。可以导出常量或函数来代替这个幻数吗？Gtk2::AccelGroup->connect()$accel_keyGtk2

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