EditTextView.st
changeset 4042 2dac2f89e877
parent 4041 d3a015f9d5dd
child 4048 a2ec0cedffc2
--- 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 $'
 ! !