sclass FieldVar<A> extends VarWithNotify<A> {
  IHasChangeListeners containingObject;
  S fieldName;
  IF0<A> getter;
  IVF1<A> setter;

  *(IHasChangeListeners *containingObject,
    S *fieldName, IF0<A> *getter, IVF1<A> *setter) {
    containingObject.onChangeAndNow(l0 _updateFromObject);
  }
  
  void _updateFromObject {
    set(getter!);
  }
  
  public void fireChange :: after {
    setter.get(get());
  }
}