This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[patch] help menubar change
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: "insight at sources dot redhat dot com" <insight at sources dot redhat dot com>
- Date: 11 Nov 2002 14:40:35 -0800
- Subject: [patch] help menubar change
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.
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..." \