anchor.diff:      pcEditor.ActivePage := ts;
     end;
     ts.Hint := s;
  +  Result := ts;
     UpdateStatus(s);
  -  n := tvProject.RootNode.FindSubNode('Units', True);
  -  if Assigned(n) then
  -  begin
  -    n := n.AppendText(f);
  -    n.Data := ts;
  -    tvProject.Selection := n;
  -  end;
   end;
   
   procedure TMainForm.miTest(Sender: TObject);
  
positive.code: 
  procedure TMainForm.SetupProjectTree;
  begin
    tvProject.RootNode.AppendText('Units');
    tvProject.RootNode.AppendText('Images');
    tvProject.RootNode.AppendText('Help Files');
  
negative.code: var
    u: TUnit;
    s: TfpgString;
    r: TfpgTreeNode;
    n: TfpgTreeNode;
  begin
    s := pcEditor.ActivePage.Hint;
  //  writeln('adding unit: ', s);
  