Elm runtime patch

EltMouse.js

Elm.Native.EltMouse = function(elm){
    'use strict';
    elm.Native = elm.Native || {};

    if (elm.Native.EltMouse) return elm.Native.EltMouse;

    var Utils = Elm.Native.Utils(elm);

    function EltClicks(input) {
        this.id = Utils.guid();
        this.value = false;
        this.kids = [];
        var self = this;
        var oldElt = input.value;

        var down = function(e) {
            self.value = true;
        }

        var up = function(e) {
            self.value = false;
        }

        this.recv = function(timestep, changed, parentID) {
          if (changed) {
            oldElt.removeEventListener('mousedown', down);
            oldElt.removeEventListener('mouseup'  , up);

            input.value.addEventListener('mousedown', down);
            input.value.addEventListener('mouseup', up);

            oldElt = input.value;
          }
        };

        input.kids.push(this);
    }

    function eltClicks(eltSignal) {
        return new EltClicks(eltSignal);
    }

    return elm.Native.EltMouse = {
        eltClicks: eltClicks
    }
}