X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2Fgtkconsole;fp=gtkconsole%2Fgtkconsole;h=3b65d0e6ec76672edb26d9bb1bf01727d701a8e3;hb=595e0304401baef45d56a55b4b98d7eebe6a7352;hp=e545824407873ad2515aead2654d7412697d894d;hpb=bb18c5d0a57e107dbd2ca66d10100318406b73d7;p=spider.git

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index e5458244..3b65d0e6 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -114,7 +114,6 @@ $bot->set_editable(1);
 $bot->signal_connect('activate', \&bothandler);
 $bot->can_default(1);
 $bot->grab_default;
-$bot->grab_focus;
 $bot->show;
 
 # a horizontal box
@@ -142,6 +141,7 @@ $vbox->pack_start($bot, 0, 1, 0);
 
 # the main loop
 $main->show_all;
+$bot->grab_focus;
 Gtk->main;
 
 #
@@ -174,6 +174,7 @@ sub bothandler
 	my $msg = $self->get_text;
 	$msg =~ s/\r?\n$//;
 	$self->set_text('');
+	$self->grab_focus;
 	senddata($msg);
 }
 
@@ -212,9 +213,11 @@ sub handlemsg
 	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') {