--- a/DialogBox.st Tue Mar 09 17:00:51 1999 +0100
+++ b/DialogBox.st Tue Mar 09 19:11:30 1999 +0100
@@ -1521,7 +1521,7 @@
action:[:fileName | enteredName := fileName].
fN := aFileName.
- dirF := aFileName asFilename.
+ dirF := (aFileName ? '.') asFilename.
dirF name = dirF baseName ifFalse:[
dir := dirF directoryName.
fN := dirF baseName.
@@ -5924,6 +5924,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.131 1999-03-06 03:04:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.132 1999-03-09 18:11:30 cg Exp $'
! !
DialogBox initialize!