anchor.diff:  var
     pth: string;
     fname: string;
  +  i: NativeInt;
     lst: TStringList;
     hdl: TLibHandle;
     plg: PPlugDescriptor;
  
positive.code: 
  procedure TCEOptions.defineProperties(Filer: TFiler);
  var
    widg: TCEWidget;
  begin
    inherited;
    // Filer is either a TReader or a TWriter
    for widg in CEMainForm.WidgetList do
      widg.declareProperties(Filer);
  end;
  
  procedure TCEOptions.beforeSave;
  var
    widg: TCEWidget;
  begin
    fLeft   := CEMainForm.Left;
    fTop    := CEMainForm.Top;
  
negative.code: 
  procedure TCEOptions.afterLoad;
  var
    i: NativeInt;
  begin
    CEMainForm.Left   := fLeft;
    CEMainForm.Top    := fTop;
  