summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorericm <ericm>2000-01-21 22:44:40 (GMT)
committerericm <ericm>2000-01-21 22:44:40 (GMT)
commitaa3710e2c145ee2478db5c698bc2a6ff47911f9b (patch)
tree3e9819385be4328b9a43ead8d1706b76364be2bf /library
parent809ff15f94c450ae08db7edb4c6c0d405760664e (diff)
downloadtk-aa3710e2c145ee2478db5c698bc2a6ff47911f9b.zip
tk-aa3710e2c145ee2478db5c698bc2a6ff47911f9b.tar.gz
tk-aa3710e2c145ee2478db5c698bc2a6ff47911f9b.tar.bz2
* library/tkfbox.tcl: Fixed bug relating to incorrect parent
values for error message boxes displayed by the file dialog (bug #3616).
Diffstat (limited to 'library')
-rw-r--r--library/tkfbox.tcl16
1 files changed, 8 insertions, 8 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index ef17c61..c5ffc87 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -11,7 +11,7 @@
# files by clicking on the file icons or by entering a filename
# in the "Filename:" entry.
#
-# RCS: @(#) $Id: tkfbox.tcl,v 1.13 2000/01/06 02:22:25 hobbs Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.14 2000/01/21 22:44:42 ericm Exp $
#
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
#
@@ -975,7 +975,7 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
# should have been checked before tkFDialog_Update is called, so
# we normally won't come to here. Anyways, give an error and abort
# action.
- tk_messageBox -type ok -parent $data(-parent) -message \
+ tk_messageBox -type ok -parent $w -message \
"Cannot change to the directory \"$data(selectPath)\".\nPermission denied."\
-icon warning
cd $appPWD
@@ -1255,7 +1255,7 @@ proc tkFDialog_ActivateEnt {w} {
}
FILE {
if {[string equal $data(type) open]} {
- tk_messageBox -icon warning -type ok -parent $data(-parent) \
+ tk_messageBox -icon warning -type ok -parent $w \
-message "File \"[file join $path $file]\" does not exist."
$data(ent) selection range 0 end
$data(ent) icursor end
@@ -1266,20 +1266,20 @@ proc tkFDialog_ActivateEnt {w} {
}
}
PATH {
- tk_messageBox -icon warning -type ok -parent $data(-parent) \
+ tk_messageBox -icon warning -type ok -parent $w \
-message "Directory \"$path\" does not exist."
$data(ent) selection range 0 end
$data(ent) icursor end
}
CHDIR {
- tk_messageBox -type ok -parent $data(-parent) -message \
+ tk_messageBox -type ok -parent $w -message \
"Cannot change to the directory \"$path\".\nPermission denied."\
-icon warning
$data(ent) selection range 0 end
$data(ent) icursor end
}
ERROR {
- tk_messageBox -type ok -parent $data(-parent) -message \
+ tk_messageBox -type ok -parent $w -message \
"Invalid file name \"$path\"."\
-icon warning
$data(ent) selection range 0 end
@@ -1387,7 +1387,7 @@ proc tkFDialog_ListInvoke {w text} {
if {[file isdirectory $file]} {
set appPWD [pwd]
if {[catch {cd $file}]} {
- tk_messageBox -type ok -parent $data(-parent) -message \
+ tk_messageBox -type ok -parent $w -message \
"Cannot change to the directory \"$file\".\nPermission denied."\
-icon warning
} else {
@@ -1420,7 +1420,7 @@ proc tkFDialog_Done {w {selectFilePath ""}} {
if {[file exists $selectFilePath] && [string equal $data(type) save]} {
set reply [tk_messageBox -icon warning -type yesno\
- -parent $data(-parent) -message "File\
+ -parent $w -message "File\
\"$selectFilePath\" already exists.\nDo\
you want to overwrite it?"]
if {[string equal $reply "no"]} {