Tk Source Code

Check-in [2b4813da]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Refine tests wm-stackorder-5.2 and -6.1 to run a test of the behavior on all platforms (the expected results are different on different platforms)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-185c8557d9
Files: files | file ages | folders
SHA3-256:2b4813da3bdfa333e5cbf972304917a8c5bca265dcd1640ab80634f98f334009
User & Date: fvogel 2018-12-07 19:18:38
Context
2018-12-07
21:30
Fix error on constraint name: unix is not x11 check-in: 60fa6f39 user: fvogel tags: bug-185c8557d9
19:18
Refine tests wm-stackorder-5.2 and -6.1 to run a test of the behavior on all platforms (the expected results are different on different platforms) check-in: 2b4813da user: fvogel tags: bug-185c8557d9
18:22
Fix constraint name. !aqua is not a known constraint (the test was skipped in all platforms), however notAqua is known and lets the test run in anything else than aqua. check-in: e2f95aa5 user: fvogel tags: bug-185c8557d9
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/wm.test.

1513
1514
1515
1516
1517
1518
1519
1520
1521

1522
1523
1524
1525
1526
1527
1528
1529












1530
1531
1532
1533
1534
1535
1536
....
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551









1552
1553
1554
1555
1556
1557
1558
    raise .
    raiseDelay
    wm stackorder .
} -cleanup {
    destroy .t
} -result {.t .}
test wm-stackorder-5.2 {A normal toplevel can't be raised above an \
    overrideredirect toplevel} -constraints notAqua -body {
    toplevel .t

    wm overrideredirect .t 1
    raise .
    update
    raiseDelay
    wm stackorder . isabove .t
} -cleanup {
    destroy .t
} -result 0












test wm-stackorder-5.3 {An overrideredirect window\
        can be explicitly lowered} -body {
    toplevel .t
    tkwait visibility .t	    
    wm overrideredirect .t 1
    lower .t
    update
................................................................................
    raiseDelay
    wm stackorder .t isbelow .
} -cleanup {
    destroy .t
} -result 1

test wm-stackorder-6.1 {An embedded toplevel does not\
        appear in the stacking order} -constraints notAqua -body {
    toplevel .real -container 1
    toplevel .embd -bg blue -use [winfo id .real]
    update
    wm stackorder .
} -cleanup {
    deleteWindows
} -result {. .real}











stdWindow

### wm title ###
test wm-title-1.1 {usage} -returnCodes error -body {
    wm title







|

>








>
>
>
>
>
>
>
>
>
>
>
>







 







|







>
>
>
>
>
>
>
>
>







1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
....
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
    raise .
    raiseDelay
    wm stackorder .
} -cleanup {
    destroy .t
} -result {.t .}
test wm-stackorder-5.2 {A normal toplevel can't be raised above an \
    overrideredirect toplevel on unix} -constraints unix -body {
    toplevel .t
    tkwait visibility .t	    
    wm overrideredirect .t 1
    raise .
    update
    raiseDelay
    wm stackorder . isabove .t
} -cleanup {
    destroy .t
} -result 0
test wm-stackorder-5.2.1 {A normal toplevel can be raised above an \
    overrideredirect toplevel on macOS or win} -constraints aquaOrWin32 -body {
    toplevel .t
    tkwait visibility .t	    
    wm overrideredirect .t 1
    raise .
    update
    raiseDelay
    wm stackorder . isabove .t
} -cleanup {
    destroy .t
} -result 1
test wm-stackorder-5.3 {An overrideredirect window\
        can be explicitly lowered} -body {
    toplevel .t
    tkwait visibility .t	    
    wm overrideredirect .t 1
    lower .t
    update
................................................................................
    raiseDelay
    wm stackorder .t isbelow .
} -cleanup {
    destroy .t
} -result 1

test wm-stackorder-6.1 {An embedded toplevel does not\
        appear in the stacking order on unix or win} -constraints notAqua -body {
    toplevel .real -container 1
    toplevel .embd -bg blue -use [winfo id .real]
    update
    wm stackorder .
} -cleanup {
    deleteWindows
} -result {. .real}
test wm-stackorder-6.1.1 {An embedded toplevel does\
        appear in the stacking order on macOS} -constraints aqua -body {
    toplevel .real -container 1
    toplevel .embd -bg blue -use [winfo id .real]
    update
    wm stackorder .
} -cleanup {
    deleteWindows
} -result {. .embd}


stdWindow

### wm title ###
test wm-title-1.1 {usage} -returnCodes error -body {
    wm title