Tk Source Code

Check-in [91fc5813]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 91fc5813e9c8709e22b26179a9ec48a2924663c9
User & Date: fvogel 2015-07-28 20:31:10
Original Comment: Fixed bug [1236306fff - TraverseToMenu error with alt binding to toplevel destroy
Context
2015-07-28
22:18
Made textDisp-4.9 more robust to font variations across platforms, so that it passes on Linux Debian 6.0 check-in: 5dcefdbe user: fvogel tags: trunk
20:31
Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy check-in: 91fc5813 user: fvogel tags: trunk
20:30
Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy check-in: 77065697 user: fvogel tags: core-8-5-branch
2015-07-16
20:10
Fixed bug [2886436fff] - [.txt] deletes before start index - by appyling the patch proposed in the ticket: no deletion will ever happen before the start index anymore check-in: c1fe3071 user: fvogel tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/menu.tcl.

1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
#				a toplevel window).
# char -			Character that selects a menu.  The case
#				is ignored.  If an empty string, nothing
#				happens.

proc ::tk::TraverseToMenu {w char} {
    variable ::tk::Priv
    if {$char eq ""} {
	return
    }
    while {[winfo class $w] eq "Menu"} {
	if {[$w cget -type] eq "menubar"} {
	    break
	} elseif {$Priv(postedMb) eq ""} {
	    return







|







1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
#				a toplevel window).
# char -			Character that selects a menu.  The case
#				is ignored.  If an empty string, nothing
#				happens.

proc ::tk::TraverseToMenu {w char} {
    variable ::tk::Priv
    if {![winfo exists $w] || $char eq ""} {
	return
    }
    while {[winfo class $w] eq "Menu"} {
	if {[$w cget -type] eq "menubar"} {
	    break
	} elseif {$Priv(postedMb) eq ""} {
	    return