[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Checking for open dialogbox in ABL using the widget tree?

[MBeynon]

Thanks for the help. I got a working solution...quite simple really by just passing in the current window; PROCEDURE WalkTheTree: /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER LV_WIDGET_HANDLE AS HANDLE. DEFINE VARIABLE lvhChild AS HANDLE NO-UNDO. lvhChild = LV_WIDGET_HANDLE:FIRST-CHILD. DO WHILE lvhChild <> ?: IF VALID-HANDLE(lvhChild) THEN IF lvhChild:TYPE = "DIALOG-BOX" THEN RETURN ERROR. lvhChild = lvhChild:NEXT-SIBLING. END. END PROCEDURE.

Continue reading...