--- a/StoreSourceCodeManagementSettingsAppl.st	Thu Jul 19 17:28:16 2012 +0200
+++ b/StoreSourceCodeManagementSettingsAppl.st	Thu Jul 19 17:28:21 2012 +0200
@@ -504,13 +504,6 @@
     "Created: / 19-04-2011 / 12:48:57 / cg"
 ! !
 
-!StoreSourceCodeManagementSettingsAppl methodsFor:'accessing'!
-
-manager
-
-    ^ Smalltalk at:#SourceCodeManager
-! !
-
 !StoreSourceCodeManagementSettingsAppl methodsFor:'actions'!
 
 addModule:module withData:data
@@ -1007,66 +1000,6 @@
     ].
 !
 
-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:[
@@ -1218,11 +1151,11 @@
 !StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.17 2012-03-16 11:37:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.18 2012-07-19 15:28:21 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.17 2012-03-16 11:37:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.18 2012-07-19 15:28:21 stefan Exp $'
 !
 
 version_SVN