;+
; NAME:
;	Cursor_Info
; PURPOSE:
;	Display cursor Location in terms of SLP and Energy in status widget.
; CALLING:
;	Cursor_Info
; INPUTS:
;	All from common block.
; OUTPUTS:
;	None.
; COMMON BLOCKS:
;	common modion_Widget, modion_widget
;	 and see file: ~/modion/code/modion_common.pro
; HISTORY:
;	Written: Frank Varosi NASA/GSFC 1995.
;-

pro Cursor_Info

@modion_common
   common modion_Widget, modion_widget

	cursor,x,y,/DEV,/NOWAIT

	Conv_Loc_SLPE, x,y, Coord_info, modion_widget.zratio, ISLP, Energy, ASLP

	Widget_Control, modion_widget.cursor_wid, $
			SET_VAL="SLP = " + ASLP + $
				"   E =" + string( Energy,F="(I7)" )
end