--- a/NewLauncher.st	Fri Jan 17 11:58:37 2003 +0100
+++ b/NewLauncher.st	Fri Jan 17 11:59:07 2003 +0100
@@ -1747,63 +1747,80 @@
      #(#Menu
         #(
          #(#MenuItem
+            #activeHelpKey: #helpWhatsNew
             #label: 'What''s New in the Documentation'
+            #itemValue: #startWhatsNewDocumentation
             #translateLabel: true
-            #value: #startWhatsNewDocumentation
-            #activeHelpKey: #helpWhatsNew
           )
          #(#MenuItem
+            #activeHelpKey: #helpReleaseNotes
             #label: 'What''s New in ST/X'
+            #itemValue: #startWhatsNewSTX
             #translateLabel: true
-            #value: #startWhatsNewSTX
-            #activeHelpKey: #helpReleaseNotes
           )
          #(#MenuItem
+            #activeHelpKey: #helpIndex
             #label: 'Keyword Index'
+            #itemValue: #startDocumentationIndex
             #translateLabel: true
-            #value: #startDocumentationIndex
-            #activeHelpKey: #helpIndex
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
+            #activeHelpKey: #helpSTXOnlineDocumentation
             #label: 'ST/X Online Documentation'
+            #itemValue: #startDocumentationTool
             #translateLabel: true
-            #value: #startDocumentationTool
-            #activeHelpKey: #helpSTXOnlineDocumentation
             #labelImage: #(#ResourceRetriever nil #helpIcon2 'ST/X Online Documentation')
           )
          #(#MenuItem
+            #activeHelpKey: #helpClassDocumentation
             #label: 'Class Documentation'
+            #itemValue: #startClassDocumentation
+            #translateLabel: true
+            #labelImage: #(#ResourceRetriever nil #helpIcon 'Class Documentation')
+          )
+         #(#MenuItem
+            #label: 'Web-Documents'
             #translateLabel: true
-            #value: #startClassDocumentation
-            #activeHelpKey: #helpClassDocumentation
-            #labelImage: #(#ResourceRetriever nil #helpIcon 'Class Documentation')
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'RFCs...'
+                  #itemValue: #showRFC
+                  #translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
+            #activeHelpKey: #helpPrintDocumentation
             #label: 'Print Documentation...'
+            #itemValue: #showBookPrintDocument
             #translateLabel: true
-            #value: #showBookPrintDocument
-            #activeHelpKey: #helpPrintDocumentation
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
+            #activeHelpKey: #helpActiveHelp
             #label: 'FlyBy Help'
+            #itemValue: #toggleFlyByHelp:
             #translateLabel: true
-            #value: #toggleFlyByHelp:
-            #activeHelpKey: #helpActiveHelp
             #indication: #activeHelp
           )
          #(#MenuItem
+            #activeHelpKey: #helpShowHelp
             #label: 'Show Help Texts'
             #translateLabel: true
-            #activeHelpKey: #helpShowHelp
+            #isVisible: false
             #indication: #showingHelp:
           )
          )
@@ -4160,5 +4177,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.283 2002-12-16 17:25:31 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.284 2003-01-17 10:59:07 cg Exp $'
 ! !