home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / ghostlib / mouse.ch < prev    next >
Encoding:
Text File  |  1994-08-31  |  4.8 KB  |  145 lines
  1. /*
  2. * Mouse.ch
  3. *
  4. * Constants for use with the mouse interface
  5. *
  6. */
  7. // You can use this statement when compiling with Clipper 5.2
  8. #STDOUT Using MOUSE.CH    - version 2.3 by GhostWare (c) 1991-1994
  9.  
  10. //
  11. // Defines for mouse sensitive GETs
  12. // These are used by the GETSYS.PRG replacement GW_GET52.PRG
  13. // and the additional GET readers like GET...BUTTON, GET...CALENDER,
  14. // GET...CALCULATOR and so on.
  15. //
  16. #DEFINE GET_LEFT_PRESSED     -50       // Values to receive back from GWAction()
  17. #DEFINE GET_RIGHT_PRESSED     27       //   when left or right button is pressed
  18.  
  19. #DEFINE GE_MOUSE              99       // Additional exit value for GETEXIT.CH
  20.                                        // A high value is used so no conflicts with
  21.                                        // the CA (future) exit codes will arise.
  22.  
  23.  
  24. // MouseRead fills in an array of 4 elements, defined by
  25. // the following manifest constants
  26.  
  27. #define M_LEFT_PRESSED   1
  28. #define M_RIGHT_PRESSED  2
  29. #define M_ROW            3
  30. #define M_COL            4
  31. #define M_SIZE_ARRAY     M_COL
  32.  
  33. #define MOUSE_DOWN(aInfo) (aInfo[M_LEFT_PRESSED] .OR. aInfo[M_RIGHT_PRESSED])
  34.  
  35. #XTRANSLATE Scroll([<parms,...>])     => MScroll(<parms>)
  36. #XTRANSLATE SetMode([<parms,...>])    => MSetMode(<parms>)
  37. #XTRANSLATE SaveScreen([<parms,...>]) => MSaveScreen(<parms>)
  38. #XTRANSLATE RestScreen([<parms,...>]) => MRestScreen(<parms>)
  39. #XTRANSLATE DevOut([<parms,...>])     => MDevOut(<parms>)
  40. #XTRANSLATE QOut([<parms,...>])       => MQout({<parms>})
  41. #XTRANSLATE DispBox([<parms,...>])    => MDispBox(<parms>)
  42. #XTRANSLATE DispBegin()               => MDispBegin()
  43. #XTRANSLATE DispEnd()                 => MDispEnd()
  44.  
  45. // Additions by Ghostware :
  46. #define LEFT_BUTTON  1
  47. #define RIGHT_BUTTON 2
  48.  
  49. // Mouse cursor movements :
  50. #define MOVE_NONE        0
  51. #define MOVE_UP          1
  52. #define MOVE_UP_RIGHT    2
  53. #define MOVE_RIGHT       3
  54. #define MOVE_RIGHT_DOWN  4
  55. #define MOVE_DOWN        5
  56. #define MOVE_DOWN_LEFT   6
  57. #define MOVE_LEFT        7
  58. #define MOVE_LEFT_UP     8
  59.  
  60. // Commands for HOTSPOT functions :
  61. #XCOMMAND DEFINE HOTSPOT [<var>]            ;
  62.     [AT <top>, <left>, <bottom>, <right>]   ;
  63.     [<off:OFF>]                             ;
  64.     [KEY <key>]                             ;
  65.     [DO <do>]                               ;
  66.     [WARM [COLOR] <warmcolor>]              ;
  67.     [COLD [COLOR] <coldcolor>]              ;
  68.     =>                                ;
  69.     [<var> :=] GWHotspot({<top>, <left>,    ;
  70.     <bottom>, <right>}, <key>, <.off.>,     ;
  71.     <{do}>, <warmcolor>, <coldcolor>)
  72.  
  73. #XCOMMAND WARM HOTSPOT <var>              ;
  74.     =>                                ;
  75.     GWWarmSpot(<var>)
  76.  
  77. #XCOMMAND WARM ALL HOTSPOTS               ;
  78.     =>                                ;
  79.     GWWarmAllSpots()
  80.  
  81. #XCOMMAND COOL HOTSPOT <var>              ;
  82.     =>                                ;
  83.     GWCoolSpot(<var>)
  84.  
  85. #XCOMMAND COOL ALL HOTSPOTS               ;
  86.     =>                                ;
  87.     GWCoolAllSpots()
  88.  
  89. #XCOMMAND DELETE HOTSPOT <var>            ;
  90.     =>                                ;
  91.     GWDelSpot(<var>)
  92.  
  93. #XCOMMAND DELETE ALL HOTSPOTS             ;
  94.     =>                                ;
  95.     GWDelAllSpots()
  96.  
  97. #XCOMMAND SAVE HOTSPOTS TO <var>          ;
  98.     [<delete:DELETE>]                       ;
  99.     =>                                ;
  100.     <var> := GWSaveSpot(<.delete.>)
  101.  
  102. #XCOMMAND RESTORE HOTSPOTS FROM <var>     ;
  103.     [<repaint:REPAINT>]                     ;
  104.     =>                                ;
  105.     GWRestSpot(<var>, <.repaint.>)
  106.  
  107. #XCOMMAND PAINT HOTSPOTS                  ;
  108.     =>                                ;
  109.     GWPaintSpots()
  110.  
  111. /*
  112. #define M_RESET       0   // Reset mouse driver and return
  113.                           // status
  114.                           // AX has status, -1 if hardware and software
  115.                           // installed, 0 if not installed.  BX has
  116.                           // number of buttons
  117.  
  118. #define M_SHOW        1   // Make mouse cursor visible
  119.  
  120. #define M_REMOVE      2   // Hide mouse cursor
  121.  
  122. #define M_READ        3   // Get button status and mouse position
  123.                           // BX has button status, bit 0 left button,
  124.                           // bit 1 right button.  bits are 0 if
  125.                           // corresponding button up, 1 if down
  126.  
  127. #define M_SET_CURS    4   // Set cursor position.
  128.  
  129. #define M_MOTION     11   // return horizontal and vertical movement
  130.                           // since last call to this function.
  131.  
  132. // 2 constants use to translate between mickeys and text mode
  133.  
  134. #define M_CURS_WIDTH  8   // number of 'mickeys' horizontally
  135.                           // per text character
  136.  
  137. #define M_CURS_HEIGHT 8   // number of 'mickeys' vertically
  138.                           // per text character
  139.  
  140. // An array of zeroes to assign to a register structure
  141. #define ZERO_REGS    {0, 0, 0, 0, 0, 0, 0}
  142.  
  143. #define MOUSE_INT    51   // 0x33, mouse interrupt vector.
  144. */
  145.