diff options
| author | pspjuth <pspjuth@noemail.net> | 2002-10-10 21:07:50 (GMT) |
|---|---|---|
| committer | pspjuth <pspjuth@noemail.net> | 2002-10-10 21:07:50 (GMT) |
| commit | dae8e43505c88122bd600fa0d7cbfc05e511972b (patch) | |
| tree | 4aaa2c6b1324c85b05259766380573941a817551 /tests | |
| parent | 2173aaf526016601e12d7e1c3e371295eacc5a4e (diff) | |
| download | tk-dae8e43505c88122bd600fa0d7cbfc05e511972b.zip tk-dae8e43505c88122bd600fa0d7cbfc05e511972b.tar.gz tk-dae8e43505c88122bd600fa0d7cbfc05e511972b.tar.bz2 | |
The grid size was not updated properly
when removing a widget from a grid. [Bug #621241] (forssen)
FossilOrigin-Name: c22256a9f4b86817488348cd3edb9f6879867917
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/grid.test | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/tests/grid.test b/tests/grid.test index daeef7e..c47348e 100644 --- a/tests/grid.test +++ b/tests/grid.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: grid.test,v 1.16 2002/07/13 21:52:34 dgp Exp $ +# RCS: @(#) $Id: grid.test,v 1.17 2002/10/10 21:07:52 pspjuth Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -1497,6 +1497,26 @@ test grid-19.1 {uniform realloc} { } {0 0 600 20} grid_reset 19.1 +test grid-20.1 {recalculate size after removal (destroy)} { + label .l1 -text l1 + grid .l1 -row 2 -column 2 + destroy .l1 + label .l2 -text l2 + grid .l2 + grid size . +} {1 1} +grid_reset 20.1 + +test grid-20.2 {recalculate size after removal (forget)} { + label .l1 -text l1 + grid .l1 -row 2 -column 2 + grid forget .l1 + label .l2 -text l2 + grid .l2 + grid size . +} {1 1} +grid_reset 20.2 + # cleanup ::tcltest::cleanupTests return |