diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-07-10 21:54:21 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-07-10 21:54:21 (GMT) |
commit | a769d3606fd121d7952d2e97b6929dac9ade6181 (patch) | |
tree | 59535b989b5565ece9bc269f7b80dac92f810424 /ds9/library | |
parent | f8a175bf5b2c4ad0ae830c0c09d096e4aeb58785 (diff) | |
download | blt-a769d3606fd121d7952d2e97b6929dac9ade6181.zip blt-a769d3606fd121d7952d2e97b6929dac9ade6181.tar.gz blt-a769d3606fd121d7952d2e97b6929dac9ade6181.tar.bz2 |
minor comments
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/markeranalysisplot2d.tcl | 1 | ||||
-rw-r--r-- | ds9/library/projection.tcl | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/ds9/library/markeranalysisplot2d.tcl b/ds9/library/markeranalysisplot2d.tcl index cacf93f..fa8fc5d 100644 --- a/ds9/library/markeranalysisplot2d.tcl +++ b/ds9/library/markeranalysisplot2d.tcl @@ -194,6 +194,7 @@ proc MarkerAnalysisPlot2dCB {frame id} { PlotList $vvarname } +# hardcoded marker.C proc MarkerAnalysisPlot2dDeleteCB {frame id} { # this routine could be called by the region # after the dialog has been deleted diff --git a/ds9/library/projection.tcl b/ds9/library/projection.tcl index c0ab02c..3291c6e 100644 --- a/ds9/library/projection.tcl +++ b/ds9/library/projection.tcl @@ -58,6 +58,11 @@ proc ProjectionApply {varname} { upvar #0 $varname var global $varname + global debug + if {$debug(tcl,marker)} { + puts stderr "ProjectionApply" + } + $var(frame) marker $var(id) projection $var(system) $var(sky) \ $var(x) $var(y) $var(x2) $var(y2) \ $var(thick) $var(tcoord) $var(tformat) |