summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-11-22 12:22:12 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-11-22 12:22:12 (GMT)
commit76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2 (patch)
tree30443c54b5df06b61e46e3f282757ae030c65521
parentf5672abdd11a9f7e0e96109ff950859f37003c94 (diff)
downloadtk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.zip
tk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.tar.gz
tk-76c04ee36744e2a988a33f9d8ccb9d3b7e2359c2.tar.bz2
Fixed internationalization issues with the winDialog tests
-rw-r--r--tests/winDialog.test7
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