Editor no Progress

26Nov08

Para criar um editor no Progress, basta utilizar o codigo abaixo.

DEFINE VARIABLE c_editor  AS CHAR VIEW-AS EDITOR SIZE 50 BY 12 NO-UNDO.
DEFINE BUTTON   bt-sair   label “Sair”.

def frame f_principal
…c_editor LABEL ‘Editor’ skip
…bt-sair.

on return of bt-sair in frame f_principal
do:
…MESSAGE c_editor:SCREEN-VALUE IN FRAME f_principal VIEW-AS ALERT-BOX.
…apply “close” to frame f_principal.
end.

enable c_editor
…bt-sair
…with frame f_principal.
wait-for close of frame f_principal.

Filed under: Progress   |  Leave a Comment
Tags: 4gl, char, define, editor, frame, Progress, variable