--- a/FileSelectionBox.st	Thu Jul 24 15:03:10 1997 +0200
+++ b/FileSelectionBox.st	Thu Jul 24 15:16:42 1997 +0200
@@ -325,37 +325,32 @@
     "set the pattern - this also enables the PatternField
      (if the pattern is non-nil) or hides it (if nil)."
 
-    |hidePatternField focusSequence|
+    |focusSequence|
 
     patternField initialText:aPattern.
     selectionList pattern:aPattern.
     aPattern isNil ifTrue:[
-	hidePatternField := true.
-	realized ifTrue:[
-	    patternField hide.
-	].
-	focusSequence := (Array 
-			     with:enterField 
-			     with:selectionList 
-			     with:okButton 
-			     with:abortButton)
+        patternField beInvisible.
+        focusSequence := (Array 
+                             with:enterField 
+                             with:selectionList 
+                             with:okButton 
+                             with:abortButton)
     ] ifFalse:[
-	hidePatternField := false.
-	realized ifTrue:[
-	    patternField realize.
-	].
-	focusSequence := (Array 
-			     with:patternField 
-			     with:enterField 
-			     with:selectionList 
-			     with:okButton 
-			     with:abortButton)
+        patternField beVisible.
+        focusSequence := (Array 
+                             with:patternField 
+                             with:enterField 
+                             with:selectionList 
+                             with:okButton 
+                             with:abortButton)
     ].
 
-    patternField hiddenOnRealize:hidePatternField.
     windowGroup notNil ifTrue:[
-	windowGroup focusSequence:focusSequence
+        windowGroup focusSequence:focusSequence
     ].
+
+    "Modified: 24.7.1997 / 15:12:32 / cg"
 !
 
 selectingDirectory:aBoolean
@@ -602,5 +597,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.41 1996-10-22 12:25:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.42 1997-07-24 13:16:42 cg Exp $'
 ! !