--- a/AbstractSourceCodeManagementSettingsAppl.st	Sat Jan 14 21:00:54 2012 +0100
+++ b/AbstractSourceCodeManagementSettingsAppl.st	Sat Jan 14 21:01:33 2012 +0100
@@ -12,7 +12,8 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl
-	instanceVariableNames:'shownInBrowserMenusHolder'
+	instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir acceptChannel
+		verboseSourceCodeAccess'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -140,8 +141,31 @@
     "Created: / 19-04-2011 / 12:48:37 / cg"
 ! !
 
+!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'!
+
+condenseSourceCache
+    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
+    Method flushSourceStreamCache.
+
+    "Modified: / 28-11-2006 / 12:21:33 / cg"
+!
+
+flushSourceCache
+    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
+
+    "Modified: / 30-09-2011 / 13:33:47 / cg"
+! !
+
 !AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
 
+acceptChannel
+
+    acceptChannel isNil ifTrue:[
+        acceptChannel := TriggerValue new.
+    ].
+    ^ acceptChannel.
+!
+
 shownInBrowserMenusHolder
     shownInBrowserMenusHolder isNil ifTrue:[
         shownInBrowserMenusHolder := true asValue.
@@ -150,16 +174,24 @@
     ^ shownInBrowserMenusHolder.
 
     "Created: / 10-01-2012 / 00:16:13 / cg"
+!
+
+sourceCacheDir
+    sourceCacheDir isNil ifTrue:[
+        sourceCacheDir := ValueHolder new.
+        sourceCacheDir onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ sourceCacheDir.
 ! !
 
 !AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.11 2012-01-11 14:40:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.11 2012-01-11 14:40:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $'
 !
 
 version_SVN