1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_XTextColumns" script:language="StarBasic"> 4 5 6'************************************************************************* 7' 8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9' 10' Copyright 2000, 2010 Oracle and/or its affiliates. 11' 12' OpenOffice.org - a multi-platform office productivity suite 13' 14' This file is part of OpenOffice.org. 15' 16' OpenOffice.org is free software: you can redistribute it and/or modify 17' it under the terms of the GNU Lesser General Public License version 3 18' only, as published by the Free Software Foundation. 19' 20' OpenOffice.org is distributed in the hope that it will be useful, 21' but WITHOUT ANY WARRANTY; without even the implied warranty of 22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23' GNU Lesser General Public License version 3 for more details 24' (a copy is included in the LICENSE file that accompanied this code). 25' 26' You should have received a copy of the GNU Lesser General Public License 27' version 3 along with OpenOffice.org. If not, see 28' <http://www.openoffice.org/license.html> 29' for a copy of the LGPLv3 License. 30' 31'************************************************************************* 32***** 33'************************************************************************* 34 35 36 37' Be sure that all variables are dimensioned: 38option explicit 39 40'************************************************************************* 41' This Interface/Service test depends on the following GLOBAL variables, 42' which must be specified in the object creation: 43 44' - Global oPageStyle As Object 45 46'************************************************************************* 47 48 49 50 51 52Sub RunTest() 53 54'************************************************************************* 55' INTERFACE: 56' com.sun.star.text.XTextColumns 57'************************************************************************* 58On Error Goto ErrHndl 59 Dim bOK As Boolean 60 61 Dim nCount As Integer 62 Dim aColumns As Variant 63 Dim RightCol As Variant 64 Dim LeftCol As Variant 65 Dim nRefValue As Long 66 67 nCount = 2 68 69 Test.StartMethod("setColumnCount()") 70 bOK = true 71 oObj.setColumnCount(nCount) 72 Test.MethodTested("setColumnCount()", bOK) 73 74 Test.StartMethod("getColumns()") 75 bOK = true 76 aColumns = oObj.Columns 77 bOK = bOK AND NOT isNull(aColumns) 78 Test.MethodTested("getColumns()", bOK) 79 80 LeftCol = aColumns(0) 81 RightCol = aColumns(1) 82 RightCol.Width = 10000 : RightCol.RightMargin = 2000 83 LeftCol.Width = 15000 : LeftCol.LeftMargin = 5000 84 85 aColumns(0) = LeftCol 86 aColumns(1) = RightCol 87 88 oObj.setColumns(aColumns()) 89 90 ' initialize the pagestyle with the new values 91 oPageStyle.TextColumns = oObj 92 93 ' check if ColumnsCount was set successfull 94 Test.StartMethod("getColumnCount()") 95 bOK = true 96 bOK = bOK AND (nCount = oPageStyle.TextColumns.ColumnCount) 97 Test.MethodTested("getColumnCount()", bOK) 98 99 Test.StartMethod("getReferenceValue()") 100 bOK = true 101 nRefValue = oObj.getReferenceValue() 102 bOK = bOK AND (nRefValue = 25000) 103 Test.MethodTested("getReferenceValue()", bOK) 104 105 Test.StartMethod("setColumns()") 106 bOK = true 107 RightCol.Width = 15000 108 aColumns(1) = RightCol 109 oObj.setColumns(aColumns()) 110 oPageStyle.TextColumns = oObj 111 bOK = bOK AND (oPageStyle.TextColumns.ReferenceValue = 30000) 112 Test.MethodTested("setColumns()", bOK) 113 114Exit Sub 115ErrHndl: 116 Test.Exception() 117 bOK = false 118 resume next 119End Sub 120</script:module> 121