Imported Tk 8.6.9

This commit is contained in:
Steve Dower
2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions

View File

@@ -140,7 +140,7 @@ test wm-attributes-1.2.4 {usage} -constraints {unix notAqua} -returnCodes error
} -result {bad attribute "_": must be -alpha, -topmost, -zoomed, -fullscreen, or -type}
test wm-attributes-1.2.5 {usage} -constraints aqua -returnCodes error -body {
wm attributes . _
} -result {bad attribute "_": must be -alpha, -modified, -notify, or -titlepath}
} -result {bad attribute "_": must be -alpha, -fullscreen, -modified, -notify, -titlepath, -topmost, or -transparent}
### wm client ###
@@ -737,11 +737,11 @@ test wm-iconbitmap-1.2.2 {usage} -constraints win -returnCodes error -body {
test wm-iconbitmap-1.3 {usage} -constraints win -returnCodes error -body {
wm iconbitmap .t 12 13
} -result {illegal option "12" must be "-default"}
test wm-iconbitmap-1.4 {usage} -returnCodes error -body {
test wm-iconbitmap-1.4 {usage} -constraints notAqua -returnCodes error -body {
wm iconbitmap .t bad-bitmap
} -result {bitmap "bad-bitmap" not defined}
test wm-iconbitmap-2.1 {setting and reading values} -setup {
test wm-iconbitmap-2.1 {setting and reading values} -constraints notAqua -setup {
set result {}
} -body {
lappend result [wm iconbitmap .t]
@@ -1242,13 +1242,15 @@ test wm-resizable-1.5 {usage} -returnCodes error -body {
} -result {expected boolean value but got "bad"}
test wm-resizable-2.1 {setting and reading values} {
wm resizable .t 0 1
wm resizable .t 0 0
set result [wm resizable .t]
wm resizable .t 0 1
lappend result [wm resizable .t]
wm resizable .t 1 0
lappend result [wm resizable .t]
wm resizable .t 1 1
lappend result [wm resizable .t]
} {0 1 {1 0} {1 1}}
} {0 0 {0 1} {1 0} {1 1}}
### wm sizefrom ###