diff options
author | fvogel <fvogelnew1@free.fr> | 2022-07-20 20:52:25 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-07-20 20:52:25 (GMT) |
commit | 607aef238d641e4203788e4062515f7323f94e4d (patch) | |
tree | eb274283ee00052af9c2e1cf7e7b9f0d59ab3f6e /tests/panedwindow.test | |
parent | 720cd761c3ba466b16c4779805976c1472b4fc29 (diff) | |
download | tk-607aef238d641e4203788e4062515f7323f94e4d.zip tk-607aef238d641e4203788e4062515f7323f94e4d.tar.gz tk-607aef238d641e4203788e4062515f7323f94e4d.tar.bz2 |
Remove stabilization lines in panedwindow.test. The problem was due to the TkMacOSXHandleMapOrUnmap() approach, now removed.
Diffstat (limited to 'tests/panedwindow.test')
-rw-r--r-- | tests/panedwindow.test | 33 |
1 files changed, 3 insertions, 30 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test index feb0d62..29e0ced 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -4922,7 +4922,7 @@ test panedwindow-23.29 {ConfigurePanes, -hide works} -setup { lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \ [winfo width .f4] [winfo width .p] .p paneconfigure .f2 -hide 1 - update ; after 100 ; update + update lappend result [winfo ismapped .f1] [winfo ismapped .f2] \ [winfo ismapped .f3] [winfo ismapped .f4] lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \ @@ -4940,41 +4940,14 @@ test panedwindow-23.30 {ConfigurePanes, -hide works} -setup { frame .f4 -width 40 -bg green .p add .f1 .f2 .f3 .f4 pack .p - waitForMap .p - waitForMap .f3 - if {[waitForUnmap .f4]} { - puts "winfo geometry .p: [winfo geometry .p]" - puts "winfo rootx .p: [winfo rootx .p]" - puts "winfo rooty .p: [winfo rooty .p]" - puts "winfo geometry .f1: [winfo geometry .f1]" - puts "winfo rootx .f1: [winfo rootx .f1]" - puts "winfo rooty .f1: [winfo rooty .f1]" - puts "winfo geometry .f2: [winfo geometry .f2]" - puts "winfo rootx .f2: [winfo rootx .f2]" - puts "winfo rooty .f2: [winfo rooty .f2]" - puts "winfo geometry .f3: [winfo geometry .f3]" - puts "winfo rootx .f3: [winfo rootx .f3]" - puts "winfo rooty .f3: [winfo rooty .f3]" - puts "winfo geometry .f4: [winfo geometry .f4]" - puts "winfo rootx .f4: [winfo rootx .f4]" - puts "winfo rooty .f4: [winfo rooty .f4]" - puts "winfo exists .f4: [winfo exists .f4]" - puts "winfo x .f4: [winfo x .f4]" - puts "winfo y .f4: [winfo y .f4]" - puts "winfo width .f4: [winfo width .f4]" - puts "winfo height .f4: [winfo height .f4]" - puts "winfo reqwidth .f4: [winfo reqwidth .f4]" - puts "winfo reqheight .f4: [winfo reqheight .f4]" - puts "winfo viewable .f4: [winfo viewable .f4]" - puts ".p configure: [.p configure]" - } + update set result [list] lappend result [winfo ismapped .f1] [winfo ismapped .f2] \ [winfo ismapped .f3] [winfo ismapped .f4] lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \ [winfo width .f4] [winfo width .p] .p paneconfigure .f2 -hide 1 - update ; after 100 ; update + update lappend result [winfo ismapped .f1] [winfo ismapped .f2] \ [winfo ismapped .f3] [winfo ismapped .f4] lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \ |