--- a/WorkspaceApplication.st	Wed Jan 29 20:41:25 2003 +0100
+++ b/WorkspaceApplication.st	Thu Jan 30 10:18:26 2003 +0100
@@ -920,19 +920,8 @@
 
 babelFishTranslate:fromToModeString
     "translate the selected text and paste it after the selection"
-    |original translated v|
 
-    v := self selectedWorkspacesTextView.
-    original := v selectionAsString.
-    original size == 0 ifTrue:[^ self].
-    self withWaitCursorDo:[
-        translated := SOAP::BabelFishClient new translate:original mode:fromToModeString.
-    ].
-
-    "/ v pasteOrReplace:translated
-    v cursorLine:(v selectionEndLine) col:(v selectionEndCol + 1).
-    v unselect.
-    v paste:translated
+    self selectedWorkspace babelFishTranslate:fromToModeString
 !
 
 basicInspectIt
@@ -1560,5 +1549,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.55 2003-01-24 17:29:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.56 2003-01-30 09:18:26 cg Exp $'
 ! !