diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-10-23 21:24:50 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-10-23 21:24:50 (GMT) |
| commit | 70fa1e5c66e30bb297476febd2c4abd4eaa1f7ea (patch) | |
| tree | 35e1a99060e1eb67edf8ba583efc772e035ec3ee /ds9/library | |
| parent | e16bc82bbc836c23638abafd2a88b756343c29ae (diff) | |
| download | blt-70fa1e5c66e30bb297476febd2c4abd4eaa1f7ea.zip blt-70fa1e5c66e30bb297476febd2c4abd4eaa1f7ea.tar.gz blt-70fa1e5c66e30bb297476febd2c4abd4eaa1f7ea.tar.bz2 | |
new mask
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/mask.tcl | 26 |
1 files changed, 8 insertions, 18 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl index 58036b4..10e754b 100644 --- a/ds9/library/mask.tcl +++ b/ds9/library/mask.tcl @@ -12,6 +12,7 @@ proc MaskDef {} { set imask(top) .msk set imask(mb) .mskmb + set mask(system) physical set mask(color) red set mask(mark) 1 set mask(transparency) 0 @@ -19,24 +20,6 @@ proc MaskDef {} { array set pmask [array get mask] } -proc MaskMark {} { - global mask - global current - - if {$current(frame) != {}} { - $current(frame) mask mark $mask(mark) - } -} - -proc MaskColor {} { - global mask - global current - - if {$current(frame) != {}} { - $current(frame) mask color $mask(color) - } -} - proc MaskTransparency {} { global mask global current @@ -166,6 +149,7 @@ proc UpdateMaskMenu {} { set mask(color) [$current(frame) get mask color] set mask(mark) [$current(frame) get mask mark] + set mask(system) [$current(frame) get mask system] set mask(transparency) [$current(frame) get mask transparency] switch -- [$current(frame) get type] { @@ -190,6 +174,7 @@ proc MaskLoad {} { if {$rr} { $current(frame) mask color $mask(color) $current(frame) mask mark $mask(mark) + $current(frame) mask system $mask(system) } } return $rr @@ -210,8 +195,12 @@ proc MaskParamsDialog {} { # Param set f [ttk::frame $w.param] + ttk::label $f.coordtitle -text [msgcat::mc {Coordinate System}] + CoordMenuButton $f.coordbutton mask system 1 {} {} {} + ttk::label $f.colortitle -text [msgcat::mc {Color}] ColorMenuButton $f.colorbutton ed color {} + ttk::label $f.marktitle -text [msgcat::mc {Block}] ttk::radiobutton $f.markz -text [msgcat::mc {Zero}] \ -variable ed(mark) -value 0 @@ -219,6 +208,7 @@ proc MaskParamsDialog {} { -variable ed(mark) -value 1 ttk::label $f.marktitle2 -text [msgcat::mc {Value}] + grid $f.coordtitle $f.coordbutton - -padx 2 -pady 2 -sticky w grid $f.colortitle $f.colorbutton - -padx 2 -pady 2 -sticky w grid $f.marktitle $f.markz $f.marknz $f.marktitle2 -padx 2 -pady 2 -sticky w |