diff options
| author | pspjuth <pspjuth@noemail.net> | 2006-04-12 22:31:00 (GMT) |
|---|---|---|
| committer | pspjuth <pspjuth@noemail.net> | 2006-04-12 22:31:00 (GMT) |
| commit | 0e86fe5d41a7aa27dd1ae4ec2396dec6424cb662 (patch) | |
| tree | bc99d563ca4b767f878a955c481969955142f203 /tests/grid.test | |
| parent | 31f0aa48417082d544dab3e1156198d44dc5b744 (diff) | |
| download | tk-0e86fe5d41a7aa27dd1ae4ec2396dec6424cb662.zip tk-0e86fe5d41a7aa27dd1ae4ec2396dec6424cb662.tar.gz tk-0e86fe5d41a7aa27dd1ae4ec2396dec6424cb662.tar.bz2 | |
Correction to 1432666 fix.
FossilOrigin-Name: 4b53d3060c75dc7cbadcb5620162426be8f2b73d
Diffstat (limited to 'tests/grid.test')
| -rw-r--r-- | tests/grid.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/grid.test b/tests/grid.test index ccf2eca..9853780 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.17.2.3 2006/04/12 17:35:21 dgp Exp $ +# RCS: @(#) $Id: grid.test,v 1.17.2.4 2006/04/12 22:31:01 pspjuth Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -724,11 +724,14 @@ test grid-10.38 {column/row configure} -body { # Test different combinations of row/column overflow frame .f set res {} + grid .f -column 0 -columnspan 1 -row 0 -rowspan 1 lappend res [catch {grid .f -row 10 -column 9999} msg] $msg ; update lappend res [catch {grid .f -row 9999 -column 10} msg] $msg ; update lappend res [catch {grid .f -columnspan 2 -column 9998} msg] $msg ; update lappend res [catch {grid .f -rowspan 2 -row 9998} msg] $msg ; update + grid .f -column 0 -columnspan 1 -row 0 -rowspan 1 lappend res [catch {grid .f -column 9998 -columnspan 2} msg] $msg ; update + grid .f -column 0 -columnspan 1 -row 0 -rowspan 1 lappend res [catch {grid .f -row 9998 -rowspan 2} msg] $msg ; update set res } -cleanup {destroy .f} -result [lrange { |