diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-02-05 17:44:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-02-05 17:44:34 (GMT) |
| commit | 2ee1726311c917823daec3d05049fa6a328a5110 (patch) | |
| tree | cf24d154f023ca48a7ede5738ca161c7ada9f153 /tests/border.test | |
| parent | db44588c3136ad539796d09442c27c55fdfee708 (diff) | |
| download | tk-2ee1726311c917823daec3d05049fa6a328a5110.zip tk-2ee1726311c917823daec3d05049fa6a328a5110.tar.gz tk-2ee1726311c917823daec3d05049fa6a328a5110.tar.bz2 | |
Restore failing tests to passing.
Diffstat (limited to 'tests/border.test')
| -rw-r--r-- | tests/border.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/border.test b/tests/border.test index 78d0fcd..981e640 100644 --- a/tests/border.test +++ b/tests/border.test @@ -132,11 +132,11 @@ test border-3.1 {FreeBorderObjProc} -constraints { } -setup { set result {} } -body { - set x [format purple] + set x [join purple] button .b -bg $x -text .b1 - set y [format purple] + set y [join purple] .b configure -bg $y - set z [format purple] + set z [join purple] .b configure -bg $z lappend result [testborder purple] set x red |