diff options
Diffstat (limited to 'tests/wm.test')
| -rw-r--r-- | tests/wm.test | 224 |
1 files changed, 39 insertions, 185 deletions
diff --git a/tests/wm.test b/tests/wm.test index e3c5c92..44cb429 100644 --- a/tests/wm.test +++ b/tests/wm.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: wm.test,v 1.30 2004/10/29 22:28:30 mdejong Exp $ +# RCS: @(#) $Id: wm.test,v 1.31 2005/02/09 09:32:26 dkf Exp $ # This file tests window manager interactions that work across # platforms. Window manager tests that only work on a specific @@ -45,19 +45,15 @@ stdWindow test wm-1.1 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-1.2 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm foo} msg] $msg } {1 {bad option "foo": must be aspect, attributes, client, colormapwindows, command, deiconify, focusmodel, frame, geometry, grid, group, iconbitmap, iconify, iconmask, iconname, iconphoto, iconposition, iconwindow, maxsize, minsize, overrideredirect, positionfrom, protocol, resizable, sizefrom, stackorder, state, title, transient, or withdraw}} - test wm-1.3 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm command} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-1.4 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm aspect bogus} msg] $msg } {1 {bad window path name "bogus"}} - test wm-1.5 {Tk_WmObjCmd procedure, miscellaneous errors} { catch {destroy .b} button .b -text hello @@ -65,50 +61,40 @@ test wm-1.5 {Tk_WmObjCmd procedure, miscellaneous errors} { } {1 {window ".b" isn't a top-level window}} +### wm aspect ### test wm-aspect-1.1 {usage} { list [catch {wm aspect} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-aspect-1.2 {usage} { list [catch {wm aspect . _} err] $err } {1 {wrong # args: should be "wm aspect window ?minNumer minDenom maxNumer maxDenom?"}} - test wm-aspect-1.3 {usage} { list [catch {wm aspect . _ _ _} err] $err } {1 {wrong # args: should be "wm aspect window ?minNumer minDenom maxNumer maxDenom?"}} - test wm-aspect-1.4 {usage} { list [catch {wm aspect . _ _ _ _ _} err] $err } {1 {wrong # args: should be "wm aspect window ?minNumer minDenom maxNumer maxDenom?"}} - test wm-aspect-1.5 {usage} { list [catch {wm aspect . bad 14 15 16} msg] $msg } {1 {expected integer but got "bad"}} - test wm-aspect-1.6 {usage} { list [catch {wm aspect . 13 foo 15 16} msg] $msg } {1 {expected integer but got "foo"}} - test wm-aspect-1.7 {usage} { list [catch {wm aspect . 13 14 bar 16} msg] $msg } {1 {expected integer but got "bar"}} - test wm-aspect-1.8 {usage} { list [catch {wm aspect . 13 14 15 baz} msg] $msg } {1 {expected integer but got "baz"}} - test wm-aspect-1.9 {usage} { list [catch {wm aspect . 0 14 15 16} msg] $msg } {1 {aspect number can't be <= 0}} - test wm-aspect-1.10 {usage} { list [catch {wm aspect . 13 0 15 16} msg] $msg } {1 {aspect number can't be <= 0}} - test wm-aspect-1.11 {usage} { list [catch {wm aspect . 13 14 0 16} msg] $msg } {1 {aspect number can't be <= 0}} - test wm-aspect-1.12 {usage} { list [catch {wm aspect . 13 14 15 0} msg] $msg } {1 {aspect number can't be <= 0}} @@ -123,31 +109,28 @@ test wm-aspect-2.1 {setting and reading values} { } [list {} {3 4 10 2} {}] +### wm attributes ### test wm-attributes-1.1 {usage} { list [catch {wm attributes} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-attributes-1.2.1 {usage} win { list [catch {wm attributes . _} err] $err } {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-disabled ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} - test wm-attributes-1.2.2 {usage} win { list [catch {wm attributes . -alpha 1.0 -disabled} err] $err } {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-disabled ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} - test wm-attributes-1.2.3 {usage} win { list [catch {wm attributes . -to} err] $err } {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-disabled ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} - test wm-attributes-1.2.4 {usage} unix { list [catch {wm attributes . _} err] $err } {1 {wrong # args: should be "wm attributes window"}} +### wm client ### test wm-client-1.1 {usage} { list [catch {wm client} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-client-1.2 {usage} { list [catch {wm client . _ _} err] $err } {1 {wrong # args: should be "wm client window ?name?"}} @@ -162,18 +145,16 @@ test wm-client-2.1 {setting and reading values} { } [list {} Miffo {}] +### wm colormapwindows ### test wm-colormapwindows-1.1 {usage} { list [catch {wm colormapwindows} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-colormapwindows-1.2 {usage} { list [catch {wm colormapwindows . _ _} err] $err } {1 {wrong # args: should be "wm colormapwindows window ?windowList?"}} - test wm-colormapwindows-1.3 {usage} { list [catch {wm colormapwindows . "a \{"} msg] $msg } {1 {unmatched open brace in list}} - test wm-colormapwindows-1.4 {usage} { list [catch {wm colormapwindows . foo} msg] $msg } {1 {bad window path name "foo"}} @@ -192,7 +173,6 @@ test wm-colormapwindows-2.1 {reading values} { update list $x [wm colormapwindows .t2] } {{.t2.b .t2} {.t2.b .t2.c .t2}} - test wm-colormapwindows-2.2 {setting and reading values} { catch {destroy .t2} toplevel .t2 -width 200 -height 200 @@ -206,14 +186,13 @@ test wm-colormapwindows-2.2 {setting and reading values} { } {.t2.b .t2.a} +### wm command ### test wm-command-1.1 {usage} { list [catch {wm command} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-command-1.2 {usage} { list [catch {wm command . _ _} err] $err } {1 {wrong # args: should be "wm command window ?value?"}} - test wm-command-1.3 {usage} { list [catch {wm command . "a \{"} msg] $msg } {1 {unmatched open brace in list}} @@ -228,18 +207,16 @@ test wm-command-2.1 {setting and reading values} { } [list {} [list Miffo Foo] {}] +### wm deiconify ### test wm-deiconify-1.1 {usage} { list [catch {wm deiconify} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-deiconify-1.2 {usage} { list [catch {wm deiconify . _} err] $err } {1 {wrong # args: should be "wm deiconify window"}} - test wm-deiconify-1.3 {usage} { list [catch {wm deiconify _} err] $err } {1 {bad window path name "_"}} - test wm-deiconify-1.4 {usage} { catch {destroy .icon} toplevel .icon -width 50 -height 50 -bg red @@ -248,7 +225,6 @@ test wm-deiconify-1.4 {usage} { destroy .icon set result } {1 {can't deiconify .icon: it is an icon for .t}} - test wm-deiconify-1.5 {usage} { catch {destroy .embed} frame .t.f -container 1 @@ -265,7 +241,6 @@ test wm-deiconify-2.1 {a window that has never been mapped wm deiconify .t winfo ismapped .t } 0 - test wm-deiconify-2.2 {a window that has already been mapped should be mapped by deiconify} { deleteWindows @@ -275,7 +250,6 @@ test wm-deiconify-2.2 {a window that has already been wm deiconify .t winfo ismapped .t } 1 - test wm-deiconify-2.3 {geometry for an unmapped window should not be calculated by a call to deiconify, it should be done at idle time} { @@ -289,7 +263,6 @@ test wm-deiconify-2.3 {geometry for an unmapped window lappend results [lindex [split \ [wm geometry .t] +] 0] } {1x1+0+0 1x1+0+0 200x200} - test wm-deiconify-2.4 {invoking destroy after a deiconify should not result in a crash because of a callback set on the toplevel} { @@ -302,14 +275,13 @@ test wm-deiconify-2.4 {invoking destroy after a deiconify } {} +### wm focusmodel ### test wm-focusmodel-1.1 {usage} { list [catch {wm focusmodel} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-focusmodel-1.2 {usage} { list [catch {wm focusmodel . _ _} err] $err } {1 {wrong # args: should be "wm focusmodel window ?active|passive?"}} - test wm-focusmodel-1.3 {usage} { list [catch {wm focusmodel . bogus} msg] $msg } {1 {bad argument "bogus": must be active or passive}} @@ -327,23 +299,22 @@ test wm-focusmodel-2.1 {setting and reading values} { } {passive active passive} +### wm frame ### test wm-frame-1.1 {usage} { list [catch {wm frame} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-frame-1.2 {usage} { list [catch {wm frame . _} err] $err } {1 {wrong # args: should be "wm frame window"}} +### wm geometry ### test wm-geometry-1.1 {usage} { list [catch {wm geometry} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-geometry-1.2 {usage} { list [catch {wm geometry . _ _} err] $err } {1 {wrong # args: should be "wm geometry window ?newGeometry?"}} - test wm-geometry-1.3 {usage} { list [catch {wm geometry . bogus} msg] $msg } {1 {bad geometry specifier "bogus"}} @@ -359,50 +330,40 @@ test wm-geometry-2.1 {setting values} { } [list 150x150+50+50 0] +### wm grid ### test wm-grid-1.1 {usage} { list [catch {wm grid} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-grid-1.2 {usage} { list [catch {wm grid . _} err] $err } {1 {wrong # args: should be "wm grid window ?baseWidth baseHeight widthInc heightInc?"}} - test wm-grid-1.3 {usage} { list [catch {wm grid . _ _ _} err] $err } {1 {wrong # args: should be "wm grid window ?baseWidth baseHeight widthInc heightInc?"}} - test wm-grid-1.4 {usage} { list [catch {wm grid . _ _ _ _ _} err] $err } {1 {wrong # args: should be "wm grid window ?baseWidth baseHeight widthInc heightInc?"}} - test wm-grid-1.5 {usage} { list [catch {wm grid . bad 14 15 16} msg] $msg } {1 {expected integer but got "bad"}} - test wm-grid-1.6 {usage} { list [catch {wm grid . 13 foo 15 16} msg] $msg } {1 {expected integer but got "foo"}} - test wm-grid-1.7 {usage} { list [catch {wm grid . 13 14 bar 16} msg] $msg } {1 {expected integer but got "bar"}} - test wm-grid-1.8 {usage} { list [catch {wm grid . 13 14 15 baz} msg] $msg } {1 {expected integer but got "baz"}} - test wm-grid-1.9 {usage} { list [catch {wm grid . -1 14 15 16} msg] $msg } {1 {baseWidth can't be < 0}} - test wm-grid-1.10 {usage} { list [catch {wm grid . 13 -1 15 16} msg] $msg } {1 {baseHeight can't be < 0}} - test wm-grid-1.11 {usage} { list [catch {wm grid . 13 14 -1 16} msg] $msg } {1 {widthInc can't be <= 0}} - test wm-grid-1.12 {usage} { list [catch {wm grid . 13 14 15 -1} msg] $msg } {1 {heightInc can't be <= 0}} @@ -417,14 +378,13 @@ test wm-grid-2.1 {setting and reading values} { } [list {} {3 4 10 2} {}] +### wm group ### test wm-group-1.1 {usage} { list [catch {wm group} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-group-1.2 {usage} { list [catch {wm group .t 12 13} msg] $msg } {1 {wrong # args: should be "wm group window ?pathName?"}} - test wm-group-1.3 {usage} { list [catch {wm group .t bogus} msg] $msg } {1 {bad window path name "bogus"}} @@ -439,22 +399,19 @@ test wm-group-2.1 {setting and reading values} { } [list {} . {}] +### wm iconbitmap ### test wm-iconbitmap-1.1 {usage} { list [catch {wm iconbitmap} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconbitmap-1.2.1 {usage} unix { list [catch {wm iconbitmap .t 12 13} msg] $msg } {1 {wrong # args: should be "wm iconbitmap window ?bitmap?"}} - test wm-iconbitmap-1.2.2 {usage} win { list [catch {wm iconbitmap .t 12 13 14} msg] $msg } {1 {wrong # args: should be "wm iconbitmap window ?-default? ?image?"}} - test wm-iconbitmap-1.3 {usage} win { list [catch {wm iconbitmap .t 12 13} msg] $msg } {1 {illegal option "12" must be "-default"}} - test wm-iconbitmap-1.4 {usage} { list [catch {wm iconbitmap .t bad-bitmap} msg] $msg } {1 {bitmap "bad-bitmap" not defined}} @@ -469,10 +426,10 @@ test wm-iconbitmap-2.1 {setting and reading values} { } [list {} hourglass {}] +### wm iconify ### test wm-iconify-1.1 {usage} { list [catch {wm iconify} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconify-1.2 {usage} { list [catch {wm iconify .t _} msg] $msg } {1 {wrong # args: should be "wm iconify window"}} @@ -485,7 +442,6 @@ test wm-iconify-2.1 {Misc errors} { destroy .t2 set result } {1 {can't iconify ".t2": override-redirect flag is set}} - test wm-iconify-2.2 {Misc errors} { catch {destroy .t2} toplevel .t2 @@ -495,7 +451,6 @@ test wm-iconify-2.2 {Misc errors} { destroy .t2 set result } {1 {can't iconify ".t2": it is a transient}} - test wm-iconify-2.3 {Misc errors} { catch {destroy .t2} toplevel .t2 @@ -505,7 +460,6 @@ test wm-iconify-2.3 {Misc errors} { destroy .t2 set result } {1 {can't iconify .t2: it is an icon for .t}} - test wm-iconify-2.4 {Misc errors} { catch {destroy .t2} frame .t.f -container 1 @@ -529,14 +483,13 @@ test wm-iconify-3.1 {} { } {1 0} +### wm iconmask ### test wm-iconmask-1.1 {usage} { list [catch {wm iconmask} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconmask-1.2 {usage} { list [catch {wm iconmask .t 12 13} msg] $msg } {1 {wrong # args: should be "wm iconmask window ?bitmap?"}} - test wm-iconmask-1.3 {usage} { list [catch {wm iconmask .t bad-bitmap} msg] $msg } {1 {bitmap "bad-bitmap" not defined}} @@ -551,10 +504,10 @@ test wm-iconmask-2.1 {setting and reading values} { } [list {} hourglass {}] +### wm iconname ### test wm-iconname-1.1 {usage} { list [catch {wm iconname} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconname-1.2 {usage} { list [catch {wm iconname .t 12 13} msg] $msg } {1 {wrong # args: should be "wm iconname window ?newName?"}} @@ -569,10 +522,10 @@ test wm-iconname-2.1 {setting and reading values} { } [list {} ThisIconHasAName {}] +### wm iconphoto ### test wm-iconphoto-1.1 {usage} { list [catch {wm iconphoto} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconphoto-1.2 {usage} { list [catch {wm iconphoto .} msg] $msg } {1 {wrong # args: should be "wm iconphoto window ?-default? image1 ?image2 ...?"}} @@ -586,22 +539,20 @@ test wm-iconphoto-1.4 {usage} { # All other iconphoto tests are platform specific + +### wm iconposition ### test wm-iconposition-1.1 {usage} { list [catch {wm iconposition} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconposition-1.2 {usage} { list [catch {wm iconposition .t 12} msg] $msg } {1 {wrong # args: should be "wm iconposition window ?x y?"}} - test wm-iconposition-1.3 {usage} { list [catch {wm iconposition .t 12 13 14} msg] $msg } {1 {wrong # args: should be "wm iconposition window ?x y?"}} - test wm-iconposition-1.4 {usage} { list [catch {wm iconposition .t bad 13} msg] $msg } {1 {expected integer but got "bad"}} - test wm-iconposition-1.5 {usage} { list [catch {wm iconposition .t 13 lousy} msg] $msg } {1 {expected integer but got "lousy"}} @@ -616,18 +567,16 @@ test wm-iconposition-2.1 {setting and reading values} { } [list {} {10 20} {}] +### wm iconwindow ### test wm-iconwindow-1.1 {usage} { list [catch {wm iconwindow} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-iconwindow-1.2 {usage} { list [catch {wm iconwindow .t 12 13} msg] $msg } {1 {wrong # args: should be "wm iconwindow window ?pathName?"}} - test wm-iconwindow-1.3 {usage} { list [catch {wm iconwindow .t bogus} msg] $msg } {1 {bad window path name "bogus"}} - test wm-iconwindow-1.4 {usage} { catch {destroy .b} button .b -text Help @@ -635,7 +584,6 @@ test wm-iconwindow-1.4 {usage} { destroy .b set result } {1 {can't use .b as icon window: not at top level}} - test wm-iconwindow-1.5 {usage} { catch {destroy .icon} toplevel .icon -width 50 -height 50 -bg green @@ -662,26 +610,22 @@ test wm-iconwindow-2.1 {setting and reading values} { } [list {} .icon {}] +### wm maxsize ### test wm-maxsize-1.1 {usage} { list [catch {wm maxsize} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-maxsize-1.2 {usage} { list [catch {wm maxsize . a} msg] $msg } {1 {wrong # args: should be "wm maxsize window ?width height?"}} - test wm-maxsize-1.3 {usage} { list [catch {wm maxsize . a b c} msg] $msg } {1 {wrong # args: should be "wm maxsize window ?width height?"}} - test wm-maxsize-1.4 {usage} { list [catch {wm maxsize . x 100} msg] $msg } {1 {expected integer but got "x"}} - test wm-maxsize-1.5 {usage} { list [catch {wm maxsize . 100 bogus} msg] $msg } {1 {expected integer but got "bogus"}} - test wm-maxsize-1.6 {usage} { catch {destroy .t2} toplevel .t2 @@ -690,7 +634,6 @@ test wm-maxsize-1.6 {usage} { destroy .t2 set result } {300 200} - test wm-maxsize-1.7 {maxsize must be <= screen size} { destroy .t toplevel .t @@ -710,7 +653,6 @@ test wm-maxsize-2.1 {setting the maxsize to a value smaller update lrange [split [wm geom .t] x+] 0 1 } {200 150} - test wm-maxsize-2.2 {setting the maxsize to a value smaller than the current size will resize a gridded toplevel} { destroy .t @@ -723,7 +665,6 @@ test wm-maxsize-2.2 {setting the maxsize to a value smaller update lrange [split [wm geom .t] x+] 0 1 } {4 3} - test wm-maxsize-2.3 {attempting to resize to a value bigger than the current maxsize will set it to the max size} { @@ -735,7 +676,6 @@ test wm-maxsize-2.3 {attempting to resize to a value update lrange [split [wm geom .t] x+] 0 1 } {300 250} - test wm-maxsize-2.4 {attempting to resize to a value bigger than the current maxsize will set it to the max size when gridded} { @@ -749,7 +689,6 @@ test wm-maxsize-2.4 {attempting to resize to a value update lrange [split [wm geom .t] x+] 0 1 } {6 5} - test wm-maxsize-2.5 {Use max size if window size is not explicitly set and the reqWidth/reqHeight are bigger than the max size} { @@ -764,26 +703,23 @@ test wm-maxsize-2.5 {Use max size if window size is not list $req [lrange [split [wm geom .t] x+] 0 1] } {{400 400} {300 300}} + +### wm minsize ### test wm-minsize-1.1 {usage} { list [catch {wm minsize} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-minsize-1.2 {usage} { list [catch {wm minsize . a} msg] $msg } {1 {wrong # args: should be "wm minsize window ?width height?"}} - test wm-minsize-1.3 {usage} { list [catch {wm minsize . a b c} msg] $msg } {1 {wrong # args: should be "wm minsize window ?width height?"}} - test wm-minsize-1.4 {usage} { list [catch {wm minsize . x 100} msg] $msg } {1 {expected integer but got "x"}} - test wm-minsize-1.5 {usage} { list [catch {wm minsize . 100 bogus} msg] $msg } {1 {expected integer but got "bogus"}} - test wm-minsize-1.6 {usage} { catch {destroy .t2} toplevel .t2 @@ -803,7 +739,6 @@ test wm-minsize-2.1 {setting the minsize to a value larger update lrange [split [wm geom .t] x+] 0 1 } {400 300} - test wm-minsize-2.2 {setting the minsize to a value larger than the current size will resize a gridded toplevel} { destroy .t @@ -816,7 +751,6 @@ test wm-minsize-2.2 {setting the minsize to a value larger update lrange [split [wm geom .t] x+] 0 1 } {8 8} - test wm-minsize-2.3 {attempting to resize to a value smaller than the current minsize will set it to the minsize} { @@ -828,7 +762,6 @@ test wm-minsize-2.3 {attempting to resize to a value update lrange [split [wm geom .t] x+] 0 1 } {300 300} - test wm-minsize-2.4 {attempting to resize to a value smaller than the current minsize will set it to the minsize when gridded} { @@ -842,7 +775,6 @@ test wm-minsize-2.4 {attempting to resize to a value update lrange [split [wm geom .t] x+] 0 1 } {6 6} - test wm-minsize-2.5 {Use min size if window size is not explicitly set and the reqWidth/reqHeight are smaller than the min size} { @@ -857,14 +789,14 @@ test wm-minsize-2.5 {Use min size if window size is not list $req [lrange [split [wm geom .t] x+] 0 1] } {{250 250} {300 300}} + +### wm overrideredirect ### test wm-overrideredirect-1.1 {usage} { list [catch {wm overrideredirect} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-overrideredirect-1.2 {usage} { list [catch {wm overrideredirect .t 1 2} msg] $msg } {1 {wrong # args: should be "wm overrideredirect window ?boolean?"}} - test wm-overrideredirect-1.3 {usage} { list [catch {wm overrideredirect .t boo} msg] $msg } {1 {expected boolean value but got "boo"}} @@ -879,14 +811,13 @@ test wm-overrideredirect-2.1 {setting and reading values} { } {0 1 0} +### wm positionfrom ### test wm-positionfrom-1.1 {usage} { list [catch {wm positionfrom} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-positionfrom-1.2 {usage} { list [catch {wm positionfrom .t 1 2} msg] $msg } {1 {wrong # args: should be "wm positionfrom window ?user/program?"}} - test wm-positionfrom-1.3 {usage} { list [catch {wm positionfrom .t none} msg] $msg } {1 {bad argument "none": must be program or user}} @@ -906,10 +837,10 @@ test wm-positionfrom-2.1 {setting and reading values} { } {user program {}} +### wm protocol ### test wm-protocol-1.1 {usage} { list [catch {wm protocol} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-protocol-1.2 {usage} { list [catch {wm protocol .t 1 2 3} msg] $msg } {1 {wrong # args: should be "wm protocol window ?name? ?command?"}} @@ -922,7 +853,6 @@ test wm-protocol-2.1 {setting and reading values} { wm protocol .t bar {} set result } {bar {foo a}} - test wm-protocol-2.2 {setting and reading values} { set result {} wm protocol .t foo {a b c} @@ -932,7 +862,6 @@ test wm-protocol-2.2 {setting and reading values} { wm protocol .t bar {} lappend result [wm protocol .t foo] [wm protocol .t bar] } {{a b c} {test script for bar} {} {}} - test wm-protocol-2.3 {setting and reading values} { wm protocol .t foo {a b c} wm protocol .t foo {test script} @@ -942,22 +871,19 @@ test wm-protocol-2.3 {setting and reading values} { } {test script} +### wm resizable ### test wm-resizable-1.1 {usage} { list [catch {wm resizable} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-resizable-1.2 {usage} { list [catch {wm resizable .t 1} msg] $msg } {1 {wrong # args: should be "wm resizable window ?width height?"}} - test wm-resizable-1.3 {usage} { list [catch {wm resizable .t 1 2 3} msg] $msg } {1 {wrong # args: should be "wm resizable window ?width height?"}} - test wm-resizable-1.4 {usage} { list [catch {wm resizable .t bad 0} msg] $msg } {1 {expected boolean value but got "bad"}} - test wm-resizable-1.5 {usage} { list [catch {wm resizable .t 1 bad} msg] $msg } {1 {expected boolean value but got "bad"}} @@ -972,14 +898,13 @@ test wm-resizable-2.1 {setting and reading values} { } {0 1 {1 0} {1 1}} +### wm sizefrom ### test wm-sizefrom-1.1 {usage} { list [catch {wm sizefrom} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-sizefrom-1.2 {usage} { list [catch {wm sizefrom .t 1 2} msg] $msg } {1 {wrong # args: should be "wm sizefrom window ?user|program?"}} - test wm-sizefrom-1.4 {usage} { list [catch {wm sizefrom .t bad} msg] $msg } {1 {bad argument "bad": must be program or user}} @@ -995,38 +920,31 @@ test wm-sizefrom-2.1 {setting and reading values} { } {{} user program {}} - +### wm stackorder ### test wm-stackorder-1.1 {usage} { list [catch {wm stackorder} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-stackorder-1.2 {usage} { list [catch {wm stackorder . _} err] $err } {1 {wrong # args: should be "wm stackorder window ?isabove|isbelow window?"}} - test wm-stackorder-1.3 {usage} { list [catch {wm stackorder . _ _ _} err] $err } {1 {wrong # args: should be "wm stackorder window ?isabove|isbelow window?"}} - test wm-stackorder-1.4 {usage} { list [catch {wm stackorder . is .} err] $err } {1 {ambiguous argument "is": must be isabove or isbelow}} - test wm-stackorder-1.5 {usage} { list [catch {wm stackorder _} err] $err } {1 {bad window path name "_"}} - test wm-stackorder-1.6 {usage} { list [catch {wm stackorder . isabove _} err] $err } {1 {bad window path name "_"}} - test wm-stackorder-1.7 {usage} { catch {destroy .t} toplevel .t button .t.b list [catch {wm stackorder .t.b} err] $err } {1 {window ".t.b" isn't a top-level window}} - test wm-stackorder-1.8 {usage} { catch {destroy .t} toplevel .t @@ -1035,7 +953,6 @@ test wm-stackorder-1.8 {usage} { update list [catch {wm stackorder . isabove .t.b} err] $err } {1 {window ".t.b" isn't a top-level window}} - test wm-stackorder-1.9 {usage} { catch {destroy .t} toplevel .t @@ -1044,31 +961,25 @@ test wm-stackorder-1.9 {usage} { update list [catch {wm stackorder . isbelow .t.b} err] $err } {1 {window ".t.b" isn't a top-level window}} - test wm-stackorder-1.10 {usage, isabove|isbelow toplevels must be mapped} { catch {destroy .t} toplevel .t ; update wm withdraw .t list [catch {wm stackorder .t isabove .} err] $err } {1 {window ".t" isn't mapped}} - test wm-stackorder-1.11 {usage, isabove|isbelow toplevels must be mapped} { catch {destroy .t} toplevel .t ; update wm withdraw .t list [catch {wm stackorder . isbelow .t} err] $err } {1 {window ".t" isn't mapped}} - - deleteWindows - test wm-stackorder-2.1 {} { catch {destroy .t} toplevel .t ; update wm stackorder . } {. .t} - test wm-stackorder-2.2 {} { catch {destroy .t} toplevel .t ; update @@ -1076,7 +987,6 @@ test wm-stackorder-2.2 {} { raiseDelay wm stackorder . } {.t .} - test wm-stackorder-2.3 {} { catch {destroy .t} toplevel .t ; update @@ -1087,7 +997,6 @@ test wm-stackorder-2.3 {} { raiseDelay wm stackorder . } {.t . .t2} - test wm-stackorder-2.4 {} { catch {destroy .t} toplevel .t ; update @@ -1098,7 +1007,6 @@ test wm-stackorder-2.4 {} { raiseDelay wm stackorder . } {.t2 .t .} - test wm-stackorder-2.5 {} { catch {destroy .parent} toplevel .parent ; update @@ -1113,9 +1021,7 @@ test wm-stackorder-2.5 {} { raiseDelay wm stackorder .parent } {.parent.child2 .parent.child1 .parent} - deleteWindows - test wm-stackorder-2.6 {non-toplevel widgets ignored} { catch {destroy .t1} toplevel .t1 @@ -1124,16 +1030,12 @@ test wm-stackorder-2.6 {non-toplevel widgets ignored} { update wm stackorder . } {. .t1} - deleteWindows - test wm-stackorder-2.7 {no children returns self} { wm stackorder . } {.} - deleteWindows - test wm-stackorder-3.1 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1142,7 +1044,6 @@ test wm-stackorder-3.1 {unmapped toplevel} { wm iconify .t1 wm stackorder . } {. .t2} - test wm-stackorder-3.2 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1151,7 +1052,6 @@ test wm-stackorder-3.2 {unmapped toplevel} { wm withdraw .t2 wm stackorder . } {. .t1} - test wm-stackorder-3.3 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1160,7 +1060,6 @@ test wm-stackorder-3.3 {unmapped toplevel} { wm withdraw .t2 wm stackorder .t2 } {} - test wm-stackorder-3.4 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1168,7 +1067,6 @@ test wm-stackorder-3.4 {unmapped toplevel} { wm withdraw .t1.t2 wm stackorder .t1 } {.t1} - test wm-stackorder-3.5 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1176,7 +1074,6 @@ test wm-stackorder-3.5 {unmapped toplevel} { wm withdraw .t1 wm stackorder .t1 } {.t1.t2} - test wm-stackorder-3.6 {unmapped toplevel} { catch {destroy .t1} toplevel .t1 ; update @@ -1185,7 +1082,6 @@ test wm-stackorder-3.6 {unmapped toplevel} { wm withdraw .t1.t2 wm stackorder .t1 } {.t1 .t1.t2.t3} - test wm-stackorder-3.7 {unmapped toplevel, mapped children returned} { catch {destroy .t1} toplevel .t1 ; update @@ -1193,31 +1089,25 @@ test wm-stackorder-3.7 {unmapped toplevel, mapped children returned} { wm withdraw .t1 wm stackorder .t1 } {.t1.t2} - test wm-stackorder-3.8 {toplevel mapped in idle callback } { catch {destroy .t1} toplevel .t1 wm stackorder . } {.} - - deleteWindows - test wm-stackorder-4.1 {wm stackorder isabove|isbelow} { catch {destroy .t} toplevel .t ; update raise .t wm stackorder . isabove .t } {0} - test wm-stackorder-4.2 {wm stackorder isabove|isbelow} { catch {destroy .t} toplevel .t ; update raise .t wm stackorder . isbelow .t } {1} - test wm-stackorder-4.3 {wm stackorder isabove|isbelow} { catch {destroy .t} toplevel .t ; update @@ -1225,7 +1115,6 @@ test wm-stackorder-4.3 {wm stackorder isabove|isbelow} { raiseDelay wm stackorder .t isa . } {0} - test wm-stackorder-4.4 {wm stackorder isabove|isbelow} { catch {destroy .t} toplevel .t ; update @@ -1233,7 +1122,6 @@ test wm-stackorder-4.4 {wm stackorder isabove|isbelow} { raiseDelay wm stackorder .t isb . } {1} - deleteWindows test wm-stackorder-5.1 {a menu is not a toplevel} { @@ -1247,7 +1135,6 @@ test wm-stackorder-5.1 {a menu is not a toplevel} { raiseDelay wm stackorder . } {.t .} - test wm-stackorder-5.2 {A normal toplevel can't be raised above an overrideredirect toplevel } { catch {destroy .t} @@ -1258,7 +1145,6 @@ test wm-stackorder-5.2 {A normal toplevel can't be raiseDelay wm stackorder . isabove .t } 0 - test wm-stackorder-5.3 {An overrideredirect window can be explicitly lowered } { catch {destroy .t} @@ -1281,10 +1167,11 @@ test wm-stackorder-6.1 {An embedded toplevel does not stdWindow + +### wm title ### test wm-title-1.1 {usage} { list [catch {wm title} msg] $msg } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-title-1.2 {usage} { list [catch {wm title . 1 2} msg] $msg } {1 {wrong # args: should be "wm title window ?newTitle?"}} @@ -1300,21 +1187,19 @@ test wm-title-2.1 {setting and reading values} { } {t Apa {}} +### wm transient ### test wm-transient-1.1 {usage} { catch {destroy .t} ; toplevel .t list [catch {wm transient .t 1 2} msg] $msg } {1 {wrong # args: should be "wm transient window ?master?"}} - test wm-transient-1.2 {usage} { catch {destroy .t} ; toplevel .t list [catch {wm transient .t foo} msg] $msg } {1 {bad window path name "foo"}} - test wm-transient-1.3 {usage} { catch {destroy .t} ; toplevel .t list [catch {wm transient foo .t} msg] $msg } {1 {bad window path name "foo"}} - test wm-transient-1.4 {usage} { deleteWindows toplevel .master @@ -1322,7 +1207,6 @@ test wm-transient-1.4 {usage} { wm transient .subject .master list [catch {wm iconify .subject} msg] $msg } {1 {can't iconify ".subject": it is a transient}} - test wm-transient-1.5 {usage} { deleteWindows toplevel .icon -bg blue @@ -1331,7 +1215,6 @@ test wm-transient-1.5 {usage} { toplevel .dummy list [catch {wm transient .icon .dummy} msg] $msg } {1 {can't make ".icon" a transient: it is an icon for .top}} - test wm-transient-1.6 {usage} { deleteWindows toplevel .icon -bg blue @@ -1340,13 +1223,11 @@ test wm-transient-1.6 {usage} { toplevel .dummy list [catch {wm transient .dummy .icon} msg] $msg } {1 {can't make ".icon" a master: it is an icon for .top}} - test wm-transient-1.7 {usage} { deleteWindows toplevel .master list [catch {wm transient .master .master} err] $err } {1 {can't make ".master" its own master}} - test wm-transient-1.8 {usage} { deleteWindows toplevel .master @@ -1366,7 +1247,6 @@ test wm-transient-2.1 { basic get/set of master } { lappend results [wm transient .subject] set results } {{} .master {}} - test wm-transient-2.2 { first toplevel parent of non-toplevel master is used } { deleteWindows @@ -1388,7 +1268,6 @@ test wm-transient-3.1 { transient toplevel is withdrawn update list [wm state .subject] [winfo ismapped .subject] } {withdrawn 0} - test wm-transient-3.2 { already mapped transient toplevel takes on withdrawn state of master } { deleteWindows @@ -1401,7 +1280,6 @@ test wm-transient-3.2 { already mapped transient toplevel update list [wm state .subject] [winfo ismapped .subject] } {withdrawn 0} - test wm-transient-3.3 { withdraw/deiconify on the master also does a withdraw/deiconify on the transient } { deleteWindows @@ -1432,7 +1310,6 @@ test wm-transient-4.1 { transient toplevel is withdrawn update list [wm state .subject] [winfo ismapped .subject] } {withdrawn 0} - test wm-transient-4.2 { already mapped transient toplevel is withdrawn if master is iconic } { deleteWindows @@ -1445,7 +1322,6 @@ test wm-transient-4.2 { already mapped transient toplevel update list [wm state .subject] [winfo ismapped .subject] } {withdrawn 0} - test wm-transient-4.3 { iconify/deiconify on the master does a withdraw/deiconify on the transient } { deleteWindows @@ -1483,7 +1359,6 @@ test wm-transient-5.1 { an error during transient command should not lappend results [wm state .subject] set results } {1 withdrawn normal} - test wm-transient-5.2 { remove transient property when master is destroyed } { deleteWindows @@ -1495,7 +1370,6 @@ test wm-transient-5.2 { remove transient property when master update wm transient .subject } {} - test wm-transient-5.3 { remove transient property from window that had never been mapped when master is destroyed } { deleteWindows @@ -1520,7 +1394,6 @@ test wm-transient-6.1 { a withdrawn transient does not track update wm state .subject } {withdrawn} - test wm-transient-6.2 { a withdrawn transient does not track state changes in the master } { set results [list] @@ -1544,7 +1417,6 @@ test wm-transient-6.2 { a withdrawn transient does not track update lappend results [wm state .subject] } {withdrawn normal withdrawn normal} - test wm-transient-6.3 { a withdrawn transient does not track state changes in the master } { deleteWindows @@ -1574,7 +1446,6 @@ test wm-transient-7.1 {Destroying transient} { destroy .t # OK: the above did not cause a panic. } {} - test wm-transient-7.2 {Destroying master} { deleteWindows toplevel .t @@ -1585,7 +1456,6 @@ test wm-transient-7.2 {Destroying master} { destroy .transient set result } {} - test wm-transient-7.3 {Reassign transient, destroy old master} { deleteWindows toplevel .t1 @@ -1597,7 +1467,6 @@ test wm-transient-7.3 {Reassign transient, destroy old master} { destroy .t2 destroy .transient } {} - test wm-transient-7.4 {Reassign transient, destroy new master} { deleteWindows toplevel .t1 @@ -1609,7 +1478,6 @@ test wm-transient-7.4 {Reassign transient, destroy new master} { destroy .t1 destroy .transient } {} - test wm-transient-7.5 {Reassign transient, destroy transient} { deleteWindows toplevel .t1 @@ -1622,10 +1490,11 @@ test wm-transient-7.5 {Reassign transient, destroy transient} { destroy .t1 ;# so did this } {} + +### wm state ### test wm-state-1.1 {usage} { list [catch {wm state} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-state-1.2 {usage} { list [catch {wm state . _ _} err] $err } {1 {wrong # args: should be "wm state window ?state?"}} @@ -1635,21 +1504,18 @@ test wm-state-2.1 {initial state} { toplevel .t wm state .t } {normal} - test wm-state-2.2 {state change before map} { deleteWindows toplevel .t wm state .t withdrawn wm state .t } {withdrawn} - test wm-state-2.3 {state change before map} { deleteWindows toplevel .t wm withdraw .t wm state .t } {withdrawn} - test wm-state-2.4 {state change after map} { deleteWindows toplevel .t @@ -1657,7 +1523,6 @@ test wm-state-2.4 {state change after map} { wm state .t withdrawn wm state .t } {withdrawn} - test wm-state-2.5 {state change after map} { deleteWindows toplevel .t @@ -1665,21 +1530,18 @@ test wm-state-2.5 {state change after map} { wm withdraw .t wm state .t } {withdrawn} - test wm-state-2.6 {state change before map} { deleteWindows toplevel .t wm state .t iconic wm state .t } {iconic} - test wm-state-2.7 {state change before map} { deleteWindows toplevel .t wm iconify .t wm state .t } {iconic} - test wm-state-2.8 {state change after map} { deleteWindows toplevel .t @@ -1687,7 +1549,6 @@ test wm-state-2.8 {state change after map} { wm state .t iconic wm state .t } {iconic} - test wm-state-2.9 {state change after map} { deleteWindows toplevel .t @@ -1695,7 +1556,6 @@ test wm-state-2.9 {state change after map} { wm iconify .t wm state .t } {iconic} - test wm-state-2.10 {state change before map} { deleteWindows toplevel .t @@ -1703,7 +1563,6 @@ test wm-state-2.10 {state change before map} { wm state .t normal wm state .t } {normal} - test wm-state-2.11 {state change before map} { deleteWindows toplevel .t @@ -1711,7 +1570,6 @@ test wm-state-2.11 {state change before map} { wm deiconify .t wm state .t } {normal} - test wm-state-2.12 {state change after map} { deleteWindows toplevel .t @@ -1720,7 +1578,6 @@ test wm-state-2.12 {state change after map} { wm state .t normal wm state .t } {normal} - test wm-state-2.13 {state change after map} { deleteWindows toplevel .t @@ -1729,7 +1586,6 @@ test wm-state-2.13 {state change after map} { wm deiconify .t wm state .t } {normal} - test wm-state-2.14 {state change before map} { deleteWindows toplevel .t @@ -1737,7 +1593,6 @@ test wm-state-2.14 {state change before map} { wm state .t normal wm state .t } {normal} - test wm-state-2.15 {state change before map} { deleteWindows toplevel .t @@ -1745,7 +1600,6 @@ test wm-state-2.15 {state change before map} { wm deiconify .t wm state .t } {normal} - test wm-state-2.16 {state change after map} { deleteWindows toplevel .t @@ -1754,7 +1608,6 @@ test wm-state-2.16 {state change after map} { wm state .t normal wm state .t } {normal} - test wm-state-2.17 {state change after map} { deleteWindows toplevel .t @@ -1763,7 +1616,6 @@ test wm-state-2.17 {state change after map} { wm deiconify .t wm state .t } {normal} - test wm-state-2.18 {state change after map} win { deleteWindows toplevel .t @@ -1772,10 +1624,11 @@ test wm-state-2.18 {state change after map} win { wm state .t } {zoomed} + +### wm withdraw ### test wm-withdraw-1.1 {usage} { list [catch {wm withdraw} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} - test wm-withdraw-1.2 {usage} { list [catch {wm withdraw . _} msg] $msg } {1 {wrong # args: should be "wm withdraw window"}} @@ -1799,6 +1652,8 @@ test wm-withdraw-3.1 {} { lappend result [wm state .t] [winfo ismapped .t] } {withdrawn 0 normal 1} + +### Misc. wm tests ### test wm-deletion-epoch-1.1 {Deletion epoch on multiple displays} {altDisplay} { # See Tk Bug #671330 "segfault when e.g. deiconifying destroyed window" deleteWindows @@ -1814,7 +1669,6 @@ test wm-deletion-epoch-1.1 {Deletion epoch on multiple displays} {altDisplay} { # if the window was raised after a button click for example. # This sort of testing may not be possible. - deleteWindows cleanupTests return |