$bot->signal_connect('activate', \&bothandler);
$bot->can_default(1);
$bot->grab_default;
-$bot->grab_focus;
$bot->show;
# a horizontal box
# the main loop
$main->show_all;
+$bot->grab_focus;
Gtk->main;
#
my $msg = $self->get_text;
$msg =~ s/\r?\n$//;
$self->set_text('');
+ $self->grab_focus;
senddata($msg);
}
my $msg = shift;
my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
if ($sort eq 'D') {
- $toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
} elsif ($sort eq 'X') {
$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+ } elsif ($sort eq 'T') {
+ $toplist->insert($toplist->{font}, undef, undef, "$line\n");
} elsif ($sort eq 'Y') {
$toplist->insert($toplist->{font}, undef, undef, "$line\n");
} elsif ($sort eq 'V') {