diff -r 710d41f17b68 -r 4e63bbdb266a FileSelectionBox.st --- a/FileSelectionBox.st Wed May 03 18:30:51 1995 +0200 +++ b/FileSelectionBox.st Sat May 06 16:18:13 1995 +0200 @@ -21,7 +21,7 @@ COPYRIGHT (c) 1990 by Claus Gittinger All Rights Reserved -$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.15 1995-05-03 16:29:13 claus Exp $ +$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.16 1995-05-06 14:17:07 claus Exp $ '! !FileSelectionBox class methodsFor:'documentation'! @@ -42,7 +42,7 @@ version " -$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.15 1995-05-03 16:29:13 claus Exp $ +$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.16 1995-05-06 14:17:07 claus Exp $ " ! @@ -195,16 +195,14 @@ ! createEnterField - " - if the (optional) class FilenameEditField is present, use + "if the (optional) class FilenameEditField is present, use it, since it provides filename completion. Otherwise, we have - to live with the dump field ... + to live with the dump (default) field ... " FilenameEditField notNil ifTrue:[ - enterField := FilenameEditField in:self. - ] ifFalse:[ - super createEnterField - ] + ^ FilenameEditField new. + ]. + ^ super createEnterField ! focusSequence