FileSelectionBox.st
changeset 3237 4c6fe0664cab
parent 2745 fcf82800288c
child 3468 72b521780218
--- a/FileSelectionBox.st	Tue Jan 10 14:31:41 2006 +0100
+++ b/FileSelectionBox.st	Tue Jan 17 13:17:10 2006 +0100
@@ -702,7 +702,7 @@
     |dir string fname|
 
     string := enterField contents.
-    (string notNil and:[string notEmpty]) ifTrue:[
+    (string notEmptyOrNil) ifTrue:[
         string := string withoutSeparators.
         string asFilename isAbsolute ifTrue:[
             fname := string asFilename
@@ -754,5 +754,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.64 2003-05-07 14:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.65 2006-01-17 12:16:46 cg Exp $'
 ! !