--- 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 $'
! !