--- a/AbstractLauncherApplication.st	Tue Aug 12 22:49:16 2003 +0200
+++ b/AbstractLauncherApplication.st	Wed Aug 13 12:46:04 2003 +0200
@@ -1140,6 +1140,12 @@
 
 !
 
+startTutorial
+    "open an HTML browser on the 'getstart/tutorial.html' document"
+
+    self showDocumentation:'getstart/tutorial.html'
+!
+
 startWhatsNewDocumentation
     "open an HTML browser on the 'whatsNew.html' document"
 
@@ -6424,5 +6430,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.285 2003-07-25 10:01:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.286 2003-08-13 10:45:56 cg Exp $'
 ! !

--- a/NewLauncher.st	Tue Aug 12 22:49:16 2003 +0200
+++ b/NewLauncher.st	Wed Aug 13 12:46:04 2003 +0200
@@ -1796,6 +1796,11 @@
             #labelImage: #(#ResourceRetriever nil #helpIcon2 'ST/X Online Documentation')
           )
          #(#MenuItem
+            #label: 'Smalltalk Tutorial for Beginners'
+            #itemValue: #startTutorial
+            #translateLabel: true
+          )
+         #(#MenuItem
             #activeHelpKey: #helpClassDocumentation
             #label: 'Class Documentation'
             #itemValue: #startClassDocumentation
@@ -4300,5 +4305,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.295 2003-07-09 11:36:17 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.296 2003-08-13 10:46:04 cg Exp $'
 ! !