some more shortcuts

diff --git a/snom.pl b/snom.pl
index 45dfe5cfe88e4ff49b70d980df498dfd98e24bcb..67356844c575d96a21a18b6593aeb606f5773945 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
 #!/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" "$@"
 
 
 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;
 $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);
        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{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) {
        }
 
        if (!$event->state) {