anchor.diff:  begin
     if FFileName=AValue then Exit;
     FFileName:= AValue;
  +
     //update Notif obj
  -  NotifEnabled:= NotifEnabled;
  +  if IsText then
  +    NotifEnabled:= NotifEnabled;
   end;
   
   procedure TEditorFrame.SetLocked(AValue: boolean);
  
positive.code:   if IsFileReadonly(fn) then
      Editor.ModeReadOnly:= true;
  
    NotifEnabled:= NotifEnabled;
  end;
  
  function TEditorFrame.DoFileSave(ASaveAs: boolean; ASaveDlg: TSaveDialog;
  
negative.code:   if IsFilenameListedInExtensionList(fn, UiOps.PictureTypes) then
    begin
      TabCaption:= ExtractFileName(fn);
      FFileName:= '?';
  
      Ed1.Hide;
      Ed2.Hide;
  