--- a/MercurialSourceCodeManagementSettingsAppl.st	Tue Jul 24 18:17:26 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Wed Jul 25 10:51:30 2012 +0100
@@ -53,7 +53,7 @@
 
 defaultRepositoryName
 
-    ^ ''
+    ^ './hgRepository'
 
     "Created: / 19-04-2011 / 11:00:11 / cg"
 ! !
@@ -1068,7 +1068,7 @@
 repositoryHolder
 
     repositoryHolder isNil ifTrue:[
-        repositoryHolder := '' asValue.
+        repositoryHolder := self class defaultRepositoryName asValue.
         repositoryHolder addDependent:self.
     ].
     ^ repositoryHolder.
@@ -1157,73 +1157,7 @@
     "Created: / 14-01-2012 / 20:24:57 / cg"
 !
 
-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 == repositoryHolder ifTrue:[
@@ -1317,13 +1251,13 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.16 2012/03/12 11:05:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.18 2012/07/23 11:25:37 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.16 2012/03/12 11:05:56 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.18 2012/07/23 11:25:37 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: MercurialSourceCodeManagementSettingsAppl.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+    ^ '$Id: MercurialSourceCodeManagementSettingsAppl.st 8022 2012-07-25 09:51:30Z vranyj1 $'
 ! !