diff options
Diffstat (limited to 'ds9/library/boxannulus.tcl')
| -rw-r--r-- | ds9/library/boxannulus.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/ds9/library/boxannulus.tcl b/ds9/library/boxannulus.tcl new file mode 100644 index 0000000..733e822 --- /dev/null +++ b/ds9/library/boxannulus.tcl @@ -0,0 +1,28 @@ +# 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 BoxAnnulusDialog {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) boxannulus + set var(proc,apply) MarkerBaseAnnulusRectApply + set var(proc,close) MarkerBaseAnnulusRectClose + set var(proc,generate) MarkerBaseAnnulusGenerateBox + set var(proc,coordCB) MarkerBaseAnnulusRectCoordCB + set var(proc,editCB) MarkerBaseAnnulusRectEditCB + set var(proc,distCB) MarkerBaseAnnulusRectDistCB + + # base + MarkerBaseAnnulusRectDialog $varname size Width Height +} |