home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / PDRD1 / READ.CH < prev    next >
Text File  |  1992-12-01  |  2KB  |  55 lines
  1. /*
  2.         READ.CH
  3. */
  4.  
  5. //ADread() configurable attributes
  6. #define R_CARGO         1
  7. #define R_INITBLOCK     2
  8. #define R_MOVEBLOCK     3
  9. #define R_EXITBLOCK     4
  10. #define R_KEYS          5
  11. #define R_KHANDLER      6
  12. #define R_LBUTTONS      7
  13. #define R_LBHANDLER     8
  14. #define R_RBUTTONS      9
  15. #define R_RBHANDLER     10
  16. #define R_EXPCOORDS     11
  17. #define R_EXPCOLOR      12
  18. #define R_AUTOEXPAND    13
  19. #define R_HELPID        14
  20. #define R_LREXIT        15
  21. #define R_KEYVALIDBLOCK 16
  22.  
  23. //ADread() peekable attributes
  24. #define PKREAD_NTHGET      1
  25. #define PKREAD_EXITCODE    2
  26. #define PKREAD_NGETS       3
  27. #define PKREAD_INSERT      4
  28. #define PKREAD_UPDATED     5
  29.  
  30. //ADread() special exit codes
  31. #define RX_NOCONFIRM       -101
  32. #define RX_SAVE            -102
  33. #define RX_ABORT           -103
  34.  
  35. // Return values of user-defined key and mouse button handlers for ADread()
  36. #define EXIT_READ       .T.
  37. #define CONTINUE_READ   .F.
  38.  
  39. #command @ <row>, <col> SAY <sayxpr>                                    ;
  40.                         [<sayClauses,...>]                              ;
  41.                         ADGET <var>                                     ;
  42.                         [<getClauses,...>]                              ;
  43.                                                                         ;
  44.       => @ <row>, <col> SAY <sayxpr> [<sayClauses>]                     ;
  45.        ; @ Row(), Col()+1 GET <var> [<getClauses>]                      ;
  46.        ; ADr_mousify( getlist )
  47.  
  48.  
  49. #command @ <row>, <col> ADGET <var>                                     ;
  50.                         [<getClauses,...>]                              ;
  51.                                                                         ;
  52.       => @ <row>, <col> GET <var> [<getClauses>]                      ;
  53.        ; ADr_mousify( getlist )
  54.  
  55.