From: michael Date: Sun, 21 May 2006 21:20:19 +0000 (+0000) Subject: some more shortcuts X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/d625d09e86f20bf6532172dc542a04e464a4ae0c?ds=inline some more shortcuts --- 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) {