PRO it_eit_wavelngth,header,window

  wavelnth=fxpar(header,'WAVELNTH')
  wavelnth_err=!err
  message_arr=STRARR(2)

  IF (wavelnth EQ 171) THEN BEGIN
    wavelength='Fe IX/X' 
    col_tbl='EIT Dark Bot Blue'
    eit_colors,42
    IF (window EQ 1) THEN combine_colors,/LOWER   $
      ELSE combine_colors
  ENDIF
  IF (wavelnth EQ 195) THEN BEGIN
    wavelength='Fe XII'  
    col_tbl='EIT Dark Bot Green'
    eit_colors,43
    IF (window EQ 1) THEN combine_colors,/LOWER   $
      ELSE combine_colors
  ENDIF
  IF (wavelnth EQ 284) THEN BEGIN
    wavelength='Fe XV' 
    col_tbl='EIT Dark Bot Yellow'
    eit_colors,44
    IF (window EQ 1) THEN combine_colors,/LOWER   $
      ELSE combine_colors
  ENDIF
  IF (wavelnth EQ 304) THEN BEGIN
    wavelength='He II' 
    col_tbl='EIT Dark Bot Red'
    eit_colors,45
    IF (window EQ 1) THEN combine_colors,/LOWER   $
      ELSE combine_colors
  ENDIF
  IF (wavelnth_err EQ -1) THEN wavelength='Not found'

  message_arr(0)='EIT wavelength is '+wavelength
  message_arr(1)=col_tbl+' loaded in window '+STRING(window)

  message=WIDGET_MESSAGE(message_arr,/INFORMATION,$
	  TITLE='EIT wavelength found')
END