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