--- a/NewLauncher.st	Thu Feb 05 21:18:19 1998 +0100
+++ b/NewLauncher.st	Thu Feb 05 21:44:23 1998 +0100
@@ -2281,6 +2281,52 @@
     "Modified: / 5.2.1998 / 21:02:41 / cg"
 !
 
+menuAbout
+    "this window spec was automatically generated by the ST/X MenuEditor"
+
+    "do not manually edit this - the builder may not be able to
+     handle the specification if its corrupted."
+
+    "
+     MenuEditor new openOnClass:NewLauncher andSelector:#menuAbout
+     (Menu new fromLiteralArrayEncoding:(NewLauncher menuAbout)) startUp
+    "
+
+    <resource: #menu>
+
+    ^
+     
+       #(#Menu
+          
+           #(
+             #(#MenuItem
+                #'label:' 'About Smalltalk/X...'
+                #'translateLabel:' true
+                #'value:' #openAbout
+                #'activeHelpKey:' #aboutSTX
+            )
+             #(#MenuItem
+                #'label:' 'Licence Conditions'
+                #'translateLabel:' true
+                #'value:' #openLicenceConditions
+                #'activeHelpKey:' #licenceConditions
+            )
+             #(#MenuItem
+                #'label:' '-'
+            )
+             #(#MenuItem
+                #'label:' 'About This Application...'
+                #'translateLabel:' true
+                #'value:' #openAboutThisApplication
+                #'activeHelpKey:' #aboutThisAppliaction
+            )
+          ) nil
+          nil
+      )
+
+    "Modified: / 5.2.1998 / 21:41:22 / cg"
+!
+
 menuNewSettings
     "this window spec was automatically generated by the ST/X MenuEditor"
 
@@ -3445,6 +3491,23 @@
     ^helpIsOn ? (helpIsOn := false)
 !
 
+openLicenceConditions
+    "open an HTML browser on the 'LICENCE' document"
+
+    |lang doc|
+
+    ((lang := Smalltalk language) = 'de'
+    or:[lang = 'german']) ifTrue:[
+        doc := 'german/LICENCE.STX.html'
+    ] ifFalse:[
+        doc := 'english/LICENCE.STX.html'
+    ].
+    doc := resources at:'LICENCEFILE' default:doc.
+    self showDocumentation:('../' , doc)
+
+    "Created: / 5.2.1998 / 21:43:19 / cg"
+!
+
 showBookPrintDocument
     "open an HTML browser on the 'book'-printing document"
 
@@ -6842,5 +6905,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.31 1998-02-05 20:18:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.32 1998-02-05 20:44:23 cg Exp $'
 ! !