diff options
| -rw-r--r-- | library/xmfbox.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
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) |