--- a/OldLauncher.st	Mon Dec 13 18:05:04 1993 +0100
+++ b/OldLauncher.st	Thu Dec 16 12:03:10 1993 +0100
@@ -24,7 +24,7 @@
 
 allows startup of smalltalk applications
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.4 1993-12-11 01:46:03 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.5 1993-12-16 11:03:10 claus Exp $
 written spring 91 by claus
 '!
 
@@ -259,6 +259,7 @@
                             'Overview'
                             'Getting started'
                             'Customizing'
+                            'Tools ...'
                             '-'
                             'Help Browser'
                            ))
@@ -266,6 +267,7 @@
                             showOverview
                             showGettingStarted
                             showCustomizing
+                            tools
                             nil
                             startHelpView
                           )
@@ -274,6 +276,18 @@
 
     ).
 
+    (myMenu subMenuAt:#helpMenu) subMenuAt:#tools put:(
+        PopUpMenu labels:(resources array:#(
+                            'System Browser'
+                           ))
+               selectors:#(
+                            showSystemBrowserDocumentation
+                          )
+                receiver:self
+                     for:self
+
+    ).
+
     myMenu borderWidth:0.
     myMenu origin:(0 @ 0).
     myMenu font:(self font).
@@ -624,6 +638,10 @@
     self showDocumentFile:'doc/manuals/gettingStarted'
 !
 
+showSystemBrowserDocumentation
+    self showDocumentFile:'doc/misc/browser'
+!
+
 startHelpView
     self warn:'The HelpSystem is still under construction.
 
@@ -635,7 +653,7 @@
     saveBox isNil ifTrue:[
         saveBox := EnterBox new.
         saveBox title:(resources at:'filename for image:') withCRs.
-        saveBox abortText:(resources at:'abort').
+        " saveBox abortText:(resources at:'abort')."    "this is the default anyway ..."
         saveBox okText:(resources at:'save')
     ].
     "this is a kludge - put into above if when
@@ -643,7 +661,6 @@
 
     saveBox action:[:name | 
         ObjectMemory snapShotOn:name.
-        Class addChangeRecordForSnapshot
     ].
 
     (ImageName isNil or:[ImageName isBlank]) ifTrue:[
@@ -658,7 +675,7 @@
     exitBox isNil ifTrue:[
         exitBox := EnterBox2 new.
         exitBox title:(resources at:'save state before exiting ?\\filename for image:') withCRs.
-        exitBox abortText:(resources at:'abort').
+        " exitBox abortText:(resources at:'abort')."    "this is the default anyway ..."
         exitBox okText:(resources at:'exit').
         exitBox okText2:(resources at:'save & exit').
     ].
@@ -666,14 +683,9 @@
     exitBox action:[:name | Smalltalk exit].
     exitBox action2:[:name | 
         ObjectMemory snapShotOn:name. 
-        Class addChangeRecordForSnapshot.
         Smalltalk exit
     ].
 
-    (ImageName isNil or:[ImageName isBlank]) ifTrue:[
-        exitBox initialText:'st.img'
-    ] ifFalse:[
-        exitBox initialText:ImageName
-    ].
+    exitBox initialText:(ObjectMemory nameForSnapshot).
     exitBox showAtPointer
 ! !