incubator-ooo-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ar...@apache.org
Subject svn commit: r1231329 [1/2] - in /incubator/ooo/trunk/main/testautomation: graphics/optional/includes/global/ xml/optional/includes/ xml/tools/includes/
Date Fri, 13 Jan 2012 22:01:09 GMT
Author: arist
Date: Fri Jan 13 22:01:08 2012
New Revision: 1231329

URL: http://svn.apache.org/viewvc?rev=1231329&view=rev
Log:
Update headers to Alv2 headers

Modified:
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/export_graphic.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_accessability.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_area.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_crossfading.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_dimensions.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_edit.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_find_replace.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_imagemap.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_line.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_load_save.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_navigator.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_paneview.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_savepictureas.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_slidelayer.inc
    incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_toolbars.inc
    incubator/ooo/trunk/main/testautomation/xml/optional/includes/c_datapilot_pagefields.inc
    incubator/ooo/trunk/main/testautomation/xml/optional/includes/c_xml_print_scale.inc
    incubator/ooo/trunk/main/testautomation/xml/optional/includes/c_xml_scenario.inc
    incubator/ooo/trunk/main/testautomation/xml/optional/includes/ch_xml_japanese_candlestick.inc
    incubator/ooo/trunk/main/testautomation/xml/optional/includes/w_xml_vertical_alignment.inc
    incubator/ooo/trunk/main/testautomation/xml/tools/includes/itools1.inc

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/export_graphic.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/export_graphic.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/export_graphic.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/export_graphic.inc Fri Jan 13 22:01:08 2012
@@ -1,453 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
-******
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description : Graphics Export A-tests
-'*
-'\******************************************************************************
-
-testcase tEPS
-
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-    dim x as integer
-    dim i as integer
-
-    const sFilter = "EPS - Encapsulated PostScript (.eps)"
-    const sExt = ".eps"
-
-    printlog "open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    if ( hCallExport ( OutputGrafikTBO , sFilter ) ) then
-        Kontext "EPSOptions"
-        if ( EPSOptions.Exists( 2 ) ) then
-            printlog "check if all properties have the right count, and depend on each other"
-
-            Level1.Check
-            if Color.IsEnabled then warnlog " :-("
-            if Greyscale.IsEnabled then warnlog " :-("
-            if LZWEncoding.IsEnabled then warnlog " :-("
-            if NoneCompression.IsEnabled then warnlog " :-("
-
-            Level2.Check
-            if (Color.IsEnabled <> TRUE) then warnlog " :-("
-            if (Greyscale.IsEnabled <> TRUE) then warnlog " :-("
-            if (LZWEncoding.IsEnabled <> TRUE) then warnlog " :-("
-            if (NoneCompression.IsEnabled <> TRUE) then warnlog " :-("
-
-            printlog "leave dialog with cancel -> there has to be no file created!"
-            hCloseDialog( EPSOptions, "cancel" )
-
-            if ( FileExists( OutputGrafikTBO+sExt ) ) then ' inspired by bug #99932 Graphic is exported though cancel is pressed
-                warnlog "Dialog was canceled, but file got saved, too :-(  - i35177"
-            endif
-        else
-            warnlog( "No export options dialog was displayed" )
-        end if
-
-        Kontext "Active"
-        if Active.Exists(2) then
-            Warnlog "'" + sFilter + "' has a problem"
-            Active.OK
-        end if
-    end if
-
-    printlog( "Save the file" )
-    if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
-
-        Kontext "EPSOptions"
-        if ( EPSOptions.Exists( 2 ) ) then
-            hCloseDialog( EPSOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-    endif
-
-    call hCloseDocument
-
-endcase 'tEPS
-'-------------------------------------------------------------------------
-testcase tPCT
-
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    dim x as integer
-    dim i as integer
-    dim iWaitIndex as integer
-    dim bTemp as boolean
-    dim sX as string
-    dim sY as string
-    dim sx1 as string
-    dim sX2 as string
-    dim sY2 as string
-    dim sDocument as string
-    dim sOutputFile as string
-
-    const FILE_WRITE_TIMEOUT = 200 ' seconds
-
-    const sFilter = "PCT - Mac Pict (.pct;.pict)"
-    const sExt = ".pct"
-
-    printlog "open the document"
-    sDocument = convertpath( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-    hFileOpen( sDocument )
-    printlog "----------1st: Trying export and canceling it."
-    if ( hCallExport( OutputGrafikTBO , sFilter ) ) then
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if PCTOptions.Exists(2) then
-            printlog "leave dialog with cancel -> there has to be no file created!"
-            hCloseDialog( PCTOptions, "cancel" )
-            if ( FileExists( OutputGrafikTBO + sExt ) ) then
-                warnlog( "#i35177# - dialog <PictOptions> canceled, still the file was saved" )
-            endif
-        else
-            warnlog( "No export options dialog was displayed" )
-        end if
-        
-        Kontext "Active"
-        if Active.Exists(2) then
-            Warnlog " '" + sFilter + "'  has a problem"
-            Active.OK
-        end if
-    end if
-
-    printlog "----------2nd: now save it really and load the file afterwards"
-    if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
-
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if ( PCTOptions.Exists( 2 ) ) then
-            hCloseDialog( PCTOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-        sOutputFile = OutputGrafikTBO+sExt
-        if ( hWaitForOutputFile( sOutputFile ) ) then
-            printlog "Close file and re-insert graphics into new document"
-            hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file
-        else
-            warnlog( "File was not saved: " & sOutputFile )
-        endif
-    endif
-
-    hFileReOpen( sDocument )
-
-    printlog "check if the document is writable"
-    if ( not fIsDocumentWritable ) then
-        printlog( "Document is write protected, changing state" )
-        if ( not fMakeDocumentWritable ) then
-            warnlog "The document can't be make writeable. Test stopped."
-            goto endsub
-        endif
-    endif
-
-    call hCloseDocument
-
-endcase 'tPCT
-'-------------------------------------------------------------------------------
-testcase tPBM
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "PBM - Portable Bitmap (.pbm)"
-    const sExt = ".pbm"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )
-
-    printlog "Save it"
-    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
-
-        Kontext "PBMOptions"
-        if ( PBMOptions.Exists( 2 ) ) then
-            QualityBinary.Check
-            QualityText.Check
-            hCloseDialog( PBMOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        sleep (1)
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-
-    endif
-
-    call hCloseDocument
-
-endcase 'tPBM
-'-------------------------------------------------------------------------------
-testcase tPGM
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "PGM - Portable Graymap (.pgm)"
-    const sExt = ".pgm"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog "Save it"
-    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
-
-        Kontext "PGMOptions"
-        if ( PGMOptions.Exists( 2 ) ) then
-            QualityBinary.Check
-            QualityText.Check
-            hCloseDialog( PGMOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-
-    endif
-
-    call hCloseDocument
-
-endcase 'tPGM
-'-------------------------------------------------------------------------------
-testcase tPPM
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "PPM - Portable Pixelmap (.ppm)"
-    const sExt = ".ppm"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog "Save it"
-    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
-
-        Kontext "PPMOptions"
-        if ( PPMOptions.Exists( 2 ) ) then
-            QualityBinary.Check
-            QualityText.Check
-            hCloseDialog( PPMOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
 
-    endif
-
-    call hCloseDocument
-
-endcase 'tPPM
-'------------------------------------------------------------------------------
-testcase tRAS
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "RAS - Sun Raster Image (.ras)"
-    const sExt = ".ras"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog "Save it"
-    if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-    else
-        warnlog( "No export options dialog was displayed" )
-    endif
-
-    call hCloseDocument
-
-endcase 'tRAS
-'------------------------------------------------------------------------------
-testcase tTIFF
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    dim x as integer
-    dim i as integer
-
-    const sFilter = "TIFF - Tagged Image File Format (.tif;.tiff)"
-    const sExt = ".tif"
-
-    printlog "Open the document"
-    hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
-
-    printlog "Save it"
-    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-    else
-        warnlog( "No export options dialog was displayed" )
-    endif
-
-    call hCloseDocument
-
-endcase 'tTIFF
-'------------------------------------------------------------------------------
-testcase tSVG
-    'warnlog( "#i115138# - Test document freezes draw" )
-    'goto endsub
-
-    dim x as integer
-    dim i as integer
-
-    const sFilter = "SVG - Scalable Vector Graphics (.svg)"
-    const sExt = ".svg"
-
-    printlog "Open the document"
-    hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
-
-    printlog "Save it"
-    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-    else
-        warnlog( "No export options dialog was displayed" )
-    endif
-
-    call hCloseDocument
-
-endcase 'tSVG
-'------------------------------------------------------------------------------
-testcase tXPM
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "XPM - X PixMap (.xpm)"
-    const sExt = ".xpm"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog "save it"
-    if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-    else
-        warnlog( "No export options dialog was displayed" )
-    endif
-
-    call hCloseDocument
-
-endcase 'tXPM
-'-------------------------------------------------------------------------------
-testcase tGIF
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "GIF - Graphics Interchange Format (.gif)"
-    const sExt = ".gif"
-
-    printlog "open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog "save it"
-    if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
-
-        Kontext "GIFOptions"
-        if GIFOptions.Exists (2) then
-            Interlaced.Uncheck
-            Transparency.UnCheck
-            hCloseDialog( GIFOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        sleep (1)
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-
-    endif
-
-    call hCloseDocument
-
-endcase 'tGIF
-'-------------------------------------------------------------------------------
-testcase tJPEG
-    warnlog( "#i115138# - Test document freezes draw" )
-    goto endsub
-
-
-
-    const sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
-    const sExt = ".jpg"
-
-    printlog "Open the document"
-    hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
-
-    printlog " save it "
-    if ( hCallExport( OutputGrafikTBO , sFilter ) ) then
-
-        Kontext "JPGOptions"
-        if ( JPGOptions.Exists( 2 ) ) then
-            Quality.ToMin
-            hCloseDialog( JPGOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        printlog( "Close file and re-insert graphics into new document" )
-        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
-        
-    endif
-
-    call hCloseDocument
-
-endcase 'tJPEG
-
-'*******************************************************************************
+*****
 
 function hInsertGraphicsToNewFile( sOutputFile as string )
     sleep (1)

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_accessability.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_accessability.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_accessability.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_accessability.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description : Accessability
-'*
-'**************************************************************************************
+************
 ' #1 tEis1549
 ' #1 tEis1523
 ' #1 tEis1581

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_area.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_area.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_area.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_area.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tiFormatArea
 ' #1 tdFormatArea1
 '\*************************************************************************************

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_crossfading.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_crossfading.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_crossfading.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_crossfading.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tCrossfading
 '\*************************************************************************************
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_dimensions.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_dimensions.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_dimensions.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_dimensions.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'***********************************************************************************
+*********
 '*
 ' #1 tdFormatDimensioning
 '*

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_edit.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_edit.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_edit.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_edit.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tEditDuplicate
 ' #1 tEditFields
 ' #1 tEditDeleteSlide

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_find_replace.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_find_replace.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_find_replace.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_find_replace.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description : Edit -> Find & Replace
-'*
-'***********************************************************************************
+*********
 '*
 ' #1 tiEditSearchAndReplace
 ' #1 tiEditSearchAndReplaceBUGS

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_imagemap.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_imagemap.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_imagemap.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_imagemap.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tEditImageMap
 ' #1 tEditImageMapProperties
 '\*************************************************************************************

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_line.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_line.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_line.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_line.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tiFormatLine
 ' #1 tLineConnect
 '\*************************************************************************************

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_load_save.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_load_save.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_load_save.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_load_save.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tFileOpenSaveEtc
 ' #1 tFileProperties
 ' #1 tFilePassword52

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_navigator.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_navigator.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_navigator.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_navigator.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tdViewNavigator
 ' #1 tViewNavigatorZOrder
 ' #1 tViewNavigatorNameActivated

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_paneview.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_paneview.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_paneview.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_paneview.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description: includefile for Paneview-testing
-'*
-'**************************************************************************************
+************
 ' #1 tiMinimize_Maximize_Docking_SlidePane
 ' #1 tiMinimize_Maximize_Docking_TaskPane
 ' #1 tdMinimize_Maximize_Docking_Pagepane

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_savepictureas.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_savepictureas.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_savepictureas.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_savepictureas.inc Fri Jan 13 22:01:08 2012
@@ -1,771 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
-'/********************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description : Graphics ContextMenu -SavePictureAs -Test
-'*
 '*************************************************************************
-'*
-' #1 tContextSaveAsPicture
-' #1 tContextSavePictureLinkAsPicture
-'*
-'\***********************************************************************
-
-testcase tContextSaveAsPicture
-    Dim Counter as integer
-    Dim CounterShouldBe as integer
-    Dim SavedOrgPosition as integer
-    Dim i as integer
-    Dim q as integer
-    Dim iFileSize(50) as Long
-    Dim FileList(50) as String
-    Dim FileList2(50) as string
-    Dim Filesize1 as Long
-    Dim Filesize2 as Long
-    Dim Filename, LastFilterName as String
-    Dim Filetype as String
-    Dim OrgFile as String
-    Dim NewFile as String
-    Dim OrgFileDir as String
-    Dim NewFileDir as String
-    Dim Testsize as Boolean
-
-    OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
-    NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
-
-    app.mkDir (NewFileDir)
-    sleep 3
-    FileList2(0) = 0
-    GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
-    sleep 1
-    if (KillFileList (FileList2()) <> TRUE) then
-        for i = 1 to ListCount2 (FileList2())
-            Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
-        next i
-    endif
-
-    Call hNewDocument
-    Call sSelectEmptyLayout
-    setClipboard(" ")
-    sleep 2
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Counter = Dateityp.GetItemCount
-
-    Pfad.SetText OrgFileDir
-    Pfad.TypeKeys ("<Return>")
-    Kontext "Active"
-    if Active.Exists then
-        warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
-        Active.OK
-    endif
-    Kontext "GrafikEinfuegenDlg"
-
-    if Dateityp.GetItemCount > 0 then
-        Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
-    else
-        Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
-    endif
-
-    for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
-        Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
-        Pfad.SetText OrgFileDir
-        Pfad.TypeKeys ("<Return>")
-        Kontext "Active"
-        if Active.Exists then
-            warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
-            Active.OK
-        endif
-        Kontext "GrafikEinfuegenDlg"
-
-        if Dateityp.GetItemCount < 1 then
-            Warnlog "Only one or none selectable fileformats."
-        endif
-        Dateityp.Select i
-        Filetype = Dateityp.GetSelText
-        Filetype = left(Right(Dateityp.GetSelText,4),3)
-
-        DateiAuswahl.TypeKeys "<END>"
-        DateiAuswahl.TypeKeys "<SPACE>"
-        if DateiAuswahl.GetItemCount < 1 then
-            warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
-        else
-            printlog "Selected: " + DateiAuswahl.GetSelText
-            Filename = Dateiname.GetSelText
-            OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
-            printlog "   File is: " + OrgFile
-
-            iFileSize(i) = app.FileLen(OrgFile)
-            printlog "   The filesize was: " + iFileSize(i)
-
-            DateiAuswahl.TypeKeys "<DOWN>",true
-            if DateiAuswahl.GetSelText <> Filename then
-                warnlog "More than one file with the same extension. Contact Test-Administrator."
-            endif
-
-            if Link.IsChecked = true then
-                Link.UnCheck
-            endif
-
-            Oeffnen.Click
-
-            if (gApplication = "IMPRESS") then
-                Kontext "DocumentImpress"
-            else
-                Kontext "DocumentDraw"
-            endif
-            EditSelectall
-
-            hOpenContextMenu
-            if (gApplication = "IMPRESS") then
-                Kontext "DocumentImpress"
-                DocumentImpress.OpenContextMenu true
-                WaitSlot(1000)
-                if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
-                    Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
-                    Call hCloseDocument
-                    Goto Endsub
-                endif
-            else  'Should be Draw
-                Kontext "DocumentDraw"
-                DocumentDraw.OpenContextMenu true
-                WaitSlot(1000)
-                if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
-                    Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
-                    Call hCloseDocument
-                    Goto Endsub
-                endif
-            endif
-            sleep 1
-
-            Kontext "ExportierenDlg"
-            if ExportierenDlg.IsVisible then
-                Printlog "   'Save As Picture' came up correctly when using the Context-menu."
-            endif
-
-            Kontext "ExportierenDlg" 'SaveAsDialogue
-
-            Testsize = false
-            SavedOrgPosition = Dateityp.GetSelIndex
-            select case left(lcase(Dateityp.GetSelText),3) 'Filetype
-                case "png" : if (Filetype = "png") OR (Filetype = "psd") OR (Filetype = "pcx") OR (Filetype = "xbm") OR (Filetype = "ras") OR (Filetype = "pbm") OR (Filetype = "pcd") OR (Filetype = "pgm") OR (Filetype = "bmp") OR (Filetype = "ppm") OR (Filetype = "sgf") OR (Filetype = "xpm") OR (Filetype = "tga") then
-                    printlog "   " + Filetype + " will be saved as png, correct."
-                    CounterShouldBe = 17
-                else
-                    warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "svm" : if (Filetype = "svm") OR (Filetype = "svg") OR (Filetype = "dxf") OR (Filetype = "eps") OR (Filetype = "sgv") then
-                    printlog "   " + Filetype + " will be saved as Svm, correct."
-                    CounterShouldBe = 17
-                else
-                    warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "wmf" : if (Filetype = "wmf") OR (Filetype = "emf") then
-                    printlog "   " + Filetype + " will be saved as Wmf, correct."
-                    CounterShouldBe = 17
-                if Filetype = "wmf" then Testsize = true
-                else
-                    warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
-                    printlog "   " + Filetype + " will be saved as Jpg, correct."
-                    CounterShouldBe = 17
-                    if Filetype = "jpg" then Testsize = true
-                else
-                    warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "tif" : if Filetype = "tif" OR Filetype = "iff" then
-                    printlog "   " + Filetype + " will be saved as Tiff, correct."
-                    CounterShouldBe = 17
-                if Filetype = "tif" then Testsize = true
-                else
-                    warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "sgf" : if (Filetype = "sgv") OR (Filetype = "sgf") then
-                    printlog "   " + Filetype + " will be saved as Sgf, correct."
-                    CounterShouldBe = 17
-                if Filetype = "sgf" then Testsize = true
-                else
-                    warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "gif" : if (Filetype = "gif") then
-                    printlog "   " + Filetype + " will be saved as Gif, correct."
-                    CounterShouldBe = 17
-                if Filetype = "gif" then Testsize = true
-                else
-                    warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "met" : if (Filetype = "met") then
-                    printlog "   " + Filetype + " will be saved as Met, correct."
-                    CounterShouldBe = 17
-                if Filetype = "met" then Testsize = true
-                else
-                    warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
-                    printlog "   " + Filetype + " will be saved as Pct, correct."
-                    CounterShouldBe = 17
-                if Filetype = "pct" then Testsize = true
-                else
-                    warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
-                endif
-                case else  : qaerrorlog "   The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
-                    printlog "   But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
-                    CounterShouldBe = 18
-                    Testsize = true
-            end select
-
-    '..........................................................................................................................'
-
-            Dateityp.TypeKeys "<HOME>"
-            if (Dateityp.GetItemCount) = CounterShouldBe then  'Counter - 10
-                for q = 1 to CounterShouldBe - 1
-                    LastFilterName = Dateityp.GetSelIndex
-                    Dateityp.TypeKeys "<DOWN>"
-                        if Dateityp.GetSelIndex = LastFilterName then
-                            warnlog "   Check the export-filters when trying to save a " + Filename + "-file. Exiting test."
-                            goto endsub
-                        endif
-                next q
-            else
-                warnlog "Dateityp.GetItemCount  = " + (Dateityp.GetItemCount) + "  CounterShouldBe =  " + CounterShouldBe
-            endif
-
-    Dateityp.Select SavedOrgPosition
-
-    Dateiname.SetText ( NewFileDir )
-    Dateiname.TypeKeys ("<Return>")
-
-    kontext "Active"
-    if Active.Exists then  'Could not find directory.
-        warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
-        warnlog "ABORTING TESTCASE. PLEASE INFORM TESTPROGRAMMER."
-        Active.OK
-        kontext "GrafikEinfuegenDlg"
-        GrafikEinfuegenDlg.Close
-        goto Endsub
-    endif
-    Kontext "ExportierenDlg"
-
-    sleep 1
-    Dateiname.SetText ConvertPath ( NewFileDir + "SaveAsPicture")
-    NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
-    Dateiname.TypeKeys ("<Return>")
-    Kontext "Active"
-    if Active.Exists then  'either could not find directory, or overwrite.
-        Active.Yes ' Overwrite?
-    endif
-
-    if Testsize = true then
-        if NewFile <> "" then
-            Filesize1 = iFileSize(i)
-            printlog "   Saved file-size was: " + app.FileLen(NewFile)
-            Filesize2 = app.FileLen(NewFile)
-        endif
-    endif
-
-    if (Testsize = true) then
-        if (Filesize1 < (Filesize2*0.95)) OR (Filesize1 > (Filesize2*1.05)) then
-            warnlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'."
-        else
-            printlog "   The Format '" + right(NewFile,3) + "' was saved correctly."
-        endif
-    endif
-    if (gApplication = "IMPRESS") then
-        Kontext "DocumentImpress"
-    else
-        Kontext "DocumentDraw"
-    endif
-    hTypeKeys "<DELETE>"
-    call hCloseDocument
-    call hNewDocument
-    Call sSelectEmptyLayout
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    if GrafikEinfuegenDlg.exists(5) then
-        printlog "   The Insertgraphics-dialogue showed up correctly."
-        sleep (5)
-    else
-        warnlog "   The Insertgraphics-dialogue didn't show up."
-    endif
-endif
-next i
-GrafikEinfuegenDlg.Close
-
-GetFileList (NewFileDir, "*.*" , FileList() )
-sleep 1
-if (KillFileList (FileList()) <> TRUE) then
-for i = 1 to ListCount (FileList())
-    Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
-next i
-endif
-Printlog "The test will exit now."
-Sleep 1
-Call  hCloseDocument
-endcase 'tContextSaveAsPicture
-
-'--------------------------------------------------------------------------------------
-
-'(Different behaviour = new testcase)
-
-testcase tContextSavePictureLinkAsPicture
-    Dim Counter as integer
-    Dim CounterShouldBe as integer
-    Dim SavedOrgPosition as integer
-    Dim LastFilterName as String
-    Dim i as integer
-    Dim q as integer
-    Dim iFileSize(50) as Long
-    Dim FileList(50) as String
-    Dim FileList2(50) as string
-    Dim Filesize1 as Long
-    Dim Filesize2 as Long
-    Dim Filename as String
-    Dim Filetype as String
-    Dim SavedFileType as String
-    Dim OrgFile as String
-    Dim NewFile as String
-    Dim OrgFileDir as String
-    Dim NewFileDir as String
-    Dim Testsize as Boolean
-    Dim Found as Boolean
-
-    OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
-    NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
-
-    app.mkDir (NewFileDir)
-    sleep 3
-    FileList2(0) = 0
-    GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
-    sleep 1
-    if (KillFileList (FileList2()) <> TRUE) then
-        for i = 1 to ListCount2 (FileList2())
-            Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
-        next i
-    endif
-
-    Call hNewDocument
-    Call sSelectEmptyLayout
-    setClipboard(" ")
-    sleep 2
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Counter = Dateityp.GetItemCount
-
-    Pfad.SetText OrgFileDir
-    Pfad.TypeKeys ("<Return>")
-    Kontext "Active"
-    if Active.Exists then
-        warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
-        Active.OK
-    endif
-    Kontext "GrafikEinfuegenDlg"
-
-    if Dateityp.GetItemCount > 0 then
-        Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
-    else
-        Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
-    endif
-
-    for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
-        Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
-        Pfad.SetText OrgFileDir
-        Pfad.TypeKeys ("<Return>")
-        Kontext "Active"
-        if Active.Exists then
-            warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
-            Active.OK
-        endif
-        Kontext "GrafikEinfuegenDlg"
-
-        if Dateityp.GetItemCount < 1 then
-            Warnlog "Only one or none selectable fileformats."
-        endif
-        Dateityp.Select i
-        Filetype = Dateityp.GetSelText
-        printlog " orginal: " + Dateityp.GetSelText
-        Filetype = left(Right(Dateityp.GetSelText,4),3)
-
-        DateiAuswahl.TypeKeys "<END>"
-        DateiAuswahl.TypeKeys "<SPACE>"
-        if DateiAuswahl.GetItemCount < 1 then
-            warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
-        else
-            printlog "   Selected: " + DateiAuswahl.GetSelText
-            Filename = Dateiname.GetSelText
-            OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
-            printlog "   File is: " + OrgFile
-
-            iFileSize(i) = app.FileLen(OrgFile)
-            printlog "   The filesize was: " + iFileSize(i)
-
-            DateiAuswahl.TypeKeys "<DOWN>",true
-            if DateiAuswahl.GetSelText <> Filename then
-                warnlog "More than one file with the same extension. Contact Test-Administrator."
-            endif
-
-            if Link.IsChecked <> true then
-                Link.Check
-            endif
-            Oeffnen.Click
-
-            if (gApplication = "IMPRESS") then
-                Kontext "DocumentImpress"
-            else
-                Kontext "DocumentDraw"
-            endif
-            EditSelectall
-
-            hOpenContextMenu
-            if (gApplication = "IMPRESS") then
-                Kontext "DocumentImpress"
-                DocumentImpress.OpenContextMenu true
-                if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
-                    Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
-                    Call hCloseDocument
-                    Goto Endsub
-                endif
-            else  'Should be Draw
-                Kontext "DocumentDraw"
-                DocumentDraw.OpenContextMenu true
-                if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), false) = false then
-                    Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
-                    Call hCloseDocument
-                    Goto Endsub
-                endif
-            endif
-            sleep 1
-
-            Kontext "ExportierenDlg"
-            if ExportierenDlg.IsVisible then
-                Printlog "   'Save As Picture' came up correctly when using the Context-menu."
-            endif
-
-            Kontext "ExportierenDlg" 'SaveAsDialogue
-
-            Testsize = false
-            Found = true
-            SavedOrgPosition = Dateityp.GetSelIndex
-            select case left(lcase(Dateityp.GetSelText),3) 'Filetype
-
-            case "svg" : if (filetype = "svg") then
-                printlog "   " + Filetype + " will be saved as svg, correct."
-                SavedFileType = "svg"
-                Testsize = true
-                CounterShouldBe = 17
-            else
-                warnlog "svg should not have been selected when we opened a '" + Filetype + "'-file."
-            endif
-            
-            case "png" : if (Filetype = "png") then
-                printlog "   " + Filetype + " will be saved as png, correct."
-                SavedFileType = "png"
-                Testsize = true
-                CounterShouldBe = 17
-            else
-                warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
-            endif
-        case "pcx" : if(Filetype = "pcx") then
-            printlog "   " + Filetype + " will be saved as pcx, correct."
-            SavedFileType = "pcx"
-            Testsize = true
-            CounterShouldBe = 18
-        else
-            warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
-        endif
-    case "xbm" : if (Filetype = "xbm") then
-        printlog "   " + Filetype + " will be saved as xbm, correct."
-        SavedFileType = "xbm"
-        Testsize = true
-        CounterShouldBe = 18
-    else
-        warnlog "xbm should not have been selected when we opened a '" + Filetype + "'-file."
-    endif
-case "xpm" : if (Filetype = "xpm") then
-    printlog "   " + Filetype + " will be saved as Xpm, correct."
-    SavedFileType = "xpm"
-    Testsize = true
-    CounterShouldBe = 17
-else
-    warnlog "xpm should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "svm" : if (Filetype = "svm") then
-printlog "   " + Filetype + " will be saved as Svm, correct."
-SavedFileType = "svm"
-if (Filetype = "svm") then Testsize = true
-    CounterShouldBe = 17
-else
-    warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "tga" : if (Filetype = "tga") then
-printlog "   " + Filetype + " will be saved as Svm, correct."
-SavedFileType = "tga"
-if (Filetype = "tga") then Testsize = true
-    CounterShouldBe = 18
-else
-    warnlog "Tga should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "bmp" : if (Filetype = "bmp") then
-printlog "   " + Filetype + " will be saved as Bmp, correct."
-SavedFileType = "bmp"
-Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Bmp should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "ppm" : if (Filetype = "ppm") then
-printlog "   " + Filetype + " will be saved as Bmp, correct."
-SavedFileType = "ppm"
-if Filetype = "ppm" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Ppm should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "eps" : if (Filetype = "eps") then
-printlog "   " + Filetype + " will be saved as Eps, correct."
-SavedFileType = "eps"
-if Filetype = "eps" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Eps should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "pgm" : if (Filetype = "pgm") then
-printlog "   " + Filetype + " will be saved as Pgm, correct."
-SavedFileType = "pgm"
-if Filetype = "pgm" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Pgm should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "dxf" : if (Filetype = "dxf") then
-printlog "   " + Filetype + " will be saved as Dxf, correct."
-SavedFileType = "dxf"
-if Filetype = "dxf" then Testsize = true
-CounterShouldBe = 18
-else
-warnlog "Dxf should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "pbm" : if (Filetype = "pbm") then
-printlog "   " + Filetype + " will be saved as Pbm, correct."
-SavedFileType = "pbm"
-if Filetype = "pbm" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Pbm should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "ras" : if (Filetype = "ras") then
-printlog "   " + Filetype + " will be saved as Ras, correct."
-SavedFileType = "ras"
-if Filetype = "ras" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Ras should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "wmf" : if (Filetype = "wmf") or (Filetype = "emf") then
-printlog "   " + Filetype + " will be saved as Wmf, correct."
-SavedFileType = "wmf"
-if Filetype = "wmf" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "emf" : if (Filetype = "emf") then
-printlog "   " + Filetype + " will be saved as Wmf, correct."
-SavedFileType = "emf"
-Testsize = true
-CounterShouldBe = 17
-else
-qaerrorlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file. #i95364#"
-endif
-case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
-printlog "   " + Filetype + " will be saved as Jpg, correct."
-SavedFileType = "jpg"
-Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "tif" : if Filetype = "tif" OR Filetype = "iff"  then
-printlog "   " + Filetype + " will be saved as Tiff, correct."
-SavedFileType = "tif"
-Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "sgf" : if (Filetype = "sgf") OR (Filetype = "sgv") then  'sgf
-printlog "   " + Filetype + " will be saved as Sgf, correct."
-SavedFileType = "sgf"
-Testsize = true
-CounterShouldBe = 18
-else
-warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "gif" : if (Filetype = "gif") then
-SavedFileType = "gif"
-printlog "   " + Filetype + " will be saved as Gif, correct."
-if Filetype = "gif" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "met" : if (Filetype = "met") then
-printlog "   " + Filetype + " will be saved as Met, correct."
-SavedFileType = "met"
-if Filetype = "met" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
-printlog "   " + Filetype + " will be saved as Pct, correct."
-SavedFileType = "pct"
-if Filetype = "pct" then Testsize = true
-CounterShouldBe = 17
-else
-warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "pcd" : if (Filetype = "pcd") then
-printlog "   " + Filetype + " will be saved as Pcd, correct."
-SavedFileType = "pcd"
-if Filetype = "pcd" then Testsize = true
-CounterShouldBe = 18
-else
-warnlog "Pcd should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case "psd" : if (Filetype = "psd") then
-printlog "   " + Filetype + " will be saved as Psd, correct."
-SavedFileType = "psd"
-if Filetype = "psd" then Testsize = true
-CounterShouldBe = 18
-else
-warnlog "Psd should not have been selected when we opened a '" + Filetype + "'-file."
-endif
-case else : qaerrorlog "   The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
-printlog "   But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
-CounterShouldBe = 18
-Found = false
-end select
-
-Dateityp.TypeKeys "<HOME>"
-if (Dateityp.GetItemCount) = CounterShouldBe then  'Counter - 10
-for q = 1 to CounterShouldBe - 1
-LastFilterName = Dateityp.GetSelIndex
-Dateityp.TypeKeys "<DOWN>"
-if Dateityp.GetSelIndex = LastFilterName then
-warnlog "   Check the export-filters when trying to save a " + Filename + "-file. Exiting Test."
-goto endsub
-endif
-next q
-else
-warnlog "Dateityp.GetItemCount  = " + (Dateityp.GetItemCount) + "  CounterShouldBe =  " + CounterShouldBe
-endif
-Dateityp.Select SavedOrgPosition
-
-Dateiname.SetText ( NewFileDir )
-Dateiname.TypeKeys ("<Return>")
-
-kontext "Active"
-if Active.Exists then  'Could not find directory.
-warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
-warnlog "ABORTING TESTCASE. PLEASE INFORM THE TESTPROGRAMMER."
-Active.OK
-kontext "GrafikEinfuegenDlg"
-GrafikEinfuegenDlg.Close
-goto Endsub
-endif
-Kontext "ExportierenDlg"
-
-sleep 1
-
-if Found = false then
-NewFile = ConvertPath ( NewFileDir + "SaveAsPicture"  + "." + left(lcase(Dateityp.GetSelText),3) )
-else
-NewFile = ConvertPath ( NewFileDir + "SaveAsPicture"  + "." + SavedFileType ' left(lcase(Dateityp.GetSelText),3) )
-endif
-Dateiname.SetText NewFile
-
-Dateiname.TypeKeys ("<Return>")
-Kontext "Active"
-if Active.Exists then  'either could not find directory, or overwrite.
-Active.Yes ' Overwrite?
-endif
-
-if Testsize = true then
-if NewFile <> "" then
-Filesize1 = iFileSize(i)
-printlog "   Saved file-size was: " + app.FileLen(NewFile)
-Filesize2 = app.FileLen(NewFile)
-endif
-endif
-
-if (Testsize = true) AND (Filesize1 <> Filesize2) then
-qaerrorlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'.#i95364#"
-else
-printlog "   The Format '" + right(NewFile,3) + "' was saved correctly."
-endif
-
-if (gApplication = "IMPRESS") then
-Kontext "DocumentImpress"
-else
-Kontext "DocumentDraw"
-endif
-hTypeKeys "<DELETE>"
-call hCloseDocument
-call hNewDocument
-Call sSelectEmptyLayout
-InsertGraphicsFromFile
-Kontext "GrafikEinfuegenDlg"
-if GrafikEinfuegenDlg.exists(5) then
-printlog "   The Insertgraphics-dialogue showed up correctly."
-sleep (5)
-else
-warnlog "   The Insertgraphics-dialogue didn't show up."
-endif
-endif
-next i
-
-GrafikEinfuegenDlg.Close
-
-GetFileList (NewFileDir, "*.*" , FileList() )
-sleep 1
-if (KillFileList (FileList()) <> TRUE) then
-for i = 1 to ListCount (FileList())
-Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
-next i
-endif
-Printlog "The test will exit now."
-Sleep 1
-Call  hCloseDocument
-
-endcase 'tContextSaveAsPicture
 
-'******************************************************************************************************************************'
+****************************************************'
 
 testcase Mnemonickey
     qaerrorlog "Not yet ready."

Modified: incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_slidelayer.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_slidelayer.inc?rev=1231329&r1=1231328&r2=1231329&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_slidelayer.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/global/g_slidelayer.inc Fri Jan 13 22:01:08 2012
@@ -1,37 +1,26 @@
 '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.
+'  Licensed to the Apache Software Foundation (ASF) under one
+'  or more contributor license agreements.  See the NOTICE file
+'  distributed with this work for additional information
+'  regarding copyright ownership.  The ASF licenses this file
+'  to you under the Apache License, Version 2.0 (the
+'  "License"); you may not use this file except in compliance
+'  with the License.  You may obtain a copy of the License at
+'  
+'    http://www.apache.org/licenses/LICENSE-2.0
+'  
+'  Unless required by applicable law or agreed to in writing,
+'  software distributed under the License is distributed on an
+'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+'  KIND, either express or implied.  See the License for the
+'  specific language governing permissions and limitations
+'  under the License.
 '
 '*************************************************************************
 
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'**************************************************************************************
+************
 ' #1 tInsertSlide
 ' #1 tInsertDuplicateSlide
 ' #1 tInsertLayer



Mime
View raw message