sclass WithToolTip<A> extends Var<A> {
  settable S toolTip;
  
  *() {}
  *(S *toolTip, A value) { super(value); }

  toString { ret formatFunctionCall("WithToolTip", toolTip, get()); }
}