summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-10-30 18:01:51 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-10-30 18:01:51 (GMT)
commit3938426eec1ec1156da28475d2802ea2aa706fe5 (patch)
tree1c069940d9f64948b577dd6f21dbc5be14a1f00f
parente749f909676946687b224b350e984f013f57760e (diff)
downloadtk-3938426eec1ec1156da28475d2802ea2aa706fe5.zip
tk-3938426eec1ec1156da28475d2802ea2aa706fe5.tar.gz
tk-3938426eec1ec1156da28475d2802ea2aa706fe5.tar.bz2
Revert unintentional removal of ::tk_getFileType that happened in [374cb204]bug_3588460fff
-rw-r--r--library/xmfbox.tcl7
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)
+}
+