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_XDefaultNumberingProvider" 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
38Sub RunTest()
39
40'*************************************************************************
41' INTERFACE:
42' com.sun.star.text.XDefaultNumberingProvider
43'*************************************************************************
44On Error Goto ErrHndl
45    Dim bOK As Boolean
46    Dim oLocale As New com.sun.star.lang.Locale
47    Dim aIndAcc As Object
48    Dim aPropVals As Object
49    Dim cr As Object
50
51    oLocale.Country = "US"
52    oLocale.Language = "en"
53
54    Test.StartMethod("getDefaultOutlineNumberings()")
55    bOK = true
56    aIndAcc = oObj.getDefaultOutlineNumberings(oLocale)
57    if (ubound(aIndAcc) &gt;= 0) then
58        Out.Log("Returned sequence has " &amp; ubound(aIndAcc) + 1 &amp; " elements.")
59        bOK = bOK AND hasUNOInterfaces(aIndAcc(0), "com.sun.star.container.XIndexAccess")
60    else
61        Out.Log("Returned sequence is EMPTY.")
62        bOK = false
63    end if
64    Test.MethodTested("getDefaultOutlineNumberings()", bOK)
65
66    Test.StartMethod("getDefaultContinuousNumberingLevels()")
67    bOK = true
68    aPropVals = oObj.getDefaultContinuousNumberingLevels(oLocale)
69    if (ubound(aPropVals) &gt;= 0) then
70        Out.Log("Returned sequence has " &amp; ubound(aPropVals) + 1 &amp; " elements.")
71        cr = createUNOService("com.sun.star.reflection.CoreReflection")
72        bOK = bOK AND (cr.getType(aPropVals(0)).Name = "[]com.sun.star.beans.PropertyValue")
73'        OutDefaultContinuousNumberingLevels(aPropVals)
74    else
75        Out.Log("Returned sequence is EMPTY.")
76        bOK = false
77    end if
78    Test.MethodTested("getDefaultContinuousNumberingLevels()", bOK)
79
80Exit Sub
81ErrHndl:
82    Test.Exception()
83    bOK = false
84    resume next
85End Sub
86Sub OutDefaultOutlineNumberings(aIndAcc As Variant)
87    Dim i As Integer
88    Dim k As Integer
89    Dim l As Integer
90    Dim ia As Object
91    Dim props As Variant
92
93    for k = 0 to ubound(aIndAcc)
94        Out.Log("" &amp; k &amp; ")")
95        ia = aIndAcc(k)
96        for l = 0 to ia.Count() - 1
97            Out.Log("    " &amp; l &amp; ":")
98            props = ia.getByIndex(l)
99            for i = 0 to ubound(props)
100                Out.Log("        - " &amp; props(i).Name &amp; " = " &amp; props(i).Value)
101            next i
102        next l
103    next k
104End Sub
105
106Sub OutDefaultContinuousNumberingLevels(aPropVals As Variant)
107    Dim i As Integer
108    Dim k As Integer
109    Dim props As Variant
110
111    for i = 0 to ubound(aPropVals)
112        Out.Log("" &amp; i &amp; ")")
113        props = aPropVals(i)
114        for k = 0 to ubound(props)
115            Out.Log("   - " &amp; props(k).Name &amp; " = " &amp; props(k).Value)
116        next k
117    next i
118End Sub
119</script:module>
120