anchor.diff:  procedure TCELibManEditorWidget.btnAddLibClick(Sender: TObject);
   var
     itm: TListItem;
  -const
  -  notav: string = '< n/a >';
   begin
     itm := List.Items.Add;
     itm.Caption := notav;
  
positive.code:     begin
        if not fileExists(filename) then
          List.Selected.SubItems[0] := extractFilePath(filename)
        else
          List.Selected.SubItems[0] := filename;
      end;
    finally
      Free;
  
negative.code: uses
    ce_libman;
  
  const
    notav: string = '< n/a >';
  
  procedure TCELibManEditorWidget.ListEdited(Sender: TObject; Item: TListItem;
    var AValue: string);
  begin
  