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

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