--- a/FileSelectionBox.st	Mon Mar 06 22:23:47 1995 +0100
+++ b/FileSelectionBox.st	Thu Mar 09 03:11:38 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.12 1995-02-06 00:52:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.13 1995-03-09 02:11:31 claus Exp $
 '!
 
 !FileSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.12 1995-02-06 00:52:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.13 1995-03-09 02:11:31 claus Exp $
 "
 !
 
@@ -146,6 +146,8 @@
 !FileSelectionBox methodsFor:'initialization'!
 
 initialize
+    |corner|
+
     super initialize.
 
     label := 'File dialog'.
@@ -156,14 +158,11 @@
 
     patternField := EditField in:self.
     self is3D ifTrue:[
-	patternField 
-	    origin:(0.7 @ labelField origin y)
-	    corner:(1.0 @ (labelField origin y+patternField heightIncludingBorder)).
+	corner := (1.0 @ (labelField origin y+patternField heightIncludingBorder)).
     ] ifFalse:[
-	patternField
-	    origin:(0.7 @ labelField origin y)
-	    corner:[(width - ViewSpacing - (patternField borderWidth * 2)) @ (labelField origin y+patternField height"IncludingBorder")].
+	corner := [(width - ViewSpacing - (patternField borderWidth * 2)) @ (labelField origin y+patternField height"IncludingBorder")].
     ].
+    patternField origin:(0.7 @ labelField origin y) corner:corner.
     patternField rightInset:(ViewSpacing // 2).
     patternField initialText:'*'.
     patternField leaveAction:[:reason | 
@@ -217,11 +216,7 @@
 	    with:abortButton
 	    with:okButton 
     ].
-    ^ Array 
-	    with:enterField 
-	    with:selectionList 
-	    with:abortButton
-	    with:okButton 
+    ^ super focusSequence
 ! !
 
 !FileSelectionBox methodsFor:'dependencies'!