--- a/EditTextView.st Sun Oct 25 02:33:25 2009 +0100
+++ b/EditTextView.st Wed Oct 28 14:32:52 2009 +0100
@@ -5468,7 +5468,9 @@
(Error handle:[:ex |
ex return:false
] do:[
- self selectionAsString asSingleByteString asFilename exists
+ |fn|
+ fn := self selectionAsString.
+ fn asFilename exists or:[ fn withoutSeparators withoutQuotes asFilename exists ]
]) ifFalse:[
m disableAll:#(openFileBrowserOnIt).
]
@@ -5697,10 +5699,13 @@
fn := self selectionAsString asFilename.
fn exists ifFalse:[
- ^ self warn:'Oops - file is gone'.
+ fn := self selectionAsString withoutSeparators withoutQuotes asFilename.
+ fn exists ifFalse:[
+ ^ self warn:'Oops - file is gone'.
+ ].
].
(dir := fn) isDirectory ifFalse:[
- dir := fn directory
+ dir := fn directory
].
UserPreferences fileBrowserClass openOn:dir
!
@@ -7569,9 +7574,9 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.471 2009-10-28 13:32:52 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.471 2009-10-28 13:32:52 cg Exp $'
! !