1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_XTextColumns" script:language="StarBasic">
4cdf0e10cSrcweir
5cdf0e10cSrcweir
6cdf0e10cSrcweir'*************************************************************************
7cdf0e10cSrcweir'
8f94e042dSAndrew Rist'  Licensed to the Apache Software Foundation (ASF) under one
9f94e042dSAndrew Rist'  or more contributor license agreements.  See the NOTICE file
10f94e042dSAndrew Rist'  distributed with this work for additional information
11f94e042dSAndrew Rist'  regarding copyright ownership.  The ASF licenses this file
12f94e042dSAndrew Rist'  to you under the Apache License, Version 2.0 (the
13f94e042dSAndrew Rist'  "License"); you may not use this file except in compliance
14f94e042dSAndrew Rist'  with the License.  You may obtain a copy of the License at
15f94e042dSAndrew Rist'
16f94e042dSAndrew Rist'    http://www.apache.org/licenses/LICENSE-2.0
17f94e042dSAndrew Rist'
18f94e042dSAndrew Rist'  Unless required by applicable law or agreed to in writing,
19f94e042dSAndrew Rist'  software distributed under the License is distributed on an
20f94e042dSAndrew Rist'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21f94e042dSAndrew Rist'  KIND, either express or implied.  See the License for the
22f94e042dSAndrew Rist'  specific language governing permissions and limitations
23f94e042dSAndrew Rist'  under the License.
24cdf0e10cSrcweir'
25cdf0e10cSrcweir'*************************************************************************
26cdf0e10cSrcweir
27cdf0e10cSrcweir
28cdf0e10cSrcweir
29f94e042dSAndrew Rist
30f94e042dSAndrew Rist
31cdf0e10cSrcweir' Be sure that all variables are dimensioned:
32cdf0e10cSrcweiroption explicit
33cdf0e10cSrcweir
34cdf0e10cSrcweir'*************************************************************************
35cdf0e10cSrcweir' This Interface/Service test depends on the following GLOBAL variables,
36cdf0e10cSrcweir' which must be specified in the object creation:
37cdf0e10cSrcweir
38cdf0e10cSrcweir'     - Global oPageStyle As Object
39cdf0e10cSrcweir
40cdf0e10cSrcweir'*************************************************************************
41cdf0e10cSrcweir
42cdf0e10cSrcweir
43cdf0e10cSrcweir
44cdf0e10cSrcweir
45cdf0e10cSrcweir
46cdf0e10cSrcweirSub RunTest()
47cdf0e10cSrcweir
48cdf0e10cSrcweir'*************************************************************************
49cdf0e10cSrcweir' INTERFACE:
50cdf0e10cSrcweir' com.sun.star.text.XTextColumns
51cdf0e10cSrcweir'*************************************************************************
52cdf0e10cSrcweirOn Error Goto ErrHndl
53cdf0e10cSrcweir    Dim bOK As Boolean
54cdf0e10cSrcweir
55cdf0e10cSrcweir    Dim nCount As Integer
56cdf0e10cSrcweir    Dim aColumns As Variant
57cdf0e10cSrcweir    Dim RightCol As Variant
58cdf0e10cSrcweir    Dim LeftCol As Variant
59cdf0e10cSrcweir    Dim nRefValue As Long
60cdf0e10cSrcweir
61cdf0e10cSrcweir    nCount = 2
62cdf0e10cSrcweir
63cdf0e10cSrcweir    Test.StartMethod("setColumnCount()")
64cdf0e10cSrcweir    bOK = true
65cdf0e10cSrcweir    oObj.setColumnCount(nCount)
66cdf0e10cSrcweir    Test.MethodTested("setColumnCount()", bOK)
67cdf0e10cSrcweir
68cdf0e10cSrcweir    Test.StartMethod("getColumns()")
69cdf0e10cSrcweir    bOK = true
70cdf0e10cSrcweir    aColumns = oObj.Columns
71cdf0e10cSrcweir    bOK = bOK AND NOT isNull(aColumns)
72cdf0e10cSrcweir    Test.MethodTested("getColumns()", bOK)
73cdf0e10cSrcweir
74cdf0e10cSrcweir    LeftCol = aColumns(0)
75cdf0e10cSrcweir    RightCol = aColumns(1)
76cdf0e10cSrcweir    RightCol.Width = 10000 : RightCol.RightMargin = 2000
77cdf0e10cSrcweir    LeftCol.Width = 15000  : LeftCol.LeftMargin = 5000
78cdf0e10cSrcweir
79cdf0e10cSrcweir    aColumns(0) = LeftCol
80cdf0e10cSrcweir    aColumns(1) = RightCol
81cdf0e10cSrcweir
82cdf0e10cSrcweir    oObj.setColumns(aColumns())
83cdf0e10cSrcweir
84cdf0e10cSrcweir    ' initialize the pagestyle with the new values
85cdf0e10cSrcweir    oPageStyle.TextColumns = oObj
86cdf0e10cSrcweir
87*bb6af6bcSPedro Giffuni    ' check if ColumnsCount was set successful
88cdf0e10cSrcweir    Test.StartMethod("getColumnCount()")
89cdf0e10cSrcweir    bOK = true
90cdf0e10cSrcweir    bOK = bOK AND (nCount = oPageStyle.TextColumns.ColumnCount)
91cdf0e10cSrcweir    Test.MethodTested("getColumnCount()", bOK)
92cdf0e10cSrcweir
93cdf0e10cSrcweir    Test.StartMethod("getReferenceValue()")
94cdf0e10cSrcweir    bOK = true
95cdf0e10cSrcweir    nRefValue = oObj.getReferenceValue()
96cdf0e10cSrcweir    bOK = bOK AND (nRefValue = 25000)
97cdf0e10cSrcweir    Test.MethodTested("getReferenceValue()", bOK)
98cdf0e10cSrcweir
99cdf0e10cSrcweir    Test.StartMethod("setColumns()")
100cdf0e10cSrcweir    bOK = true
101cdf0e10cSrcweir    RightCol.Width = 15000
102cdf0e10cSrcweir    aColumns(1) = RightCol
103cdf0e10cSrcweir    oObj.setColumns(aColumns())
104cdf0e10cSrcweir    oPageStyle.TextColumns = oObj
105cdf0e10cSrcweir    bOK = bOK AND (oPageStyle.TextColumns.ReferenceValue = 30000)
106cdf0e10cSrcweir    Test.MethodTested("setColumns()", bOK)
107cdf0e10cSrcweir
108cdf0e10cSrcweirExit Sub
109cdf0e10cSrcweirErrHndl:
110cdf0e10cSrcweir    Test.Exception()
111cdf0e10cSrcweir    bOK = false
112cdf0e10cSrcweir    resume next
113cdf0e10cSrcweirEnd Sub
114cdf0e10cSrcweir</script:module>
115