# HG changeset patch
# User penk
# Date 1039709263 -3600
# Node ID 7db8da324742f57f8fb9145645b40bc142797dd9
# Parent  2a8886eaff5f22757521f788c4b8a871c2cb3ff9
checkin from browser

diff -r 2a8886eaff5f -r 7db8da324742 FilenameEditFieldV2.st
--- a/FilenameEditFieldV2.st	Thu Dec 12 14:01:10 2002 +0100
+++ b/FilenameEditFieldV2.st	Thu Dec 12 17:07:43 2002 +0100
@@ -212,17 +212,20 @@
                         directoriesOnly:directoriesOnly 
                         filesOnly:filesOnly 
                         ifMultiple:[:dir | ]
-                        forMultipleDo:[:dir :matchSet | 
-                            completitionList := matchSet asList.
-                            self action:[: string |  | newFile |
-                                newFile := string asFilename.
-                                (newFile name endsWith:newFile separator) ifFalse:[
-                                    self editor contents:(newFile name copyWith:newFile separator)
+                        forMultipleDo:[:dir :matchSet |
+                            matchSet notEmpty ifTrue:[
+                                self editor contents:dir name.
+                                completitionList := matchSet asList.
+                                self action:[: string |  | newFile |
+                                    newFile := string asFilename.
+                                    (newFile name endsWith:newFile separator) ifFalse:[
+                                        self editor contents:(newFile name copyWith:newFile separator)
+                                    ].
                                 ].
+                                self pullMenu.
+                                completitionList := nil.
+                                isMultiMatch := true.
                             ].
-                            self pullMenu.
-                            completitionList := nil.
-                            isMultiMatch := true.
                         ].
         isMultiMatch not ifTrue:[
             newString asFilename pathName = canonContents ifTrue:[
@@ -304,5 +307,5 @@
 !FilenameEditFieldV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.2 2002-12-11 15:23:55 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.3 2002-12-12 16:07:43 penk Exp $'
 ! !