summaryrefslogtreecommitdiffstats
path: root/tests/filebox.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-10-21 13:51:49 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-10-21 13:51:49 (GMT)
commita5f7470fb2e495084108b199c82e9d5d963601b0 (patch)
tree4e36e36b92f4f2836b87ce0b6eade1b056e2cffa /tests/filebox.test
parentaccccf31ba1dc7853462e1f041663a5b1ecd6e4d (diff)
downloadtk-a5f7470fb2e495084108b199c82e9d5d963601b0.zip
tk-a5f7470fb2e495084108b199c82e9d5d963601b0.tar.gz
tk-a5f7470fb2e495084108b199c82e9d5d963601b0.tar.bz2
Fixed [3588460fff] - -typevariable buggy in X11, this time when tk_strictMotif is true.
Diffstat (limited to 'tests/filebox.test')
-rw-r--r--tests/filebox.test6
1 files changed, 1 insertions, 5 deletions
diff --git a/tests/filebox.test b/tests/filebox.test
index 41382a2..2f87c3e 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -281,11 +281,7 @@ foreach mode $modes {
-initialfile $fileName -initialdir $fileDir \
-typevariable tv]
if {[info exists tv]} {
- if {$mode == 0} {
- set typeName $tv
- } else {
- regexp {^(.*) \(.*\)$} $tv dummy typeName
- }
+ set typeName $tv
} else {
set typeName "-unset-"
}