Tk Source Code

Check-in [77065697]
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 | core-8-5-branch
Files: files | file ages | folders
SHA1: 7706569715b54bceb82a5c4800a6606d7f23659b
User & Date: fvogel 2015-07-28 20:30:08
Original Comment: Fixed bug [1236306fff - TraverseToMenu error with alt binding to toplevel destroy
Context
2015-07-28
22:17
Made textDisp-4.9 more robust to font variations across platforms, so that it passes on Linux Debian 6.0 check-in: 789fafbf user: fvogel tags: core-8-5-branch
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
19:49
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: 296bd4c3 user: fvogel tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/menu.tcl.

1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
#				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







|







1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
#				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