From 8320b88d08622ad45f3b68c551bdb53762060f79 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 5 Oct 2007 18:49:35 +0100
Subject: [PATCH] treat PC61 as PC11.

---
 Changes               |  2 ++
 gtkconsole/gtkconsole | 34 ++++++++++++++++++++++++++++++++++
 perl/DXProtHandle.pm  |  2 ++
 perl/Version.pm       |  2 +-
 4 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 7284c004..2eba7883 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Oct07=======================================================================
+1. Handle PC61 from VE1CC clusters as PC11.
 01Oct07=======================================================================
 1. fix .gtkconsole_data creation bug.
 27Sep07=======================================================================
diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index e4a2b247..d371f0c4 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -53,6 +53,9 @@ our $wwvwin;					# wwv window handle
 our $wcywin;					# wcy window handle
 our $chatwin;					# chat window handle
 
+# wants
+our ($wantann, $wantdx, $wantwwv, $wantwcy, $wantchat) = (1, 1, 1, 1, 1);
+
 require "$root/local/DXVars.pm" if -e "$root/local/DXVars.pm";
 
 our ($version, $subversion, $build);
@@ -428,6 +431,12 @@ sub def_menu_callback
 
 }
 
+sub set_win
+{
+	my $var = shift;
+	$$var = shift;
+}
+
 sub gtk_create_main_screen
 {
 	$main = new Gtk2::Window('toplevel');
@@ -453,6 +462,31 @@ sub gtk_create_main_screen
 													}
 										  ],
 							 },
+					_Screens => {
+								 item_type =>'<Branch>',
+								 children => [
+											  _Dx => {
+													  item_type => '<CheckMenuItem>',
+													  callback => sub { set_win(\$wantdx, $@)},
+													 },
+											  _Announce => {
+															item_type => '<CheckItem>',
+															callback => sub { set_win(\$wantann, $@)},
+														   },
+											  _Chat => {
+														item_type => '<CheckItem>',
+														callback => sub { set_win(\$wantchat, $@)},
+													   },
+											  _WWV => {
+													   item_type => '<CheckItem>',
+													   callback => sub { set_win(\$wantwwv, $@)},
+													  },
+											  _WCY => {
+													   item_type => '<CheckItem>',
+													   callback => sub { set_win(\$wantwcy, $@)},
+													  },
+											 ],
+								},
 
 					_Help => {
 							  item_type => '<Branch>',
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 4cca42f9..d73bbc62 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1265,6 +1265,8 @@ sub handle_51
 	}
 }
 
+sub handle_61 { goto &handle_11; }
+
 # dunno but route it
 sub handle_75
 {
diff --git a/perl/Version.pm b/perl/Version.pm
index f4eb974f..c9276554 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '162';
+$build = '163';
 
 1;
-- 
2.34.1