diff options
| author | fvogel <fvogel@noemail.net> | 2016-10-30 18:01:51 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-10-30 18:01:51 (GMT) |
| commit | ed467e00a8c1a1ed5c76b7c74101cb7bd23e6f8a (patch) | |
| tree | 1c069940d9f64948b577dd6f21dbc5be14a1f00f | |
| parent | 9db68840674e7ec5185bc19ccedb21ecca0d62c2 (diff) | |
| download | tk-ed467e00a8c1a1ed5c76b7c74101cb7bd23e6f8a.zip tk-ed467e00a8c1a1ed5c76b7c74101cb7bd23e6f8a.tar.gz tk-ed467e00a8c1a1ed5c76b7c74101cb7bd23e6f8a.tar.bz2 | |
Revert unintentional removal of ::tk_getFileType that happened in [374cb204]
FossilOrigin-Name: 02175bf2efc01db1a19e826939a8ecabfce2bc47
| -rw-r--r-- | library/xmfbox.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index f1daea0..14d2be5 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -210,6 +210,7 @@ proc ::tk::MotifFDialog_SetFilter {w type} { variable ::tk::Priv set data(filter) [lindex $type 1] + set Priv(selectFileType) [lindex [lindex $type 0] 0] MotifFDialog_Update $w } @@ -980,3 +981,9 @@ proc ::tk::ListBoxKeyAccel_Reset {w} { unset -nocomplain Priv(lbAccel,$w) } +proc ::tk_getFileType {} { + variable ::tk::Priv + + return $Priv(selectFileType) +} + |