treat PC61 as PC11.

diff --git a/Changes b/Changes
index 7284c0045553e4f7b59afe8bfdc325eb1d8427be..2eba7883b459850f512973d06e42f9fc0cdda830 100644 (file)
--- 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 e4a2b2476bc0d2ff94b570f6867c9f2bf6391c22..d371f0c48d4478b034eb451f7c7a2d6b1414b7ae 100755 (executable)
--- 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 4cca42f90f5ca3f5618ca8387892e5c4de7ae4f4..d73bbc62c77a448aaed8278d61025daed5654b97 100644 (file)
--- 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 f4eb974f91d46a2fd60cfe08793d5cbb4d6e9fe7..c9276554ea0ac87e009c0e7c61d81c22b6d2af0f 100644 (file)
--- 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;