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.

😀