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

diff --git a/ChangeLog b/ChangeLog
index 690f6ad0bbaed94ac961733d25b447db25d22f8d..348a33e302aaf3853753de65b88de8cae277d68d 100644 (file)
--- 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 dd07393ad41efc9e561a2fcb80ee1162b32c3c33..c4f0706c8ffea65977599236fafeb78f865c363b 100755 (executable)
--- 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]
        }
     }