From 1d739e308935b0ff87146ce4e6733a3b59626c2a Mon Sep 17 00:00:00 2001 From: stanton Date: Thu, 25 Jun 1998 17:20:55 +0000 Subject: fixed reinitialization bug --- library/xmfbox.tcl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 361f08a..39ef16d 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -51,6 +51,14 @@ proc tkMotifFDialog {args} { } elseif {[string compare [winfo class $w] TkMotifFDialog]} { destroy $w tkMotifFDialog_Create $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) -- cgit v0.12