FUNCTION qImage_cw_smei_frm, state, event, get_camera=get_camera, value=value ;+ ; NAME: ; qImage_cw_smei_frm ; PURPOSE: ; CATEGORY: ; sat/idl/widget/qimage_cw ; CALLING SEQUENCE: ; qImage_cw_smei_frm, state, event ; INPUTS: ; state scalar, structure ; contains IDs for all pView widgets ; event scalar, structure ; event structure passed to pView_Event by XManager ; OUTPUTS: ; INCLUDE: @compile_opt.pro ; On error, return to caller ; CALLS: ; InitVar, IsType, flt_string ; RESTRICTIONS: ; What happens if image offset is non-zero? ; PROCEDURE: ; STATE INFO USED: ; STATE INFO MODIFIED: ; MODIFICATION HISTORY: ; MAY-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu) ;- InitVar, get_camera, /key status = 0 ; event.handler should be the same as state.wid_self widget_control, event.handler, get_uvalue=info, /no_copy IF IsType(info, /string) THEN value = info widget_control, event.handler, set_uvalue=info, /no_copy IF IsType(value, /defined) THEN BEGIN value = value[2] value = strtok(value, string(10B), /extract) CASE 1 OF get_camera: BEGIN pos = where( strpos(value, 'camera') NE -1 ) value = round((flt_string(value[pos]))[0]) status = 1 END ELSE: ENDCASE ENDIF RETURN, status & END