Re^2: Gtk2-Perl: How to catch shift-clicking of a button?

[Anonymous Monk]

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

<Reveal this spoiler or all in this thread>

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";