'************************************************************************* ' ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2008 by Sun Microsystems, Inc. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' $RCSfile: drawing_Shape.xba,v $ ' ' $Revision: 1.3 $ ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU Lesser General Public License version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' '************************************************************************* '************************************************************************* ' Be sure that all variables are dimensioned: option explicit Sub RunTest() '************************************************************************* ' SERVICE: ' com.sun.star.drawing.Shape '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean Dim ZOrderArr As Variant ZOrderArr = Array(1, 0) PropertyTester.TestProperty("ZOrder",ZOrderArr) PropertyTester.TestProperty("LayerID", ZOrderArr) Dim aLayersNames As Variant If oObj.LayerName = "layout" Then aLayersNames = Array("controls") Else If oObj.LayerName = "Hell" Then aLayersNames = Array("Heaven") Else aLayersNames = Array("layout") End If End If PropertyTester.TestProperty("LayerName", aLayersNames) PropertyTester.TestProperty("Printable") PropertyTester.TestProperty("MoveProtect") PropertyTester.TestProperty("Name") PropertyTester.TestProperty("SizeProtect") PropertyTester.TestProperty("Style") If cObjectName = "svx.SvxShapeConnector" Then Test.StartMethod("Transformation") Test.MethodTested("Transformation", True) Else PropertyTester.TestProperty("Transformation") End If PropertyTester.TestProperty("ShapeUserDefinedAttributes") Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub