my $state = Gtk2->get_current_event->get_state ;
exit warn "How dare you shift" if  $state * "shift-mask";