--- a/WorkspaceApplication.st	Wed Sep 15 14:43:54 2004 +0200
+++ b/WorkspaceApplication.st	Wed Sep 15 16:33:04 2004 +0200
@@ -633,6 +633,20 @@
 
 !WorkspaceApplication class methodsFor:'special startup'!
 
+openOnFile:aFilename
+    "launch a new workspace on the contents of some file"
+
+    |ws|
+
+    ws := self openWith:nil.
+    ws loadFile:aFilename.
+    ^ ws
+
+    "
+     WorkspaceApplication openOnFile:'Makefile'
+    "
+!
+
 openSystemWorkspace
     |wsApp path needRemove font|
 
@@ -1410,5 +1424,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.90 2004-08-31 14:47:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.91 2004-09-15 14:32:26 cg Exp $'
 ! !