diff options
Diffstat (limited to 'tests/constraints.tcl')
-rw-r--r-- | tests/constraints.tcl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index b0dbbec..23b48d1 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -137,7 +137,6 @@ namespace eval tk { destroy .focus } - namespace export imageInit imageFinish imageCleanup imageNames variable ImageNames proc imageInit {} { @@ -244,36 +243,6 @@ namespace eval tk { } namespace export controlPointerWarpTiming - namespace export updateWidgets - # Platform specific procedure for updating the display. - if {[tk windowingsystem] == "aqua"} { - proc updateWidgets {} { - update idletasks - } - } else { - proc updateWidgets {} { - update - } - } - - namespace export waitForMap waitForUnmap - # Procedures waiting for a window to be mapped or unmapped, with timeout - proc waitForMap {w} { - set count 0 - while {$count < 10 && ![winfo ismapped $w]} { - updateWidgets - incr count - after 50 - } - } - proc waitForUnmap {w} { - set count 0 - while {$count < 10 && [winfo ismapped $w]} { - updateWidgets - incr count - after 50 - } - } } } |