--- a/WorkspaceApplication.st	Wed Apr 03 20:39:23 2013 +0200
+++ b/WorkspaceApplication.st	Thu Apr 04 00:22:29 2013 +0200
@@ -1924,25 +1924,48 @@
 openWith:initialText
     "launch a new workspace with some initial contents"
 
-    ^ self openWith:initialText selected:false
+    ^ self 
+        openWith:initialText 
+        selected:false
 
     "
-     WorkspaceApplication openWith:'Transcript showCR:''hello world'''
+     WorkspaceApplication 
+        openWith:'Transcript showCR:''hello world'''
     "
 !
 
 openWith:initialText selected:selectedBoolean
     "launch a new workspace with some initial contents"
 
+    ^ self openWith:initialText selected:selectedBoolean title:nil
+
+    "
+     WorkspaceApplication 
+        openWith: 'Transcript showCR:''hello world'''
+        selected: false
+
+     WorkspaceApplication 
+        openWith: 'Transcript showCR:''hello world'''
+        selected: true
+    "
+!
+
+openWith:initialText selected:selectedBoolean title:titleString
+    "launch a new workspace with some initial contents"
+
     |workspace|
 
     workspace := self new.
     workspace open.
+    titleString notNil ifTrue:[workspace setLabel:titleString].
     workspace selectedWorkspace contents:initialText selected:selectedBoolean.
     ^ workspace
 
     "
-     WorkspaceApplication openWith:'Transcript showCR:''hello world'''
+     WorkspaceApplication 
+        openWith:'Transcript showCR:''hello world''' 
+        selected:false
+        title:'hello'
     "
 !
 
@@ -4002,11 +4025,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.238 2013-03-19 12:12:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.238 2013-03-19 12:12:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
 !
 
 version_SVN