--- a/AbstractLauncherApplication.st	Sun Aug 27 16:50:40 2000 +0200
+++ b/AbstractLauncherApplication.st	Tue Aug 29 17:23:30 2000 +0200
@@ -3647,6 +3647,17 @@
         cacheEntry immediateAccept:true; acceptOnLeave:false.
         cacheEntry enableChannel:useManager.
 
+        pos := box yPosition.
+        butt := Button label:'flush cache now'.
+        butt action:[ box withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ] ].
+        box addComponent:butt tabable:true.
+        butt left:0.6; width:0.4; leftInset:0.
+
+        butt := Button label:'condense cache now'.
+        butt action:[ box withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ] ].
+        box addComponent:butt tabable:true.
+        butt left:0.6; width:0.4; leftInset:0.
+
         localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
         localCheck enableChannel:useManager.
 
@@ -5497,5 +5508,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.110 2000-08-19 11:54:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.111 2000-08-29 15:23:30 cg Exp $'
 ! !