X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/blobdiff_plain/190de48acc3e09cba1d39042031fb7c7318687c7..b35a99915741bc99bd97d7af8475e5b6ee86285f:/snom.pl diff --git a/snom.pl b/snom.pl index 43ea498..6e4de92 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.9 2006-05-21 13:12:36 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; @@ -283,6 +283,10 @@ sub KBDInput 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;} + if ($keyval == $Gtk2::Gdk::Keysyms{KP_Add}) {snom_key('VOLUME_UP'); return TRUE;} + if ($keyval == $Gtk2::Gdk::Keysyms{plus}) {snom_key('VOLUME_UP'); return TRUE;} + if ($keyval == $Gtk2::Gdk::Keysyms{KP_Subtract}) {snom_key('VOLUME_DOWN'); return TRUE;} + if ($keyval == $Gtk2::Gdk::Keysyms{minus}) {snom_key('VOLUME_DOWN'); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{Return}) {snom_key("ENTER"); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{KP_Enter}) {snom_key("ENTER"); return TRUE;} if ($keyval == $Gtk2::Gdk::Keysyms{Escape}) {snom_key("CANCEL"); return TRUE;} @@ -324,12 +328,8 @@ sub KBDInput return FALSE; } -### Callback function to close the window sub CloseAppWindow { $window->destroy; return TRUE; } - - -# END EXAMPLE PROGRAM