diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-07-25 17:03:16 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-07-25 17:03:16 (GMT) |
| commit | c7dfcac71dd5a658cd885c96bb42d20416cca76f (patch) | |
| tree | 23c9260eaf19f3f43b0999d20b7c9218724b860f | |
| parent | 10d16524ff635dfa0aefb3a36f511e13ef7a3930 (diff) | |
| download | blt-c7dfcac71dd5a658cd885c96bb42d20416cca76f.zip blt-c7dfcac71dd5a658cd885c96bb42d20416cca76f.tar.gz blt-c7dfcac71dd5a658cd885c96bb42d20416cca76f.tar.bz2 | |
add check for non wcs celestial FOV region
| -rw-r--r-- | ds9/library/marker.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ds9/library/marker.tcl b/ds9/library/marker.tcl index bca6116..3cedd7e 100644 --- a/ds9/library/marker.tcl +++ b/ds9/library/marker.tcl @@ -379,6 +379,11 @@ proc MarkerButton {which x y} { {arrow point} - {boxcircle point} {MarkerCreateShape $which $x $y} default { + if {![$which has wcs celestial wcs]} { + Error "[msgcat::mc {Unable to create FOV Region, celestial WCS Required}]" + return + } + set fn "$ds9(root)/template/$itemplate($marker(shape))" set ch [open $fn r] |