From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 29 Mar 2001 00:05:11 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'
X-Git-Tag: tkcon-2-1~4
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=fcd7b805511c7b62bf0aaa0bde3c8591a7509936;p=tkcon

	* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'
	call for Macs
---

diff --git a/ChangeLog b/ChangeLog
index 072864b..64f9def 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-28  Jeff Hobbs  <jeffh@activestate.com>
+
+	* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'
+	call for Macs
+
 2000-10-30  Jeff Hobbs  <hobbs@ajubasolutions.com>
 
 	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
diff --git a/tkcon.tcl b/tkcon.tcl
index 6c01bac..2c3e416 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -189,7 +189,7 @@ proc ::tkcon::Init {} {
     switch $tcl_platform(platform) {
 	macintosh	{
 	    set envHome PREF_FOLDER
-	    cd [file dirname [info script]]
+	    if {![interp issafe]} {cd [file dirname [info script]]}
 	    set PRIV(rcfile)	tkcon.cfg
 	    set PRIV(histfile)	tkcon.hst
 	    catch {console hide}