Tk Source Code

Check-in [495b4850]
Login

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

Overview
Comment:winDialog-5.7 should be knownBug, not winDialog-5.9
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 495b485057a3c0eeaa441929dca28cb8b8e5e39b
User & Date: jan.nijtmans 2012-11-11 20:20:07
Context
2012-11-11
22:41
fix bug 3585396: winDialog.test requires user interaction. Tested on Windows XP SP2 (32-bit) and Windows 7 (64-bit) check-in: f0aa744f user: jan.nijtmans tags: trunk
20:25
merge-mark Closed-Leaf check-in: 5219dd28 user: jan.nijtmans tags: bug-3585396
20:20
winDialog-5.7 should be knownBug, not winDialog-5.9 check-in: 495b4850 user: jan.nijtmans tags: trunk
2012-11-09
13:43
merge mark check-in: 55ec2dac user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/winDialog.test.

225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
} -result {0}
test winDialog-5.6 {GetFileName: valid option, but missing value} -constraints {
    nt
} -body {
    tk_getOpenFile -initialdir bar -title
} -returnCodes error -result {value for "-title" missing}
test winDialog-5.7 {GetFileName: extension begins with .} -constraints {
    nt testwinevent
} -body {
#    if (string[0] == '.') {
#    string++;
#    }

    start {set x [tk_getSaveFile -defaultextension .foo -title Save]}
    then {







|







225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
} -result {0}
test winDialog-5.6 {GetFileName: valid option, but missing value} -constraints {
    nt
} -body {
    tk_getOpenFile -initialdir bar -title
} -returnCodes error -result {value for "-title" missing}
test winDialog-5.7 {GetFileName: extension begins with .} -constraints {
    nt testwinevent knownBug
} -body {
#    if (string[0] == '.') {
#    string++;
#    }

    start {set x [tk_getSaveFile -defaultextension .foo -title Save]}
    then {
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
    then {
        SetText 0x480 bar
        Click ok
    }
    string totitle $x
} -result [string totitle [file join [pwd] bar.foo]]
test winDialog-5.9 {GetFileName: file types} -constraints {
    nt testwinevent knownBug
} -body {
#        case FILE_TYPES:

    start {tk_getSaveFile -filetypes {{"foo files" .foo FOOF}} -title Foo}
    then {
        set x [GetText 0x470]
        Click cancel







|







249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
    then {
        SetText 0x480 bar
        Click ok
    }
    string totitle $x
} -result [string totitle [file join [pwd] bar.foo]]
test winDialog-5.9 {GetFileName: file types} -constraints {
    nt testwinevent
} -body {
#        case FILE_TYPES:

    start {tk_getSaveFile -filetypes {{"foo files" .foo FOOF}} -title Foo}
    then {
        set x [GetText 0x470]
        Click cancel