--- a/DebugView.st	Wed May 13 09:51:34 2009 +0200
+++ b/DebugView.st	Wed May 13 10:03:14 2009 +0200
@@ -474,6 +474,38 @@
      #(Menu
         (
          (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Report a Bug via eMail'
+                  itemValue: doOpenReportMailApp
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Exit'
+                  itemValue: closeRequest
+                  translateLabel: true
+                  isVisible: isInspecting
+                )
+               (MenuItem
+                  label: 'Close Debugger and Abort'
+                  itemValue: closeRequest
+                  translateLabel: true
+                  isVisible: isNotInspecting
+                )
+               )
+              nil
+              nil
+            )
+          )
+
+         (MenuItem
             label: 'View'
             translateLabel: true
             submenu: 
@@ -510,16 +542,9 @@
                   label: '-'
                 )
                (MenuItem
-                  label: 'Exit'
-                  itemValue: closeRequest
+                  label: 'Settings...'
+                  itemValue: openSettingsDialog
                   translateLabel: true
-                  isVisible: isInspecting
-                )
-               (MenuItem
-                  label: 'Close Debugger and Abort'
-                  itemValue: closeRequest
-                  translateLabel: true
-                  isVisible: isNotInspecting
                 )
                )
               nil
@@ -4235,10 +4260,10 @@
 
     settingsList := 
         #(
+           #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
            #('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
            #('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
            #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
-           #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
         ).
 
     settingsApp := SettingsDialog new.
@@ -6646,7 +6671,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.466 2009-05-12 07:43:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.467 2009-05-13 08:03:14 cg Exp $'
 ! !
 
 DebugView initialize!