--- a/FileSelectionBox.st Thu Oct 17 17:24:57 2002 +0200
+++ b/FileSelectionBox.st Thu Oct 17 17:25:30 2002 +0200
@@ -346,7 +346,8 @@
|string|
string := super contents.
- string isNil ifTrue:[
+ string size == 0 ifTrue:[
+ selectingDirectory ifFalse:[^ string].
^ selectionList directory pathName
].
(string asFilename isAbsolute) ifTrue:[
@@ -753,5 +754,5 @@
!FileSelectionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.62 2001-11-14 08:27:03 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.63 2002-10-17 15:25:30 cg Exp $'
! !