anchor.diff:  
   procedure TVFDWidgetProperty.OnExternalEdit(wg: TfpgWidget);
   begin
  -  writeln('external edit');
  +  debugln('external edit');
   end;
   
   { TVFDPropertyEditor }
  
positive.code: 
  procedure TVFDPropertyEditor.LoadValue(wg: TfpgWidget);
  begin
    Writeln('abstract: editor.LoadValue');
  end;
  
  procedure TVFDPropertyEditor.UpdateProperty(Sender: TObject);
  
negative.code:     s := GetValueText(wg);
    except
      on E: Exception do
        debugln('Detected an error: ', E.Message);
    end;
    
    Canvas.BeginDraw;
  