diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 19:35:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 19:35:31 (GMT) |
commit | 3bb9a8c425bddaad1148a61876dae27693c8c779 (patch) | |
tree | 5e1daede16c30e30694bf84e252be5efd1f3bda9 /ds9/library/util.tcl | |
parent | 7254c63954b7246c72af5beac2a609326d82e460 (diff) | |
download | blt-3bb9a8c425bddaad1148a61876dae27693c8c779.zip blt-3bb9a8c425bddaad1148a61876dae27693c8c779.tar.gz blt-3bb9a8c425bddaad1148a61876dae27693c8c779.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/util.tcl')
-rw-r--r-- | ds9/library/util.tcl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 09cbe48..9c89ca1 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -217,6 +217,29 @@ proc ProcessCmdAppend {varname key value {cmd {}}} { } } +proc ProcessCmdFontStyle {varname key value {cmd {}}} { + global $varname + + switch $value { + normal { + set ${varname}($key,weight) normal + set ${varname}($key,slant) roman + } + bold { + set ${varname}($key,weight) bold + set ${varname}($key,slant) roman + } + italic { + set ${varname}($key,weight) normal + set ${varname}($key,slant) italic + } + } + + if {$cmd != {}} { + eval $cmd + } +} + proc ProcessCmdCVAR {key value {cmd {}}} { global cvarname upvar #0 $cvarname cvar |