/* counting lines in an editor widget */

DEFINE INPUT PARAMETER body AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER charsPerLine AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER totalLines  AS INTEGER NO-UNDO.
ASSIGN totalLines = 0.

DEFINE FRAME hFrame
    body VIEW-AS EDITOR INNER-LINES 5 INNER-CHARS 60.

ASSIGN
    body:INNER-CHARS IN FRAME hFrame = charsPerLine
    FRAME hFrame:HIDDEN = YES.
DISPLAY body WITH FRAME hFrame.
ASSIGN totalLines =  body:NUM-LINES IN FRAME hFrame.