Click above to get retro games delivered to your door ever month!

 __cursor            Cursor visibility
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   logical __cursor

 Default
   .t. (cursor visible).

 Description
   The __cursor system variable reflects the visibility state of the screen
   cursor. The value of the variable is .t. if the cursor is visible, else
   .f..

   This variable is read only - assigning a different value does not change
   the cursor state, but might lead to incorrect results when reading its
   contents later.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_cursor
   vardef
      logical lCursor
   enddef
   lCursor := iscursor()
   cursor( .t. )
   wait "__cursor returns " + logtostr( __cursor ) + " Press a key."
   cursor( .f. )
   wait "__cursor returns " + logtostr( __cursor ) + " Press a key."
   if lCursor
      cursor( .t. )
   endif
   endproc

   proc main
   Test_cursor()
   endproc