anchor.diff:      procedure   miAboutIDE(Sender: TObject);
       procedure   miConfigureIDE(Sender: TObject);
       procedure   miViewDebug(Sender: TObject);
  +    procedure   TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
       procedure   UpdateStatus(const AText: TfpgString);
       procedure   SetupProjectTree;
       procedure   SetupFilesGrid;
  
positive.code:   DebugForm.Show;
  end;
  
  procedure TMainForm.UpdateStatus(const AText: TfpgString);
  begin
    lblStatus.Text := AText;
  
negative.code:     Hint := '';
      TabOrder := 5;
      TabPosition := tpRight;
      OnClosingTabSheet :=@TabSheetClosing;
    end;
  
    tsEditor1 := TfpgTabSheet.Create(pcEditor);
  