flashing text for TextGadget?

[smacker]

Is there an easy way with PB to flash the text of a TextGadget (or for any other gadget with text)?

for example;

Code: Select all

If OpenWindow(0, 0, 0, 270, 160, "flash text?", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    TextGadget(0, 10,  10, 250, 20, "want to flash this text")
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

how would I get the "want to flash this text" to flash for as long as I wished, including 'forever', at the rate I wish ?

[RASHAD]

Hi

Code: Select all

If OpenWindow(0, 0, 0, 270, 160, "flash text?", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    TextGadget(0, 10,  10, 250, 24, " want to flash this text")
    
    ButtonGadget(1,10,120,60,24,"RUN")
    AddWindowTimer(0,125,500)
    bcolor = $AFFEFE
    fcolor = $050DFF
    Repeat
     Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Timer
        If Run = 1
          bcolor = bcolor ! $FFFFFF
          fcolor = fcolor ! $FFFFFF
          SetGadgetColor(0,#PB_Gadget_BackColor,bcolor)
          SetGadgetColor(0,#PB_Gadget_FrontColor,fcolor)
        EndIf
      
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Run ! 1
            
        EndSelect
    EndSelect
  Until Quit = 1
      
  EndIf

[smacker]

Thank you RASHAD