X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2Fgtkconsole;fp=gtkconsole%2Fgtkconsole;h=724f0fc53b60c8d29c39ad2b48807090f75ff5ba;hb=c20912fa90a1c3dd97d437e08691b5dc043dd869;hp=e67ff0c9b6a3568b6ee036701426f645fd53e29c;hpb=3b0eeaaa6152345bcd42380e385c04fb7e50a064;p=spider.git

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index e67ff0c9..724f0fc5 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -49,6 +49,9 @@ die "You cannot connect as your cluster callsign ($main::mycall)\n" if $call eq
 my $sock = IO::Socket::INET->new(PeerAddr=>$main::clusteraddr, PeerPort=>$main::clusterport);
 die "Cannot connect to $main::clusteraddr/$main::clusterport ($!)\n" unless $sock;
 sendmsg('A', 'local');
+sendmsg('G', '2');
+sendmsg('I', 'set/page 500');
+sendmsg('I', 'set/nobeep');
 
 #
 # start of GTK stuff
@@ -177,6 +180,16 @@ sub handlemsg
 	my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
 	if ($sort eq 'D') {
 		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+	} elsif ($sort eq 'X') {
+		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+	} elsif ($sort eq 'Y') {
+		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+	} elsif ($sort eq 'V') {
+		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+	} elsif ($sort eq 'N') {
+		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
+	} elsif ($sort eq 'W') {
+		$toplist->insert($toplist->{font}, undef, undef, "$line\n");
 	} elsif ($sort eq 'Z') {
 		Gtk->exit(0);
 	}