DirectoryContentsBrowser.st
changeset 4026 106ce16d1669
parent 4023 d2341e8540dc
child 4027 c662c75b6bf9
--- 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 $'
 ! !