diff options
| -rw-r--r-- | tests/winDialog.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index 3285a4c..77317b1 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -237,23 +237,23 @@ test winDialog-5.7 {GetFileName: extension begins with .} -constraints { start {set x [tk_getSaveFile -defaultextension .foo -title Save]} then { - SetText 0x480 bar + SetText 0x47C 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 + nt testwinevent } -body { start {set x [tk_getSaveFile -defaultextension foo -title Save]} then { - SetText 0x480 bar + SetText 0x47C 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 + nt testwinevent } -body { # case FILE_TYPES: @@ -409,11 +409,11 @@ test winDialog-5.22 {GetFileName: call GetSaveFileName} -constraints { } -result {&Save} if {[info exists ::env(TEMP)]} { test winDialog-5.23 {GetFileName: convert \ to /} -constraints { - nt testwinevent knownBug + nt testwinevent } -body { start {set x [tk_getSaveFile -title Back]} then { - SetText 0x480 [file nativename \ + SetText 0x47C [file nativename \ [file join [file normalize $::env(TEMP)] "12x 457"]] Click ok } |