diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-11 19:17:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-11 19:17:58 (GMT) |
commit | f01d60ccbb6124acd3b51fb67a3332f07b824cee (patch) | |
tree | 4944cd63e716af229ae49af96e67f1a3b5f58aab /ds9/library/marker.tcl | |
parent | 0687f8781a9d6ae85df3eec400dae77a0f06fd4a (diff) | |
download | blt-f01d60ccbb6124acd3b51fb67a3332f07b824cee.zip blt-f01d60ccbb6124acd3b51fb67a3332f07b824cee.tar.gz blt-f01d60ccbb6124acd3b51fb67a3332f07b824cee.tar.bz2 |
add ds9 wcs parser
Diffstat (limited to 'ds9/library/marker.tcl')
-rw-r--r-- | ds9/library/marker.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ds9/library/marker.tcl b/ds9/library/marker.tcl index f26a0b7..78a31da 100644 --- a/ds9/library/marker.tcl +++ b/ds9/library/marker.tcl @@ -1998,13 +1998,15 @@ proc RegionCmdLoad {} { global marker global current + if {$current(frame) == {} || ![$current(frame) has fits]} { + return + } + if {$marker(load,sock) != {}} { # xpa path # fits regions files not supported - if {$current(frame) != {} && [$current(frame) has fits]} { - $current(frame) marker load $marker(load,format) \ - $marker(load,sock) $marker(load,system) $marker(load,sky) - } + $current(frame) marker load $marker(load,format) \ + $marker(load,sock) $marker(load,system) $marker(load,sky) UpdateGroupDialog } elseif {$marker(load,fn) != {}} { # samp path |