diff options
Diffstat (limited to 'qadevOOo/tests/basic/mod/sw')
180 files changed, 7931 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/script.xlb new file mode 100644 index 000000000000..2e29e2f9ec02 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleDocumentPageView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleDocumentPageView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/sw_SwAccessibleDocumentPageView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/sw_SwAccessibleDocumentPageView.xba new file mode 100644 index 000000000000..307ec2ae244e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentPageView/sw_SwAccessibleDocumentPageView.xba @@ -0,0 +1,110 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleDocumentPageView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global prevButton As Object +Global nextButton As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleDocumentPageView +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, oText As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, cursor As Object + Dim i As Integer, oWin As Object + + oDoc = utils.createDocument("swriter",cObjectName) + oText = oDoc.getText() + cursor = oText.createTextCursor() + + 'inserting some lines + for i = 0 to 30 + oText.insertString(cursor, "Paragraph Number: " + i, false) + oText.insertString(cursor,_ + " The quick brown fox jumps over the lazy Dog: SwAccessibleDocumentPageView",_ + false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + oText.insertString(cursor,_ + "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG: SwAccessibleDocumentPageView",_ + false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.LINE_BREAK, false) + next i + + xController = oDoc.getCurrentController() + + 'switch to PreviewMode + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + wait(500) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, DimArray()) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.DOCUMENT) + Out.Log("Implementation Name: "+oObj.getImplementationName()) + prevButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Previous Page") + nextButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Next Page") + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + End If +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + prevButton.doAccessibleAction(0) + wait(500) + nextButton.doAccessibleAction(0) + wait(500) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/script.xlb new file mode 100644 index 000000000000..04d5f4164cf9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleDocumentView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleDocumentView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/sw_SwAccessibleDocumentView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/sw_SwAccessibleDocumentView.xba new file mode 100644 index 000000000000..0125e5245153 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleDocumentView/sw_SwAccessibleDocumentView.xba @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleDocumentView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oScrollBar As Object +Global multiSelection As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleDocumentView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim xController As Object + xController = oDoc.getCurrentController() + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.DOCUMENT) + oScrollBar = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.SCROLL_BAR) + + multiSelection = false + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oScrollBar.setCurrentValue(oScrollBar.getMaximumValue()) + oScrollBar.setCurrentValue(oScrollBar.getMinimumValue()) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/script.xlb new file mode 100644 index 000000000000..ca9a17cb761e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleEndnoteView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleEndnoteView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/sw_SwAccessibleEndnoteView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/sw_SwAccessibleEndnoteView.xba new file mode 100644 index 000000000000..eae9937b4b6c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleEndnoteView/sw_SwAccessibleEndnoteView.xba @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleEndnoteView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleEndnoteView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oEndnote As Object + oEndnote = oDoc.createInstance("com.sun.star.text.Endnote") + + Dim oText As Object + oText = oDoc.getText() + + Dim oCursor As Object + oCursor = oText.createTextCursor() + + oText.insertTextContent(oCursor, oEndnote, false) + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + oViewSettings.ZoomValue = 10 + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.END_NOTE) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 10 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/script.xlb new file mode 100644 index 000000000000..cda1e969a618 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleFooterView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleFooterView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/sw_SwAccessibleFooterView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/sw_SwAccessibleFooterView.xba new file mode 100644 index 000000000000..6764d2574ab7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleFooterView/sw_SwAccessibleFooterView.xba @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleFooterView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleFooterView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oStyleFamilies As Object + oStyleFamilies = oDoc.getStyleFamilies() + Dim oStyleFam As Object + oStyleFam = oStyleFamilies.getByName("PageStyles") + Dim oStyle As Object + oStyle = oStyleFam.getByName("Standard") + oStyle.FooterIsOn = true + + Dim xController As Object + xController = oDoc.getCurrentController() + + Dim oViewSettings As Object + oViewSettings = xController.getViewSettings() + oViewSettings.ZoomValue = 10 + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.FOOTER) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/script.xlb new file mode 100644 index 000000000000..e484bbbc6985 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleFootnoteView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleFootnoteView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/sw_SwAccessibleFootnoteView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/sw_SwAccessibleFootnoteView.xba new file mode 100644 index 000000000000..085a28a21625 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleFootnoteView/sw_SwAccessibleFootnoteView.xba @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleFootnoteView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleFootnoteView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oFootnote As Object + oFootnote = oDoc.createInstance("com.sun.star.text.Footnote") + + Dim oText As Object + oText = oDoc.getText() + + Dim oCursor As Object + oCursor = oText.createTextCursor() + + oText.insertTextContent(oCursor, oFootnote, false) + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + oViewSettings.ZoomValue = 10 + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.FOOTNOTE) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 10 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/script.xlb new file mode 100644 index 000000000000..f327ecc79c2d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleHeaderView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleHeaderView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/sw_SwAccessibleHeaderView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/sw_SwAccessibleHeaderView.xba new file mode 100644 index 000000000000..42deb88c92a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleHeaderView/sw_SwAccessibleHeaderView.xba @@ -0,0 +1,80 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleHeaderView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oStyle As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleHeaderView +'************************************************************************* +On Error Goto ErrHndl + Dim oStyleFamilies As Object, oStyleFam As Object + Dim oWin As Object, xRoot As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oStyleFamilies = oDoc.getStyleFamilies() + oStyleFam = oStyleFamilies.getByName("PageStyles") + oStyle = oStyleFam.getByName("Standard") + oStyle.HeaderIsOn = true + + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.HEADER) + + Out.Log("Implementation Name: "+oObj.getImplementationName()) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + Dim oldValue As Integer + oldValue = oStyle.HeaderLeftMargin + oStyle.HeaderLeftMargin = oldValue + 1 + wait(500) + oStyle.HeaderLeftMargin = oldValue - 1 + wait(500) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/script.xlb new file mode 100644 index 000000000000..2e841c7713e8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessiblePageView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessiblePageView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/sw_SwAccessiblePageView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/sw_SwAccessiblePageView.xba new file mode 100644 index 000000000000..bb1bf37a602b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessiblePageView/sw_SwAccessiblePageView.xba @@ -0,0 +1,114 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessiblePageView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global prevButton As Object +Global nextButton As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessiblePageView +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, oWin As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object + Dim oText As Object, cursor As Object + Dim i As Integer + + oDoc = utils.createDocument("swriter",cObjectName) + oText = oDoc.getText() + cursor = oText.createTextCursor() + + 'inserting some lines + for i = 0 to 30 + oText.insertString(cursor, "Paragraph Number: " + i, false) + oText.insertString(cursor,_ + " The quick brown fox jumps over the lazy Dog: SwAccessibleDocumentPageView",_ + false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + oText.insertString(cursor,_ + "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG: SwAccessibleDocumentPageView",_ + false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + oText.insertControlCharacter(cursor,_ + com.sun.star.text.ControlCharacter.LINE_BREAK, false) + next i + wait(1000) + + xController = oDoc.getCurrentController() + + 'switch to PreviewMode + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + wait(500) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, DimArray()) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + 'utils.at_printAccessibleTree(xRoot) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PANEL,"Page") + Out.Log("Implementation Name: "+oObj.getImplementationName()) + prevButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Previous Page") + nextButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Next Page") + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + prevButton.doAccessibleAction(0) + wait(500) + nextButton.doAccessibleAction(0) + wait(500) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/script.xlb new file mode 100644 index 000000000000..2e709bf8c02f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleParagraphView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleParagraphView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/sw_SwAccessibleParagraphView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/sw_SwAccessibleParagraphView.xba new file mode 100644 index 000000000000..84855feb6eb3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleParagraphView/sw_SwAccessibleParagraphView.xba @@ -0,0 +1,85 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleParagraphView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oText As Object +Global hasChangeableAttrs As Boolean +Global multiSelection As Boolean +Global accText As String +Global readOnly as Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleParagraphView +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object + + oDoc = utils.createDocument("swriter",cObjectName) + oText = oDoc.getText() + oText.setString("Text for testing of the interface XAccessibleText") + + xController = oDoc.getCurrentController() + + Dim oWin As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.PARAGRAPH) + hasChangeableAttrs = true + accText = oObj.getText() + multiSelection = true + readOnly = false + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + Dim old As String + old = oText.getString() + oText.setString("Just a line") + oText.setString(old) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/script.xlb new file mode 100644 index 000000000000..e97f49aa442b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleTableCellView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleTableCellView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/sw_SwAccessibleTableCellView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/sw_SwAccessibleTableCellView.xba new file mode 100644 index 000000000000..a5d82d7c6e60 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableCellView/sw_SwAccessibleTableCellView.xba @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleTableCellView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global multiSelection As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleTableCellView +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object, oTable As Object + Dim oWin As Object, xRoot As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(3, 5) + oDoc.Text.insertTextContent(oCursor, oTable, false) + + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE_CELL) + Out.Log("Implementation Name: "+oObj.getImplementationName()) + multiSelection = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/script.xlb new file mode 100644 index 000000000000..545aca01dfd7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleTableView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleTableView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/sw_SwAccessibleTableView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/sw_SwAccessibleTableView.xba new file mode 100644 index 000000000000..01ac488fbfc7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTableView/sw_SwAccessibleTableView.xba @@ -0,0 +1,84 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleTableView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object +Global multiSelection As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleTableView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oCursor As Object + oCursor = oDoc.Text.createTextCursor() + + Dim oTable As Object + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(3, 5) + oDoc.Text.insertTextContent(oCursor, oTable, false) + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.TABLE) + multiSelection = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 100 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/script.xlb new file mode 100644 index 000000000000..ecb50f762d30 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleTextEmbeddedObject" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleTextEmbeddedObject"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/sw_SwAccessibleTextEmbeddedObject.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/sw_SwAccessibleTextEmbeddedObject.xba new file mode 100644 index 000000000000..fe0ed7beca97 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextEmbeddedObject/sw_SwAccessibleTextEmbeddedObject.xba @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleTextEmbeddedObject" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleTextEmbeddedObject +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.loadTestDocument("SwXTextEmbeddedObject.sxw") + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + oViewSettings.ZoomValue = 10 + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.EMBEDDED_OBJECT) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 10 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/script.xlb new file mode 100644 index 000000000000..c671f5326134 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleTextFrameView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleTextFrameView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/sw_SwAccessibleTextFrameView.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/sw_SwAccessibleTextFrameView.xba new file mode 100644 index 000000000000..bf92474bb7b8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextFrameView/sw_SwAccessibleTextFrameView.xba @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleTextFrameView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleTextFrameView +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oCursor As Object + oCursor = oDoc.Text.createTextCursor() + + Dim oTextFrame As Object + oTextFrame = oDoc.createInstance("com.sun.star.text.TextFrame") + Dim sSize As Object + sSize = createUNOStruct("com.sun.star.awt.Size") + sSize.Height = 10000 + sSize.Width = 10000 + oTextFrame.Size = sSize + oTextFrame.SizeType = 1 + oTextFrame.Name = cObjectName + oTextFrame.HoriOrient = 0 + oTextFrame.VertOrient = 1 + + oDoc.Text.insertTextContent(oCursor, oTextFrame, false) + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.TEXT_FRAME) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 10 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/script.xlb b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/script.xlb new file mode 100644 index 000000000000..72a2af04a120 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwAccessibleTextGraphicObject" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwAccessibleTextGraphicObject"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/sw_SwAccessibleTextGraphicObject.xba b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/sw_SwAccessibleTextGraphicObject.xba new file mode 100644 index 000000000000..bbf7e306aea8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwAccessibleTextGraphicObject/sw_SwAccessibleTextGraphicObject.xba @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwAccessibleTextGraphicObject" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oViewSettings As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwAccessibleTextGraphicObject +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + + Dim oGraphObj As Object + oGraphObj = oDoc.createInstance("com.sun.star.text.GraphicObject") + + Dim oText As Object + oText = oDoc.getText() + + Dim oCursor As Object + oCursor = oText.createTextCursor() + + oText.insertTextContent(oCursor, oGraphObj, true) + + Dim xController As Object + xController = oDoc.getCurrentController() + + oViewSettings = xController.getViewSettings() + oViewSettings.ZoomValue = 10 + + Dim oWin As Object + Dim xRoot As Object + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.GRAPHIC) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oViewSettings.ZoomValue = 15 + oViewSettings.ZoomValue = 10 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/script.xlb new file mode 100644 index 000000000000..a4cb3b5fb28d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXAutoTextContainer" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXAutoTextContainer"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/sw_SwXAutoTextContainer.xba b/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/sw_SwXAutoTextContainer.xba new file mode 100644 index 000000000000..cd73dac7da79 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextContainer/sw_SwXAutoTextContainer.xba @@ -0,0 +1,59 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXAutoTextContainer" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for com.sun.star.text.XAutoTextContainer +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXAutoTextContainer +'************************************************************************* +On Error Goto ErrHndl + oObj = createUNOService( "com.sun.star.text.AutoTextContainer" ) + nGlobalLong = oObj.Count +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/script.xlb new file mode 100644 index 000000000000..93c51d563ab9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXAutoTextEntry" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXAutoTextEntry"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/sw_SwXAutoTextEntry.xba b/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/sw_SwXAutoTextEntry.xba new file mode 100644 index 000000000000..decbf7e131bf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextEntry/sw_SwXAutoTextEntry.xba @@ -0,0 +1,108 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXAutoTextEntry" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for com.sun.star.text.XText +Global oCollection As Object +Global oInstance As Object +Global aAddons() + + +Sub beforeInsertTextContent() + +'************************************************************************* +' COMPONENT: +' sw.SwXAutoTextEntry +'************************************************************************* + oDoc.Text.setString("") + oObj.applyTo(oDoc.Text.createTextCursor()) +End Sub + +Sub afterInsertTextContent() + oDoc.Text.setString("") + oObj.applyTo(oDoc.Text.createTextCursor()) +End Sub + +Sub beforeRemoveTextContent() + oDoc.Text.setString("") + oObj.applyTo(oDoc.Text.createTextCursor()) +End Sub + +Sub afterRemoveTextContent() + oDoc.Text.setString("") + oObj.applyTo(oDoc.Text.createTextCursor()) +End Sub + +Global oGroup As Object + +Sub CreateObj() +On Error Goto ErrHndl + Dim oContainer As Object + Dim i As Integer + Dim oNames As Variant + + oDoc = utils.createDocument("swriter", cObjectName) + oContainer = createUNOService( "com.sun.star.text.AutoTextContainer" ) + Out.Log("Looking for not empty elements") + i = 0 + oGroup = oContainer.getByIndex(i) + while (oGroup.getCount < 1) + i = i + 1 + oGroup = oContainer.getByIndex(i) + wend + + oNames = oGroup.getElementNames() + + for i = 0 to ubound(oNames) + Out.Log("Element " + i + ": " + oNames(i)) + next i + + oObj = oGroup.getByIndex(0) + + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oCollection = oDoc.getTextTables() + + oObj.ApplyTo(oDoc.Text.createTextCursor) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/script.xlb new file mode 100644 index 000000000000..f774d8c7c062 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXAutoTextGroup" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXAutoTextGroup"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/sw_SwXAutoTextGroup.xba b/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/sw_SwXAutoTextGroup.xba new file mode 100644 index 000000000000..5cabc7055457 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXAutoTextGroup/sw_SwXAutoTextGroup.xba @@ -0,0 +1,83 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXAutoTextGroup" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong as Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXAutoTextGroup +'************************************************************************* +On Error Goto ErrHndl + Dim i As Integer + Dim oCursor As Object + Dim oCollection As Object + Dim aElementNames As Variant + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + oCollection = createUNOService("com.sun.star.text.AutoTextContainer") + + aElementNames() = oCollection.ElementNames + 'cGlobalString = aElementNames(uBound(aElementNames()) + + for i = lBound(aElementNames()) to uBound(aElementNames()) + oDoc.Text.insertString(oCursor, aElementNames(i), false ) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oCursor.gotoEnd(false) + next i + oDoc.Text.insertControlCharacter(oCursor, 0, false) + + nGlobalLong = 0 + i = 0 + 'create the object to test here + while nGlobalLong = 0 + oObj = oCollection.getByName(aElementNames(i)) + nGlobalLong = oObj.Count + i = i + 1 + wend + nGlobalLong = oObj.Count +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBodyText/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXBodyText/script.xlb new file mode 100644 index 000000000000..efe9eac6f10f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBodyText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXBodyText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXBodyText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBodyText/sw_SwXBodyText.xba b/qadevOOo/tests/basic/mod/sw/SwXBodyText/sw_SwXBodyText.xba new file mode 100644 index 000000000000..d0e548872322 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBodyText/sw_SwXBodyText.xba @@ -0,0 +1,70 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXBodyText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for com.sun.star.text.XText +Global oCollection As Object +Global oInstance As Object +Global aAddons() + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXBodyText +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oObj = oDoc.Text + + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oInstance.initialize(5, 5) + + oCollection = oDoc.TextTables + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBookmark/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXBookmark/script.xlb new file mode 100644 index 000000000000..e0293cfca595 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBookmark/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXBookmark" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXBookmark"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBookmark/sw_SwXBookmark.xba b/qadevOOo/tests/basic/mod/sw/SwXBookmark/sw_SwXBookmark.xba new file mode 100644 index 000000000000..596848ac8b15 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBookmark/sw_SwXBookmark.xba @@ -0,0 +1,104 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXBookmark" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global oComponentInstance As Object ' it will be disposed +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXBookmark +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + ' create a textcursor + oCursor = oDoc.Text.createTextCursor() + + ' check if objectcreation succeed and write to log + + + ' write some strings to document + for i = 1 to 10 + oCursor.gotoEnd(false) + + ' Hilfskruecke wegen Bug im Trim oder insertString + cTemp = Trim(Str((i)) & cText + oDoc.Text.insertString(oCursor, cTemp, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oCursor.gotoStart(false) + oCursor.gotoNextWord(false) + + ' create a Bookmark and insert it + for i = 1 to 3 + + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + ' check if objectcreation succeed and write to log + + ' set name property just for fun + oInstance.Name = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oCursor.gotoNextWord(false) + + next i + + oXTextContent = oDoc.createInstance("com.sun.star.text.Bookmark") + oXTextContentRange = oDoc.Text.createTextCursor() + + ' create test object and initialize + oCollection = oDoc.Bookmarks + oObj = oCollection.getByIndex(0) + oComponentInstance = oCollection.getByIndex(1) + cGlobalString = oCollection.getByIndex(0).Name + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBookmarks/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXBookmarks/script.xlb new file mode 100644 index 000000000000..1a1a36bf69fd --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBookmarks/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXBookmarks" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXBookmarks"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXBookmarks/sw_SwXBookmarks.xba b/qadevOOo/tests/basic/mod/sw/SwXBookmarks/sw_SwXBookmarks.xba new file mode 100644 index 000000000000..daee028206c7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXBookmarks/sw_SwXBookmarks.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXBookmarks" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXBookmarks +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + nGlobalLong = 10 + + oDoc = utils.createDocument("swriter", cObjectName) + + + ' create a textcursor + oCursor = oDoc.Text.createTextCursor() + + ' check if objectcreation succeed + + ' write some strings to document + for i = 1 to nGlobalLong + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor,Str(i) & cText,false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + ' set Cursor to the second word + oCursor.gotoStart(false) + oCursor.gotoNextWord(false) + + for i = 1 to nGlobalLong + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + ' check if objectcreation succeed and write to log + + + ' set name property + oInstance.Name = cObjectName & i + + oDoc.Text.insertTextContent(oCursor, oInstance, bOK) + cName = oInstance.Name + + oCursor.gotoNextWord(false) + + next i + + oObj = oDoc.Bookmarks + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXCell/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXCell/script.xlb new file mode 100644 index 000000000000..794972ce49e5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXCell/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXCell/sw_SwXCell.xba b/qadevOOo/tests/basic/mod/sw/SwXCell/sw_SwXCell.xba new file mode 100644 index 000000000000..b1fa8486a06e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXCell/sw_SwXCell.xba @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXCell" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global oCollection As Object +Global oInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXCell +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + oCursor = oDoc.Text.createTextCursor() + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(5,5) + + oDoc.Text.insertTextContent(oCursor, oTable, false) + oCollection = oDoc.TextTables + + oTable.getCellByName("A2").Value = nGlobalLong + oTable.getCellByName("B2").Value = nGlobalLong * 2 + oObj = oTable.getCellByName("C2") + + ' create some textcontent for insertion + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + oCollection = oDoc.Bookmarks + + oObj.setFormula("=sum <A2:B2>") + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXCellRange/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXCellRange/script.xlb new file mode 100644 index 000000000000..5324c38394d0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXCellRange/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXCellRange" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXCellRange"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXCellRange/sw_SwXCellRange.xba b/qadevOOo/tests/basic/mod/sw/SwXCellRange/sw_SwXCellRange.xba new file mode 100644 index 000000000000..b3c5df256ade --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXCellRange/sw_SwXCellRange.xba @@ -0,0 +1,77 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXCellRange" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for sheet.XCellRangeData +Global newData As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXCellRange +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim oTable As Object + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(5,5) + oDoc.Text.insertTextContent(oCursor, oTable, false) + + oObj = oTable.getCellRangeByPosition(0,0,3,4) + + 'Required for XCellRangeData + newData = Array(_ + Array(2.5, 5.0, 2.5, 5.0),_ + Array(4.0, 9.0, 2.5, 5.0),_ + Array(2.5, 5.0, 2.5, 5.0),_ + Array(2.5, 5.0, 2.5, 5.0),_ + Array(4.0, 9.0, 2.5, 5.0))_ + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/script.xlb new file mode 100644 index 000000000000..9863fa58f127 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXChapterNumbering" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXChapterNumbering"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/sw_SwXChapterNumbering.xba b/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/sw_SwXChapterNumbering.xba new file mode 100644 index 000000000000..43ee2717020f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXChapterNumbering/sw_SwXChapterNumbering.xba @@ -0,0 +1,70 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXChapterNumbering" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXChapterNumbering +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + for i = 1 to 10 + oDoc.Text.insertString(oCursor, cObjectName+i, false) + oDoc.Text.insertControlCharacter(oCursor,0,false) + next i + + oObj = oDoc.ChapterNumberingRules + nGlobalLong = oObj.Count + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/script.xlb new file mode 100644 index 000000000000..1e65a73a9742 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXDocumentIndex" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXDocumentIndex"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/sw_SwXDocumentIndex.xba b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/sw_SwXDocumentIndex.xba new file mode 100644 index 000000000000..c207f6e6f3a7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndex/sw_SwXDocumentIndex.xba @@ -0,0 +1,107 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXDocumentIndex" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oCollection As Object +Global oComponentInstance As Object ' it will be disposed +Global oXTextContent as Object +Global oXTextContentRange as Object + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXDocumentIndex +'************************************************************************* +On Error Goto ErrHndl + Dim i As Integer + Dim n As Integer + Dim oCursor As Object + Dim oSearch As Object + Dim oFound As Object + Dim oIndexEntry As Object + Dim oFoundPos As Object + Dim oIndex As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + ' write some strings to document + for i = 1 to 10 + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor, cObjectName, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + ' insert some IndexMakrs + oSearch = oDoc.createSearchDescriptor() + oSearch.SearchString = cObjectName + oFound = oDoc.findAll(oSearch) + + for n = 0 to oFound.Count - 5 + oFoundPos = oFound(n) + oIndexEntry = oDoc.createInstance("com.sun.star.text.DocumentIndexMark") + oDoc.text.insertTextContent(oFoundPos, oIndexEntry, true) + next n + + 'create an index + oIndex = oDoc.createInstance("com.sun.star.text.DocumentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oObj = oIndex + + oXTextContent = oDoc.createInstance("com.sun.star.text.DocumentIndex") + oXTextContentRange = oDoc.Text.createTextCursor() + + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oComponentInstance = oIndex + + oCollection = oDoc.getDocumentIndexes() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/script.xlb new file mode 100644 index 000000000000..8e79e016f510 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXDocumentIndexMark" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXDocumentIndexMark"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/sw_SwXDocumentIndexMark.xba b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/sw_SwXDocumentIndexMark.xba new file mode 100644 index 000000000000..515c9b61b05d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexMark/sw_SwXDocumentIndexMark.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXDocumentIndexMark" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +' REQUIRED VARIABLES for interface/service tests: +Global oComponentInstance As Object +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXDocumentIndexMark +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oIndex = oDoc.createInstance("com.sun.star.text.DocumentIndexMark") + oIndex.attach(oDoc.Text) + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oObj = oIndex + oIndex = oDoc.createInstance("com.sun.star.text.DocumentIndexMark") + oIndex.attach(oDoc.Text) + + oComponentInstance = oIndex + + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oIndex = oDoc.createInstance("com.sun.star.text.DocumentIndexMark") + oIndex.attach(oDoc.Text) + oDoc.Text.insertTextContent(oCursor, oIndex, false) + + oXTextContent = oDoc.createInstance("com.sun.star.text.DocumentIndexMark") + oXTextContentRange = oDoc.Text.createTextCursor() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/script.xlb new file mode 100644 index 000000000000..d7187cc8f6ca --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXDocumentIndexes" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXDocumentIndexes"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/sw_SwXDocumentIndexes.xba b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/sw_SwXDocumentIndexes.xba new file mode 100644 index 000000000000..7fb5286675b9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDocumentIndexes/sw_SwXDocumentIndexes.xba @@ -0,0 +1,70 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXDocumentIndexes" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXDocumentIndexes +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + bOK = NOT isNull(oDoc) + + oCursor = oDoc.Text.createTextCursor() + + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + oIndex = oDoc.createInstance("com.sun.star.text.ContentIndex") + oDoc.Text.insertTextContent(oCursor, oIndex, false) + + oObj = oDoc.getDocumentIndexes() + + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDrawPage/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXDrawPage/script.xlb new file mode 100644 index 000000000000..0f908a3b103b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDrawPage/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXDrawPage" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXDrawPage"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXDrawPage/sw_SwXDrawPage.xba b/qadevOOo/tests/basic/mod/sw/SwXDrawPage/sw_SwXDrawPage.xba new file mode 100644 index 000000000000..cb69d58f6093 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXDrawPage/sw_SwXDrawPage.xba @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXDrawPage" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.container.XNamed +Global cNameToSet As String ' "fixed" if name is fixed + +' Requiered for com.sun.star.drawing.XShapeGrouper +Global oGrouperCollection As Object 'groupable objects + +' Requiered for com.sun.star.drawing.XShapes +Global oXShapeInstance As Object 'to add/remove + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXDrawPage +'************************************************************************* +On Error Goto ErrHndl + Dim oCollection As Object + Dim oInstance As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oObj = oDoc.getDrawPage() + + oCollection = createUNOService("com.sun.star.drawing.ShapeCollection") + oInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oObj.add(oInstance) + oCollection.add(oInstance) + oInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oObj.add(oInstance) + oCollection.add(oInstance) + oInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oObj.add(oInstance) + oInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oObj.add(oInstance) + oXShapeInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + + oGrouperCollection = oCollection + + cNameToSet = "ADrawPage" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/script.xlb new file mode 100644 index 000000000000..a831b798f246 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXEndnoteProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXEndnoteProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/sw_SwXEndnoteProperties.xba b/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/sw_SwXEndnoteProperties.xba new file mode 100644 index 000000000000..4fc9577723a9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXEndnoteProperties/sw_SwXEndnoteProperties.xba @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXEndnoteProperties" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXEndnoteProperties +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + oCursor = oDoc.Text.createTextCursor() + + oNote = oDoc.createInstance("com.sun.star.text.Endnote") + + oDoc.Text.insertTextContent(oCursor, oNote, false) + + oObj = oDoc.getEndnoteSettings() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/script.xlb new file mode 100644 index 000000000000..b93edc648c90 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFieldEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFieldEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/sw_SwXFieldEnumeration.xba b/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/sw_SwXFieldEnumeration.xba new file mode 100644 index 000000000000..e0fa327a836d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFieldEnumeration/sw_SwXFieldEnumeration.xba @@ -0,0 +1,72 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFieldEnumeration" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFieldEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim FieldMaster As Object + Dim TextField As Object + Dim the_Text As Object + Dim the_Cursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + + FieldMaster = oDoc.createInstance( "com.sun.star.text.FieldMaster.Database" ) + TextField = oDoc.createInstance( "com.sun.star.text.TextField.Database" ) + + FieldMaster.setPropertyValue("DataBaseName", "Bibliography") + FieldMaster.setPropertyValue("DataTableName", "biblio") + FieldMaster.setPropertyValue("DataColumnName", "Address") + the_Text = oDoc.getText() + the_Cursor = the_Text.createTextCursor() + + TextField.attachTextFieldMaster(FieldMaster) + the_Text.insertTextContent(the_Cursor, TextField, false) + + oObj = oDoc.getTextFields().createEnumeration() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/script.xlb new file mode 100644 index 000000000000..717a73f4ed49 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFieldMaster" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFieldMaster"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/sw_SwXFieldMaster.xba b/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/sw_SwXFieldMaster.xba new file mode 100644 index 000000000000..8c6f7dd17905 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFieldMaster/sw_SwXFieldMaster.xba @@ -0,0 +1,54 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFieldMaster" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFieldMaster +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnote/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFootnote/script.xlb new file mode 100644 index 000000000000..26fde0605a73 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnote/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFootnote" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFootnote"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnote/sw_SwXFootnote.xba b/qadevOOo/tests/basic/mod/sw/SwXFootnote/sw_SwXFootnote.xba new file mode 100644 index 000000000000..4bff96ac2b59 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnote/sw_SwXFootnote.xba @@ -0,0 +1,85 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFootnote" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +Global oInstance as Object +Global oCollection as Object +Global oComponentInstance as Object +Global cGlobalString as String +Global nGlobalLong as Long +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFootnote +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim i As Integer + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + for i = 1 to 5 + oInstance = oDoc.createInstance("com.sun.star.text.Footnote") + oInstance.Label = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oInstance, false) + next i + + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + oCollection = oDoc.getBookmarks() + oComponentInstance = oDoc.Footnotes(2) + cGlobalString = cObjectName + nGlobalLong = 2 + + oObj = oDoc.Footnotes(nGlobalLong-1) + + oXTextContent = oDoc.createInstance("com.sun.star.text.Footnote") + oXTextContentRange = oDoc.Text.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/script.xlb new file mode 100644 index 000000000000..3df9abbc74f6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFootnoteProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFootnoteProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/sw_SwXFootnoteProperties.xba b/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/sw_SwXFootnoteProperties.xba new file mode 100644 index 000000000000..d9e23b870ec0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnoteProperties/sw_SwXFootnoteProperties.xba @@ -0,0 +1,64 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFootnoteProperties" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFootnoteProperties +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + oCursor = oDoc.Text.createTextCursor() + oInst = oDoc.createInstance("com.sun.star.text.Footnote") + + oDoc.Text.insertTextContent(oCursor, oInst, false) + + oObj = oDoc.getFootnoteSettings() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/script.xlb new file mode 100644 index 000000000000..070f117c0b0b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFootnoteText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFootnoteText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/sw_SwXFootnoteText.xba b/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/sw_SwXFootnoteText.xba new file mode 100644 index 000000000000..5a7642df2d3a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnoteText/sw_SwXFootnoteText.xba @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFootnoteText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long +Global oInstance As Object +Global oCollection As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFootnoteText +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + nGlobalLong = 10 + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + + for i = 1 to nGlobalLong + oFootNote = oDoc.createInstance("com.sun.star.text.Footnote") + oFootNote.Label = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oFootNote, false) + next i + + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + oCollection = oDoc.Bookmarks + + oObj = oFootNote.getText() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnotes/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFootnotes/script.xlb new file mode 100644 index 000000000000..7e265118287e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnotes/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFootnotes" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFootnotes"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFootnotes/sw_SwXFootnotes.xba b/qadevOOo/tests/basic/mod/sw/SwXFootnotes/sw_SwXFootnotes.xba new file mode 100644 index 000000000000..18100dddb1a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFootnotes/sw_SwXFootnotes.xba @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFootnotes" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFootnotes +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim oInstance As Object + Dim i As Integer + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + for i = 1 to 5 + oInstance = oDoc.createInstance("com.sun.star.text.Footnote") + oInstance.Label = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oInstance, false) + next i + + oObj = oDoc.Footnotes +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFrames/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXFrames/script.xlb new file mode 100644 index 000000000000..3aed8ca84894 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFrames/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXFrames" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXFrames"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXFrames/sw_SwXFrames.xba b/qadevOOo/tests/basic/mod/sw/SwXFrames/sw_SwXFrames.xba new file mode 100644 index 000000000000..031cdf270816 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXFrames/sw_SwXFrames.xba @@ -0,0 +1,81 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXFrames" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for XContainer + Global oElementToInsert As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXFrames +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + ' create some frames on doc + for i= 1 to 3 + oInstance = oDoc.createInstance("com.sun.star.text.TextFrame") + sSize = createUNOStruct("com.sun.star.awt.Size") + sSize.Height = 100 + sSize.Width = 100 + oInstance.Size = sSize + oInstance.SizeType = 1 + oInstance.Name = cObjectName & i + oInstance.HoriOrient = i + oInstance.VertOrient = i + oDoc.Text.insertTextContent(oCursor, oInstance, false) + next i + + + + oObj = oDoc.TextFrames + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/script.xlb new file mode 100644 index 000000000000..efc59272d689 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXHeadFootText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXHeadFootText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/sw_SwXHeadFootText.xba b/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/sw_SwXHeadFootText.xba new file mode 100644 index 000000000000..30e6852188cc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXHeadFootText/sw_SwXHeadFootText.xba @@ -0,0 +1,87 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXHeadFootText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long +Global oCollection As Object +Global oInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXHeadFootText +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + oPagestyle = oDoc.StyleFamilies.getByName("PageStyles").getByName("Standard") + oPageStyle.HeaderIsOn = true + + oObj = oPageStyle.HeaderText + oCursor = oObj.createTextCursor() + + nGlobalLong = 3 + + ' insert some Tables to Header + for i = 1 to nGlobalLong + ' initialize appropirate textcontent for insertion + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oInstance.initialize(1, 2) + oCursor.gotoEnd(false) + oObj.insertTextContent(oCursor, oInstance, false) + next i + + ' create another table to insert via XText-module + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oInstance.initialize(5, 5) + + ' initialize corresponding collection for verifying + oCollection = oDoc.TextTables + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/script.xlb new file mode 100644 index 000000000000..833b05eb14d8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXLineNumberingProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXLineNumberingProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/sw_SwXLineNumberingProperties.xba b/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/sw_SwXLineNumberingProperties.xba new file mode 100644 index 000000000000..33e20cc676b2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXLineNumberingProperties/sw_SwXLineNumberingProperties.xba @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXLineNumberingProperties" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXLineNumberingProperties +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oText = oDoc.getText() + oCursor = oText.createTextCursor() + + For i = 1 to 5 + oText.insertString(oCursor,_ + "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG", false) + oText.insertControlCharacter( oCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false ) + Next i + + oObj = oDoc.getLineNumberingProperties() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXMailMerge/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXMailMerge/script.xlb new file mode 100644 index 000000000000..7889f2929f95 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXMailMerge/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> + <library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXMailMerge" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="sw_SwXMailMerge"/> + </library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXMailMerge/sw_SwXMailMerge.xba b/qadevOOo/tests/basic/mod/sw/SwXMailMerge/sw_SwXMailMerge.xba new file mode 100644 index 000000000000..dffb0d341a5d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXMailMerge/sw_SwXMailMerge.xba @@ -0,0 +1,155 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXMailMerge" script:language="StarBasic"> + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + +' REQUIRED VARIABLES for interface/service tests: + +' com.sun.star.task.XJob: +Global vXJobArgs(0 to 3) as Variant + +' com.sun.star.text.MailMerge +Global cMailMerge_DocumentURL as String + +Dim cDataSourceName as String +Dim cDataCommand as String +Dim oXResultSet as Variant + +' Be sure that all variables are dimensioned: +option explicit + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' com.sun.star.sw.SwXMailMerge +'************************************************************************* +On Error Goto ErrHndl + + Dim vXJobArg0(0 to 7) as new com.sun.star.beans.NamedValue + Dim vXJobArg1(0 to 6) as new com.sun.star.beans.NamedValue + Dim vXJobArg2(0 to 9) as new com.sun.star.beans.NamedValue + Dim vXJobArg3(0) as new com.sun.star.beans.NamedValue + Dim cTestDoc as String + Dim cOutputURL as String + Dim oXConnection as Variant + Dim myBookMarks as Variant + + oObj = createUnoService("com.sun.star.text.MailMerge") + + cTestDoc = utils.Path2URL(cTestDocsDir + "/" + "MailMerge.sxw") + cMailMerge_DocumentURL = cTestDoc + cOutputURL = ConvertToURL(utils.getUserPath()) + cDataSourceName = "Bibliography" + cDataCommand = "biblio" + oXResultSet = getXResultSet() + oXConnection = oXResultSet.ActiveConnection + + ' create arguments for XJob: + myBookMarks = getMyBookMarks() + + oObj.DataSourceName = cDataSourceName + oObj.Command = cDataCommand + oObj.CommandType = com.sun.star.sdb.CommandType.TABLE + oObj.OutputType = com.sun.star.text.MailMergeType.FILE + oObj.DocumentURL = cTestDoc + oObj.OutputURL = cOutputURL + oObj.FileNamePrefix = "Author" + oObj.FileNameFromColumn = TRUE + oObj.Selection = DimArray() + + ' use a simple DataBase with simple Table + vXJobArg0(0).Name = "DataSourceName" : vXJobArg0(0).Value = cDataSourceName + vXJobArg0(1).Name = "Command" : vXJobArg0(1).Value = cDataCommand + vXJobArg0(2).Name = "CommandType" : vXJobArg0(2).Value = com.sun.star.sdb.CommandType.TABLE + vXJobArg0(3).Name = "OutputType" : vXJobArg0(3).Value = com.sun.star.text.MailMergeType.FILE + vXJobArg0(4).Name = "DocumentURL" : vXJobArg0(4).Value = cTestDoc + vXJobArg0(5).Name = "OutputURL" : vXJobArg0(5).Value = cOutputURL + vXJobArg0(6).Name = "FileNamePrefix" : vXJobArg0(6).Value = "Identifier" + vXJobArg0(7).Name = "FileNameFromColumn" : vXJobArg0(7).Value = true + + ' use a simple DataBase with simple Table and write to printer + vXJobArg1(0).Name = "DataSourceName" : vXJobArg1(0).Value = cDataSourceName + vXJobArg1(1).Name = "Command" : vXJobArg1(1).Value = cDataCommand + vXJobArg1(2).Name = "CommandType" : vXJobArg1(2).Value = com.sun.star.sdb.CommandType.TABLE + vXJobArg1(3).Name = "OutputType" : vXJobArg1(3).Value = com.sun.star.text.MailMergeType.PRINTER + vXJobArg1(4).Name = "FileNamePrefix" : vXJobArg1(4).Value = "Author" + vXJobArg1(5).Name = "FileNameFromColumn" : vXJobArg1(5).Value = true + vXJobArg1(6).Name = "DocumentURL" : vXJobArg1(6).Value = cTestDoc + + ' use a XConnection + vXJobArg2(0).Name = "ActiveConnection" : vXJobArg2(0).Value = oXConnection + vXJobArg2(1).Name = "DataSourceName" : vXJobArg2(1).Value = cDataSourceName + vXJobArg2(2).Name = "Command" : vXJobArg2(2).Value = cDataCommand + vXJobArg2(3).Name = "CommandType" : vXJobArg2(3).Value = com.sun.star.sdb.CommandType.TABLE + vXJobArg2(4).Name = "OutputType" : vXJobArg2(4).Value = com.sun.star.text.MailMergeType.FILE + vXJobArg2(5).Name = "ResultSet" : vXJobArg2(5).Value = oXResultSet + vXJobArg2(6).Name = "OutputURL" : vXJobArg2(6).Value = cOutputURL + vXJobArg2(7).Name = "FileNamePrefix" : vXJobArg2(7).Value = "Identifier" + vXJobArg2(8).Name = "FileNameFromColumn" : vXJobArg2(8).Value = true + vXJobArg2(9).Name = "Selection" : vXJobArg2(9).Value = myBookMarks() + + vXJobArgs(0) = vXJobArg0() + vXJobArgs(1) = vXJobArg1() + vXJobArgs(2) = vXJobArg2() + vXJobArgs(3) = DimArray() + + out.log("com.sun.star.text.MailMerge created.") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub XMailMergeEvent() + oObj.execute(vXJobArgs(2)) +end sub + +Function getXResultSet() as Variant + Dim oRowSet as Object + oRowSet = createUnoService("com.sun.star.sdb.RowSet") + oRowSet.DataSourceName = cDataSourceName + oRowSet.Command = cDataCommand + oRowSet.CommandType = com.sun.star.sdb.CommandType.TABLE + oRowSet.execute() + wait(200) +' oRowSet.getFirst() + getXResultSet() = oRowSet +end Function + +Function getMyBookMarks() as Variant + Dim BookMarks(1) as Variant + oXResultSet.first() + BookMarks(0) = oXResultSet.getBookmark() + oXResultSet.next() + BookMarks(1) = oXResultSet.getBookmark() + getMyBookMarks() = BookMarks() +end Function + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXModule/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXModule/script.xlb new file mode 100644 index 000000000000..0a065a01386a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXModule/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXModule" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXModule"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXModule/sw_SwXModule.xba b/qadevOOo/tests/basic/mod/sw/SwXModule/sw_SwXModule.xba new file mode 100644 index 000000000000..11d08996a639 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXModule/sw_SwXModule.xba @@ -0,0 +1,50 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXModule" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXModule +'************************************************************************* +On Error Goto ErrHndl + oObj = createUnoService("com.sun.star.text.GlobalSettings") +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/script.xlb new file mode 100644 index 000000000000..047311ba12f1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXNumberingRules" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXNumberingRules"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/sw_SwXNumberingRules.xba b/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/sw_SwXNumberingRules.xba new file mode 100644 index 000000000000..7ab97cba229d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXNumberingRules/sw_SwXNumberingRules.xba @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXNumberingRules" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXNumberingRules +'************************************************************************* +On Error Goto ErrHndl + + Dim oText As Object + Dim oCursor As Object + Dim oStyleFamilies As Object + Dim oNumStyles As Object + Dim bOK As Boolean + + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + + oText = oDoc.getText() + oCursor = oText.createTextCursor() + for i = 0 to 5 + oText.insertString(oCursor, "The quick brown fox jumps over the lazy Dog", false) + oText.insertControlCharacter(oCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + Next i + + oStyleFamilies = oDoc.getStyleFamilies() + oNumStyles = oStyleFamilies.getByName("NumberingStyles") + + oObj = oNumStyles.getByIndex(0).NumberingRules + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXParagraph/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXParagraph/script.xlb new file mode 100644 index 000000000000..0a85ca0129a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXParagraph/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXParagraph" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXParagraph"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXParagraph/sw_SwXParagraph.xba b/qadevOOo/tests/basic/mod/sw/SwXParagraph/sw_SwXParagraph.xba new file mode 100644 index 000000000000..9ba860b23737 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXParagraph/sw_SwXParagraph.xba @@ -0,0 +1,101 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXParagraph" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XComponent: + Global oComponentInstance As Object ' it will be disposed + Global bXTextContentImpossible As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXParagraph +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim nWidth As Integer + Dim nHeight As Integer + Dim cText As String + Dim oCursor As Object + Dim i As Integer + Dim oInstance As Object + Dim oEnum As Object + + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + nWidth = 5000 + nHeight = 4000 + cText = ". Zeile : test of " & cObjectName + + oCursor = oDoc.Text.createTextCursor() + + ' write some strings to document + for i = 1 to 10 + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor,Trim(Str(i)) & cText,false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oCursor.gotoEnd(false) + oInstance = oDoc.createInstance("com.sun.star.text.TextFrame") + sSize = createUNOStruct("com.sun.star.awt.Size") + sSize.Height = nHeight + sSize.Width = nWidth + oInstance.Size = sSize + oInstance.SizeType = 1 + oInstance.AnchorType = 0 + oInstance.Name = cObjectName + oInstance.HoriOrient = 2 + oInstance.VertOrient = 2 + oDoc.Text.insertTextContent(oCursor, oInstance, false) + + oEnum = oDoc.Text.createEnumeration() + oObj = oEnum.nextElement() + oComponentInstance = oEnum.nextElement() + + bXTextContentImpossible = TRUE + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/script.xlb new file mode 100644 index 000000000000..2e8a40a04a15 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXParagraphEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXParagraphEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/sw_SwXParagraphEnumeration.xba b/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/sw_SwXParagraphEnumeration.xba new file mode 100644 index 000000000000..4f9f4b4ae6d0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXParagraphEnumeration/sw_SwXParagraphEnumeration.xba @@ -0,0 +1,71 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXParagraphEnumeration" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXParagraphEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + oDoc = utils.createDocument("swriter", cObjectName) + + nGlobalLong = 7 + + oCursor = oDoc.Text.createTextCursor() + + ' write some strings to document + for i = 1 to nGlobalLong + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor,Trim(Str(i)) & cText,false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oObj = oDoc.Text.createEnumeration() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/script.xlb new file mode 100644 index 000000000000..863c2eb1bc8c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXPrintSettings" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXPrintSettings"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/sw_SwXPrintSettings.xba b/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/sw_SwXPrintSettings.xba new file mode 100644 index 000000000000..8762350cb324 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPrintSettings/sw_SwXPrintSettings.xba @@ -0,0 +1,60 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXPrintSettings" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXPrintSettings +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oInst As Variant + + bOK = true + + oInst = createUnoService("com.sun.star.text.GlobalSettings") + oObj = oInst.getPrintSettings() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPropertySet/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXPropertySet/script.xlb new file mode 100644 index 000000000000..568f0fccb1d7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPropertySet/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXPropertySet" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXPropertySet"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPropertySet/sw_SwXPropertySet.xba b/qadevOOo/tests/basic/mod/sw/SwXPropertySet/sw_SwXPropertySet.xba new file mode 100644 index 000000000000..d482db98cea9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPropertySet/sw_SwXPropertySet.xba @@ -0,0 +1,51 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXPropertySet" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXPropertySet +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = oDoc +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/script.xlb new file mode 100644 index 000000000000..d613c13e2ecf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXPropertySetInfo" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXPropertySetInfo"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/sw_SwXPropertySetInfo.xba b/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/sw_SwXPropertySetInfo.xba new file mode 100644 index 000000000000..2621c918a002 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXPropertySetInfo/sw_SwXPropertySetInfo.xba @@ -0,0 +1,51 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXPropertySetInfo" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXPropertySetInfo +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = oDoc.getPropertySetInfo() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/script.xlb new file mode 100644 index 000000000000..ad3eadd337b9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXReferenceMark" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXReferenceMark"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/sw_SwXReferenceMark.xba b/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/sw_SwXReferenceMark.xba new file mode 100644 index 000000000000..2a48e55f78f2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXReferenceMark/sw_SwXReferenceMark.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXReferenceMark" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long +Global oCollection As Object +Global oComponentInstance As Object ' it will be disposed +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXReferenceMark +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + oDoc = utils.createDocument("swriter", cObjectName) + + ' create the textcursor and verify initialization + oCursor = oDoc.Text.createTextCursor() + + nGlobalLong = 7 + + ' write some strings to document + for i = 1 to nGlobalLong + oCursor.gotoEnd(false) + ' helpvar cause of bug in trim or insertString + cTemp = Trim(Str((i)) & cText + oDoc.Text.insertString(oCursor, cTemp, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oCursor.gotoStart(false) + + for i = 1 to nGlobalLong + oObj = oDoc.createInstance("com.sun.star.text.ReferenceMark") + oObj.Name = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oObj, false) + oCursor.gotoNextParagraph(false) + next i + + oCollection = oDoc.ReferenceMarks + oObj = oCollection.getByIndex(0) + oComponentInstance = oCollection.getByIndex(1) + + oXTextContent = oDoc.createInstance("com.sun.star.text.ReferenceMark") + oXTextContentRange = oDoc.Text.createTextCursor() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/script.xlb new file mode 100644 index 000000000000..87e12bcbf371 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXReferenceMarks" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXReferenceMarks"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/sw_SwXReferenceMarks.xba b/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/sw_SwXReferenceMarks.xba new file mode 100644 index 000000000000..33fc407703e0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXReferenceMarks/sw_SwXReferenceMarks.xba @@ -0,0 +1,85 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXReferenceMarks" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXReferenceMarks +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + nGlobalLong = 5 + + ' write some strings to document + for i = 1 to nGlobalLong + oCursor.gotoEnd(false) + ' Hilfskruecke wegen Bug im Trim oder insertString + cTemp = Trim(Str((i)) & cText + oDoc.Text.insertString(oCursor, cTemp, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oCursor.gotoStart(false) + + for i = 1 to nGlobalLong + oInstance = oDoc.createInstance("com.sun.star.text.ReferenceMark") + oInstance.Name = cObjectName & i + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oCursor.gotoNextParagraph(false) + next i + + + ' create the object to test here + oObj = oDoc.ReferenceMarks + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXShape/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXShape/script.xlb new file mode 100644 index 000000000000..b95a641374d7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXShape/sw_SwXShape.xba b/qadevOOo/tests/basic/mod/sw/SwXShape/sw_SwXShape.xba new file mode 100644 index 000000000000..09a09c71efe5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXShape/sw_SwXShape.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXShape" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XComponent: + Global oComponentInstance As Object ' it will be disposed + +' Required for com.sun.star.drawing.XShapeDescriptor : + Global cShapeType As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXShape +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim n As Integer + Dim sSize as new com.sun.star.awt.Size + Dim sPoint as new com.sun.star.awt.Point + Dim oShape As Object, oDrawPage As Object + + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oDrawPage = oDoc.DrawPage + + For n = 1 to 3 + oShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + sSize.Height = 5000 + sSize.Width = 5000 + oShape.Size = sSize + sPoint.X = 5000 + sPoint.Y = n * 1000 + oShape.Position = sPoint + oDrawPage.Add(oShape) + Next + + oObj = oDrawPage.getByIndex(1) + + oObj.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE + oComponentInstance = oDrawPage.getByIndex(0) + + cShapeType = "com.sun.star.drawing.RectangleShape" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyle/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXStyle/script.xlb new file mode 100644 index 000000000000..96da6a7f5e67 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyle/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXStyle" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXStyle"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyle/sw_SwXStyle.xba b/qadevOOo/tests/basic/mod/sw/SwXStyle/sw_SwXStyle.xba new file mode 100644 index 000000000000..53aa0ece1116 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyle/sw_SwXStyle.xba @@ -0,0 +1,104 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXStyle" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.container.XNamed + Global cNameToSet As String ' "fixed" if name is fixed +' Requiered for com.sun.star.style.XStyle +Global oStandartStyle As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXStyle +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oStyleFamilies = oDoc.StyleFamilies + aElementNames() = oStyleFamilies.Elementnames + + oDoc.Text.insertString(oCursor, "Elements of StyleFamlilies are:", false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + + for i = lBound(aElementNames()) to uBound(aElementNames()) + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor, aElementNames(i), false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + + oObj = oStyleFamilies.getByIndex(0) + + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oCursor.gotoEnd(false) + + oDoc.Text.insertString(oCursor,"Elements of StyleFamlilie " & aElementNames(0) & " are:", false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + + aElementNames() = oObj.Elementnames + for i = lBound(aElementNames()) to uBound(aElementNames()) + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor, aElementNames(i), false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oNew = oDoc.createInstance("com.sun.star.style.CharacterStyle") + oStyleFamily = oStyleFamilies.getByIndex(0)' + oStyleFamily.insertByName("Dummy", oNew) + + oObj = oStyleFamily.getByName("Dummy") + + 'Use the style... + oCursor.setPropertyValue("CharStyleName", "Dummy") + + oStandartStyle = oStyleFamily.getByName(aElementNames(1)) + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/script.xlb new file mode 100644 index 000000000000..59114cb7f7e6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXStyleFamilies" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXStyleFamilies"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/sw_SwXStyleFamilies.xba b/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/sw_SwXStyleFamilies.xba new file mode 100644 index 000000000000..47710c6df682 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyleFamilies/sw_SwXStyleFamilies.xba @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXStyleFamilies" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXStyleFamilies +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("swriter", cObjectName) + oObj = oDoc.getStyleFamilies() + nGlobalLong = oObj.count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/script.xlb new file mode 100644 index 000000000000..bd646d605dbf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXStyleFamily" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXStyleFamily"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/sw_SwXStyleFamily.xba b/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/sw_SwXStyleFamily.xba new file mode 100644 index 000000000000..8c8a79680f05 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXStyleFamily/sw_SwXStyleFamily.xba @@ -0,0 +1,78 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXStyleFamily" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.container.XNameContainer + Global oInstance As Variant 'instance to insert + + +' Requiered for com.sun.star.container.XNameReplace + Global cNameToReplace As String 'name of instance to be replased + Global oReplaceInstance As Variant 'instance, that will be inserted + 'instead old one + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXStyleFamily +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oInstance = oDoc.createInstance("com.sun.star.style.CharacterStyle") + + oReplaceInstance = oDoc.createInstance("com.sun.star.style.CharacterStyle") + + + oObj = oDoc.getStyleFamilies.getByIndex(0) + oObj.insertByName(cObjectName, oDoc.createInstance("com.sun.star.style.CharacterStyle")) + cNameToReplace = cObjectName + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableCellText/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTableCellText/script.xlb new file mode 100644 index 000000000000..f869097aaf87 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableCellText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTableCellText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTableCellText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableCellText/sw_SwXTableCellText.xba b/qadevOOo/tests/basic/mod/sw/SwXTableCellText/sw_SwXTableCellText.xba new file mode 100644 index 000000000000..0410af6be6c9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableCellText/sw_SwXTableCellText.xba @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTableCellText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.text.XText + Global oCollection As Object + Global oInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTableCellText +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim oTable As Object + Dim oCell As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(3, 5) + oDoc.Text.insertTextContent(oCursor, oTable, false) + + oCell = oTable.getCellByPosition(1, 1) + + oObj = oCell.Text + + oInstance = oDoc.createInstance("com.sun.star.text.TextField.DateTime") + oCollection = oDoc.TextFields +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableColumns/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTableColumns/script.xlb new file mode 100644 index 000000000000..aa249610df79 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableColumns/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTableColumns" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTableColumns"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableColumns/sw_SwXTableColumns.xba b/qadevOOo/tests/basic/mod/sw/SwXTableColumns/sw_SwXTableColumns.xba new file mode 100644 index 000000000000..d5d505a44130 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableColumns/sw_SwXTableColumns.xba @@ -0,0 +1,84 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTableColumns" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for XTableColumns + Global oTable As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTableColumns +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim nRows As Long, nCols As Long + + bOK = true + + nRows = 5 + nCols = 5 + + oDoc = utils.createDocument("swriter", cObjectName) + + Out.Log("Create a table") + oCursor = oDoc.Text.createTextCursor() + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(nRows, nCols) + + oCursor.gotoEnd(false) + oDoc.Text.insertTextContent(oCursor, oTable, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oTable.Columns.DBG_SupportedInterfaces, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oTable.Columns.DBG_Methods, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oTable.Columns.DBG_Properties, false) + + oObj = oTable.Columns + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableRows/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTableRows/script.xlb new file mode 100644 index 000000000000..e53c2e4756a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableRows/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTableRows" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTableRows"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTableRows/sw_SwXTableRows.xba b/qadevOOo/tests/basic/mod/sw/SwXTableRows/sw_SwXTableRows.xba new file mode 100644 index 000000000000..8028ea126953 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTableRows/sw_SwXTableRows.xba @@ -0,0 +1,87 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTableRows" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for XTableRows + Global oTable As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTableRows +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim nRows As Long, nCols As Long + + bOK = true + nRows = 5 + nCols = 5 + + oDoc = utils.createDocument("swriter", cObjectName) + + ' create a table first + oCursor = oDoc.Text.createTextCursor() + + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(nRows, nCols) + oCursor.gotoEnd(false) + + oDoc.Text.insertTextContent(oCursor, oTable, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + + oDoc.Text.insertString(oCursor, oTable.Rows.DBG_SupportedInterfaces, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oTable.Rows.DBG_Methods, false) + oCursor.gotoEnd(false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oTable.Rows.DBG_Properties, false) + + ' create test object + oObj = oTable.Rows + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextColumns/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextColumns/script.xlb new file mode 100644 index 000000000000..37058dec0fe6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextColumns/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextColumns" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextColumns"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextColumns/sw_SwXTextColumns.xba b/qadevOOo/tests/basic/mod/sw/SwXTextColumns/sw_SwXTextColumns.xba new file mode 100644 index 000000000000..999f5fa52850 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextColumns/sw_SwXTextColumns.xba @@ -0,0 +1,70 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextColumns" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.text.XTextColumns +Global oPageStyle As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextColumns +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + oPageStyle = oDoc.StyleFamilies.getByName("PageStyles").getByName("Standard") + oObj = oPageStyle.TextColumns + + oDoc.Text.insertString(oCursor, oObj.DBG_SupportedInterfaces, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oObj.DBG_Properties, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + oDoc.Text.insertString(oCursor, oObj.DBG_Methods, false) +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextCursor/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextCursor/script.xlb new file mode 100644 index 000000000000..aecd1d225eed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextCursor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextCursor/sw_SwXTextCursor.xba b/qadevOOo/tests/basic/mod/sw/SwXTextCursor/sw_SwXTextCursor.xba new file mode 100644 index 000000000000..e5a8014ef5ea --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextCursor/sw_SwXTextCursor.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextCursor" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.text.XParagraphCursor + Global oText As Object +' Requiered for com.sun.star.text.XTextCursor + Global oCursor As Object 'One more cursor + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextCursor +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oText = oDoc.Text + oObj = oText.createTextCursor() + oCursor = oText.createTextCursor() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/script.xlb new file mode 100644 index 000000000000..c4021b17323a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextDefaults" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextDefaults"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/sw_SwXTextDefaults.xba b/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/sw_SwXTextDefaults.xba new file mode 100644 index 000000000000..ded6377d7e27 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextDefaults/sw_SwXTextDefaults.xba @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextDefaults" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextDefaults +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + + ' create a textcursor + oCursor = oDoc.Text.createTextCursor() + + ' write some strings to document + for i = 1 to 10 + oCursor.gotoEnd(false) + + cTemp = Trim(Str((i)) & cText + oDoc.Text.insertString(oCursor, cTemp, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oCursor.gotoStart(false) + oCursor.gotoNextWord(false) + + oObj = oDoc.createInstance("com.sun.star.text.Defaults") + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextDocument/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextDocument/script.xlb new file mode 100644 index 000000000000..e2a798dfd3d6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextDocument/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextDocument" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextDocument"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextDocument/sw_SwXTextDocument.xba b/qadevOOo/tests/basic/mod/sw/SwXTextDocument/sw_SwXTextDocument.xba new file mode 100644 index 000000000000..2a903e5bdfd2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextDocument/sw_SwXTextDocument.xba @@ -0,0 +1,98 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextDocument" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.util.XSearchable: +' Required for com.sun.star.util.XReplaceable: +Global cStringToSearch As String ' should appears more than once +Global nSearchedEntriesAmount As Integer + +' Required for com.sun.star.lang.XComponent: +Global oComponentInstance As Object ' it will be disposed + +' Required for com.sun.star.frame.XModel: +Global oXModelController As Object +Global oXModelSel As Object +Global oXModelToSel As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextDocument +'************************************************************************* +On Error Goto ErrHndl + Dim oControllerDoc As Object + Dim oFrame As Object + Dim oCursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oControllerDoc = utils.createDocument("swriter", cObjectName + "1") + oComponentInstance = utils.createDocument("swriter", cObjectName + "2") + + oObj = oDoc + + oObj.Text.String = "This string comes from SwXTextDocument, and contains three 'co' entries. This 'Co' shouldn't be found!" + cStringToSearch = "co" + nSearchedEntriesAmount = 3 + + oFrame = oDoc.createInstance("com.sun.star.text.TextFrame") + oCursor = oDoc.Text.createTextCursor() + oDoc.Text.InsertTextContent(oCursor, oFrame, false) + + oXModelToSel = oFrame + oXModelController = oControllerDoc.getCurrentController() + oXModelSel = oDoc.getCurrentController() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNULL(oComponentInstance) then oComponentInstance.dispose() + + ' To successfully dispose oControllerDoc re-open it first. + Dim oControllerDoc As Object + oControllerDoc = utils.createDocument("swriter", cObjectName + "1") + oControllerDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/script.xlb new file mode 100644 index 000000000000..e17f0e1cf940 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextEmbeddedObject" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextEmbeddedObject"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/sw_SwXTextEmbeddedObject.xba b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/sw_SwXTextEmbeddedObject.xba new file mode 100644 index 000000000000..d51f3cb3b8e8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObject/sw_SwXTextEmbeddedObject.xba @@ -0,0 +1,68 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextEmbeddedObject" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XComponent: +Global oComponentInstance As Object ' it will be disposed + +Global bXTextContentImpossible As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextEmbeddedObject +'************************************************************************* +On Error Goto ErrHndl + Dim oEmbededObjs As Variant + + oDoc = utils.loadTestDocument("SwXTextEmbeddedObject.sxw") + oEmbededObjs = oDoc.getEmbeddedObjects + oObj = oEmbededObjs(0) + oComponentInstance = oEmbededObjs(1) + + bXTextContentImpossible = True + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/script.xlb new file mode 100644 index 000000000000..39b944518e4b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextEmbeddedObjects" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextEmbeddedObjects"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/sw_SwXTextEmbeddedObjects.xba b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/sw_SwXTextEmbeddedObjects.xba new file mode 100644 index 000000000000..ca4a60b7105b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextEmbeddedObjects/sw_SwXTextEmbeddedObjects.xba @@ -0,0 +1,54 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextEmbeddedObjects" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextEmbeddedObjects +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.loadTestDocument("SwXTextEmbeddedObject.sdw") + oObj = oDoc.getEmbeddedObjects +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextField/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextField/script.xlb new file mode 100644 index 000000000000..b6e2a90b9e1f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextField/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextField" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextField"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextField/sw_SwXTextField.xba b/qadevOOo/tests/basic/mod/sw/SwXTextField/sw_SwXTextField.xba new file mode 100644 index 000000000000..bd6348d41c64 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextField/sw_SwXTextField.xba @@ -0,0 +1,93 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextField" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for com.sun.star.lang.XComponent +Global oComponentInstance As Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextField +'************************************************************************* +On Error Goto ErrHndl + Dim oFieldMaster As Object + Dim oFieldMaster2 As Object + Dim oFieldMaster3 As Object + Dim oCursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + + oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") + oFieldMaster2 = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") + oFieldMaster3 = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") + oObj = oDoc.createInstance("com.sun.star.text.TextField.Database") + oComponentInstance = oDoc.createInstance("com.sun.star.text.TextField.Database") + + oFieldMaster.setPropertyValue("DataBaseName","Address Book File") + oFieldMaster.setPropertyValue("DataTableName","address") + oFieldMaster.setPropertyValue("DataColumnName","FIRSTNAME") + + oFieldMaster2.setPropertyValue("DataBaseName","Address Book File") + oFieldMaster2.setPropertyValue("DataTableName","address") + oFieldMaster2.setPropertyValue("DataColumnName","FIRSTNAME") + + oFieldMaster3.setPropertyValue("DataBaseName","Address Book File") + oFieldMaster3.setPropertyValue("DataTableName","address") + oFieldMaster3.setPropertyValue("DataColumnName","FIRSTNAME") + + oCursor = oDoc.Text.createTextCursor() + + oObj.attachTextFieldMaster(oFieldMaster) + oDoc.Text.insertTextContent(oCursor, oObj, false) + oComponentInstance.attachTextFieldMaster(oFieldMaster2) + oDoc.Text.insertTextContent(oCursor, oComponentInstance, false) + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextField.Database") + oXTextContent.attachTextFieldMaster(oFieldMaster3) + oXTextContentRange = oDoc.Text.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/script.xlb new file mode 100644 index 000000000000..798b78fec579 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextFieldMasters" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextFieldMasters"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/sw_SwXTextFieldMasters.xba b/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/sw_SwXTextFieldMasters.xba new file mode 100644 index 000000000000..bafab9031175 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFieldMasters/sw_SwXTextFieldMasters.xba @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextFieldMasters" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextFieldMasters +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + oDoc = utils.createDocument("swriter", cObjectName) + + + oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") + oDBF = oDoc.createInstance("com.sun.star.text.TextField.Database") + + oFieldMaster.setPropertyValue("DataBaseName","Address Book File") + oFieldMaster.setPropertyValue("DataTableName","address") + oFieldMaster.setPropertyValue("DataColumnName","FIRSTNAME") + + oCursor = oDoc.Text.createTextCursor() + + oDBF.attachTextFieldMaster(oFieldMaster) + oDoc.Text.insertTextContent(oCursor, oDBF, false) + + + oObj = oDoc.getTextFieldMasters() + nGlobalLong = uBound(oObj.getElementNames) + 1 + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/script.xlb new file mode 100644 index 000000000000..a8419edf98ab --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextFieldTypes" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextFieldTypes"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/sw_SwXTextFieldTypes.xba b/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/sw_SwXTextFieldTypes.xba new file mode 100644 index 000000000000..6c00c183e93d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFieldTypes/sw_SwXTextFieldTypes.xba @@ -0,0 +1,71 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextFieldTypes" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextFieldTypes +'************************************************************************* +On Error Goto ErrHndl + Dim oFieldMaster As Object + Dim oDBF As Object + Dim oCursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + + oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database") + oDBF = oDoc.createInstance("com.sun.star.text.TextField.Database") + + oFieldMaster.setPropertyValue("DataBaseName","Address Book File") + oFieldMaster.setPropertyValue("DataTableName","address") + oFieldMaster.setPropertyValue("DataColumnName","FIRSTNAME") + + oCursor = oDoc.Text.createTextCursor() + + oDBF.attachTextFieldMaster(oFieldMaster) + oDoc.Text.insertTextContent(oCursor, oDBF, false) + + oObj = oDoc.getTextFields() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFrame/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextFrame/script.xlb new file mode 100644 index 000000000000..f538f6e0b64e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFrame/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextFrame" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextFrame"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFrame/sw_SwXTextFrame.xba b/qadevOOo/tests/basic/mod/sw/SwXTextFrame/sw_SwXTextFrame.xba new file mode 100644 index 000000000000..cac50858b95f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFrame/sw_SwXTextFrame.xba @@ -0,0 +1,120 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextFrame" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long +Global oCollection As Object +Global oComponentInstance As Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextFrame +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim nHeight As Integer + Dim nWidth As Integer + Dim i As Integer + Dim oCursor As Object + Dim sSize As Object + Dim aFrame As Object + Dim oBookmark As Object + + bOK = true + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + nHeight = 10000 + nWidth = 10000 + nGlobalLong = 2 + + for i = 1 to nGlobalLong + ' create some frames on doc + oObj = oDoc.createInstance("com.sun.star.text.TextFrame") + sSize = createUNOStruct("com.sun.star.awt.Size") + sSize.Height = nHeight + sSize.Width = nWidth + oObj.Size = sSize + oObj.SizeType = 1 + oObj.Name = cObjectName + i + oObj.HoriOrient = i + oObj.VertOrient = 1 + + ' AnchorTypes: 0 = paragraph, 1 = as char, 2 = page, 3 = frame/paragraph 4= at char + oObj.AnchorType = 2 + oDoc.Text.insertTextContent(oCursor, oObj, false) + If i = 1 Then + oComponentInstance = oObj + End If + next i + + ' the tested frame must be inside another frame to check the property AnchorType + ' (the value AT_FRAME can be set only in this case) + aFrame = oDoc.createInstance("com.sun.star.text.TextFrame") + oCursor = oObj.Text.createTextCursor() + oObj.Text.insertTextContent(oCursor, aFrame, false) + oObj = aFrame + + oCollection = oDoc.TextFrames + + oObj.String = "-Text" + + oCursor = oObj.createTextCursor() + oObj.insertString(oCursor, "SwXTextFrame", false) + + oBookmark = oDoc.createInstance("com.sun.star.text.Bookmark") + oCursor.gotoEnd(false) + oObj.insertTextContent(oCursor, oBookmark, false) + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextFrame") + oXTextContentRange = oDoc.Text.createTextCursor() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/script.xlb new file mode 100644 index 000000000000..17160aa39ffc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextFrameText" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextFrameText"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/sw_SwXTextFrameText.xba b/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/sw_SwXTextFrameText.xba new file mode 100644 index 000000000000..85b80a35bb0b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextFrameText/sw_SwXTextFrameText.xba @@ -0,0 +1,83 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextFrameText" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global oCollection As Object +Global oInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextFrameText +'************************************************************************* +On Error Goto ErrHndl + Dim nHeight As Integer + Dim nWidth As Integer + Dim oCursor As Object + Dim sSize As Object + + nHeight = 4000 + nWidth = 15000 + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + oObj = oDoc.createInstance("com.sun.star.text.TextFrame") + sSize = createUNOStruct("com.sun.star.awt.Size") + sSize.Height = nHeight + sSize.Width = nWidth + oObj.Size = sSize + oObj.SizeType = 1 + oObj.Name = cObjectName + oObj.HoriOrient = 1 + oObj.VertOrient = 1 + + ' AnchorTypes: 0 = paragraph, 1 = as char, 2 = page, 3 = frame/paragraph 4= at char + oObj.AnchorType = 2 + oDoc.Text.insertTextContent(oCursor, oObj, false) + + oInstance = oDoc.createInstance("com.sun.star.text.Bookmark") + oCollection = oDoc.Bookmarks +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/script.xlb new file mode 100644 index 000000000000..d58584f7f521 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextGraphicObject" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextGraphicObject"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/sw_SwXTextGraphicObject.xba b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/sw_SwXTextGraphicObject.xba new file mode 100644 index 000000000000..80bc7514fa63 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObject/sw_SwXTextGraphicObject.xba @@ -0,0 +1,89 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextGraphicObject" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +'Required for com.sun.star.lang.XComponent +Global oComponentInstance As Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextGraphicObject +'************************************************************************* +On Error Goto ErrHndl + Dim oGrphObj As Object + Dim aFrame As Object + Dim sSize As new com.sun.star.awt.Size + + oDoc = utils.createDocument("swriter", cObjectName) + + oGrphObj = oDoc.createInstance("com.sun.star.text.GraphicObject") + aFrame = oDoc.createInstance("com.sun.star.text.TextFrame") + sSize.Height = 8000 + sSize.Width = 8000 + aFrame.Size = sSize + + oDoc.Text.insertTextContent(oDoc.Text.createTextCursor, aFrame, false) + aFrame.Text.insertTextContent(aFrame.Text.createTextCursor, oGrphObj, false) + + oGrphObj.setPropertyValue("GraphicURL", Path2URL(cTestDocsDir + "space-metal.jpg")) + oGrphObj.setPropertyValue("HoriOrientPosition", 5500) + oGrphObj.setPropertyValue("VertOrientPosition", 4200) + oGrphObj.setPropertyValue("Width", 4400) + oGrphObj.setPropertyValue("Height", 4000) + + oComponentInstance = oDoc.createInstance("com.sun.star.text.GraphicObject") + oDoc.Text.insertTextContent(oDoc.Text.createTextCursor, oComponentInstance, false) + + oObj = oGrphObj + + oXTextContent = oDoc.createInstance("com.sun.star.text.GraphicObject") + oXTextContentRange = oDoc.Text.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/script.xlb new file mode 100644 index 000000000000..39f788929114 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextGraphicObjects" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextGraphicObjects"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/sw_SwXTextGraphicObjects.xba b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/sw_SwXTextGraphicObjects.xba new file mode 100644 index 000000000000..11ace85e0b12 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextGraphicObjects/sw_SwXTextGraphicObjects.xba @@ -0,0 +1,64 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextGraphicObjects" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextGraphicObjects +'************************************************************************* +On Error Goto ErrHndl + Dim oGrphObj As Object + oDoc = utils.createDocument("swriter", cObjectName) + + oGrphObj = oDoc.createInstance("com.sun.star.text.GraphicObject") + oDoc.Text.insertTextContent(oDoc.Text.createTextCursor, oGrphObj, false) + oGrphObj.setPropertyValue("GraphicURL", Path2URL(cTestDocsDir & "space-metal.jpg")) + oGrphObj.setPropertyValue("HoriOrientPosition", 5500) + oGrphObj.setPropertyValue("VertOrientPosition", 4200) + oGrphObj.setPropertyValue("Width", 4400) + oGrphObj.setPropertyValue("Height", 4000) + + oObj = oDoc.getGraphicObjects() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextPortion/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextPortion/script.xlb new file mode 100644 index 000000000000..793298c77d64 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextPortion/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextPortion" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextPortion"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextPortion/sw_SwXTextPortion.xba b/qadevOOo/tests/basic/mod/sw/SwXTextPortion/sw_SwXTextPortion.xba new file mode 100644 index 000000000000..fc9afdc91ed7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextPortion/sw_SwXTextPortion.xba @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextPortion" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextPortion +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim oEnum As Object + Dim oPortionEnum As Object + Dim i As Integer + Dim j As Integer + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + ' write some strings to document + for j = 1 to 3 + for i = 1 to 3 + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor, "Paragraph " & j & "; Line " & i, false) + oDoc.Text.insertControlCharacter(oCursor, com.sun.star.text.ControlCharacter.LINE_BREAK, false) + next i + oDoc.Text.insertControlCharacter(oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, false) + next j + + oEnum = oDoc.Text.createEnumeration() + oPortionEnum = oEnum.nextElement().createEnumeration() + oObj = oPortionEnum.nextElement() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/script.xlb new file mode 100644 index 000000000000..591c408f617a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextPortionEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextPortionEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/sw_SwXTextPortionEnumeration.xba b/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/sw_SwXTextPortionEnumeration.xba new file mode 100644 index 000000000000..b13b741d6c80 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextPortionEnumeration/sw_SwXTextPortionEnumeration.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextPortionEnumeration" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextPortionEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oText = oDoc.Text + oCursor = oText.createTextCursor() + for i = 1 to 10 + oText.insertString(oCursor, "Paragraph: " + i, false) + oText.insertControlCharacter(oCursor, LINE_BREAK, false) + oText.insertString(oCursor, "Line of paragraph: " + i, false) + oText.insertControlCharacter(oCursor, PARAGRAPH_BREAK, false) + next i + + oObj = oText.createEnumeration().nextElement().createEnumeration() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextRange/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextRange/script.xlb new file mode 100644 index 000000000000..923ed071a980 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextRange/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextRange" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextRange"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextRange/sw_SwXTextRange.xba b/qadevOOo/tests/basic/mod/sw/SwXTextRange/sw_SwXTextRange.xba new file mode 100644 index 000000000000..35eda7bcd453 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextRange/sw_SwXTextRange.xba @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextRange" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextRange +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + oObj = oCursor.Start +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextRanges/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextRanges/script.xlb new file mode 100644 index 000000000000..5e9403560fd0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextRanges/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextRanges" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextRanges"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextRanges/sw_SwXTextRanges.xba b/qadevOOo/tests/basic/mod/sw/SwXTextRanges/sw_SwXTextRanges.xba new file mode 100644 index 000000000000..44b6b334240b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextRanges/sw_SwXTextRanges.xba @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextRanges" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextRanges +'************************************************************************* +On Error Goto ErrHndl + Dim cText As String + Dim oCursor As Object + Dim i As Integer + Dim oSearch As Object + Dim oResult As Object + + oDoc = utils.createDocument("swriter", cObjectName) + cText = ". Zeile : Test aus " + cObjectName + oCursor = oDoc.Text.createTextCursor() + + nGlobalLong = 10 + + ' write some strings to document + for i = 1 to nGlobalLong + oCursor.gotoEnd(false) + oDoc.Text.insertString(oCursor, Trim(Str(i)) & cText, false) + oDoc.Text.insertControlCharacter(oCursor, 0, false) + next i + + oSearch = oDoc.createSearchDescriptor() + oSearch.searchString = cObjectName + oResult = oDoc.findAll(oSearch) + + oObj = oResult +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSearch/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextSearch/script.xlb new file mode 100644 index 000000000000..894b946c4865 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSearch/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextSearch" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextSearch"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSearch/sw_SwXTextSearch.xba b/qadevOOo/tests/basic/mod/sw/SwXTextSearch/sw_SwXTextSearch.xba new file mode 100644 index 000000000000..0dd2e80519b1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSearch/sw_SwXTextSearch.xba @@ -0,0 +1,58 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextSearch" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextSearch +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oObj = oDoc.createSearchDescriptor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSection/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextSection/script.xlb new file mode 100644 index 000000000000..6c89c97005a1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSection/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextSection" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextSection"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSection/sw_SwXTextSection.xba b/qadevOOo/tests/basic/mod/sw/SwXTextSection/sw_SwXTextSection.xba new file mode 100644 index 000000000000..1fc5c970e042 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSection/sw_SwXTextSection.xba @@ -0,0 +1,103 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextSection" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.container.XNamed + Global cNameToSet As String ' "fixed" if name is fixed + +' Requiered for com.sun.star.lang.XComponent + Global oComponentInstance As Object ' it will be disposed + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextSection +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oInstance As Object, oCursor As Object, oSectionText As Object + + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oInstance = oDoc.createInstance("com.sun.star.text.TextSection") + oInstance.Name = cObjectName + "1" + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oComponentInstance = oInstance + + oInstance = oDoc.createInstance("com.sun.star.text.TextSection") + oInstance.Name = cObjectName + "2" + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oCursor = oDoc.Text.createTextCursorByRange(oInstance.Anchor) + oDoc.Text.insertString(oCursor, "TextSection 2", false) + oCursor.gotoPreviousWord(false) + + oInstance = oDoc.createInstance("com.sun.star.text.TextSection") + oInstance.Name = cObjectName + "3" + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oCursor = oDoc.Text.createTextCursorByRange(oInstance.Anchor) + oDoc.Text.insertString(oCursor, "TextSection 3", false) + oCursor.gotoPreviousWord(false) + + oObj = oInstance + + oInstance = oDoc.createInstance("com.sun.star.text.TextSection") + oInstance.Name = cObjectName + "4" + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oCursor = oDoc.Text.createTextCursorByRange(oInstance.Anchor) + oDoc.Text.insertString(oCursor, "TextSection 4", false) + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextSection") + oXTextContentRange = oDoc.Text.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSections/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextSections/script.xlb new file mode 100644 index 000000000000..4dcd74399532 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSections/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextSections" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextSections"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextSections/sw_SwXTextSections.xba b/qadevOOo/tests/basic/mod/sw/SwXTextSections/sw_SwXTextSections.xba new file mode 100644 index 000000000000..f02653aba248 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextSections/sw_SwXTextSections.xba @@ -0,0 +1,77 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextSections" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +Global nGlobalLong As Long + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextSections +'************************************************************************* +On Error Goto ErrHndl + + + Dim bOK As Boolean + bOK = true + ' --- create a document if needed + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + nGlobalLong = 4 + + for i = 1 to nGlobalLong + oInstance = oDoc.createInstance("com.sun.star.text.TextSection") + + oInstance.Name = cObjectName & i + ' insert Textsection + oDoc.Text.insertTextContent(oCursor, oInstance, false) + next i + + oObj = oDoc.TextSections + + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTable/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextTable/script.xlb new file mode 100644 index 000000000000..1418e6c0577a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTable/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextTable" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextTable"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTable/sw_SwXTextTable.xba b/qadevOOo/tests/basic/mod/sw/SwXTextTable/sw_SwXTextTable.xba new file mode 100644 index 000000000000..71310fadb216 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTable/sw_SwXTextTable.xba @@ -0,0 +1,148 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextTable" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.lang.XComponent + Global oComponentInstance As Object ' it will be disposed + +' Requiered for com.sun.star.chart.XChartData + Global oCellToChange As Object + +' Requiered for com.sun.star.container.XNamed + Global cNameToSet As String ' "fixed" if name is fixed + +' Requiered for com.sun.star.chart.XChartDataArray +' Requiered for com.sun.star.text.XTextTable + Global nTableW As Integer + Global nTableH As Integer + +'Required for sheet.XCellRangeData +Global newData As Variant + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextTable +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim i As Integer + Dim oInstance As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + nTableH = 5 + nTableW = 7 + + for i = 1 to 2 + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oInstance.initialize(nTableH, nTableW) + oInstance.Name = "Table" + i + ' insert created Table + oDoc.Text.insertTextContent(oCursor, oInstance, false) + if (i = 1) then oComponentInstance = oInstance + next i + + oObj = oInstance + oCellToChange = oObj.getCellByPosition(3, 4) + cNameToSet = "NewTableName" + + 'Required for XCellRangeData + newData() = Array(_ + Array(2.5, 5.0, 2.5, 5.0, 3.0, 2.0, 1.0),_ + Array(4.0, 9.0, 2.5, 5.0, 4.0, 1.0, 2.0),_ + Array(2.5, 5.0, 2.5, 5.0, 3.0, 2.0, 1.0),_ + Array(2.5, 5.0, 2.5, 5.0, 7.0, 7.0, 8.0),_ + Array(4.0, 9.0, 2.5, 5.0, 4.0, 3.0, 2.0)) + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextTable") + oXTextContentRange = oDoc.Text.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function modifyDescriptor(descr As Variant) As Variant +On Error Goto ErrHndl + Dim i As Integer, oCell As Object + + for i = 0 to nTableW - 1 + oCell = oObj.getCellByPosition(i, 0) + oCell.String = "" + (nTableW - i) + next i + + for i = 0 to ubound(descr) + if descr(i).Name = "SortAscending" then descr(i).Value = true + if descr(i).Name = "SortColumns" then descr(i).Value = true + next i + + modifyDescriptor() = descr +Exit Function +ErrHndl: + Out.Log("Exception in SwXTextTable.modifyDescriptor() :") + Test.Exception() +end Function + +Function checkSort() As Boolean +On Error Goto ErrHndl + Dim i As Integer, oCell As Object + Dim bOK As Boolean + + bOK = true + for i = 0 to nTableW - 1 + oCell = oObj.getCellByPosition(i, 0) + bOK = bOK AND oCell.String = "" + (i + 1) + next i + + checkSort() = bOK +Exit Function +ErrHndl: + Out.Log("Exception in SwXTextTable.checkSort() :") + Test.Exception() +end Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/script.xlb new file mode 100644 index 000000000000..dc9e3530f926 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextTableCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextTableCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/sw_SwXTextTableCursor.xba b/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/sw_SwXTextTableCursor.xba new file mode 100644 index 000000000000..eaf73876b835 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTableCursor/sw_SwXTextTableCursor.xba @@ -0,0 +1,64 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextTableCursor" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextTableCursor +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oTable = oDoc.createInstance("com.sun.star.text.TextTable") + oTable.initialize(5, 5) + oDoc.Text.insertTextContent(oCursor, oTable, false) + + oObj = oTable.createCursorByCellName("A1") + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/script.xlb new file mode 100644 index 000000000000..01011c67f255 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextTableRow" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextTableRow"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/sw_SwXTextTableRow.xba b/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/sw_SwXTextTableRow.xba new file mode 100644 index 000000000000..e11495a7495f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTableRow/sw_SwXTextTableRow.xba @@ -0,0 +1,64 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextTableRow" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextTableRow +'************************************************************************* +On Error Goto ErrHndl + Dim oCursor As Object + Dim oInstance As Object + + oDoc = utils.createDocument("swriter", cObjectName) + oCursor = oDoc.Text.createTextCursor() + + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + oInstance.initialize(5, 5) + oInstance.Name = "SwXTextTableRow" + + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oObj = oInstance.Rows.getByIndex(0) +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTables/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextTables/script.xlb new file mode 100644 index 000000000000..1b9a3b2459a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTables/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextTables" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextTables"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextTables/sw_SwXTextTables.xba b/qadevOOo/tests/basic/mod/sw/SwXTextTables/sw_SwXTextTables.xba new file mode 100644 index 000000000000..991fdc5b43e4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextTables/sw_SwXTextTables.xba @@ -0,0 +1,77 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextTables" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextTables +'************************************************************************* +On Error Goto ErrHndl + Dim nRows As Long + Dim nCols As Long + Dim oCursor As Object + Dim i As Integer + Dim oInstance As Object + + oDoc = utils.createDocument("swriter", cObjectName) + + nRows = 5 + nCols = 5 + + oCursor = oDoc.Text.createTextCursor() + + for i = 1 to 3 + oInstance = oDoc.createInstance("com.sun.star.text.TextTable") + + oInstance.initialize(nRows, nCols) + nRows = nRows + 1 + nCols = nCols + 1 + + oDoc.Text.insertTextContent(oCursor, oInstance, false) + oInstance.Name = "SwXTextTables" & i + next i + + oObj = oDoc.TextTables +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextView/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextView/script.xlb new file mode 100644 index 000000000000..0ced71e88a70 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextView/sw_SwXTextView.xba b/qadevOOo/tests/basic/mod/sw/SwXTextView/sw_SwXTextView.xba new file mode 100644 index 000000000000..d87ff9a535e0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextView/sw_SwXTextView.xba @@ -0,0 +1,120 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextView" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for XControlAccess + Global oControlModel As Object + +' Requiered for com.sun.star.view.XSelectionSupplier + Global SelectableObj1 As Object + Global SelectableObj2 As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextView +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oCursor = oDoc.Text.createTextCursor() + + oCursor.gotoStart(false) + + oObj = oDoc.CurrentController + + oDoc.Text.String = "This is a string for " & cObjectName + + SelectableObj1 = oDoc.Text.CreateTextCursor() + SelectableObj1.goRight(5, true) + + SelectableObj2 = oDoc.Text.CreateTextCursor() + SelectableObj2.goRight(8, false) + SelectableObj2.goRight(10, true) + + + addControl(oCursor, 2000, 4000, cObjectName) + oControlModel = oDoc.Drawpage.Forms(0).getByName(cObjectName) + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub addControl( oCursor as Object, nPointX as Integer, nPointY as Integer, sName as String ) + + Dim oDrawPage As Object + Dim oForm, oForms As Object + Dim oControl, oControlShape As Object + Dim aSz As Variant + Dim oText As Object + + oDrawPage = oDoc.DrawPage + oControlShape = oDoc.createInstance( "com.sun.star.drawing.ControlShape" ) + oControl = oDoc.createInstance( "com.sun.star.form.component.CommandButton" ) + oForm = oDoc.createInstance( "com.sun.star.form.component.Form" ) + oforms = oDrawPage.Forms + + if oForms.count = 0 then + oForms.InsertByIndex( 0, oForm ) + end if + + aSz = oControlShape.Size + aSz.Width = 2900 + aSz.Height = 1200 + oControlShape.Size = aSz + oControlShape.Control = oControl + + oControlShape.TextRange = oCursor.Start + apoint = ocontrolshape.position + apoint.x = nPointX + aPoint.y = nPointY + ocontrolshape.position = aPoint + oDrawPage.add( oControlShape ) + if sName <> "" then + oControl.Name = sName + end if + +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/script.xlb new file mode 100644 index 000000000000..a4c056732da2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXTextViewCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXTextViewCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/sw_SwXTextViewCursor.xba b/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/sw_SwXTextViewCursor.xba new file mode 100644 index 000000000000..31e1ead40574 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXTextViewCursor/sw_SwXTextViewCursor.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXTextViewCursor" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.text.XParagraphCursor +Global oText As Object + +' Requiered for com.sun.star.text.XTextCursor +Global oCursor As Object 'One more cursor + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXTextViewCursor +'************************************************************************* +On Error Goto ErrHndl + Dim oController As Object + + oDoc = utils.loadTestDocument("XPageCursor.sdw") + oController = oDoc.getCurrentController() + oObj = oController.getViewCursor() + oCursor = oController.getViewCursor() + oText = oDoc.Text +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/SwXViewSettings/script.xlb b/qadevOOo/tests/basic/mod/sw/SwXViewSettings/script.xlb new file mode 100644 index 000000000000..9077adcd6e7e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXViewSettings/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_SwXViewSettings" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_SwXViewSettings"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/SwXViewSettings/sw_SwXViewSettings.xba b/qadevOOo/tests/basic/mod/sw/SwXViewSettings/sw_SwXViewSettings.xba new file mode 100644 index 000000000000..85837b39e2e9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/SwXViewSettings/sw_SwXViewSettings.xba @@ -0,0 +1,58 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_SwXViewSettings" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.SwXViewSettings +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("swriter", cObjectName) + + oController = oDoc.getCurrentController + oObj = oController.getViewSettings + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLContentExporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLContentExporter/script.xlb new file mode 100644 index 000000000000..8bd9067903eb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLContentExporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLContentExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLContentExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLContentExporter/sw_XMLContentExporter.xba b/qadevOOo/tests/basic/mod/sw/XMLContentExporter/sw_XMLContentExporter.xba new file mode 100644 index 000000000000..45d95fbb5146 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLContentExporter/sw_XMLContentExporter.xba @@ -0,0 +1,119 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLContentExporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XInitialization: + Global aInitArgs() As Variant + +' Required for com.sun.star.document.XFilter: + Global oFilterDescriptor As Variant + +' Required for com.sun.star.document.XExporter: + Global oSrcDocument As Object + +' Required for com.sun.star.container.XNamed: +Global cNameToSet As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLContentExporter +'************************************************************************* +On Error Goto ErrHndl + Dim initArgs(0) As Object + Dim oMSF As Object + Dim filter As Variant + Dim printXML As Boolean + Dim Tag1, Tag2, Tag3, Tag4 As Variant + Dim expString As String + Dim oText As Object + Dim oCursor As Object + + printXML = true + expString = "XMLContentExporter" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("swriter", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-content") + Tag2 = Array("office:body") + Tag3 = Array("office:script") + Tag4 = Array("text:p") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("TagEnclosed", Tag3, Tag1), _ + Array("CharsEnclosed", Tag4, expString) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Writer.XMLContentExporter", initArgs()) + + oText = oDoc.getText() + oCursor = oText.createTextCursor() + oText.insertString(oCursor, expString, false) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "swriter: StarOffice XML (text)" + oFilterDescriptor = aFilterDescr() + + oSrcDocument = oDoc + cNameToSet = "fixed" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Global oDocHandler As Object + +Function checkFilter() As Boolean + checkFilter = oDocHandler.getByName("XMLIsCorrect") + Out.Log(oDocHandler.getByName("XMLCode")) +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLContentImporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLContentImporter/script.xlb new file mode 100644 index 000000000000..4fa50c70ecf3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLContentImporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLContentImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLContentImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLContentImporter/sw_XMLContentImporter.xba b/qadevOOo/tests/basic/mod/sw/XMLContentImporter/sw_XMLContentImporter.xba new file mode 100644 index 000000000000..fe477d7238d4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLContentImporter/sw_XMLContentImporter.xba @@ -0,0 +1,90 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLContentImporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.xml.sax.XDocumentHandler + Global vXMLData As Variant + +' Required for procedure CheckImport + Global sText As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLContentImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = createUnoService("com.sun.star.comp.Writer.XMLContentImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sText = "XMLContentImporter test." + vXMLData = Array( _ + Array("start", "office:document-content", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:text", "CDATA", "http://openoffice.org/2000/text"), _ + Array("start", "office:body"), _ + Array("start", "text:p"), _ + Array("chars", sText), _ + Array("end", "text:p"), _ + Array("end", "office:body"), _ + Array("end", "office:document-content")) +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function CheckImport() As Boolean + Dim res As Boolean + Dim content As String + out.log("checking of import...") + content = oDoc.getText().getString() + res = (sText = content) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLExporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLExporter/script.xlb new file mode 100644 index 000000000000..697892881dbe --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLExporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLExporter/sw_XMLExporter.xba b/qadevOOo/tests/basic/mod/sw/XMLExporter/sw_XMLExporter.xba new file mode 100644 index 000000000000..9f0c3788f0a7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLExporter/sw_XMLExporter.xba @@ -0,0 +1,121 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLExporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XInitialization: + Global aInitArgs() As Variant + +' Required for com.sun.star.document.XFilter: + Global oFilterDescriptor As Variant + +' Required for com.sun.star.document.XExporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLExporter +'************************************************************************* +On Error Goto ErrHndl + Dim initArgs(0) As Object + Dim oMSF As Object + Dim filter As Variant + Dim printXML As Boolean + Dim Tag1, Tag2, Tag3, Tag4, Tag5, Tag6, Tag7 As Variant + Dim expString As String + Dim oText As Object + Dim oCursor As Object + + printXML = true + expString = "XMLExporter" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("swriter", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document") + Tag2 = Array("office:meta") + Tag3 = Array("office:settings") + Tag4 = Array("office:script") + Tag5 = Array("office:styles") + Tag6 = Array("office:body") + Tag7 = Array("text:p") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("TagEnclosed", Tag3, Tag1), _ + Array("TagEnclosed", Tag4, Tag1), _ + Array("TagEnclosed", Tag5, Tag1), _ + Array("TagEnclosed", Tag6, Tag1), _ + Array("CharsEnclosed", Tag7, expString) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Writer.XMLExporter", initArgs()) + + oText = oDoc.getText() + oCursor = oText.createTextCursor() + oText.insertString(oCursor, expString, false) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "swriter: StarOffice XML (text)" + oFilterDescriptor = aFilterDescr() + + oSrcDocument = oDoc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Global oDocHandler As Object + +Function checkFilter() As Boolean + checkFilter = oDocHandler.getByName("XMLIsCorrect") + Out.Log(oDocHandler.getByName("XMLCode")) +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLImporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLImporter/script.xlb new file mode 100644 index 000000000000..34a3f4ed435d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLImporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLImporter/sw_XMLImporter.xba b/qadevOOo/tests/basic/mod/sw/XMLImporter/sw_XMLImporter.xba new file mode 100644 index 000000000000..04626fea34b7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLImporter/sw_XMLImporter.xba @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLImporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.xml.sax.XDocumentHandler + Global vXMLData As Variant + +' Required for procedure CheckImport + Global sText As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = createUnoService("com.sun.star.comp.Writer.XMLImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sText = "XMLImporter test." + vXMLData = Array( _ + Array("start", "office:document", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "office:class", "CDATA", "text", _ + "xmlns:text", "CDATA", "http://openoffice.org/2000/text"), _ + Array("start", "office:body"), _ + Array("start", "text:p"), _ + Array("chars", sText), _ + Array("end", "text:p"), _ + Array("end", "office:body"), _ + Array("end", "office:document")) +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function CheckImport() As Boolean + Dim res As Boolean + Dim content As String + out.log("checking of import...") + content = oDoc.getText().getString() + res = (sText = content) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/script.xlb new file mode 100644 index 000000000000..f53697434793 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLMetaExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLMetaExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/sw_XMLMetaExporter.xba b/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/sw_XMLMetaExporter.xba new file mode 100644 index 000000000000..fa9a25de78dc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLMetaExporter/sw_XMLMetaExporter.xba @@ -0,0 +1,111 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLMetaExporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XInitialization: + Global aInitArgs() As Variant + +' Required for com.sun.star.document.XFilter: + Global oFilterDescriptor As Variant + +' Required for com.sun.star.document.XExporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLMetaExporter +'************************************************************************* +On Error Goto ErrHndl + Dim initArgs(0) As Object + Dim oMSF As Object + Dim filter As Variant + Dim printXML As Boolean + Dim Tag1, Tag2, Tag3 As Variant + Dim expString As String + Dim oDocInfo As Object + + printXML = true + expString = "NewTitleOfTextDocument" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("swriter", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-meta") + Tag2 = Array("office:meta") + Tag3 = Array("dc:title") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("CharsEnclosed", Tag3, expString) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Writer.XMLMetaExporter", initArgs()) + + oDocInfo = oDoc.getDocumentInfo() + oDocInfo.setPropertyValue("Title", expString) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "swriter: StarOffice XML (text)" + oFilterDescriptor = aFilterDescr() + + oSrcDocument = oDoc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Global oDocHandler As Object + +Function checkFilter() As Boolean + checkFilter = oDocHandler.getByName("XMLIsCorrect") + Out.Log(oDocHandler.getByName("XMLCode")) +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/script.xlb new file mode 100644 index 000000000000..2059e3faabaa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLMetaImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLMetaImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/sw_XMLMetaImporter.xba b/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/sw_XMLMetaImporter.xba new file mode 100644 index 000000000000..784c0d809180 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLMetaImporter/sw_XMLMetaImporter.xba @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLMetaImporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.xml.sax.XDocumentHandler + Global vXMLData As Variant + +' Required for procedure CheckImport + Global sTitle As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLMetaImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = createUnoService("com.sun.star.comp.Writer.XMLImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sTitle = "XMLMetaImporter test" + vXMLData = Array( _ + Array("start", "office:document-meta" , _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:dc", "CDATA", "http://purl.org/dc/elements/1.1/"), _ + Array("start", "office:meta"), _ + Array("start", "dc:title"), _ + Array("chars", sTitle), _ + Array("end", "dc:title"), _ + Array("end", "office:meta"), _ + Array("end", "office:document-meta")) +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function CheckImport() As Boolean + Dim res As Boolean + Dim oDocInfo As Object + Dim title As String + out.log("checking of import...") + oDocInfo = oDoc.getDocumentInfo() + title = oDocInfo.getPropertyValue("Title") + res = (title = sTitle) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/script.xlb new file mode 100644 index 000000000000..57e50a9dbc8b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLSettingsExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLSettingsExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/sw_XMLSettingsExporter.xba b/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/sw_XMLSettingsExporter.xba new file mode 100644 index 000000000000..0a014967bab1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLSettingsExporter/sw_XMLSettingsExporter.xba @@ -0,0 +1,113 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLSettingsExporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XInitialization: + Global aInitArgs() As Variant + +' Required for com.sun.star.document.XFilter: + Global oFilterDescriptor As Variant + +' Required for com.sun.star.document.XExporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLSettingsExporter +'************************************************************************* +On Error Goto ErrHndl + Dim initArgs(0) As Object + Dim oMSF As Object + Dim filter As Variant + Dim printXML As Boolean + Dim Tag1, Tag2, Tag3 As Variant + Dim zoomValue As Long + Dim oController As Object + Dim oViewSettings As Object + + printXML = true + zoomValue = 50 + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("swriter", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-settings") + Tag2 = Array("office:settings") + Tag3 = Array("config:config-item", "config:name", "ZoomFactor") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("CharsEnclosed", Tag3, ""+zoomValue) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Writer.XMLSettingsExporter", initArgs()) + + oController = oDoc.getCurrentController() + oViewSettings = oController.getViewSettings() + oViewSettings.setPropertyValue("ZoomValue", zoomValue) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "swriter: StarOffice XML (text)" + oFilterDescriptor = aFilterDescr() + + oSrcDocument = oDoc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Global oDocHandler As Object + +Function checkFilter() As Boolean + checkFilter = oDocHandler.getByName("XMLIsCorrect") + Out.Log(oDocHandler.getByName("XMLCode")) +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/script.xlb new file mode 100644 index 000000000000..ad0336242426 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLSettingsImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLSettingsImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/sw_XMLSettingsImporter.xba b/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/sw_XMLSettingsImporter.xba new file mode 100644 index 000000000000..e1400be9e074 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLSettingsImporter/sw_XMLSettingsImporter.xba @@ -0,0 +1,110 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLSettingsImporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.xml.sax.XDocumentHandler + Global vXMLData As Variant + +' Required for procedure CheckImport + Global sZoom As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLSettingsImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = createUnoService("com.sun.star.comp.Writer.XMLSettingsImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sZoom = "50" + vXMLData = Array( _ + Array("start", "office:document-settings", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:config", "CDATA", "http://openoffice.org/2001/config", _ + "xmlns:xlink", "CDATA", "http://www.w3.org/1999/xlink"), _ + Array("start", "office:settings"), _ + Array("start", "config:config-item-set", _ + "config:name", "CDATA", "view-settings"), _ + Array("start", "config:config-item-map-indexed", _ + "config:name", "CDATA", "Views"), _ + Array("start", "config:config-item-map-entry"), _ + Array("start", "config:config-item", _ + "config:name", "CDATA", "ZoomFactor", _ + "config:type", "CDATA", "short"), _ + Array("chars", sZoom), _ + Array("end", "config:config-item"), _ + Array("start", "config:config-item", _ + "config:name", "CDATA", "ZoomType", _ + "config:type", "CDATA", "short"), _ + Array("chars", "0"), _ + Array("end", "config:config-item"), _ + Array("end", "config:config-item-map-entry"), _ + Array("end", "config:config-item-map-indexed"), _ + Array("end", "config:config-item-set"), _ + Array("end", "office:settings"), _ + Array("end", "office:document-settings")) +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function CheckImport() As Boolean + Dim res As Boolean + Dim oController, oViewSettings As Object + Dim zoom As String + out.log("checking of import...") + oController = oDoc.getCurrentController() + oViewSettings = oController.getViewSettings() + zoom = oViewSettings.getPropertyValue("ZoomValue") + out.log("ZoomValue: " + zoom) + res = (zoom = sZoom) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/script.xlb new file mode 100644 index 000000000000..c23fb12e8b86 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLStylesExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLStylesExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/sw_XMLStylesExporter.xba b/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/sw_XMLStylesExporter.xba new file mode 100644 index 000000000000..fd44f50117cc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLStylesExporter/sw_XMLStylesExporter.xba @@ -0,0 +1,106 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLStylesExporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.lang.XInitialization: + Global aInitArgs() As Variant + +' Required for com.sun.star.document.XFilter: + Global oFilterDescriptor As Variant + +' Required for com.sun.star.document.XExporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLStylesExporter +'************************************************************************* +On Error Goto ErrHndl + Dim initArgs(0) As Object + Dim oMSF As Object + Dim filter As Variant + Dim printXML As Boolean + Dim Tag1, Tag2 As Variant + Dim expString As String + Dim oFootnoteSettings As Object + + printXML = true + expString = "New Property" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("swriter", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-styles") + Tag2 = Array("text:footnotes-configuration", "style:num-prefix", expString) + filter = Array(Array("TagExists", Tag1, Tag2)) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Writer.XMLStylesExporter", initArgs()) + + oFootnoteSettings = oDoc.getFootnoteSettings() + oFootnoteSettings.setPropertyValue("Prefix", expString) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "swriter: StarOffice XML (text)" + oFilterDescriptor = aFilterDescr() + + oSrcDocument = oDoc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Global oDocHandler As Object + +Function checkFilter() As Boolean + checkFilter = oDocHandler.getByName("XMLIsCorrect") + Out.Log(oDocHandler.getByName("XMLCode")) +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/script.xlb b/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/script.xlb new file mode 100644 index 000000000000..586bd5fcdd77 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="sw_XMLStylesImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sw_XMLStylesImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/sw_XMLStylesImporter.xba b/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/sw_XMLStylesImporter.xba new file mode 100644 index 000000000000..050b85faea26 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sw/XMLStylesImporter/sw_XMLStylesImporter.xba @@ -0,0 +1,93 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sw_XMLStylesImporter" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Required for com.sun.star.xml.sax.XDocumentHandler + Global vXMLData As Variant + +' Required for procedure CheckImport + Global sPrefix As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sw.XMLStylesImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("swriter", cObjectName) + oObj = createUnoService("com.sun.star.comp.Writer.XMLStylesImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sPrefix = "Test prefix" + vXMLData = Array( _ + Array("start", "office:document-styles", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:style", "CDATA", "http://openoffice.org/2000/style", _ + "xmlns:text", "CDATA", "http://openoffice.org/2000/text"), _ + Array("start", "office:styles"), _ + Array("start", "text:footnotes-configuration", _ + "style:num-prefix", "CDATA", sPrefix), _ + Array("end", "text:footnotes-configuration"), _ + Array("end", "office:styles"), _ + Array("end", "office:document-styles")) +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function CheckImport() As Boolean + Dim res As Boolean + Dim oSettings As Object + Dim prefix As String + out.log("checking of import...") + oSettings = oDoc.getFootnoteSettings() + prefix = oSettings.getPropertyValue("Prefix") + res = (prefix = sPrefix) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> |