anchor.diff:  procedure Register;
   
   implementation
  -uses wgbutton;
  +uses Controls, wgbutton;
   
   procedure Register;
   begin
  
positive.code: function TpgfMediator.ParentAcceptsChild(Parent: TComponent;
    Child: TComponentClass): boolean;
  begin
    result := true;
    //Result:=(Parent is TpgfWidget) and TpgfWidget(Parent).IsContainer
      // and Child.InheritsFrom(TpgfComponent);
      //and (TpgfWidget(Parent).AcceptChildsAtDesignTime);
  end;
  
  
negative.code:     function ParentAcceptsChild(Parent: TComponent;
                  Child: TComponentClass): boolean; override;
    public
  
    public
      // needed by TpgfWidget
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  