From a769d3606fd121d7952d2e97b6929dac9ade6181 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Tue, 10 Jul 2018 17:54:21 -0400
Subject: minor comments

---
 ds9/library/markeranalysisplot2d.tcl | 1 +
 ds9/library/projection.tcl           | 5 +++++
 2 files changed, 6 insertions(+)

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)
-- 
cgit v0.12