--- a/MultiViewToolApplication.st	Fri Oct 23 11:05:31 2009 +0200
+++ b/MultiViewToolApplication.st	Fri Oct 23 11:20:35 2009 +0200
@@ -477,8 +477,8 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:WorkspaceApplication andSelector:#viewMenu
-     (Menu new fromLiteralArrayEncoding:(WorkspaceApplication viewMenu)) startUp
+     MenuEditor new openOnClass:MultiViewToolApplication andSelector:#viewMenu
+     (Menu new fromLiteralArrayEncoding:(MultiViewToolApplication viewMenu)) startUp
     "
 
     <resource: #menu>
@@ -495,9 +495,9 @@
          (MenuItem
             label: 'Editor Toolbar'
             translateLabel: true
+            isVisible: hasEditToolBar
             hideMenuOnActivated: false
             indication: editToolBarVisibleHolder
-            isVisible: hasEditToolBar
           )
          (MenuItem
             label: 'Info'
@@ -506,12 +506,18 @@
             hideMenuOnActivated: false
             indication: infoVisibleHolder
           )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Settings...'
+            itemValue: openSettingsDialog
+            translateLabel: true
+          )
          )
         nil
         nil
       )
-
-    "Modified: / 14-07-2007 / 16:49:04 / cg"
 ! !
 
 !MultiViewToolApplication class methodsFor:'queries'!
@@ -998,6 +1004,31 @@
     "Modified: / 25-10-2006 / 14:39:15 / cg"
 !
 
+openSTXDocumentation
+    "opens the top documentation file"
+
+    self openHTMLDocument: 'TOP.html'
+!
+
+openSettingsDialog
+    |settingsList settingsApp|
+
+    settingsList := 
+        #(
+           #('Keyboard Mappings'    #'AbstractSettingsApplication::KbdMappingSettingsAppl'          )
+"/           #('Debugger'             #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
+           #('Editor'               #'AbstractSettingsApplication::EditSettingsAppl'                )
+"/           #('Syntax Color'         #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
+"/           #('Code Format'          #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
+        ).
+
+    settingsApp := SettingsDialog new.
+    settingsApp installSettingsEntries:settingsList.
+    settingsApp allButOpen.
+    settingsApp window label:('Debugger Settings').
+    settingsApp openWindow.
+!
+
 printIt
 !
 
@@ -1273,5 +1304,9 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.32 2009-09-22 20:31:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.33 2009-10-23 09:20:35 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.33 2009-10-23 09:20:35 cg Exp $'
 ! !