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 | bf87ff2bd8dabf395100c2411af6a5c8f57e4ca6 (patch) | |
| tree | 1034afa1e92d0e4fd6fd945094defc77c0172a4b /tests/constraints.tcl | |
| parent | e7a28cd82e797c533d8b3b3856ce317762ca165a (diff) | |
| download | tk-bf87ff2bd8dabf395100c2411af6a5c8f57e4ca6.zip tk-bf87ff2bd8dabf395100c2411af6a5c8f57e4ca6.tar.gz tk-bf87ff2bd8dabf395100c2411af6a5c8f57e4ca6.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]}] |