From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 4 Jun 2002 17:35:40 +0000 (+0000)
Subject: 	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
X-Git-Tag: tkcon-2-4~27
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=367f0a1404f80ad7fd1c0cf7ead3bedb3fd2bab7;p=tkcon

	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
---

diff --git a/ChangeLog b/ChangeLog
index 690f6ad..348a33e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-04  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
+
 2002-06-03  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl: fixed Retrieve to use the proxy info (Thoyts).
diff --git a/tkcon.tcl b/tkcon.tcl
index dd07393..c4f0706 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -251,11 +251,16 @@ proc ::tkcon::Init {args} {
 	}
     }
     if {[info exists env($envHome)]} {
+	set home $env($envHome)
+	if {[file pathtype $home] == "volumerelative"} {
+	    # Convert 'C:' to 'C:/' if necessary, innocuous otherwise
+	    append home /
+	}
 	if {![info exists PRIV(rcfile)]} {
-	    set PRIV(rcfile)	[file join $env($envHome) $rcfile]
+	    set PRIV(rcfile)	[file join $home $rcfile]
 	}
 	if {![info exists PRIV(histfile)]} {
-	    set PRIV(histfile)	[file join $env($envHome) $histfile]
+	    set PRIV(histfile)	[file join $home $histfile]
 	}
     }