From 18f2934d60c7a702ac9eeca325914e4c346c0621 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 21 Jul 2006 21:34:35 +0000
Subject: [PATCH] add connection info to title bar

---
 gtkconsole/gtkconsole | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index 4c0492de..1fef23f1 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -11,6 +11,8 @@
 
 use strict;
 
+our $VERSION = '$Revision$';
+
 our $root;
 
 # search local then perl directories
@@ -113,7 +115,7 @@ die "You need a callsign ($call), a hostname($host) and a port($port) to proceed
 
 gtk_create_main_screen();
 
-$main->set_title("gtkconsole - The DXSpider Console - $call");
+$main->set_title("gtkconsole $VERSION - DXSpider Console - $call \@ $host:$port");
 
 # connect and send stuff
 my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);
-- 
2.34.1