diff -r f2f8fca68876 -r 106ce16d1669 DirectoryContentsBrowser.st --- a/DirectoryContentsBrowser.st Tue Oct 22 16:12:45 2002 +0200 +++ b/DirectoryContentsBrowser.st Tue Oct 22 16:58:15 2002 +0200 @@ -2577,36 +2577,24 @@ self isBusy:true. [ self directoryChangeFlag ifTrue:[ - [ - self debugMessage:'directoryChanged'. - self directoryChanged. - ] valueNowOrOnUnwindDo:[ - self directoryChangeFlag:false - ]. + self directoryChangeFlag:false. + self debugMessage:'directoryChanged'. + self directoryChanged. ]. self directoryContentsChangeFlag ifTrue:[ - [ - self debugMessage:'directoryContentsChanged'. - self directoryContentsChanged. - ] valueNowOrOnUnwindDo:[ - self directoryContentsChangeFlag:false - ] + self directoryContentsChangeFlag:false. + self debugMessage:'directoryContentsChanged'. + self directoryContentsChanged. ]. self filterChangeFlag ifTrue:[ - [ - self debugMessage:'filterChanged'. - self filterChanged. - ] valueNowOrOnUnwindDo:[ - self filterChangeFlag:false - ]. + self filterChangeFlag:false. + self debugMessage:'filterChanged'. + self filterChanged. ]. self sortBlockChangeFlag ifTrue:[ - [ - self debugMessage:'sortBlockChanged'. - self sortBlockChanged. - ] valueNowOrOnUnwindDo:[ - self sortBlockChangeFlag:false - ]. + self sortBlockChangeFlag:false. + self debugMessage:'sortBlockChanged'. + self sortBlockChanged. ] ] ensure:[ self isBusy:false. @@ -2814,5 +2802,5 @@ !DirectoryContentsBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.32 2002-10-22 14:05:11 penk Exp $' + ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.33 2002-10-22 14:58:15 penk Exp $' ! !