diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-01-15 16:06:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-01-15 16:06:18 (GMT) |
| commit | 82a83e55c5f93ae3e6545f829f98c828fefa3c5b (patch) | |
| tree | aff9b47194677ca3fe501b1d9d1f88f5a9236455 /tests/constraints.tcl | |
| parent | 03734119e407f4bcced1a69bb30f1032fb83b222 (diff) | |
| download | tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.zip tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.tar.gz tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.tar.bz2 | |
remove some unnecessary eol-spacing
Diffstat (limited to 'tests/constraints.tcl')
| -rw-r--r-- | tests/constraints.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 535d839..6402753 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -38,7 +38,7 @@ namespace eval tk { } namespace eval bg { - # Manage a background process. + # Manage a background process. # Replace with slave interp or thread? namespace import ::tcltest::interpreter namespace import ::tk::test::loadTkCommand @@ -126,7 +126,7 @@ namespace eval tk { eval destroy [winfo children .] } - namespace export fixfocus + namespace export fixfocus proc fixfocus {} { catch {destroy .focus} toplevel .focus @@ -185,7 +185,7 @@ testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}] testConstraint nonwin [expr {[tk windowingsystem] ne "win32"}] testConstraint userInteraction 0 testConstraint nonUnixUserInteraction [expr { - [testConstraint userInteraction] || + [testConstraint userInteraction] || ([testConstraint unix] && [testConstraint notAqua]) }] testConstraint haveDISPLAY [info exists env(DISPLAY)] |