From c7f2e4b4449c07a0ac71b26e5da802d7fe5aaa89 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 1 Apr 2013 17:14:31 +0000
Subject: Bring back test window-2.9. No longer hangs.

---
 ChangeLog         | 4 ++++
 tests/window.test | 6 +-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cce8d3b..67b3210 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-01  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/window.test: Bring back test window-2.9. No longer hangs.
+
 2013-03-27  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* library/button.tcl:    [Bug 3608074]: Add <<Invoke>> bindings to
diff --git a/tests/window.test b/tests/window.test
index 876ba81..fea695a 100644
--- a/tests/window.test
+++ b/tests/window.test
@@ -9,9 +9,6 @@ package require tcltest 2.2
 namespace import ::tcltest::*
 tcltest::configure {*}$argv
 tcltest::loadTestedCommands
-testConstraint unthreaded [expr {
-    (![info exist tcl_platform(threaded)] || !$tcl_platform(threaded))
-}]
 namespace import ::tk::test::loadTkCommand
 update
 
@@ -192,9 +189,8 @@ test window-2.8 {Tk_DestroyWindow, cleanup half dead windows at exit} -constrain
     list $error $msg
 } -result {0 {}}
 
-# window-2.9 deadlocks threaded Tk [Bug 1715716]
 test window-2.9 {Tk_DestroyWindow, Destroy bindings evaluated after exit} -constraints {
-    unixOrWin unthreaded
+    unixOrWin
 } -body {
     set code [loadTkCommand]
     append code {
-- 
cgit v0.12