From 8320b88d08622ad45f3b68c551bdb53762060f79 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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 =>'', + children => [ + _Dx => { + item_type => '', + callback => sub { set_win(\$wantdx, $@)}, + }, + _Announce => { + item_type => '', + callback => sub { set_win(\$wantann, $@)}, + }, + _Chat => { + item_type => '', + callback => sub { set_win(\$wantchat, $@)}, + }, + _WWV => { + item_type => '', + callback => sub { set_win(\$wantwwv, $@)}, + }, + _WCY => { + item_type => '', + callback => sub { set_win(\$wantwcy, $@)}, + }, + ], + }, _Help => { item_type => '', 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.43.0