in reply to Re: Gtk2-Perl: How to catch shift-clicking of a button?
in thread Gtk2-Perl: How to catch shift-clicking of a button?
Nope, the OP's approach is correct, just needs to fix the typos :) 90% of the way there.
Has to find what exports GDK_SHIFT_MASK.
Has to use Gtk2->get_current_event because the callback doesn't get an event object
update: after some basic debugging
I figured it out, examples in Glib, Glib::Flags
my $state = Gtk2->get_current_event->get_state ;
exit warn "How dare you shift" if $state * "shift-mask";