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="sc_ScPageObj" script:language="StarBasic">
4
5'*************************************************************************
6'
7' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
8'
9' Copyright 2000, 2010 Oracle and/or its affiliates.
10'
11' OpenOffice.org - a multi-platform office productivity suite
12'
13' This file is part of OpenOffice.org.
14'
15' OpenOffice.org is free software: you can redistribute it and/or modify
16' it under the terms of the GNU Lesser General Public License version 3
17' only, as published by the Free Software Foundation.
18'
19' OpenOffice.org is distributed in the hope that it will be useful,
20' but WITHOUT ANY WARRANTY; without even the implied warranty of
21' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22' GNU Lesser General Public License version 3 for more details
23' (a copy is included in the LICENSE file that accompanied this code).
24'
25' You should have received a copy of the GNU Lesser General Public License
26' version 3 along with OpenOffice.org.  If not, see
27' <http://www.openoffice.org/license.html>
28' for a copy of the LGPLv3 License.
29'
30'*************************************************************************
31'*************************************************************************
32
33
34
35' Be sure that all variables are dimensioned:
36option explicit
37
38
39' REQUIRED VARIABLES for interface/service tests:
40
41' "com::sun::star::drawing::XShapes" needs the following Global variables:
42Global oXShapeInstance As Object
43
44' "com::sun::star::drawing::XShapeGrouper" needs the following Global variables:
45Global oGrouperCollection As Object
46
47
48Sub CreateObj()
49
50'*************************************************************************
51' COMPONENT:
52' sc.ScPageObj
53'*************************************************************************
54On Error Goto ErrHndl
55
56    Dim bOK As Boolean
57	Dim oDP as Object
58    bOK = true
59
60    oDoc = utils.createDocument("scalc", cObjectName)
61    oGrouperCollection = createUNOService("com.sun.star.drawing.ShapeCollection")
62
63    oDP = oDoc.getDrawPages()
64
65	oDP.insertNewByIndex(0)
66	oDP.insertNewByIndex(1)
67
68	oObj = oDP.getByIndex(0)
69	addShape(oObj,1)
70	addShape(oObj,2)
71	addShape(oObj,3)
72	addShape(oObj,4)
73
74    oXShapeInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
75    oGrouperCollection.Add(oObj.getByIndex(2))
76    oGrouperCollection.Add(oObj.getByIndex(3))
77
78Exit Sub
79ErrHndl:
80    Test.Exception()
81End Sub
82
83Function addShape(oPage as Object, no as Integer) As Object
84On Error Goto ErrHndl
85    Dim aPoint As New com.sun.star.awt.Point
86    Dim aSize As New com.sun.star.awt.Size
87    Dim oShape As Object
88    Dim servNames As Variant
89
90    aPoint.x = 1000 * no
91    aPoint.y = 1000 * no
92    aSize.Width = 2000
93    aSize.Height = 1000
94    oShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
95    oShape.Size = aSize
96    oShape.Position = aPoint
97
98    oPage.add(oShape)
99
100    addShapeToDrawDoc() = oShape
101Exit Function
102ErrHndl:
103	Test.Exception()
104End Function
105
106</script:module>
107