home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / cursormo.def < prev    next >
Text File  |  1995-07-24  |  1KB  |  75 lines
  1. DEFINITION MODULE CursorMouse;
  2.  
  3. (*************************************************************************
  4.    32-bit OS/2 Modula-2 standard cursor mouse.
  5.  
  6.    Note: This definition is based upon N.Wirth's
  7.          "Programming in Modula-2" 4th edition;
  8.  
  9.          Not yet implemented!
  10.  
  11.    Copyright (c) 1995 by Juergen Neuhoff
  12. **************************************************************************)
  13.  
  14.  
  15. CONST
  16.   ML = 15;
  17.   MM = 14;
  18.   MR = 13;
  19.  
  20. TYPE
  21.   Pattern    = RECORD
  22.     height     : CARDINAL;
  23.     raster     : ARRAY [0..15] OF BITSET;
  24.                END;
  25.  
  26.   ReadProc   = PROCEDURE( VAR BITSET, VAR CARDINAL, VAR CARDINAL );
  27.  
  28. PROCEDURE SetMouse
  29. (
  30.   x,y        : CARDINAL
  31. );
  32.  
  33. PROCEDURE GetMouse
  34. (
  35.   VAR s      : BITSET;
  36.   VAR x,y    : CARDINAL
  37. );
  38. (*
  39.    ML IN s = "Left mouseKey pressed";
  40.    MM IN s = "Middel mouseKey pressed";
  41.    MR IN s = "Right mouseKey pressed";
  42. *)
  43.  
  44. PROCEDURE ReadMouse
  45. (
  46.   VAR s     : BITSET;
  47.   VAR x,y   : CARDINAL
  48. );
  49.  
  50. PROCEDURE Assign
  51. (
  52.   p         : ReadProc
  53. );
  54.  
  55. PROCEDURE MoveCursor
  56. (
  57.   x,y       : CARDINAL
  58. );
  59.  
  60. PROCEDURE EraseCursor
  61. ();
  62.  
  63. PROCEDURE SetPattern
  64. (
  65.   VAR p    : Pattern
  66. );
  67. (* set a mouse cursor pattern *)
  68.  
  69.  
  70. PROCEDURE ResetPattern
  71. ();
  72. (* to standaRD arrow pattern *)
  73.  
  74. END CursorMouse.
  75.