#REFACTORING by cg
class: EditTextView
removed:
#openFileBrowserOnFileNamed:
#openFileBrowserOnIt
#openWorkspaceWithIt
--- a/EditTextView.st Fri Sep 01 14:30:38 2017 +0200
+++ b/EditTextView.st Fri Sep 01 14:30:44 2017 +0200
@@ -7139,48 +7139,6 @@
info:'Spelling Suggestion'.
!
-openFileBrowserOnFileNamed:fileNameString
- "open a fileBrowser on the given fileNameString"
-
- |fn|
-
- fn := fileNameString asFilename.
- fn exists ifFalse:[
- fn := fileNameString withoutSeparators withoutQuotes asFilename.
- fn exists ifFalse:[
- ^ self warn:(resources
- string:'Sorry - file "%1" was not found in directory "%2"'
- with:fn baseName allBold
- with:fn directory baseName allBold).
- ].
- ].
- FileBrowser default openOn:fn
-
- "Modified: / 01-09-2017 / 14:03:54 / cg"
-!
-
-openFileBrowserOnIt
- "open a fileBrowser on the selected fileName"
-
- |fileNameString|
-
- fileNameString := self selectionAsString.
- self openFileBrowserOnFileNamed:fileNameString
-
- "Modified: / 06-09-2012 / 14:47:22 / cg"
-!
-
-openWorkspaceWithIt
- "open a workspace containing the selected text"
-
- |text|
-
- text := self selectionAsString.
- WorkspaceApplication openWith:text selected:true
-
- "Created: / 26-05-2007 / 06:05:22 / cg"
-!
-
paste
"paste the copybuffer; if there is a selection, unselect first.
Then paste at cursor position."