1 files changed, 490 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport.inc b/testautomation/graphics/optional/includes/global/g_clipexport.inc
new file mode 100644
index 000000000000..91357e867937
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_clipexport.inc
@@ -0,0 +1,490 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+' 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.
+'
+'/************************************************************************
+'*
+'* Owner : wolfram.garten@sun.com
+'*
+'* short description : Tests the clipboard-function with a rectangle
+'*
+'*******************************************************************
+'*
+
+' #1 MeasurementSetFirst
+' #1 ResetMeasurement
+' #1 SaveMeasurementSetFirst
+' #1 Select_Copy
+' #1 calctest
+' #1 writertest
+' #1 tClipboardFromDrawTest
+
+' #1 Small_test_Draw
+' #1 Small_test_Impress
+' #1 Small_test_Calc
+' #1 Small_test_Writer
+' #1 Full_test_Writer
+' #1 Full_test_Draw
+' #1 Full_test_Impress
+' #1 Full_test_Calc
+' #1 clear_all_and_close
+' #1 Make_LineObject_From_Application
+' #1 Make_Rectangle_From_Application
+' #1 Make_Make3dObject_From_Application
+' #1 Make_TextSquare_From_Application
+' #1 Make_And_Check_Formatted_Text_Line_From_Application
+' #1 Make_ConnectorObject_From_Application
+' #1 Make_Circle_From_Application
+' #1 Make_CurveObject_From_Application
+' #1 Make_Objectplugin_From_Application
+'*
+'\*******************************************************************
+
+global i as integer
+global sApplication as string
+global ReferenceOld as string
+global ReferenceNew as string
+global ToApp as string
+global ToAppCounter as integer
+global FromApp as string
+global FromApp2 as string
+global CheckValue1 as integer
+global Marker as integer
+global WindowsSting (4) as string
+global PositionPositionX as string
+global PositionPositionY as string
+global PositionWidth as string
+global PositionHeight as string
+
+global PositionKeepRatio as string
+global PositionProtectPosition as string
+global PositionProtectSize as string
+global PositionFitWidthText as string
+global PositionFitHeightText as string
+global PositionAnchorPosition as string
+global PositionAnchor as string
+global PositionPositionPosition as string
+global PositionSizePosition as string
+
+global AreaNoFillValue as string
+global AreaColorValue as string
+global AreaColourListValue as string
+global AreaGradientValue as string
+global AreaGradientListValue as string
+global AreaAutomaticValue as string
+global AreaHatchingValue as string
+global AreaHatchingListValue as string
+global AreaBackgroundColourValue as string
+global AreaBackgroundColourListValue as string
+global AreaIncrementsValue as string
+global AreaBitmapValue as string
+global AreaBitmapListValue as string
+global AreaOriginalListValue as string
+global AreaRelativeValue as string
+global AreaWidthValue as string
+global AreaHeightValue as string
+global AreaXOffsetValue as string
+global AreaYOffsetValue as string
+global AreaTileValue as string
+global AreaStretchValue as string
+global AreaRowValue as string
+global AreaColumnValue as string
+global AreaOffsetValue as string
+
+global ShadowUseShadowsValue as string
+global ShadowDistanceValue as string
+global ShadowColorValue as string
+global ShadowTransparencyValue as string
+
+global TransparencyTransparencyValue as string
+global TransparencyGradientType as string
+global TransparencyMFZentrumX as string
+global TransparencyMFZentrumY as string
+global TransparencyMFWinkel as string
+global TransparencyMFRand as string
+global TransparencyMFStartwert as string
+global TransparencyMFEndwert as string
+
+global ColorName as string
+global ColorColor as string
+global ColorModel as string
+global ColorR as string
+global ColorG as string
+global ColorB as string
+global ColorC as string
+global ColorM as string
+global ColorY as string
+global ColorK as string
+
+global GradientsType as string
+global GradientsCenterX as string
+global GradientsCenterZ as string
+global GradientsAngle as string
+global GradientsBorder as string
+global GradientsFromColor as string
+global GradientsFromValue as string
+global GradientsToColor as string
+global GradientsToValue as string
+
+global HatchingDistance as string
+global HatchingAngle as string
+global HatchingLineType as string
+global HatchingLineColor as string
+global HatchingLineTable as string
+
+global BitmapForeground as string
+global BitmapBackground as string
+global BitmapTable as string
+
+global Text1 as string
+global Text2 as string
+global Text3 as integer
+global Text4 as string
+global Text5 as string
+global Text6 as string
+global Text7 as string
+
+'------------------------------- "object"-dependant tests ----------------------
+
+try
+    call Make_Rectangle_From_Application
+    call Full_test_Draw
+    call Full_test_Impress
+    call Full_test_Writer
+    call Full_test_Calc
+catch
+    warnlog "something wrong with testing Rectangle"
+endcatch
+
+try
+    call Make_Make3dObject_From_Application
+    call Full_test_Draw
+    call Small_test_Impress
+    call Small_test_Calc
+    call Small_test_Writer
+catch
+    warnlog "something wrong with testing 3dObject"
+endcatch
+
+'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA"
+try
+    call Make_CurveObject_From_Application
+    call Small_test_Draw
+    call Small_test_Impress
+    call Small_test_Calc
+    call Small_test_Writer
+catch
+    warnlog "something wrong with testing CurveObj"
+endcatch
+
+try
+    call Make_ConnectorObject_From_Application
+    call Small_test_Draw
+    call Small_test_Impress
+    call Small_test_Calc
+    call Small_test_Writer
+catch
+    warnlog "something wrong with testing ConnectorObject"
+endcatch
+
+try
+    call Make_LineObject_From_Application
+    call Small_test_Draw
+    call Small_test_Impress
+    '   call Small_test_Calc
+    '   call Small_test_Writer
+catch
+    warnlog "something wrong with testing LineObject"
+endcatch
+
+try
+catch
+    warnlog "something wrong with testing ConnectorObject"
+endcatch
+
+try
+    call Make_Circle_From_Application
+    call Small_test_Draw
+    call Small_test_Impress
+    call Small_test_Calc
+    call Small_test_Writer
+catch
+    warnlog "something wrong with testing Circle"
+endcatch
+
+try
+    call Make_TextSquare_From_Application
+    call Small_test_Draw
+    call Small_test_Impress
+    call Small_test_Calc
+    call Small_test_Writer
+
+catch
+    warnlog "something wrong with testing TextSquare"
+endcatch
+
+call clear_all_and_close
+Printlog "tClipboardFromDrawTest finished"
+end sub
+
+
+'------------------------------- Objects ---------------------------------------
+testcase Make_Make3dObject_From_Application
+
+    printlog "--- 3D-Object --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call Make3dObject
+    call Select_Copy
+    Call Get_Position_Size_Attributes
+    Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_Objectplugin_From_Application
+
+    goto endsub
+    printlog "--- Objectplugin --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call Objectplugin
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_TextSquare_From_Application
+
+    printlog "--------- TextSquare --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeTextSquare
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    '   Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_Rectangle_From_Application
+
+    printlog "--------- Rectangle --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeRectangle
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_Circle_From_Application
+
+    printlog "--------- Ellipse Object --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeCircle
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_CurveObject_From_Application
+
+    printlog "--------- Curve-Object --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeCurveObject
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    '   Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_LineObject_From_Application
+
+    printlog "--------- Line-Object --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeLineObject
+    call Select_Copy
+    call Get_Position_Size_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_ConnectorObject_From_Application
+
+    printlog "--------- Connector-Object --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeConnectorObject
+    call Select_Copy
+    Call Get_Position_Size_Attributes
+    '   Call Get_Colour_Attributes
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Make_And_Check_Formatted_Text_Line_From_Application
+
+    printlog "--------- Formatted Text --- from --- " + gApplication
+    sleep 1
+    call SaveMeasurementSetFirst
+    sleep 1
+    Call MakeFormattedTextLine 'inclusive get variable-info.
+    call Select_Copy
+    Call hCloseDocument
+    'call New_Draw
+    '   Call Check_Text_Formatting
+    '   Call hCloseDocument
+    Call New_Impress
+    Call Check_Text_Formatting
+    Call hCloseDocument
+    sleep 10
+    Call New_Calc
+    Call Check_Text_Formatting
+    Call hCloseDocument
+    Call New_Writer
+    Call Check_Text_Formatting
+    Call hCloseDocument
+endcase
+
+'--------------------------- Part with the different kinds of tests. -----------
+testcase Full_test_Draw
+
+    call New_Draw
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    call Check_Colors_Borders_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Small_test_Draw
+
+    call New_Draw
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Full_test_Impress
+
+    call New_Impress
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    call Check_Colors_Borders_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Small_test_Impress
+
+    call New_Impress
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Full_test_Calc
+
+    call New_Calc
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    call Check_Colors_Borders_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Small_test_Calc
+
+    call New_Calc
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Full_test_Writer
+
+    call New_Writer
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    call Check_Colors_Borders_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase Small_test_Writer
+
+    call New_Writer
+    call MeasurementSetFirst
+    call Check_Position_Size_Attributes
+    gApplication = FromApp2
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------
+testcase clear_all_and_close
+
+    goto endsub
+    printlog "   --------------------------------------------------------------"
+    printlog "   All tests done... clearing up everything and finishing"
+    if gApplication = "WRITER" then
+        DocumentWriter.TypeKeys "<DELETE>"
+    else
+        printlog "   gApplication is " + gApplication
+        EditSelectAll
+        EditDelete
+    end if
+    call ResetMeasurement
+    Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------------