objeto:HANDLE

/******************** STATEMENTS**********************************
**
** objeto:HANDLE (Attrribute)
** Atributo responsavel em definir um
** endereco fisico para uma widget.
**
** objeto:FRAME (Attrribute)
** Atributo que define qual o container
** de dados que e referido.
**
**********************************************************************/

Código:

DEFINE BUTTON bt-fim LABEL "&Fim". 

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

DEFINE FRAME mae 
       bt-fim 
       WITH TITLE "FRAME MAE" 
       SIZE 40 BY 10 CENTERED ROW 4.

DEFINE FRAME filha
       SKIP(1)
       campo1 SKIP
       campo2 SKIP
       campo3 SKIP(1)
       WITH TITLE "FRAME FILHA" 
       SIZE 25 BY 6 AT ROW 2 COLUMN 10 
       SIDE-LABELS.       

ASSIGN FRAME filha:FRAME = FRAME mae:HANDLE.

DISPLAY WITH FRAME mae.

ENABLE ALL WITH FRAME mae.
ENABLE ALL WITH FRAME filha.


WAIT-FOR CHOOSE OF BT-FIM.