[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