From: michael Date: Wed, 24 May 2006 14:31:16 +0000 (+0000) Subject: less strict handling of modifier states X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/5e67f822bc7021baa1e7e39ccb634d31e31fc9a3 less strict handling of modifier states --- diff --git a/snom.pl b/snom.pl index 97b8e99..1682938 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.43 2006-05-23 19:14:09 michael Exp $ +#$Id: snom.pl,v 1.44 2006-05-24 14:31:16 michael Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -288,7 +288,7 @@ sub KBDInput } } - if (!$event->state || $event->state eq 'shift-mask') { + if (!$event->state || !($event->state & "control-mask" || $event->state & "mod1-mask")) { if ($keyval == $Gtk2::Gdk::Keysyms{asterisk}) {snom_key('*'); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{KP_Multiply}) {snom_key('*'); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{numbersign}) {snom_key('#'); return TRUE;} @@ -341,7 +341,7 @@ sub KBDInput } } } else { - if ($event->state eq 'mod1-mask') { + if ($event->state & "mod1-mask") { for (my $i=1; $i<13; $i++) { if ($keyval == $Gtk2::Gdk::Keysyms{"F${i}"}) { snom_key("P${i}");