summaryrefslogtreecommitdiffstats
path: root/tests/textWind.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/textWind.test')
-rw-r--r--tests/textWind.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/textWind.test b/tests/textWind.test
index 6d60d54..8cc56db 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.9 2003/10/31 09:02:17 vincentdarley Exp $
+# RCS: @(#) $Id: textWind.test,v 1.10 2003/10/31 18:05:49 vincentdarley Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -432,6 +432,7 @@ test textWind-10.3 {EmbWinLayoutProc procedure, error in creating window} {fonts
test textWind-10.4 {EmbWinLayoutProc procedure, error in creating window} {fonts} {
.t delete 1.0 end
.t insert 1.0 "Some sample text"
+ catch {destroy .t.f}
.t window create 1.5 -create {
frame .t.f
frame .t.f.f -width 10 -height 20 -bg $color
@@ -454,6 +455,7 @@ test textWind-10.5 {EmbWinLayoutProc procedure, error in creating window} {fonts
test textWind-10.6 {EmbWinLayoutProc procedure, error in creating window} {fonts} {
.t delete 1.0 end
.t insert 1.0 "Some sample text"
+ catch {destroy .t2}
.t window create 1.5 -create {
toplevel .t2 -width 100 -height 150
wm geom .t2 +0+0