predefined-mouse-cursors.p
| 1 |
DEF VAR cur AS CHARACTER NO-UNDO VIEW-AS COMBO-BOX |
|---|---|
| 2 |
LIST-ITEMS |
| 3 |
"APPSTARTING", |
| 4 |
"ARROW", |
| 5 |
"CROSS", |
| 6 |
"HELP", |
| 7 |
"IBEAM", |
| 8 |
"NO", |
| 9 |
"RECTANGLE", |
| 10 |
"SIZE", |
| 11 |
"SIZE-E", |
| 12 |
"SIZE-N", |
| 13 |
"SIZE-NE", |
| 14 |
"SIZE-NW", |
| 15 |
"SIZE-S", |
| 16 |
"SIZE-SE", |
| 17 |
"SIZE-SW", |
| 18 |
"SIZE-W", |
| 19 |
"UPARROW", |
| 20 |
"WAIT", |
| 21 |
"GLOVE", |
| 22 |
"COMPILER-WAIT". |
| 23 |
|
| 24 |
/* |
| 25 |
DEF VAR ed AS CHARACTER VIEW-AS EDITOR INNER-CHARS 20 INNER-LINES 4 LABEL "Editor". |
| 26 |
*/ |
| 27 |
DEF VAR ed AS CHARACTER FORMAT "X(10)" VIEW-AS FILL-IN BGCOLOR 3 LABEL "Fill-In". |
| 28 |
|
| 29 |
DEF FRAME fr cur ed. |
| 30 |
DEF VAR he AS HANDLE. |
| 31 |
DEF VAR hfr AS HANDLE. |
| 32 |
he = ed:HANDLE IN FRAME fr. |
| 33 |
hfr = FRAME fr:HANDLE. |
| 34 |
|
| 35 |
DEF VAR c AS CHARACTER NO-UNDO. |
| 36 |
|
| 37 |
ON VALUE-CHANGED OF cur IN FRAME fr DO: |
| 38 |
c = cur:SCREEN-VALUE. |
| 39 |
message "new cursor:" c "loaded:" he:LOAD-MOUSE-POINTER(c) "ed:MOUSE-POINTER:" he:MOUSE-POINTER. |
| 40 |
END. |
| 41 |
|
| 42 |
message "BEFORE enable: fr:MOUSE-POINTER:[" + hfr:MOUSE-POINTER + "]" "ed:MOUSE-POINTER:[" + he:MOUSE-POINTER + "]". |
| 43 |
|
| 44 |
ENABLE ALL WITH FRAME fr. |
| 45 |
|
| 46 |
message "AFTER enable: fr:MOUSE-POINTER:[" + hfr:MOUSE-POINTER + "]" "ed:MOUSE-POINTER:[" + he:MOUSE-POINTER + "]". |
| 47 |
|
| 48 |
c = "GLOVE". |
| 49 |
message "new cursor:" c "loaded:" hfr:LOAD-MOUSE-POINTER(c) "fr:MOUSE-POINTER:" hfr:MOUSE-POINTER. |
| 50 |
|
| 51 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |