home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_lib2.ch < prev    next >
Text File  |  1994-08-29  |  1KB  |  52 lines
  1. // ES_LIB.CH - Include file for ES_LIB
  2.  
  3. // List of all PUBLIC And PRIVATE variables used to pass info
  4. // to Library functions
  5. MEMVAR cDefaultPath  , ;
  6.        cSystemName   , ;
  7.        cUserName     , ;
  8.        nPageLen      , ;
  9.        nUserLevel
  10.  
  11. // Include any other .ch files
  12. #INCLUDE "setcurs.ch"
  13. #INCLUDE "directry.ch"
  14. #INCLUDE "box.ch"
  15. #INCLUDE "inkey.ch"
  16. #INCLUDE "fileio.ch"
  17. #INCLUDE "colors.ch"
  18. #INCLUDE "Set.ch"
  19. #INCLUDE "Getexit.ch"
  20.  
  21. // Define key strokes
  22. #DEFINE K_UNDO      K_CTRL_U
  23. #define K_CRLF      K_CR + K_LF
  24.  
  25. // define for number of seconds to wait before timeout on record locks and
  26. // file opens
  27. #define LOCKWAITTIME    5
  28.  
  29. // Define AUDIT types - System reserved values are "90" and above
  30. #define A_LOGON         "90"
  31. #define A_LOGOFF        "91"
  32. #define A_LOGFAIL       "92"
  33. #define A_DELETE        "93"
  34. #define A_TRASHCAN      "94"    // Audit record created when record is trashcanned
  35. #define A_ADDRECORD     "95"
  36. #define A_EDITRECORD    "96"
  37.  
  38. * Define video rows
  39. #define V_EGA       43
  40. #define V_VGA       50
  41. #define V_NORMAL    25
  42.  
  43. * Define video columns
  44. #define V_SINGLE    80
  45. #define V_DOUBLE    40
  46. #define V_NOCHANGE  0
  47.  
  48. // define DEFAULT command
  49. #xcommand DEFAULT <p> TO <v> [, <p2> TO <v2> ] =>;
  50.                   <p> := IF( <p> == NIL, <v>, <p> );
  51.                   [; <p2> := IF( <p2> == NIL, <v2>, <p2> ) ]
  52.