Tk Source Code

Check-in [bb5ce609]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Less intrusive fix for test frame-3.9.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: bb5ce60958605d777fb34c6030911e7c5b2798582850079cecc7d905535356ff
User & Date: culler 2019-04-15 20:41:50
Context
2019-04-15
20:49
Adjust conditional code to fix compiler warnings on macOS 10.9. check-in: 5c9ebd2b user: culler tags: trunk
20:41
Less intrusive fix for test frame-3.9. check-in: bb5ce609 user: culler tags: trunk
19:31
Less intrusive fix for test frame-3.9. check-in: 8bf55739 user: culler tags: core-8-6-branch
18:08
For Aqua, simulate systemWindowBackgroundColor in older OS versions. Adjust conditional code and formatting. check-in: 23b327a4 user: culler tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/frame.test.

658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
test frame-3.9 {TkCreateFrame procedure, -use option} -constraints {
    unix
} -setup {
	deleteWindows
} -body {
    toplevel .t -container 1 -width 300 -height 120
    wm geometry .t +0+0
    update
    toplevel .x -width 140 -height 300 -use [winfo id .t] -bg green
    tkwait visibility .x
    update
    list [expr {[winfo rootx .x] - [winfo rootx .t]}] \
	    [expr {[winfo rooty .x] - [winfo rooty .t]}] \
	    [winfo width .t] [winfo height .t]
} -cleanup {
    deleteWindows
} -result {0 0 140 300}
test frame-3.10 {TkCreateFrame procedure, -use option} -constraints {






<


|







658
659
660
661
662
663
664

665
666
667
668
669
670
671
672
673
674
test frame-3.9 {TkCreateFrame procedure, -use option} -constraints {
    unix
} -setup {
	deleteWindows
} -body {
    toplevel .t -container 1 -width 300 -height 120
    wm geometry .t +0+0

    toplevel .x -width 140 -height 300 -use [winfo id .t] -bg green
    tkwait visibility .x
    update idletasks
    list [expr {[winfo rootx .x] - [winfo rootx .t]}] \
	    [expr {[winfo rooty .x] - [winfo rooty .t]}] \
	    [winfo width .t] [winfo height .t]
} -cleanup {
    deleteWindows
} -result {0 0 140 300}
test frame-3.10 {TkCreateFrame procedure, -use option} -constraints {