summaryrefslogtreecommitdiffstats
path: root/tests/grid.test
diff options
context:
space:
mode:
authorpspjuth <peter.spjuth@gmail.com>2002-10-10 21:07:51 (GMT)
committerpspjuth <peter.spjuth@gmail.com>2002-10-10 21:07:51 (GMT)
commit9d868002e735f03a02b204864b139004861e6ff6 (patch)
tree4aaa2c6b1324c85b05259766380573941a817551 /tests/grid.test
parentdd2a728b2874239f39fa0a833ea27e33beb07340 (diff)
downloadtk-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/grid.test')
-rw-r--r--tests/grid.test22
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