home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ISCURSOR.ZIP / ISCURSOR.DOC < prev    next >
Encoding:
Text File  |  1988-06-17  |  3.0 KB  |  52 lines
  1. 
  2.                                                                            ISCURSOR()
  3.                                   _____________________________________________________________________
  4.                                  |
  5.                                  |                   ISCURSOR()
  6.                                  |_____________________________________________________________________
  7.                                  |
  8.                                  |
  9.                   Syntax:        |     ISCURSOR()
  10.                                  |
  11.                   Purpose:       |     To determine whether the cursor is set ON or OFF.
  12.                                  |     Written for Summer '87 CLIPPER release.
  13.                                  |
  14.                   Returns:       |     A logical value.
  15.                                  |
  16.                                  |     ISCURSOR() returns true (.T.) if the cursor is ON
  17.                                  |     it returns false (.F.) if the cursor is OFF.
  18.                                  |
  19.                   Example        |     *-* on entry to a proc which uses the cursor
  20.                                  |     *-* such as HELP or RULER, and may be called from
  21.                                  |     *-* a wait state in which the cursor is off, such
  22.                                  |     *-* as MENU TO ...
  23.                                  |     FUNCTION WHATEVER
  24.                                  |        cur_stat = ISCURSOR()
  25.                                  |        SET CURSOR ON
  26.                                  |        *-* whatever function code
  27.                                  |        IF .NOT. cur_stat
  28.                                  |            SET CURSOR OFF
  29.                                  |        ENDIF
  30.                                  |        RETURN
  31.                                  |
  32.                   Library:       |   ISCURSOR.OBJ  -  must link with your program
  33.                                  |
  34.                   Source:        |   ISCURSOR.ASM      author - J. S. Prinke 6/88
  35.                                  |
  36.                   See also:      |   SET CURSOR, ISPRINTER(), ISLOWER(), ISUPPER()
  37.                                  |
  38.                                  |
  39.                                  |
  40.                                  |
  41.                                  |
  42.                                  |
  43.                                  |
  44.                                  |
  45.                                  |
  46.                                                 INSERT
  47.                  ______________________________________________________________________________________
  48.                                                  6-81
  49.  
  50.   
  51. @
  52.