From d625d09e86f20bf6532172dc542a04e464a4ae0c Mon Sep 17 00:00:00 2001
From: michael <michael>
Date: Sun, 21 May 2006 21:20:19 +0000
Subject: [PATCH] some more shortcuts

---
 snom.pl | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/snom.pl b/snom.pl
index 45dfe5c..6735684 100755
--- 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) {
-- 
2.39.2