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="sw_SwXTextDocument" 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' Be sure that all variables are dimensioned:
37option explicit
38
39
40' REQUIRED VARIABLES for interface/service tests:
41
42' Required for com.sun.star.util.XSearchable:
43' Required for com.sun.star.util.XReplaceable:
44Global cStringToSearch As String ' should appears more than once
45Global nSearchedEntriesAmount As Integer
46
47' Required for com.sun.star.lang.XComponent:
48Global oComponentInstance As Object ' it will be disposed
49
50' Required for com.sun.star.frame.XModel:
51Global oXModelController As Object
52Global oXModelSel As Object
53Global oXModelToSel As Object
54
55
56Sub CreateObj()
57
58'*************************************************************************
59' COMPONENT:
60' sw.SwXTextDocument
61'*************************************************************************
62On Error Goto ErrHndl
63    Dim oControllerDoc As Object
64    Dim oFrame As Object
65    Dim oCursor As Object
66
67    oDoc = utils.createDocument("swriter", cObjectName)
68    oControllerDoc = utils.createDocument("swriter", cObjectName + "1")
69    oComponentInstance = utils.createDocument("swriter", cObjectName + "2")
70
71    oObj = oDoc
72
73    oObj.Text.String = "This string comes from SwXTextDocument, and contains three 'co' entries. This 'Co' shouldn't be found!"
74    cStringToSearch = "co"
75    nSearchedEntriesAmount = 3
76
77    oFrame = oDoc.createInstance("com.sun.star.text.TextFrame")
78    oCursor = oDoc.Text.createTextCursor()
79    oDoc.Text.InsertTextContent(oCursor, oFrame, false)
80
81    oXModelToSel = oFrame
82    oXModelController = oControllerDoc.getCurrentController()
83    oXModelSel = oDoc.getCurrentController()
84
85Exit Sub
86ErrHndl:
87    Test.Exception()
88End Sub
89
90Sub DisposeObj()
91    if NOT isNULL(oComponentInstance) then oComponentInstance.dispose()
92
93    ' To successfully dispose oControllerDoc re-open it first.
94    Dim oControllerDoc As Object
95    oControllerDoc = utils.createDocument("swriter", cObjectName + "1")
96    oControllerDoc.dispose()
97End Sub
98</script:module>
99