You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@openoffice.apache.org by ar...@apache.org on 2012/01/13 23:01:09 UTC
svn commit: r1231329 [1/2] - in /incubator/ooo/trunk/main/testautomation:
graphics/optional/includes/global/ xml/optional/includes/ xml/tools/includes/
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