Tk Source Code

Check-in [95d7944f]
Login

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

Overview
Comment:Fix mistake in previous commit
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-9ba9729ef1
Files: files | file ages | folders
SHA3-256: 95d7944f15dfb193b498b6d56360072955b8b639da355e598c022588870229e4
User & Date: erikleunissen 2025-08-16 09:09:34.328
Context
2025-08-16
10:05
winfo.test: add tests for "winfo interps" with multiple interpreters (in the same process and in different processes) check-in: c8bf1bce user: erikleunissen tags: bug-9ba9729ef1
09:09
Fix mistake in previous commit check-in: 95d7944f user: erikleunissen tags: bug-9ba9729ef1
09:06
send.test: on macOS/aqua skip tests that send to interps in other processes (add constraint notAqua) check-in: 1f3dbb47 user: erikleunissen tags: bug-9ba9729ef1
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/send.test.
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
} {1 {target application died or uses a Tk version before 4.0}}
test send-5.4 {ValidateName procedure} {secureserver testsend} {
    tk appname test
    testsend prop root InterpRegistry "$commId Bogus\n$commId test\n"
    winfo interps
} {test}

if {[testConstraint nonPortable] && [testConstraint xhost] && [testConstraint aqua]} {
    winfo interps
    tk appname tktest
    update
    childTkProcess create
    set x [split [exec xhost] \n]
    foreach i [lrange $x 1 end]  {
	exec xhost - $i







|







131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
} {1 {target application died or uses a Tk version before 4.0}}
test send-5.4 {ValidateName procedure} {secureserver testsend} {
    tk appname test
    testsend prop root InterpRegistry "$commId Bogus\n$commId test\n"
    winfo interps
} {test}

if {[testConstraint nonPortable] && [testConstraint xhost] && [testConstraint notAqua]} {
    winfo interps
    tk appname tktest
    update
    childTkProcess create
    set x [split [exec xhost] \n]
    foreach i [lrange $x 1 end]  {
	exec xhost - $i