diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:32:54 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:32:54 (GMT) |
commit | c3419fd29a2894195925560d2c37915dd555a6d6 (patch) | |
tree | d8f5cc7edca60fc84ec1bfa08c6a08fd3892177b /ds9/library/colorbar.tcl | |
parent | 4cc2d933414b448948fb17bf480b281163759016 (diff) | |
download | blt-c3419fd29a2894195925560d2c37915dd555a6d6.zip blt-c3419fd29a2894195925560d2c37915dd555a6d6.tar.gz blt-c3419fd29a2894195925560d2c37915dd555a6d6.tar.bz2 |
add ds9 plot parser
Diffstat (limited to 'ds9/library/colorbar.tcl')
-rw-r--r-- | ds9/library/colorbar.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/ds9/library/colorbar.tcl b/ds9/library/colorbar.tcl index 94a5065..56bf164 100644 --- a/ds9/library/colorbar.tcl +++ b/ds9/library/colorbar.tcl @@ -1486,6 +1486,41 @@ proc ProcessColorbarCmd {varname iname} { } } +proc ColorbarCmdView {which value} { + global colorbar + + set colorbar($which) $value + UpdateView +} + +proc ColorbarCmdFontStyle {value} { + global cvarname + upvar #0 $cvarname cvar + global $cvar(symdb) + + switch $value { + normal { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontweigth] normal + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontslant] roman + } + bold { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontweight] bold + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontslant] roman + } + italic { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) weight] normal + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) slant] italic + } + } + CATGenerate $cvarname +} + proc ProcessSendColorbarCmd {proc id param} { global colorbar global view |