2002-11-11 Martin M. Hunt <hunt@redhat.com>

	* library/srcbar.itcl (create_help_menu): For unix systems,
	if compatibility is set to KDE or GNOME, put the help menu
	in the right place. Otherwise put it on the far right, like
	Motif does.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 90bf2d3..a5f9de2 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,12 @@
 2002-11-11  Martin M. Hunt  <hunt@redhat.com>  
 
+       * library/srcbar.itcl (create_help_menu): For unix systems,
+       if compatibility is set to KDE or GNOME, put the help menu
+       in the right place. Otherwise put it on the far right, like
+       Motif does.
+
+2002-11-11  Martin M. Hunt  <hunt@redhat.com>  
+       
        * library/helpviewer.tcl: New file. Finds
        an appropriate help browser and displays the help files.
 

diff --git a/gdb/gdbtk/library/srcbar.itcl b/gdb/gdbtk/library/srcbar.itcl
index 9e2d4ad..be96ffb 100644 (file)
--- a/gdb/gdbtk/library/srcbar.itcl
+++ b/gdb/gdbtk/library/srcbar.itcl
@@ -462,10 +462,16 @@ itcl::class SrcBar {
   #  METHOD:  create_help_menu - Creates the standard help menu
   # ------------------------------------------------------------------  
   private method create_help_menu {} {
-
-    $Menu add menubutton help "Help" 0
-    $Menu add command Other "Help Topics" \
-      {HtmlViewer::open_help index.html} \
+    # KDE and GNOME like the help menu to be the last item in the menubar.
+    # The default Unix behavior is to be at the far right of the menubar.
+    set os [pref get gdb/compat]
+    if {$os == "KDE" || $os == "GNOME"} {
+      set helpmenu "_help"
+    } else {
+      set helpmenu "help"
+    }
+    $Menu add menubutton $helpmenu "Help" 0
+    $Menu add command Other "Help Topics" {open_help index.html} \
       -underline 0
     $Menu add separator
     $Menu add command Other "About GDB..." \