home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / alrt / alrt.rme < prev   
Text File  |  1991-08-27  |  2KB  |  44 lines
  1.                              Alrt.BIN LEM
  2.                             --------------
  3.  
  4.           Module Copy:
  5.           ------------
  6.                MODULE('Alrt.BIN'),BINARY
  7.                  PROC(GetAlert)        !* Saves ALERT structure.
  8.                  PROC(PutAlert)        !* Restores ALERT structure.
  9.                END
  10.  
  11.   The following structure must be declared:
  12.   (Although most anything is allowed - the SHORTs are better because
  13. you can then read the array elements to determine which keys are
  14. ALERTed if you want.)
  15.   ------------------------------------------------------------------
  16.  
  17. gSavAlerts    GROUP              !* Whatever this group contains it
  18. isAlertKey      SHORT,DIM(16,2)  !*  must be at least 64 bytes long
  19.               END                !*  the LEM does not check this.
  20.                                  !* SHORT = 2 bytes
  21.  
  22.   Reason for the DIM(16,2):
  23.   Clarion allows 16 ALERT ranges, the 2 dimension is the starting key
  24. and ending key for an ALERT range (if only one key is ALERTed then
  25. that key value is in both the 1 and 2 position.
  26.  
  27.     !*** Warning
  28.   Do not read the GROUP structure (SavAlerts) from within the
  29.   Debugger - it can change certain values.  Known Changes:
  30.     Esc_Key - will be changed from 256 to 288.
  31.     No ALERT key for one of the 16 positions -
  32.       will be changed from 0 to 8224.
  33.     !*** End of Warning *****
  34.  
  35.  
  36.          Typical Usage:
  37.          -------------
  38.  
  39.          GetAlert(gSavAlerts)   !** Save present ALERT structure
  40.          ALERT()                !** Clear all active ALERTs
  41.          ALERT(F10_Key)         !** ALERT just F10_Key
  42.             !** Do whatever you want - when finished:
  43.          PutAlert(gSavAlerts)   !** Restores previous ALERT structure.
  44.