--- a/FindFileApplication.st Mon Dec 13 23:09:01 2004 +0100
+++ b/FindFileApplication.st Tue Dec 14 15:57:45 2004 +0100
@@ -717,7 +717,7 @@
self enableSearch value:true.
self changeInformationTo:'Find File ' , '- done.' toTab:true.
].
- ] valueNowOrOnUnwindDo:[
+ ] ensure:[
thisSearchTask == searchTask ifTrue:[
searchTask := nil.
self enableStop value:false.
@@ -1612,5 +1612,5 @@
!FindFileApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.66 2004-11-10 09:06:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.67 2004-12-14 14:57:45 cg Exp $'
! !