Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Constrain tests presumed to improperly demand user interaction. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a8478166f02e9bb5c07abaef7a244104 |
| User & Date: | dgp 2012-11-09 13:36:31 |
Context
|
2012-11-09
| ||
| 13:43 | merge mark check-in: 55ec2dac user: dgp tags: trunk | |
| 13:36 | Constrain tests presumed to improperly demand user interaction. check-in: a8478166 user: dgp tags: trunk | |
| 13:29 | Constrain tests that improperly demand user interaction. check-in: bf7ebc07 user: dgp tags: core-8-5-branch | |
|
2012-11-08
| ||
| 15:28 | Updated the language of the documentation so that "object" refers to an OO concept throughout, and a Tcl_Obj is called a "value" (which is what it is). check-in: 3a0b1c1e user: dkf tags: trunk | |
Changes
Changes to tests/winDialog.test.
| ︙ | ︙ | |||
239 240 241 242 243 244 245 |
then {
SetText 0x480 bar
Click ok
}
string totitle $x
} -result [string totitle [file join [pwd] bar.foo]]
test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
| | | | 239 240 241 242 243 244 245 246 247 248 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.8 {GetFileName: extension doesn't begin with .} -constraints {
nt testwinevent knownBug
} -body {
start {set x [tk_getSaveFile -defaultextension foo -title Save]}
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
|
| ︙ | ︙ | |||
405 406 407 408 409 410 411 |
set x [GetText ok]
Click cancel
}
return $x
} -result {&Save}
if {[info exists ::env(TEMP)]} {
test winDialog-5.23 {GetFileName: convert \ to /} -constraints {
| | | 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 |
set x [GetText ok]
Click cancel
}
return $x
} -result {&Save}
if {[info exists ::env(TEMP)]} {
test winDialog-5.23 {GetFileName: convert \ to /} -constraints {
nt testwinevent knownBug
} -body {
start {set x [tk_getSaveFile -title Back]}
then {
SetText 0x480 [file nativename \
[file join [file normalize $::env(TEMP)] "12x 457"]]
Click ok
}
|
| ︙ | ︙ |