X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/190de48acc3e09cba1d39042031fb7c7318687c7..a0365ad792a1c15a1a36c928e5bd225192ae3b74:/snom.pl

diff --git a/snom.pl b/snom.pl
index 43ea498..d74e11b 100755
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
-#$Id: snom.pl,v 1.6 2006-05-21 13:07:24 simigern Exp $
+#$Id: snom.pl,v 1.8 2006-05-21 13:09:23 simigern Exp $
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
@@ -273,7 +273,7 @@ sub KBDInput
 
 	my $keyval = $event->keyval;
 
-	for (my $i=1; $i<10; $i++) {
+	for (my $i=0; $i<10; $i++) {
 		if ($keyval == $Gtk2::Gdk::Keysyms{$i} || $keyval == $Gtk2::Gdk::Keysyms{"KP_${i}"}) {
 			snom_key($i);
 			return TRUE;
@@ -324,12 +324,8 @@ sub KBDInput
 	return FALSE;
 }
 
-### Callback function to close the window
 sub CloseAppWindow
 {
 	$window->destroy;
 	return TRUE;
 }
-
-
-# END EXAMPLE PROGRAM