Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3574877 stop hang of test dialog-1.3 on Aqua builds. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
71332f1481cc4b050cb2c208454e7b30 |
| User & Date: | dgp 2012-10-05 20:03:00 |
Context
|
2012-10-09
| ||
| 17:50 | Pull unintentional core-8-5-branch fork back together. check-in: 5da1d4de user: andreask tags: core-8-5-branch | |
|
2012-10-08
| ||
| 18:34 | Work in progress attempting to backport Cocoa implementations of [wm manage] and [wm forget] that do not segfault. Closed-Leaf check-in: be47afb8 user: dgp tags: dgp-backportcocoaforget | |
|
2012-10-05
| ||
| 20:03 | 3574877 stop hang of test dialog-1.3 on Aqua builds. check-in: 71332f14 user: dgp tags: core-8-5-branch | |
| 18:26 | fix typo check-in: 6b096b3a user: dgp tags: core-8-5-branch | |
Changes
Changes to tests/dialog.test.
| ︙ | ︙ | |||
8 9 10 11 12 13 14 |
test dialog-1.1 {tk_dialog command} -body {
list [catch {tk_dialog} msg] $msg
} -match glob -result {1 {wrong # args: should be "tk_dialog w title text bitmap default *"}}
test dialog-1.2 {tk_dialog command} {
list [catch {tk_dialog foo foo foo foo foo} msg] $msg
} {1 {bad window path name "foo"}}
test dialog-1.3 {tk_dialog command} {
| | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
test dialog-1.1 {tk_dialog command} -body {
list [catch {tk_dialog} msg] $msg
} -match glob -result {1 {wrong # args: should be "tk_dialog w title text bitmap default *"}}
test dialog-1.2 {tk_dialog command} {
list [catch {tk_dialog foo foo foo foo foo} msg] $msg
} {1 {bad window path name "foo"}}
test dialog-1.3 {tk_dialog command} {
set res [list [catch {tk_dialog .d foo foo fooBitmap foo} msg] $msg]
destroy .d
set res
} {1 {bitmap "fooBitmap" not defined}}
proc PressButton {btn} {
if {![winfo ismapped $btn]} {
update
}
event generate $btn <Enter>
event generate $btn <1> -x 5 -y 5
|
| ︙ | ︙ |