--- a/FileSelectionBox.st	Sun Aug 07 21:58:25 1994 +0200
+++ b/FileSelectionBox.st	Sun Aug 07 22:49:39 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.7 1994-08-07 13:21:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.8 1994-08-07 20:49:39 claus Exp $
 '!
 
 !FileSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.7 1994-08-07 13:21:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.8 1994-08-07 20:49:39 claus Exp $
 "
 !
 
@@ -141,6 +141,7 @@
             ]
         ]
     ].
+    enterField addDependent:self.
 
     "FileSelectionBox new show"
 !
@@ -158,6 +159,28 @@
     ]
 ! !
 
+!FileSelectionBox methodsFor:'dependencies'!
+
+update:something with:argument
+    |commonName index|
+
+    something == #directory ifTrue:[
+        "
+         sent by fileNameEnterField, if a filename
+         completion was not possible due to multiple
+         matches.
+        "
+        selectionList directory:argument.
+        commonName := enterField contents asFilename baseName.
+        commonName size > 0 ifTrue:[
+            index := selectionList list findFirst:[:entry | entry startsWith:commonName].
+            index ~~ 0 ifTrue:[
+                selectionList makeLineVisible:index
+            ]
+        ]
+    ]
+! !
+
 !FileSelectionBox methodsFor:'user actions'!
 
 okPressed