BACKUP: fixed an problem where any new WCS must be applied before panning and regions.

2 files changed, 5 insertions, 3 deletions

diff --git a/ds9/library/backup.tcl b/ds9/library/backup.tcl
index 37cc314..f27b984 100644
--- a/ds9/library/backup.tcl
+++ b/ds9/library/backup.tcl
@@ -275,15 +275,16 @@ proc BackupFrame {ch which dir} {
     RGBBackup $ch $which
     BinBackup $ch $which
     ScaleBackup $ch $which
-    PanZoomBackup $ch $which
-    # Block need to be before Crop
+    # Block need to be before WCS and Crop
     BlockBackup $ch $which
+    # WCS nees to be before Pan/Zoom
+    WCSBackup $ch $which $fdir $rdir
+    PanZoomBackup $ch $which
     CropBackup $ch $which
     # must be after Pan and Block
     3DBackup $ch $which
     MarkerBackup $ch $which $fdir $rdir
     CentroidBackup $ch $which
-    WCSBackup $ch $which $fdir $rdir
     MaskBackup $ch $which
     SmoothBackup $ch $which
     ContourBackup $ch $which $fdir $rdir
diff --git a/ds9/library/wcs.tcl b/ds9/library/wcs.tcl
index d6f80e6..4a22c64 100644
--- a/ds9/library/wcs.tcl
+++ b/ds9/library/wcs.tcl
@@ -121,6 +121,7 @@ proc WCSBackup {ch which fdir rdir} {
 	WCSSaveFile $fn
 	puts $ch "WCSLoadFile $rfn"
 	puts $ch "$which wcs replace text 1 \\\{\[WCSFromVar\]\\\}"
+	puts $ch "RealizeDS9"
     }
 }