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