From: michael <michael>
Date: Wed, 24 May 2006 14:31:16 +0000 (+0000)
Subject: less strict handling of modifier states
X-Git-Url: http://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}");