paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 00:02:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

ExtToolConsole: Cleanup.

Browse Source 
git-svn-id: trunk@58662 -
This commit is contained in:
juha 2018-08-02 09:18:10 +00:00
parent 2afa04032b
commit e5954eac45
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/exttoolsconsole.pas
View File

@ -33,7 +33,6 @@ type
TLazExtToolConsole = class(TComponent)
private
FTerminating: boolean;
fViews: TFPList; // list of TLazExtToolConsoleView
function GetViews(Index: integer): TLazExtToolConsoleView;
public
@ -67,7 +66,6 @@ type
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure TerminateAll; override;
function GetIDEObject(ToolData: TIDEExternalToolData): TObject; override;
procedure HandleMesages; override;
end;
@ -116,8 +114,6 @@ end;
procedure TLazExtToolConsoleView.OnNewOutput(Sender: TObject;
FirstNewMsgLine: integer);
begin
if (ExtToolConsole<>nil) and ExtToolConsole.FTerminating then
exit;
while fWrittenLineCount<Tool.WorkerOutput.Count do begin
debugln(Tool.WorkerOutput[fWrittenLineCount]);
inc(fWrittenLineCount);
@ -240,15 +236,6 @@ begin
Result := RunToolWithParsers(ToolOptions);
end;
procedure TExternalToolsConsole.TerminateAll;
begin
// ToDo: If the assertion never triggers, remove this whole method and var FTerminating.
Assert(ExtToolConsole=Nil, 'TExternalToolsConsole.TerminateAll: ExtToolConsole is assigned.');
//ExtToolConsole.FTerminating:=true;
inherited TerminateAll;
//ExtToolConsole.FTerminating:=false;
end;
function TExternalToolsConsole.GetIDEObject(ToolData: TIDEExternalToolData): TObject;
begin
raise Exception.Create('TExternalToolsConsole.GetIDEObject: Should not happen!');