diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-03-14 04:59:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-03-14 04:59:40 (GMT) |
| commit | d017d808d948e99b61e768936fe5fdb903f1cccf (patch) | |
| tree | 1034afa1e92d0e4fd6fd945094defc77c0172a4b /tests/constraints.tcl | |
| parent | 0ac4ecd3e056e2da5ae5e3e2a7c510e723a7f646 (diff) | |
| download | tk-d017d808d948e99b61e768936fe5fdb903f1cccf.zip tk-d017d808d948e99b61e768936fe5fdb903f1cccf.tar.gz tk-d017d808d948e99b61e768936fe5fdb903f1cccf.tar.bz2 | |
* tests/constraints.tcl: Added notAqua constraint to canvPs-3.1
* tests/canvPs.test: to stop test suite crash on Mac OSX.
[Bug 1088807]
Diffstat (limited to 'tests/constraints.tcl')
| -rw-r--r-- | tests/constraints.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 3006cca..7898250 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -127,6 +127,7 @@ namespace eval tk { namespace import -force tk::test::* namespace import -force tcltest::testConstraint +testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}] testConstraint userInteraction 0 testConstraint nonUnixUserInteraction [expr {[testConstraint userInteraction] || [testConstraint unix]}] |