From: simigern Date: Sun, 21 May 2006 11:55:57 +0000 (+0000) Subject: let's handle all events X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/f73d9f87d30cbfd038aab87498c724792a6a161a?ds=sidebyside let's handle all events --- diff --git a/snom.pl b/snom.pl index 283b398..a0f3b20 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.1 2006-05-21 11:53:53 simigern Exp $ +#$Id: snom.pl,v 1.2 2006-05-21 11:55:57 simigern Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -138,9 +138,7 @@ $special->show(); my $display = Gtk2::Entry->new(); $display->signal_connect(activate => \&DialNumber); my $kph_blocked = FALSE; -#$display->signal_connect(focus_in_event => \&DisplayMouseOver, TRUE); $display->signal_connect(enter_notify_event => \&DisplayMouseOver, TRUE); -#$display->signal_connect(focus_out_event => \&DisplayMouseOver, FALSE); $display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE); $display->show(); @@ -203,7 +201,7 @@ sub KeyPressed 'P7', 'P8', 'P9', 'P10', 'P11', 'P12') { if ($i eq $text) { snom_key($i); - return; + return TRUE; } } @@ -234,12 +232,15 @@ sub KeyPressed snom_key("VOLUME_UP") if ( $text eq "+" ); snom_key("VOLUME_DOWN") if ( $text eq "-" ); + return TRUE; } sub DialNumber { my ($entry) = @_; + snom_number($entry->get_text()); + return TRUE; } sub DisplayMouseOver