DEFINE RECTANGLE

/******************** STATEMENTS**********************************
**
** DEFINE RECTANGLE
** Retagle e mais uma widget. E um objeto
** que pode conpor sua interface.
**
** AT ROW n COLUMN n - (DEFINE FRAME...)
** E utilizado para posicionar cada widget
** na frame.
**
** SIZE (largura) BY (altura) - (DEFINE FRAME...)
** Serve para determinar as dimensoes
** de uma widget.
**
**
**********************************************************************/

Código:

DEFINE RECTANGLE rt-vazio SIZE 25 BY 5 NO-FILL EDGE-CHARS 0.1.
DEFINE BUTTON bt-fim LABEL "&Fim".
DEFINE VARIABLE campo1 AS CHARACTER.
DEFINE VARIABLE campo2 AS CHARACTER.
DEFINE VARIABLE campo3 AS CHARACTER.

DEFINE FRAME F-TELA         
             rt-vazio AT ROW 02 COLUMN 03
             campo1   AT ROW 03 COLUMN 04
             campo2   AT ROW 04 COLUMN 04
             campo3   AT ROW 05 COLUMN 04
             bt-fim   AT ROW 08 COLUMN 20
             WITH SIDE-LABELS CENTERED 
             NO-BOX ROW 4 SIZE 30 BY 09.

ENABLE ALL WITH FRAME F-TELA.

WAIT-FOR CHOOSE OF bt-fim.