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