AbstractSourceCodeManager.st
changeset 3587 bb752772cf70
parent 3582 9ea25bf13e00
child 3595 507b779720f9
--- a/AbstractSourceCodeManager.st	Mon Jun 23 10:58:11 2014 +0200
+++ b/AbstractSourceCodeManager.st	Thu Jul 03 14:20:53 2014 +0200
@@ -91,11 +91,26 @@
 
     CachingSources isNil ifTrue:[CachingSources := false].
     UseWorkTree    isNil ifTrue:[UseWorkTree := false].
-    CacheDirectoryName isNil ifTrue:[
-        self initCacheDirPath.
-    ].
+
+    self validateCacheDirPath.
+    Smalltalk addDependent:self
 
     "Modified: / 02-03-2012 / 17:00:11 / cg"
+!
+
+update:something with:aParameter from:changedObject
+    "flush resources on language changes"
+
+    something == #returnFromSnapshot ifTrue:[
+        self validateCacheDirPath
+    ]
+!
+
+validateCacheDirPath
+    (CacheDirectoryName isNil 
+    or:[CacheDirectoryName asFilename exists not]) ifTrue:[
+        self initCacheDirPath   
+    ].
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'accessing'!
@@ -3914,15 +3929,15 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.324 2014-06-14 09:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.325 2014-07-03 12:20:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.324 2014-06-14 09:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.325 2014-07-03 12:20:53 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceCodeManager.st,v 1.324 2014-06-14 09:29:22 cg Exp $'
+    ^ '$Id: AbstractSourceCodeManager.st,v 1.325 2014-07-03 12:20:53 cg Exp $'
 ! !