diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-10-21 13:51:49 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-10-21 13:51:49 (GMT) |
| commit | a5f7470fb2e495084108b199c82e9d5d963601b0 (patch) | |
| tree | 4e36e36b92f4f2836b87ce0b6eade1b056e2cffa /tests/filebox.test | |
| parent | accccf31ba1dc7853462e1f041663a5b1ecd6e4d (diff) | |
| download | tk-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.test | 6 |
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-" } |