--- a/AbstractFileFinderApplicationComponent.st	Thu Jan 12 00:56:57 2012 +0100
+++ b/AbstractFileFinderApplicationComponent.st	Thu Jan 12 01:58:48 2012 +0100
@@ -377,6 +377,11 @@
 initialize
     super initialize.
     accessLock := Semaphore forMutualExclusion name:'accessLock'.
+
+    self enableStop value:false.
+    self enableSearch value:true.
+
+    "Modified: / 12-01-2012 / 01:39:27 / cg"
 ! !
 
 !AbstractFileFinderApplicationComponent methodsFor:'queries'!
@@ -394,12 +399,27 @@
     ^ sel notEmptyOrNil
 ! !
 
+!AbstractFileFinderApplicationComponent methodsFor:'tasks'!
+
+stopSearchTaskOrAbort
+    searchTask isNil ifTrue:[ ^ self ].
+
+    (Dialog 
+            confirm:(resources stringWithCRs:'There is already another find-file task running !!')
+            yesLabel:(resources string:'Stop other Task and Proceed')
+            noLabel:(resources string:'Cancel'))
+        ifFalse:[AbortSignal raise].
+    self stop.
+
+    "Created: / 12-01-2012 / 01:48:42 / cg"
+! !
+
 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.2 2012-01-11 21:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.3 2012-01-12 00:58:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.2 2012-01-11 21:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.3 2012-01-12 00:58:48 cg Exp $'
 ! !