1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_XRelativeTextContentInsert" script:language="StarBasic"> 4cdf0e10cSrcweir 5cdf0e10cSrcweir 6cdf0e10cSrcweir'************************************************************************* 7cdf0e10cSrcweir' 8f94e042dSAndrew Rist' Licensed to the Apache Software Foundation (ASF) under one 9f94e042dSAndrew Rist' or more contributor license agreements. See the NOTICE file 10f94e042dSAndrew Rist' distributed with this work for additional information 11f94e042dSAndrew Rist' regarding copyright ownership. The ASF licenses this file 12f94e042dSAndrew Rist' to you under the Apache License, Version 2.0 (the 13f94e042dSAndrew Rist' "License"); you may not use this file except in compliance 14f94e042dSAndrew Rist' with the License. You may obtain a copy of the License at 15f94e042dSAndrew Rist' 16f94e042dSAndrew Rist' http://www.apache.org/licenses/LICENSE-2.0 17f94e042dSAndrew Rist' 18f94e042dSAndrew Rist' Unless required by applicable law or agreed to in writing, 19f94e042dSAndrew Rist' software distributed under the License is distributed on an 20f94e042dSAndrew Rist' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21f94e042dSAndrew Rist' KIND, either express or implied. See the License for the 22f94e042dSAndrew Rist' specific language governing permissions and limitations 23f94e042dSAndrew Rist' under the License. 24cdf0e10cSrcweir' 25cdf0e10cSrcweir'************************************************************************* 26cdf0e10cSrcweir 27cdf0e10cSrcweir 28cdf0e10cSrcweir 29cdf0e10cSrcweir 30cdf0e10cSrcweir 31f94e042dSAndrew Rist 32f94e042dSAndrew Rist 33cdf0e10cSrcweirSub RunTest() 34cdf0e10cSrcweir 35cdf0e10cSrcweir'************************************************************************* 36cdf0e10cSrcweir' INTERFACE: 37cdf0e10cSrcweir' com.sun.star.text.XRelativeTextContentInsert 38cdf0e10cSrcweir'************************************************************************* 39cdf0e10cSrcweirOn Error Goto ErrHndl 40cdf0e10cSrcweir Dim bOK As Boolean 41cdf0e10cSrcweir Dim oEnum As Object 42cdf0e10cSrcweir Dim oCursor As Object 43cdf0e10cSrcweir Dim oContent1 As Object 44cdf0e10cSrcweir Dim oContent2 As Object 45cdf0e10cSrcweir Dim bFound As Boolean 46cdf0e10cSrcweir Dim oEl As Object 47cdf0e10cSrcweir 48cdf0e10cSrcweir Test.StartMethod("insertTextContentBefore()") 49cdf0e10cSrcweir bOK = true 50cdf0e10cSrcweir oCursor = oObj.createTextCursor() 51cdf0e10cSrcweir if (isNULL(oCursor)) then Out.Log("Can't create text cursor!") 52cdf0e10cSrcweir 53*bb6af6bcSPedro Giffuni Out.Log("First, mark all existent entries with 0") 54cdf0e10cSrcweir 55cdf0e10cSrcweir oEnum = oObj.createEnumeration() 56cdf0e10cSrcweir while (oEnum.hasMoreElements()) 57cdf0e10cSrcweir oEl = oEnum.NextElement() 58cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 59cdf0e10cSrcweir oEl.String = "0" 60cdf0e10cSrcweir end if 61cdf0e10cSrcweir wend 62cdf0e10cSrcweir 63cdf0e10cSrcweir Out.Log("Inserting TextSection...") 64cdf0e10cSrcweir oContent1 = oDoc.createInstance("com.sun.star.text.TextSection") 65cdf0e10cSrcweir oObj.insertTextContent(oCursor, oContent1, false) 66cdf0e10cSrcweir 67cdf0e10cSrcweir oEnum = oObj.createEnumeration() 68cdf0e10cSrcweir while (oEnum.hasMoreElements()) 69cdf0e10cSrcweir oEl = oEnum.NextElement() 70cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 71cdf0e10cSrcweir if (oEl.String = "") then oEl.String = "1" 72cdf0e10cSrcweir end if 73cdf0e10cSrcweir wend 74cdf0e10cSrcweir 75cdf0e10cSrcweir Out.Log("Mark new entry with 1") 76cdf0e10cSrcweir 77cdf0e10cSrcweir oContent2 = oDoc.createInstance("com.sun.star.text.Paragraph") 78cdf0e10cSrcweir oObj.insertTextContentBefore(oContent2, oContent1) 79cdf0e10cSrcweir 80cdf0e10cSrcweir oEnum = oObj.createEnumeration() 81cdf0e10cSrcweir while (oEnum.hasMoreElements()) 82cdf0e10cSrcweir oEl = oEnum.NextElement() 83cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 84cdf0e10cSrcweir if (oEl.String = "") then oEl.String = "2" 85cdf0e10cSrcweir end if 86cdf0e10cSrcweir wend 87cdf0e10cSrcweir 88cdf0e10cSrcweir Out.Log("Mark new entry with 2") 89cdf0e10cSrcweir 90cdf0e10cSrcweir Out.Log("Testing that content was inserted BEFORE. I.e. Label 2 before label 1") 91cdf0e10cSrcweir 92cdf0e10cSrcweir oEnum = oObj.createEnumeration() 93cdf0e10cSrcweir bFound = false 94cdf0e10cSrcweir while (oEnum.hasMoreElements() AND NOT bFound) 95cdf0e10cSrcweir oEl = oEnum.NextElement() 96cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 97cdf0e10cSrcweir bFound = oEl.String = "2" 98cdf0e10cSrcweir end if 99cdf0e10cSrcweir wend 100cdf0e10cSrcweir 101cdf0e10cSrcweir oEl = oEnum.NextElement() 102cdf0e10cSrcweir bOK = bOK AND oEl.String = "1" 103cdf0e10cSrcweir 104cdf0e10cSrcweir Test.MethodTested("insertTextContentBefore()", bOK) 105cdf0e10cSrcweir 106cdf0e10cSrcweir 107cdf0e10cSrcweir Test.StartMethod("insertTextContentAfter()") 108cdf0e10cSrcweir bOK = true 109cdf0e10cSrcweir 110cdf0e10cSrcweir Out.Log("Inserting TextSection...") 111cdf0e10cSrcweir oContent1 = oDoc.createInstance("com.sun.star.text.TextSection") 112cdf0e10cSrcweir oObj.insertTextContent(oCursor, oContent1, false) 113cdf0e10cSrcweir 114cdf0e10cSrcweir oEnum = oObj.createEnumeration() 115cdf0e10cSrcweir while (oEnum.hasMoreElements()) 116cdf0e10cSrcweir oEl = oEnum.NextElement() 117cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 118cdf0e10cSrcweir if (oEl.String = "") then oEl.String = "3" 119cdf0e10cSrcweir end if 120cdf0e10cSrcweir wend 121cdf0e10cSrcweir 122cdf0e10cSrcweir Out.Log("Mark new entry with 3") 123cdf0e10cSrcweir 124cdf0e10cSrcweir oContent2 = oDoc.createInstance("com.sun.star.text.Paragraph") 125cdf0e10cSrcweir oObj.insertTextContentAfter(oContent2, oContent1) 126cdf0e10cSrcweir 127cdf0e10cSrcweir oEnum = oObj.createEnumeration() 128cdf0e10cSrcweir while (oEnum.hasMoreElements()) 129cdf0e10cSrcweir oEl = oEnum.NextElement() 130cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 131cdf0e10cSrcweir if (oEl.String = "") then oEl.String = "4" 132cdf0e10cSrcweir end if 133cdf0e10cSrcweir wend 134cdf0e10cSrcweir 135cdf0e10cSrcweir Out.Log("Mark new entry with 4") 136cdf0e10cSrcweir 137cdf0e10cSrcweir Out.Log("Testing that content was inserted AFTRER. I.e. Label 4 after label 3") 138cdf0e10cSrcweir 139cdf0e10cSrcweir oEnum = oObj.createEnumeration() 140cdf0e10cSrcweir bFound = false 141cdf0e10cSrcweir while (oEnum.hasMoreElements() AND NOT bFound) 142cdf0e10cSrcweir oEl = oEnum.NextElement() 143cdf0e10cSrcweir if (oEl.supportsService("com.sun.star.text.Paragraph")) then 144cdf0e10cSrcweir bFound = oEl.String = "3" 145cdf0e10cSrcweir end if 146cdf0e10cSrcweir wend 147cdf0e10cSrcweir 148cdf0e10cSrcweir oEl = oEnum.NextElement() 149cdf0e10cSrcweir bOK = bOK AND oEl.String = "4" 150cdf0e10cSrcweir 151cdf0e10cSrcweir Test.MethodTested("insertTextContentAfter()", bOK) 152cdf0e10cSrcweir 153cdf0e10cSrcweirExit Sub 154cdf0e10cSrcweirErrHndl: 155cdf0e10cSrcweir Test.Exception() 156cdf0e10cSrcweir bOK = false 157cdf0e10cSrcweir resume next 158cdf0e10cSrcweirEnd Sub 159cdf0e10cSrcweir</script:module> 160