pro spreadsurf_done, Event
  widget_control, event.top, /destroy
end

pro sdwspreadsurf_event, Event
  widget_control,Event.Id,get_uvalue=Ev
end

pro sdw_spreadsurf,  event

common surfcom,thedata

  sdwspreadsurf = widget_base (group_leader=Group, xoffset=300, $
			       yoffset=300,/column)
  sdwssdraw = widget_draw(sdwspreadsurf,xsize=350, ysize=350)
  donebutton = widget_button (sdwspreadsurf, value='Done', $
			      Event_Pro='spreadsurf_done')

  widget_control, sdwspreadsurf, /realize

  WIDGET_CONTROL, sdwssdraw, GET_VALUE=drawfield_id
  wset, drawfield_id

  shade_surf,thedata

  xmanager, 'sdwspreadsurf', sdwspreadsurf
end