Click above to get retro games delivered to your door ever month!

 mouseavail()        Determine if a mouse is available
------------------------------------------------------------------------------
 Declaration
   mouse.hdr

 Syntax
   func logical mouseavail extern

 Arguments
   None.

 Return
   A logical indicating if a mouse is available.

 Description
   This function returns .t. if a mouse is available, i. e. the mouse driver
   is installed and a mouse is connected to the system.

 Example
   #define EXAMPLE_MOUSE
   #include example.hdr

   proc Test_mouseavail
   if mouseavail()
      mouseon()
      ? "Mouse is", iifc( ismouseon(), "on", "off" )
      wait
      mouseoff()
      ? "Mouse is", iifc( ismouseon(), "on", "off" )
      wait
   else
      ? "Mouse is not available"
   endif
   endproc

   proc main
   Test_mouseavail()
   endproc