From a8e2454b9193dd6b7cb03186d1aa32b19dfee318 Mon Sep 17 00:00:00 2001
From: surles <surles>
Date: Wed, 3 Jun 1998 15:36:44 +0000
Subject: bug fix: 1) If the -initialdir option was "." the result would be
 "././foo.tcl" instead of an absolute path, like the Windows interface.   2)
 There is a traceVar on the data(selectPath) where the script was assumes the
 window exists.

---
 library/tkfbox.tcl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index d81a5a2..31ca6f8 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -309,7 +309,7 @@ proc tkIconList_Invoke {w} {
     upvar #0 $w data
 
     if {[string compare $data(-command) ""] && [info exists data(selected)]} {
-	eval $data(-command) [list $data(selected)]
+	eval $data(-command)
     }
 }
 
@@ -826,7 +826,7 @@ static char updir_bits[] = {
     #
     set data(icons) [tkIconList $w.icons \
 	-browsecmd "tkFDialog_ListBrowse $w" \
-	-command   "tkFDialog_ListInvoke $w"]
+	-command   "tkFDialog_OkCmd $w"]
 
     # f2: the frame with the OK button and the "file name" field
     #
@@ -1062,7 +1062,7 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
 #
 proc tkFDialog_SetPathSilently {w path} {
     upvar #0 [winfo name $w] data
-
+    
     trace vdelete  data(selectPath) w "tkFDialog_SetPath $w"
     set data(selectPath) $path
     trace variable data(selectPath) w "tkFDialog_SetPath $w"
@@ -1072,8 +1072,10 @@ proc tkFDialog_SetPathSilently {w path} {
 # This proc gets called whenever data(selectPath) is set
 #
 proc tkFDialog_SetPath {w name1 name2 op} {
-    upvar #0 [winfo name $w] data
-    tkFDialog_UpdateWhenIdle $w
+    if {[winfo exists $w]} {
+	upvar #0 [winfo name $w] data
+	tkFDialog_UpdateWhenIdle $w
+    }
 }
 
 # This proc gets called whenever data(filter) is set
-- 
cgit v0.12