diff options
| author | das <das> | 2006-04-22 04:12:25 (GMT) |
|---|---|---|
| committer | das <das> | 2006-04-22 04:12:25 (GMT) |
| commit | 1899aa0c63592f33a10e92fcdb0679ac99e84576 (patch) | |
| tree | 12982ca17e3d41a2c531e36d8990a41c9a2b47fa /tests/constraints.tcl | |
| parent | 9c58f434c68e50e58327b833da67a6fd23c839f6 (diff) | |
| download | tk-1899aa0c63592f33a10e92fcdb0679ac99e84576.zip tk-1899aa0c63592f33a10e92fcdb0679ac99e84576.tar.gz tk-1899aa0c63592f33a10e92fcdb0679ac99e84576.tar.bz2 | |
* macosx/tkMacOSXEmbed.c:
* macosx/tkMacOSXWm.c:
* tests/constraints.tcl:
* tests/wm.test: sync with 2006-04-18 commit to HEAD. (darley)
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 7898250..f131ff8 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -128,6 +128,7 @@ namespace import -force tk::test::* namespace import -force tcltest::testConstraint testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}] +testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}] testConstraint userInteraction 0 testConstraint nonUnixUserInteraction [expr {[testConstraint userInteraction] || [testConstraint unix]}] |