LEAVE, HIDE MESSAGE

/******************** STATEMENTS**********************************
**
** LEAVE (Event)
** E um evento que significa que a
** perda do input-focus naquele
** momento em um determinado widget.
** E o contrario do ENTRY.
**
** HIDE MESSAGE
** Responsavel pela limpeza da area de
** mensagens da window.
**
**********************************************************************/

Código:

DEFINE VARIABLE campo1 AS CHARACTER.
DEFINE VARIABLE campo2 AS CHARACTER.
DEFINE VARIABLE campo3 AS CHARACTER.

DEFINE FRAME f-tela
             SKIP(1)             
             campo1   SKIP
             campo2   SKIP
             campo3   SKIP(1)
             WITH SIDE-LABELS CENTERED 
             NO-BOX ROW 4 .

ENABLE ALL WITH FRAME f-tela.

ON ENTRY OF CAMPO3
DO:
   MESSAGE "Digite <RETURN> no Campo3 para fim do programa.".
END.                                                         

ON LEAVE OF CAMPO3
DO:
   HIDE MESSAGE.
END.                                                         
    
WAIT-FOR RETURN OF campo3.