--- a/Workspace.st	Mon Feb 03 12:20:09 2003 +0100
+++ b/Workspace.st	Wed Feb 12 14:06:12 2003 +0100
@@ -178,6 +178,20 @@
     "
 
     "Modified: / 16.5.1998 / 16:57:38 / cg"
+!
+
+openWith:initialText
+    "launch a new workspace with some initial contents"
+
+    |workspace|
+
+    workspace := self open.
+    workspace contents:initialText.
+    ^ workspace
+
+    "
+     Workspace openWith:'Transcript showCR:''hello world'''
+    "
 ! !
 
 !Workspace class methodsFor:'history'!
@@ -1132,5 +1146,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.120 2003-01-24 11:32:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.121 2003-02-12 13:06:12 cg Exp $'
 ! !