testcase_9492.p
| 1 |
PROCEDURE showDialogBox: |
|---|---|
| 2 |
DEFINE VARIABLE cEditor AS CHARACTER VIEW-AS EDITOR SIZE 50 BY 1.00 NO-UNDO. |
| 3 |
DEFINE FRAME frMsg cEditor WITH VIEW-AS DIALOG-BOX. |
| 4 |
|
| 5 |
FRAME frmsg:PARENT = ACTIVE-WINDOW. |
| 6 |
|
| 7 |
ASSIGN cEditor:read-only IN FRAME frMsg = YES |
| 8 |
cEditor:width-PIXELS IN FRAME frMsg = 300 |
| 9 |
cEditor:screen-value = "Lorem, ipsum dolor sit amet consectetur adipisicing elit. Praesentium magnam eius molestias, illo id repellendus atque in nihil quo distinctio numquam?" |
| 10 |
FRAME frMsg:height-pixels = 120 |
| 11 |
FRAME frMsg:width-pixels = 500 |
| 12 |
cEditor:height-PIXELS IN FRAME frMsg = 15 * cEditor:num-lines IN FRAME frMsg. |
| 13 |
|
| 14 |
ENABLE cEditor AT ROW 2 COL 15 NO-LABELS WITH FRAME frMsg. |
| 15 |
|
| 16 |
WAIT-FOR WINDOW-CLOSE OF FRAME frMsg. |
| 17 |
END PROCEDURE. |
| 18 |
|
| 19 |
OUTPUT to "file.txt". |
| 20 |
RUN showDialogBox. |
| 21 |
OUTPUT close. |