--- a/FileSelectionBox.st	Sat Jan 08 18:27:39 1994 +0100
+++ b/FileSelectionBox.st	Sat Jan 08 18:27:56 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.5 1993-12-16 11:02:38 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.6 1994-01-08 17:27:15 claus Exp $
 written Jan 90 by claus
 '!
 
@@ -62,7 +62,10 @@
                         corner:(1.0 @ labelField corner y)
                             in:self.
     patternField initialText:'*'.
-    patternField leaveAction:[:p | self updateList].
+    patternField leaveAction:[:reason | 
+        selectionList pattern:patternField contents. 
+        self updateList
+    ].
     patternField hidden:true.
 
     selectionList action:[:line |
@@ -82,6 +85,12 @@
     "FileSelectionBox new show"
 ! !
 
+!FileSelectionBox methodsFor:'private'!
+
+updateList
+    selectionList updateList
+! !
+
 !FileSelectionBox methodsFor:'accessing'!
 
 directory:nameOrDirectory