#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Fri, 01 Sep 2017 14:30:44 +0200
changeset 6203 377c07366fc8
parent 6202 3b9b166e5fc1
child 6204 44cc5203397e
#REFACTORING by cg class: EditTextView removed: #openFileBrowserOnFileNamed: #openFileBrowserOnIt #openWorkspaceWithIt
EditTextView.st
--- 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."