--- 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 $'
! !