SYNOPSIS

my $win = Gtk2::Window->new;
my $accel = Gtk2::AccelGroup->new;
$accel->connect (42, ['control-mask'], ['visible'], 
                 sub { # do something });
$win->add_accel_group ($accel);