diff options
Diffstat (limited to 'ds9/library/crosshair.tcl')
| -rw-r--r-- | ds9/library/crosshair.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ds9/library/crosshair.tcl b/ds9/library/crosshair.tcl index 69bf46a..13264fe 100644 --- a/ds9/library/crosshair.tcl +++ b/ds9/library/crosshair.tcl @@ -278,7 +278,8 @@ proc ProcessCrosshairCmd {varname iname} { } lock { incr i - CrosshairCmdLock [lindex $var $i] + set crosshair(lock) [lindex $var $i] + LockCrosshairCurrent } default { set x [lindex $var [expr $i+0]] @@ -291,6 +292,7 @@ proc ProcessCrosshairCmd {varname iname} { incr i [FixSpec sys sky format physical fk5 degrees] CrosshairTo $x $y $sys $sky + UpdateCrosshairDialog } } } |