diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-03-20 08:13:32 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-03-20 08:13:32 (GMT) |
| commit | 414b9b3637acc11b5f1f5c832d5223a8d474a4c4 (patch) | |
| tree | 28deb833bfd63500a869fe689516eca3784b040c /tests/panedwindow.test | |
| parent | 42f14fb52f5a0cdf6113741ca6187d7d56fafa32 (diff) | |
| parent | d30f4bda39ecf441026e68b7f58eb642c659230f (diff) | |
| download | tk-414b9b3637acc11b5f1f5c832d5223a8d474a4c4.zip tk-414b9b3637acc11b5f1f5c832d5223a8d474a4c4.tar.gz tk-414b9b3637acc11b5f1f5c832d5223a8d474a4c4.tar.bz2 | |
Rebased to core-8-6-branchtip_443
Diffstat (limited to 'tests/panedwindow.test')
| -rw-r--r-- | tests/panedwindow.test | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test index 666ed9c..ee184ce 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -4955,6 +4955,38 @@ test panedwindow-23.30 {ConfigurePanes, -hide works} -setup { } -cleanup { deleteWindows } -result {1 1 1 0 39 40 40 1 130 1 0 1 1 40 40 40 42 130} +test panedwindow-23.30a {ConfigurePanes, hidden panes are unmapped} -setup { + deleteWindows +} -body { + panedwindow .p1 -sashrelief raised + panedwindow .p2 -sashrelief raised + label .l1 -text Label1 + label .l2 -text Label2 + label .l3 -text Label3 + .p2 add .l2 -sticky nsew + .p2 add .l3 -sticky nsew + .p1 add .p2 -sticky nsew + .p1 add .l1 -sticky nsew + pack .p1 -side top -expand 1 -fill both + update + set result [list] + lappend result [list [winfo ismapped .p1] [winfo ismapped .p2] \ + [winfo ismapped .l1] [winfo ismapped .l2] [winfo ismapped .l3]] + .p2 paneconfigure .l1 -hide 1 + update + lappend result [list [winfo ismapped .p1] [winfo ismapped .p2] \ + [winfo ismapped .l1] [winfo ismapped .l2] [winfo ismapped .l3]] + .p1 paneconfigure .p2 -hide 1 + update + lappend result [list [winfo ismapped .p1] [winfo ismapped .p2] \ + [winfo ismapped .l1] [winfo ismapped .l2] [winfo ismapped .l3]] + .p1 paneconfigure .p2 -hide 0 + update + lappend result [list [winfo ismapped .p1] [winfo ismapped .p2] \ + [winfo ismapped .l1] [winfo ismapped .l2] [winfo ismapped .l3]] +} -cleanup { + deleteWindows +} -result {{1 1 1 1 1} {1 1 0 1 1} {1 0 0 0 0} {1 1 0 1 1}} test panedwindow-23.31 {ConfigurePanes, -hide works, last pane stretches} -setup { deleteWindows } -body { |