Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado
Hello! We need your help again. We have written several programs which analyse image files. E.g. "Saturation Check" or "Aux. Data Check". The main program executes these analyses consecutively. Now I want to create a widget showing the current analysis status. The requirements demand a yellow (non-sensitive) button for each check. After one check is completed this button has to turn into light- colored yellow. Any suggestions how i can accomplish this? Greetings, Michael
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