anchor.diff:    if fProject = nil then exit;
     if Tree.Selected = nil then exit;
     //
  -  if Tree.Selected.Parent = fFileNode then
  +  if (Tree.Selected.Parent = fFileNode) or (Tree.Selected.Parent = fXtraNode) then
     begin
       fname := Tree.Selected.Text;
       i := fProject.Sources.IndexOf(fname);
       if i > -1 then
  -    begin
         fname := fProject.getAbsoluteSourceName(i);
  +    if dExtList.IndexOf(ExtractFileExt(fname)) <> -1 then
         if fileExists(fname) then
           CEMainForm.openFile(fname);
  -    end;
     end
     else if Tree.Selected.Parent = fConfNode then
     begin
  
positive.code:   begin
      if src = '' then
        continue;
      lst := TStringList.Create;
      try
        if listAsteriskPath(src, lst) then for src in lst do begin
          itm := Tree.Items.AddChild(fXtraNode, shortenPath(symbolExpander.get(src)));
          itm.ImageIndex := 2;
          itm.SelectedIndex := 2;
        end else begin
          itm := Tree.Items.AddChild(fXtraNode, shortenPath(symbolExpander.get(src)));
          itm.ImageIndex := 2;
          itm.SelectedIndex := 2;
        end;
  
negative.code: begin
    CEMainForm.FormDropFiles(Sender, Filenames);
    if fProject = nil then exit;
    for fname in Filenames do
      if FileExists(fname) then
        fProject.addSource(fname);
  end;
  
  procedure TCEProjectInspectWidget.UpdateByEvent;
  