; This program is used as an example in the "Widgets"
; chapter of the _Using IDL_ manual.
;
PRO widget1_event, ev
IF ev.select THEN WIDGET_CONTROL, ev.top, /DESTROY
END

PRO widget1
base = WIDGET_BASE()
button = WIDGET_BUTTON(base, value='Done')
WIDGET_CONTROL, base, /REALIZE
XMANAGER, 'Widget1', base
END