[SCM] General FITS file browser/editor/plotter with a gui branch, debian, updated. b91a07f228af29ce003984f71efd8e6544629152
Ole Streicher
debian at liska.ath.cx
Thu Aug 23 13:37:51 UTC 2012
The following commit has been merged in the debian branch:
commit 416d8302f2ccb33705b9f40e2fcbdea3f2524fc5
Author: Ole Streicher <debian at liska.ath.cx>
Date: Thu Aug 23 13:04:06 2012 +0200
Remove references to fvPref and fvPrevObj so that POWplot can be used independently
diff --git a/debian/patches/pow_fix_startup.patch b/debian/patches/pow_fix_startup.patch
index 67a01ea..9c1b3b0 100644
--- a/debian/patches/pow_fix_startup.patch
+++ b/debian/patches/pow_fix_startup.patch
@@ -23,3 +23,31 @@
+export XLIB_SKIP_ARGB_VISUALS=1
+export POW_LIBRARY=/usr/share/heasoft/POW
+exec wish $POW_LIBRARY/POWplot.tcl -- $*
+--- a/tcltk/pow/pow.tcl
++++ b/tcltk/pow/pow.tcl
+@@ -5347,7 +5347,7 @@
+ global showlinks powScopeHeight powScopeWidth powMinHeight powMinWidth
+ global powPlotParam powShowScope powGUIposition
+ global powLutButton powROIButton
+- global POWRC currgn fvPrefObj
++ global POWRC currgn
+
+ event delete <<BtnPress>> <ButtonPress-1> <ButtonPress-2> <ButtonPress-3>
+ event delete <<LUT>> <ButtonPress-1> <ButtonPress-2> <ButtonPress-3>
+@@ -5401,7 +5401,6 @@
+ if [info exists powPlotParam(xdimdisp,$currgn)] {
+ set powPlotParam(xdimdisp,powDef) $powPlotParam(xdimdisp,$currgn)
+ set powPlotParam(ydimdisp,powDef) $powPlotParam(ydimdisp,$currgn)
+- set result [$fvPrefObj setNewGraphSize [list $powPlotParam(xdimdisp,$currgn) $powPlotParam(ydimdisp,$currgn)]]
+ }
+ puts $RCFILE "\n# Default Graph Parameters:"
+ foreach opt $powPlotParam(allOpts,powDef) {
+@@ -9238,8 +9237,6 @@
+ set powWCSName(${cntr}scope) $powWCSName($gn)
+ powCreateContour $cntr $img $list $res
+ set powContourParam(list) $list
+- set useWCSInfo($cntr) $fvPref::ifWCSInfo
+- set useWCSInfo(${cntr}scope) $fvPref::ifWCSInfo
+ set powWCSLabel(xlabel,$cntr,DEFAULT) $powWCSLabel(xlabel,$gn,DEFAULT)
+ set powWCSLabel(ylabel,$cntr,DEFAULT) $powWCSLabel(ylabel,$gn,DEFAULT)
+ set powWCSLabel(xunit,$cntr,DEFAULT) $powWCSLabel(xunit,$gn,DEFAULT)
--
General FITS file browser/editor/plotter with a gui
More information about the debian-science-commits
mailing list