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