--- a/CVSSourceCodeManager.st	Thu Oct 12 11:14:28 2006 +0200
+++ b/CVSSourceCodeManager.st	Thu Oct 12 12:21:39 2006 +0200
@@ -450,6 +450,26 @@
     CVSModuleRoots := aDictionary
 ! !
 
+!CVSSourceCodeManager class methodsFor:'misc operations'!
+
+changeCVSRoot:newRootString inDirectoryTree:aDirectoryFilename
+    "change the CVS root to newRootString (something like:':pserver:user@cvs.bh.exept.de:/cvs/stx').
+     aDirectoryFilename is recursively descended"
+
+
+    aDirectoryFilename asFilename allDirectoriesDo:[:eachDirectoryName|
+        eachDirectoryName baseName = 'CVS' ifTrue:[
+            (eachDirectoryName construct:'Root') writeStream 
+                nextPutLine:newRootString;
+                close.
+        ].
+    ].
+
+    "
+        self changeCVSRoot:':pserver:stefan@cvs.bh.exept.de:/cvs/stx' inDirectoryTree:'~/deliver/stx'
+    "
+! !
+
 !CVSSourceCodeManager class methodsFor:'private'!
 
 checkOut:relativeFilename module:moduleDir in:tempdir
@@ -4455,7 +4475,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.335 2006-10-12 09:04:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.336 2006-10-12 10:21:39 stefan Exp $'
 ! !
 
 CVSSourceCodeManager initialize!