diff options
Diffstat (limited to 'qadevOOo/tests/basic/mod/sc')
224 files changed, 9580 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/sc_AccessibleEditableTextPara_HeaderFooter.xba b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/sc_AccessibleEditableTextPara_HeaderFooter.xba new file mode 100644 index 000000000000..e2cdce0cb2b5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/sc_AccessibleEditableTextPara_HeaderFooter.xba @@ -0,0 +1,99 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sc_AccessibleEditableTextPara_HeaderFooter" 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: + +' "com::sun::star::accessibility::XAccessibleEditableText#optional" + ' needs the following Global variables: +global hasChangeableAttrs as boolean + +' "com::sun::star::accessibility::XAccessibleSelection#optional" + ' needs the following Global variables: +' Global multiSelection As Boolean + +' "com::sun::star::accessibility::XAccessibleText" + ' needs the following Global variables: +global accText as String +Global readOnly as Boolean + +Global accButton as Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' com.sun.star.sc.AccessibleEditableTextPara_HeaderFooter +'************************************************************************* +On Error Goto ErrHndl + Dim oMSF As Object, oWin As Object + Dim thRunner As Object, xRoot As Object + Dim tk As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oMSF = getProcessServiceManager() + thRunner = oMSF.createInstance("basichelper.ThreadRunner") + tk = createUNOService("com.sun.star.awt.Toolkit") + wait(1000) + thRunner.initialize(Array("OpenToolkitDialog",".uno:EditHeaderAndFooter",oDoc)) + wait(1000) + oWin = tk.getActiveTopWindow() + xRoot = utils.at_getAccessibleObject(oWin) +' utils.at_printAccessibleTree(xRoot) + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.PARAGRAPH,"Paragraph 0") + accButton = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel") + accText = "My AccessibleEditableTextPara_HeaderFooter text" + oObj.setText(accText) + readOnly = false + + hasChangeableAttrs = false + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + Dim myText as String + myText = oObj.getText() + oObj.setText(myText + "dummy") + wait(1000) + oObj.setText(myText) + wait(1000) + accButton.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/script.xlb b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/script.xlb new file mode 100644 index 000000000000..3b36862130f2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_HeaderFooter/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="sc_AccessibleEditableTextPara_HeaderFooter" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="sc_AccessibleEditableTextPara_HeaderFooter"/> + </library:library> diff --git a/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/sc_AccessibleEditableTextPara_PreviewCell.xba b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/sc_AccessibleEditableTextPara_PreviewCell.xba new file mode 100644 index 000000000000..c844bc7a607d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/sc_AccessibleEditableTextPara_PreviewCell.xba @@ -0,0 +1,109 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sc_AccessibleEditableTextPara_PreviewCell" 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: + +' "com::sun::star::accessibility::XAccessibleEventBroadcaster" + ' needs the following Global variables: + +' "com::sun::star::accessibility::XAccessibleEditableText#optional" + ' needs the following Global variables: + ' global hasChangeableAttrs as boolean + +' "com::sun::star::accessibility::XAccessibleSelection#optional" + ' needs the following Global variables: + ' Global multiSelection As Boolean + +' "com::sun::star::accessibility::XAccessibleText" + ' needs the following Global variables: +Global accText as String +Global readOnly as Boolean + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' com.sun.star.sc.AccessibleEditableTextPara_PreviewCell +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + + accText = "ScAccessibleEditableTextPara_PreviewCell" + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula(accText) + + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + wait(500) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + ' get the first cell + xRoot = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.TABLE_CELL,"Cell A1") + ' the the Paragraph + oObj = utils.at_getAccessibleObjectForRole(xRoot, _ + com.sun.star.accessibility.AccessibleRole.PARAGRAPH,"Paragraph 0") + utils.at_printAccessibleTree(xRoot) + readOnly = true + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +Sub fireEvent() + Dim dispatcher as Object + dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") + + rem ---------------------------------------------------------------------- + dispatcher.executeDispatch(oDoc.CurrentController.Frame, ".uno:ZoomIn", "", 0, Array()) + wait(500) + rem ---------------------------------------------------------------------- + dispatcher.executeDispatch(oDoc.CurrentController.Frame, ".uno:ZoomOut", "", 0, Array()) +end Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/script.xlb b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/script.xlb new file mode 100644 index 000000000000..8c7e38f9c97c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/AccessibleEditableTextPara_PreviewCell/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="sc_AccessibleEditableTextPara_PreviewCell" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="sc_AccessibleEditableTextPara_PreviewCell"/> + </library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/sc_ScAccessibleCell.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/sc_ScAccessibleCell.xba new file mode 100644 index 000000000000..ea0312ef25e3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/sc_ScAccessibleCell.xba @@ -0,0 +1,69 @@ +<?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="sc_ScAccessibleCell" 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 accText As String +Global readOnly as Boolean + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleCell +'************************************************************************* +On Error Goto ErrHndl + Dim oWin As Object + Dim xRoot As Object, xCell As Object + + oDoc = utils.createDocument("scalc",cObjectName) + accText = "Testing object sc.ScAccessibleCell" + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(1,0) + xCell.setFormula(accText) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE_CELL,"B1") + readOnly = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/script.xlb new file mode 100644 index 000000000000..bcaaedb7e755 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCell/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="sc_ScAccessibleCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/sc_ScAccessibleCsvCell.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/sc_ScAccessibleCsvCell.xba new file mode 100644 index 000000000000..200bd87b790a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/sc_ScAccessibleCsvCell.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="sc_ScAccessibleCsvCell" 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 accText As String +Global accButton As Object +Global readOnly as Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleCsvCell +'************************************************************************* +On Error Goto ErrHndl + Dim oMSF As Object, oWin As Object + Dim thRunner As Object, xRoot As Object + Dim tk As Object, oParent As Object + + oMSF = getProcessServiceManager() + thRunner = oMSF.createInstance("basichelper.ThreadRunner") + tk = createUNOService("com.sun.star.awt.Toolkit") + wait(1000) + thRunner.initialize(Array("OpenDialogFromFile","10test.csv")) + wait(3000) + oWin = tk.getActiveTopWindow() + xRoot = utils.at_getAccessibleObject(oWin) + oParent = utils.at_getAccessibleObjectForRole(xRoot,_ + com.sun.star.accessibility.AccessibleRole.TABLE) + oObj = oParent.getAccessibleChild(3).getAccessibleContext() + Out.Log("Child: "+oObj.getAccessibleName()) + Out.Log("Implementation name: "+oObj.getImplementationName()) + accButton = utils.at_getAccessibleObjectForRole(xRoot,_ + com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel") + accText = oObj.getText() + readOnly = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNull(accButton) then + accButton.doAccessibleAction(0) + wait(1000) + End If +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/script.xlb new file mode 100644 index 000000000000..a60430d23b5c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvCell/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="sc_ScAccessibleCsvCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleCsvCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/sc_ScAccessibleCsvGrid.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/sc_ScAccessibleCsvGrid.xba new file mode 100644 index 000000000000..66dc29ca3dd2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/sc_ScAccessibleCsvGrid.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="sc_ScAccessibleCsvGrid" 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 +Global accButton As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleCsvGrid +'************************************************************************* +On Error Goto ErrHndl + Dim oMSF As Object, oWin As Object + Dim thRunner As Object, xRoot As Object + Dim tk As Object + + oMSF = getProcessServiceManager() + thRunner = oMSF.createInstance("basichelper.ThreadRunner") + tk = createUNOService("com.sun.star.awt.Toolkit") + wait(1000) + thRunner.initialize(Array("OpenDialogFromFile","10test.csv")) + wait(3000) + oWin = tk.getActiveTopWindow() + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE) + Out.Log("Implementation name: "+oObj.getImplementationName()) + accButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel") + multiSelection = false + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNull(accButton) then + accButton.doAccessibleAction(0) + wait(1000) + End If +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/script.xlb new file mode 100644 index 000000000000..c01906dc9cf7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvGrid/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="sc_ScAccessibleCsvGrid" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleCsvGrid"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/sc_ScAccessibleCsvRuler.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/sc_ScAccessibleCsvRuler.xba new file mode 100644 index 000000000000..4e3ad1e21c18 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/sc_ScAccessibleCsvRuler.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="sc_ScAccessibleCsvRuler" 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 accButton As Object +Global accText As String +Global readOnly as Boolean + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleCsvRuler +'************************************************************************* +On Error Goto ErrHndl + Dim oMSF As Object, oWin As Object + Dim thRunner As Object, xRoot As Object + Dim tk As Object, accRB As Object + + oMSF = getProcessServiceManager() + thRunner = oMSF.createInstance("basichelper.ThreadRunner") + tk = createUNOService("com.sun.star.awt.Toolkit") + thRunner.initialize(Array("OpenDialogFromFile","10test.csv")) + wait(1000) + oWin = tk.getActiveTopWindow() + xRoot = utils.at_getAccessibleObject(oWin) + accButton = utils.at_getAccessibleObjectForRole(xRoot,_ + com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel") + accRB = utils.at_getAccessibleObjectForRole(xRoot,_ + com.sun.star.accessibility.AccessibleRole.RADIO_BUTTON,"Fixed") + accRB.doAccessibleAction(0) + wait(1000) + oObj = utils.at_getAccessibleObjectForRole(xRoot,_ + com.sun.star.accessibility.AccessibleRole.TEXT,"Ruler") + Out.Log("Implementation name: "+oObj.getImplementationName()) + accText = oObj.getText() + Out.Log("Text: "+accText) + readOnly = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNull(accButton) then + accButton.doAccessibleAction(0) + wait(1000) + End If +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/script.xlb new file mode 100644 index 000000000000..976e91250eb7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/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="sc_ScAccessibleCsvRuler" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleCsvRuler"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/sc_ScAccessibleDocument.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/sc_ScAccessibleDocument.xba new file mode 100644 index 000000000000..743c8ea54c77 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/sc_ScAccessibleDocument.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="sc_ScAccessibleDocument" 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 oWin As Object +Global multiSelection As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleDocument +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + + oDoc = utils.createDocument("scalc",cObjectName) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.DOCUMENT) + multiSelection = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oWin.setFocus() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/script.xlb new file mode 100644 index 000000000000..2ac95235aea5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocument/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="sc_ScAccessibleDocument" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleDocument"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/sc_ScAccessibleDocumentPagePreview.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/sc_ScAccessibleDocumentPagePreview.xba new file mode 100644 index 000000000000..782145294bfa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/sc_ScAccessibleDocumentPagePreview.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="sc_ScAccessibleDocumentPagePreview" 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 win As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleDocumentPagePreview +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(1).getCellByPosition(0,0) + xCell.setFormula("ScAccessibleDocumentPagePreview - Page 2") + xCell = oDoc.getSheets().getByIndex(2).getCellByPosition(0,0) + xCell.setFormula("ScAccessibleDocumentPagePreview - Page 3") + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessibleDocumentPagePreview - Page 1") + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.DOCUMENT) + win = oDoc.getCurrentController().getFrame().getComponentWindow() + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + Dim oRect As New com.sun.star.awt.Rectangle + oRect = win.getPosSize() + win.setPosSize(oRect.X,oRect.Y,oRect.Height-1,oRect.Width-1,15) + win.setPosSize(oRect.X,oRect.Y,oRect.Height,oRect.Width,15) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/script.xlb new file mode 100644 index 000000000000..05863e0ea819 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleDocumentPagePreview/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="sc_ScAccessibleDocumentPagePreview" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleDocumentPagePreview"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/sc_ScAccessiblePageHeader.xba b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/sc_ScAccessiblePageHeader.xba new file mode 100644 index 000000000000..44b3b4c29039 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/sc_ScAccessiblePageHeader.xba @@ -0,0 +1,100 @@ +<?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="sc_ScAccessiblePageHeader" 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 cLeft As Object +Global cRight As Object +Global cCenter As Object +Global oStyle As Object +Global RPHC2 As Object +Global textIndex As Integer + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessiblePageHeader +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + Dim RPHC As Variant + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessiblePageHeader") + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.HEADER) + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + oStyle = oDoc.getStyleFamilies().getByName("PageStyles").getByName("Default") + RPHC = oStyle.getPropertyValue("RightPageHeaderContent") + RPHC2 = RPHC + cLeft = RPHC2.getLeftText() + cRight = RPHC2.getRightText() + cCenter = RPHC2.getCenterText() + textIndex = 0 + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + cLeft.setString("LEFT"+textIndex) + cRight.setString("RIGHT"+textIndex) + cCenter.setString("CENTER"+textIndex) + oStyle.setPropertyValue("RightPageHeaderContent",RPHC2) + textIndex = textIndex + 1 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/script.xlb new file mode 100644 index 000000000000..a89b24f86daa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeader/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="sc_ScAccessiblePageHeader" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessiblePageHeader"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/sc_ScAccessiblePageHeaderArea.xba b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/sc_ScAccessiblePageHeaderArea.xba new file mode 100644 index 000000000000..71479b48e379 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/sc_ScAccessiblePageHeaderArea.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="sc_ScAccessiblePageHeaderArea" 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: +' sc.ScAccessiblePageHeaderArea +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xCell As Object, xController As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + Dim stateSet As Object + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessiblePageHeaderArea") + + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.HEADER).getAccessibleChild(0) + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + + stateSet = oObj.getAccessibleStateSet() + if (stateSet.contains(27)) then + Out.Log("Object is transient.") + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/script.xlb new file mode 100644 index 000000000000..c71e58e7d86f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePageHeaderArea/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="sc_ScAccessiblePageHeaderArea" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessiblePageHeaderArea"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/sc_ScAccessiblePreviewCell.xba b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/sc_ScAccessiblePreviewCell.xba new file mode 100644 index 000000000000..751e01e71482 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/sc_ScAccessiblePreviewCell.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="sc_ScAccessiblePreviewCell" 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: +' sc.ScAccessiblePreviewCell +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessiblePreviewCell") + + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + wait(500) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE_CELL) + multiSelection = true + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/script.xlb new file mode 100644 index 000000000000..334b9b6d9de2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewCell/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="sc_ScAccessiblePreviewCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessiblePreviewCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/sc_ScAccessiblePreviewHeaderCell.xba b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/sc_ScAccessiblePreviewHeaderCell.xba new file mode 100644 index 000000000000..1c7c54a23160 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/sc_ScAccessiblePreviewHeaderCell.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="sc_ScAccessiblePreviewHeaderCell" 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: +' sc.ScAccessiblePreviewHeaderCell +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + Dim oStyle As Object + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessiblePreviewHeaderCell") + oStyle = oDoc.getStyleFamilies().getByName("PageStyles").getByName("Default") + oStyle.setPropertyValue("PrintHeaders",true) + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE_CELL,"A") + Out.Log("Implementation name: "+oObj.getImplementationName()) + multiSelection = true + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/script.xlb new file mode 100644 index 000000000000..daf4facec606 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewHeaderCell/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="sc_ScAccessiblePreviewHeaderCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessiblePreviewHeaderCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/sc_ScAccessiblePreviewTable.xba b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/sc_ScAccessiblePreviewTable.xba new file mode 100644 index 000000000000..79c406d08113 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/sc_ScAccessiblePreviewTable.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="sc_ScAccessiblePreviewTable" 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: +' sc.ScAccessiblePreviewTable +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object, xDispatcher As Object + Dim xController As Object, xCell As Object + Dim url As New com.sun.star.util.URL + Dim urlTransformer As Object, oWin As Object + Dim noProps() + + oDoc = utils.createDocument("scalc",cObjectName) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0) + xCell.setFormula("ScAccessiblePreviewTable") + + xController = oDoc.getCurrentController() + urlTransformer = createUNOService("com.sun.star.util.URLTransformer") + url.Complete = ".uno:PrintPreview" + urlTransformer.parseStrict(url) + xDispatcher = xController.queryDispatch(url,"",0) + if (NOT isNull(xDispatcher)) then + xDispatcher.dispatch(url, noProps()) + wait(500) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE) + multiSelection = true + else + Out.Log("QueryDispatch FAILED. Cannot switch to Preview mode...") + Exit Sub + End If + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/script.xlb new file mode 100644 index 000000000000..15fe7ccbcc7e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessiblePreviewTable/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="sc_ScAccessiblePreviewTable" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessiblePreviewTable"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/sc_ScAccessibleSpreadsheet.xba b/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/sc_ScAccessibleSpreadsheet.xba new file mode 100644 index 000000000000..26a4030d0eed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/sc_ScAccessibleSpreadsheet.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="sc_ScAccessibleSpreadsheet" 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 + + +Global xCell As Object +Global evId As Integer +Global multiSelection As Boolean + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAccessibleSpreadsheet +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.createDocument("scalc",cObjectName) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TABLE) + xCell = oDoc.getSheets().getByIndex(0).getCellByPosition(2,2) + xCell.setFormula("ScAccessibleSpreadsheet") + evId = 1 + multiSelection = true + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + oDoc.dispose() +End Sub + +Sub fireEvent() + Dim outStr As String + outStr = " "+evId+" event(s) fired" + xCell.setFormula(outStr) + evId = evId + 1 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/script.xlb new file mode 100644 index 000000000000..2ba52eec6917 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAccessibleSpreadsheet/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="sc_ScAccessibleSpreadsheet" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAccessibleSpreadsheet"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/sc_ScAnnotationObj.xba b/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/sc_ScAnnotationObj.xba new file mode 100644 index 000000000000..4429028264f1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/sc_ScAnnotationObj.xba @@ -0,0 +1,63 @@ +<?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="sc_ScAnnotationObj" 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: +' sc.ScAnnotationObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet, oCell As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(1,1) + oObj = oCell.Annotation + oObj.setString("sheet_XSheetAnnotation") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/script.xlb new file mode 100644 index 000000000000..74cb4fa7e3f9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAnnotationObj/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="sc_ScAnnotationObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAnnotationObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/sc_ScAnnotationsObj.xba b/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/sc_ScAnnotationsObj.xba new file mode 100644 index 000000000000..7543de57f267 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/sc_ScAnnotationsObj.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="sc_ScAnnotationsObj" 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: +' sc.ScAnnotationsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet as Object, oCell1 as Object, oCell2 as Object + Dim oAnno1 as Object, oAnno2 As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + Out.Log("Creating two annotations...") + + oCell1 = oSheet.getCellByPosition(3, 5) + oAnno1 = oCell1.Annotation + oAnno1.setString("ScAnnotationsObj Anno 1") + + oCell2 = oSheet.getCellByPosition(3, 6) + oAnno2 = oCell2.Annotation + oAnno2.setString("ScAnnotationsObj Anno 2") + + oObj = oSheet.Annotations + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/script.xlb new file mode 100644 index 000000000000..3df96db95d8a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAnnotationsObj/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="sc_ScAnnotationsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAnnotationsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/sc_ScAreaLinkObj.xba b/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/sc_ScAreaLinkObj.xba new file mode 100644 index 000000000000..3bb8912f9770 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/sc_ScAreaLinkObj.xba @@ -0,0 +1,65 @@ +<?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="sc_ScAreaLinkObj" 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: +' sc.ScAreaLinkObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oLinks As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + Dim aSourceArea as String + aSourceArea = utils.Path2URL(cTestDocsDir + "/" + "calcshapes.sxc") + oLinks = oDoc.AreaLinks + oLinks.InsertAtPosition(com.sun.star.table.CellAddress(1, 2, 3), aSourceArea, "a1:b2", "", "") + + oObj = oLinks.getByIndex(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/script.xlb new file mode 100644 index 000000000000..26457c41950c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAreaLinkObj/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="sc_ScAreaLinkObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAreaLinkObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/sc_ScAreaLinksObj.xba b/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/sc_ScAreaLinksObj.xba new file mode 100644 index 000000000000..8265b08838bd --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/sc_ScAreaLinksObj.xba @@ -0,0 +1,65 @@ +<?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="sc_ScAreaLinksObj" 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: +' sc.ScAreaLinksObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oLinks As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + Dim aSourceArea as String + aSourceArea = utils.Path2URL(cTestDocsDir + "/" + "calcshapes.sxc") + oLinks = oDoc.AreaLinks + oLinks.InsertAtPosition(com.sun.star.table.CellAddress(1, 2, 3), aSourceArea, "a1:b2", "", "") + + oObj = oLinks + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/script.xlb new file mode 100644 index 000000000000..99ec3f15080e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAreaLinksObj/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="sc_ScAreaLinksObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAreaLinksObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/sc_ScAutoFormatFieldObj.xba b/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/sc_ScAutoFormatFieldObj.xba new file mode 100644 index 000000000000..c22a84578d36 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/sc_ScAutoFormatFieldObj.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="sc_ScAutoFormatFieldObj" 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: +' sc.ScAutoFormatFieldObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oFormats, oFormat, oField As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oFormats = createUnoService("com.sun.star.sheet.TableAutoFormats") + oFormat = oFormats.getByIndex(0) + oField = oFormat.getByIndex(0) + + oObj = oField + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/script.xlb new file mode 100644 index 000000000000..a0824100b00d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatFieldObj/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="sc_ScAutoFormatFieldObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAutoFormatFieldObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/sc_ScAutoFormatObj.xba b/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/sc_ScAutoFormatObj.xba new file mode 100644 index 000000000000..fa2f2ee42465 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/sc_ScAutoFormatObj.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="sc_ScAutoFormatObj" 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 + + +Global oFormats As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAutoFormatObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oNewFormat As Object + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + oFormats = createUnoService("com.sun.star.sheet.TableAutoFormats") + + oNewFormat = oDoc.createInstance("com.sun.star.sheet.TableAutoFormat") + + if oFormats.hasByName(cObjectName) then + oFormats.removeByName(cObjectName) + end if + + oFormats.insertByName(cObjectName, oNewFormat) + + oObj = oNewFormat + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() +On Error Goto ErrHndl + oFormats.removeByName(cObjectName) +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/script.xlb new file mode 100644 index 000000000000..0439c64222ed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatObj/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="sc_ScAutoFormatObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAutoFormatObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/sc_ScAutoFormatsObj.xba b/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/sc_ScAutoFormatsObj.xba new file mode 100644 index 000000000000..aa2796fae9ae --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/sc_ScAutoFormatsObj.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="sc_ScAutoFormatsObj" 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 oInstance As Object +Global oReplaceInstance as Object +Global cNameToReplace as String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScAutoFormatsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oObj = createUNOService("com.sun.star.sheet.TableAutoFormats") + oInstance = oDoc.createInstance("com.sun.star.sheet.TableAutoFormat") + oReplaceInstance = oDoc.createInstance("com.sun.star.sheet.TableAutoFormat") + cNameToReplace = "XNameReplace Test" + If oObj.hasByName(cNameToReplace) Then oObj.removeByName(cNameToReplace) + oObj.insertByName(cNameToReplace, oDoc.createInstance("com.sun.star.sheet.TableAutoFormat")) + + If oObj.hasByName(cObjectName & "1") Then oObj.removeByName(cObjectName & "1") + oObj.insertByName(cObjectName & "1", oDoc.createInstance("com.sun.star.sheet.TableAutoFormat")) + If oObj.hasByName(cObjectName & "2") Then oObj.removeByName(cObjectName & "2") + oObj.insertByName(cObjectName & "2", oDoc.createInstance("com.sun.star.sheet.TableAutoFormat")) + nGlobalLong = oObj.count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/script.xlb new file mode 100644 index 000000000000..f402ede287dc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScAutoFormatsObj/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="sc_ScAutoFormatsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScAutoFormatsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/sc_ScCellCursorObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/sc_ScCellCursorObj.xba new file mode 100644 index 000000000000..6caf2e62956f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/sc_ScCellCursorObj.xba @@ -0,0 +1,145 @@ +<?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="sc_ScCellCursorObj" 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 nCellCursorCol As Long +Global nCellCursorRow As Long + +' Required for com.sun.star.chart.XChartData +Global oCellToChange As Object + +'com.sun.star.sheet.XCellSeries +Global aCellSeries(2) as Integer + +' com.sun.star.sheet.XCellRangeData +Global newData As Variant + +Global oSheet as Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScCellCursorObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheetCursor as Object, oRange As Object + Dim n as Integer, m As Integer + + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oCellToChange = oSheet.getCellByPosition(2, 3) + oRange = oSheet.getCellRangeByName("$A$1:$D$4") + oSheetCursor = oSheet.createCursorByRange(oRange) + + For m = 1 to 2 + For n = 10 to 15 + oSheet.getCellByPosition(m,n).setValue(n) + Next n + Next m + + 'XSheetCellCursor::colapseToCurrentRegion() : + nCellCursorRow = 12 + nCellCursorCol 2 + + aCellSeries(0) = 3 + aCellSeries(1) = 3 + + '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(4.0, 9.0, 2.5, 5.0))_ + + oObj = oSheetCursor + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function modifyDescriptor(descr As Variant) As Variant +On Error Goto ErrHndl + Dim i As Integer, n as Integer + Dim oCell As Object + Dim vFields(0) as new com.sun.star.table.TableSortField + + for i = 0 to aCellSeries(0) - 1 + oCell = oSheet.getCellByPosition(0, i) + oCell.String = "" + (aCellSeries(0) - i) + oCell.setFormula(aCellSeries(0) - i) + next i + 'ShowNameValuePair(descr) + vFields(0).IsCaseSensitive = false + vFields(0).IsAscending = true + vFields(0).FieldType = com.sun.star.table.TableSortFieldType.ALPHANUMERIC + for i = 0 to ubound(descr) + if descr(i).Name = "IsSortColumns" then descr(i).Value = false + if descr(i).Name = "SortFields" then descr(i).Value = vFields() + next i + + modifyDescriptor() = descr +Exit Function +ErrHndl: + Out.Log("Exception in ScCellCursorObj.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 aCellSeries(0) - 1 + oCell = oSheet.getCellByPosition(0,i) + bOK = bOK AND oCell.String = "" + (i + 1) + out.dbg(oCell.String + ":" + (i+1)) + next i + + checkSort() = bOK +Exit Function +ErrHndl: + Out.Log("Exception in ScCellCursorObj.checkSort() :") + Test.Exception() +end Function + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/script.xlb new file mode 100644 index 000000000000..b25b0c373308 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellCursorObj/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="sc_ScCellCursorObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellCursorObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/sc_ScCellFieldObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/sc_ScCellFieldObj.xba new file mode 100644 index 000000000000..a47cbd050e70 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/sc_ScCellFieldObj.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="sc_ScCellFieldObj" 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 oComponentInstance as Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScCellFieldObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oCell As Object + Dim oTextField, oTextField1 As Object + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + + oTextField = oDoc.createInstance("com.sun.star.text.TextField.URL") + + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(5, 5) + oCell.insertTextContent(oCell.createTextCursor, oTextField, true) + + oObj = oTextField + + 'again for XComponent + oTextField1 = oDoc.createInstance("com.sun.star.text.TextField.URL") + + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(4, 5) + oCell.insertTextContent(oCell.createTextCursor, oTextField1, true) + + oComponentInstance = oTextField1 + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextField.URL") + oXTextContentRange = oCell.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/script.xlb new file mode 100644 index 000000000000..90360104790f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFieldObj/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="sc_ScCellFieldObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellFieldObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/sc_ScCellFieldsObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/sc_ScCellFieldsObj.xba new file mode 100644 index 000000000000..eeaecf843968 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/sc_ScCellFieldsObj.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="sc_ScCellFieldsObj" 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 oComponentInstance as Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScCellFieldsObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oCell As Object + Dim oTextField, oTextField1 As Object + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + + oTextField = oDoc.createInstance("com.sun.star.text.TextField.URL") + + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(5, 5) + oCell.insertTextContent(oCell.createTextCursor, oTextField, true) + + oObj = oCell.getTextFields() + + 'again for XComponent + oTextField1 = oDoc.createInstance("com.sun.star.text.TextField.URL") + + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(4, 5) + oCell.insertTextContent(oCell.createTextCursor, oTextField1, true) + + oComponentInstance = oTextField1 + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextField.URL") + oXTextContentRange = oCell.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/script.xlb new file mode 100644 index 000000000000..8c436760aaed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFieldsObj/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="sc_ScCellFieldsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellFieldsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/sc_ScCellFormatsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/sc_ScCellFormatsEnumeration.xba new file mode 100644 index 000000000000..21f3e9389dd6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/sc_ScCellFormatsEnumeration.xba @@ -0,0 +1,62 @@ +<?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="sc_ScCellFormatsEnumeration" 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: +' sc.ScCellFormatsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet As Object + Dim oFormats As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oFormats = oSheet.getCellFormatRanges() + oObj = oFormats.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/script.xlb new file mode 100644 index 000000000000..2db2e0039363 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFormatsEnumeration/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="sc_ScCellFormatsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellFormatsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/sc_ScCellFormatsObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/sc_ScCellFormatsObj.xba new file mode 100644 index 000000000000..35847703fcd7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/sc_ScCellFormatsObj.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="sc_ScCellFormatsObj" 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: +' sc.ScCellFormatsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oObj = oSheet.CellFormatRanges + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/script.xlb new file mode 100644 index 000000000000..41ea5b01e9fe --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellFormatsObj/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="sc_ScCellFormatsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellFormatsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellObj/sc_ScCellObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellObj/sc_ScCellObj.xba new file mode 100644 index 000000000000..157132bb0446 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellObj/sc_ScCellObj.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="sc_ScCellObj" 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: +' sc.ScCellObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oCell As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(0, 0) + oInstance = oDoc.createInstance("com.sun.star.text.TextField.URL") + oCollection = oCell.TextFields + + oObj = oCell +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellObj/script.xlb new file mode 100644 index 000000000000..e56fdf283756 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellObj/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="sc_ScCellObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/sc_ScCellRangeObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/sc_ScCellRangeObj.xba new file mode 100644 index 000000000000..8fc714766202 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/sc_ScCellRangeObj.xba @@ -0,0 +1,135 @@ +<?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="sc_ScCellRangeObj" 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: + +'com.sun.star.sheet.XCellSeries +Global aCellSeries(2) as Integer + + +'Required for com.sun.star.chart.XChartData +Global oCellToChange As Object + +' com.sun.star.sheet.XCellRangeData +Global newData As Variant + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScCellRangeObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oRange As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oCellToChange = oSheet.getCellByPosition(0, 0) + oRange = oSheet.getCellRangeByPosition(0, 0, 10, 10) + oObj = oRange + + aCellSeries(0) = 10 + aCellSeries(1) = 10 + + 'Required for XCellRangeData + newData = Array(_ + Array(2.5, 5.0, 2.5, 5.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0),_ + Array(4.0, 9.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 2.5, 5.0),_ + Array(2.5, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 5.0, 2.5, 5.0),_ + Array(4.0, 9.0, 2.5, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 5.0),_ + Array(2.5, 5.0, 2.5, 5.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0),_ + Array(4.0, 9.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 2.5, 5.0),_ + Array(2.5, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 5.0, 2.5, 5.0),_ + Array(4.0, 9.0, 2.5, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 5.0),_ + Array(2.5, 5.0, 2.5, 5.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0),_ + Array(4.0, 9.0, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 2.5, 5.0),_ + Array(2.5, 3.5, 8.7, 9.9, 0.3, 1.2, 3, 0, 5.0, 2.5, 5.0)) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function modifyDescriptor(descr As Variant) As Variant +On Error Goto ErrHndl + Dim i As Integer, n as Integer + Dim oCell As Object + Dim vFields(0) as new com.sun.star.table.TableSortField + + for i = 0 to aCellSeries(0) - 1 + oCell = oObj.getCellByPosition(0, i) + oCell.String = "" + (aCellSeries(0) - i) + oCell.setFormula(aCellSeries(0) - i) + next i + 'ShowNameValuePair(descr) + vFields(0).IsCaseSensitive = false + vFields(0).IsAscending = true + vFields(0).FieldType = com.sun.star.table.TableSortFieldType.ALPHANUMERIC + for i = 0 to ubound(descr) + if descr(i).Name = "IsSortColumns" then descr(i).Value = false + if descr(i).Name = "SortFields" then descr(i).Value = vFields() + next i + + modifyDescriptor() = descr +Exit Function +ErrHndl: + Out.Log("Exception in ScCellRangeObj.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 aCellSeries(0) - 1 + oCell = oObj.getCellByPosition(0,i) + bOK = bOK AND oCell.String = "" + (i + 1) + out.dbg(oCell.String + ":" + (i+1)) + next i + + checkSort() = bOK +Exit Function +ErrHndl: + Out.Log("Exception in ScCellRangeObj.checkSort() :") + Test.Exception() +end Function + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/script.xlb new file mode 100644 index 000000000000..0a2322e4654a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellRangeObj/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="sc_ScCellRangeObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellRangeObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/sc_ScCellRangesObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/sc_ScCellRangesObj.xba new file mode 100644 index 000000000000..e86c2249b894 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/sc_ScCellRangesObj.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="sc_ScCellRangesObj" 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 + +' Requiered for com.sun.star.container.XNameReplace +Global cNameToReplace As String 'name of instance to be replased +Global oReplaceInstance As Object 'instance, that will be inserted + 'instead old one + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScCellRangesObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges") + oSheet = oDoc.Sheets(1) + + oInstance=oSheet.getCellRangeByName("A1:C5") + oObj.insertByName("CellRange1", oInstance) + oInstance=oSheet.getCellRangeByName("A7:D9") + oObj.insertByName("CellRange2", oInstance) + oInstance=oSheet.getCellRangeByName("E1:E42") + oObj.insertByName("CellRange3", oInstance) + oInstance=oSheet.getCellRangeByName("A10:B10") + oObj.insertByName("CellRange4", oInstance) + + oReplaceInstance = oSheet.getCellRangeByName("A6:H16") + cNameToReplace = "CellRange4" +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/script.xlb new file mode 100644 index 000000000000..5b6e3544a0fe --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellRangesObj/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="sc_ScCellRangesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellRangesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/sc_ScCellSearchObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/sc_ScCellSearchObj.xba new file mode 100644 index 000000000000..b15b06885abe --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/sc_ScCellSearchObj.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="sc_ScCellSearchObj" 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: +' sc.ScCellSearchObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oObj = oSheet.createSearchDescriptor() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/script.xlb new file mode 100644 index 000000000000..2fd3cefc1727 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellSearchObj/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="sc_ScCellSearchObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellSearchObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/sc_ScCellTextCursor.xba b/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/sc_ScCellTextCursor.xba new file mode 100644 index 000000000000..03033ab1f90e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/sc_ScCellTextCursor.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="sc_ScCellTextCursor" 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: +' sc.ScCellTextCursor +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim oCell As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(1, 3) + + oCell.setString(cObjectName) + + oText = oCell + oObj = oCell.createTextCursor() + oCursor = oCell.createTextCursor() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/script.xlb new file mode 100644 index 000000000000..e73ec8bfc586 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellTextCursor/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="sc_ScCellTextCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellTextCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/sc_ScCellsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/sc_ScCellsEnumeration.xba new file mode 100644 index 000000000000..77e59c564ec7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/sc_ScCellsEnumeration.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="sc_ScCellsEnumeration" 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: +' sc.ScCellsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet, oCell1, oCell2, oCell3, oEnum, oVS As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + oCell1 = oSheet.getCellByPosition(1, 1) + oCell1.Text.setString(cObjectName + "1") + oCell2 = oSheet.getCellByPosition(4, 2) + oCell2.Text.setString(cObjectName + "2") + oCell3 = oSheet.getCellByPosition(3, 6) + oCell3.setFormula("= 15 + 3 * 4") + + oVS = oSheet.queryVisibleCells + oEnum = oVS.Cells.createEnumeration + + oObj = oEnum + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/script.xlb new file mode 100644 index 000000000000..377e64d5db85 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellsEnumeration/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="sc_ScCellsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellsObj/sc_ScCellsObj.xba b/qadevOOo/tests/basic/mod/sc/ScCellsObj/sc_ScCellsObj.xba new file mode 100644 index 000000000000..b7a596a13688 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellsObj/sc_ScCellsObj.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="sc_ScCellsObj" 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: +' sc.ScCellsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCell1, oCell2, oCell3, oSheet As Object + Dim oCellsRange, oCells As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + ' Filling some cells with the text + oCell1 = oSheet.getCellByPosition(0, 0) + oCell1.setString("ScCellsObj, Cell 1") + oCell2 = oSheet.getCellByPosition(4, 2) + oCell2.setString("ScCellsObj, Cell 2") + oCell3 = oSheet.getCellByPosition(3, 3) + oCell3.setValue(-10) + + oCellsRange = oSheet.queryVisibleCells + oCells = oCellsRange.getCells + + oObj = oCells + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScCellsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScCellsObj/script.xlb new file mode 100644 index 000000000000..6a67f5248999 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScCellsObj/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="sc_ScCellsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScCellsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScChartObj/sc_ScChartObj.xba b/qadevOOo/tests/basic/mod/sc/ScChartObj/sc_ScChartObj.xba new file mode 100644 index 000000000000..ee68c904dd10 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScChartObj/sc_ScChartObj.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="sc_ScChartObj" 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.container.XNamed +Global cNameToSet As String ' "fixed" if name is fixed + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScChartObj +'************************************************************************* +On Error Goto ErrHndl + Dim oCharts As Variant + Dim oSheet As Object + Dim i,j As Integer + Dim tRect As New com.sun.star.awt.Rectangle + Dim tAddr As New com.sun.star.table.CellRangeAddress + Dim oRanges(0) As New com.sun.star.table.CellRangeAddress + + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + ' Filling some cells with the text + for i = 1 to 6 + oSheet.getCellByPosition(0, i).setString("Row" & i) + oSheet.getCellByPosition(i, 0).setString("Col" & i) + next i + + for i = 1 to 6 + for j = 1 to 6 + oSheet.getCellByPosition(i, j).Value = (i + 1) * j + next j + next i + + tRect.X = 500 + tRect.Y = 500 + tRect.Width = 25000 + tRect.Height = 15000 + + tAddr.Sheet = 0 + tAddr.StartRow = 0 + tAddr.StartColumn = 0 + tAddr.EndRow = 6 + tAddr.EndColumn = 6 + + oCharts = oSheet.getCharts() + oRanges(0) = tAddr + oCharts.addNewByName("ScChartObj", tRect, oRanges(), true, true) + + oObj = oCharts.getByName("ScChartObj") + + cNameToSet = "fixed" +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScChartObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScChartObj/script.xlb new file mode 100644 index 000000000000..7662522d724b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScChartObj/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="sc_ScChartObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScChartObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScChartsObj/sc_ScChartsObj.xba b/qadevOOo/tests/basic/mod/sc/ScChartsObj/sc_ScChartsObj.xba new file mode 100644 index 000000000000..e942335c7744 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScChartsObj/sc_ScChartsObj.xba @@ -0,0 +1,95 @@ +<?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="sc_ScChartsObj" 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 cChartDataAddress As New com.sun.star.table.CellRangeAddress + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScChartsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet As Object + Dim i,j As Integer + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + ' Filling some cells with the text + for i = 1 to 6 + oSheet.getCellByPosition(0, i).setString("Row" & i) + oSheet.getCellByPosition(i, 0).setString("Col" & i) + next i + + for i = 1 to 6 + for j = 1 to 6 + oSheet.getCellByPosition(i, j).Value = (i + 1) * j + next j + next i + + Dim tAddr As New com.sun.star.table.CellRangeAddress + tAddr.Sheet = 0 + tAddr.StartRow = 0 + tAddr.StartColumn = 0 + tAddr.EndRow = 6 + tAddr.EndColumn = 6 + + Dim tRect As New com.sun.star.awt.Rectangle + tRect.X = 200 + tRect.Y = 200 + tRect.Width = 10000 + tRect.Height = 5000 + + cChartDataAddress = tAddr + oObj = oSheet.getCharts() + + Dim oRanges(0) As New com.sun.star.table.CellRangeAddress + oRanges(0) = tAddr + oObj.addNewByName(cObjectName, tRect, oRanges(), true, true) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScChartsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScChartsObj/script.xlb new file mode 100644 index 000000000000..8294000d7652 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScChartsObj/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="sc_ScChartsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScChartsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/sc_ScConsolidationDescriptor.xba b/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/sc_ScConsolidationDescriptor.xba new file mode 100644 index 000000000000..1c32c98b3366 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/sc_ScConsolidationDescriptor.xba @@ -0,0 +1,62 @@ +<?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="sc_ScConsolidationDescriptor" 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: +' sc.ScConsolidationDescriptor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oDsc As Object + Dim bCreateDefaultDsc As Boolean + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + bCreateDefaultDsc = true + oDsc = oDoc.createConsolidationDescriptor(bCreateDefaultDsc) + oObj = oDsc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/script.xlb b/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/script.xlb new file mode 100644 index 000000000000..d2140cde3661 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScConsolidationDescriptor/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="sc_ScConsolidationDescriptor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScConsolidationDescriptor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/sc_ScDDELinkObj.xba b/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/sc_ScDDELinkObj.xba new file mode 100644 index 000000000000..b1f6a5752ef0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/sc_ScDDELinkObj.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="sc_ScDDELinkObj" 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 +Global DDEItem As String +Global DDETopic As String +Global DDEApplication As String + +Global oTestDoc As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDDELinkObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim oF As String + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + oTestDoc = utils.loadTestDocument("ScDDELinksObj.sdc") + + DDEItem = "Sheet1.A1" + + ' This construction of 2-way convertion of testdocs location + ' should take place here, because there is unnecessary slash at the end of + ' cTestDocsDir. + DDETopic = utils.URL2Path(utils.Path2URL(cTestDocsDir & "ScDDELinksObj.sdc")) + + DDEApplication = "soffice" + + oF = "=DDE(""" + DDEApplication + """;""" + DDETopic + """;""" + DDEItem + """)" + + oSheet.getCellByPosition(1, 2).Formula = oF + oSheet.getCellByPosition(3, 4).Formula = oF + oSheet.getCellByPosition(5, 6).Formula = oF + + oObj = oDoc.getPropertyValue("DDELinks").getByIndex(0) + cNameToSet = "fixed" +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + oTestDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/script.xlb new file mode 100644 index 000000000000..356f4be1ef64 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDDELinkObj/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="sc_ScDDELinkObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDDELinkObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/sc_ScDDELinksObj.xba b/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/sc_ScDDELinksObj.xba new file mode 100644 index 000000000000..aaab46523587 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/sc_ScDDELinksObj.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="sc_ScDDELinksObj" 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 oTestDoc As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDDELinksObj +'************************************************************************* +On Error Goto ErrHndl + Dim testDoc, oF As String + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + oTestDoc = utils.loadTestDocument("ScDDELinksObj.sdc") + + ' This construction of 2-way convertion of testdocs location + ' should take place here, because there is unnecessary slash at the end of + ' cTestDocsDir. + testDoc = utils.URL2Path(utils.Path2URL(cTestDocsDir & "ScDDELinksObj.sdc")) + + oF = "=DDE(""soffice"";""" & testDoc & """;""Sheet1.A1"")" + + oSheet.getCellByPosition(1, 2).Formula = oF + oSheet.getCellByPosition(3, 4).Formula = oF + oSheet.getCellByPosition(5, 6).Formula = oF + + oObj = oDoc.getPropertyValue("DDELinks") +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + oTestDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/script.xlb new file mode 100644 index 000000000000..84df6ef711d2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDDELinksObj/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="sc_ScDDELinksObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDDELinksObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/sc_ScDataPilotFieldObj.xba b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/sc_ScDataPilotFieldObj.xba new file mode 100644 index 000000000000..efe3c591b144 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/sc_ScDataPilotFieldObj.xba @@ -0,0 +1,100 @@ +<?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="sc_ScDataPilotFieldObj" 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 + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDataPilotFieldObj +'************************************************************************* +On Error Goto ErrHndl + Dim oFields As Variant + Dim oSheet As Object + Dim i,j As Integer + Dim oDataPilotTable, oDataPilotDescriptor As Object + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + Dim sCellAddress As New com.sun.star.table.CellAddress + + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + Out.Log("Filling a table...") + + for i = 1 to 5 + oSheet.getCellByPosition(0, i).String = "Row" & i + oSheet.getCellByPosition(i, 0).String = "Col" & i + next i + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 0 + sCellRangeAddress.StartRow = 0 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + oDataPilotTable = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTable.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + oDataPilotTable.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oFields = oDataPilotDescriptor.getDataPilotFields() + oObj = oFields.getByIndex(0) + + cNameToSet = cObjectName + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/script.xlb new file mode 100644 index 000000000000..81603a818fd6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldObj/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="sc_ScDataPilotFieldObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDataPilotFieldObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/sc_ScDataPilotFieldsObj.xba b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/sc_ScDataPilotFieldsObj.xba new file mode 100644 index 000000000000..dff17eb90697 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/sc_ScDataPilotFieldsObj.xba @@ -0,0 +1,94 @@ +<?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="sc_ScDataPilotFieldsObj" 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: +' sc.ScDataPilotFieldsObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim i as Integer,j As Integer + Dim oSheet as Object, oDataPilotDescriptor As Object + Dim oFields as Variant , oDataPilotTable As Variant + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + Dim sCellAddress As New com.sun.star.table.CellAddress + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + oDataPilotTable = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTable.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + + oDataPilotTable.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oFields = oDataPilotDescriptor.getDataPilotFields + oObj = oFields + nGlobalLong = oObj.Count + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/script.xlb new file mode 100644 index 000000000000..18831eae158a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotFieldsObj/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="sc_ScDataPilotFieldsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDataPilotFieldsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/sc_ScDataPilotTableObj.xba b/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/sc_ScDataPilotTableObj.xba new file mode 100644 index 000000000000..36e976850469 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/sc_ScDataPilotTableObj.xba @@ -0,0 +1,122 @@ +<?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="sc_ScDataPilotTableObj" 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 + +' Required for com.sun.star.sheet.XDataPilotTable +Global oOutputRange As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDataPilotTableObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim i, j As Integer + Dim oDataPilotTables As Object + Dim oDataPilotDescriptor As Object + Dim oFilterDescriptor As Object + Dim oDataPilotField As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + for i = 1 to 5 + oSheet.getCellByPosition(0, i).String = "Row" & i + oSheet.getCellByPosition(i, 0).String = "Col" & i + next i + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 0 + sCellRangeAddress.EndColumn = 1 + sCellRangeAddress.EndRow = 5 + + Dim sCellAddress As New com.sun.star.table.CellAddress + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + Dim FilterFields(1) As New com.sun.star.sheet.TableFilterField + FilterFields(0).Connection = com.sun.star.sheet.FilterConnection.AND + FilterFields(0).Field = 1 + FilterFields(0).isNumeric = true + FilterFields(0).StringValue = "4" + FilterFields(0).Operator = com.sun.star.sheet.FilterOperator.GREATER + + FilterFields(1).Connection = com.sun.star.sheet.FilterConnection.AND + FilterFields(1).Field = 1 + FilterFields(1).isNumeric = true + FilterFields(1).StringValue = "12" + FilterFields(1).Operator = com.sun.star.sheet.FilterOperator.LESS_EQUAL + + oDataPilotTables = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTables.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + oFilterDescriptor = oDataPilotDescriptor.getFilterDescriptor() + oFilterDescriptor.setFilterFields(FilterFields()) + + oDataPilotField = oDataPilotDescriptor.getDataPilotFields().getByIndex(0) + oDataPilotField.Function = com.sun.star.sheet.GeneralFunction.SUM + oDataPilotField.Orientation = com.sun.star.sheet.DataPilotFieldOrientation.DATA + + oDataPilotTables.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oObj = oDataPilotTables(0) + oOutputRange = sCellAddress + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/script.xlb new file mode 100644 index 000000000000..570b186ccb2e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotTableObj/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="sc_ScDataPilotTableObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDataPilotTableObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/sc_ScDataPilotTablesObj.xba b/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/sc_ScDataPilotTablesObj.xba new file mode 100644 index 000000000000..90e09058c76e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/sc_ScDataPilotTablesObj.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="sc_ScDataPilotTablesObj" 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: +' sc.ScDataPilotTablesObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim i as Integer,j As Integer + Dim oSheet as Object, oDataPilotDescriptor As Object + Dim oDataPilotTables As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + Dim sCellAddress As New com.sun.star.table.CellAddress + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + oDataPilotTables = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTables.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + + oDataPilotTables.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oObj = oDataPilotTables + nGlobalLong = oObj.Count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/script.xlb new file mode 100644 index 000000000000..ebdc208f0e93 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDataPilotTablesObj/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="sc_ScDataPilotTablesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDataPilotTablesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/sc_ScDatabaseRangeObj.xba b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/sc_ScDatabaseRangeObj.xba new file mode 100644 index 000000000000..15fc4fcb3199 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/sc_ScDatabaseRangeObj.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="sc_ScDatabaseRangeObj" 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.sheet.XCellRangeReferrer + Global oReferredCells As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDatabaseRangeObj +'************************************************************************* +On Error Goto ErrHndl + Dim oRanges As Variant + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + + oDoc = utils.createDocument("scalc", cObjectName) + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + oRanges = oDoc.getPropertyValue("DatabaseRanges") + oRanges.addNewByName(cObjectName, sCellRangeAddress) + oReferredCells = sCellRangeAddress + + oObj = oRanges.getByIndex(0) +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/script.xlb new file mode 100644 index 000000000000..30fa99cc37ce --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangeObj/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="sc_ScDatabaseRangeObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDatabaseRangeObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/sc_ScDatabaseRangesObj.xba b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/sc_ScDatabaseRangesObj.xba new file mode 100644 index 000000000000..2efa2d7ce4cd --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/sc_ScDatabaseRangesObj.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="sc_ScDatabaseRangesObj" 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: +' sc.ScDatabaseRangesObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oRanges As Variant + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + oRanges = oDoc.getPropertyValue("DatabaseRanges") + oRanges.addNewByName(cObjectName, sCellRangeAddress) + + oObj = oRanges + nGlobalLong = oObj.Count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/script.xlb new file mode 100644 index 000000000000..1b52e885e3a3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDatabaseRangesObj/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="sc_ScDatabaseRangesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDatabaseRangesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/sc_ScDrawPageObj.xba b/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/sc_ScDrawPageObj.xba new file mode 100644 index 000000000000..68f6506a77a0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/sc_ScDrawPageObj.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="sc_ScDrawPageObj" 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 oXShapeInstance As Object + +Global oGrouperCollection As Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScDrawPageObj +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oDP as Object + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + oGrouperCollection = createUNOService("com.sun.star.drawing.ShapeCollection") + + oDP = oDoc.getDrawPages() + + oDP.insertNewByIndex(0) + oDP.insertNewByIndex(1) + + oObj = oDP.getByIndex(0) + addShape(oObj,1) + addShape(oObj,2) + addShape(oObj,3) + addShape(oObj,4) + + oXShapeInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oGrouperCollection.Add(oObj.getByIndex(2)) + oGrouperCollection.Add(oObj.getByIndex(3)) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function addShape(oPage as Object, no as Integer) As Object +On Error Goto ErrHndl + Dim aPoint As New com.sun.star.awt.Point + Dim aSize As New com.sun.star.awt.Size + Dim oShape As Object + Dim servNames As Variant + + aPoint.x = 1000 * no + aPoint.y = 1000 * no + aSize.Width = 2000 + aSize.Height = 1000 + oShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oShape.Size = aSize + oShape.Position = aPoint + + oPage.add(oShape) + + addShapeToDrawDoc() = oShape +Exit Function +ErrHndl: + Test.Exception() +End Function + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/script.xlb new file mode 100644 index 000000000000..7966e9d2e0a8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDrawPageObj/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="sc_ScDrawPageObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDrawPageObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/sc_ScDrawPagesObj.xba b/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/sc_ScDrawPagesObj.xba new file mode 100644 index 000000000000..ce3376145dbf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/sc_ScDrawPagesObj.xba @@ -0,0 +1,55 @@ +<?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="sc_ScDrawPagesObj" 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: +' sc.ScDrawPagesObj +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.DrawPages + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/script.xlb new file mode 100644 index 000000000000..e77bd26fa1fa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScDrawPagesObj/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="sc_ScDrawPagesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScDrawPagesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/sc_ScFilterDescriptorBase.xba b/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/sc_ScFilterDescriptorBase.xba new file mode 100644 index 000000000000..fbe7d5a8ed68 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/sc_ScFilterDescriptorBase.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="sc_ScFilterDescriptorBase" 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: +' sc.ScFilterDescriptorBase +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + ' Filling some cells with the text + oSheet.getCellByPosition(0, 0).Value = 10 + oSheet.getCellByPosition(4, 2).Value = 10.10 + oSheet.getCellByPosition(6, 5).Value = -10 + + oObj = oSheet.createFilterDescriptor(true) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/script.xlb b/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/script.xlb new file mode 100644 index 000000000000..c733e1c0c8f3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScFilterDescriptorBase/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="sc_ScFilterDescriptorBase" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScFilterDescriptorBase"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/sc_ScFunctionListObj.xba b/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/sc_ScFunctionListObj.xba new file mode 100644 index 000000000000..e6b3e5935888 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/sc_ScFunctionListObj.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="sc_ScFunctionListObj" 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: +' sc.ScFunctionListObj +'************************************************************************* +On Error Goto ErrHndl + + oObj = createUnoService("com.sun.star.sheet.FunctionDescriptions") + nGlobalLong = oObj.Count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/script.xlb new file mode 100644 index 000000000000..0d49fb420ceb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScFunctionListObj/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="sc_ScFunctionListObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScFunctionListObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/sc_ScHeaderFieldObj.xba b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/sc_ScHeaderFieldObj.xba new file mode 100644 index 000000000000..ba5526524f46 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/sc_ScHeaderFieldObj.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="sc_ScHeaderFieldObj" 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 oComponentInstance As Object + +Global oXTextContent as Object +Global oXTextContentRange as Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScHeaderFieldObj +'************************************************************************* +On Error Goto ErrHndl + Dim StyleFamilies as Object, PageStyles as Object, DefaultStyle As Object + Dim RPHC as Object, tLeft as Object, TimeField as Object, oCur As Object + + + oDoc = utils.createDocument("scalc", cObjectName) + + StyleFamilies = oDoc.getStyleFamilies + PageStyles = StyleFamilies.getByName("PageStyles") + DefaultStyle = PageStyles.getByName("Default") + + RPHC = DefaultStyle.getPropertyValue("RightPageHeaderContent") + tLeft = RPHC.getLeftText + TimeField = oDoc.createInstance("com.sun.star.text.TextField.Time") + oComponentInstance = oDoc.createInstance("com.sun.star.text.TextField.Time") + oCur = tLeft.createTextCursor() + tLeft.insertTextContent(oCur, TimeField, false) + tLeft.insertTextContent(oCur, oComponentInstance, false) + + oXTextContent = oDoc.createInstance("com.sun.star.text.TextField.Time") + oXTextContentRange = tLeft.createTextCursor() + + oObj = TimeField + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNULL(oObj) then oObj.dispose() + if NOT isNULL(oComponentInstance) then oComponentInstance.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/script.xlb new file mode 100644 index 000000000000..c8b68e52b61e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldObj/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="sc_ScHeaderFieldObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScHeaderFieldObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/sc_ScHeaderFieldsObj.xba b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/sc_ScHeaderFieldsObj.xba new file mode 100644 index 000000000000..9456e02e97de --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/sc_ScHeaderFieldsObj.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="sc_ScHeaderFieldsObj" 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: + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScHeaderFieldsObj +'************************************************************************* +On Error Goto ErrHndl + + Dim StyleFamilies as Object, PageStyles as Object, DefaultStyle As Object + Dim RPHC as Object, tLeft as Object, TimeField as Object, oCur As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + StyleFamilies = oDoc.getStyleFamilies() + PageStyles = StyleFamilies.getByName("PageStyles") + DefaultStyle = PageStyles.getByName("Default") + + RPHC = DefaultStyle.getPropertyValue("RightPageHeaderContent") + tLeft = RPHC.getLeftText + TimeField = oDoc.createInstance("com.sun.star.text.TextField.Time") + oCur = tLeft.createTextCursor() + tLeft.insertTextContent(oCur, TimeField, false) + + oObj=tLeft.getTextFields() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/script.xlb new file mode 100644 index 000000000000..ecddc21b631e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFieldsObj/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="sc_ScHeaderFieldsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScHeaderFieldsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/sc_ScHeaderFooterContentObj.xba b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/sc_ScHeaderFooterContentObj.xba new file mode 100644 index 000000000000..fc5aad8f1869 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/sc_ScHeaderFooterContentObj.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="sc_ScHeaderFooterContentObj" 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.sheet.XHeaderFooterContent + Global cLeftText As String + Global cCenterText As String + Global cRightText As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScHeaderFooterContentObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim PageStyles As Variant + Dim DefaultStyle, RPHC As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + PageStyles = oDoc.getStyleFamilies.getByName("PageStyles") + DefaultStyle = PageStyles.getByName("Default") + + cLeftText = "Left" + cCenterText = "Center" + cRightText = "Right" + + RPHC = DefaultStyle.getPropertyValue("RightPageHeaderContent") + RPHC.getLeftText.String = cLeftText + RPHC.getCenterText.String = cCenterText + RPHC.getRightText.String = cRightText + + DefaultStyle.setPropertyValue("RightPageHeaderContent", RPHC) + + oObj = RPHC + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/script.xlb new file mode 100644 index 000000000000..ddbc0e056fbf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterContentObj/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="sc_ScHeaderFooterContentObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScHeaderFooterContentObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/sc_ScHeaderFooterTextCursor.xba b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/sc_ScHeaderFooterTextCursor.xba new file mode 100644 index 000000000000..6ba9ecda2e87 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/sc_ScHeaderFooterTextCursor.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="sc_ScHeaderFooterTextCursor" 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: +' sc.ScHeaderFooterTextCursor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim PageStyles, DefaultStyle, RPHC As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + PageStyles = oDoc.getStyleFamilies.getByName("PageStyles") + DefaultStyle = PageStyles.getByName("Default") + + RPHC = DefaultStyle.getPropertyValue("RightPageHeaderContent") + RPHC.getCenterText.String = "Center" + DefaultStyle.setPropertyValue("RightPageHeaderContent", RPHC) + + oText = RPHC.getCenterText + + oObj = oText.createTextCursor() + oCursor = oText.createTextCursor() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/script.xlb b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/script.xlb new file mode 100644 index 000000000000..ab7f002c6b5c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextCursor/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="sc_ScHeaderFooterTextCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScHeaderFooterTextCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/sc_ScHeaderFooterTextObj.xba b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/sc_ScHeaderFooterTextObj.xba new file mode 100644 index 000000000000..fe0ec2fef131 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/sc_ScHeaderFooterTextObj.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="sc_ScHeaderFooterTextObj" 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 + +'Required for com.sun.star.text.XTextRangeMover +Global oTextRangeToMove As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScHeaderFooterTextObj +'************************************************************************* +On Error Goto ErrHndl + Dim StyleFamilies As Variant + Dim PageStyles As Object + Dim DefaultStyle As Object + Dim RPHC As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + StyleFamilies = oDoc.getStyleFamilies + PageStyles = StyleFamilies.getByName("PageStyles") + DefaultStyle = PageStyles.getByName("Default") + + RPHC = DefaultStyle.getPropertyValue("RightPageHeaderContent") + RPHC.getCenterText.String = "Center" + DefaultStyle.setPropertyValue("RightPageHeaderContent", RPHC) + + oObj = RPHC.getCenterText + oTextRangeToMove = oObj + + oInstance = oDoc.createInstance("com.sun.star.text.TextField.Time") + oCollection = oObj.getTextFields() +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/script.xlb new file mode 100644 index 000000000000..969ecbe11891 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScHeaderFooterTextObj/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="sc_ScHeaderFooterTextObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScHeaderFooterTextObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/sc_ScIndexEnumeration_CellAnnotationsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/sc_ScIndexEnumeration_CellAnnotationsEnumeration.xba new file mode 100644 index 000000000000..3a40ff4d8755 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/sc_ScIndexEnumeration_CellAnnotationsEnumeration.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="sc_ScIndexEnumeration_CellAnnotationsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_CellAnnotationsEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim oSheets as Object, oSheet as Object + Dim oAnnotations as Object + Dim oCell1 as Object, oCell2 as Object + Dim oAnno1 as Object, oAnno2 As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + ' get a sheet + oSheets = oDoc.getSheets() + oSheet = oSheets.getByIndex(0) + + ' filling cells with values... + oSheet.getCellByPosition(5, 5).setValue(15) + oSheet.getCellByPosition(1, 4).setValue(10) + oSheet.getCellByPosition(2, 0).setValue(-5.15) + + Out.Log("Creating two annotations...") + + oCell1 = oSheet.getCellByPosition(3, 5) + oAnno1 = oCell1.Annotation + oAnno1.setString("ScAnnotationsObj Anno 1") + + oCell2 = oSheet.getCellByPosition(3, 6) + oAnno2 = oCell2.Annotation + oAnno2.setString("ScAnnotationsObj Anno 2") + + ' get annotations + oAnnotations = oSheet.getAnnotations() + + oObj = oAnnotations.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/script.xlb new file mode 100644 index 000000000000..88e9f70551e4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAnnotationsEnumeration/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="sc_ScIndexEnumeration_CellAnnotationsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_CellAnnotationsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/sc_ScIndexEnumeration_CellAreaLinksEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/sc_ScIndexEnumeration_CellAreaLinksEnumeration.xba new file mode 100644 index 000000000000..f16c3fd24433 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/sc_ScIndexEnumeration_CellAreaLinksEnumeration.xba @@ -0,0 +1,63 @@ +<?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="sc_ScIndexEnumeration_CellAreaLinksEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_CellAreaLinksEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim oLinks As Variant + + oDoc = utils.createDocument("scalc", cObjectName) + + oLinks = oDoc.AreaLinks + oLinks.InsertAtPosition(com.sun.star.table.CellAddress(1, 2, 3), "dummy_fname", "a1:b2", "", "") + + oObj = oLinks.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/script.xlb new file mode 100644 index 000000000000..44b41c57f253 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_CellAreaLinksEnumeration/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="sc_ScIndexEnumeration_CellAreaLinksEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_CellAreaLinksEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/sc_ScIndexEnumeration_DDELinksEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/sc_ScIndexEnumeration_DDELinksEnumeration.xba new file mode 100644 index 000000000000..814dba0cebed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/sc_ScIndexEnumeration_DDELinksEnumeration.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="sc_ScIndexEnumeration_DDELinksEnumeration" 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 oTestDoc As Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_DDELinksEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim testDoc, oF As String + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + oTestDoc = utils.loadTestDocument("ScDDELinksObj.sdc") + + ' This construction of 2-way convertion of testdocs location + ' should take place here, because there is unnecessary slash at the end of + ' cTestDocsDir. + testDoc = utils.URL2Path(utils.Path2URL(cTestDocsDir & "ScDDELinksObj.sdc")) + + oF = "=DDE(""soffice"";""" & testDoc & """;""Sheet1.A1"")" + + oSheet.getCellByPosition(1, 2).Formula = oF + oSheet.getCellByPosition(3, 4).Formula = oF + oSheet.getCellByPosition(5, 6).Formula = oF + + oObj = oDoc.getPropertyValue("DDELinks").createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +' close ScDDELinksObj.sdc +Sub DisposeObj() + oTestDoc.dispose() +end sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/script.xlb new file mode 100644 index 000000000000..88efe2065201 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DDELinksEnumeration/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="sc_ScIndexEnumeration_DDELinksEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_DDELinksEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/sc_ScIndexEnumeration_DataPilotFieldsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/sc_ScIndexEnumeration_DataPilotFieldsEnumeration.xba new file mode 100644 index 000000000000..27271eefc8bc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/sc_ScIndexEnumeration_DataPilotFieldsEnumeration.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="sc_ScIndexEnumeration_DataPilotFieldsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_DataPilotFieldsEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim i as Integer,j As Integer + Dim oSheet as Object, oDataPilotDescriptor As Object + Dim oFields as Variant, oDataPilotTable As Variant + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + Dim sCellAddress As New com.sun.star.table.CellAddress + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + oDataPilotTable = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTable.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + + oDataPilotTable.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oFields = oDataPilotDescriptor.getDataPilotFields + oObj = oFields.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/script.xlb new file mode 100644 index 000000000000..e8d82d06db78 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotFieldsEnumeration/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="sc_ScIndexEnumeration_DataPilotFieldsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_DataPilotFieldsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/sc_ScIndexEnumeration_DataPilotTablesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/sc_ScIndexEnumeration_DataPilotTablesEnumeration.xba new file mode 100644 index 000000000000..74078410d2b1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/sc_ScIndexEnumeration_DataPilotTablesEnumeration.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="sc_ScIndexEnumeration_DataPilotTablesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_DataPilotTablesEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim i as Integer,j As Integer + Dim oSheet as Object, oDataPilotDescriptor As Object + Dim oDataPilotTables As Variant + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets.getByIndex(0) + + for i = 1 to 5 + for j = 1 to 5 + oSheet.getCellByPosition(i, j).Value = 2.5 * j + i + next j + next i + + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + Dim sCellAddress As New com.sun.star.table.CellAddress + sCellAddress.Sheet = 0 + sCellAddress.Column = 7 + sCellAddress.Row = 8 + + oDataPilotTables = oSheet.getDataPilotTables + oDataPilotDescriptor = oDataPilotTables.createDataPilotDescriptor() + oDataPilotDescriptor.setSourceRange(sCellRangeAddress) + + oDataPilotTables.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor) + + oObj = oDataPilotTables.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/script.xlb new file mode 100644 index 000000000000..39577313ecb2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DataPilotTablesEnumeration/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="sc_ScIndexEnumeration_DataPilotTablesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_DataPilotTablesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/sc_ScIndexEnumeration_DatabaseRangesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/sc_ScIndexEnumeration_DatabaseRangesEnumeration.xba new file mode 100644 index 000000000000..6e78dc566ce4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/sc_ScIndexEnumeration_DatabaseRangesEnumeration.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="sc_ScIndexEnumeration_DatabaseRangesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_DatabaseRangesEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim oRanges As Variant + Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress + + oDoc = utils.createDocument("scalc", cObjectName) + + sCellRangeAddress.Sheet = 0 + sCellRangeAddress.StartColumn = 1 + sCellRangeAddress.StartRow = 1 + sCellRangeAddress.EndColumn = 5 + sCellRangeAddress.EndRow = 5 + + oRanges = oDoc.getPropertyValue("DatabaseRanges") + oRanges.addNewByName(cObjectName, sCellRangeAddress) + + oObj = oRanges.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/script.xlb new file mode 100644 index 000000000000..4fe8484dd7ff --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_DatabaseRangesEnumeration/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="sc_ScIndexEnumeration_DatabaseRangesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_DatabaseRangesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/sc_ScIndexEnumeration_FunctionDescriptionEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/sc_ScIndexEnumeration_FunctionDescriptionEnumeration.xba new file mode 100644 index 000000000000..e4db70d1e080 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/sc_ScIndexEnumeration_FunctionDescriptionEnumeration.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="sc_ScIndexEnumeration_FunctionDescriptionEnumeration" 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: + + +Sub CreateObj() + Dim oFD as Object + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_FunctionDescriptionEnumeration +'************************************************************************* +On Error Goto ErrHndl + + oFD = createUnoService("com.sun.star.sheet.FunctionDescriptions") + + oObj = oFD.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/script.xlb new file mode 100644 index 000000000000..a1ed8d05a5e1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_FunctionDescriptionEnumeration/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="sc_ScIndexEnumeration_FunctionDescriptionEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_FunctionDescriptionEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/sc_ScIndexEnumeration_LabelRangesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/sc_ScIndexEnumeration_LabelRangesEnumeration.xba new file mode 100644 index 000000000000..fb7e96bb4819 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/sc_ScIndexEnumeration_LabelRangesEnumeration.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="sc_ScIndexEnumeration_LabelRangesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_LabelRangesEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim RangeAddress1 As New com.sun.star.table.CellRangeAddress + Dim RangeAddress2 As New com.sun.star.table.CellRangeAddress + Dim oRanges As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oRanges = oDoc.getPropertyValue("ColumnLabelRanges") + RangeAddress1.Sheet = 0 + RangeAddress1.StartColumn = 1 + RangeAddress1.StartRow = 1 + RangeAddress1.EndColumn = 2 + RangeAddress1.EndRow = 2 + + RangeAddress2.Sheet = 0 + RangeAddress2.StartColumn = 5 + RangeAddress2.StartRow = 5 + RangeAddress2.EndColumn = 6 + RangeAddress2.EndRow = 7 + + oRanges.addNew(RangeAddress1, RangeAddress2) + + oObj = oRanges.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/script.xlb new file mode 100644 index 000000000000..2606b80616ed --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_LabelRangesEnumeration/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="sc_ScIndexEnumeration_LabelRangesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_LabelRangesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/sc_ScIndexEnumeration_NamedRangesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/sc_ScIndexEnumeration_NamedRangesEnumeration.xba new file mode 100644 index 000000000000..73ae78100bbd --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/sc_ScIndexEnumeration_NamedRangesEnumeration.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="sc_ScIndexEnumeration_NamedRangesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_NamedRangesEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oNamedRanges As Object + Dim sBase As New com.sun.star.table.CellAddress + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oNamedRanges = oDoc.getPropertyValue("NamedRanges") + + sBase.sheet = 0 + sBase.Column = 0 + sBase.Row = 0 + + oNamedRanges.addNewByNAme(cObjectName, "A1:B3", sBase, 0) + + oObj = oNamedRanges.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/script.xlb new file mode 100644 index 000000000000..ebbf4ec59a79 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_NamedRangesEnumeration/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="sc_ScIndexEnumeration_NamedRangesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_NamedRangesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/sc_ScIndexEnumeration_ScenariosEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/sc_ScIndexEnumeration_ScenariosEnumeration.xba new file mode 100644 index 000000000000..940d487f3f15 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/sc_ScIndexEnumeration_ScenariosEnumeration.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="sc_ScIndexEnumeration_ScenariosEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_ScenariosEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim aCRA(0) As New com.sun.star.table.CellRangeAddress + Dim oSheet As Object + Dim oScenarios as Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oSheet.getCellByPosition(0, 1).Value = 1 + oSheet.getCellByPosition(3, 2).Value = 0 + oSheet.getCellByPosition(4, 5).Value = -1 + + oScenarios = oSheet.getScenarios() + + aCRA(0).Sheet = 0 + aCRA(0).StartColumn = 0 + aCRA(0).StartRow = 0 + aCRA(0).EndColumn = 5 + aCRA(0).EndRow = 5 + + oScenarios.addNewByName("Scenario1", aCRA(), "Comment1") + oScenarios.addNewByName("Scenario2", aCRA(), "Comment2") + + oObj = oScenarios.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/script.xlb new file mode 100644 index 000000000000..365a98ba583d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_ScenariosEnumeration/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="sc_ScIndexEnumeration_ScenariosEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_ScenariosEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/sc_ScIndexEnumeration_SheetCellRangesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/sc_ScIndexEnumeration_SheetCellRangesEnumeration.xba new file mode 100644 index 000000000000..16947440d0d1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/sc_ScIndexEnumeration_SheetCellRangesEnumeration.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="sc_ScIndexEnumeration_SheetCellRangesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_SheetCellRangesEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim oRanges as Object + Dim oInstance as Object + + oDoc = utils.createDocument("scalc", cObjectName) + oRanges = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges") + oSheet = oDoc.Sheets(1) + + oInstance=oSheet.getCellRangeByName("A1:C5") + oRanges.insertByName("CellRange1", oInstance) + oInstance=oSheet.getCellRangeByName("A7:D9") + oRanges.insertByName("CellRange2", oInstance) + oInstance=oSheet.getCellRangeByName("E1:E42") + oRanges.insertByName("CellRange3", oInstance) + oInstance=oSheet.getCellRangeByName("A10:B10") + oRanges.insertByName("CellRange4", oInstance) + + oObj = oRanges.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/script.xlb new file mode 100644 index 000000000000..450441480b9b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetCellRangesEnumeration/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="sc_ScIndexEnumeration_SheetCellRangesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_SheetCellRangesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/sc_ScIndexEnumeration_SheetLinksEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/sc_ScIndexEnumeration_SheetLinksEnumeration.xba new file mode 100644 index 000000000000..d20d11a36920 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/sc_ScIndexEnumeration_SheetLinksEnumeration.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="sc_ScIndexEnumeration_SheetLinksEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_SheetLinksEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim oSheet As Object + Dim sURL As String + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + sURL = cTestDocsDir & "ScDDELinksObj.sdc" + oSheet.link(sURL, "Sheet1", "", "", com.sun.star.sheet.SheetLinkMode.VALUE) + + oObj = oDoc.getPropertyValue("SheetLinks").createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/script.xlb new file mode 100644 index 000000000000..6e60465caf1e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SheetLinksEnumeration/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="sc_ScIndexEnumeration_SheetLinksEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_SheetLinksEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration.xba new file mode 100644 index 000000000000..b0d989c08efa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration.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="sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_SpreadsheetViewPanesEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oController As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oController = oDoc.getCurrentController() + oObj = oController.createEnumeration() + wait(1000) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if not isNULL(oDoc) then oDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/script.xlb new file mode 100644 index 000000000000..23170d0672c2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetViewPanesEnumeration/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="sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_SpreadsheetViewPanesEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/sc_ScIndexEnumeration_SpreadsheetsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/sc_ScIndexEnumeration_SpreadsheetsEnumeration.xba new file mode 100644 index 000000000000..952020d42e35 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/sc_ScIndexEnumeration_SpreadsheetsEnumeration.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="sc_ScIndexEnumeration_SpreadsheetsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_SpreadsheetsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oSheets as Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheets = oDoc.getSheets() + oObj = oSheets.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/script.xlb new file mode 100644 index 000000000000..bb473296b67a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SpreadsheetsEnumeration/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="sc_ScIndexEnumeration_SpreadsheetsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_SpreadsheetsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/sc_ScIndexEnumeration_SubTotalFieldsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/sc_ScIndexEnumeration_SubTotalFieldsEnumeration.xba new file mode 100644 index 000000000000..da63ca49dd89 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/sc_ScIndexEnumeration_SubTotalFieldsEnumeration.xba @@ -0,0 +1,69 @@ +<?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="sc_ScIndexEnumeration_SubTotalFieldsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_SubTotalFieldsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim SubTotalDsc As Object + Dim SubTotalCol(0) As New com.sun.star.sheet.SubTotalColumn + Dim oSTF as Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + SubTotalDsc = oDoc.Sheets(0).createSubTotalDescriptor(true) + SubTotalCol(0).Column = 5 + SubTotalCol(0).Function = com.sun.star.sheet.GeneralFunction.SUM + + SubTotalDsc.addNew(SubTotalCol(), 1) + oSTF = SubTotalDsc.getByIndex(0) + oObj = SubTotalDsc.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/script.xlb new file mode 100644 index 000000000000..b88d56a9577d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_SubTotalFieldsEnumeration/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="sc_ScIndexEnumeration_SubTotalFieldsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_SubTotalFieldsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/sc_ScIndexEnumeration_TableAutoFormatEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/sc_ScIndexEnumeration_TableAutoFormatEnumeration.xba new file mode 100644 index 000000000000..801e50642176 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/sc_ScIndexEnumeration_TableAutoFormatEnumeration.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="sc_ScIndexEnumeration_TableAutoFormatEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TableAutoFormatEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oTAF as Object + oDoc = utils.createDocument("scalc", cObjectName) + + oTAF = createUNOService("com.sun.star.sheet.TableAutoFormats") + oObj = oTAF.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/script.xlb new file mode 100644 index 000000000000..1cf0d165928d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableAutoFormatEnumeration/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="sc_ScIndexEnumeration_TableAutoFormatEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TableAutoFormatEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/sc_ScIndexEnumeration_TableChartsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/sc_ScIndexEnumeration_TableChartsEnumeration.xba new file mode 100644 index 000000000000..f6f8e38ed8c9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/sc_ScIndexEnumeration_TableChartsEnumeration.xba @@ -0,0 +1,95 @@ +<?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="sc_ScIndexEnumeration_TableChartsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TableChartsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet As Object + Dim i as Integer,j As Integer + Dim oCharts as Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + + ' Filling some cells with the text + for i = 1 to 6 + oSheet.getCellByPosition(0, i).setString("Row" & i) + oSheet.getCellByPosition(i, 0).setString("Col" & i) + next i + + for i = 1 to 6 + for j = 1 to 6 + oSheet.getCellByPosition(i, j).Value = (i + 1) * j + next j + next i + + Dim tAddr As New com.sun.star.table.CellRangeAddress + tAddr.Sheet = 0 + tAddr.StartRow = 0 + tAddr.StartColumn = 0 + tAddr.EndRow = 6 + tAddr.EndColumn = 6 + + Dim tRect As New com.sun.star.awt.Rectangle + tRect.X = 200 + tRect.Y = 200 + tRect.Width = 10000 + tRect.Height = 5000 + + oCharts = oSheet.getCharts() + + Dim oRanges(0) As New com.sun.star.table.CellRangeAddress + oRanges(0) = tAddr + oCharts.addNewByName(cObjectName, tRect, oRanges(), true, true) + + oObj = oCharts.createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/script.xlb new file mode 100644 index 000000000000..735ea1c6f418 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableChartsEnumeration/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="sc_ScIndexEnumeration_TableChartsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TableChartsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/sc_ScIndexEnumeration_TableColumnsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/sc_ScIndexEnumeration_TableColumnsEnumeration.xba new file mode 100644 index 000000000000..600102ff93f8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/sc_ScIndexEnumeration_TableColumnsEnumeration.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="sc_ScIndexEnumeration_TableColumnsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TableColumnsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oTable as Object + + oDoc = utils.createDocument("scalc", cObjectName) + oTable = oDoc.Sheets(0) + oObj = oTable.getColumns().createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/script.xlb new file mode 100644 index 000000000000..e41f00088804 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableColumnsEnumeration/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="sc_ScIndexEnumeration_TableColumnsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TableColumnsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/sc_ScIndexEnumeration_TableConditionalEntryEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/sc_ScIndexEnumeration_TableConditionalEntryEnumeration.xba new file mode 100644 index 000000000000..43385cbc3c6a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/sc_ScIndexEnumeration_TableConditionalEntryEnumeration.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="sc_ScIndexEnumeration_TableConditionalEntryEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TableConditionalEntryEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oSheet, oConditionalFormat As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oSheet.getCellByPosition(5, 5).Value = 15 + oSheet.getCellByPosition(1, 4).Value = 10 + oSheet.getCellByPosition(2, 0).Value = -5.15 + + oConditionalFormat = oSheet.getPropertyValue("ConditionalFormat") + + Dim oCellAddress As New com.sun.star.table.CellAddress + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + Dim oProps(4) As New com.sun.star.beans.PropertyValue + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$5" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oConditionalFormat.AddNew(oProps()) + + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$3" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oConditionalFormat.AddNew(oProps()) + + oObj = oConditionalFormat.createEnumeration() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/script.xlb new file mode 100644 index 000000000000..ec398ca4e48e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableConditionalEntryEnumeration/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="sc_ScIndexEnumeration_TableConditionalEntryEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TableConditionalEntryEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/sc_ScIndexEnumeration_TableRowsEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/sc_ScIndexEnumeration_TableRowsEnumeration.xba new file mode 100644 index 000000000000..f9d17fc3d403 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/sc_ScIndexEnumeration_TableRowsEnumeration.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="sc_ScIndexEnumeration_TableRowsEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TableRowsEnumeration +'************************************************************************* +On Error Goto ErrHndl + Dim oTable as Object + + oDoc = utils.createDocument("scalc", cObjectName) + oTable = oDoc.Sheets(0) + oObj = oTable.getRows().createEnumeration() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/script.xlb new file mode 100644 index 000000000000..7e5d3684dc1a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TableRowsEnumeration/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="sc_ScIndexEnumeration_TableRowsEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TableRowsEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/sc_ScIndexEnumeration_TextFieldEnumeration.xba b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/sc_ScIndexEnumeration_TextFieldEnumeration.xba new file mode 100644 index 000000000000..400f93009962 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/sc_ScIndexEnumeration_TextFieldEnumeration.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="sc_ScIndexEnumeration_TextFieldEnumeration" 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: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScIndexEnumeration_TextFieldEnumeration +'************************************************************************* +On Error Goto ErrHndl + + Dim oSheet as Object, oCell As Object + Dim oTextField as Object, oTextField1 As Object + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + + oTextField = oDoc.createInstance("com.sun.star.text.TextField.URL") + + oSheet = oDoc.Sheets(0) + oCell = oSheet.getCellByPosition(5, 5) + oCell.insertTextContent(oCell.createTextCursor, oTextField, true) + + oObj = oCell.getTextFields().createEnumeration() + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/script.xlb b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/script.xlb new file mode 100644 index 000000000000..45af83a841cb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScIndexEnumeration_TextFieldEnumeration/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="sc_ScIndexEnumeration_TextFieldEnumeration" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScIndexEnumeration_TextFieldEnumeration"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/sc_ScLabelRangeObj.xba b/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/sc_ScLabelRangeObj.xba new file mode 100644 index 000000000000..935bb0b40f99 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/sc_ScLabelRangeObj.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="sc_ScLabelRangeObj" 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: +' sc.ScLabelRangeObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim RangeAddress1 As New com.sun.star.table.CellRangeAddress + Dim RangeAddress2 As New com.sun.star.table.CellRangeAddress + Dim oRanges As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oRanges = oDoc.getPropertyValue("ColumnLabelRanges") + RangeAddress1.Sheet = 0 + RangeAddress1.StartColumn = 1 + RangeAddress1.StartRow = 1 + RangeAddress1.EndColumn = 2 + RangeAddress1.EndRow = 2 + + RangeAddress2.Sheet = 0 + RangeAddress2.StartColumn = 5 + RangeAddress2.StartRow = 5 + RangeAddress2.EndColumn = 6 + RangeAddress2.EndRow = 7 + + oRanges.addNew(RangeAddress1, RangeAddress2) + + oObj = oRanges(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/script.xlb new file mode 100644 index 000000000000..e7a39e61cfab --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScLabelRangeObj/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="sc_ScLabelRangeObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScLabelRangeObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/sc_ScLabelRangesObj.xba b/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/sc_ScLabelRangesObj.xba new file mode 100644 index 000000000000..482c89c426ca --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/sc_ScLabelRangesObj.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="sc_ScLabelRangesObj" 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: +' sc.ScLabelRangesObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim RangeAddress1 As New com.sun.star.table.CellRangeAddress + Dim RangeAddress2 As New com.sun.star.table.CellRangeAddress + Dim oRanges As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oRanges = oDoc.getPropertyValue("ColumnLabelRanges") + RangeAddress1.Sheet = 0 + RangeAddress1.StartColumn = 1 + RangeAddress1.StartRow = 1 + RangeAddress1.EndColumn = 2 + RangeAddress1.EndRow = 2 + + RangeAddress2.Sheet = 0 + RangeAddress2.StartColumn = 5 + RangeAddress2.StartRow = 5 + RangeAddress2.EndColumn = 6 + RangeAddress2.EndRow = 7 + + oRanges.addNew(RangeAddress1, RangeAddress2) + + oObj = oRanges + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/script.xlb new file mode 100644 index 000000000000..db8dd5aed90f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScLabelRangesObj/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="sc_ScLabelRangesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScLabelRangesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScModelObj/sc_ScModelObj.xba b/qadevOOo/tests/basic/mod/sc/ScModelObj/sc_ScModelObj.xba new file mode 100644 index 000000000000..fdc39142d5dc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScModelObj/sc_ScModelObj.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="sc_ScModelObj" 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 oXModelController as Object +Global oXModelSel as Object +Global oXModelToSel as Object +Global oComponentInstance As Object +Global oControllerDoc As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScModelObj +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oComponentInstance = utils.createDocument("scalc", cObjectName & "1") + oControllerDoc = utils.createDocument("scalc", cObjectName & "2") + + oObj = oDoc + + oXModelToSel = oDoc.Sheets(0).getCellByPosition(2,3) + oXModelController = oControllerDoc.getCurrentController() + oXModelSel = oDoc.getCurrentController() +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNULL(oComponentInstance) then oComponentInstance.dispose() + if NOT isNULL(oControllerDoc) then oControllerDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScModelObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScModelObj/script.xlb new file mode 100644 index 000000000000..05c588dacb23 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScModelObj/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="sc_ScModelObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScModelObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/sc_ScNamedRangeObj.xba b/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/sc_ScNamedRangeObj.xba new file mode 100644 index 000000000000..020ef20081e3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/sc_ScNamedRangeObj.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="sc_ScNamedRangeObj" 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 oReferredCells As Variant + +' Required by com.sun.star.container.XNamed +Global cNameToSet As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScNamedRangeObj +'************************************************************************* +On Error Goto ErrHndl + Dim oNamedRanges As Variant + Dim sBase As New com.sun.star.table.CellAddress + + oDoc = utils.createDocument("scalc", cObjectName) + oNamedRanges = oDoc.getPropertyValue("NamedRanges") + + sBase.sheet = 0 + sBase.Column = 0 + sBase.Row = 0 + + oNamedRanges.addNewByName(cObjectName, "A1:B3", sBase, 0) + + Dim ReferredCells As New com.sun.star.table.CellRangeAddress + ReferredCells.Sheet = 0 + ReferredCells.StartRow = 0 + ReferredCells.StartColumn = 0 + ReferredCells.EndRow = 2 + ReferredCells.EndColumn = 1 + + oReferredCells = ReferredCells + + oObj = oNamedRanges.getByName(cObjectName) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/script.xlb new file mode 100644 index 000000000000..70955626df3a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScNamedRangeObj/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="sc_ScNamedRangeObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScNamedRangeObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/sc_ScNamedRangesObj.xba b/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/sc_ScNamedRangesObj.xba new file mode 100644 index 000000000000..d9bf1c13229e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/sc_ScNamedRangesObj.xba @@ -0,0 +1,69 @@ +<?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="sc_ScNamedRangesObj" 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: +' sc.ScNamedRangesObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oNamedRanges As Object + Dim sBase As New com.sun.star.table.CellAddress + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oNamedRanges = oDoc.getPropertyValue("NamedRanges") + + sBase.sheet = 0 + sBase.Column = 0 + sBase.Row = 0 + + oNamedRanges.addNewByNAme(cObjectName, "A1:B3", sBase, 0) + + oObj = oNamedRanges + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/script.xlb new file mode 100644 index 000000000000..7eaf3657e2be --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScNamedRangesObj/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="sc_ScNamedRangesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScNamedRangesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScPageObj/sc_ScPageObj.xba b/qadevOOo/tests/basic/mod/sc/ScPageObj/sc_ScPageObj.xba new file mode 100644 index 000000000000..b2863fe1d39f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScPageObj/sc_ScPageObj.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="sc_ScPageObj" 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: + +' "com::sun::star::drawing::XShapes" needs the following Global variables: +Global oXShapeInstance As Object + +' "com::sun::star::drawing::XShapeGrouper" needs the following Global variables: +Global oGrouperCollection As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScPageObj +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oDP as Object + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + oGrouperCollection = createUNOService("com.sun.star.drawing.ShapeCollection") + + oDP = oDoc.getDrawPages() + + oDP.insertNewByIndex(0) + oDP.insertNewByIndex(1) + + oObj = oDP.getByIndex(0) + addShape(oObj,1) + addShape(oObj,2) + addShape(oObj,3) + addShape(oObj,4) + + oXShapeInstance = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oGrouperCollection.Add(oObj.getByIndex(2)) + oGrouperCollection.Add(oObj.getByIndex(3)) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Function addShape(oPage as Object, no as Integer) As Object +On Error Goto ErrHndl + Dim aPoint As New com.sun.star.awt.Point + Dim aSize As New com.sun.star.awt.Size + Dim oShape As Object + Dim servNames As Variant + + aPoint.x = 1000 * no + aPoint.y = 1000 * no + aSize.Width = 2000 + aSize.Height = 1000 + oShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oShape.Size = aSize + oShape.Position = aPoint + + oPage.add(oShape) + + addShapeToDrawDoc() = oShape +Exit Function +ErrHndl: + Test.Exception() +End Function + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScPageObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScPageObj/script.xlb new file mode 100644 index 000000000000..9a4815c1a3d9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScPageObj/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="sc_ScPageObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScPageObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/sc_ScRecentFunctionsObj.xba b/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/sc_ScRecentFunctionsObj.xba new file mode 100644 index 000000000000..632997d122e7 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/sc_ScRecentFunctionsObj.xba @@ -0,0 +1,61 @@ +<?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="sc_ScRecentFunctionsObj" 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.sheet.XRecentFunctions +Global AllFunctions As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScRecentFunctionsObj +'************************************************************************* +On Error Goto ErrHndl + + oObj = createUnoService("com.sun.star.sheet.RecentFunctions") + AllFunctions = createUnoService("com.sun.star.sheet.FunctionDescriptions") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/script.xlb new file mode 100644 index 000000000000..0c346580562d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScRecentFunctionsObj/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="sc_ScRecentFunctionsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScRecentFunctionsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScScenariosObj/sc_ScScenariosObj.xba b/qadevOOo/tests/basic/mod/sc/ScScenariosObj/sc_ScScenariosObj.xba new file mode 100644 index 000000000000..1397f01ce0e1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScScenariosObj/sc_ScScenariosObj.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="sc_ScScenariosObj" 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: +' sc.ScScenariosObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim aCRA(0) As New com.sun.star.table.CellRangeAddress + Dim oSheet As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oSheet.getCellByPosition(0, 1).Value = 1 + oSheet.getCellByPosition(3, 2).Value = 0 + oSheet.getCellByPosition(4, 5).Value = -1 + + oObj = oSheet.getScenarios() + + aCRA(0).Sheet = 0 + aCRA(0).StartColumn = 0 + aCRA(0).StartRow = 0 + aCRA(0).EndColumn = 5 + aCRA(0).EndRow = 5 + + oObj.addNewByName("Scenario1", aCRA(), "Comment1") + oObj.addNewByName("Scenario2", aCRA(), "Comment2") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScScenariosObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScScenariosObj/script.xlb new file mode 100644 index 000000000000..3bd24d608918 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScScenariosObj/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="sc_ScScenariosObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScScenariosObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/sc_ScSheetLinkObj.xba b/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/sc_ScSheetLinkObj.xba new file mode 100644 index 000000000000..7a7160f07d1f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/sc_ScSheetLinkObj.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="sc_ScSheetLinkObj" 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 by com.sun.star.container.XNamed +Global cNameToSet As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScSheetLinkObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oLinks As Object + Dim sURL As String + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + sURL = cTestDocsDir & "ScSheetLinksObj.sdc" + oSheet.link(sURL, "Sheet1", "", "", com.sun.star.sheet.SheetLinkMode.VALUE) + oLinks = oDoc.getPropertyValue("SheetLinks") + + oObj = oLinks.getByIndex(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/script.xlb new file mode 100644 index 000000000000..07b533e4b1b0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSheetLinkObj/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="sc_ScSheetLinkObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSheetLinkObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/sc_ScSheetLinksObj.xba b/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/sc_ScSheetLinksObj.xba new file mode 100644 index 000000000000..0a2cd6bf5ae1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/sc_ScSheetLinksObj.xba @@ -0,0 +1,62 @@ +<?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="sc_ScSheetLinksObj" 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: +' sc.ScSheetLinksObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim sURL As String + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + sURL = cTestDocsDir & "ScDDELinksObj.sdc" + oSheet.link(sURL, "Sheet1", "", "", com.sun.star.sheet.SheetLinkMode.VALUE) + + oObj = oDoc.getPropertyValue("SheetLinks") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/script.xlb new file mode 100644 index 000000000000..62787f29736b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSheetLinksObj/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="sc_ScSheetLinksObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSheetLinksObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/sc_ScSpreadsheetSettings.xba b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/sc_ScSpreadsheetSettings.xba new file mode 100644 index 000000000000..d55538b44064 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/sc_ScSpreadsheetSettings.xba @@ -0,0 +1,61 @@ +<?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="sc_ScSpreadsheetSettings" 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: +' sc.ScSpreadsheetSettings +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oSettings As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oSettings = createUnoService("com.sun.star.sheet.GlobalSheetSettings") + + oObj = oSettings + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/script.xlb new file mode 100644 index 000000000000..a1ffc4f1a456 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettings/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="sc_ScSpreadsheetSettings" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSpreadsheetSettings"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/sc_ScSpreadsheetSettingsObj.xba b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/sc_ScSpreadsheetSettingsObj.xba new file mode 100644 index 000000000000..db445896a86e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/sc_ScSpreadsheetSettingsObj.xba @@ -0,0 +1,56 @@ +<?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="sc_ScSpreadsheetSettingsObj" 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: +' sc.ScSpreadsheetSettingsObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/script.xlb new file mode 100644 index 000000000000..303297ae4c64 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSpreadsheetSettingsObj/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="sc_ScSpreadsheetSettingsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSpreadsheetSettingsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/sc_ScStyleFamiliesObj.xba b/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/sc_ScStyleFamiliesObj.xba new file mode 100644 index 000000000000..030c130e13a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/sc_ScStyleFamiliesObj.xba @@ -0,0 +1,62 @@ +<?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="sc_ScStyleFamiliesObj" 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: +' sc.ScStyleFamiliesObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.StyleFamilies + + ' nGlobalLong is 2 "CellStyles" and "PageStyles" + nGlobalLong = 2 + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/script.xlb new file mode 100644 index 000000000000..5e7e3bee29ba --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleFamiliesObj/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="sc_ScStyleFamiliesObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScStyleFamiliesObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/sc_ScStyleFamilyObj.xba b/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/sc_ScStyleFamilyObj.xba new file mode 100644 index 000000000000..cfef8896328e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/sc_ScStyleFamilyObj.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="sc_ScStyleFamilyObj" 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 oInstance As Object +Global cNameToReplace As String +Global oReplaceInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScStyleFamilyObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.StyleFamilies.getByName("PageStyles") + + ' creating differen formats + oInstance = oDoc.createInstance("com.sun.star.style.PageStyle") + oInstance.BackgroundColor = 65280 + oObj.insertByName(cObjectName & "_Green", oInstance) + + oInstance = oDoc.createInstance("com.sun.star.style.PageStyle") + oInstance.HeaderOn = false + oInstance.FooterOn = true + oObj.insertByName(cObjectName & "_FooterOn", oInstance) + + oReplaceInstance = oDoc.createInstance("com.sun.star.style.PageStyle") + oReplaceInstance.IsLandscape = true + cNameToReplace = cObjectName & "_FooterOn" + + oInstance = oDoc.createInstance("com.sun.star.style.PageStyle") + oInstance.HeaderOn = true + oInstance.FooterOn = false + + nGlobalLong = oObj.Count + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/script.xlb new file mode 100644 index 000000000000..72004d2ef4e1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleFamilyObj/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="sc_ScStyleFamilyObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScStyleFamilyObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleObj/sc_ScStyleObj.xba b/qadevOOo/tests/basic/mod/sc/ScStyleObj/sc_ScStyleObj.xba new file mode 100644 index 000000000000..383f68fadd08 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleObj/sc_ScStyleObj.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="sc_ScStyleObj" 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.style.XStyle + Global oStandartStyle As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScStyleObj +'************************************************************************* +On Error Goto ErrHndl + Dim oStyleFamilies, aElementNames As Variant + Dim oCell, oStyleFamily, oNew As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oCell = oDoc.Sheets(0).getCellByPosition(0, 0) + oStyleFamilies = oDoc.StyleFamilies + aElementNames = oStyleFamilies.Elementnames + oNew = oDoc.createInstance("com.sun.star.style.CellStyle") + oStyleFamily = oStyleFamilies.getByIndex(0)' + oStyleFamily.insertByName("Dummy", oNew) + oObj = oStyleFamily.getByName("Dummy") + + oCell.setPropertyValue("CellStyle", "Dummy") + + cNameToSet = aElementNames(0) + oStandartStyle = oStyleFamily.getByIndex(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScStyleObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScStyleObj/script.xlb new file mode 100644 index 000000000000..50fa02f3da2c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScStyleObj/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="sc_ScStyleObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScStyleObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/sc_ScSubTotalDescriptorBase.xba b/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/sc_ScSubTotalDescriptorBase.xba new file mode 100644 index 000000000000..7c90e914f6f3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/sc_ScSubTotalDescriptorBase.xba @@ -0,0 +1,61 @@ +<?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="sc_ScSubTotalDescriptorBase" 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: +' sc.ScSubTotalDescriptorBase +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim SubTotalDsc As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + SubTotalDsc = oDoc.Sheets(0).createSubTotalDescriptor(true) + oObj = SubTotalDsc + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/script.xlb new file mode 100644 index 000000000000..c3a54021d887 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSubTotalDescriptorBase/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="sc_ScSubTotalDescriptorBase" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSubTotalDescriptorBase"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/sc_ScSubTotalFieldObj.xba b/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/sc_ScSubTotalFieldObj.xba new file mode 100644 index 000000000000..ed5d6056e17d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/sc_ScSubTotalFieldObj.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="sc_ScSubTotalFieldObj" 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: +' sc.ScSubTotalFieldObj +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim SubTotalDsc As Object + Dim SubTotalCol(0) As New com.sun.star.sheet.SubTotalColumn + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + SubTotalDsc = oDoc.Sheets(0).createSubTotalDescriptor(true) + SubTotalCol(0).Column = 5 + SubTotalCol(0).Function = com.sun.star.sheet.GeneralFunction.SUM + + SubTotalDsc.addNew(SubTotalCol(), 1) + oObj = SubTotalDsc.getByIndex(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/script.xlb new file mode 100644 index 000000000000..82bd8e5d8093 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScSubTotalFieldObj/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="sc_ScSubTotalFieldObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScSubTotalFieldObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTabViewObj/sc_ScTabViewObj.xba b/qadevOOo/tests/basic/mod/sc/ScTabViewObj/sc_ScTabViewObj.xba new file mode 100644 index 000000000000..b0922cc39321 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTabViewObj/sc_ScTabViewObj.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="sc_ScTabViewObj" 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.view.XSelectionSupplier + Global SelectableObj1 As Object + Global SelectableObj2 As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTabViewObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.currentController + SelectableObj1 = oDoc.Sheets(0).getCellRangeByPosition(1, 1, 4, 5) + SelectableObj2 = oDoc.Sheets(0).getCellRangeByPosition(2, 4, 6, 7) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTabViewObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTabViewObj/script.xlb new file mode 100644 index 000000000000..c5c89921ff64 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTabViewObj/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="sc_ScTabViewObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTabViewObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/sc_ScTableColumnObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/sc_ScTableColumnObj.xba new file mode 100644 index 000000000000..c416d50df2d8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/sc_ScTableColumnObj.xba @@ -0,0 +1,69 @@ +<?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="sc_ScTableColumnObj" 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 + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTableColumnObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet, oColumn, oCellRange As Object + Dim oColumns As Variant + + oDoc = utils.createDocument("scalc", cObjectName) + oSheet = oDoc.Sheets(0) + oCellRange = oSheet.getCellRangeByPosition(0,0,10,10) + oColumns = oCellRange.getColumns + oColumn = oColumns.getByIndex(5) + + oObj = oColumn + cNameToSet = "fixed" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/script.xlb new file mode 100644 index 000000000000..eb8c487202f9 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableColumnObj/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="sc_ScTableColumnObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableColumnObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/sc_ScTableColumnsObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/sc_ScTableColumnsObj.xba new file mode 100644 index 000000000000..fbf62a1c43bb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/sc_ScTableColumnsObj.xba @@ -0,0 +1,62 @@ +<?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="sc_ScTableColumnsObj" 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 XTableColumns + Global oTable As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTableColumnsObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oTable = oDoc.Sheets(0) + oObj = oTable.getColumns() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/script.xlb new file mode 100644 index 000000000000..9e80c2978193 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableColumnsObj/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="sc_ScTableColumnsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableColumnsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/sc_ScTableConditionalEntry.xba b/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/sc_ScTableConditionalEntry.xba new file mode 100644 index 000000000000..e6956b4cb952 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/sc_ScTableConditionalEntry.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="sc_ScTableConditionalEntry" 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: +' sc.ScTableConditionalEntry +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSheet, oConditionalFormat As Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oSheet.getCellByPosition(5, 5).Value = 15 + oSheet.getCellByPosition(1, 4).Value = 10 + oSheet.getCellByPosition(2, 0).Value = -5.15 + + oConditionalFormat = oSheet.getPropertyValue("ConditionalFormat") + + Dim oCellAddress As New com.sun.star.table.CellAddress + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + Dim oProps(4) As New com.sun.star.beans.PropertyValue + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$5" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oConditionalFormat.AddNew(oProps()) + + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$3" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oConditionalFormat.AddNew(oProps()) + + oObj = oConditionalFormat.getByIndex(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/script.xlb new file mode 100644 index 000000000000..4dcc8f67ca63 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableConditionalEntry/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="sc_ScTableConditionalEntry" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableConditionalEntry"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/sc_ScTableConditionalFormat.xba b/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/sc_ScTableConditionalFormat.xba new file mode 100644 index 000000000000..cd19406e9f35 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/sc_ScTableConditionalFormat.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="sc_ScTableConditionalFormat" 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: +' sc.ScTableConditionalFormat +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oSheet.getCellByPosition(5, 5).Value = 15 + oSheet.getCellByPosition(1, 4).Value = 10 + oSheet.getCellByPosition(2, 0).Value = -5.15 + + oObj = oSheet.getPropertyValue("ConditionalFormat") + + Dim oCellAddress As New com.sun.star.table.CellAddress + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + Dim oProps(4) As New com.sun.star.beans.PropertyValue + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$5" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oObj.AddNew(oProps()) + + oCellAddress.Sheet = 0 + oCellAddress.Row = 1 + oCellAddress.Column = 5 + + oProps(0).Name = "StyleName" + oProps(0).Value = "Result2" + oProps(1).Name = "Formula1" + oProps(1).Value = "$Sheet1.$B$3" + oProps(2).Name = "Formula2" + oProps(2).Value = "" + oProps(3).Name = "Operator" + oProps(3).Value = com.sun.star.sheet.ConditionOperator.EQUAL + oProps(4).Name = "SourcePosition" + oProps(4).Value = oCellAddress + + oObj.AddNew(oProps()) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub ReCreateObj() + if not isNULL(oDoc) then oDoc.dispose() + CreateObj() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/script.xlb new file mode 100644 index 000000000000..0b636a6bb49a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableConditionalFormat/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="sc_ScTableConditionalFormat" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableConditionalFormat"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableRowObj/sc_ScTableRowObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableRowObj/sc_ScTableRowObj.xba new file mode 100644 index 000000000000..7ceabf00d669 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableRowObj/sc_ScTableRowObj.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="sc_ScTableRowObj" 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: +' sc.ScTableRowObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + Dim oRows As Variant + Dim oRow As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets(0) + oRows = oSheet.getRows + oRow = oRows.getByIndex(5) + + oObj = oRow + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableRowObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableRowObj/script.xlb new file mode 100644 index 000000000000..0aa03bfc0922 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableRowObj/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="sc_ScTableRowObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableRowObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/sc_ScTableRowsObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/sc_ScTableRowsObj.xba new file mode 100644 index 000000000000..f794bd93db06 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/sc_ScTableRowsObj.xba @@ -0,0 +1,62 @@ +<?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="sc_ScTableRowsObj" 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 XTableRows + Global oTable As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTableRowsObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oTable = oDoc.Sheets(0) + oObj = oTable.getRows() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/script.xlb new file mode 100644 index 000000000000..0c0d33a2d264 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableRowsObj/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="sc_ScTableRowsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableRowsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/sc_ScTableSheetObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/sc_ScTableSheetObj.xba new file mode 100644 index 000000000000..86439b375d75 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/sc_ScTableSheetObj.xba @@ -0,0 +1,123 @@ +<?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="sc_ScTableSheetObj" 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.sheet.Spreadsheet +Global sStyleName As String + +' Required for com.sun.star.chart.XChartData +Global oCellToChange As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTableSheetObj +'************************************************************************* +On Error Goto ErrHndl + Dim oStyleFamilies As Variant + Dim oNewPageStyle As Object + Dim oStyleFamily As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.sheets(0) + + sStyleName = "MyStyle" + ' Adding new page style for Spreadsheet service testing + oStyleFamilies = oDoc.StyleFamilies + oStyleFamily = oStyleFamilies.getByName("PageStyles") + oNewPageStyle = oDoc.createInstance("com.sun.star.style.PageStyle") + oStyleFamily.insertByName(sStyleName, oNewPageStyle) + + oCellToChange = oObj.getCellByPosition(2, 2) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +Function modifyDescriptor(descr As Variant) As Variant +On Error Goto ErrHndl + Dim i As Integer, n as Integer + Dim oCell As Object + Dim vFields(0) as new com.sun.star.table.TableSortField + + for i = 0 to 10 - 1 + oCell = oObj.getCellByPosition(0, i) + oCell.String = "" + (10 - i) + oCell.setFormula(10 - i) + next i + 'ShowNameValuePair(descr) + vFields(0).IsCaseSensitive = false + vFields(0).IsAscending = true + vFields(0).FieldType = com.sun.star.table.TableSortFieldType.ALPHANUMERIC + for i = 0 to ubound(descr) + if descr(i).Name = "IsSortColumns" then descr(i).Value = false + if descr(i).Name = "SortFields" then descr(i).Value = vFields() + next i + + modifyDescriptor() = descr +Exit Function +ErrHndl: + Out.Log("Exception in ScTableSheetObj.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 10 - 1 + oCell = oObj.getCellByPosition(0,i) + bOK = bOK AND oCell.String = "" + (i + 1) + out.dbg(oCell.String + ":" + (i+1)) + next i + + checkSort() = bOK +Exit Function +ErrHndl: + Out.Log("Exception in ScTableSheetObj.checkSort() :") + Test.Exception() +end Function + + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/script.xlb new file mode 100644 index 000000000000..5779c6344207 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableSheetObj/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="sc_ScTableSheetObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableSheetObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/sc_ScTableSheetsObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/sc_ScTableSheetsObj.xba new file mode 100644 index 000000000000..d8d7db30c672 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/sc_ScTableSheetsObj.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="sc_ScTableSheetsObj" 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 XSpreadsheets + Global nGlobalLong As Long 'the number of sheets + +' Requiered for XNameReplace + Global cNameToReplace As String 'name of instance to be replased + Global oReplaceInstance As Object 'instance, that will be inserted + 'instead old one + +' Requiered for XNameContainer + Global oInstance As Object 'instance to insert + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScTableSheetsObj +'************************************************************************* +On Error Goto ErrHndl + + oDoc = utils.createDocument("scalc", cObjectName) + oObj = oDoc.sheets + + nGlobalLong = oObj.count() + cNameToReplace = "Sheet1" + oReplaceInstance = oDoc.createInstance("com.sun.star.sheet.Spreadsheet") + oReplaceInstance.Name = "ReplaceInstance" + + oInstance = oDoc.createInstance("com.sun.star.sheet.Spreadsheet") + oInstance.Name = "InsertInstance" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/script.xlb new file mode 100644 index 000000000000..769981f22ad2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableSheetsObj/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="sc_ScTableSheetsObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableSheetsObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/sc_ScTableValidationObj.xba b/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/sc_ScTableValidationObj.xba new file mode 100644 index 000000000000..3d021a91eb3e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/sc_ScTableValidationObj.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="sc_ScTableValidationObj" 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: +' sc.ScTableValidationObj +'************************************************************************* +On Error Goto ErrHndl + Dim oSheet As Object + + oDoc = utils.createDocument("scalc", cObjectName) + + oSheet = oDoc.Sheets.getByIndex(0) + oObj = oSheet.getPropertyValue("Validation") + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/script.xlb new file mode 100644 index 000000000000..475644b9a162 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScTableValidationObj/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="sc_ScTableValidationObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScTableValidationObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/sc_ScViewPaneObj.xba b/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/sc_ScViewPaneObj.xba new file mode 100644 index 000000000000..303a1593d86f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/sc_ScViewPaneObj.xba @@ -0,0 +1,69 @@ +<?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="sc_ScViewPaneObj" 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.sheet.XCellRangeReferrer +Global oReferredCells As Variant + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.ScViewPaneObj +'************************************************************************* +On Error Goto ErrHndl + Dim oController As Object + + oDoc = utils.createDocument("scalc", cObjectName) + oController = oDoc.getCurrentController() + oObj = oController.getByIndex(0) + wait(1000) + + oReferredCells = oObj.getVisibleRange() +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if not isNULL(oDoc) then oDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/script.xlb b/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/script.xlb new file mode 100644 index 000000000000..c4b6ca9fb33b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/ScViewPaneObj/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="sc_ScViewPaneObj" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_ScViewPaneObj"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLContentExporter/sc_XMLContentExporter.xba b/qadevOOo/tests/basic/mod/sc/XMLContentExporter/sc_XMLContentExporter.xba new file mode 100644 index 000000000000..61a2c69b6478 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLContentExporter/sc_XMLContentExporter.xba @@ -0,0 +1,124 @@ +<?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="sc_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 + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.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, Tag5, Tag6, Tag7, Tag8 As Variant + Dim expString As String + Dim oSheets, oSheet, oCell As Object + + printXML = true + expString = "XMLContentExporter" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("scalc", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-content") + Tag2 = Array("office:body") + Tag3 = Array("office:script") + Tag4 = Array("table:table") + Tag5 = Array("table:table-column") + Tag6 = Array("table:table-row") + Tag7 = Array("table:table-cell") + Tag8 = Array("text:p") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("TagEnclosed", Tag3, Tag1), _ + Array("TagEnclosed", Tag4, Tag2), _ + Array("TagEnclosed", Tag5, Tag4), _ + Array("TagEnclosed", Tag6, Tag4), _ + Array("TagEnclosed", Tag7, Tag6), _ + Array("TagEnclosed", Tag8, Tag7), _ + Array("CharsEnclosed", Tag8, expString) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Calc.XMLContentExporter", initArgs()) + + oSheets = oDoc.getSheets() + oSheet = oSheets.getByIndex(0) + oCell = oSheet.getCellByPosition(0, 0) + oCell.setFormula(expString) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "scalc: StarOffice XML (spreadsheet)" + 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/sc/XMLContentExporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLContentExporter/script.xlb new file mode 100644 index 000000000000..64f440f3d14e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLContentExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLContentExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLContentImporter/sc_XMLContentImporter.xba b/qadevOOo/tests/basic/mod/sc/XMLContentImporter/sc_XMLContentImporter.xba new file mode 100644 index 000000000000..34b76255a9d1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLContentImporter/sc_XMLContentImporter.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="sc_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 sValue As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.XMLContentImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = createUnoService("com.sun.star.comp.Calc.XMLContentImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sValue = "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", _ + "xmlns:table", "CDATA", "http://openoffice.org/2000/table", _ + "office:class", "CDATA", "spreadsheet"), _ + Array("start", "office:body"), _ + Array("start", "table:table", _ + "table:name", "CDATA", sValue), _ + Array("end", "table:table"), _ + 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 sheets As Object + out.log("checking of import...") + sheets = oDoc.getSheets() + res = sheets.hasByName(sValue) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/XMLContentImporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLContentImporter/script.xlb new file mode 100644 index 000000000000..a4af6299ac20 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLContentImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLContentImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLExporter/sc_XMLExporter.xba b/qadevOOo/tests/basic/mod/sc/XMLExporter/sc_XMLExporter.xba new file mode 100644 index 000000000000..bd087a3b2b9e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLExporter/sc_XMLExporter.xba @@ -0,0 +1,122 @@ +<?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="sc_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: +' sc.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, Tag8 As Variant + Dim expString As String + Dim oSheets As Object + Dim oSheet As Object + + printXML = true + expString = "NewNameOfSheet" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("scalc", 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("table:table") + Tag8 = Array("table:table", "table:name", expString) + filter = Array( _ + Array("TagExists", Tag1, Tag8), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("TagEnclosed", Tag3, Tag1), _ + Array("TagEnclosed", Tag4, Tag1), _ + Array("TagEnclosed", Tag5, Tag1), _ + Array("TagEnclosed", Tag6, Tag1), _ + Array("TagEnclosed", Tag7, Tag6) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Calc.XMLExporter", initArgs()) + + oSheets = oDoc.getSheets() + oSheet = oSheets.getByIndex(0) + oSheet.setName(expString) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "scalc: StarOffice XML (spreadsheet)" + 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/sc/XMLExporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLExporter/script.xlb new file mode 100644 index 000000000000..bbad099091c6 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLImporter/sc_XMLImporter.xba b/qadevOOo/tests/basic/mod/sc/XMLImporter/sc_XMLImporter.xba new file mode 100644 index 000000000000..3e2afecef2e2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLImporter/sc_XMLImporter.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="sc_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 sValue As String + +' Required for com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.XMLImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = createUnoService("com.sun.star.comp.Calc.XMLImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sValue = "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", _ + "xmlns:table", "CDATA", "http://openoffice.org/2000/table", _ + "office:class", "CDATA", "spreadsheet"), _ + Array("start", "office:body"), _ + Array("start", "table:table", _ + "table:name", "CDATA", sValue), _ + Array("end", "table:table"), _ + 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 sheets As Object + out.log("checking of import...") + sheets = oDoc.getSheets() + res = sheets.hasByName(sValue) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/XMLImporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLImporter/script.xlb new file mode 100644 index 000000000000..0f1844030b73 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLMetaExporter/sc_XMLMetaExporter.xba b/qadevOOo/tests/basic/mod/sc/XMLMetaExporter/sc_XMLMetaExporter.xba new file mode 100644 index 000000000000..0677211a3bdc --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLMetaExporter/sc_XMLMetaExporter.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="sc_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: +' sc.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 = "NewTitleOfCalcDoc" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("scalc", 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, Tag2), _ + Array("CharsEnclosed", Tag3, expString) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Calc.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 = "scalc: StarOffice XML (spreadsheet)" + 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/sc/XMLMetaExporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLMetaExporter/script.xlb new file mode 100644 index 000000000000..a21f959a083b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLMetaExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLMetaExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLMetaImporter/sc_XMLMetaImporter.xba b/qadevOOo/tests/basic/mod/sc/XMLMetaImporter/sc_XMLMetaImporter.xba new file mode 100644 index 000000000000..7bb319975478 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLMetaImporter/sc_XMLMetaImporter.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="sc_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: +' sc.XMLMetaImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = createUnoService("com.sun.star.comp.Calc.XMLMetaImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sTitle = "XMLMetaImporter" + vXMLData = Array( _ + Array("start", "office:document-meta", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:meta", "CDATA", "http://openoffice.org/2000/meta", _ + "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 docInfo As Object + Dim title As String + out.log("checking of import...") + docInfo = oDoc.getDocumentInfo() + title = docInfo.getPropertyValue("Title") + res = title = sTitle + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/XMLMetaImporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLMetaImporter/script.xlb new file mode 100644 index 000000000000..b206fbd0b7f2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLMetaImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLMetaImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLSettingsExporter/sc_XMLSettingsExporter.xba b/qadevOOo/tests/basic/mod/sc/XMLSettingsExporter/sc_XMLSettingsExporter.xba new file mode 100644 index 000000000000..6134c2e9b535 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLSettingsExporter/sc_XMLSettingsExporter.xba @@ -0,0 +1,118 @@ +<?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="sc_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: +' sc.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 oProp, oPropToSet As Boolean + Dim oController As Object + + printXML = true + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("scalc", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + oController = oDoc.getCurrentController() + oProp = oController.getPropertyValue("ShowGrid") + if (oProp = false) then + oPropToSet = true + else + oPropToSet = false + endif + + + Tag1 = Array("office:document-settings") + Tag2 = Array("office:settings") + Tag3 = Array("config:config-item", "config:name", "ShowGrid") + filter = Array( _ + Array("TagExists", Tag1), _ + Array("TagEnclosed", Tag2, Tag1), _ + Array("CharsEnclosed", Tag3, LCase(oPropToSet)) _ + ) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Calc.XMLSettingsExporter", initArgs()) + + oController.setPropertyValue("ShowGrid", oPropToSet) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "scalc: StarOffice XML (spreadsheet)" + 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/sc/XMLSettingsExporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLSettingsExporter/script.xlb new file mode 100644 index 000000000000..78a3fcfeac0d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLSettingsExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLSettingsExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLSettingsImporter/sc_XMLSettingsImporter.xba b/qadevOOo/tests/basic/mod/sc/XMLSettingsImporter/sc_XMLSettingsImporter.xba new file mode 100644 index 000000000000..c29b15d20727 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLSettingsImporter/sc_XMLSettingsImporter.xba @@ -0,0 +1,99 @@ +<?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="sc_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 com.sun.star.document.XImporter: + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.XMLSettingsImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = createUnoService("com.sun.star.comp.Calc.XMLSettingsImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + vXMLData = Array( _ + Array("start", "office:document-settings", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:xlink", "CDATA", "http://www.w3.org/1999/xlink", _ + "xmlns:config", "CDATA", "http://openoffice.org/2001/config"), _ + 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", "ShowGrid", _ + "config:type", "CDATA", "boolean"), _ + Array("chars", "false"), _ + 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 controller As Object + Dim isShowGrid As Boolean + out.log("checking of import...") + controller = oDoc.getCurrentController() + isShowGrid = controller.getPropertyValue("ShowGrid") + res = not isShowGrid + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/XMLSettingsImporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLSettingsImporter/script.xlb new file mode 100644 index 000000000000..108809c8a8bf --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLSettingsImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLSettingsImporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLStylesExporter/sc_XMLStylesExporter.xba b/qadevOOo/tests/basic/mod/sc/XMLStylesExporter/sc_XMLStylesExporter.xba new file mode 100644 index 000000000000..509c07e8abfa --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLStylesExporter/sc_XMLStylesExporter.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="sc_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: +' sc.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 oStyleFamilies, oSFNames, oFamilyName, oFamily, oStyle As Object + + printXML = true + expString = "NewCellStyle" + oMSF = getProcessServiceManager() + oDoc = utils.createDocument("scalc", cObjectName) + oDocHandler = oMSF.createInstanceWithArguments("basichelper.DocumentHandler", Array(printXML)) + + Tag1 = Array("office:document-styles") + Tag2 = Array("style:style", "style:name", expString) + filter = Array(Array("TagExists", Tag1, Tag2)) + + oDocHandler.initialize(filter) + + initArgs(0) = oDocHandler + aInitArgs = initArgs() + oObj = oMSF.createInstanceWithArguments("com.sun.star.comp.Calc.XMLStylesExporter", initArgs()) + + oStyleFamilies = oDoc.getStyleFamilies() + oSFNames = oStyleFamilies.getElementNames() + oFamilyName = oSFNames(0) + oFamily = oStyleFamilies.getByName(oFamilyName) + oStyle = oDoc.createInstance("com.sun.star.style.CellStyle") + oFamily.insertByName(expString, oStyle) + + oObj.setSourceDocument(oDoc) + + Dim aFilterDescr(0) As New com.sun.star.beans.PropertyValue + aFilterDescr(0).Name = "FilterName" + aFilterDescr(0).Value = "scalc: StarOffice XML (spreadsheet)" + 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/sc/XMLStylesExporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLStylesExporter/script.xlb new file mode 100644 index 000000000000..49e80bcb9391 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLStylesExporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLStylesExporter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sc/XMLStylesImporter/sc_XMLStylesImporter.xba b/qadevOOo/tests/basic/mod/sc/XMLStylesImporter/sc_XMLStylesImporter.xba new file mode 100644 index 000000000000..3d451d4054c0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/XMLStylesImporter/sc_XMLStylesImporter.xba @@ -0,0 +1,100 @@ +<?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="sc_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 sStyleName As String + +' Required for com.sun.star.document.XImporter + Global oSrcDocument As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sc.XMLStylesImporter +'************************************************************************* +On Error Goto ErrHndl + oDoc = utils.createDocument("scalc", cObjectName) + oObj = createUnoService("com.sun.star.comp.Calc.XMLStylesImporter") + + oSrcDocument = oDoc + oObj.setTargetDocument(oDoc) + + sStyleName = "XMLStylesImporter" + vXMLData = Array( _ + Array("start", "office:document-styles", _ + "xmlns:office", "CDATA", "http://openoffice.org/2000/office", _ + "xmlns:style", "CDATA", "http://openoffice.org/2000/style", _ + "xmlns:fo", "CDATA", "http://www.w3.org/1999/XSL/Format", _ + "xmlns:table", "CDATA", "http://openoffice.org/2000/table"), _ + Array("start", "office:styles"), _ + Array("start", "style:style", _ + "style:name", "CDATA", sStyleName, _ + "style:family", "CDATA", "table-cell", _ + "style:parent-style-name", "CDATA", "Default"), _ + Array("start", "style:properties", _ + "fo:width", "CDATA", "12cm", _ + "fo:background-color", "CDATA", "light-grey"), _ + Array("end", "style:properties"), _ + Array("end", "style:style"), _ + 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 oStyleFamilies, oFamily As Object + Dim vNames As Variant + out.log("checking of import...") + oStyleFamilies = oDoc.getStyleFamilies() + oFamily = oStyleFamilies.getByName("CellStyles") + res = oFamily.hasByName(sStyleName) + out.log("checking result: " + res) + CheckImport() = res +End Function +</script:module> diff --git a/qadevOOo/tests/basic/mod/sc/XMLStylesImporter/script.xlb b/qadevOOo/tests/basic/mod/sc/XMLStylesImporter/script.xlb new file mode 100644 index 000000000000..3a39542a031b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sc/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="sc_XMLStylesImporter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sc_XMLStylesImporter"/> +"</library:library> |