editor.p
| 1 |
/** |
|---|---|
| 2 |
* Tests for EDITOR issues. |
| 3 |
* |
| 4 |
* THis test program creates an editor of small fixed widh with a fixed (non-valriable-width) font. |
| 5 |
* to match the environment used in stand-alone unit tests. |
| 6 |
*/ |
| 7 |
{FWDREVISION.i}
|
| 8 |
|
| 9 |
DEFINE VARIABLE e AS CHARACTER NO-UNDO VIEW-AS EDITOR SIZE 15 BY 5 FONT 2. |
| 10 |
|
| 11 |
DEFINE FRAME f e NO-LABEL SKIP |
| 12 |
|
| 13 |
WITH SIZE 80 BY 20 TITLE "Fixed font editor" |
| 14 |
. |
| 15 |
e:SCREEN-VALUE = "~n~nThe quick brown fox ~n~n jumps over a lazy dog.~n~n". |
| 16 |
// Make EDITOR exactly 15 characters width + margins |
| 17 |
e:WIDTH-CHARS = FONT-TABLE:GET-TEXT-WIDTH-CHARS("012345678901234", 2) + 0.9.
|
| 18 |
|
| 19 |
ON A OF e DO: |
| 20 |
MESSAGE |
| 21 |
SELF:CURSOR-OFFSET |
| 22 |
SELF:SELECTION-START SELF:SELECTION-END |
| 23 |
SELF:TEXT-SELECTED |
| 24 |
SELF:SCREEN-VALUE LENGTH(SELF:SCREEN-VALUE). |
| 25 |
RETURN NO-APPLY. |
| 26 |
END. |
| 27 |
|
| 28 |
ENABLE ALL WITH FRAME f. |
| 29 |
|
| 30 |
VIEW FRAME f. |
| 31 |
|
| 32 |
WAIT-FOR GO OF FRAME f. |