X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2Fgtkconsole;h=d371f0c48d4478b034eb451f7c7a2d6b1414b7ae;hb=c83b1ca22765fc07e5adcdc8dac24cbd066c9b95;hp=f2d39d9f3bd90d2d717b45ff74538679a62814cc;hpb=299b605c22ab87d3410e8186192bc25af20c2c3a;p=spider.git

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index f2d39d9f..d371f0c4 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -11,9 +11,6 @@
 
 use strict;
 
-our $VERSION = '$Revision$';
-$VERSION =~ s|[^\d\.]+||g;
-
 our $root;
 
 # search local then perl directories
@@ -56,8 +53,16 @@ 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);
+require "$root/perl/Version.pm";
+
+our $VERSION = "$version.$subversion build $build";
+
 # read in the user data
 our $userfn = "$ENV{HOME}/.gtkconsole_data";
 our $user = read_user_data();
@@ -120,7 +125,7 @@ die "You need a callsign ($call), a hostname($host) and a port($port) to proceed
 
 gtk_create_main_screen();
 
-$main->set_title("gtkconsole $VERSION - DXSpider Console - $call \@ $host:$port");
+$main->set_title("DXSpider gtkconsole $VERSION - $call \@ $host:$port");
 
 # connect and send stuff
 my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);
@@ -413,6 +418,7 @@ sub write_user_data
 		my $dd = new Data::Dumper([ $u ]);
 		$dd->Indent(1);
 		$dd->Quotekeys(0);
+		$dd->Terse(1);
 		$fh->print($dd->Dumpxs);
 		$fh->close;
 		return 1;
@@ -425,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');
@@ -450,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>',