Initial commit

1 files changed, 38 insertions, 0 deletions

diff --git a/ds9/library/epanda.tcl b/ds9/library/epanda.tcl
new file mode 100644
index 0000000..93072d0
--- /dev/null
+++ b/ds9/library/epanda.tcl
@@ -0,0 +1,38 @@
+#  Copyright (C) 1999-2016
+#  Smithsonian Astrophysical Observatory, Cambridge, MA, USA
+#  For conditions of distribution and use, see copyright notice in "copyright"
+
+package provide DS9 1.0
+
+proc EpandaDialog {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    # see if we already have a header window visible
+    if {[winfo exists $var(top)]} {
+	raise $var(top)
+	return
+    }
+
+    # procs
+    set var(which) epanda
+    set var(proc,apply) MarkerBasePandaRectApply
+    set var(proc,close) MarkerBasePandaRectClose
+    set var(proc,generate) EpandaGenerate
+    set var(proc,coordCB) MarkerBasePandaRectCoordCB
+    set var(proc,editCB) MarkerBasePandaRectEditCB
+    set var(proc,distCB) MarkerBasePandaRectDistCB
+
+    # base panda rect dialog
+    MarkerBasePandaRectDialog $varname
+}
+
+# actions
+
+proc EpandaGenerate {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    MarkerBaseAnnulusGenerateEllipse $varname
+    MarkerBasePandaGenerateAngles $varname
+}