diff options
Diffstat (limited to 'qadevOOo/tests/basic/mod/sch')
52 files changed, 2022 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/mod/sch/AccArea/sch_AccArea.xba b/qadevOOo/tests/basic/mod/sch/AccArea/sch_AccArea.xba new file mode 100644 index 000000000000..8ba48afa97f1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccArea/sch_AccArea.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="sch_AccArea" 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#optional + ' needs the following Global variables: + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.AccArea +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + Dim oChart as Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Area") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccArea/script.xlb b/qadevOOo/tests/basic/mod/sch/AccArea/script.xlb new file mode 100644 index 000000000000..02c7830060bb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccArea/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="sch_AccArea" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccArea"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccAxis/sch_AccAxis.xba b/qadevOOo/tests/basic/mod/sch/AccAxis/sch_AccAxis.xba new file mode 100644 index 000000000000..b80e9b9c7f25 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccAxis/sch_AccAxis.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="sch_AccAxis" script:language="StarBasic"> + +'************************************************************************* +'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +' REQUIRED VARIABLES for interface/service tests: + +Dim oListener1 As Object +Dim oListener2 As Object +Dim bL1called As Boolean +Dim bL2called As Boolean +Dim oDoc as Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.AccAxis +'************************************************************************* + + + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "axis") + + Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module>
\ No newline at end of file diff --git a/qadevOOo/tests/basic/mod/sch/AccAxis/script.xlb b/qadevOOo/tests/basic/mod/sch/AccAxis/script.xlb new file mode 100644 index 000000000000..012b217481a8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccAxis/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="sch_AccAxis" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccAxis"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccDataPoint/sch_AccDataPoint.xba b/qadevOOo/tests/basic/mod/sch/AccDataPoint/sch_AccDataPoint.xba new file mode 100644 index 000000000000..af177ef65942 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDataPoint/sch_AccDataPoint.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="sch_AccDataPoint" 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: +' sch.AccDataPoint +'************************************************************************* +On Error Goto ErrHndl + + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "DataPoint") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccDataPoint/script.xlb b/qadevOOo/tests/basic/mod/sch/AccDataPoint/script.xlb new file mode 100644 index 000000000000..2402c2773442 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDataPoint/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="sch_AccDataPoint" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccDataPoint"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccDataSeries/sch_AccDataSeries.xba b/qadevOOo/tests/basic/mod/sch/AccDataSeries/sch_AccDataSeries.xba new file mode 100644 index 000000000000..92aa828e6d9a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDataSeries/sch_AccDataSeries.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_AccDataSeries" 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: +' sch.AccDataSeries +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Data") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccDataSeries/script.xlb b/qadevOOo/tests/basic/mod/sch/AccDataSeries/script.xlb new file mode 100644 index 000000000000..5fd9a49a7639 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDataSeries/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="sch_AccDataSeries" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccDataSeries"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccDiagram/sch_AccDiagram.xba b/qadevOOo/tests/basic/mod/sch/AccDiagram/sch_AccDiagram.xba new file mode 100644 index 000000000000..8244d25a9e2e --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDiagram/sch_AccDiagram.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_AccDiagram" 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: +' sch.AccDiagram +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Diagram") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccDiagram/script.xlb b/qadevOOo/tests/basic/mod/sch/AccDiagram/script.xlb new file mode 100644 index 000000000000..3479707bb2ca --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccDiagram/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="sch_AccDiagram" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccDiagram"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccFloor/sch_AccFloor.xba b/qadevOOo/tests/basic/mod/sch/AccFloor/sch_AccFloor.xba new file mode 100644 index 000000000000..7aefe5a882d2 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccFloor/sch_AccFloor.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="sch_AccFloor" 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: +' sch.AccFloor +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + Dim oDiagram as Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + Out.Log("Change Diagram to 3D...") + oDiagram = oDoc.getDiagram() + oDiagram.Dim3D = TRUE + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Floor") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccFloor/script.xlb b/qadevOOo/tests/basic/mod/sch/AccFloor/script.xlb new file mode 100644 index 000000000000..644d958fc792 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccFloor/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="sch_AccFloor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccFloor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccGrid/sch_AccGrid.xba b/qadevOOo/tests/basic/mod/sch/AccGrid/sch_AccGrid.xba new file mode 100644 index 000000000000..1bbc5d13fcd1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccGrid/sch_AccGrid.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_AccGrid" 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: +' sch.AccGrid +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Grid") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccGrid/script.xlb b/qadevOOo/tests/basic/mod/sch/AccGrid/script.xlb new file mode 100644 index 000000000000..a00c5cd9a74f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccGrid/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="sch_AccGrid" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccGrid"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccLegend/sch_AccLegend.xba b/qadevOOo/tests/basic/mod/sch/AccLegend/sch_AccLegend.xba new file mode 100644 index 000000000000..5bb91900a303 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccLegend/sch_AccLegend.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="sch_AccLegend" 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: +' sch.AccLegend +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Legend") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccLegend/script.xlb b/qadevOOo/tests/basic/mod/sch/AccLegend/script.xlb new file mode 100644 index 000000000000..53bdb8a79574 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccLegend/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="sch_AccLegend" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccLegend"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccLegendEntry/sch_AccLegendEntry.xba b/qadevOOo/tests/basic/mod/sch/AccLegendEntry/sch_AccLegendEntry.xba new file mode 100644 index 000000000000..f5bc8834af80 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccLegendEntry/sch_AccLegendEntry.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_AccLegendEntry" 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: +' sch.AccLegendEntry +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "LegendEntry") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccLegendEntry/script.xlb b/qadevOOo/tests/basic/mod/sch/AccLegendEntry/script.xlb new file mode 100644 index 000000000000..6bb8fe3f891a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccLegendEntry/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="sch_AccLegendEntry" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccLegendEntry"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/sch_AccStatisticsObject.xba b/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/sch_AccStatisticsObject.xba new file mode 100644 index 000000000000..c24631b604ad --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/sch_AccStatisticsObject.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="sch_AccStatisticsObject" 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: +' sch.AccStatisticsObject +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + Dim oDiagram as Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + Out.Log("Display MeanValue") + oDiagram = oDoc.getDiagram() + oDiagram.MeanValue = TRUE + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE,"average") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/script.xlb b/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/script.xlb new file mode 100644 index 000000000000..eeee1ade4019 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccStatisticsObject/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="sch_AccStatisticsObject" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccStatisticsObject"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccTitle/sch_AccTitle.xba b/qadevOOo/tests/basic/mod/sch/AccTitle/sch_AccTitle.xba new file mode 100644 index 000000000000..1615c9ed7bd3 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccTitle/sch_AccTitle.xba @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_AccTitle" 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: +' sch.AccTitle +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Title") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccTitle/script.xlb b/qadevOOo/tests/basic/mod/sch/AccTitle/script.xlb new file mode 100644 index 000000000000..cc042284ca9f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccTitle/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="sch_AccTitle" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccTitle"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccWall/sch_AccWall.xba b/qadevOOo/tests/basic/mod/sch/AccWall/sch_AccWall.xba new file mode 100644 index 000000000000..9db84ee9dbf5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccWall/sch_AccWall.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="sch_AccWall" 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: +' sch.AccWall +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + Dim oWin As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE, "Wall") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + oObj.grabFocus() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccWall/script.xlb b/qadevOOo/tests/basic/mod/sch/AccWall/script.xlb new file mode 100644 index 000000000000..fad5fe8d21c0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccWall/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="sch_AccWall" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccWall"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/sch_AccessibleDocumentView.xba b/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/sch_AccessibleDocumentView.xba new file mode 100644 index 000000000000..a0bed4161c98 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/sch_AccessibleDocumentView.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="sch_AccessibleDocumentView" 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: + +' fireEvent() +Global oWin As Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.AccessibleDocumentView +'************************************************************************* +On Error Goto ErrHndl + Dim xRoot As Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + wait(1000) + oWin = utils.at_getCurrentWindow(oDoc) + xRoot = utils.at_getAccessibleObject(oWin) + oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.DOCUMENT, _ + "AccessibleChartDocumentView") + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub fireEvent() + Dim rect as new com.sun.star.awt.Rectangle + rect = oWin.getPosSize() + oWin.setPosSize(100,100,100,100,com.sun.star.awt.PosSize.POSSIZE) + oWin.setPosSize(rect.X,rect.Y,rect.Width,rect.Height,_ + com.sun.star.awt.PosSize.POSSIZE) +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/script.xlb b/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/script.xlb new file mode 100644 index 000000000000..b5ea1024c8a4 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/AccessibleDocumentView/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="sch_AccessibleDocumentView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_AccessibleDocumentView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartAxis/sch_ChXChartAxis.xba b/qadevOOo/tests/basic/mod/sch/ChXChartAxis/sch_ChXChartAxis.xba new file mode 100644 index 000000000000..a5388e82a420 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartAxis/sch_ChXChartAxis.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="sch_ChXChartAxis" 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: +' sch.ChXChartAxis +'************************************************************************* +On Error Goto ErrHndl + Dim mRangeAddress(0) As New com.sun.star.table.CellRangeAddress + Dim oChart As Variant + + oDoc = utils.createDocument("scalc", cObjectName) + oChart = utils.createChartObject(oDoc, cObjectName) + + oObj = oChart.Diagram.YAxis +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartAxis/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXChartAxis/script.xlb new file mode 100644 index 000000000000..03789abfa172 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartAxis/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="sch_ChXChartAxis" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXChartAxis"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartData/sch_ChXChartData.xba b/qadevOOo/tests/basic/mod/sch/ChXChartData/sch_ChXChartData.xba new file mode 100644 index 000000000000..78355716fd80 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartData/sch_ChXChartData.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="sch_ChXChartData" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.chart.XChartData +Global oCellToChange As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChXChartData +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oChart as Object + Dim oDataArray as Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oChart = utils.createChartObject(oDoc, cObjectName) + oDataArray = oChart.getdata() + oObj = oDataArray + + oCellToChange = oDoc.Sheets(0).getCellByPosition(1, 1) + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartData/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXChartData/script.xlb new file mode 100644 index 000000000000..f2e2e820e542 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartData/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="sch_ChXChartData" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXChartData"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/sch_ChXChartDataArray.xba b/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/sch_ChXChartDataArray.xba new file mode 100644 index 000000000000..1c71c1e32d8f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/sch_ChXChartDataArray.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="sch_ChXChartDataArray" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.chart.XChartData + Global oCellToChange As Object + +' Requiered for XChartDataArray + Global nTableH As Integer + Global nTableW As Integer + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChXChartDataArray +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + bOK = true + + oDoc = utils.createDocument("scalc", cObjectName) + oChart = utils.createChartObject(oDoc, cObjectName) + + Dim mRangeAddress(0) As New com.sun.star.table.CellRangeAddress + Dim aRect As New com.sun.star.awt.Rectangle + + nTableH = 5 + nTableW = 5 + + oObj = oChart.getdata() + oCellToChange = oDoc.Sheets(0).getCellByPosition(1, 1) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/script.xlb new file mode 100644 index 000000000000..bbed0513544f --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartDataArray/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="sch_ChXChartDataArray" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXChartDataArray"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartDocument/sch_ChXChartDocument.xba b/qadevOOo/tests/basic/mod/sch/ChXChartDocument/sch_ChXChartDocument.xba new file mode 100644 index 000000000000..760da775c6e5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartDocument/sch_ChXChartDocument.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="sch_ChXChartDocument" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + +' REQUIRED VARIABLES for interface/service tests: + +' Requiered for com.sun.star.lang.XComponent + Global oComponentInstance As Object ' it will be disposed + +' Requiered for com.sun.star.frame.XModel + Global oXModelController As Object + Global oXModelSel As Object + Global oXModelToSel As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChXChartDocument +'************************************************************************* +On Error Goto ErrHndl + Dim aProp(0 to 0) As New com.sun.star.beans.PropertyValue + Dim oControllerDoc As Object + Dim oChart as Object + Dim oCompChart as Object + Dim oContChart as Object + Dim oContDoc as Object + + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + + oComponentInstance = utils.loadTestDocument("emptyChart.sds", cObjectName & "1") + + oControllerDoc = utils.loadTestDocument("emptyChart.sds", cObjectName & "2") + + oObj = oDoc + oXModelToSel = oDoc.getTitle() + oXModelController = oControllerDoc.getCurrentController() + oXModelSel = oDoc.getCurrentController() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNULL(oComponentInstance) then oComponentInstance.dispose() + + Dim oControllerDoc As Object + ' To successfully dispose oControllerDoc re-open it first. + oControllerDoc = utils.loadTestDocument("emptyChart.sds", cObjectName & "2") + oControllerDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartDocument/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXChartDocument/script.xlb new file mode 100644 index 000000000000..f3ece473ed8c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartDocument/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="sch_ChXChartDocument" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXChartDocument"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartView/sch_ChXChartView.xba b/qadevOOo/tests/basic/mod/sch/ChXChartView/sch_ChXChartView.xba new file mode 100644 index 000000000000..ea65387c5af0 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartView/sch_ChXChartView.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="sch_ChXChartView" 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: +' sch.ChXChartView +'************************************************************************* +On Error Goto ErrHndl + Dim oChart as Object + oDoc = utils.loadTestDocument("emptyChart.sds", cObjectName) + oObj = oDoc.getCurrentController() + + SelectableObj1 = oDoc.Legend + SelectableObj2 = oDoc.Title +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXChartView/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXChartView/script.xlb new file mode 100644 index 000000000000..2ef9ba454a24 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXChartView/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="sch_ChXChartView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXChartView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDataPoint/sch_ChXDataPoint.xba b/qadevOOo/tests/basic/mod/sch/ChXDataPoint/sch_ChXDataPoint.xba new file mode 100644 index 000000000000..ffaa96356df1 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDataPoint/sch_ChXDataPoint.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="sch_ChXDataPoint" 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: +' sch.ChXDataPoint +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCharts As Variant, oChart As Variant + + bOK = true + + oDoc = utils.loadTestDocument("TransparencyCalcChart.sxc", cObjectName) + + oCharts = oDoc.Sheets(0).Charts + + Dim aNames(), i as integer + aNames = oCharts.getElementNames() + Out.Log("Chart names :") + for i = 0 to ubound(aNames()) + Out.Log("'" + aNames(i) + "'") + next i + + oChart = oCharts.getByName("TestTransparentChart").embeddedObject + + oObj = oChart.Diagram.getDataPointProperties(0, 0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDataPoint/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXDataPoint/script.xlb new file mode 100644 index 000000000000..47800a7f456b --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDataPoint/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="sch_ChXDataPoint" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXDataPoint"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDataRow/sch_ChXDataRow.xba b/qadevOOo/tests/basic/mod/sch/ChXDataRow/sch_ChXDataRow.xba new file mode 100644 index 000000000000..14fee9c685b5 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDataRow/sch_ChXDataRow.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="sch_ChXDataRow" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChXDataRow +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oCharts As Variant, oChart As Variant + + bOK = true + + oDoc = utils.loadTestDocument("TransparencyCalcChart.sxc", cObjectName) + + oCharts = oDoc.Sheets(0).Charts + + Dim aNames(), i as integer + aNames = oCharts.getElementNames() + Out.Log("Chart names :") + for i = 0 to ubound(aNames()) + Out.Log("'" + aNames(i) + "'") + next i + + oChart = oCharts.getByName("TestTransparentChart").embeddedObject + +' --- create the object to test here + oObj = oChart.Diagram.getDataRowProperties(0) + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDataRow/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXDataRow/script.xlb new file mode 100644 index 000000000000..f8437a29636a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDataRow/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="sch_ChXDataRow" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXDataRow"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba b/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba new file mode 100644 index 000000000000..7bc63b5809eb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba @@ -0,0 +1,143 @@ +<?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="sch_ChXDiagram" 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 + + +Dim nCol As Integer +Dim nRow As Integer + +' REQUIRED VARIABLES for interface/service tests: +Global oLineDiagram As Object +Global oStackDiagram As Object +Global oStockDiagram As Object +Global oBarDiagram As Object +Global nGlobalBarDiagram As Long + +' For drawing.XShapeDescriptor +Global cShapeType As String + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChXDiagram +'************************************************************************* +On Error Goto ErrHndl + Dim oCharts As Object + Dim oChart As Object + Dim cType(4) As String + Dim mRangeAddress(0) As New com.sun.star.table.CellRangeAddress + Dim aRect As New com.sun.star.awt.Rectangle + Dim n As Integer + + oDoc = utils.createDocument("scalc", cObjectName) + + cType(0) = "StockDiagram" + cType(1) = "BarDiagram" + cType(2) = "XYDiagram" + cType(3) = "StackableDiagram" + cType(4) = "LineDiagram" + + nCol = 5 + nRow = 6 + FillCells() + + aRect.Width = 5000 + aRect.Height = 5000 + mRangeAddress(0).Sheet = 0 + mRangeAddress(0).StartColumn = 0 + mRangeAddress(0).StartRow = 0 + mRangeAddress(0).EndColumn = nCol + mRangeAddress(0).EndRow = nRow + + for n = 0 to 4 + aRect.X = 500 * n + aRect.Y = 3000 * n + oCharts = oDoc.Sheets(0).Charts + oCharts.addNewByName(cObjectName + cType(n) + n, aRect, mRangeAddress(), true, true) + oChart = oCharts.getByName(cObjectName + cType(n) + n).EmbeddedObject + oChart.Diagram = oChart.createInstance("com.sun.star.chart." + cType(n)) + next n + + oStockDiagram = oCharts.getByName(cObjectName + cType(0) + 0).EmbeddedObject.Diagram + oBarDiagram = oCharts.getByName(cObjectName + cType(1) + 1).EmbeddedObject.Diagram + oLineDiagram = oCharts.getByName(cObjectName + cType(2) + 2).EmbeddedObject.Diagram + oStackDiagram = oCharts.getByName(cObjectName + cType(3) + 3).EmbeddedObject.Diagram + oObj = oCharts.getByName(cObjectName + cType(4) + 4).EmbeddedObject.Diagram + + nGlobalBarDiagram = 4 + + ' For drawing.XShapeDescriptor + cShapeType = "com.sun.star.chart.Diagram" + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub FillCells() + Dim oCell As Object + Dim oRange As Object + Dim n1 As Integer + Dim n2 As Integer + Dim oFormats As Variant + Dim nFormat As Integer + Dim nKey As Integer + Dim aLanguage As New com.sun.star.lang.Locale + + oRange = oDoc.Sheets(0).getCellRangeByPosition(0, 0, nCol, nRow) + + for n1 = 1 to nCol - 1 + For n2 = 1 To nRow - 1 + oRange.getCellByPosition(n1, n2).Value = n2 * (n1 + 1) + Next n2 + next n1 + + for n1 = 1 to nCol - 1 + oRange.getCellByPosition(n1, 0).String = "Col " + n1 + next n1 + for n2 = 1 to nRow - 1 + oRange.getCellByPosition(0, n2).String = "Row " + n2 + next n2 + + oFormats = oDoc.NumberFormats + nFormat = com.sun.star.util.NumberFormat.CURRENCY + nKey = oFormats.getStandardFormat(nFormat, aLanguage) + oRange.NumberFormat = nKey +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChXDiagram/script.xlb b/qadevOOo/tests/basic/mod/sch/ChXDiagram/script.xlb new file mode 100644 index 000000000000..ad6b03bad01c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChXDiagram/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="sch_ChXDiagram" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChXDiagram"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChartArea/sch_ChartArea.xba b/qadevOOo/tests/basic/mod/sch/ChartArea/sch_ChartArea.xba new file mode 100644 index 000000000000..6329b64ed4bb --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartArea/sch_ChartArea.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="sch_ChartArea" 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. +' +'************************************************************************* +'************************************************************************* + + + +Dim nCol As Integer +Dim nRow As Integer + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChartArea +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oCharts As Variant, oChart As Variant + + bOK = true + + oDoc = utils.loadTestDocument("TransparencyCalcChart.sxc", cObjectName) + + oCharts = oDoc.Sheets(0).Charts + + Dim aNames(), i as integer + aNames = oCharts.getElementNames() + Out.Log("Chart names :") + for i = 0 to ubound(aNames()) + Out.Log("'" + aNames(i) + "'") + next i + + oChart = oCharts.getByName("TestTransparentChart").embeddedObject + + oObj = oChart.Area() + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChartArea/script.xlb b/qadevOOo/tests/basic/mod/sch/ChartArea/script.xlb new file mode 100644 index 000000000000..0265cd6bf756 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartArea/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="sch_ChartArea" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChartArea"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChartGrid/sch_ChartGrid.xba b/qadevOOo/tests/basic/mod/sch/ChartGrid/sch_ChartGrid.xba new file mode 100644 index 000000000000..890e396d093d --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartGrid/sch_ChartGrid.xba @@ -0,0 +1,58 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_ChartGrid" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChartGrid +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oChart as Object + + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + oChart = utils.createChartObject(oDoc, cObjectName) + + oObj = oChart.Diagram.XMainGrid + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChartGrid/script.xlb b/qadevOOo/tests/basic/mod/sch/ChartGrid/script.xlb new file mode 100644 index 000000000000..29630a9e330a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartGrid/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="sch_ChartGrid" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChartGrid"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChartLegend/sch_ChartLegend.xba b/qadevOOo/tests/basic/mod/sch/ChartLegend/sch_ChartLegend.xba new file mode 100644 index 000000000000..e947d4f53e23 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartLegend/sch_ChartLegend.xba @@ -0,0 +1,83 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_ChartLegend" 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 ' it will be disposed + +Global oComponentDoc As Object + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChartLegend +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCharts As Object, oChart As Object + Dim oCompChart as Object + + bOK = true + oDoc = utils.loadTestDocument("TransparencyCalcChart.sxc", cObjectName) + oComponentDoc = utils.createDocument("scalc", cObjectName & "1") + + oCharts = oDoc.Sheets(0).Charts + + Dim aNames(), i as integer + aNames = oCharts.getElementNames() + Out.Log("Chart names :") + for i = 0 to ubound(aNames()) + Out.Log("'" + aNames(i) + "'") + next i + + oChart = oCharts.getByName("TestTransparentChart").embeddedObject + + oObj = oChart.Legend + oCompChart = utils.createChartObject(oComponentDoc, cObjectName & "1") + oComponentInstance = oCompChart.Legend +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub DisposeObj() + if NOT isNULL(oComponentDoc) then oComponentDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChartLegend/script.xlb b/qadevOOo/tests/basic/mod/sch/ChartLegend/script.xlb new file mode 100644 index 000000000000..812179674e54 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartLegend/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="sch_ChartLegend" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChartLegend"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChartLine/sch_ChartLine.xba b/qadevOOo/tests/basic/mod/sch/ChartLine/sch_ChartLine.xba new file mode 100644 index 000000000000..8ca4921a894c --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartLine/sch_ChartLine.xba @@ -0,0 +1,58 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sch_ChartLine" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChartLine +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + Dim oChart as Object + bOK = true + oDoc = utils.createDocument("scalc", cObjectName) + + oChart = utils.createChartObject(oDoc, cObjectName) + + oChart.Diagram = oChart.createInstance("com.sun.star.chart.LineDiagram") + oObj = oChart.Diagram.MinMaxLine + + +Exit Sub +ErrHndl: + Test.Exception() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChartLine/script.xlb b/qadevOOo/tests/basic/mod/sch/ChartLine/script.xlb new file mode 100644 index 000000000000..90051ab34bfd --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartLine/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="sch_ChartLine" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChartLine"/> +"</library:library> diff --git a/qadevOOo/tests/basic/mod/sch/ChartTitle/sch_ChartTitle.xba b/qadevOOo/tests/basic/mod/sch/ChartTitle/sch_ChartTitle.xba new file mode 100644 index 000000000000..4cc3135dc4a8 --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartTitle/sch_ChartTitle.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="sch_ChartTitle" 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 oComponentDoc As Object +Global oComponentInstance As Object + + +Sub CreateObj() + +'************************************************************************* +' COMPONENT: +' sch.ChartTitle +'************************************************************************* +On Error Goto ErrHndl + + Dim oChart As Object + Dim oCompChart as Object + + oDoc = utils.createDocument("scalc", cObjectName) + oChart = utils.createChartObject(oDoc, cObjectName) + oComponentDoc = utils.createDocument("scalc", cObjectName & "1") + oCompChart = utils.createChartObject(oComponentDoc, cObjectName) + + oChart.hasMainTitle = true + oObj = oChart.Title + oComponentInstance = oComponentDoc.Title +Exit Sub +ErrHndl: + Test.Exception() +End Sub + +Sub FillCells() + Dim oRange As Object + Dim n1 As Integer + Dim n2 As Integer + + oRange = oDoc.Sheets(0).getCellRangeByPosition(0, 0, nCol, nRow) + + for n1 = 1 to nCol - 1 + For n2 = 1 To nRow - 1 + oRange.getCellByPosition(n1, n2).Value = n2 * (n1 + 1) + Next n2 + next n1 + + for n1 = 1 to nCol - 1 + oRange.getCellByPosition(n1, 0).String = "Col " + n1 + next n1 + for n2 = 1 to nRow - 1 + oRange.getCellByPosition(0, n2).String = "Row " + n2 + next n2 +End Sub + +Sub DisposeObj() + if NOT isNULL(oComponentDoc) then oComponentDoc.dispose() +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/mod/sch/ChartTitle/script.xlb b/qadevOOo/tests/basic/mod/sch/ChartTitle/script.xlb new file mode 100644 index 000000000000..0958c2b7525a --- /dev/null +++ b/qadevOOo/tests/basic/mod/sch/ChartTitle/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="sch_ChartTitle" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="sch_ChartTitle"/> +"</library:library> |