Objetos e Atributos

/******************** STATEMENTS**********************************
**
** Attribute
** Attributes sao as caracteristicas
** morfologicas de uma widget, ou seja,
** e relativo a sua forma visual no
** screen.
**
** objeto:ROW (Attribute)
** Atributo responsavel por locar uma
** widget em uma determinada linha.
**
** objeto:COLUMN
** Atributo responsavel por locar uma
** widget em uma determinada coluna.
**
** objeto:LABEL
** Atributo responsavel por etiquetar
** uma widget.
**
**********************************************************************/

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 f-tela          
       SKIP(1)  
       campo1 SKIP
       campo2 SKIP
       campo3 SKIP(1)
       bt-fim SKIP(1)
       WITH TITLE "FRAME F-TELA" 
       SIZE 25 BY 8.4 CENTERED ROW 4
       SIDE-LABELS.       

ASSIGN bt-fim:ROW          = 6
       bt-fim:COLUMN       = 15
       campo1:LABEL        = "Input 1"
       campo2:LABEL        = "Input 2"
       campo3:LABEL        = "Input 3".

DISPLAY WITH FRAME f-tela.

ENABLE ALL WITH FRAME f-tela.

WAIT-FOR CHOOSE OF BT-FIM.