diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-10-10 19:24:28 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-10-10 19:24:28 (GMT) |
| commit | efa6b631819aebdd05628a35e79bbb658ebe3ed5 (patch) | |
| tree | 818d836060a213c2516cedcbb9a463aa027ed1c2 | |
| parent | f9add0382b81ab22bc84bd20b0103981c6fe680c (diff) | |
| download | tk-efa6b631819aebdd05628a35e79bbb658ebe3ed5.zip tk-efa6b631819aebdd05628a35e79bbb658ebe3ed5.tar.gz tk-efa6b631819aebdd05628a35e79bbb658ebe3ed5.tar.bz2 | |
Further try to avoid possible hangs in frame-12.3 and textImage-4.2. Hangs were (rarely) observed with frame-12.3 on macOS.
| -rw-r--r-- | tests/frame.test | 2 | ||||
| -rw-r--r-- | tests/textImage.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/frame.test b/tests/frame.test index 026913f..132df17 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -1168,8 +1168,8 @@ test frame-12.3 {FrameWorldChanged procedure} -setup { set y1 [winfo y .f.f] set fontwait 0 font configure myfont -size 20 - if {!$fontwait} {vwait fontwait} update + if {!$fontwait} {vwait fontwait} set h2 [font metrics myfont -linespace] set y2 [winfo y .f.f] expr {($h2 - $h1) - ($y2 - $y1)} diff --git a/tests/textImage.test b/tests/textImage.test index 4301878..8586b6c 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -394,8 +394,8 @@ test textImage-4.2 {alignment checking - baseline} -setup { set fontwait 0 font configure test_font2 -size $size array set Metrics [font metrics test_font2] - if {!$fontwait} {vwait fontwait} update + if {!$fontwait} {vwait fontwait} foreach {x y w h} [.t bbox small] {} set norm [expr { (([image height large] - $Metrics(-linespace))/2 |