diff options
| author | ericm <ericm> | 2000-02-01 23:23:21 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-02-01 23:23:21 (GMT) |
| commit | 3064162d9d6b976b8f052635cab3bf5def643b4b (patch) | |
| tree | 885aa4ec096df1c529ef7159e6e0b4b2f4a8c061 /library/tk.tcl | |
| parent | d029a3f0572fd461b639eadd8d469ff99d01c4b5 (diff) | |
| download | tk-3064162d9d6b976b8f052635cab3bf5def643b4b.zip tk-3064162d9d6b976b8f052635cab3bf5def643b4b.tar.gz tk-3064162d9d6b976b8f052635cab3bf5def643b4b.tar.bz2 | |
* library/tk.tcl:
* library/tclIndex:
* library/choosedir.tcl: Moved choosedir functions into the
::tk::dialog::chooseDir namespace instead of a toplevel
::tkChooseDirectory namespace. Additional cleanup on the
chooseDir dialog.
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index e5347cc..be7b23e 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -3,7 +3,7 @@ # Initialization script normally executed in the interpreter for each # Tk-based application. Arranges class bindings for widgets. # -# RCS: @(#) $Id: tk.tcl,v 1.17 2000/01/27 00:23:10 ericm Exp $ +# RCS: @(#) $Id: tk.tcl,v 1.18 2000/02/01 23:23:21 ericm Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -256,7 +256,7 @@ if {[string equal [info commands tk_messageBox] ""]} { } if {[string equal [info command tk_chooseDirectory] ""]} { proc tk_chooseDirectory {args} { - return [eval ::tkChooseDirectory::tk_chooseDirectory $args] + return [eval ::tk::dialog::chooseDir::tkChooseDirectory $args] } } |