diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-14 18:05:45 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-14 18:05:45 (GMT) |
| commit | 5653c1de66efb783b20b2fe6576fb06b357c005b (patch) | |
| tree | a760ffc1d27871886d4d4f0be7ce3e1b57133d9f /ds9/library/catdialog.tcl | |
| parent | 1bbd30a2b46492aafbd58853ba9f0fbaa6e8cb32 (diff) | |
| download | blt-5653c1de66efb783b20b2fe6576fb06b357c005b.zip blt-5653c1de66efb783b20b2fe6576fb06b357c005b.tar.gz blt-5653c1de66efb783b20b2fe6576fb06b357c005b.tar.bz2 | |
close catalog header if open when close catalog
Diffstat (limited to 'ds9/library/catdialog.tcl')
| -rw-r--r-- | ds9/library/catdialog.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ds9/library/catdialog.tcl b/ds9/library/catdialog.tcl index 466b279..86eff53 100644 --- a/ds9/library/catdialog.tcl +++ b/ds9/library/catdialog.tcl @@ -737,6 +737,13 @@ proc CATDestroy {varname} { PlotDestroy $var(plot,var) } + # cat header? + set vvarname ${varname}hdr + global $vvarname + if {[info exists $vvarname]} { + SimpleTextDestroy $vvarname + } + ARDestroy $varname } |