9278.p
| 1 |
DEFINE VARIABLE fillIn AS CHARACTER NO-UNDO. |
|---|---|
| 2 |
|
| 3 |
DEFINE FRAME fr |
| 4 |
fillIn |
| 5 |
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS . |
| 6 |
fillIn:SCREEN-VALUE='a'. |
| 7 |
|
| 8 |
DEFINE VARIABLE counter AS INTEGER NO-UNDO. |
| 9 |
ON VALUE-CHANGED OF fillIn ANYWHERE DO: |
| 10 |
MESSAGE "valueChanged in browse: " counter. |
| 11 |
counter = counter + 1. |
| 12 |
END. |
| 13 |
|
| 14 |
ENABLE ALL WITH FRAME fr. |
| 15 |
|
| 16 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |
| 17 |
|
| 18 |
|