summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-07-15 00:05:52 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-07-15 00:05:52 (GMT)
commit5c0c77a23967d1959e8f5ec7e21695cf0f3d4b6c (patch)
treebe117e3b51a7ef1b317dc3ba6d0e06010c706175 /library
parentad0b169fffb30d54aea311de7fc443fec1cbcb2a (diff)
downloadtk-5c0c77a23967d1959e8f5ec7e21695cf0f3d4b6c.zip
tk-5c0c77a23967d1959e8f5ec7e21695cf0f3d4b6c.tar.gz
tk-5c0c77a23967d1959e8f5ec7e21695cf0f3d4b6c.tar.bz2
* library/tkfbox.tcl: Corrected coding errors in most recent change.
Use [bind $w], not [$w configure] to modify bindings.
Diffstat (limited to 'library')
-rw-r--r--library/tkfbox.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index 45892ef..ada21b8 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.42 2004/07/11 22:21:19 dkf Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.43 2004/07/15 00:05:54 dgp Exp $
#
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
#
@@ -1661,7 +1661,7 @@ proc ::tk::dialog::file::CancelCmd {w} {
upvar ::tk::dialog::file::[winfo name $w] data
variable ::tk::Priv
- $data(okBtn) configure <Destroy> {}
+ bind $data(okBtn) <Destroy> {}
set Priv(selectFilePath) ""
}
@@ -1792,6 +1792,6 @@ proc ::tk::dialog::file::Done {w {selectFilePath ""}} {
}
}
}
- $data(okBtn) configure <Destroy> {}
+ bind $data(okBtn) <Destroy> {}
set Priv(selectFilePath) $selectFilePath
}