Tk Source Code

Check-in [d17b5af5]
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:Remove unnecessary sleep from unixEmbed-6.2a, which still fails however.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-58665b91dd
Files: files | file ages | folders
SHA3-256: d17b5af5536d4674d8da85d14f34774922dd0b618e050547ad8d87eb1a26b02f
User & Date: culler 2019-02-01 23:38:29
Original Comment: Remove unnecessary sleep from unixEmbed-6.1a, which still fails.
Context
2019-02-03
16:39
Simplify and uniformize unixEmbed tests 6.1, 6.1a, 6.2, 6.2a. check-in: e9b3a626 user: culler tags: bug-58665b91dd
2019-02-01
23:38
Remove unnecessary sleep from unixEmbed-6.2a, which still fails however. check-in: d17b5af5 user: culler tags: bug-58665b91dd
2019-01-31
22:00
Changes which make unixEmbed-8.1a pass on macOS. check-in: 5300485f user: culler tags: bug-58665b91dd
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/unixEmbed.test.

942
943
944
945
946
947
948

949
950
951

952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
    deleteWindows
    catch {interp delete slave}
    ::_test_tmp::testInterp slave
    load {} Tktest slave
} -body {
    frame .f1 -container 1 -width 200 -height 50
    place .f1 -width 200 -height 200

    slave alias w1 winfo id .f1
    slave eval {
        destroy [winfo child .]

        toplevel .t1 -use [w1]
    }
    after 300 {set x done}
    vwait x
    slave eval {
        bind .t1 <Configure> {lappend x {configure .t1 %w %h}}
        update
        set x {}
        .t1 configure -width 300 -height 120
        update
        list $x [winfo geom .t1]
    }
} -cleanup {
    interp delete slave
    deleteWindows






>



>

<
|
<
<

<
<







942
943
944
945
946
947
948
949
950
951
952
953
954

955


956


957
958
959
960
961
962
963
    deleteWindows
    catch {interp delete slave}
    ::_test_tmp::testInterp slave
    load {} Tktest slave
} -body {
    frame .f1 -container 1 -width 200 -height 50
    place .f1 -width 200 -height 200
    update idletasks
    slave alias w1 winfo id .f1
    slave eval {
        destroy [winfo child .]
	set x {}
        toplevel .t1 -use [w1]

        update


        bind .t1 <Configure> {lappend x {configure .t1 %w %h}}


        .t1 configure -width 300 -height 120
        update
        list $x [winfo geom .t1]
    }
} -cleanup {
    interp delete slave
    deleteWindows