/**
 * Tests for EDITOR issues.
 *
 * THis test program creates an editor of small fixed widh with a fixed (non-valriable-width) font.
 * to match the environment used in stand-alone unit tests.
 */
{FWDREVISION.i}

DEFINE VARIABLE e AS CHARACTER NO-UNDO VIEW-AS EDITOR SIZE 15 BY 5 FONT 2.

DEFINE FRAME f e NO-LABEL SKIP
  
  WITH SIZE 80 BY 20 TITLE "Fixed font editor"
  .
e:SCREEN-VALUE = "~n~nThe    quick brown fox ~n~n jumps    over a lazy dog.~n~n".
// Make EDITOR exactly 15 characters width + margins
e:WIDTH-CHARS = FONT-TABLE:GET-TEXT-WIDTH-CHARS("012345678901234", 2) + 0.9.
    
ON A OF e DO:
    MESSAGE
      SELF:CURSOR-OFFSET
      SELF:SELECTION-START SELF:SELECTION-END
      SELF:TEXT-SELECTED
      SELF:SCREEN-VALUE LENGTH(SELF:SCREEN-VALUE).
    RETURN NO-APPLY.
END.

ENABLE ALL WITH FRAME f.

VIEW FRAME f.

WAIT-FOR GO OF FRAME f.