PRO sdw_showhead_evt, event

WIDGET_CONTROL, GET_UVALUE = retval, event.id

IF (retval EQ "EXIT") THEN WIDGET_CONTROL, event.top, /DESTROY

END


PRO sdw_showhead, text, group_leader

Modal=0
HEIGHT = 24
WIDTH = 80

TITLE = 'SDW show header'
a = text

filebase = WIDGET_BASE(TITLE = TITLE, /BASE_ALIGN_LEFT, $
		       /COLUMN,group_leader=group_leader, MODAL=Modal)

; Default Done button name:
done_button = "Done"
filequit = WIDGET_BUTTON(filebase, $
		VALUE = done_button, UVALUE = "EXIT")

filetext = WIDGET_TEXT(filebase, $
	               XSIZE = WIDTH, $
		       YSIZE = HEIGHT, $
		       /SCROLL, $
		       VALUE = a)


WIDGET_CONTROL, filebase, /REALIZE

Xmanager, "sdw_showhead", $
		filebase, $
		EVENT_HANDLER = "sdw_showhead_evt", /NO_BLOCK

END