diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-02 21:04:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-02 21:04:39 (GMT) |
commit | e0a9d8d3100de26a961418e9ab3fc6087014e00b (patch) | |
tree | 3e0d929e5137c99f90d81bb4a91e6307813d1dd6 /tests/textDisp.test | |
parent | ef0028bd368a52a1819b55404e2e48e0ba79eded (diff) | |
download | tk-e0a9d8d3100de26a961418e9ab3fc6087014e00b.zip tk-e0a9d8d3100de26a961418e9ab3fc6087014e00b.tar.gz tk-e0a9d8d3100de26a961418e9ab3fc6087014e00b.tar.bz2 |
Use "eq" not "==" when checking "tk windowingsystem"
Diffstat (limited to 'tests/textDisp.test')
-rw-r--r-- | tests/textDisp.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index de6fd22..b98150d 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -713,7 +713,7 @@ test textDisp-4.4 {UpdateDisplayInfo, wrap-mode "none"} { [list [xchar 0] [yline 3] $fixedWidth $fixedHeight] \ {1.0 2.0 3.0}] test textDisp-4.5 {UpdateDisplayInfo, tiny window} { - if {[tk windowingsystem] == "win32"} { + if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 1 } wm geom . 103x$height @@ -727,7 +727,7 @@ test textDisp-4.5 {UpdateDisplayInfo, tiny window} { {} \ [list [xchar 0] [yline 3] 1 $fixedHeight] \ {1.0 2.0 3.0}] -if {[tk windowingsystem] == "win32"} { +if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 0 } test textDisp-4.6 {UpdateDisplayInfo, tiny window} { @@ -738,7 +738,7 @@ test textDisp-4.6 {UpdateDisplayInfo, tiny window} { # the overrideredirect on "." confuses the window manager and # causes subsequent tests to fail. - if {[tk windowingsystem] == "win32"} { + if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 1 } frame .f2 -width 20 -height 100 @@ -767,7 +767,7 @@ test textDisp-4.7 {UpdateDisplayInfo, filling in extra vertical space} { # the overrideredirect on "." confuses the window manager and # causes subsequent tests to fail. - if {[tk windowingsystem] == "win32"} { + if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 1 } .t delete 1.0 end @@ -3729,7 +3729,7 @@ test textDisp-24.15 {TkTextCharLayoutProc, -wrap none} { lequal [list [.t bbox 1.19] [.t bbox 1.20]] $expected } {1} test textDisp-24.16 {TkTextCharLayoutProc, no chars fit} { - if {[tk windowingsystem] == "win32"} { + if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 1 } .t configure -wrap char @@ -3743,7 +3743,7 @@ test textDisp-24.16 {TkTextCharLayoutProc, no chars fit} { } [list [list [xchar 0] [yline 1] 1 $fixedHeight] \ [list [xchar 0] [yline 2] 1 $fixedHeight] \ [list [xchar 0] [yline 3] 1 $fixedHeight]] -if {[tk windowingsystem] == "win32"} { +if {[tk windowingsystem] eq "win32"} { wm overrideredirect . 0 } test textDisp-24.17 {TkTextCharLayoutProc, -wrap word} { |