--- a/DirectoryContentsBrowser.st Mon Apr 07 18:41:57 2003 +0200
+++ b/DirectoryContentsBrowser.st Mon Apr 07 18:42:13 2003 +0200
@@ -1029,7 +1029,7 @@
filterBox isNil ifTrue:[^ self ].
noOfAddedFiles ~= noOfFiles ifTrue:[
clr := Color red lightened lightened lightened.
- [ filterBox flash] fork.
+ [ View drawingOnClosedDrawableSignal catch:[ filterBox flash ] ] fork.
] ifFalse:[
clr := self filterBackgroundColor value.
].
@@ -2810,5 +2810,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.100 2003-04-06 14:06:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.101 2003-04-07 16:42:13 cg Exp $'
! !