!*********************************MOUSE STUFF*********************************
!
! MOUSE constants and locations
!
%include "inc:mouse.old"

!
! Values returned by Mouse Buttons
!
%constinteger MsNone = 0,
              MsL    = mouse left,
              MsM    = mouse middle,
              MsLM   = mouse left+mouse middle,
              MsR    = mouse right,
              MsLR   = mouse left+mouse right,
              MsMR   = mouse middle+mouse right,
              MsLMR  = mouse middle+mouse left+mouse right

%predicate Check for Mouse
   ! returns TRUE if there is a Mouse attached
   %integer Dummy
   %on 0 %start
     %false
   %finish
   Dummy = MouseButtons
   %true
%end
!******************************end of MOUSE STUFF******************************
