[patch] help menubar change

[patch] help menubar change

[Martin M. Hunt]

[-- Attachment #1: Type: text/plain, Size: 367 bytes --]

Minor change.  Tk uses Motif-style help, which is on the far right of
the menubar.  GNOME and KDE style is like Windows.

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.



[-- Attachment #2: p --]
[-- Type: text/x-patch, Size: 1506 bytes --]

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..." \