Commit e6705709 authored by Laura Schreiber's avatar Laura Schreiber
Browse files

Fix: corrected bug in xpsf_extract and replaced

parent 99ed7ad9

xpsf_extract.pro

+5 −4
Original line number Diff line number Diff line 
; $Id: xpsf_extract, v 1.7 Apr 2012 e.d. $

; $Id: xpsf_extract, v 1.8 dec 2025 e.d. + l.s. $

;

;+

; NAME:
@@ -102,6 +102,7 @@ 
;       call to XPSF_EXTRACT (E. D., April 2012).

;   11) Added 'Sources Selection' option in the GUI. A list of PSF stars can be upload 

;       from a file (L. S., May 2021)   

;   12) Bug fuxing on widgets control     

;-



; XPSF_EXTRACT_GET_PRINCIPAL: auxiliary routine to select 'PSF stars'.
@@ -249,7 +250,7 @@ PRO xpsf_extract_event, event 
       'upper_lev': begin

          widget_control, event.id, GET_VALUE = form

          image_max = max(*(*data).image)

          for  id = 11, 13  do $

          for  id = 15, 17  do $

             widget_control, (*data).ids[id], $

             SENSITIVE = form.upper_lev le image_max and 1B

          end
@@ -536,7 +537,7 @@ PRO xpsf_extract, image, rep, psf, psf_fwhm, x, y, background, back_box, _EXTRA 
    xpsf_extract_par, form, par, image_max, back_box

    widget_control, ids[3], SENSITIVE = n_elements(background) eq 0 and 1B

    widget_control, ids[4], SENSITIVE = rep eq 0 and 1B

    for  id = 12, 14  do $

    for  id = 15, 17  do $

       widget_control, ids[id], SENSITIVE = par.upper_lev le image_max and 1B

    ; Realize widget

    widget_control, base, /REALIZE