diff options
| author | stanton <stanton> | 1998-06-25 17:20:55 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-25 17:20:55 (GMT) |
| commit | 1d739e308935b0ff87146ce4e6733a3b59626c2a (patch) | |
| tree | bf746c48871e294bbf0321765dc3c86fae4137af /library/xmfbox.tcl | |
| parent | b7356096e242b018e693ede54aca9241bf5b12af (diff) | |
| download | tk-1d739e308935b0ff87146ce4e6733a3b59626c2a.zip tk-1d739e308935b0ff87146ce4e6733a3b59626c2a.tar.gz tk-1d739e308935b0ff87146ce4e6733a3b59626c2a.tar.bz2 | |
fixed reinitialization bug
Diffstat (limited to 'library/xmfbox.tcl')
| -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) |