some more shortcuts
[snom-frontend] / snom.pl
diff --git a/snom.pl b/snom.pl
index 45dfe5c..6735684 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
-#$Id: snom.pl,v 1.10 2006-05-21 13:26:27 simigern Exp $
+#$Id: snom.pl,v 1.11 2006-05-21 21:20:19 michael Exp $
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
@@ -60,7 +60,7 @@ my $fkeys = Gtk2::Table->new(6, 2, 1);
 $fkeys->set_row_spacings(2);
 $fkeys->set_col_spacings(2);
 $n = 0;
-foreach my $i qw(Redial Settings Directory Help Menu snom _ _ _Conference _Transfer H_old _DND) {
+foreach my $i qw(_Redial S_ettings Director_y Hel_p Men_u snom _ _ _Conference _Transfer H_old _DND) {
        if ($i ne '_') {
                $key{$i} = Gtk2::Button->new("${i}");
                $key{$i}->signal_connect(clicked => \&KeyPressed, $i);
@@ -314,6 +314,16 @@ sub KBDInput
                if ($keyval == $Gtk2::Gdk::Keysyms{o}) {snom_key('F_R'); return TRUE;}
                if ($keyval == $Gtk2::Gdk::Keysyms{D}) {snom_key('DND'); return TRUE;}
                if ($keyval == $Gtk2::Gdk::Keysyms{d}) {snom_key('DND'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{R}) {snom_key('REDIAL'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{r}) {snom_key('REDIAL'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{E}) {snom_key('SETTINGS'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{e}) {snom_key('SETTINGS'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{Y}) {snom_key('F_ADR_BOOK'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{y}) {snom_key('F_ADR_BOOK'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{P}) {snom_key('HELP'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{p}) {snom_key('HELP'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{U}) {snom_key('MENU'); return TRUE;}
+               if ($keyval == $Gtk2::Gdk::Keysyms{u}) {snom_key('MENU'); return TRUE;}
        }
 
        if (!$event->state) {
Impressum, Datenschutz