--- a/CVSSourceCodeManagementSettingsAppl.st	Thu Jul 19 17:28:07 2012 +0200
+++ b/CVSSourceCodeManagementSettingsAppl.st	Thu Jul 19 17:28:11 2012 +0200
@@ -917,73 +917,7 @@
     ].
 !
 
-sourceDirChanged
-    |nm fn previousDir|
-
-    manager isNil ifTrue:[^ self].
-
-    previousDir := AbstractSourceCodeManager cacheDirectoryName.
-
-    nm := self sourceCacheDir value.
-    nm isEmptyOrNil ifTrue:[^ self].
-
-    (fn := nm asFilename) exists ifFalse:[
-        (self confirm:(resources 
-                            stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
-                            with:nm)
-        ) ifFalse:[
-            self sourceCacheDir value:previousDir.
-            ^ self.
-        ].
-        fn 
-            recursiveMakeDirectory; 
-            makeReadableForAll;
-            makeWritableForAll;
-            makeExecutableForAll.
-        ^ self.
-    ].
-
-    (fn isDirectory) ifFalse:[
-        self warn:(resources 
-                            stringWithCRs:'Not a directory: "%1"'
-                            with:nm).
-        self sourceCacheDir value:previousDir.
-        ^ self.
-    ].
-
-    (fn isReadable and:[fn isWritable]) ifFalse:[
-        (self confirm:(resources 
-                            stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
-                            with:nm)
-        ) ifFalse:[
-            self sourceCacheDir value:previousDir.
-            ^ self.
-        ].
-        fn
-            makeReadableForAll;
-            makeWritableForAll;
-            makeExecutableForAll.
-    ].
-"/    (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
-"/        (self confirm:(resources 
-"/                            stringWithCRs:'SourceCache directory "%1" is not both readable and writable for other users.\Change ?'
-"/                            with:nm)
-"/        ) ifTrue:[
-"/            fn
-"/                makeReadableForAll;
-"/                makeWritableForAll;
-"/                makeExecutableForAll.
-"/        ]
-"/    ].
-!
-
 update:something with:aParameter from:changedObject 
-    "/ common    
-    changedObject == sourceCacheDir ifTrue:[
-        self sourceDirChanged.
-        self updateModifiedChannel.
-        ^ self
-    ].
 
     "/ cvs
     changedObject == cvsRootHolder ifTrue:[
@@ -1098,9 +1032,9 @@
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.23 2012-03-12 11:03:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.24 2012-07-19 15:28:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.23 2012-03-12 11:03:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.24 2012-07-19 15:28:11 stefan Exp $'
 ! !