From 72b4ac59c01034cd0ca8efd0c5d7ebd7ed3c1a2c Mon Sep 17 00:00:00 2001
From: Oliver Specht <os@openoffice.org>
Date: Fri, 27 Apr 2001 05:42:08 +0000
Subject: #86402# ::setPropertyValue: except if readonly values should be
 changed

---
 sw/source/core/unocore/unoframe.cxx | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/sw/source/core/unocore/unoframe.cxx b/sw/source/core/unocore/unoframe.cxx
index c4f621eec94c..8ea5e31632dc 100644
--- a/sw/source/core/unocore/unoframe.cxx
+++ b/sw/source/core/unocore/unoframe.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: unoframe.cxx,v $
  *
- *  $Revision: 1.38 $
+ *  $Revision: 1.39 $
  *
- *  last change: $Author: os $ $Date: 2001-04-05 13:25:09 $
+ *  last change: $Author: os $ $Date: 2001-04-27 06:42:08 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -1206,6 +1206,13 @@ void SwXFrame::setPropertyValue(const OUString& rPropertyName, const uno::Any& a
         const SfxItemPropertyMap* pCur = SfxItemPropertyMap::GetByName(_pMap, rPropertyName);
         if(!pCur)
             throw UnknownPropertyException();
+        if ( pCur->nFlags & PropertyAttribute::READONLY)
+        {
+            IllegalArgumentException aExcept;
+            aExcept.Message = C2U("Readonly");
+            throw aExcept;
+        }
+
         SwDoc* pDoc = pFmt->GetDoc();
         if( eType == FLYCNTTYPE_GRF &&
                     (COMPARE_EQUAL == rPropertyName.compareToAscii(UNO_NAME_ALTERNATIVE_TEXT)||
-- 
cgit