diff options
Diffstat (limited to 'ds9/library/util.tcl')
-rw-r--r-- | ds9/library/util.tcl | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index b6420d5..acdd5fc 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -90,7 +90,6 @@ proc UpdateDS9 {} { UpdateWCSMenu UpdateAnalysisMenu - UpdateTaskMenu UpdateMaskMenu UpdateContourMenu UpdateGridMenu @@ -139,8 +138,7 @@ proc UpdateMain {} { RefreshInfoBox $current(frame) UpdateColormapLevel switch -- $current(mode) { - crosshair - - analysis { + crosshair { if {$current(frame) != {}} { set coord [$current(frame) get crosshair canvas] set x [lindex $coord 0] @@ -977,13 +975,6 @@ proc ChangeMode {} { pan {SetCursor fleur} rotate {SetCursor exchange} crop {SetCursor {}} - analysis { - foreach ff $ds9(frames) { - $ff crosshair on - } - SetCursor crosshair - IMEChangeShape - } examine {SetCursor target} iexam {} } @@ -1497,8 +1488,7 @@ proc CursorCmd {x y} { pan {PanCanvas $x $y} zoom - rotate - - crop {} - analysis {IMEArrowKey $current(frame) $x $y} + crop - examine - iexam {} } |