#!/bin/sh
-#$Id: snom.pl,v 1.1 2006-05-21 11:53:53 simigern Exp $
+#$Id: snom.pl,v 1.3 2006-05-21 11:58:47 simigern Exp $
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
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();
$window->add($mainbox);
$window->show();
+$key{OK}->grab_focus();
+
# Gtk2 event loop
Gtk2->main;
'P7', 'P8', 'P9', 'P10', 'P11', 'P12') {
if ($i eq $text) {
snom_key($i);
- return;
+ return TRUE;
}
}
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