srecord PtInComponent<A extends Component>(A component, Pt p) {
  *(ComponentEvent evt) {
    component = evt.getComponent();
    p = pt(evt.getX(), evt.getY());
  }
}