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/crosshair.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/crosshair.tcl')
-rw-r--r-- | ds9/library/crosshair.tcl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ds9/library/crosshair.tcl b/ds9/library/crosshair.tcl index 6b76b04..69bf46a 100644 --- a/ds9/library/crosshair.tcl +++ b/ds9/library/crosshair.tcl @@ -296,11 +296,13 @@ proc ProcessCrosshairCmd {varname iname} { } } -proc CrosshairCmdLock {sys} { +proc CrosshairCmdSet {which value {cmd {}}} { global crosshair - set crosshair(lock) $sys - LockCrosshairCurrent + set crosshair($which) $value + if {$cmd != {}} { + eval $cmd + } } proc ProcessSendCrosshairCmd {proc id param} { |