anchor.diff:    fProject.Free;
     //
     inherited;
  +end;
  +
  +procedure TCEMainForm.UpdateDockCaption(Exclude: TControl = nil);
  +begin
  +  // otherwise dockmaster puts the widget list.
  +  Caption := 'Coedit';
   end;
   
   procedure TCEMainForm.ApplicationProperties1Exception(Sender: TObject;E: Exception);
  
positive.code:   DockMaster.MakeDockSite(Self, [akBottom], admrpChild);
    DockMaster.OnShowOptions := @ShowAnchorDockOptions;
    DockMaster.HeaderStyle := adhsPoints;
  
    if DockManager is TAnchorDockManager then begin
      aManager:=TAnchorDockManager(DockManager);
  
negative.code:   public
      constructor create(aOwner: TComponent); override;
      destructor destroy; override;
      procedure UpdateDockCaption(Exclude: TControl = nil); override;
      //
      procedure openFile(const aFilename: string);
      procedure docChangeNotify(Sender: TObject; const aIndex: Integer);
  