From ed467e00a8c1a1ed5c76b7c74101cb7bd23e6f8a Mon Sep 17 00:00:00 2001
From: fvogel <fvogel@noemail.net>
Date: Sun, 30 Oct 2016 18:01:51 +0000
Subject: Revert unintentional removal of ::tk_getFileType that happened in
 [374cb204]

FossilOrigin-Name: 02175bf2efc01db1a19e826939a8ecabfce2bc47
---
 library/xmfbox.tcl | 7 +++++++
 1 file changed, 7 insertions(+)

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)
+}
+
-- 
cgit v0.12