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.
changed: #savePreferencesOn:
authorStefan Vogel <sv@exept.de>
Fri, 20 May 2011 12:32:09 +0200
changeset 2364 90ed7ea7d1e2
parent 2363 33e452b6b57b
child 2365 f9d88e3df45d
changed: #savePreferencesOn: do not save empty repositoryInfoPerModule
PerforceSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/PerforceSourceCodeManager.st	Fri May 20 12:31:50 2011 +0200
+++ b/PerforceSourceCodeManager.st	Fri May 20 12:32:09 2011 +0200
@@ -269,8 +269,10 @@
 !
 
 savePreferencesOn:aStream
-    aStream nextPutLine:'  PerforceSourceCodeManager notNil ifTrue:['.
-    aStream nextPutLine:'    PerforceSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+    aStream nextPutLine:'PerforceSourceCodeManager notNil ifTrue:['.
+    self repositoryInfoPerModule notEmptyOrNil ifTrue:[
+        aStream nextPutLine:'    PerforceSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+    ].
     PerforceExecutable notNil ifTrue:[
         aStream nextPutLine:'    PerforceSourceCodeManager perforceExecutable:' , PerforceExecutable storeString , '.'.
     ].
@@ -278,10 +280,7 @@
         aStream nextPutLine:'    Smalltalk at:#SourceCodeManager put: PerforceSourceCodeManager.'.
         aStream nextPutLine:'    PerforceSourceCodeManager initializeForRepository:' , self repositoryName storeString , '.'.
     ].
-    aStream nextPutLine:'  ].'.
-
-    "Created: / 09-11-2006 / 15:09:25 / cg"
-    "Modified: / 10-11-2006 / 18:14:16 / cg"
+    aStream nextPutLine:'].'.
 !
 
 streamForClass:cls fileName:fileName revision:revision directory:packageDir module:moduleDir cache:doCache
@@ -2344,7 +2343,7 @@
     ^ nil
 
     "
-     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.10 2011-04-20 10:49:45 cg Exp $'
+     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.11 2011-05-20 10:32:09 stefan Exp $'
     "
 
     "Modified: / 22-10-2008 / 20:17:00 / cg"
@@ -2497,7 +2496,7 @@
 !PerforceSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.10 2011-04-20 10:49:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.11 2011-05-20 10:32:09 stefan Exp $'
 ! !
 
 PerforceSourceCodeManager initialize!
hg/stx-libbasic3