Update to tk 8.5.19
This commit is contained in:
@@ -754,8 +754,13 @@ test menu-3.41 {MenuWidgetCmd procedure, "index" option} {
|
||||
catch {destroy .m1}
|
||||
menu .m1
|
||||
.m1 add command -label "test"
|
||||
list [catch {.m1 index "test"} msg] $msg [destroy .m1]
|
||||
} {0 1 {}}
|
||||
.m1 add command -label "3"
|
||||
.m1 add command -label "another label"
|
||||
.m1 add command -label "end"
|
||||
.m1 add command -label "3a"
|
||||
.m1 add command -label "final entry"
|
||||
list [.m1 index "test"] [.m1 index "3"] [.m1 index "3a"] [.m1 index "end"] [destroy .m1]
|
||||
} {1 3 5 6 {}}
|
||||
test menu-3.42 {MenuWidgetCmd procedure, "insert" option} {
|
||||
catch {destroy .m1}
|
||||
menu .m1
|
||||
@@ -2561,6 +2566,15 @@ test menu-36.1 {menu -underline string overruns Bug 1599877} {} {
|
||||
tk::TraverseToMenu . "e"
|
||||
} {}
|
||||
|
||||
test menu-37.1 {menubar menues cannot be posted - bug 2160206} {} {
|
||||
# On Linux the following used to panic
|
||||
# It now returns an error (on all platforms)
|
||||
catch {destroy .m}
|
||||
menu .m -type menubar
|
||||
list [catch ".m post 1 1" msg] $msg
|
||||
} {1 {a menubar menu cannot be posted}}
|
||||
|
||||
|
||||
# cleanup
|
||||
deleteWindows
|
||||
cleanupTests
|
||||
|
||||
Reference in New Issue
Block a user