diff options
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} { |