diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-11-01 16:15:36 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-11-01 16:15:36 (GMT) |
| commit | 2b3ee1c77ea11ee442210f100a64df0132cb27dd (patch) | |
| tree | 4edd02b63aa02427c48ae9c3e0338078d865a49f /tests/place.test | |
| parent | a8a4d7f3a91f15cfcba5d0ede9cc3de0e70125bc (diff) | |
| download | tk-2b3ee1c77ea11ee442210f100a64df0132cb27dd.zip tk-2b3ee1c77ea11ee442210f100a64df0132cb27dd.tar.gz tk-2b3ee1c77ea11ee442210f100a64df0132cb27dd.tar.bz2 | |
place-8.1, place-8.2: Remove platform-specific updating in these two tests.
Diffstat (limited to 'tests/place.test')
| -rw-r--r-- | tests/place.test | 22 |
1 files changed, 6 insertions, 16 deletions
diff --git a/tests/place.test b/tests/place.test index a809095..a3a4f30 100644 --- a/tests/place.test +++ b/tests/place.test @@ -261,47 +261,37 @@ test place-7.10 {ReconfigurePlacement procedure, computing size} -setup { list [winfo width .t.f2] [winfo height .t.f2] } -result {30 60} -if {[tk windowingsystem] ne "aqua"} { - proc placeUpdate {} { - update - } -} else { - proc placeUpdate {} { - } -} - test place-8.1 {PlaceStructureProc, mapping and unmapping content} -constraints {failsOnUbuntu failsOnXQuarz} -setup { place forget .t.f2 place forget .t.f } -body { place .t.f2 -relx 1.0 -rely 1.0 -anchor sw - update idletasks + update set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw - update idletasks + update lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t - placeUpdate + update lappend result [winfo ismapped .t.f2] } -result {1 0 40 30 0 1} test place-8.2 {PlaceStructureProc, mapping and unmapping content} -constraints {failsOnUbuntu failsOnXQuarz} -setup { place forget .t.f2 place forget .t.f - update idletasks } -body { place .t.f -x 0 -y 0 -width 200 -height 100 place .t.f2 -in .t.f -relx 1.0 -rely 1.0 -anchor sw -width 50 -height 20 - update idletasks + update set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw - update idletasks + update lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t - placeUpdate + update lappend result [winfo ismapped .t.f2] } -result {1 0 42 32 0 1} destroy .t |