From 4cf3cb0dcb352b028b6d412ba64884135bcdd1f8 Mon Sep 17 00:00:00 2001
From: "nijtmans@users.sourceforge.net" <jan.nijtmans>
Date: Tue, 26 May 2015 12:35:23 +0000
Subject: Fix [1641721]: tk_getOpenFile shows symlinks to directories twice.

---
 library/tkfbox.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index e145805..fd0f6d7 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -1896,6 +1896,10 @@ proc ::tk::dialog::file::GlobFiltered {dir type {overrideFilter 0}} {
 	    if {$f eq "." || $f eq ".."} {
 		continue
 	    }
+	    # See ticket [1641721], $f might be a link pointing to a dir
+	    if {$type != "d" && [file isdir [file join $dir $f]]} {
+		continue
+	    }
 	    lappend result $f
 	}
     }
-- 
cgit v0.12