* ClearContents added

packages/webwidget/webwidget.pas

@@ -456,6 +456,8 @@ Type
   Public
     Constructor Create(aOwner : TComponent); override;
     Destructor Destroy; override;
+    // Clear content
+    Procedure ClearContent; virtual;
     // Does this element allow childern ?
     Class Function AllowChildren : Boolean; virtual;
     // Manipulate Classes
@@ -3000,6 +3002,12 @@ begin
   inherited Destroy;
 end;
 
+procedure TCustomWebWidget.ClearContent;
+begin
+  if Assigned(FElement) then
+    FElement.InnerHTML:='';
+end;
+
 class function TCustomWebWidget.AllowChildren: Boolean;
 begin
   Result:=True;