summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordrh <drh@sqlite.org>2001-11-27 14:08:04 (GMT)
committerdrh <drh@sqlite.org>2001-11-27 14:08:04 (GMT)
commitfcc2a1cf19f07f1d0ddf45a86726eef7cd18e2b2 (patch)
tree90ac322a850756c0dc65c3caa33c3ed7834f544f /library
parent3be7b28beca41a79f04ec5937636395f5feb9fdf (diff)
downloadtk-fcc2a1cf19f07f1d0ddf45a86726eef7cd18e2b2.zip
tk-fcc2a1cf19f07f1d0ddf45a86726eef7cd18e2b2.tar.gz
tk-fcc2a1cf19f07f1d0ddf45a86726eef7cd18e2b2.tar.bz2
When a menu is torn off, a new "clone" menu is created which is an exact
copy of the original. The copy even includes the tearoff bar, though the tearoff bar is not displayed. But even though it wasn't displayed, the tearoff bar on the tearoff menu could be visited using keyboard traversal. This change makes it so that the (invisible) tearoff bar of tearoff menus is no longer visited on keyboard traversal.
Diffstat (limited to 'library')
-rw-r--r--library/menu.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/library/menu.tcl b/library/menu.tcl
index 567a306..5f7352b 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -4,7 +4,7 @@
# It also implements keyboard traversal of menus and implements a few
# other utility procedures related to menus.
#
-# RCS: @(#) $Id: menu.tcl,v 1.14 2001/11/16 22:54:22 hobbs Exp $
+# RCS: @(#) $Id: menu.tcl,v 1.15 2001/11/27 14:08:04 drh Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -870,7 +870,9 @@ proc ::tk::MenuNextEntry {menu count} {
incr i -$length
}
if {[catch {$menu entrycget $i -state} state] == 0} {
- if {[string compare $state "disabled"]} {
+ if {$state!="disabled" &&
+ ($i!=0 || [$menu cget -type]!="tearoff"
+ || [$menu type 0]!="tearoff")} {
break
}
}