comp.lang.idl-pvwave archive: archive » changing colors of widget-buttons

Home » Public Forums » archive » changing colors of widget-buttons

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

changing colors of widget-buttons [message #54178]

Thu, 24 May 2007 07:29

BavarianMike86
Messages: 9
Registered: May 2007

Junior Member

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

Report message to a moderator

Re: changing colors of widget-buttons [message #54399 is a reply to message #54178]

Tue, 12 June 2007 05:21

BavarianMike86
Messages: 9
Registered: May 2007

Junior Member

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

Report message to a moderator

Previous Topic:	Re: Need hint to use FOR loops using 3-D arrays
Next Topic:	Multiply N bands to N numbers

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 15:16:55 PDT 2025

Total time taken to generate the page: 0.00447 seconds