--- a/WorkspaceApplication.st	Tue Feb 11 22:21:25 2003 +0100
+++ b/WorkspaceApplication.st	Wed Feb 12 14:06:01 2003 +0100
@@ -616,6 +616,21 @@
     "
      self openSystemWorkspace
     "
+!
+
+openWith:initialText
+    "launch a new workspace with some initial contents"
+
+    |workspace|
+
+    workspace := self new.
+    workspace open.
+    workspace selectedWorkspace contents:initialText.
+    ^ workspace
+
+    "
+     WorkspaceApplication openWith:'Transcript showCR:''hello world'''
+    "
 ! !
 
 !WorkspaceApplication methodsFor:'accessing'!
@@ -1549,5 +1564,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.56 2003-01-30 09:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.57 2003-02-12 13:06:01 cg Exp $'
 ! !