77 lines
No EOL
2.2 KiB
JavaScript
77 lines
No EOL
2.2 KiB
JavaScript
|
|
Elm.Native.Mouse = function(elm) {
|
|
'use strict';
|
|
elm.Native = elm.Native || {};
|
|
if (elm.Native.Mouse) return elm.Native.Mouse;
|
|
|
|
var Signal = Elm.Signal(elm);
|
|
var Misc = Elm.Native.Misc(elm);
|
|
|
|
var position = Signal.constant(Misc.Tuple(0,0));
|
|
position.defaultNumberOfKids = 2;
|
|
|
|
// do not get rid of x and y. By setting their default number
|
|
// of kids, it is possible to detatch the mouse listeners if
|
|
// they are not needed.
|
|
var x = A2( Signal.lift, function(p){return p._0}, position);
|
|
x.defaultNumberOfKids = 0;
|
|
var y = A2( Signal.lift, function(p){return p._1}, position);
|
|
y.defaultNumberOfKids = 0;
|
|
|
|
var isDown = Signal.constant(false);
|
|
var isClicked = Signal.constant(false);
|
|
var clicks = Signal.constant(Misc.Tuple0);
|
|
|
|
function getXY(e) {
|
|
var posx = 0;
|
|
var posy = 0;
|
|
if (!e) e = window.event;
|
|
if (e.pageX || e.pageY) {
|
|
posx = e.pageX;
|
|
posy = e.pageY;
|
|
} else if (e.clientX || e.clientY) {
|
|
posx = e.clientX + document.body.scrollLeft +
|
|
document.documentElement.scrollLeft;
|
|
posy = e.clientY + document.body.scrollTop +
|
|
document.documentElement.scrollTop;
|
|
}
|
|
return Misc.Tuple2(posx, posy);
|
|
}
|
|
|
|
function click(e) {
|
|
var hasListener1 = elm.notify(isClicked.id, true);
|
|
var hasListener2 = elm.notify(clicks.id, Misc.Tuple0);
|
|
elm.notify(isClicked.id, false);
|
|
if (!hasListener1 && !hasListener2)
|
|
this.removeEventListener('click',arguments.callee,false);
|
|
}
|
|
|
|
function down(e) {
|
|
var hasListener = elm.notify(isDown.id, true);
|
|
if (!hasListener) this.removeEventListener('mousedown',arguments.callee,false);
|
|
}
|
|
|
|
function up(e) {
|
|
var hasListener = elm.notify(isDown.id, false);
|
|
if (!hasListener) this.removeEventListener('mouseup',arguments.callee,false);
|
|
}
|
|
|
|
function move(e) {
|
|
var hasListener = elm.notify(position.id, getXY(e));
|
|
if (!hasListener) this.removeEventListener('mousemove',arguments.callee,false);
|
|
}
|
|
|
|
Misc.addListener(elm.node, 'click' , click);
|
|
Misc.addListener(elm.node, 'mousedown', down);
|
|
Misc.addListener(elm.node, 'mouseup' , up);
|
|
Misc.addListener(elm.node, 'mousemove', move);
|
|
|
|
return elm.Native.Mouse = {
|
|
position: position,
|
|
x:x,
|
|
y:y,
|
|
isClicked: isClicked,
|
|
isDown: isDown,
|
|
clicks: clicks
|
|
};
|
|
}; |