diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 15:12:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-02 15:12:07 (GMT) |
| commit | daff9cc600c12011ec73db0ca9870b6abf1e5542 (patch) | |
| tree | 11f0990656358c575a20aecf8cccf7348a3f6824 /library | |
| parent | 7139ad6c1163b288db84fd62e1aa68d6516073ef (diff) | |
| download | tk-daff9cc600c12011ec73db0ca9870b6abf1e5542.zip tk-daff9cc600c12011ec73db0ca9870b6abf1e5542.tar.gz tk-daff9cc600c12011ec73db0ca9870b6abf1e5542.tar.bz2 | |
Missed a file that needed updating to handle the changed internal
structure of dialogs
Diffstat (limited to 'library')
| -rw-r--r-- | library/choosedir.tcl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/library/choosedir.tcl b/library/choosedir.tcl index 3735109..6f65b1b 100644 --- a/library/choosedir.tcl +++ b/library/choosedir.tcl @@ -5,7 +5,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.tcl,v 1.21 2007/10/30 22:29:41 hobbs Exp $ +# RCS: @(#) $Id: choosedir.tcl,v 1.22 2007/11/02 15:12:07 dkf Exp $ # Make sure the tk::dialog namespace, in which all dialogs should live, exists namespace eval ::tk::dialog {} @@ -43,14 +43,14 @@ proc ::tk::dialog::file::chooseDir:: {args} { destroy $w ::tk::dialog::file::Create $w TkChooseDir } else { - set data(dirMenuBtn) $w.f1.menu - set data(dirMenu) $w.f1.menu.menu - set data(upBtn) $w.f1.up - set data(icons) $w.icons - set data(ent) $w.f2.ent - set data(okBtn) $w.f2.ok - set data(cancelBtn) $w.f2.cancel - set data(hiddenBtn) $w.f2.hidden + set data(dirMenuBtn) $w.contents.f1.menu + set data(dirMenu) $w.contents.f1.menu.menu + set data(upBtn) $w.contents.f1.up + set data(icons) $w.contents.icons + set data(ent) $w.contents.f2.ent + set data(okBtn) $w.contents.f2.ok + set data(cancelBtn) $w.contents.f2.cancel + set data(hiddenBtn) $w.contents.f2.hidden } if {$::tk::dialog::file::showHiddenBtn} { $data(hiddenBtn) configure -state normal |