diff options
author | fvogel <fvogelnew1@free.fr> | 2022-07-07 03:53:45 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-07-07 03:53:45 (GMT) |
commit | 69402c77f2e4aaf38b1589f84d9fcef94666ca64 (patch) | |
tree | 6c5dd2d5654b9a62fa59cc1248da0ded8cc89f4f /tests/panedwindow.test | |
parent | c8649c4e2b28fe4394d8ee7cb71df7f0febbe724 (diff) | |
download | tk-69402c77f2e4aaf38b1589f84d9fcef94666ca64.zip tk-69402c77f2e4aaf38b1589f84d9fcef94666ca64.tar.gz tk-69402c77f2e4aaf38b1589f84d9fcef94666ca64.tar.bz2 |
Instrument panedwindow-23.30 a bit more.
Diffstat (limited to 'tests/panedwindow.test')
-rw-r--r-- | tests/panedwindow.test | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test index 9f16d94..feb0d62 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -4943,8 +4943,22 @@ test panedwindow-23.30 {ConfigurePanes, -hide works} -setup { waitForMap .p waitForMap .f3 if {[waitForUnmap .f4]} { - puts "winfo exists .f4: [winfo exists .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]" @@ -4952,12 +4966,6 @@ test panedwindow-23.30 {ConfigurePanes, -hide works} -setup { puts "winfo reqwidth .f4: [winfo reqwidth .f4]" puts "winfo reqheight .f4: [winfo reqheight .f4]" puts "winfo viewable .f4: [winfo viewable .f4]" - puts "winfo rootx .f4: [winfo rootx .f4]" - puts "winfo rooty .f4: [winfo rooty .f4]" - puts "winfo rootx .f3: [winfo rootx .f3]" - puts "winfo rooty .f3: [winfo rooty .f3]" - puts "winfo width .f3: [winfo width .f3]" - puts "winfo height .f3: [winfo height .f3]" puts ".p configure: [.p configure]" } set result [list] |