anchor.diff:    DebugForm.Show;
   end;
   
  +procedure TMainForm.TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
  +var
  +  n: TfpgTreeNode;
  +begin
  +  n := tvProject.RootNode.FindSubNode(ATabSheet, True);
  +  if Assigned(n) then
  +  begin
  +    tvProject.RootNode.Remove(n);
  +    n.Free;
  +    tvProject.Invalidate;
  +  end;
  +end;
  +
   procedure TMainForm.UpdateStatus(const AText: TfpgString);
   begin
     lblStatus.Text := AText;
  
positive.code:     procedure   miAboutIDE(Sender: TObject);
      procedure   miConfigureIDE(Sender: TObject);
      procedure   miViewDebug(Sender: TObject);
      procedure   UpdateStatus(const AText: TfpgString);
      procedure   SetupProjectTree;
      procedure   SetupFilesGrid;
  
negative.code:     Hint := '';
      TabOrder := 5;
      TabPosition := tpRight;
      OnClosingTabSheet :=@TabSheetClosing;
    end;
  
    tsEditor1 := TfpgTabSheet.Create(pcEditor);
  