PRO NRH1_xtext_event,ev

stash = WIDGET_INFO ( ev.top , /CHILD )
WIDGET_CONTROL, stash , GET_UVALUE = state

IF (ev.id EQ state.button) THEN BEGIN
    WIDGET_CONTROL, stash, SET_UVALUE = state 
    WIDGET_CONTROL, ev.top, /DESTROY
    RETURN
ENDIF

END


PRO NRH1_xtext,texte,Group=group

Common NRH1_HELIO,mainstruct


base = WIDGET_BASE(TITLE = ' ',/COLUMN, XOFFSET = 400, YOFFSET = 300 )
base_display = WIDGET_BASE(base,/FRAME,/ROW) 
base_message = WIDGET_BASE(base_display,/COLUMN)

s = N_ELEMENTS(texte)

IF (s EQ 0) THEN RETURN

message = WIDGET_TEXT(base_message,VALUE = string(texte),SCROLL=5,$
                      XSIZE=80,YSIZE=25)

button = WIDGET_BUTTON(base,VALUE = 'OK',/FRAME)

state = { button:button }

WIDGET_CONTROL, WIDGET_INFO ( base,/CHILD ) , $
                SET_UVALUE = state , /REALIZE
IF not keyword_set(group) THEN group=mainstruct.root
XMANAGER,'nrh1_xtext',base,GROUP_leader=GROUP, /NO_BLOCK
END