--- a/StoreSourceCodeManager.st Wed Apr 13 23:12:13 2011 +0200
+++ b/StoreSourceCodeManager.st Mon Apr 18 20:15:11 2011 +0200
@@ -183,6 +183,7 @@
savePreferencesOn:aStream
aStream nextPutLine:' StoreSourceCodeManager notNil ifTrue:['.
aStream nextPutLine:' StoreSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+
(Smalltalk at:#SourceCodeManager) == StoreSourceCodeManager ifTrue:[
aStream nextPutLine:' Smalltalk at:#SourceCodeManager put: StoreSourceCodeManager.'.
aStream nextPutLine:' StoreSourceCodeManager hostAndDBName:' , self hostAndDBName storeString , '.'.
@@ -192,7 +193,7 @@
aStream nextPutLine:' ].'.
"Created: / 09-11-2006 / 15:10:25 / cg"
- "Modified: / 10-11-2006 / 18:13:49 / cg"
+ "Modified: / 18-04-2011 / 17:15:12 / cg"
! !
!StoreSourceCodeManager class methodsFor:'testing'!
@@ -294,9 +295,9 @@
!StoreSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.11 2011-01-03 15:31:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.12 2011-04-18 18:15:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.11 2011-01-03 15:31:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.12 2011-04-18 18:15:11 cg Exp $'
! !