getinfoa.pro

来自「浏览MODIS遥感数据的HDF格式数据的IDL程序」· PRO 代码 · 共 24 行

ErrorNo = 0
Catch, ErrorNo
if (ErrorNo ne 0) then begin
	Catch, /CANCEL
	ErrArray = ['Application Error in '+pro_name+ '!', $
	'Error Number: '+strtrim(!error,2), $
	!Err_String]
	a = DIALOG_MESSAGE(ErrArray, /ERROR)
	;return
	check_event = size(event)
	if(check_event(0) eq 1) then begin
	  widget_control, get_uvalue=info, event.top
	  if event.top ne info.base then $
	     widget_control, event.top, /destroy
	  status = 'BAD'
	  return, status
	endif else begin
	  status = 'BAD'
	  return, status
	endelse
 endif