summaryrefslogtreecommitdiffstats
path: root/library/tkfbox.tcl
diff options
context:
space:
mode:
authorsurles <surles>1998-06-03 15:36:44 (GMT)
committersurles <surles>1998-06-03 15:36:44 (GMT)
commita8e2454b9193dd6b7cb03186d1aa32b19dfee318 (patch)
treebcd8e6ea39989613002fd60e101536e7259b927f /library/tkfbox.tcl
parent066ea7fd88d49cb456f74da71dbe875e4fc0aabb (diff)
downloadtk-a8e2454b9193dd6b7cb03186d1aa32b19dfee318.zip
tk-a8e2454b9193dd6b7cb03186d1aa32b19dfee318.tar.gz
tk-a8e2454b9193dd6b7cb03186d1aa32b19dfee318.tar.bz2
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.
Diffstat (limited to 'library/tkfbox.tcl')
-rw-r--r--library/tkfbox.tcl12
1 files 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