git.iko.soy/elk
on 9c8dfd9 help sign in
elk/libraries/Native/Signal/Mouse.js
77 lines 2.2 kB history raw
2Elm.Native.Mouse = function(elm) {
3 'use strict';
4 elm.Native = elm.Native || {};
5 if (elm.Native.Mouse) return elm.Native.Mouse;
7 var Signal = Elm.Signal(elm);
8 var Utils = Elm.Native.Utils(elm);
10 var position = Signal.constant(Utils.Tuple2(0,0));
11 position.defaultNumberOfKids = 2;
13 // do not move x and y into Elm. By setting their default number
14 // of kids, it is possible to detatch the mouse listeners if
15 // they are not needed.
16 var x = A2( Signal.lift, function(p){return p._0}, position);
17 x.defaultNumberOfKids = 0;
18 var y = A2( Signal.lift, function(p){return p._1}, position);
19 y.defaultNumberOfKids = 0;
21 var isDown = Signal.constant(false);
22 var isClicked = Signal.constant(false);
23 var clicks = Signal.constant(Utils.Tuple0);
25 function getXY(e) {
26 var posx = 0;
27 var posy = 0;
28 if (!e) e = window.event;
29 if (e.pageX || e.pageY) {
30 posx = e.pageX;
31 posy = e.pageY;
32 } else if (e.clientX || e.clientY) {
33 posx = e.clientX + document.body.scrollLeft +
34 document.documentElement.scrollLeft;
35 posy = e.clientY + document.body.scrollTop +
36 document.documentElement.scrollTop;
37 }
38 return Utils.Tuple2(posx, posy);
39 }
41 function click(e) {
42 var hasListener1 = elm.notify(isClicked.id, true);
43 var hasListener2 = elm.notify(clicks.id, Utils.Tuple0);
44 elm.notify(isClicked.id, false);
45 if (!hasListener1 && !hasListener2)
46 elm.node.removeEventListener('click', click);
47 }
49 function down(e) {
50 var hasListener = elm.notify(isDown.id, true);
51 if (!hasListener) elm.node.removeEventListener('mousedown', down);
52 }
54 function up(e) {
55 var hasListener = elm.notify(isDown.id, false);
56 if (!hasListener) elm.node.removeEventListener('mouseup', up);
57 }
59 function move(e) {
60 var hasListener = elm.notify(position.id, getXY(e));
61 if (!hasListener) elm.node.removeEventListener('mousemove', move);
62 }
64 elm.node.addEventListener('click' , click);
65 elm.node.addEventListener('mousedown', down);
66 elm.node.addEventListener('mouseup' , up);
67 elm.node.addEventListener('mousemove', move);
69 return elm.Native.Mouse = {
70 position: position,
71 x:x,
72 y:y,
73 isClicked: isClicked,
74 isDown: isDown,
75 clicks: clicks
76 };
77};