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="svx_SvxShapeCircle" 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' REQUIRED VARIABLES for interface/service tests:
42
43' Requiered for  com.sun.star.lang.XComponent
44 Global oComponentInstance As Object ' it will be disposed
45
46' Requiered for  com.sun.star.drawing.XShapeDescriptor
47 Global cShapeType As String
48
49' Requiered for  com.sun.star.text.XText
50 Global oInstance As Object
51
52
53Sub CreateObj()
54
55'*************************************************************************
56' COMPONENT:
57' svx.SvxShapeCircle
58'*************************************************************************
59On Error Goto ErrHndl
60
61    Dim bOK As Boolean
62    Dim oDrawPage As Object, oShape As Object
63
64    bOK = true
65
66    oDoc = utils.loadTestDocument("SvxShape.sxd")
67
68    oDrawPage = oDoc.DrawPages(0)
69
70    oShape = CreateShape(5000, 5000, 3000, 3000, "EllipseShape", oDoc)
71    oDrawPage.Add(oShape)
72
73    oShape.setPropertyValue("CircleKind", com.sun.star.drawing.CircleKind.FULL)
74
75    oObj = oShape
76
77    cShapeType = "com.sun.star.drawing.EllipseShape"
78
79    oComponentInstance = oDrawPage.getByIndex(1)
80
81    oInstance = oDoc.createInstance("com.sun.star.text.TextField.DateTime")
82
83Exit Sub
84ErrHndl:
85    Test.Exception()
86End Sub
87
88Function CreateShape(x As Integer, y As Integer, width As Integer, height As Integer, kind As String, doc As Object)
89    Dim oShape As Object
90    Dim pos As new com.sun.star.awt.Point
91    Dim size As new com.sun.star.awt.Size
92
93    oShape = doc.createInstance("com.sun.star.drawing." + kind)
94    pos.X = x
95    pos.Y = y
96    oShape.setPosition(pos)
97    size.Width = width
98    size.Height = height
99    oShape.setSize(size)
100
101    CreateShape = oShape
102End Function
103</script:module>
104