Imported Tk 8.6.9
This commit is contained in:
@@ -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 ###
|
||||
|
||||
Reference in New Issue
Block a user