fix 0 again
[snom-frontend] / snom.pl
diff --git a/snom.pl b/snom.pl
index 43ea498..d74e11b 100755 (executable)
--- 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
Impressum, Datenschutz