anchor.diff:    end;
     if Assigned(FOnAsyncHide) or FDestroyOnHide then begin
       ABuffer.WriteLine('$("#'+xHTMLName+'").on("hidden.bs.modal", function(e){ executeAjaxEvent("", null, "'+xHTMLName+'.DoOnAsyncHide", true, null, true); });');
  -    IWBSRegisterSafeCallBack(xHTMLName+'.DoOnAsyncHide', Self, DoOnAsyncHide);
  +    AContainerContext.WebApplication.RegisterCallBack(xHTMLName+'.DoOnAsyncHide', DoOnAsyncHide);
     end;
     if FModalVisible then
       ABuffer.WriteLine(GetShowScript);
  
positive.code:   if FAsyncDestroy then
      ExecuteJS('AsyncDestroyControl("'+HTMLName+'");');
  
    IWBSCleanSafeCallBacks(Self);
    inherited;
  end;
  
  procedure TIWBSCustomRegion.Release;
  begin
    FReleased := True;
  end;
  
  function TIWBSCustomRegion.GetWebApplication: TIWApplication;
  
negative.code: end;
  {$endregion}
  
  end.
  