--- 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 $'
! !