--- a/FilenameEditFieldV2.st Thu Feb 06 18:20:52 2003 +0100
+++ b/FilenameEditFieldV2.st Fri Feb 07 10:47:14 2003 +0100
@@ -217,10 +217,12 @@
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)
- ].
+ string isString ifTrue:[
+ newFile := string asFilename.
+ (newFile name endsWith:newFile separator) ifFalse:[
+ self editor contents:(newFile name copyWith:newFile separator)
+ ].
+ ]
].
self pullMenu.
completitionList := nil.
@@ -307,5 +309,5 @@
!FilenameEditFieldV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.3 2002-12-12 16:07:43 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.4 2003-02-07 09:47:14 penk Exp $'
! !