pro xwarning_event,ev
	WIDGET_CONTROL,ev.top,/DESTROY
	end


pro xwarning, text, group_leader=group_leader, prompt=prompt, $
 xoffset=xoffset, yoffset=yoffset, modal=modal,delay=delay

;	Issues a warning message.

device,get_scr=scr

if n_elements(group_leader) le 0 then group_leader=0
if n_elements(modal) le 0 then modal=0
if n_elements(xoffset) le 0 then xoffset=scr(0)/3
if n_elements(yoffset) le 0 then yoffset=scr(1)/3
if n_elements(text) le 0 then text=' '
if n_elements(prompt) le 0 then prompt=' '

Sz=size(text)

if (Sz(0) eq 0) or ((Sz(0) eq 1) and (Sz(1) eq 1)) $
	then N_lines=1 else N_lines=Sz(1)

base=widget_base(/colu,tit=prompt,group=group_leader, $
	xoffset=xoffset,yoffset=yoffset)

margin=string(' ',format="(A1,5(' '))")
length=2*strlen(margin)+max(strlen(text(*)))

Ques=widget_text(base,ysiz=N_lines,val=margin+text,xsiz=length)
But = WIDGET_BUTTON(base,Uval='OK',val='OK')

WIDGET_CONTROL,base,/realize,/hourglass
WIDGET_CONTROL,but,/input_focus


	if n_elements(delay) gt 0 then begin
wait,delay
WIDGET_CONTROL,base,/DESTROY
return
	endif

xmanager,'xwarning',base,modal=modal

end