Index: srcbar.itcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srcbar.itcl,v
retrieving revision 1.20
diff -p -r1.20 srcbar.itcl
*** srcbar.itcl	15 Oct 2002 21:19:51 -0000	1.20
--- srcbar.itcl	11 Nov 2002 22:37:05 -0000
*************** itcl::class SrcBar {
*** 462,471 ****
    #  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} \
        -underline 0
      $Menu add separator
      $Menu add command Other "About GDB..." \
--- 462,477 ----
    #  METHOD:  create_help_menu - Creates the standard help menu
    # ------------------------------------------------------------------  
    private method create_help_menu {} {
!     # 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..." \