ColorRequester

[Daveth]

I have a very large program, and I want to select a ColorRequester from a menu. The first time I select it, it returns the color. However, on the second and subsequent selections, it returns nothing.
Does anyone know what might be wrong?

I found out that this only happens when I use the debug for output; if I use a MessageRequester, everything works fine

Code: Select all

Event_handle = WindowEvent()
Select EventWindow()
  Case #H_Window_main
    Select Event_handle
      Case #PB_Event_Menu
        
      Case #H_Window_spanning
        Select Event_handle
          Case #PB_Event_Menu        
            Select EventMenu() ; menu item
              Case #Menu_spanning_kleur_f1
                kleur = ColorRequester(RGB(0, 0, 0))
                If kleur <> -1
                  Debug "Gekozen kleur: " + Str(kleur)
                EndIf
              Case #Menu_spanning_kleur_f2
                kleur = ColorRequester(RGB(0, 0, 0))
                If kleur <> -1
                  Debug "Gekozen kleur: " + Str(kleur)
                EndIf
              Case #Menu_spanning_kleur_f3
                kleur = ColorRequester(RGB(0, 0, 0))
                If kleur <> -1
                  Debug "Gekozen kleur: " + Str(kleur)
                EndIf  
             EndSelect

[RASHAD]

Hi
Try

Code: Select all

                If kleur > -1
                  Debug "Gekozen kleur: " + Str(kleur)
                EndIf