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 | e749f909676946687b224b350e984f013f57760e (patch) | |
| tree | 4e36e36b92f4f2836b87ce0b6eade1b056e2cffa /tests/filebox.test | |
| parent | 910bf2864599dfd5aa2aa00cd5fc225c01c17146 (diff) | |
| download | tk-e749f909676946687b224b350e984f013f57760e.zip tk-e749f909676946687b224b350e984f013f57760e.tar.gz tk-e749f909676946687b224b350e984f013f57760e.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-" } |