diff options
| author | stanton <stanton> | 1998-12-08 02:06:39 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-12-08 02:06:39 (GMT) |
| commit | d836834322470697bbb05bb1abf2daac3fd06b0a (patch) | |
| tree | fd6951a1fb957818c5066bf0fa3a350b60e43ff3 | |
| parent | 1c9de5a835b1497a34e68c890d2174ada9b3cbca (diff) | |
| download | tk-d836834322470697bbb05bb1abf2daac3fd06b0a.zip tk-d836834322470697bbb05bb1abf2daac3fd06b0a.tar.gz tk-d836834322470697bbb05bb1abf2daac3fd06b0a.tar.bz2 | |
* library/xmfbox.tcl (tkMotifFDialog_Create): In the cached case,
the data array was not being initialized with the correct set of
widgets.
| -rw-r--r-- | library/xmfbox.tcl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 4865e9b..19dd9aa 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -4,7 +4,7 @@ # Unix platform. This implementation is used only if the # "tk_strictMotif" flag is set. # -# RCS: @(#) $Id: xmfbox.tcl,v 1.1.4.3 1998/11/25 21:16:34 stanton Exp $ +# RCS: @(#) $Id: xmfbox.tcl,v 1.1.4.4 1998/12/08 02:06:39 stanton Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -103,7 +103,16 @@ proc tkMotifFDialog_Create {dataName type argList} { } elseif {[string compare [winfo class $w] TkMotifFDialog]} { destroy $w tkMotifFDialog_BuildUI $w + } else { + set data(fEnt) $w.top.f1.ent + set data(dList) $w.top.f2.a.l + set data(fList) $w.top.f2.b.l + set data(sEnt) $w.top.f3.ent + set data(okBtn) $w.bot.ok + set data(filterBtn) $w.bot.filter + set data(cancelBtn) $w.bot.cancel } + wm transient $w $data(-parent) tkMotifFDialog_Update $w |