react-haskell-2.0.0: lib/stubs.js

function js_set_handler(cid, name, cb, obj) {
  obj[name] = function(e) {
    // TODO(joel) either persist or force, not both?
    e.persist();
    cb(e);
  };
}

function js_createClass(obj) {
  // Constructor passes through to React
  var cls = function() {
    React.Component.apply(this, arguments); // (super(props))
    // TODO(joel) necessary?
    this.dispatch = this.dispatch.bind(this);
  };

  // Copy parent prototype
  cls.prototype = Object.create(React.Component.prototype);

  cls.prototype.render = function() {
    var gimmeResult = {};
    obj.render([this.props.componentId, this], gimmeResult);
    return gimmeResult.value;
  };

  cls.prototype.dispatch = function(e, name) {
    cls[name].call(this, e)
  };

  cls.displayName = obj.displayName;

  // Point constructor to the right place
  cls.prototype.constructor = cls;

  cls.prototype.componentWillMount = function() {
    obj.componentWillMount(this.props.componentId);
  };

  cls.prototype.componentWillUnmount = function() {
    obj.componentWillUnmount(this.props.componentId);
  };

  cls.prototype.getChildContext = function() {
    return obj.childContext
  };

  // TODO this is weird - why is it not on the prototype?
  cls.childContextTypes = obj.childContextTypes;

  return cls;
}