From 1d7ca7796fbfead236f2e21b31d805db7c97496d Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Tue, 28 Aug 2018 11:40:49 -0400
Subject: BACKUP: restore crosshair cursor

---
 ds9/doc/release/r8.0.html | 1 +
 ds9/library/backup.tcl    | 1 +
 ds9/library/crosshair.tcl | 3 +++
 3 files changed, 5 insertions(+)

diff --git a/ds9/doc/release/r8.0.html b/ds9/doc/release/r8.0.html
index 23e2ace..d5aa3e2 100644
--- a/ds9/doc/release/r8.0.html
+++ b/ds9/doc/release/r8.0.html
@@ -35,6 +35,7 @@
         <li><tt>08.22.2018 CUBE: plot3d current slice is coordinated with cube dialog box.</tt></li>
         <li><tt>08.22.2018 BIN: fixed a problem in the case of a RGB image has a binned layer, changing bin parameters in other layers caused cursor movement.</tt></li>
         <li><tt>08.22.2018 REGION: plot2d now extends across mosaic boundries.</tt></li>
+        <li><tt>08.28.2018 BACKUP: restore crosshair cursor.</tt></li>
         <li><tt><b>09.03.2018 RELEASE version 8.0rc</b></tt></li>
       </ol>
     </ol>
diff --git a/ds9/library/backup.tcl b/ds9/library/backup.tcl
index 51bf479..e57c822 100644
--- a/ds9/library/backup.tcl
+++ b/ds9/library/backup.tcl
@@ -284,6 +284,7 @@ proc BackupFrame {ch which dir} {
     # must be after Pan and Block
     3DBackup $ch $which
     MarkerBackup $ch $which $fdir $rdir
+    CrosshairBackup $ch $which
     CentroidBackup $ch $which
     MaskBackup $ch $which
     SmoothBackup $ch $which
diff --git a/ds9/library/crosshair.tcl b/ds9/library/crosshair.tcl
index d2fca4b..8bf22bc 100644
--- a/ds9/library/crosshair.tcl
+++ b/ds9/library/crosshair.tcl
@@ -279,3 +279,6 @@ proc ProcessSendCrosshairCmd {proc id param {sock {}} {fn {}}} {
     crosshairsend::yyparse
 }
 
+proc CrosshairBackup {ch which} {
+    puts $ch "$which crosshair physical [$which get crosshair physical]"
+}
-- 
cgit v0.12