applied_patches/0387-vba-allow-forms-resetvalue-binding.diff

   1 diff --git forms/source/component/FormComponent.cxx forms/source/component/FormComponent.cxx
   2 index 2919abd..2b73ec6 100644
   3 --- forms/source/component/FormComponent.cxx
   4 +++ forms/source/component/FormComponent.cxx
   5 @@ -2556,8 +2556,8 @@ void SAL_CALL OBoundControlModel::setVal
   6      OSL_PRECOND( m_bSupportsExternalBinding, "OBoundControlModel::setValueBinding: How did you reach this method?" );
   7          // the interface for this method should not have been exposed if we do not
   8          // support binding to external data
   9 -
  10 -    if ( !impl_approveValueBinding_nolock( _rxBinding ) )
  11 +    // allow reset
  12 +    if ( _rxBinding.is() && !impl_approveValueBinding_nolock( _rxBinding ) )
  13      {
  14          throw IncompatibleTypesException(
  15              FRM_RES_STRING( RID_STR_INCOMPATIBLE_TYPES ),