#BUGFIX by cg
class: EditTextView
changed: #editMenu
separators in openWebBrowserOnIt function
--- 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