APPLY "<evento>" TO <objeto>.

/******************** STATEMENTS**********************************
**
** APPLY "<evento>" TO <objeto>.
** Simula que uma determina tecla do
** keyboard ou do mouse foi pressionada
** com relacao a alguma widget.
**
** DISABLE
** E o inverso do Enable.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim     LABEL "&Fim".
DEF BUTTON bt-show    LABEL "&Show".
DEF BUTTON bt-enable  LABEL "&Enable".
DEF BUTTON bt-grava   LABEL "&Grava". 
DEF BUTTON bt-retorna LABEL "&Retorna". 
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(2) bt-enable 
             SPACE(2) SPACE(2) bt-grava
             SPACE(2) bt-retorna SPACE(2) bt-fim
             WITH SIDE-LABELS CENTERED 
             NO-BOX ROW 4 .

ENABLE bt-fim bt-show bt-enable 
       WITH FRAME F-TELA.

ON CHOOSE OF bt-enable
     ENABLE ALL WITH FRAME F-TELA.

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

ON CHOOSE OF bt-retorna
DO:   
      APPLY "CHOOSE" TO bt-show.
      DISABLE  bt-retorna
            WITH FRAME F-TELA.        
END.
               
ON CHOOSE OF bt-grava 
   ASSIGN CAMPO1 CAMPO2 CAMPO3.
    
WAIT-FOR CHOOSE OF bt-fim, bt-grava.