;+
; NORM_WARN
;	Confirm the QUIT operation.
;
; Usage:
;	iquit=norm_warn()
;
; Arguments and keywords: none:
;
; History:
;	original: 19/1/95; SJT
;-

function norm_event, event

widget_control, event.id, get_uvalue = iquit
return, {id:event.id, top:event.top, handler:event.handler, quit:iquit}

end

function Norm_warn

base = widget_base(/column, title = "Floating Images")

junk = widget_label(base, value = "* * W A R N I N G * *", /align_center)
junk = widget_label(base, value = "Images are not of an integer type, " + $
                    "it is not recommended", /align_center) 
junk = widget_label(base, value = "to generate standard images from " + $
                  "exposure-corrected images", /align_center)
junk = widget_label(base, value = "Do you wish to continue?", /align_center)

jb = widget_base(base, /row, /align_center)

yes = widget_button(jb, value = "        YES       ", uvalue = "Y")
no = widget_button(jb, value = "        NO        ", uvalue = "N")

;	DIY management since the whole thing is so simple and must be
;	MODAL anyway.

widget_control, base, /real, event_func = 'norm_event'
widget_control, yes, /input_focus

ev = widget_event(base)
widget_control, base, /destroy

return, ev.quit

end