diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-17 17:26:42 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-17 17:26:42 (GMT) |
commit | a89d01d5ec3346e680a29a2f496cdccbaddd0551 (patch) | |
tree | f378ed14ef1432ba85a7c59bcdf175446d49c36b /ds9/library/grid.tcl | |
parent | 07822cd7581379ec5c0d34b0fa2e9966c37316d5 (diff) | |
download | blt-a89d01d5ec3346e680a29a2f496cdccbaddd0551.zip blt-a89d01d5ec3346e680a29a2f496cdccbaddd0551.tar.gz blt-a89d01d5ec3346e680a29a2f496cdccbaddd0551.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/grid.tcl')
-rw-r--r-- | ds9/library/grid.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index 314a804..789421c 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1410,7 +1410,9 @@ proc GridCmdSet {which value {cmd {}}} { } } -proc GridCmdFontStyle {which value} { +proc GridCmdFontStyle {which value {cmd {}}} { + global grid + switch $value { normal { set grid($which,weight) normal @@ -1425,6 +1427,10 @@ proc GridCmdFontStyle {which value} { set grid($which,slant) italic } } + + if {$cmd != {}} { + eval $cmd + } } proc ProcessSendGridCmd {proc id param} { |