pro wcs_ev, event
common wcscom,textra,textdec,wcson
common wcslocal,done
  case event.id of
  done: begin
    wcson = 0
    Widget_Control, event.top, /Destroy
    end
  endcase
end


pro sdw_wcs, group=group

common wcscom,textra,textdec,wcson
common wcslocal,done

  if(XRegistered("sdw_wcs")) then return
        
  wcsbase  = Widget_Base(title = 'World Coordinates', /Column, XOffset = 300, $
			 YOffset = 300)
  widebase = Widget_Base(wcsbase, /Row)
  labelra  = Widget_Label(widebase,Value='RA:') 
  textra   = Widget_Text(widebase, Value = ' ', XSize = 14)
  labeldec = Widget_Label(widebase,Value='DEC:') 
  textdec  = Widget_Text(widebase, Value = ' ', XSize = 14)
  rowbase  = Widget_Base(wcsbase, /Row)
  done     = Widget_Button(rowbase, Value = " Done ")

  Widget_Control, wcsbase, /Realize

  XManager, "sdw_wcs", wcsbase, Event_Handler = "wcs_ev", $
	  Group_Leader = Group
end