PRO nomaskmain_Event, Event
 
  WIDGET_CONTROL,Event.Id,GET_UVALUE=Ev
 
  CASE Ev OF
 
  'ok': BEGIN
      WIDGET_CONTROL, event.top, /DESTROY
      END
  ENDCASE
END


PRO sdw_nomask,file1,GROUP=Group

  IF N_ELEMENTS(Group) EQ 0 THEN GROUP=0

  nomaskmain = WIDGET_BASE(GROUP_LEADER=Group, $
      COLUMN=1, $
      XOFFSET=300, $
      YOFFSET=300, $
      MAP=1)

  nomasklabelstring = string ( format='(a,": No appropriate mask found ")', $
			       file1)
  nomasklabel = WIDGET_LABEL(nomaskmain,VALUE=nomasklabelstring)

  okbutton = WIDGET_BUTTON( nomaskmain, $
      UVALUE='ok', $
      VALUE='OK', $
      XSIZE=150)


  WIDGET_CONTROL, nomaskmain, /REALIZE

  XMANAGER, 'nomaskmain', nomaskmain, /MODAL

END