diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-23 12:29:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-23 12:29:50 (GMT) |
| commit | 5dd5e3ad85119209cd8bbe431f51488fbc67b2e2 (patch) | |
| tree | f3699c1983eb7c040128d0c7b42c9c3319545e64 /tests/unixWm.test | |
| parent | f05d35b656076f1289333777861f981fe8c44c13 (diff) | |
| download | tk-5dd5e3ad85119209cd8bbe431f51488fbc67b2e2.zip tk-5dd5e3ad85119209cd8bbe431f51488fbc67b2e2.tar.gz tk-5dd5e3ad85119209cd8bbe431f51488fbc67b2e2.tar.bz2 | |
testcase cleanup
Diffstat (limited to 'tests/unixWm.test')
| -rw-r--r-- | tests/unixWm.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index 7c427ec..e292d38 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -632,7 +632,7 @@ test unixWm-17.2 {Tk_WmCmd procedure, "focusmodel" option} unix { list [catch {wm focusmodel .t bogus} msg] $msg } {1 {bad argument "bogus": must be active or passive}} test unixWm-17.3 {Tk_WmCmd procedure, "focusmodel" option} unix { - set result {} + set result {} lappend result [wm focusmodel .t] wm focusmodel .t active lappend result [wm focusmodel .t] @@ -1328,7 +1328,7 @@ test unixWm-40.1 {Tk_SetGrid procedure, set grid dimensions before turning on gr destroy .t toplevel .t wm geometry .t 30x10+0+0 - listbox .t.l -height 20 -width 20 -setgrid 1 + listbox .t.l -height 20 -width 20 -setgrid 1 pack .t.l -fill both -expand 1 update wm geometry .t @@ -1337,7 +1337,7 @@ test unixWm-40.2 {Tk_SetGrid procedure, turning on grid when dimensions already destroy .t toplevel .t wm geometry .t 200x100+0+0 - listbox .t.l -height 20 -width 20 + listbox .t.l -height 20 -width 20 pack .t.l -fill both -expand 1 update .t.l configure -setgrid 1 @@ -1750,7 +1750,7 @@ test unixWm-49.2 {Tk_GetRootCoords procedure, menubars} {unix testmenubar} { testmenubar window .t .t.m update list [expr [winfo rootx .t.m.f] - $x] [expr [winfo rooty .t.m.f] - $y] \ - [expr [winfo rootx .t.f] - $x] [expr [winfo rooty .t.f] - $y] + [expr [winfo rootx .t.f] - $x] [expr [winfo rooty .t.f] - $y] } {52 7 12 62} deleteWindows |