--- a/WorkspaceApplication.st Mon Jun 16 11:25:01 2003 +0200
+++ b/WorkspaceApplication.st Mon Jun 16 11:55:59 2003 +0200
@@ -595,6 +595,14 @@
"/ needRemove := false.
"/ ].
+ path := (Smalltalk getSystemFileName:'GettingStarted.wsp').
+ (path notNil and:[path asFilename exists]) ifTrue:[
+ wsApp addWindow:(HVScrollableView for:Workspace) named:'Getting Started' asFirst:false.
+ wsApp loadFile:path.
+ needRemove ifTrue:[wsApp removeWorkspace:1]. "/ the original Workspace
+ needRemove := false.
+ ].
+
path := (Smalltalk getSystemFileName:'Keyboard.wsp').
(path notNil and:[path asFilename exists]) ifTrue:[
wsApp addWindow:(HVScrollableView for:Workspace) named:'Keyboard' asFirst:false.
@@ -1584,5 +1592,5 @@
!WorkspaceApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.61 2003-04-22 09:41:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.62 2003-06-16 09:55:59 cg Exp $'
! !