Okay!
I have finally found my mistake :D
I just missed the correct lines in the event handler.
Now it's done ... and I am happy!
Thank you David for your help!
-----------------------------------------------------------
PRO quicklook_event, event
COMMON tlb, start, SCA, SCA_A_title, SCA_A_base1, SCA_A_base2,
SCA_B_title, SCA_B_base1, SCA_B_base2, check1, check2, check3, check4,
check5, check6, check7, check8, textwidget, quit
WIDGET_CONTROL, event.id, GET_UVALUE=uval
CASE uval OF
'start': BEGIN
wait, 1
WIDGET_CONTROL, check1, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check2, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check3, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check4, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check5, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check6, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check7, SET_VALUE='DONE'
wait, 1
WIDGET_CONTROL, check8, SET_VALUE='DONE'
WIDGET_CONTROL, textwidget, SET_VALUE='Task completed!'
END
'quit': BEGIN
WIDGET_CONTROL, textwidget, SET_VALUE='See you later!'
WAIT, 2
WIDGET_CONTROL, event.TOP, /DESTROY
END
ENDCASE
END
PRO quicklook
COMMON tlb, start, SCA, SCA_A_title, SCA_A_base1, SCA_A_base2,
SCA_B_title, SCA_B_base1, SCA_B_base2, check1, check2, check3, check4,
check5, check6, check7, check8, textwidget, quit
tlb = WIDGET_BASE(/COLUMN, TITLE='IQLAC Quicklook Standalone')
start = WIDGET_BUTTON(tlb, UVALUE='start', VALUE='Start', FRAME=4, /
ALIGN_CENTER)
SCA = WIDGET_BASE(tlb, /ROW)
SCA_A_title = WIDGET_BASE(SCA, /COLUMN, FRAME=4)
title_A = WIDGET_LABEL(SCA_A_title, VALUE='SCA-A', /ALIGN_CENTER)
SCA_A_base = WIDGET_BASE(SCA_A_title, /ROW, FRAME=1)
SCA_A_base1 = WIDGET_BASE(SCA_A_base, /COLUMN)
SCA_A_base2 = WIDGET_BASE(SCA_A_base, /COLUMN)
SCA_B_title = WIDGET_BASE(SCA, /COLUMN, FRAME=4)
title_B = WIDGET_LABEL(SCA_B_title, VALUE='SCA-B', /ALIGN_CENTER)
SCA_B_base = WIDGET_BASE(SCA_B_title, /ROW, FRAME=1)
SCA_B_base1 = WIDGET_BASE(SCA_B_base, /COLUMN)
SCA_B_base2 = WIDGET_BASE(SCA_B_base, /COLUMN)
wBtn1 = WIDGET_LABEL(SCA_A_base1, UVALUE='wBtn1', FRAME=1,
SCR_XSIZE=150, VALUE='FITS integrity ckeck')
wBtn2 = WIDGET_LABEL(SCA_A_base1, UVALUE='wBtn2', FRAME=1,
SCR_XSIZE=150, VALUE='SNR estimation')
wBtn3 = WIDGET_LABEL(SCA_A_base1, UVALUE='wBtn3', FRAME=1,
SCR_XSIZE=150, VALUE='Saturation check')
wBtn4 = WIDGET_LABEL(SCA_A_base1, UVALUE='wBtn4', FRAME=1,
SCR_XSIZE=150, VALUE='Aux. data check')
check1 = WIDGET_LABEL(SCA_A_base2, UVALUE='check1', FRAME=1,
VALUE='----')
check2 = WIDGET_LABEL(SCA_A_base2, UVALUE='check2', FRAME=1,
VALUE='----')
check3 = WIDGET_LABEL(SCA_A_base2, UVALUE='check3', FRAME=1,
VALUE='----')
check4 = WIDGET_LABEL(SCA_A_base2, UVALUE='check4', FRAME=1,
VALUE='----')
wBtn5 = WIDGET_LABEL(SCA_B_base1, UVALUE='wBtn5', FRAME=1,
SCR_XSIZE=150, VALUE='FITS integrity ckeck')
wBtn6 = WIDGET_LABEL(SCA_B_base1, UVALUE='wBtn6', FRAME=1,
SCR_XSIZE=150, VALUE='SNR estimation')
wBtn7 = WIDGET_LABEL(SCA_B_base1, UVALUE='wBtn7', FRAME=1,
SCR_XSIZE=150, VALUE='Saturation check')
wBtn8 = WIDGET_LABEL(SCA_B_base1, UVALUE='wBtn8', FRAME=1,
SCR_XSIZE=150, VALUE='Aux. data check')
check5 = WIDGET_LABEL(SCA_B_base2, UVALUE='check5', FRAME=1,
VALUE='----')
check6 = WIDGET_LABEL(SCA_B_base2, UVALUE='check6', FRAME=1,
VALUE='----')
check7 = WIDGET_LABEL(SCA_B_base2, UVALUE='check7', FRAME=1,
VALUE='----')
check8 = WIDGET_LABEL(SCA_B_base2, UVALUE='check8', FRAME=1,
VALUE='----')
textwidget = WIDGET_TEXT(tlb)
quit = WIDGET_BUTTON(tlb, UVALUE='quit', VALUE='Quit', /ALIGN_CENTER)
WIDGET_CONTROL, tlb, /REALIZE
XMANAGER, 'quicklook', tlb
END
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
