summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-12-03 06:47:02 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-12-03 06:47:02 (GMT)
commit5e705974729f8503207eed53228f3be313ef8da5 (patch)
tree3d77a7a67ca8e8ffe92c94257621fd042f97c9f3
parentc9f951344fa04781f7129da844d09d17b23da21d (diff)
downloadtk-5e705974729f8503207eed53228f3be313ef8da5.zip
tk-5e705974729f8503207eed53228f3be313ef8da5.tar.gz
tk-5e705974729f8503207eed53228f3be313ef8da5.tar.bz2
Fixed embedded windows tests that were failing following [dc9f4bea9f] - See comment in bug [7703f947aa]
-rw-r--r--tests/textWind.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/textWind.test b/tests/textWind.test
index 79dca50..23a9e71 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -461,6 +461,7 @@ test textWind-10.4.1 {EmbWinLayoutProc procedure, error in creating window} {tex
.t delete 1.0 end
.t insert 1.0 "Some sample text"
catch {destroy .t.f}
+ update
.t window create 1.5 -create {
frame .t.f
frame .t.f.f -width 10 -height 20 -bg $color
@@ -473,6 +474,7 @@ catch {destroy .t.f}
test textWind-10.5 {EmbWinLayoutProc procedure, error in creating window} {textfonts} {
.t delete 1.0 end
.t insert 1.0 "Some sample text"
+ update
.t window create 1.5 -create {
concat .t
}
@@ -484,6 +486,7 @@ test textWind-10.6 {EmbWinLayoutProc procedure, error in creating window} {textf
.t delete 1.0 end
.t insert 1.0 "Some sample text"
catch {destroy .t2}
+ update
.t window create 1.5 -create {
toplevel .t2 -width 100 -height 150
wm geom .t2 +0+0
@@ -497,6 +500,7 @@ test textWind-10.6.1 {EmbWinLayoutProc procedure, error in creating window} {
.t delete 1.0 end
.t insert 1.0 "Some sample text"
catch {destroy .t2}
+ update
.t window create 1.5 -create {
toplevel .t2 -width 100 -height 150
wm geom .t2 +0+0
@@ -595,6 +599,8 @@ test textWind-11.2 {EmbWinDisplayProc procedure, geometry transforms} {
.t insert 1.0 "Some sample text"
pack forget .t
place .t -x 30 -y 50
+ catch {destroy .t.f}
+ update
frame .t.f -width 30 -height 20 -bg $color
.t window create 1.12 -window .t.f
update