diff options
Diffstat (limited to 'ds9/library/frame.tcl')
-rw-r--r-- | ds9/library/frame.tcl | 63 |
1 files changed, 6 insertions, 57 deletions
diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl index 9b2d5a5..d4d004f 100644 --- a/ds9/library/frame.tcl +++ b/ds9/library/frame.tcl @@ -238,8 +238,7 @@ proc CreateNameNumberFrame {which type} { } switch $current(mode) { - crosshair - - analysis { + crosshair { $ds9(next) crosshair on } } @@ -565,8 +564,7 @@ proc EnterFrame {which x y} { $ds9(canvas) focus $which switch -- $current(mode) { - crosshair - - analysis { + crosshair { set coord [$which get crosshair canvas] set x [lindex $coord 0] set y [lindex $coord 1] @@ -621,8 +619,7 @@ proc LeaveFrame {which} { $ds9(canvas) focus {} switch -- $current(mode) { - crosshair - - analysis {} + crosshair {} none - pointer - @@ -685,8 +682,7 @@ proc DoMotion {which x y cursor1 cursor2} { switch -- $current(mode) { pointer - region - - catalog - - analysis { + catalog { if {$which == $current(frame)} { MarkerCursor $which $x $y $cursor1 $cursor2 } @@ -797,17 +793,6 @@ proc Button1Frame {which x y} { } UpdateMagnifier $which $x $y } - analysis { - IMEButton $which $x $y - - UpdateColormapLevelMosaic $which $x $y canvas - UpdateInfoBox $which $x $y canvas - UpdatePixelTableDialog $which $x $y canvas - UpdateGraphLayout $which - UpdateGraphAxis $which - UpdateGraphData $which $x $y canvas - UpdateMagnifier $which $x $y - } examine {ExamineButton $which $x $y} iexam {IExamButton $which $x $y} } @@ -849,10 +834,6 @@ proc ShiftButton1Frame {which x y} { } UpdateMagnifier $which $x $y } - analysis { - IMEShift $which $x $y - UpdateMagnifier $which $x $y - } examine - iexam {} } @@ -896,7 +877,6 @@ proc ControlButton1Frame {which x y} { Crop3dButton $which $x $y 1 UpdateMagnifier $which $x $y } - analysis {} examine - iexam {} } @@ -937,7 +917,6 @@ proc ControlShiftButton1Frame {which x y} { zoom - rotate - crop - - analysis {} examine - iexam {} } @@ -1022,15 +1001,6 @@ proc Motion1Frame {which x y} { UpdateGraphData $which $x $y canvas UpdateMagnifier $which $x $y } - analysis { - IMEMotion $which $x $y - - UpdateColormapLevelMosaic $which $x $y canvas - UpdateInfoBox $which $x $y canvas - UpdatePixelTableDialog $which $x $y canvas - UpdateGraphData $which $x $y canvas - UpdateMagnifier $which $x $y - } examine - iexam {} } @@ -1100,10 +1070,7 @@ proc Release1Frame {which x y} { CATRelease $which $x $y } } - none {} - analysis { - IMERelease $which $x $y - } + none - examine - iexam {} } @@ -1141,11 +1108,7 @@ proc Double1Frame {which x y} { zoom - rotate - crop - - catalog {} - analysis { - IMEDouble $which $x $y - UpdateMagnifier $which $x $y - } + catalog - examine - iexam {} } @@ -1170,7 +1133,6 @@ proc DoubleRelease1Frame {which x y} { rotate - crop - catalog - - analysis - examine - iexam {} } @@ -1448,19 +1410,6 @@ proc KeyFrame {which K A xx yy} { } CATKey $which $K } - analysis { - switch -- $K { - plus {CubeNext} - minus {CubePrev} - - Up {IMEArrowKey $which 0 -1} - Down {IMEArrowKey $which 0 1} - Left {IMEArrowKey $which -1 0} - Right {IMEArrowKey $which 1 0} - - default {IMEKey $which $K $xx $yy} - } - } iexam {IExamKey $which $K $xx $yy} colorbar - zoom - |