pro detectors,event

;Author: Rick Pernak, NASA Goddard Space Flight Center

;get deta from input
widget_control,event.top,get_uvalue=datptr
dat = *datptr

;make datector array
widget_control,dat.d1,get_value=d1
widget_control,dat.d2,get_value=d2
widget_control,dat.d3,get_value=d3
widget_control,dat.d4,get_value=d4
widget_control,dat.d5,get_value=d5
widget_control,dat.d6,get_value=d6
widget_control,dat.d7,get_value=d7
widget_control,dat.d8,get_value=d8
widget_control,dat.d9,get_value=d9

;datermine what datectors user selected
d1 = fix(widget_info(dat.d1,/button_set))
d2 = fix(widget_info(dat.d2,/button_set))
d3 = fix(widget_info(dat.d3,/button_set))
d4 = fix(widget_info(dat.d4,/button_set))
d5 = fix(widget_info(dat.d5,/button_set))
d6 = fix(widget_info(dat.d6,/button_set))
d7 = fix(widget_info(dat.d7,/button_set))
d8 = fix(widget_info(dat.d8,/button_set))
d9 = fix(widget_info(dat.d9,/button_set))

;set user detector array
udet = [d1,d2,d3, d4,d5,d6, d7,d8,d9]

dat.udet = udet
*datptr = dat 

;print,'New Detector array: '
;print,udet

end