--- a/WorkspaceApplication.st	Fri Jan 26 15:13:13 2007 +0100
+++ b/WorkspaceApplication.st	Fri Jan 26 15:21:03 2007 +0100
@@ -692,12 +692,15 @@
         font := font onDevice:wsApp graphicsDevice ifAbsent:nil.
     ].
 
-    #(
-        ('Hello_utf8.wsp'       HELLO_UTF_FILE          'Hello'           #'utf8' )
-        ('Welcome.wsp'          WELCOME_FILE            'Welcome'         nil )
-        ('Setup.wsp'            SETUP_FILE              'Setup'           nil )
-        ('Keyboard.wsp'         KEYBOARD_FILE           'Keyboard'        nil )
-        ('GettingStarted.wsp'   GETTING_STARTED_FILE    'Getting Started' nil )
+    #(  "/ file                 resourceKey             title               forcedEncoding
+        ('Hello_utf8.wsp'       HELLO_UTF_FILE          'Hello'             #'utf8' )
+        ('Welcome.wsp'          WELCOME_FILE            'Welcome'           nil )
+        ('Setup.wsp'            SETUP_FILE              'Setup'             nil )
+        ('Keyboard.wsp'         KEYBOARD_FILE           'Keyboard'          nil )
+        ('GettingStarted.wsp'   GETTING_STARTED_FILE    'Getting Started'   nil )
+    "/ if these are present, show them.
+        ('Private.wsp'          PRIVATE_FILE            'Private Workspace' nil )
+        ('MyWorkspace.wsp'      MYWORKSPACE_FILE        'My Workspace'      nil )
     ) do:[:quadruple |
         |file resKey title forcedEncoding pane encoding|
 
@@ -735,6 +738,8 @@
     "
      self openSystemWorkspace
     "
+
+    "Modified: / 26-01-2007 / 15:20:36 / cg"
 !
 
 openWith:initialText
@@ -1604,5 +1609,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.123 2006-11-24 12:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.124 2007-01-26 14:21:03 cg Exp $'
 ! !