1 files changed, 0 insertions, 143 deletions
diff --git a/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba b/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba
deleted file mode 100644
index 7bc63b5809eb..000000000000
--- a/qadevOOo/tests/basic/mod/sch/ChXDiagram/sch_ChXDiagram.xba
+++ /dev/null
@@ -1,143 +0,0 @@
-<?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>