diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-09 10:59:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-09 10:59:45 (GMT) |
| commit | 84daf732f3905a6f3f96746e8c65eaa1fce83d9e (patch) | |
| tree | 3e828f7e111da9cf990b06b59b689da51fceaa61 /tests/winDialog.test | |
| parent | 9dfb62d45d29b6eef7a298530bc334f5353aa874 (diff) | |
| download | tk-84daf732f3905a6f3f96746e8c65eaa1fce83d9e.zip tk-84daf732f3905a6f3f96746e8c65eaa1fce83d9e.tar.gz tk-84daf732f3905a6f3f96746e8c65eaa1fce83d9e.tar.bz2 | |
demo fix for bug 3585396. On which platforms this fails?
Diffstat (limited to 'tests/winDialog.test')
| -rw-r--r-- | tests/winDialog.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index c092e76..77317b1 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -237,7 +237,7 @@ 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 @@ -247,7 +247,7 @@ test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints { } -body { start {set x [tk_getSaveFile -defaultextension foo -title Save]} then { - SetText 0x480 bar + SetText 0x47C bar Click ok } string totitle $x @@ -413,7 +413,7 @@ test winDialog-5.23 {GetFileName: convert \ to /} -constraints { } -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 } |