ON

/******************** STATEMENTS**********************************
**
** ON
** E responsavel por disparar um procedi-
** mento, quando ocorrer um determinado
** evento relacionado com uma determinada
** widget.
** O procedimento que sera disparado
** chama-se trigger.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim    LABEL "&Fim".
DEF BUTTON bt-show   LABEL "&Show".
DEFINE VARIABLE campo1 AS CHARACTER INITIAL "Linguagem".
DEFINE VARIABLE campo2 AS CHARACTER INITIAL "Progress".
DEFINE VARIABLE campo3 AS CHARACTER INITIAL "4GL".

DEFINE FRAME F-TELA         
             SKIP(1)             
             campo1   SKIP
             campo2   SKIP
             campo3   SKIP(1)
             bt-show  SPACE(8) bt-fim
             WITH SIDE-LABELS CENTERED 
             NO-BOX ROW 4 .

ENABLE ALL WITH FRAME F-TELA.
ON CHOOSE OF bt-show 
      DISPLAY campo1 campo2 campo3 
               WITH FRAME F-TELA.

WAIT-FOR CHOOSE OF bt-fim.

ASSIGN campo1 campo2 campo3.