anchor.diff:      procedure killToolProcess;
       procedure callToolProcess;
       procedure toolTerminated(Sender: TObject);
  -    procedure toolOutputData(Sender: TObject);
       procedure procOutputDbg(Sender: TObject);
       procedure clearTodoList;
       procedure fillTodoList;
  
positive.code:   end;
  end;
  
  procedure TCETodoListWidget.toolOutputData(Sender: TObject);
  begin
    processOutputToStream(fToolProc, fToolOutput);
  end;
  
  procedure TCETodoListWidget.toolTerminated(Sender: TObject);
  begin
    processOutputToStream(fToolProc, fToolOutput);
    fToolOutput.Position := 0;
    //TODO-cbugfix: UTF chars in TODO comments bug either in the widget or the tool, symptom: empty todo list, conditions: to determine.
    //fToolOutput.SaveToFile('C:\cetodo_widgetside.txt');
    fTodos.loadFromTxtStream(fToolOutput);
    fillTodoList;
    fToolProc.OnTerminate := nil;
    fToolProc.OnReadData := nil;
    fToolOutput.Clear;
  end;
  
  procedure TCETodoListWidget.clearTodoList;
  
negative.code: begin
    inherited;
    //
    fOptions := TCETodoOptions.Create(self);
    fOptions.autoRefresh := True;
    fOptions.Name := 'todolistOptions';
  