Power-Programmierung/CD1.mdf/fortran/mslang/mouse_32/mouse.fi

Text File | 1993-06-16 | 1KB | 52 lines

C Include file for mouse calls.

C Public mouse functions
      INTERFACE TO INTEGER FUNCTION MouseInit()
      END

      INTERFACE TO LOGICAL FUNCTION GetMouseEvent(pEvent)
      STRUCTURE / EVENT /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*4      fsBtn
      END STRUCTURE
      RECORD / EVENT / pEvent
      END

      INTERFACE TO SUBROUTINE GetPtrPos(pEvent)
      STRUCTURE / EVENT /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*4      fsBtn
      END STRUCTURE
      RECORD / EVENT / pEvent
      END

      INTERFACE TO INTEGER*4 FUNCTION GetButtonPress(btns)
      STRUCTURE / BTN_STS /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*2      Btn
         INTEGER*2      BtnState
      END STRUCTURE
      RECORD / BTN_STS / btns
      END

      INTERFACE TO INTEGER*4 FUNCTION GetButtonRelease(btns)
      STRUCTURE / BTN_STS /
         INTEGER*2      x
         INTEGER*2      y
         INTEGER*2      Btn
         INTEGER*2      BtnState
      END STRUCTURE
      RECORD / BTN_STS / btns
      END

      INTERFACE TO SUBROUTINE SetPtrPos(x[VALUE], y[VALUE])
      INTEGER*4 x, y
      END

      INTERFACE TO SUBROUTINE SetPtrVis(iPV[VALUE])
      INTEGER*4 iPV
      END