pro wask, question=question, answer=a_answer, group_leader=group  

common askcom, wyes, wno, answer

if (!d.flags and 65536) eq 0 then message,'widgets are unavailable'
set_plot,'X'

if n_elements(group) eq 0 then widget_control,/reset

; -- autosize screen

device,get_screen_size=sc
fspace=.0146*sc(0)*.5
fxpad=.0117*sc(0)*.5
fypad=.0146*sc(1)*.5

; -- some defaults

btitle = question

base = widget_base(TITLE =btitle, XPAD =fxpad*4, YPAD =fypad*3, $
                   SPACE = fspace*3, /row, xsize=350)

; -- 1st row

wyes = widget_button (base, value='  YES  ', uvalue='YES', /no_release)
wno  = widget_button (base, value='  NO  ', uvalue='NO', /no_release)

; -- realize widget

widget_control, base, /realize
xmanager, 'wask', base, group_leader=group, /modal

a_answer = answer
return & end