module Mouse where
{-| Library for working with mouse input.
# Position
@docs position, x, y
# Button Status
@docs isDown, clicks
-}
import Signal (Signal)
import Native.Mouse
{-| The current mouse position. -}
position : Signal (Int,Int)
position = Native.Mouse.position
{-| The current x-coordinate of the mouse. -}
x : Signal Int
x = Native.Mouse.x
{-| The current y-coordinate of the mouse. -}
y : Signal Int
y = Native.Mouse.y
{-| The current state of the left mouse-button.
True when the button is down, and false otherwise. -}
isDown : Signal Bool
isDown = Native.Mouse.isDown
{-| Always equal to unit. Event triggers on every mouse click. -}
clicks : Signal ()
clicks = Native.Mouse.clicks