anchor.diff:      term := kvm.work;
       kvm.work := kvm.TSubTerm.Create(term, _x, _y, _w, _h);
       bg(_bg); fg(_fg);
  -    try
  -      self.Render(term);
  -    finally
  -      kvm.work := term;
  -    end
  +    try self.Render(term);
  +    finally kvm.work := term end
     end;
   
   procedure TView.Render(term : ITerm);
     begin
  -    ClrScr;
  +    ClrScr
     end;
   
   procedure TView.Resize(new_w, new_h : cardinal);
     begin
  -    _w := new_w;
  -    _h := new_h;
  +    _w := new_w; _h := new_h
     end;
    
  
positive.code:       procedure Render(term :  ITerm); override;
        procedure Resize(new_w, new_h : cardinal); override;
      end;
  
    TDbTreeGrid = class (TView)
      protected
  
negative.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 := ' '
  