saving
authorClaus Gittinger <cg@exept.de>
Thu, 09 Nov 2006 15:12:06 +0100
changeset 1891 1c82d4901377
parent 1890 9a64ba9dcf37
child 1892 c3899bfb2c12
saving
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Thu Nov 09 14:30:21 2006 +0100
+++ b/CVSSourceCodeManager.st	Thu Nov 09 15:12:06 2006 +0100
@@ -1260,6 +1260,21 @@
     "Created: / 16-08-2006 / 11:05:56 / cg"
 ! !
 
+!CVSSourceCodeManager class methodsFor:'saving'!
+
+savePreferencesOn:aStream
+    self cvsExecutable notNil ifTrue:[
+        aStream nextPutLine:'  CVSSourceCodeManager cvsExecutable:' , self cvsExecutable storeString , '.'.
+    ].
+    aStream nextPutLine:'  CVSSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+    (Smalltalk at:#SourceCodeManager) == self ifTrue:[
+        aStream nextPutLine:'  Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'.
+        aStream nextPutLine:'  CVSSourceCodeManager initializeForRepository:' , self repositoryName storeString , '.'.
+    ].
+
+    "Created: / 09-11-2006 / 15:09:25 / cg"
+! !
+
 !CVSSourceCodeManager class methodsFor:'source code access'!
 
 checkin:containerFilename text:someText directory:packageDir module:moduleDir logMessage:logMessage force:force
@@ -4481,7 +4496,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.340 2006-10-25 15:41:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.341 2006-11-09 14:12:06 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!