Initial commit

1 files changed, 36 insertions, 0 deletions

diff --git a/ds9/library/bpanda.tcl b/ds9/library/bpanda.tcl
new file mode 100644
index 0000000..d7d6af8
--- /dev/null
+++ b/ds9/library/bpanda.tcl
@@ -0,0 +1,36 @@
+#  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 BpandaDialog {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) bpanda
+    set var(proc,apply) MarkerBasePandaRectApply
+    set var(proc,close) MarkerBasePandaRectClose
+    set var(proc,generate) BpandaGenerate
+    set var(proc,coordCB) MarkerBasePandaRectCoordCB
+    set var(proc,editCB) MarkerBasePandaRectEditCB
+    set var(proc,distCB) MarkerBasePandaRectDistCB
+
+    # base panda rect dialog
+    MarkerBasePandaRectDialog $varname
+}
+
+proc BpandaGenerate {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    MarkerBaseAnnulusGenerateBox $varname
+    MarkerBasePandaGenerateAngles $varname
+}