diff options
| author | pspjuth <peter.spjuth@gmail.com> | 2002-10-10 21:07:51 (GMT) |
|---|---|---|
| committer | pspjuth <peter.spjuth@gmail.com> | 2002-10-10 21:07:51 (GMT) |
| commit | 9d868002e735f03a02b204864b139004861e6ff6 (patch) | |
| tree | 4aaa2c6b1324c85b05259766380573941a817551 /tests | |
| parent | dd2a728b2874239f39fa0a833ea27e33beb07340 (diff) | |
| download | tk-9d868002e735f03a02b204864b139004861e6ff6.zip tk-9d868002e735f03a02b204864b139004861e6ff6.tar.gz tk-9d868002e735f03a02b204864b139004861e6ff6.tar.bz2 | |
The grid size was not updated properly
when removing a widget from a grid. [Bug #621241] (forssen)
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 |