Enumerate easily all opened windows and gadgets

[Flype]

I suppose that Purebasic store at runtime each opened windows, each opened gadgets (Ressource-Tracking).
So why not offer the possibility to make an easy access to this dynamic list ?

Code: Select all

EnumerateWindow(@myEnumWindow())

EnumerateGadget(WindowID(#MyWindow),@myEnumGadget())

EnumerateGadgetItem(#MyGadget,@myEnumGadgetItem())

For example :

Code: Select all

Procedure myEnumWindow(WindowID.l, WindowTitle.s)
  
  Debug WindowID
  
  SetWindowColor(WindowID,$808080)
  
  If WindowTitle = "Test"
    ProcedureReturn #False ; break the enumeration
  EndIf
  
  ProcedureReturn #True ; continue the enumeration
  
EndProcedure

Procedure myEnumGadget(GadgetID.l, GadgetText.l, GadgetState.l, GadgetType.l, GadgetData.l)
  
  Debug GadgetID
  Debug GadgetText
  Debug GadgetState
  Debug GadgetType
  Debug GadgetData
  
  Select GadgetType
    Case #PB_GadgetType_Container
      SetGadgetColor(GadgetID,#PB_Gadget_BackColor,$F0F0F0)
    Case #PB_GadgetType_Editor
      SetGadgetColor(GadgetID,#PB_Gadget_BackColor,$00FFFF)
  EndSelect
  
  ProcedureReturn #True
  
EndProcedure

Procedure myEnumGadgetItem(GadgetID.l,ItemID.l, ItemText.l, ItemState.l, ItemData.l)
  
  Debug GadgetID
  Debug ItemID
  Debug ItemText
  Debug ItemState
  Debug ItemData
  
  SetGadgetItemColor(GadgetID,ItemID,#PB_Gadget_BackColor,$E0F0E0)
  
  ProcedureReturn #True
  
EndProcedure

EnumerateWindow(@myEnumWindow())

EnumerateGadget(WindowID(#MyWindow),@myEnumGadget())

EnumerateGadgetItem(#MyGadget,@myEnumGadgetItem())