diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-14 13:31:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-14 13:31:25 (GMT) |
| commit | 970271359dd6eaa98def179692955efc9d387970 (patch) | |
| tree | 4374617eea84da0b0c281f7df9d54a9ca69eb029 /tests/unixWm.test | |
| parent | 65f9c65e9b4a62c03e4952cad4070a8b0ee488ab (diff) | |
| download | tk-970271359dd6eaa98def179692955efc9d387970.zip tk-970271359dd6eaa98def179692955efc9d387970.tar.gz tk-970271359dd6eaa98def179692955efc9d387970.tar.bz2 | |
Excess spacing in test-suite
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 d579fc7..0c3fb9b 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -630,7 +630,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] @@ -1326,7 +1326,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 @@ -1335,7 +1335,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 @@ -1748,7 +1748,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 |