#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 06 Jul 2018 07:31:08 +0200
changeset 6374 bbde223c59ec
parent 6373 065fd51ae5b2
child 6375 0ee929d79a08
#BUGFIX by cg class: EditTextView changed: #editMenu separators in openWebBrowserOnIt function
EditTextView.st
--- a/EditTextView.st	Fri Jul 06 07:30:37 2018 +0200
+++ b/EditTextView.st	Fri Jul 06 07:31:08 2018 +0200
@@ -6928,17 +6928,17 @@
             ex return:false
         ] do:[
             |fn|
-            fn := self selectionAsString.
-            fn asFilename exists or:[ fn withoutSeparators withoutQuotes asFilename exists ]
+            fn := self selectionAsString withoutSeparators.
+            fn asFilename exists or:[ fn withoutQuotes asFilename exists ]
         ]) ifFalse:[
             m disableAll:#(openFileBrowserOnIt).
         ].
         (Error handle:[:ex |
             ex return:false
         ] do:[
-            |fn|
-            fn := self selectionAsString.
-            #('http' 'https' 'ftp') includes:fn asURL method
+            |url|
+            url := self selectionAsString withoutSeparators.
+            #('http' 'https' 'ftp') includes:url asURL method
         ]) ifFalse:[
             m disableAll:#(openWebBrowserOnIt).
         ]
@@ -6967,7 +6967,7 @@
     ^ m.
 
     "Modified: / 30-11-2017 / 15:06:03 / cg"
-    "Modified: / 21-06-2018 / 18:41:20 / Claus Gittinger"
+    "Modified: / 06-07-2018 / 07:28:32 / Claus Gittinger"
 !
 
 getTextSelectionFromHistory