diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:57:26 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:57:26 (GMT) |
commit | f593b42ef7b6650c56ea035f37a2e2bfc4348a59 (patch) | |
tree | a826623b3465f90561c9b1d204295bfd7df71cb4 /ds9/library/grid.tcl | |
parent | c3419fd29a2894195925560d2c37915dd555a6d6 (diff) | |
download | blt-f593b42ef7b6650c56ea035f37a2e2bfc4348a59.zip blt-f593b42ef7b6650c56ea035f37a2e2bfc4348a59.tar.gz blt-f593b42ef7b6650c56ea035f37a2e2bfc4348a59.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/grid.tcl')
-rw-r--r-- | ds9/library/grid.tcl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index ae4d11f..00eb9cd 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1415,6 +1415,36 @@ proc ProcessGridCmd {varname iname} { } } +proc GridCmdSet {which value} { + global grid + + set grid($which) $value +} + +proc GridCmdCurrent {which value} { + global grid + + set grid($which) $value + GridUpdateCurrent +} + +proc GridCmdFontStyle {which value} { + switch $value { + normal { + set grid($which,weight) normal + set grid($which,slant) roman + } + bold { + set grid($which,weight) bold + set grid($which,slant) roman + } + italic { + set grid($which,weight) normal + set grid($which,slant) italic + } + } +} + proc ProcessSendGridCmd {proc id param} { global grid |