anchor.diff:  
   procedure TView.Nudge(dx, dy : integer);
     begin
  -    _x += dx;
  -    _y += dy;
  +    _x += dx; _y += dy;
     end;
  -
    
   procedure TView.Redraw;
  
positive.code:     count : cardinal =  0;
      rs    : TRecordSet;
  begin
    bg('b'); fg('W');
    rs := _cur.RecordSet.open.first;
    while (count < yMax) and not rs.eof do
      begin
        if rs['leaf'] then sigil := ' '
  
negative.code:       property h : cardinal read _h write SetH;
        constructor Create( aOwner : TComponent ); override;
      end;
  
    // A class with its own video ram buffer:
    TTermView = class (TView, ITerm)
      protected
  