2013-02-21 22:43:32 +00:00
|
|
|
|
|
|
|
module Mouse where
|
|
|
|
|
2013-02-22 23:19:40 +00:00
|
|
|
import Native.Mouse
|
|
|
|
|
2013-02-21 22:43:32 +00:00
|
|
|
-- 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
|
|
|
|
|
|
|
|
-- True immediately after the left mouse-button has been clicked,
|
|
|
|
-- and false otherwise.
|
|
|
|
isClicked : Signal Bool
|
|
|
|
isClicked = Native.Mouse.isClicked
|
|
|
|
|
|
|
|
|
|
|
|
-- Always equal to unit. Event triggers on every mouse click.
|
|
|
|
clicks : Signal ()
|
|
|
|
clicks = Native.Mouse.clicks
|
|
|
|
|
|
|
|
-- Determine whether an element has been clicked. The resulting pair
|
|
|
|
-- is a signal of booleans that is true when its paired element has
|
|
|
|
-- been clicked. The signal is True immediately after the left
|
|
|
|
-- mouse-button has been clicked, and false otherwise.
|
|
|
|
isClickedOn : Element -> (Element, Signal Bool)
|
|
|
|
isClickedOn = Native.Mouse.isClickedOn
|