hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

treat PC61 as PC11.

Browse Source
This commit is contained in:
Dirk Koopman 2007-10-05 18:49:35 +01:00
parent 79e5e96cba
commit 8320b88d08
4 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -1,3 +1,5 @@
05Oct07=======================================================================
1. Handle PC61 from VE1CC clusters as PC11.
01Oct07======================================================================= 01Oct07=======================================================================
1. fix .gtkconsole_data creation bug. 1. fix .gtkconsole_data creation bug.
27Sep07======================================================================= 27Sep07=======================================================================

34
gtkconsole/gtkconsole
View File

@ -53,6 +53,9 @@ our $wwvwin; # wwv window handle
our $wcywin; # wcy window handle our $wcywin; # wcy window handle
our $chatwin; # chat 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"; require "$root/local/DXVars.pm" if -e "$root/local/DXVars.pm";
our ($version, $subversion, $build); 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 sub gtk_create_main_screen
{ {
$main = new Gtk2::Window('toplevel'); $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 => { _Help => {
item_type => '<Branch>', item_type => '<Branch>',

2
perl/DXProtHandle.pm
View File

@ -1265,6 +1265,8 @@ sub handle_51
} }
} }
sub handle_61 { goto &handle_11; }
# dunno but route it # dunno but route it
sub handle_75 sub handle_75
{ {

2
perl/Version.pm
View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.54'; $version = '1.54';
$subversion = '0'; $subversion = '0';
$build = '162'; $build = '163';
1; 1;