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/grid.tcl | |
parent | 7254c63954b7246c72af5beac2a609326d82e460 (diff) | |
download | blt-3bb9a8c425bddaad1148a61876dae27693c8c779.zip blt-3bb9a8c425bddaad1148a61876dae27693c8c779.tar.gz blt-3bb9a8c425bddaad1148a61876dae27693c8c779.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/grid.tcl')
-rw-r--r-- | ds9/library/grid.tcl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index eb56a3b..b527812 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1146,29 +1146,6 @@ proc ProcessGridCmd {varname iname} { incr i [expr $grid::yycnt-1] } -proc GridCmdFontStyle {which value {cmd {}}} { - global grid - - 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 - } - } - - if {$cmd != {}} { - eval $cmd - } -} - proc ProcessSendGridCmd {proc id param {sock {}} {fn {}}} { global parse set parse(proc) $proc |