@@ -1,24 +1,30 @@
11
22module Mouse where
33
4−import Native.Mouse as M
4+import Native.Mouse as Native
55
66-- The current mouse position.
77position : Signal (Int,Int)
8+position = Native.position
89
910-- The current x-coordinate of the mouse.
1011x : Signal Int
12+x = Native.x
1113
1214-- The current y-coordinate of the mouse.
1315y : Signal Int
16+y = Native.y
1417
1518-- The current state of the left mouse-button.
1619-- True when the button is down, and false otherwise.
1720isDown : Signal Bool
21+isDown = Native.isDown
1822
1923-- True immediately after the left mouse-button has been clicked,
2024-- and false otherwise.
2125isClicked : Signal Bool
26+isClicked = Native.isClicked
2227
2328-- Always equal to unit. Event triggers on every mouse click.
2429clicks : Signal ()
30+clicks = Native.clicks