anchor.diff:  constructor TMediatorEditView.Create;
   begin
     inherited Create;
  -  GuiFieldName:='Text';
  -end;
  -
  -constructor TMediatorEditView.CreateCustom(pEditControl: TfpgWidget;
  -  pSubject: TtiObject; pFieldName: string; pGuiFieldName: string);
  -begin
  -  inherited;
  +  GuiFieldName := 'Text';
   end;
   
   destructor TMediatorEditView.Destroy;
  
positive.code: uses
    SysUtils
    ,TypInfo
    ,tiExcept
    ,fpg_dialogs      // for TfpgMessageDialog
    ,fpg_base         // for predefined colors
    ,tiGUIConstants   // for error color
  
negative.code: procedure RegisterFallBackMediators;
  begin
    gMediatorManager.RegisterMediator(TMediatorEditView, TtiObject, [tkSString,tkAString,tkInteger,tkFloat]);
    gMediatorManager.RegisterMediator(TMediatorEditIntegerView, TtiObject, [tkInteger]);
    gMediatorManager.RegisterMediator(TMediatorEditFloatView, TtiObject, [tkFloat]);
    gMediatorManager.RegisterMediator(TMediatorEditCurrencyView, TtiObject, [tkFloat]);
    gMediatorManager.RegisterMediator(TMediatorCheckBoxView, TtiObject, [tkBool]);
    gMediatorManager.RegisterMediator(TMediatorComboboxView, TtiObject, [tkSString,tkAString]);
    gMediatorManager.RegisterMediator(TMediatorItemComboBoxView, TtiObject, [tkInteger, tkEnumeration]);
  