--- a/FileSelectionBox.st	Mon Jun 03 18:49:43 1996 +0200
+++ b/FileSelectionBox.st	Tue Jun 04 20:32:31 1996 +0200
@@ -430,10 +430,8 @@
     patternField origin:(0.7 @ labelField origin y) corner:corner.
     patternField rightInset:ViewSpacing.
     patternField initialText:'*'.
-    patternField leaveAction:[:reason | 
-        selectionList pattern:patternField contents. 
-        self updateList
-    ].
+    patternField leaveAction:[:reason | self patternChanged]. 
+    patternField crAction:[self patternChanged].
     patternField hiddenOnRealize:true. "delay showing, until a pattern is defined"
     self makeTabable:patternField before:enterField.
 
@@ -444,7 +442,7 @@
      FileSelectionBox new show
     "
 
-    "Modified: 31.5.1996 / 22:09:13 / cg"
+    "Modified: 4.6.1996 / 20:30:46 / cg"
 !
 
 realize
@@ -573,6 +571,13 @@
 
 !
 
+patternChanged
+    selectionList pattern:patternField contents. 
+    self updateList
+
+    "Created: 4.6.1996 / 20:30:23 / cg"
+!
+
 selectionChanged
     |entry|
 
@@ -592,5 +597,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.37 1996-05-31 20:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.38 1996-06-04 18:32:31 cg Exp $'
 ! !