diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-02 22:18:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-02 22:18:12 (GMT) |
commit | f4a302585608ea738769a5ea3b83577723989a2a (patch) | |
tree | 5a6254a01fa30e31c90111312cff46ca2e598453 /ds9/library/wcs.tcl | |
parent | d3b02990042d906a637b240a68529b9257045001 (diff) | |
download | blt-f4a302585608ea738769a5ea3b83577723989a2a.zip blt-f4a302585608ea738769a5ea3b83577723989a2a.tar.gz blt-f4a302585608ea738769a5ea3b83577723989a2a.tar.bz2 |
fix -close issue if no -open first
Diffstat (limited to 'ds9/library/wcs.tcl')
-rw-r--r-- | ds9/library/wcs.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ds9/library/wcs.tcl b/ds9/library/wcs.tcl index 2a98b6a..cab8e42 100644 --- a/ds9/library/wcs.tcl +++ b/ds9/library/wcs.tcl @@ -440,9 +440,8 @@ proc WCSDestroyDialog {} { if {[winfo exists $iwcs(top)]} { destroy $iwcs(top) destroy $iwcs(mb) + unset dwcs } - - unset dwcs } proc WCSSaveDialog {} { |