#!/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" "$@"
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;
return FALSE;
}
-### Callback function to close the window
sub CloseAppWindow
{
$window->destroy;
return TRUE;
}
-
-
-# END EXAMPLE PROGRAM