diff options
| -rw-r--r-- | ds9/doc/release/r8.1.html | 3 | ||||
| -rw-r--r-- | ds9/library/cube.tcl | 28 |
2 files changed, 21 insertions, 10 deletions
diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html index 5d5d3f5..c28b1af 100644 --- a/ds9/doc/release/r8.1.html +++ b/ds9/doc/release/r8.1.html @@ -74,7 +74,8 @@ <li><tt>04.25.2019 MASK: fixed an issue with mask and backups.</tt></li> <li><tt>04.25.2019 BACKUP: fixed an issue with reading version 6.x backup files.</tt></li> <li><tt>04.25.2019 CUBE: add 'get cube coordsys command'</tt></li> -<li><tt>05.01.2019 XPA: fix -xpa command issue.</tt></li> +<li><tt>05.02.2019 XPA: fix -xpa command issue.</tt></li> +<li><tt>05.02.2019 CUBE: fix an issue with updating the current slice via the dialog slider.</tt></li> <li><tt><b>xx.xx.2019 RELEASE version 8.1b1</b></tt></li> </ol> </div> diff --git a/ds9/library/cube.tcl b/ds9/library/cube.tcl index 7a0ebf4..188d4fb 100644 --- a/ds9/library/cube.tcl +++ b/ds9/library/cube.tcl @@ -68,8 +68,10 @@ proc CubeSlice {ss} { global rgb RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" + set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice from image $cube(system) $cube(sky)] + set dcube(wcs) \ + [$current(frame) get fits slice from image $cube(system) $cube(sky)] UpdateCube } @@ -260,10 +262,12 @@ proc CubeApply {} { set ss $depth } - set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice from image $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" + set dcube(image) $ss + set dcube(wcs) \ + [$current(frame) get fits slice from image $cube(system) $cube(sky)] + UpdateCube } @@ -291,10 +295,12 @@ proc CubeApplyWCS {} { set ss $depth } - set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice from image $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" + set dcube(image) $ss + set dcube(wcs) \ + [$current(frame) get fits slice from image $cube(system) $cube(sky)] + UpdateCube } @@ -800,10 +806,12 @@ proc CubeCmd {ss} { return } - set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice from image $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" + set dcube(image) $ss + set dcube(wcs) \ + [$current(frame) get fits slice from image $cube(system) $cube(sky)] + UpdateCube } @@ -827,10 +835,12 @@ proc CubeCmdCoord {ss sys sky} { set ss 1 } - set dcube(image) $ss - set dcube(wcs) [$current(frame) get fits slice from image $cube(system) $cube(sky)] RGBEvalLockCurrent rgb(lock,slice) "$current(frame) update fits slice $ss" + set dcube(image) $ss + set dcube(wcs) \ + [$current(frame) get fits slice from image $cube(system) $cube(sky)] + UpdateCube } |