--- a/Workspace.st	Mon Oct 28 09:58:17 1996 +0100
+++ b/Workspace.st	Mon Oct 28 17:51:29 1996 +0100
@@ -125,6 +125,36 @@
     "
 
     "Modified: 27.2.1996 / 17:41:08 / cg"
+!
+
+openForRemote:hostName
+    "launch a new workspace to evaluate expression on some remote machine.
+     This requires the RemoteObjects package to be loaded."
+
+    |server remoteCompiler workspace|
+
+    RemoteObjectServer isNil ifTrue:[^ nil].
+
+    server := RemoteObjectServer on:hostName.
+    remoteCompiler := server get:#Compiler.
+
+    workspace := self open.
+    workspace topView label:'Workspace for remote: ' , hostName.
+    workspace doItAction:
+                [:theCode |
+                    remoteCompiler 
+                        evaluate:theCode 
+                        in:nil 
+                        receiver:nil 
+                        notifying:workspace 
+                        logged:true 
+                        ifFail:nil 
+                ]
+    "
+     Workspace openForRemote:'andi'
+    "
+
+    "Modified: 28.10.1996 / 17:51:21 / cg"
 ! !
 
 !Workspace methodsFor:'accessing'!
@@ -562,4 +592,4 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.46 1996-05-28 14:59:29 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.47 1996-10-28 16:51:29 cg Exp $'! !