--- a/EditTextView.st	Tue Apr 17 14:04:54 2007 +0200
+++ b/EditTextView.st	Tue May 29 12:03:02 2007 +0200
@@ -5166,6 +5166,7 @@
                     ('Translate'                   babelFishTranslate         )
                     ('-'                                                      )
                     ('Open FileBrowser on It'      openFileBrowserOnIt        )
+                    ('Open Workspace with It'      openWorkspaceWithIt        )
               ).
 
     sub := PopUpMenu itemList:items resources:resources performer:model.
@@ -5250,7 +5251,7 @@
     ].
     ^ m.
 
-    "Modified: / 11-10-2006 / 21:24:19 / cg"
+    "Modified: / 26-05-2007 / 06:04:02 / cg"
 !
 
 getTextSelectionFromHistory
@@ -5377,6 +5378,17 @@
     UserPreferences fileBrowserClass openOn:dir
 !
 
+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."
@@ -7096,5 +7108,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.416 2007-04-17 12:04:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.417 2007-05-29 10:03:02 cg Exp $'
 ! !