diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/text/BaseFrameProperties/text_BaseFrameProperties.xba')
-rw-r--r-- | qadevOOo/tests/basic/ifc/text/BaseFrameProperties/text_BaseFrameProperties.xba | 183 |
1 files changed, 0 insertions, 183 deletions
diff --git a/qadevOOo/tests/basic/ifc/text/BaseFrameProperties/text_BaseFrameProperties.xba b/qadevOOo/tests/basic/ifc/text/BaseFrameProperties/text_BaseFrameProperties.xba deleted file mode 100644 index 979432e5a5f1..000000000000 --- a/qadevOOo/tests/basic/ifc/text/BaseFrameProperties/text_BaseFrameProperties.xba +++ /dev/null @@ -1,183 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_BaseFrameProperties" script:language="StarBasic"> - -'************************************************************************* -' -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' 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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'************************************************************************* -'************************************************************************* - - - -' Be sure that all variables are dimensioned: -option explicit - - - - -Sub RunTest() - -'************************************************************************* -' INTERFACE: -' com.sun.star.text.BaseFrameProperties -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - - oObj.SizeProtected = false - - PropertyTester.TestProperty("ShadowFormat") - - Dim nPages(0 to 2) As Integer - nPages(0) = 1 - nPages(1) = 3 - nPages(2) = 1 - PropertyTester.TestProperty("AnchorPageNo",nPages()) - - PropertyTester.TestProperty("BackColor") - - PropertyTester.TestProperty("BackGraphicURL") - - PropertyTester.TestProperty("BackGraphicFilter") - - PropertyTester.TestProperty("BackGraphicLocation") - - PropertyTester.TestProperty("LeftBorder") - - PropertyTester.TestProperty("RightBorder") - - PropertyTester.TestProperty("TopBorder") - - PropertyTester.TestProperty("BottomBorder") - - PropertyTester.TestProperty("BorderDistance") - - PropertyTester.TestProperty("LeftBorderDistance") - - PropertyTester.TestProperty("RightBorderDistance") - - PropertyTester.TestProperty("TopBorderDistance") - - PropertyTester.TestProperty("BottomBorderDistance") - - PropertyTester.TestProperty("BackTransparent") - - PropertyTester.TestProperty("ContentProtected") - - PropertyTester.TestProperty("LeftMargin") - - PropertyTester.TestProperty("RightMargin") - - PropertyTester.TestProperty("TopMargin") - - PropertyTester.TestProperty("BottomMargin") - - Dim aRelative(2) As Integer - aRelative(0) = 10 - aRelative(1) = 20 - aRelative(2) = 0 - PropertyTester.TestProperty("RelativeHeight", aRelative()) - - PropertyTester.TestProperty("RelativeWidth", aRelative()) - - PropertyTester.TestProperty("Height") - - PropertyTester.TestProperty("Width") - - PropertyTester.TestProperty("IsSyncWidthToHeight") - - PropertyTester.TestProperty("IsSyncHeightToWidth") - - Dim aHoriOrient(3) As Integer - aHoriOrient(0) = com.sun.star.text.HoriOrientation.RIGHT - aHoriOrient(1) = com.sun.star.text.HoriOrientation.CENTER - aHoriOrient(2) = com.sun.star.text.HoriOrientation.LEFT - aHoriOrient(3) = com.sun.star.text.HoriOrientation.NONE - PropertyTester.TestProperty("HoriOrient", aHoriOrient()) - - PropertyTester.TestProperty("HoriOrientPosition") - - Dim aHoriRelations(3) As Integer - aHoriRelations(0) = com.sun.star.text.RelOrientation.FRAME - aHoriRelations(1) = com.sun.star.text.RelOrientation.CHAR - aHoriRelations(2) = com.sun.star.text.RelOrientation.PAGE_LEFT - aHoriRelations(3) = com.sun.star.text.RelOrientation.PAGE_RIGHT - - PropertyTester.TestProperty("HoriOrientRelation", aHoriRelations()) - - Dim aVertOrient(3) As Integer - aVertOrient(0) = com.sun.star.text.VertOrientation.TOP - aVertOrient(1) = com.sun.star.text.VertOrientation.CENTER - aVertOrient(2) = com.sun.star.text.VertOrientation.BOTTOM - aVertOrient(3) = com.sun.star.text.VertOrientation.NONE - PropertyTester.TestProperty("VertOrient", aVertOrient()) - - PropertyTester.TestProperty("VertOrientPosition", aVertOrient()) - - Dim aVertRelations(3) As Integer - aVertRelations(0) = com.sun.star.text.RelOrientation.FRAME - aVertRelations(1) = com.sun.star.text.RelOrientation.CHAR - aVertRelations(2) = com.sun.star.text.RelOrientation.PAGE_LEFT - aVertRelations(3) = com.sun.star.text.RelOrientation.PAGE_RIGHT - PropertyTester.TestProperty("VertOrientRelation", aVertRelations()) - - PropertyTester.TestProperty("HyperLinkURL") - - PropertyTester.TestProperty("HyperLinkTarget") - - PropertyTester.TestProperty("HyperLinkName") - - PropertyTester.TestProperty("Opaque") - - PropertyTester.TestProperty("PageToggle") - - PropertyTester.TestProperty("PositionProtected") - - PropertyTester.TestProperty("Print") - - PropertyTester.TestProperty("ServerMap") - - oObj.SizeProtected = false - PropertyTester.TestProperty("Size") - - PropertyTester.TestProperty("SizeProtected") - - oObj.SizeProtected = false - - PropertyTester.TestProperty("Surround") - - PropertyTester.TestProperty("SurroundAnchorOnly") - - PropertyTester.TestProperty("AnchorFrame") - - -Exit Sub -ErrHndl: - Test.Exception() - bOK = false - resume next -End Sub -</script:module> |