Kbase P56388: How to create a status indicator alerting that a process is
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
17/02/2004 |
|
Status: Unverified
GOAL:
How to create a status indicator alerting that a process is running?
FIX:
One way to alert an end user that a process is running is to run a second window persistently setting its handle, which indicates to the end user that a process is running. Once the process is finished, the process runs a procedure in the second window that indicates the process is over and deletes itself.
Example Code Snippet:
Window1:
DEF VAR WHANDLE AS HANDLE.
RUN Window2 PERSISTENT SET WHANDLE.
Run process.
Process over.
IF WHANDLE:PERSISTENT THEN DO:
RUN DestroyProcedure IN WHANDLE.
END.
Window2:
PROCEDURE DestroyProcedure :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
MESSAGE "Process is finished. Deleting this status window"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
DELETE PROCEDURE THIS-PROCEDURE NO-ERROR.
DELETE WIDGET-POOL.
END PROCEDURE.