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