diff options
| -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] |