CursorObj Property
Description
This property is used to associate a particular cursor with an object.
Its value is either a simple scalar number which specifies a standard Windows cursor, or the name of, or ref to, a Cursor object. The standard Windows cursors are :
| 0 | arrow (Windows default) |
| 1 | hourglass |
| 2 | crosshair |
| 3 | I-Beam |
| 4 | crossing vertical/horizontal double-headed arrows |
| 5 | diagonal double-headed arrows (left-to-right) |
| 6 | vertical double-headed arrows |
| 7 | diagonal double-headed arrows (right-to-left) |
| 8 | horizontal double-headed arrows |
| 9 | upward pointing arrow |
| 10 | box |
| 11 | crossing vertical/horizontal double-headed arrows |
| 12 | no-entry sign |
| 13 | arrow with hourglass |
| 14 | pointing hand |
If CursorObj is set to anything other than an empty vector (which is the default) it defines the appearance of the cursor when the mouse pointer is moved into the object. If CursorObj is an empty vector, the shape of the cursor remains unchanged when the mouse pointer enters the object. In effect, the cursor is "inherited" from its parent. Exceptions to this rule are certain objects which have special cursors by default.
If the value of CursorObj for the Root object is set to anything other than an empty vector, it applies to all Forms and their children, irrespective of their own CursorObj values. Therefore, if you want to indicate that your application is "working" and is not responsive to input, you can simply do:
'.' ⎕WS 'CursorObj' 1 ⍝ Hourglass cursor
Then to reset the application you do:
'.' ⎕WS 'CursorObj' ''