diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-11-22 12:22:12 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-11-22 12:22:12 (GMT) |
| commit | 76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2 (patch) | |
| tree | 30443c54b5df06b61e46e3f282757ae030c65521 /tests/winDialog.test | |
| parent | f5672abdd11a9f7e0e96109ff950859f37003c94 (diff) | |
| download | tk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.zip tk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.tar.gz tk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.tar.bz2 | |
Fixed internationalization issues with the winDialog tests
Diffstat (limited to 'tests/winDialog.test')
| -rw-r--r-- | tests/winDialog.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index 2f0d9ef..5cc6e34 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 1998-1999 ActiveState Corporation. # -# RCS: @(#) $Id: winDialog.test,v 1.22 2008/11/22 01:07:56 patthoyts Exp $ +# RCS: @(#) $Id: winDialog.test,v 1.23 2008/11/22 12:22:12 patthoyts Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -21,7 +21,7 @@ if {[testConstraint testwinevent]} { # Locale identifier LANG_ENGLISH is 0x09 testConstraint english [expr { [llength [info commands testwinlocale]] - && (([testwinlocale] & 0x09) == 9) + && (([testwinlocale] & 0xff) == 9) }] proc start {arg} { @@ -411,7 +411,8 @@ test winDialog-5.23 {GetFileName: convert \ to /} -constraints { } -body { start {set x [tk_getSaveFile -title Back]} then { - SetText 0x480 "$::env(TEMP)\\12x 457" + SetText 0x480 [file nativename \ + [file join [file normalize $::env(TEMP)] "12x 457"]] Click ok } return $x |