Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
bd9993e014917611d9733fe60d724908 |
| User & Date: | fvogel 2019-05-17 17:19:19 |
Context
|
2019-05-18
| ||
| 15:45 | Fix [eb29967e88]: Add horizontal scrolling support for Windows. Patch from Christopher Chavez. check-in: 93f1a8a2 user: fvogel tags: trunk | |
|
2019-05-17
| ||
| 17:19 | Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 check-in: bd9993e0 user: fvogel tags: trunk | |
| 17:18 | Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 check-in: 06fb23d8 user: fvogel tags: core-8-6-branch | |
| 13:43 | merge 8.6 check-in: 22e9ad26 user: dgp tags: trunk | |
Changes
Changes to tests/winDialog.test.
372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 |
unset msg
} -result bar.c
test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
nt testwinevent
} -body {
# In 8.6.4 this combination resulted in bar.ext.ext which is bad
start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {ext} -title Save]}
set msg {}
then {
if {[catch {SetText [vista? 0x47C 0x3e9] bar} msg]} {
Click cancel
} else {
Click ok
}
}
set x "[file tail $x]$msg"
} -cleanup {
unset msg
} -result bar.ext
test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
nt testwinevent
} -body {
unset -nocomplain x
tcltest::makeFile "" "5 7 7.ext" [initialdir]
start {set x [tk_getOpenFile \
-defaultextension ext \
-initialdir [file nativename [initialdir]] \
-initialfile "5 7 7" -title Foo]}
then {
Click ok
}
return $x
} -result [file join [initialdir] "5 7 7.ext"]
test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
nt testwinevent
} -body {
unset -nocomplain x
tcltest::makeFile "" "5 7 8.ext" [initialdir]
start {set x [tk_getOpenFile \
-defaultextension ext \
-initialdir [file nativename [initialdir]] \
-initialfile "5 7 8.ext" -title Foo]}
then {
Click ok
}
return $x
} -result [file join [initialdir] "5 7 8.ext"]
test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
nt testwinevent
} -body {
start {set x [tk_getSaveFile -defaultextension foo -title Save]}
set msg {}
then {
|
| | | | | | | | | | |
372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 |
unset msg
} -result bar.c
test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
nt testwinevent
} -body {
# In 8.6.4 this combination resulted in bar.aaa.aaa which is bad
start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {aaa} -title Save]}
set msg {}
then {
if {[catch {SetText [vista? 0x47C 0x3e9] bar} msg]} {
Click cancel
} else {
Click ok
}
}
set x "[file tail $x]$msg"
} -cleanup {
unset msg
} -result bar.aaa
test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
nt testwinevent
} -body {
unset -nocomplain x
tcltest::makeFile "" "5 7 7.aaa" [initialdir]
start {set x [tk_getOpenFile \
-defaultextension aaa \
-initialdir [file nativename [initialdir]] \
-initialfile "5 7 7" -title Foo]}
then {
Click ok
}
return $x
} -result [file join [initialdir] "5 7 7.aaa"]
test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
nt testwinevent
} -body {
unset -nocomplain x
tcltest::makeFile "" "5 7 8.aaa" [initialdir]
start {set x [tk_getOpenFile \
-defaultextension aaa \
-initialdir [file nativename [initialdir]] \
-initialfile "5 7 8.aaa" -title Foo]}
then {
Click ok
}
return $x
} -result [file join [initialdir] "5 7 8.aaa"]
test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
nt testwinevent
} -body {
start {set x [tk_getSaveFile -defaultextension foo -title Save]}
set msg {}
then {
|