diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-30 17:22:24 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-30 17:22:24 (GMT) |
commit | 9e0b470e3269dfbebb93ae9ec66839aab9689568 (patch) | |
tree | 7d189c9062f968f3bb7710040124f39788c708bb /ds9/library/grid.tcl | |
parent | 1ca5c2395a3c64c785fb3eb9a1ee6be9086e1cf1 (diff) | |
download | blt-9e0b470e3269dfbebb93ae9ec66839aab9689568.zip blt-9e0b470e3269dfbebb93ae9ec66839aab9689568.tar.gz blt-9e0b470e3269dfbebb93ae9ec66839aab9689568.tar.bz2 |
update ds9 grid parser
Diffstat (limited to 'ds9/library/grid.tcl')
-rw-r--r-- | ds9/library/grid.tcl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index 00eb9cd..5ba0ca5 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1415,17 +1415,13 @@ proc ProcessGridCmd {varname iname} { } } -proc GridCmdSet {which value} { +proc GridCmdSet {which value {cmd {}}} { global grid set grid($which) $value -} - -proc GridCmdCurrent {which value} { - global grid - - set grid($which) $value - GridUpdateCurrent + if {$cmd != {}} { + eval $cmd + } } proc GridCmdFontStyle {which value} { |