From d5b4eae0beae4e5bf3da480bf6ec6ed0a7bb6999 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 29 Dec 2008 16:29:52 +0000
Subject: window-2.9 deadlocks threaded Tk [Bug 1715716], add constraint

---
 tests/window.test | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tests/window.test b/tests/window.test
index 6d5d9aa..efe7876 100644
--- a/tests/window.test
+++ b/tests/window.test
@@ -5,12 +5,14 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: window.test,v 1.12 2004/06/24 12:45:44 dkf Exp $
+# RCS: @(#) $Id: window.test,v 1.12.4.1 2008/12/29 16:29:52 das Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
 tcltest::loadTestedCommands
-
+testConstraint unthreaded [expr {
+    (![info exist tcl_platform(threaded)] || !$tcl_platform(threaded))
+}]
 namespace import -force ::tk::test::loadTkCommand
 update
 
@@ -174,8 +176,9 @@ test window-2.8 {Tk_DestroyWindow, cleanup half dead windows at exit} \
     list $error $msg
 } {0 {}}
 
+# window-2.9 deadlocks threaded Tk [Bug 1715716]
 test window-2.9 {Tk_DestroyWindow, Destroy bindings
-        evaluated after exit} unixOrWin {
+        evaluated after exit} {unixOrWin unthreaded} {
     set code [loadTkCommand]
     append code {
         toplevel .t1
-- 
cgit v0.12