diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-09 00:48:36 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-09 00:48:36 (GMT) |
| commit | 0d5ee63431a40ebbe9d3a895d1ca2a3bb9a30cd0 (patch) | |
| tree | b96c64e99d40e9797e3a01fd72f2950b78e67200 /library | |
| parent | 7540b82fe0542de05038049569f2b6656338dd18 (diff) | |
| download | tk-0d5ee63431a40ebbe9d3a895d1ca2a3bb9a30cd0.zip tk-0d5ee63431a40ebbe9d3a895d1ca2a3bb9a30cd0.tar.gz tk-0d5ee63431a40ebbe9d3a895d1ca2a3bb9a30cd0.tar.bz2 | |
TIP 360: Remove special handling of .help menu on X11.
Tk is the only toolkit to continue the Motif scheme of anchoring a Help
menu to the extreme right of the menubar. This patch disables the special
handling of the .help menu so that the help menu will be grouped with the
other menu items as is common with other toolkits.
The old behaviour can be restored by setting the option *Menu.useMotifHelp
to true or by calling 'tk::classic::restore menu'.
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Diffstat (limited to 'library')
| -rw-r--r-- | library/obsolete.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/obsolete.tcl b/library/obsolete.tcl index fe19367..64852d8 100644 --- a/library/obsolete.tcl +++ b/library/obsolete.tcl @@ -3,7 +3,7 @@ # This file contains obsolete procedures that people really shouldn't # be using anymore, but which are kept around for backward compatibility. # -# RCS: @(#) $Id: obsolete.tcl,v 1.5 2010/01/09 00:43:46 patthoyts Exp $ +# RCS: @(#) $Id: obsolete.tcl,v 1.6 2010/01/09 00:48:36 patthoyts Exp $ # # Copyright (c) 1994 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. @@ -118,6 +118,7 @@ proc ::tk::classic::restore_menu {args} { option add *Menu.activeBorderWidth 2 $prio; # 1 option add *Menu.borderWidth 2 $prio; # 1 option add *Menu.clickToFocus true $prio + option add *Menu.useMotifHelp true $prio } if {[tk windowingsystem] ne "aqua"} { option add *Menu.font "TkDefaultFont" $prio; # "TkMenuFont" |