diff options
| -rw-r--r-- | tests/textDisp.test | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index f00a707..3c1face 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -910,7 +910,7 @@ test textDisp-6.4 {scrolling in DisplayText, scrolls interfere} { updateText list $tk_textRelayout $tk_textRedraw } {{2.0 2.20 2.40 2.60 4.0 4.20} {2.0 2.20 2.40 2.60 4.0 4.20 6.0}} -test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} { +test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} {notAqua} { .t configure -wrap char frame .f2 -bg red place .f2 -in .t -relx 0.5 -rely 0.5 -relwidth 0.5 -relheight 0.5 @@ -925,7 +925,7 @@ test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} { destroy .f2 list $tk_textRelayout $tk_textRedraw } {{1.0 9.0 10.0} {1.0 4.0 5.0 9.0 10.0}} -test textDisp-6.6 {scrolling in DisplayText, Expose events after scroll} { +test textDisp-6.6 {scrolling in DisplayText, Expose events after scroll} {notAqua} { # this test depends on all of the expose events being handled at once .t configure -wrap char frame .f2 -bg #ff0000 @@ -1005,7 +1005,7 @@ test textDisp-6.10 {DisplayText, redisplay embedded windows after scroll.} {aqua foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { .t insert end "\nLine $i" } -test textDisp-7.1 {TkTextRedrawRegion} { +test textDisp-7.1 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0.2 -relwidth 0.6 -rely 0.22 -relheight 0.55 updateText @@ -1013,7 +1013,7 @@ test textDisp-7.1 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {1.40 2.0 3.0 4.0 5.0 6.0}} -test textDisp-7.2 {TkTextRedrawRegion} { +test textDisp-7.2 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0 -relwidth 0.5 -rely 0 -relheight 0.5 updateText @@ -1021,7 +1021,7 @@ test textDisp-7.2 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {1.0 1.20 1.40 2.0 3.0}} -test textDisp-7.3 {TkTextRedrawRegion} { +test textDisp-7.3 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0.5 -relwidth 0.5 -rely 0.5 -relheight 0.5 updateText @@ -1029,7 +1029,7 @@ test textDisp-7.3 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {4.0 5.0 6.0 7.0 8.0}} -test textDisp-7.4 {TkTextRedrawRegion} { +test textDisp-7.4 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 0 -relheight 0.2 \ -bordermode ignore @@ -1038,7 +1038,7 @@ test textDisp-7.4 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {borders 1.0 1.20}} -test textDisp-7.5 {TkTextRedrawRegion} { +test textDisp-7.5 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 1.0 -relheight 0.2 \ -anchor s -bordermode ignore @@ -1047,7 +1047,7 @@ test textDisp-7.5 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {borders 7.0 8.0}} -test textDisp-7.6 {TkTextRedrawRegion} { +test textDisp-7.6 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \ -anchor w -bordermode ignore @@ -1056,7 +1056,7 @@ test textDisp-7.6 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {borders 3.0 4.0 5.0}} -test textDisp-7.7 {TkTextRedrawRegion} { +test textDisp-7.7 {TkTextRedrawRegion} {notAqua} { frame .f2 -bg #ff0000 place .f2 -in .t -relx 1.0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \ -anchor e -bordermode ignore @@ -1065,7 +1065,7 @@ test textDisp-7.7 {TkTextRedrawRegion} { updateText list $tk_textRelayout $tk_textRedraw } {{} {borders 3.0 4.0 5.0}} -test textDisp-7.8 {TkTextRedrawRegion} { +test textDisp-7.8 {TkTextRedrawRegion} {notAqua} { .t delete 1.0 end .t insert 1.0 "Line 1\nLine 2\nLine 3\nLine 4\nLine 5\nLine 6\n" frame .f2 -bg #ff0000 |