bug3631-system-dialog-font.p
| 1 |
// SYSTEM-DIALOG FONT won't accept keyboard input in the selection lists |
|---|---|
| 2 |
DEFINE VARIABLE Font1 AS INTEGER NO-UNDO INITIAL 1. |
| 3 |
DEFINE VARIABLE Font2 AS INTEGER NO-UNDO INITIAL 2. |
| 4 |
|
| 5 |
DEFINE BUTTON bOK LABEL "Choose Font" FONT Font2. |
| 6 |
DEFINE BUTTON bCANCEL LABEL "Cancel" FONT Font2 AUTO-ENDKEY. |
| 7 |
|
| 8 |
FORM |
| 9 |
// SKIP(0.5) SPACE(0.5) |
| 10 |
bOK SPACE(2) bCANCEL |
| 11 |
SPACE(0.5) SKIP(0.5) |
| 12 |
WITH FRAME fFont TITLE "Choose frame fonts ..." VIEW-AS DIALOG-BOX. |
| 13 |
|
| 14 |
ON CHOOSE OF bOK DO: |
| 15 |
SYSTEM-DIALOG FONT Font1. |
| 16 |
END. |
| 17 |
|
| 18 |
UPDATE bOK bCANCEL WITH FRAME fFont. |