From 5e9fda2731c738809e11548e84b8c58070f4244f Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 24 Nov 2003 10:36:21 +0000
Subject: add further updates to ensure test captures all cases

---
 tests/textWind.test | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/textWind.test b/tests/textWind.test
index f5816a7..b623aa0 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: textWind.test,v 1.13 2003/11/21 17:29:13 vincentdarley Exp $
+# RCS: @(#) $Id: textWind.test,v 1.14 2003/11/24 10:36:21 vincentdarley Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -517,6 +517,7 @@ test textWind-10.6.1 {EmbWinLayoutProc procedure, error in creating window} {
     }
     set msg {}
     update
+    while {[llength $msg] == 1} { update }
     set msg
 } {{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}}
 
-- 
cgit v0.12