Tk Source Code

Check-in [5da1d4de]
Login

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

Overview
Comment:Pull unintentional core-8-5-branch fork back together.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 5da1d4de653c852a2cf6f134ad7b56c76dbbeda4
User & Date: andreask 2012-10-09 17:50:15
Context
2012-10-18
02:46
Backport of dgp wm-forget and wm-manage fixes; test suite no longer crashes check-in: 336d7df9 user: kevin_walzer tags: core-8-5-branch
2012-10-13
18:11
merge-mark check-in: dd24f6c3 user: jan.nijtmans tags: trunk
2012-10-09
17:50
Pull unintentional core-8-5-branch fork back together. check-in: 5da1d4de user: andreask tags: core-8-5-branch
17:40
Cherrypick Merge, Backport of [6223d9e067]. Restored from tk-cocoa-8-5-bacport-branch, did not survive the merge. See trunk 2012-05-29 Donal K. Fellows
* generic/tkInt.decls (TkMacOSXDrawable): Added OSX-specific mechanism to allow retrieval of the drawing surface. Allows Canvas3d to be adapted to 8.6.
check-in: 428df4b3 user: andreask tags: core-8-5-branch
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/dialog.test.

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 foo foo} msg] $msg]
    destroy .d
    set res
} {1 {bitmap "foo" not defined}}

proc PressButton {btn} {
    if {![winfo ismapped $btn]} {
	update
    }
    event generate $btn <Enter>
    event generate $btn <1> -x 5 -y 5







|


|







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