Kbase P116441: How to list the super procedure stack for a given ADM2 object?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
31/05/2006 |
|
Status: Unverified
GOAL:
How to get the super procedure stack for a given ADM2 object?
GOAL:
How to navigate the super procedures from within a smartDataObject
FIX:
For example, this is an SDO initializeObject override procedure to traverse the super procedure stack for the SDO.
PROCEDURE initializeObject :
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE SPList AS CHARACTER NO-UNDO.
DO I = 1 TO NUM-ENTRIES(TARGET-PROCEDURE:SUPER-PROCEDURES):
h = WIDGET-HANDLE(ENTRY(i,TARGET-PROCEDURE:SUPER-PROCEDURES)).
SPList = SPList + "~n" + h:FILE-NAME.
END.
MESSAGE "initObject in the static SDO - before run super" SKIP
"Super procedure: " SKIP
SPList VIEW-AS ALERT-BOX INFO BUTTONS OK.
RUN SUPER.
END PROCEDURE.