home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / mouse_32 / mouse.fi < prev    next >
Encoding:
Text File  |  1993-06-16  |  1.3 KB  |  52 lines
  1. C Include file for mouse calls.
  2.  
  3. C Public mouse functions
  4.       INTERFACE TO INTEGER FUNCTION MouseInit()
  5.       END
  6.  
  7.       INTERFACE TO LOGICAL FUNCTION GetMouseEvent(pEvent)
  8.       STRUCTURE / EVENT /
  9.          INTEGER*2      x
  10.          INTEGER*2      y
  11.          INTEGER*4      fsBtn
  12.       END STRUCTURE
  13.       RECORD / EVENT / pEvent
  14.       END
  15.  
  16.       INTERFACE TO SUBROUTINE GetPtrPos(pEvent)
  17.       STRUCTURE / EVENT /
  18.          INTEGER*2      x
  19.          INTEGER*2      y
  20.          INTEGER*4      fsBtn
  21.       END STRUCTURE
  22.       RECORD / EVENT / pEvent
  23.       END
  24.  
  25.       INTERFACE TO INTEGER*4 FUNCTION GetButtonPress(btns)
  26.       STRUCTURE / BTN_STS /
  27.          INTEGER*2      x
  28.          INTEGER*2      y
  29.          INTEGER*2      Btn
  30.          INTEGER*2      BtnState
  31.       END STRUCTURE
  32.       RECORD / BTN_STS / btns
  33.       END
  34.  
  35.       INTERFACE TO INTEGER*4 FUNCTION GetButtonRelease(btns)
  36.       STRUCTURE / BTN_STS /
  37.          INTEGER*2      x
  38.          INTEGER*2      y
  39.          INTEGER*2      Btn
  40.          INTEGER*2      BtnState
  41.       END STRUCTURE
  42.       RECORD / BTN_STS / btns
  43.       END
  44.  
  45.       INTERFACE TO SUBROUTINE SetPtrPos(x[VALUE], y[VALUE])
  46.       INTEGER*4 x, y
  47.       END
  48.  
  49.       INTERFACE TO SUBROUTINE SetPtrVis(iPV[VALUE])
  50.       INTEGER*4 iPV
  51.       END
  52.