# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 924180114 -7200
# Node ID 9d28a88ccdc4e3008736d5b9faef9cee30601f03
# Parent  e79e733e6900adf3c96d98f9d83012c14e41131e
checkin from browser

diff -r e79e733e6900 -r 9d28a88ccdc4 OldLauncher.st
--- a/OldLauncher.st	Wed Apr 14 12:43:34 1999 +0200
+++ b/OldLauncher.st	Thu Apr 15 14:41:54 1999 +0200
@@ -41,7 +41,8 @@
         This used to be the launcher a few years ago.
         It has been replaced by the Launcher, which itself
         got obsoleted by the NewLauncher.
-
+        (However, some may still like it, since it takes up less
+         screen real-estate ;-)
 
     OldLauncher allows startup of smalltalk applications.
 
@@ -67,6 +68,10 @@
 
 defaultLabel
     ^ 'smallTalk'
+!
+
+isVisualStartable
+    ^ true
 ! !
 
 !OldLauncher methodsFor:'accessing'!
@@ -133,6 +138,16 @@
     self showOnlineHelp:'getstart/TOP'
 !
 
+showHTMLDocumentation
+    (HTMLDocumentView notNil 
+    and:[HTMLDocumentView isLoaded]) ifTrue:[
+        HTMLDocumentView openFullOnDocumentationFile:'TOP.html'. 
+    ] ifFalse:[
+        self warn:'No HTMLDocumentView-class available'
+    ].
+
+!
+
 showOnlineHelp:baseName
     self showDocumentFile:baseName
 !
@@ -250,11 +265,11 @@
                                 'Goodies'
                                 'Games & Demos'
                                 '-'
-                                'info & help'
+                                'Info & Help'
                                 '-'
-                                'snapshot'
+                                'Snapshot'
                                 '-'
-                                'exit'
+                                'Exit'
                         ))
                 selectors:#(browserMenu
                             startWorkspace
@@ -303,6 +318,7 @@
     myMenu subMenuAt:#utilityMenu put:(
         PopUpMenu labels:(resources array:#(
                             'Transcript'
+                            'New Launcher'
                             '-'
                             'Window tree'
                             'View inspect'
@@ -314,17 +330,18 @@
                             'Memory monitor'
                             'Memory usage'
                             '-'
-                            'collect Garbage'
-                            'collect Garbage & compress'
+                            'Collect Garbage'
+                            'Collect Garbage & compress'
                             '-'
-                            'full screen hardcopy'
-                            'screen area hardcopy'
-                            'view hardcopy'
+                            'Full screen Hardcopy'
+                            'Screen area Hardcopy'
+                            'View Hardcopy'
                             '-'
                             'ScreenSaver'
                            ))
                selectors:#(
                             startTranscript
+                            startNewLauncher
                             nil
                             startWindowTreeView
                             viewInspector
@@ -351,9 +368,9 @@
 
     (myMenu subMenuAt:#utilityMenu) subMenuAt:#screenSaverMenu put:(
         PopUpMenu labels:(resources array:#(
-                            'simple'
-                            'spotlight'
-                            'moving spotlight'
+                            'Simple'
+                            'Spotlight'
+                            'Moving spotlight'
                            ))
                selectors:#(
                             startScreenSaver1
@@ -463,9 +480,9 @@
     Project notNil ifTrue:[
         myMenu subMenuAt:#projectMenu put:(
             PopUpMenu labels:(resources array:#(
-                                'new project'
+                                'New project'
                                 '-'
-                                'select project'
+                                'Select project'
                                ))
                    selectors:#(
                                 newProject
@@ -514,6 +531,7 @@
     myMenu subMenuAt:#helpMenu put:(
         PopUpMenu labels:(resources array:#(
                             'About'
+                            'Online HTML Documentation'
                             '-'
                             'Overview'
                             'Getting started'
@@ -526,6 +544,7 @@
                            ))
                selectors:#(
                             showAbout
+                            showHTMLDocumentation
                             nil
                             showOverview
                             showGettingStarted
@@ -567,8 +586,8 @@
                             'Language & primitives'
                             'Error messages'
                             '-'
-                            'stc manual page'
-                            'smalltalk manual page'
+                            'Stc manual page'
+                            'Smalltalk manual page'
                            ))
                 selector:#showOnlineHelp:
                     args:#('misc/history'
@@ -585,12 +604,12 @@
 
     (myMenu subMenuAt:#helpMenu) subMenuAt:#programming put:(
         PopUpMenu labels:(resources array:#(
-                            'useful selectors'
-                            'views - quick intro'
-                            'breakpoints & tracing'
-                            'processes'
-                            'timers & delays'
-                            'exceptions & signals'
+                            'Useful selectors'
+                            'Views - quick intro'
+                            'Breakpoints & tracing'
+                            'Processes'
+                            'Timers & delays'
+                            'Exceptions & signals'
                             'GL 3D graphics'
                            ))
                 selector:#showOnlineHelp:
@@ -1020,5 +1039,5 @@
 !OldLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.39 1999-03-06 12:25:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.40 1999-04-15 12:41:54 cg Exp $'
 ! !