perl - 魔法の Gtk2 accel_key 番号を回避するには?

Question

Gtk2Perlのバインディングを使用して、GTK アプリケーションのサブルーチンのアクセラレータが必要です。キーを表す整数のように見える 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' }
);