Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 10 Nov 2006 18:14:32 +0100
changeset 1900 050004f4d636
parent 1899 e788966f257a
child 1901 ad3871ce3a45
*** empty log message ***
StoreSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/StoreSourceCodeManager.st	Fri Nov 10 18:14:30 2006 +0100
+++ b/StoreSourceCodeManager.st	Fri Nov 10 18:14:32 2006 +0100
@@ -166,15 +166,18 @@
 !StoreSourceCodeManager class methodsFor:'saving'!
 
 savePreferencesOn:aStream
-    aStream nextPutLine:'  StoreSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+    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 , '.'.
-        aStream nextPutLine:'  StoreSourceCodeManager dbName:' , self dbName storeString , '.'.
-        aStream nextPutLine:'  StoreSourceCodeManager userName:' , self userName storeString , '.'.
+        aStream nextPutLine:'    Smalltalk at:#SourceCodeManager put: StoreSourceCodeManager.'.
+        aStream nextPutLine:'    StoreSourceCodeManager hostAndDBName:' , self hostAndDBName storeString , '.'.
+        aStream nextPutLine:'    StoreSourceCodeManager dbName:' , self dbName storeString , '.'.
+        aStream nextPutLine:'    StoreSourceCodeManager userName:' , self userName storeString , '.'.
     ].
+    aStream nextPutLine:'  ].'.
 
     "Created: / 09-11-2006 / 15:10:25 / cg"
+    "Modified: / 10-11-2006 / 18:13:49 / cg"
 ! !
 
 !StoreSourceCodeManager class methodsFor:'testing'!
@@ -283,5 +286,5 @@
 !StoreSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.7 2006-11-09 14:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.8 2006-11-10 17:14:32 cg Exp $'
 ! !
hg/stx-libbasic3