diff options
| author | Andrew Rist <arist@apache.org> | 2012-01-13 21:00:40 +0000 |
|---|---|---|
| committer | Andrew Rist <arist@apache.org> | 2012-01-13 21:00:40 +0000 |
| commit | 3b228a029c88d498240d7b8804fad1acaa3303b6 (patch) | |
| tree | a373ad6db3b68f12dfd85ff64adcd5fb2792a001 /testautomation | |
| parent | 386e8346921201dba50829894e59e533cf132003 (diff) | |
Update headers to Alv2 headers
Diffstat (limited to 'testautomation')
32 files changed, 544 insertions, 3875 deletions
diff --git a/testautomation/global/required/includes/g_findbar.inc b/testautomation/global/required/includes/g_findbar.inc index 6db570778f4b..f237d286c48c 100644 --- a/testautomation/global/required/includes/g_findbar.inc +++ b/testautomation/global/required/includes/g_findbar.inc @@ -1,145 +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 : gregor.hartmann@oracle.com -'* -'* short description : Update test for the findbar -'* -'\*********************************************************************** - -testcase tUpdtFindBar() - - ' This test is incomplete. It needs to be integrated into all update tests - ' and it needs to be added to the toolbar management functions - - printlog( "Update test for the findbar" ) - - const TEST_STRING = "VCL Testtool" - - select case( gApplication ) - case "IMPRESS", "DRAW", "DATABASE" - kontext "FindBar" - if ( FindBar.exists() ) then - warnlog( "The FindBar should not be visible by default" ) - endif - end select - - hNewDocument() - - kontext "FindBar" - if ( FindBar.exists() ) then - - printlog( "FindBar has " & FindBar.getItemCount() & " items" ) - - printlog( "Insert text into search field" ) - FindText.setText( TEST_STRING ) - - printlog( "Click <Find next> (down arrow)" ) - DownSearch.click() - - kontext "Active" - if ( Active.exists( 1 ) ) then - printlog( "Expected message: " & Active.getText() - call DialogTest( Active ) - - kontext "Active" - Active.ok() - else - warnlog( "Messagebox missing <No matches found>" ) - endif - - printlog( "Click <Find last> (up arrow)" ) - kontext "FindBar" - UpSearch.click() - - kontext "Active" - if ( Active.exists( 1 ) ) then - printlog( "Expected message: " & Active.getText() - call DialogTest( Active ) - - kontext "Active" - Active.ok() - else - warnlog( "Messagebox missing <No matches found>" ) - endif - - qaerrorlog( "#i111984 - exclude <SearchDialog> button from testing" ) - goto skip_SearchDialog - - printlog( "Search dialog button may not be visible by default" ) - kontext "FindBar" - if ( SearchDialog.exists() ) then - if ( SearchDialog.isVisible() ) then - SearchDialog.click() - warnlog( "Button <Search Dialog> is visible, it should be hidden by default" ) - else - printlog( "Button <Search Dialog> is hidden, good" ) - endif - else - warnlog( "<Search Dialog> button should not be visible" ) - endif - - printlog( "Add <Search Dialog> button to toolbar" ) - hToggleSearchDialog() - - kontext "FindBar" - SearchDialog.click() - - kontext "FindAndReplace" - if ( FindAndReplace.exists( 1 ) ) then - call DialogTest( FindAndReplace ) - - kontext "FindAndReplace" - if ( SearchFor.getSelText() = TEST_STRING ) then - printlog( "Test string has been inserted into <SearchFor> Listbox. Good." ) - else - warnlog( "Search string should have been copied from findbar to search dialog" ) - endif - FindAndReplace.close() - else - warnlog( "Dialog <Search And Replace> is missing" ) - endif - - printlog( "Remove <Search Dialog> button from toolbar" ) - hToggleSearchDialog() - - skip_SearchDialog: - - else - warnlog( "FindBar is not visible" ) - endif - - hCloseDocument() - -endcase - -'******************************************************************************* +***** function hToggleSearchDialog() diff --git a/testautomation/global/required/includes/g_printing.inc b/testautomation/global/required/includes/g_printing.inc index 490b0fda2be0..2ec0ebbac9e2 100644 --- a/testautomation/global/required/includes/g_printing.inc +++ b/testautomation/global/required/includes/g_printing.inc @@ -1,41 +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 : gregor.hartmann@oracle.com -'* -'* short description : Resource test for the printing dialog -'* -'\****************************************************************************** - -private const MSG1 = "Incorrect default setting: " -'******************************************************************************* +***** sub g_printing() diff --git a/testautomation/global/tools/includes/optional/t_accels.inc b/testautomation/global/tools/includes/optional/t_accels.inc index 11a94cdc8e42..c750067e92ef 100644 --- a/testautomation/global/tools/includes/optional/t_accels.inc +++ b/testautomation/global/tools/includes/optional/t_accels.inc @@ -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 : gregor.hartmann@oracle.com -'* -'* short description : handle accelerators -'* -'******************************************************************************* +***** '** ' #1 hGetAccel ' function to retrieve a language specific accelerator '** diff --git a/testautomation/global/tools/includes/optional/t_basic_ide_tools.inc b/testautomation/global/tools/includes/optional/t_basic_ide_tools.inc index 883f067566c2..bdc4ab586a29 100644 --- a/testautomation/global/tools/includes/optional/t_basic_ide_tools.inc +++ b/testautomation/global/tools/includes/optional/t_basic_ide_tools.inc @@ -1,98 +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 : gregor.hartmann@oracle.com -' ** -' ** short description : tools for the property-browser test -' ** -'\****************************************************************************** - -function hShowMacroControls() as boolean - - '///<h3>Tear off the ToolsCollectionBar from the MacroBar</h3> - '///<i>Starting point: Basic dialog editor is open and has the focus</i> - '///<ul> - const CFN = "hShowMacroControls::" - - const MAX_WAIT = 5 - const SHORT_WAIT = 1 - - const VERTICALLY_CENTERED = 50 - const HORIZONTALLY_CENTERED = 50 - - if ( GVERBOSE ) then printlog( CFN & "Enter" ) - - '///+<li>Test whether the ToolsCollectionBar is already open. If yes, exit directly</li> - kontext "ToolsCollectionBar" - if ( ToolsCollectionBar.exists( SHORT_WAIT ) ) then - printlog( CFN & "ToolsCollectionBar is already open." ) - hShowMacroControls() = true - exit function - endif - - '///+<li>Verify that the Dialog Bar is available</li> - Kontext "DialogBar" - if ( DialogBar.exists( MAX_WAIT ) ) then - - '///+<li>Verify that the controls-button is enabled</li> - try - '///+<li>Click on the controls-button to open the ToolsCollectionBar</li> - controls.click() - - '///+<li>Tear off the ToolsCollectionBar from the DialogBar</li> - controls.tearOff() - - '///+<li>Verify that the ToolsCollectionBar is visible and can be accessed</li> - kontext "ToolsCollectionBar" - if ( ToolsCollectionBar.exists( MAX_WAIT ) ) then - - '///+<li>Move it to the upper left corner at pos 50/50</li> - ToolsCollectionBar.Move ( HORIZONTALLY_CENTERED , VERTICALLY_CENTERED ) - printlog( CFN & "ToolsCollectionBar is open and has been placed" ) - hShowMacroControls() = true - else - printlog( CFN & "ToolsCollectionBar is not available. Aborting." ) - hShowMacroControls() = false - endif - catch - printlog( CFN & "The Controls-Button is not enabled. Aborting." ) - hShowMacroControls() = false - endcatch - else - printlog( CFN & "The Dialog Bar is not available. Aborting." ) - hShowMacroControls() = false - endif - '///</ul> - -end function - -'******************************************************************************* +***** function hGetBasicWorkFile( cMajorID as string ) as string diff --git a/testautomation/global/tools/includes/optional/t_basic_organizer_tools.inc b/testautomation/global/tools/includes/optional/t_basic_organizer_tools.inc index f2ec162a9fe1..ff392128c4bc 100644 --- a/testautomation/global/tools/includes/optional/t_basic_organizer_tools.inc +++ b/testautomation/global/tools/includes/optional/t_basic_organizer_tools.inc @@ -1,74 +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 : gregor.hartmann@oracle.com -' ** -' ** short description : tools for tools/macro test -' ** -'\****************************************************************************** - -function hSelectTheLastModule( bEditEnabled as Boolean ) as string - - '///<h3>Select the last (editable) module in the macro seletor treelist</li> - - use "global\tools\includes\optional\t_treelist_tools.inc" - - const CFN = "hSelectTheLastModule()::" - - dim bCloseDialog as boolean : bCloseDialog = FALSE - dim iNodeCount as integer - dim iCurrentNode as integer - - hSelectTheLastModule() = "" - - kontext "Makro" - if ( not Makro.exists() ) then ToolsMacro_uno : bCloseDialog = TRUE - - kontext "Makro" - iNodeCount = hSelectTheLastNode( MakroAus ) - - if ( bEditEnabled ) then - for iCurrentNode = iNodeCount to 1 step -1 - if ( Bearbeiten.isEnabled() ) then - printlog( CFN & "Editable module found at pos: " & iCurrentNode ) - exit for - endif - next iCurrentNode - else - printlog( CFN & "Module selected at pos: " & iNodeCount ) - endif - - if ( iCurrentNode > 1 ) then hSelectTheLastModule = MakroAus.getSelText() - -end function - -'******************************************************************************* +***** function hCreateModuleForDoc( optional cName as string ) as boolean diff --git a/testautomation/global/tools/includes/optional/t_control_objects.inc b/testautomation/global/tools/includes/optional/t_control_objects.inc index 4a633bfdd48b..b2928ea63ac0 100644 --- a/testautomation/global/tools/includes/optional/t_control_objects.inc +++ b/testautomation/global/tools/includes/optional/t_control_objects.inc @@ -1,41 +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 : gregor.hartmann@oracle.com -'* -'* short description : Functions to manipulate controls by accessing them as objects -'* -'\****************************************************************************** - -private const MSG1 = "Incorrect default setting: " - -'******************************************************************************* +***** function cb_test( oControl as object, def_state as string, issueid as string ) as boolean diff --git a/testautomation/global/tools/includes/optional/t_docfuncs.inc b/testautomation/global/tools/includes/optional/t_docfuncs.inc index 040f1fecf381..01441679ec69 100644 --- a/testautomation/global/tools/includes/optional/t_docfuncs.inc +++ b/testautomation/global/tools/includes/optional/t_docfuncs.inc @@ -1,90 +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 : gregor.hartmann@oracle.com -'* -'* short description : misc functions to handle documents -'* -'\****************************************************************************** - -function hUseImpressAutopilot( bEnable as boolean ) as boolean - - '///<h3>Enable/disable the Impress Autopilot in Tools/Options</h3> - '///<i>Starting point: Any plain document</i> - '///<ul> - const CFN = "global::tools::includes::optional::t_docfuncs.inc::hUseImpressAutopilot::" - - if ( GVERBOSE ) then printlog( CFN & "Enter" ) - - '///+<li>Create a new IMPRESS document</li> - gApplication = "IMPRESS" - hCreateDocument() - - '///+<li>Open Tools/Options, go to Presentataion/General page</li> - ToolsOptions - hToolsOptions( gApplication , "General" ) - - '///+<li>Check or uncheck to start with autopilot</li> - Kontext "TabSonstigesDraw" - if ( mitAutopilotStarten.exists( 2 ) ) then - - if ( bEnable ) then - mitAutopilotStarten.check() - if ( GVERBOSE ) then printlog( CFN & "Enable Impress Autopilot" ) - else - mitAutopilotStarten.uncheck() - if ( GVERBOSE ) then printlog( CFN & "Disable Impress Autopilot" ) - endif - - '///+<li>Return Status of Checkbox (checked=TRUE)</li> - hUseImpressAutopilot() = mitAutopilotStarten.isChecked() - - else - - warnlog( CFN & "Cannot find Autopilot Checkbox" ) - - endif - - '///+<li>Close Tools/Options</li> - Kontext "OptionenDlg" - hCloseDialog( OptionenDlg, "ok" ) - - '///+<li>Close IMPRESS document</li> - hDestroyDocument() - - '///+<li>Returncode is undefined</li> - if ( GVERBOSE ) then printlog( CFN & "Exit" ) - '///</ul> - -end function - -'******************************************************************************* +***** function hNumericDocType( doctype as integer ) as string diff --git a/testautomation/global/tools/includes/optional/t_extension_manager_tools.inc b/testautomation/global/tools/includes/optional/t_extension_manager_tools.inc index 80ba04fcd0d1..7413eabed501 100644 --- a/testautomation/global/tools/includes/optional/t_extension_manager_tools.inc +++ b/testautomation/global/tools/includes/optional/t_extension_manager_tools.inc @@ -1,303 +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 : gregor.hartmann@oracle.com -'* -'* short description : Tools to ease working with the extension manager -'* -'\****************************************************************************** - -function hExtensionAddGUI( _path as string, _flags as string ) as integer - - '///<h3>Install an extension using the OpenOffice.org Extension Manager UI</h3> - '///<p>This function is intended for use with the new Extension Manager UI - '///+ and replaces an older function with the same name. Please note that - '///+ the interface has changed significantly. <br>This has become necessary - '///+ because the Extension Manager can turn up with a really huge number - '///+ of different dialogs, warnings, errormessages etc. <br> - '///+ As this function is designed to handle the most common installation - '///+ scenarios it needs quite a number of differnt options.<br> - '///+ Please have a look at the usage sample:<br><br></p> - '///+ <p align="center"><i>hExtensionAddGUI( sMyExtension, - '///+ "InstallForAll,BrokenDeps,DenyUpdate" )</i<p><br> - - - '///<u>Input:</u><br> - '///<ol> - '///+<li>Path to extension (String)</li> - '///<ul> - '///+<li>The path has to be fully qualified</li> - '///+<li>The path may be platform specific</li> - '///</ul> - - '///+<li>Flags (String), defaults underlined</li> - '///<ul> - '///+<li>The string is non optional but may be empty. Allowed flags are:</li> - '///<ul> - '///+<li>InstallForAll | <u>InstallForUser</u><br>Used when running office with administrator rights</li> - '///+<li>AllowUpdate | DenyUpdate | <u>NoUpdate</u><br>Reinstall already installed extension/update</li> - '///+<li>AcceptLicense | DenyLicense | <u>NoLicense</u><br>How to handle possible license dialog</li> - '///+<li>BrokenDeps<br>Close exactly one broken dependencies warning</li> - '///+<li>UseSlot<br>Use the File Open slot to load the extension (faster)</li> - '///</ul> - '///+<li>It is recommended to use the comma as delimiter between flags</li> - '///</ul> - '///</ol> - - '///<u>Return Value:</u><br> - '///<ol> - '///+<li>Installation status (Integer)</li> - '///<ul> - '///+<li>> 0 = Installation completed with no errors, number of installed extensions</li> - '///+<li>-1 = The requested extension does not exist</li> - '///+<li>-2 = The Add-button could not be accessed</li> - '///+<li>-3 = The Extension Manager did not open</li> - '///+<li>-4 = Unknown messagebox before the file Open dialog exists</li> - '///+<li>-5 = Broken dependency warning displayed</li> - '///+<li>-6 = The File Open dialog did not pop up</li> - '///+<li>-7 = Unknown and unhandled messagebox. function exit</li> - '///</ul> - '///</ol> - - dim flags as string : flags = lcase( _flags ) - dim path as string : path = convertpath( _path ) - dim bLogs as boolean : bLogs = FALSE - - const CFN = "hExtensionAddGUI()::" - - '///<u>Description</u> - '///<ul> - - ' set defaults if string is empty - if ( flags = "" ) then flags = "installforuser,noupdate,nolicense" - if ( instr( flags , "verbose" ) <> 0 ) then bLogs = TRUE - - if ( bLogs ) then printlog( CFN & "Flags: " & flags ) - - '///+<li>Verify that the requested extension exists (filesystem level)</li> - if ( not FileExists( path ) ) then - printlog( CFN & "Requested extension does not exist" ) - printlog( CFN & path ) - hExtensionAddGUI() = -1 - exit function - endif - - - if ( bLogs ) then - printlog( "" ) - printlog( "********** Installing extension begin **********" ) - endif - - '///+<li>Open the Extension Manager - optionally using the slot (CWS oxtsysint01)</li> - if ( instr( flags , "useslot" ) <> 0 ) then - hFileOpen( path ) - else - ToolsPackageManager - kontext "PackageManager" - - if ( PackageManager.exists( 2 ) ) then - - '///+<li>Verify that the "Add.." button is available</li> - if ( add.exists() and add.isEnabled() ) then - - '///+<li>Click the "Add..." button</li> - add.click() - else - printlog( CFN & "Add button is missing or disabled" ) - hExtensionAddGUI() = -2 - exit function - endif - - '///+<li>Test for the dreaded "The office workdirectory does not exist" warning, close it</li> - kontext "Active" - if ( Active.exists( 1 ) ) then - if ( Active.getButtonCount() = 1 ) then - if ( bLogs ) then printlog( Active.getText() ) - active.ok() - else - printlog( CFN & "Unexpected/unknown messagebox" ) - printlog( Active.getText() ) - hExtensionAddGUI() = -4 - exit function - endif - endif - - '///+<li>Enter the extension name into the file picker, open the file</lI> - kontext "OeffnenDlg" - if ( OeffnenDlg.exists( 2 ) ) then - DateiName.setText( path ) - Oeffnen.click() - else - printlog( CFN & "The File Open dialog did not open" ) - hExtensionAddGUI() = -6 - exit function - endif - - else - printlog( CFN & "Extension Manager is not open" ) - hExtensionAddGUI() = -3 - exit function - endif - endif - - '///+<li>Test for the installation target dialog that comes up as soon as the - '///+ user has administrator rights or works on a userspace installation. - '///+ Handle the dialog as specified by the function flags</li> - if ( instr( flags, "installfor" ) <> 0 ) then - kontext "Active" - if ( Active.exists( 1 ) ) then - if ( Active.getButtonCount() = 3 ) then - - if ( bLogs ) then - printlog( CFN & "Installation target dialog found" ) - printlog( Active.getText() ) - endif - - if ( instr( flags , "installforall" ) <> 0 ) then - printlog( CFN & "Installing for all users" ) - Active.no() - else - printlog( CFN & "Installing for user only" ) - Active.yes() - endif - else - if ( bLogs ) then - printlog( CFN & "Unexpected/unknown dialog" ) - printlog( Active.getText() ) - endif - endif - else - if ( bLogs ) then printlog( CFN & "Skipping handling of installation target" ) - endif - else - if ( bLogs ) then printlog( CFN & "Not handling userspace installations" ) - endif - '///+<li>Test for the broken dependencies exception, close it with ok.</li> - if ( instr( flags , "brokendeps" ) <> 0 ) then - if ( bLogs ) then printlog( CFN & "Testing for dependencies messagebox" ) - kontext "UnsatisfiedDependencies" - if ( UnsatisfiedDependencies.exists( 1 ) ) then - printlog( CFN & "Closing Unsatisfied Dependencies dialog." ) - UnsatisfiedDependencies.ok() - hExtensionAddGUI() = -5 - else - printlog( CFN & "No unsatisfied dependencies dialog" ) - endif - else - if ( bLogs ) then printlog( CFN & "Skipping handling of broken dependencies dialog" ) - endif - - '///+<li>Test for the extension update dialog which pops up if an extension - '///+ is already installed. Handle as specified by flags</li> - if ( instr( flags, "update" ) ) then - if ( bLogs ) then printlog( CFN & "Testing for version message/update" ) - kontext "Active" - if ( Active.exists( 1 ) ) then - - if ( bLogs ) then - printlog( CFN & "Found update dialog" ) - printlog( Active.getText() ) - endif - - if ( Active.getButtonCount() = 2 ) then - if ( instr( flags, "denyupdate" ) <> 0 ) then - printlog( CFN & "Denying update" ) - Active.cancel() - else - printlog( CFN & "Allowing update" ) - Active.ok() - endif - else - printlog( CFN & "Unexpected/unknown dialog displayed" ) - printlog( Active.getText() ) - hExtensionAddGUI() = -7 - exit function - endif - else - if ( instr( flags , "noupdate" ) <> 0 ) then - printlog( CFN & "No update dialog present. Good" ) - else - printlog( CFN & "Update messagebox is missing" ) - endif - endif - else - if ( bLogs ) then printlog( CFN & "Skipping handling of update dialog" ) - endif - - '///+<li>Test for the Software License Agreement dialog. Handle as specified by - '///+ flags</li> - if ( instr( flags, "license" ) <> 0 ) then - if ( bLogs ) then printlog( CFN & "Testing software license dialog" ) - kontext "ExtensionSoftwareLicenseAgreement" - if ( ExtensionSoftwareLicenseAgreement.exists( 5 ) ) then - if ( bLogs ) then printlog( CFN & "Software license dialog found" ) - if ( instr( flags , "denylicense" ) <> 0 ) then - printlog( CFN & "Cancelling software license dialog" ) - ExtensionSoftwareLicenseAgreement.cancel() - else - printlog( CFN & "Accepting software license" ) - do while ( not accept.isEnabled() ) - ScrollDown.click() - WaitSlot() - loop - accept.click() - endif - else - if ( instr( flags , "nolicense" ) <> 0 ) then - printlog( CFN & "No license dialog displayed. Good." ) - else - warnlog( CFN & "Expected license dialog is missing" ) - endif - endif - else - if ( bLogs ) then printlog( CFN & "Skipping handling of license dialog" ) - endif - - '///+<li>Retrieve the number of installed extensions</li> - kontext "PackageManager" - wait( 500 ) - hExtensionAddGUI() = BrowsePackages.getItemCount() - - '///+<li>Close the Extension Manager</li> - hCloseDialog( PackageManager , "close" ) - - if ( bLogs ) then - printlog( "********** Installing extension end **********" ) - printlog( "" ) - endif - '///</ul> - -end function - - -'******************************************************************************* +***** function hExtensionRemoveGUI( cExtensionName as string ) as integer diff --git a/testautomation/global/tools/includes/optional/t_filetools.inc b/testautomation/global/tools/includes/optional/t_filetools.inc index dd090699bf2b..1824ac782969 100644 --- a/testautomation/global/tools/includes/optional/t_filetools.inc +++ b/testautomation/global/tools/includes/optional/t_filetools.inc @@ -1,180 +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 : gregor.hartmann@oracle.com -'* -'* short description : Functions that work with files like deleting, loading... -'* -'\****************************************************************************** - -function hHandleActivesOnLoad( iTries as integer , iAdd as integer ) as boolean - - '///<h3>Handle any dialogs that might pop up when loading a file</h3> - '///<i>Beware: This function gives only limited control over the dialogs closed, - '///+ it just closes anything it can.</i><br> - '///<i>Please refer to the inline documentation for further details</i><br> - '///<u>Input</u>: - '///<ol> - '///+<li>Number of dialogs to be closed (integer)</li> - '///<ul> - '///+<li>Number of dialogs not limited though more than 3 is not useful</li> - '///</ul> - '///+<li>Additional dialogs (integer).</li> - '///<ul> - '///+<li>Number of dialogs to handle in case of unexpected behavior. If unsure set it to 2</li> - '///</ul> - '///</ol> - '///<u>Returns</u>: - '///<ol> - '///+<li>Errorcondition (boolean)</li> - '///<ul> - '///+<li>TRUE: The expected number of dialogs were closed</li> - '///+<li>FALSE: On any other condition</li> - '///</ul> - '///</ol> - '///<u>Description</u>: - '///<ul> - '///+<li>OK to create a new document based on a template</li> - '///+<li>YES to update links</li> - '///+<li>YES to execute macros</li> - '///</ul> - - use "global/tools/includes/optional/t_stringtools.inc" - - const CFN = "hHandleActivesOnLoad::" - - dim iTry as integer - dim iActives as integer - dim cMessage as string - dim bSkip as boolean - - if ( GVERBOSE ) then printlog( CFN & "Enter" ) - - ' not good but apparently required - else hDestroyDocument will handle the - ' dialogs and warn about them. - - ' think positive: preset the returnvalue with "true" - hHandleActivesOnLoad() = true - - for iTry = 1 to iTries + iAdd - - ' handle three possible dialogs: - ' 1. The warning that the user should create a new document based - ' on this Sample/Template (the document is write protected) - ' 2. The question to update links to the internet. Note: If you - ' use proxies, they must be set correctly otherwise the result - ' is undefined. - ' 3. Some weird usage information dialog which is an active with just - ' one OK button. - - ' Although this works quite well, there is a flaw that we will not - ' get information about an "active" dialog that cannot be closed by - ' .yes() or .ok(). If this happens, we probably run into an error - kontext "Active" - try - if ( active.exists( 1 ) ) then - - iActives = iActives + 1 - cMessage = hRemoveLineBreaks( active.getText() ) - printlog( CFN & "MSG (" & iActives & "): " & cMessage ) - printlog( CFN & "Ressource type is: " & Active.getRT() ) - printlog( CFN & "Buttoncount is: " & Active.getButtonCount() ) - bSkip = false - - ' ok to create a new document - try - active.cancel() - printlog( CFN & "MSG (" & iActives & "): closed with Cancel" ) - bSkip = true - catch - printlog( CFN & "Missed - this dialog has no Cancel button (create new document)" ) - active.ok() - endcatch - - if ( not bSkip ) then - if ( Active.getRT() = 304 ) then - if ( Active.getButtonCount() = 1 ) then - active.ok() - printlog( CFN & "MSG (" & iActives & "): closed with OK" ) - bSkip = true - endif - else - endif - endif - - if ( not bSkip ) then - ' no to update links - try - active.no() - printlog( CFN & "MSG (" & iActives & "): closed with NO" ) - catch - printlog( CFN & "Missed - this dialog has no NO button (update links)" ) - endcatch - endif - - endif - catch - kontext "Active" - if ( Active.exists( 1 ) ) then - if ( Active.getButtonCount() = 2 ) then - printlog( CFN & "<Update links dialog> or <File corruption warning>" ) - active.yes() - hFileWait( FALSE ) - kontext "Active" - if ( Active.exists( 2 ) ) then - qaerrorlog( "#105670# - File corruption warning, the template is broken" ) - qaerrorlog( CFN & "Trying to recover." ) - Active.ok() - hHandleActivesOnLoad() = FALSE - exit function - endif - endif - endif - - qaerrorlog( "Problem while trying to handle messageboxes" ) - hHandleActivesOnLoad() = false - endcatch - - next iTry - - ' now see how many dialogs were allowed and how many have been closed - ' this does not change the return value of the function - if ( iActives > iTries ) then - printlog( CFN & "Exit: The test closed more dialogs than expected" ) - hHandleActivesOnLoad() = false - else - if ( GVERBOSE ) then printlog( CFN & "Exit" ) - endif - -end function - -'******************************************************************************* +***** function hHandleInitialDialogs() as integer diff --git a/testautomation/global/tools/includes/optional/t_key_tools.inc b/testautomation/global/tools/includes/optional/t_key_tools.inc index 179e89a931f1..c2ccb4c1df86 100644 --- a/testautomation/global/tools/includes/optional/t_key_tools.inc +++ b/testautomation/global/tools/includes/optional/t_key_tools.inc @@ -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 : gregor.hartmann@oracle.com -'* -'* short description : tools for evaluation of key=value datalists -'* -'******************************************************************************* +***** ' ** ' #1 hGetDataPairAsString ' retrieve key=value from a list ' #1 hGetValueForPairAsString ' retrieve value from a key=value as string diff --git a/testautomation/global/tools/includes/optional/t_listfuncs.inc b/testautomation/global/tools/includes/optional/t_listfuncs.inc index 5133a8584c9f..1127242cf95d 100644 --- a/testautomation/global/tools/includes/optional/t_listfuncs.inc +++ b/testautomation/global/tools/includes/optional/t_listfuncs.inc @@ -1,76 +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 : gregor.hartmann@oracle.com -'* -'* short description : Replacements for routines in t_lists.inc adds some -'* -'\****************************************************************************** - -function hListDelete( aList() as string, iItemToDelete as integer ) as boolean - - '///<h3>Delete one item from a list specified by index</h3> - '///<i>Prerequisite: Array compatible with those from t_lists.inc</i><br> - '///<i>About listfunctions: All listfunctions rely on a special type of - '///+ array. This can be string arrays and - in some cases - numeric - '///+ arrays. What makes the arrays unique is that the first item which - '///+ has the index 0 contains the number of items in the list to be used, - '///+ anything that is stored beyond this number is ignored. This has three - '///+ consequences: 1) all listfunctions that alter an array must update - '///+ the index stored in array(0) and 2) it is possible that the index - '///+ point beyond ubound of the array which will most likely cause a - '///+ runtime error. 3) Means that arrays may only have an upper boundary - '///+ declared, all loops must start with index array(1) and must end with - '///+ index array(val( array(0))</i><br> - - const CFN = "hListDelete::" - const INDEX_CORRECTION = 1 - dim iCurrentItem as integer ' Increment-Variable - - if ( GVERBOSE ) then - printlog( CFN & "Removing: " & aList( iItemToDelete ) & " at pos " & iItemToDelete ) - endif - - ' Move all items down by one in the list beginning with the item after - ' iItemToDelete - for iCurrentItem = ( iItemToDelete + INDEX_CORRECTION ) to ListCount( aList() ) - aList( iCurrentItem - INDEX_CORRECTION ) = aList( iCurrentItem ) - next iCurrentItem - - ' Delete the last entry, it is no longer used and it is duplicate to the item - ' at iListSizeOld-1 (iListSizeNew) - aList( iCurrentItem ) = "" - aList( 0 ) = iCurrentItem - INDEX_CORRECTION - -end function -'******************************************************************************* +***** function hListAppend( sNewString as string, aTargetList() as string ) as integer diff --git a/testautomation/global/tools/includes/optional/t_macro_tools.inc b/testautomation/global/tools/includes/optional/t_macro_tools.inc index f79e2c62158d..d48f5f62fe0b 100644 --- a/testautomation/global/tools/includes/optional/t_macro_tools.inc +++ b/testautomation/global/tools/includes/optional/t_macro_tools.inc @@ -1,102 +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 : gregor.hartmann@oracle.com -' ** -' ** short description : Helper functions for Macro tests -' ** -'\****************************************************************************** - -function hInsertMacroFromFile( cMacroId as string, optional cSource as string ) as integer - - '///<h3>Paste a macro (taken from a file) to the basic IDE</h3> - '///<i>uses: framework/tools/input/macros.txt</i><br> - '///<i>Starting point: Basic IDE</i><br> - '///<u>Note</u>: Overwrites any existing macros in the current module<br> - '///<u>Input</u>: - '///<ol> - '///+<li>Name (ID) of the macro to be inserted (string)</li> - '///<ul> - '///+<li>Allowed is any string that corresponds to a section in the source file</li> - '///</ul> - '///</ol> - '///<u>Returns</u>: - '///<ol> - '///+<li>Number of lines inserted (integer)</li> - '///<ul> - '///+<li>0: Error, no lines inserted</li> - '///+<li>> 0: Number of lines</li> - '///</ul> - '///</ol> - '///<u>Description</u>: - '///<ul> - - const CFN = "hInsertMacroFromFile::" - const RETVAL_FAILURE = 0 - const MAX_LINES_IN_MACRO_FILE = 10000 - - '///+<li>Find the path to the source file</li> - dim cFile as string - dim aInstructionList( MAX_LINES_IN_MACRO_FILE ) as string - dim iInstructionCount as integer - dim iCurrentInstruction as integer - - if ( IsMissing( cSource ) ) then cFile = gTesttoolPath & "global/input/macros.txt" - - '///+<li>retrieve the macro from the file with ID as section</li> - iInstructionCount = hGetDataFileSection( cFile, aInstructionList(), cMacroId, "", "" ) - - '///+<li>Delete all content from the BASIC IDE edit window</li> - '///+<li>Insert the code into the IDE line by line</li> - kontext "BasicIDE" - if ( EditWindow.exists() ) then - if ( hDeleteMacro() ) then - for iCurrentInstruction = 1 to iInstructionCount - EditWindow.TypeKeys( "<HOME>" ) - EditWindow.TypeKeys( aInstructionList( iCurrentInstruction ) ) - EditWindow.TypeKeys( "<RETURN>" ) - next iCurrentInstruction - printlog( CFN & "Inserted macro: " & cMacroId ) - hInsertMacroFromFile() = iInstructionCount - else - printlog( CFN & "IDE is not empty, will not insert macro" ) - hInsertMacroFromFile() = RETVAL_FAILURE - endif - else - printlog( CFN & "Editwindow is not visible" ) - hInsertMacroFromFile() = RETVAL_FAILURE - endif - '///</ul> - -end function - -'******************************************************************************* +***** function hMacroOrganizerRunMacro( cMacroName as string ) as integer diff --git a/testautomation/global/tools/includes/optional/t_ole.inc b/testautomation/global/tools/includes/optional/t_ole.inc index 0d821bf43039..aa06bd91f361 100644 --- a/testautomation/global/tools/includes/optional/t_ole.inc +++ b/testautomation/global/tools/includes/optional/t_ole.inc @@ -1,67 +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 : gregor.hartmann@oracle.com -'* -'* short description : Tools for OLE objects -'* -'\****************************************************************************** - -function hGetOfficeVersion() as string - - ' The "Insert OLE object" dialog lists the OLE Objects with application name - ' and version number. THe version numbers are tracked in the officeinfo.txt - ' file which must be adjusted each time we change to a new major version. - - const CFN = "global::tools::includes::optional::t_ole.inc::hGetOfficeVersion(): " - const DATAFILE = "global/input/officeinfo.txt" - const MAX_LINES_IN_DATAFILE = 20 - dim cPath as string - dim aItemList( MAX_LINES_IN_DATAFILE ) as string - - ' Path to info file - cPath = convertpath( gTesttoolPath & DATAFILE ) - if ( GVERBOSE ) then printlog( CFN & "Reading: " & cPath ) - - ' Read the file, store the list of known office versions - hGetDatafileSection( cPath, aItemList(), "", "", "" ) - - ' Search for the version number matching the product name, store value in global variable - gOfficeVersion = hGetValueForKeyAsString( aItemList(), gProductName ) - - ' Return content of the global variable as well - hGetOfficeVersion() = gOfficeVersion - -end function - -'******************************************************************************* +***** function hGetOleObjectName( cApplication as string ) as string diff --git a/testautomation/global/tools/includes/optional/t_security_tools.inc b/testautomation/global/tools/includes/optional/t_security_tools.inc index a0b4f800489b..33b0ff550453 100644 --- a/testautomation/global/tools/includes/optional/t_security_tools.inc +++ b/testautomation/global/tools/includes/optional/t_security_tools.inc @@ -1,120 +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 : gregor.hartmann@oracle.com -'* -'* short description : Tools to ease testing of security related funtionality -'* -'\****************************************************************************** - -function hSetPasswordRecommendation( bEnable as boolean ) as boolean - - '///<h3>Toggle Tools/Options/OOo/Security: Password recommendation</h3> - '///<u>Input</u>: - '///<ol> - '///+<li>Mode (boolean)</li> - '///<ul> - '///+<li>TRUE: Switch password recommendation on</li> - '///+<li>FALSE: Switch password recommendation off</li> - '///</ul> - '///</ol> - - '///<u>Returns</u>: - '///<ol> - '///+<li>Prior state (boolean)</li> - '///<ul> - '///+<li>TRUE: Password recommendation was on</li> - '///+<li>FALSE: Password recommendation was off</li> - '///</ul> - '///</ol> - - '///<u>Description</u>: - '///<ul> - - const CFN = "hSetPasswordRecommendation::" - - '///+<li>Open Tools/Options</li> - ToolsOptions - - kontext "OptionenDlg" - if ( OptionenDlg.exists( 2 ) ) then - - '///+<li>Go to the security page</li> - hToolsOptions( "STAROFFICE" , "SECURITY" ) - - '///+<li>Click on the "Options..." button</li> - kontext "TabSecurity" - if ( hClickButton( Options ) ) then - - kontext "TabSecurityOptionsAndWarnings" - if ( TabSecurityOptionsAndWarnings.exists( 1 ) ) then - - '///+<li>Retrieve the current setting for passwor recommendation</li> - if ( RecommendPasswordProtectionOnSaving.isChecked() ) then - hSetPasswordRecommendation() = true - else - hSetPasswordRecommendation() = false - endif - - '///+<li>Set the requested state</li> - if ( bEnable ) then - printlog( CFN & "Enabled password recommendation" ) - RecommendPasswordProtectionOnSaving.check() - else - printlog( CFN & "Disabled password recommendation" ) - RecommendPasswordProtectionOnSaving.uncheck() - endif - - hCloseDialog( TabSecurityOptionsAndWarnings, "ok" ) - - else - warnlog( "Failed to open security options page" ) - hSetPasswordRecommendation() = false - endif - - else - warnlog( CFN & "Unable to click options button" ) - hSetPasswordRecommendation() = false - endif - - '///+<li>Close Tools/Options</li> - Kontext "ToolsOptionsDlg" - hCloseDialog( ToolsOptionsDlg, "ok" ) - - else - warnlog( "Failed to open Tools/Options" ) - endif - '///</ul> - -end function - -'****************************************************************************** +**** function hOpenDigitalSignaturesDialog() as boolean diff --git a/testautomation/global/tools/includes/optional/t_set_standard_controls.inc b/testautomation/global/tools/includes/optional/t_set_standard_controls.inc index 0671e7a2296b..35b444354578 100644 --- a/testautomation/global/tools/includes/optional/t_set_standard_controls.inc +++ b/testautomation/global/tools/includes/optional/t_set_standard_controls.inc @@ -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 : helge.delfs@oracle.com -'* -'* short description : Tool library for setting controls and verifying the functionality -'* -'************************************************************************************************** +************************ '* ' #0 fSetListBoxByItem 'Function to select item in list box ' #0 fSetListBoxByString 'Function to select item by string in list box diff --git a/testautomation/global/tools/includes/optional/t_stringtools.inc b/testautomation/global/tools/includes/optional/t_stringtools.inc index 0d2218f2f44d..fc1759f13745 100644 --- a/testautomation/global/tools/includes/optional/t_stringtools.inc +++ b/testautomation/global/tools/includes/optional/t_stringtools.inc @@ -1,49 +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 : gregor.hartmann@oracle.com -'* -'* short description : Functions for manipulation of strings -'* -'\****************************************************************************** - -function hRemoveLineBreaks( cString as string ) as string - - dim myString as string : myString = cString - myString = hStringReplaceChar( myString, CHR$(09), " " ) - myString = hStringReplaceChar( myString, CHR$(13), " " ) - myString = hStringReplaceChar( myString, CHR$(10), "" ) - hRemoveLineBreaks() = myString - -end function - -'******************************************************************************* +***** function hCompareSubStrings( cRef as string, cSub as string ) as integer diff --git a/testautomation/global/tools/includes/optional/t_toolbar_tools1.inc b/testautomation/global/tools/includes/optional/t_toolbar_tools1.inc index 640e197296cf..f4c4a618e6d4 100644 --- a/testautomation/global/tools/includes/optional/t_toolbar_tools1.inc +++ b/testautomation/global/tools/includes/optional/t_toolbar_tools1.inc @@ -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 : helge.delfs@oracle.com -'* -'* short description : Toolbar tools 1 -'* -'*************************************************************************************** +************* '* ' #1 fActiveObjectInToolbar ' active/inactive image button in toolbar '* diff --git a/testautomation/global/tools/includes/optional/t_toolbar_writer.inc b/testautomation/global/tools/includes/optional/t_toolbar_writer.inc index 7ff25cf8420e..236f803fb952 100644 --- a/testautomation/global/tools/includes/optional/t_toolbar_writer.inc +++ b/testautomation/global/tools/includes/optional/t_toolbar_writer.inc @@ -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 : helge.delfs@oracle.com -'* -'* short description : Toolbar tools - Writer -'* -'*************************************************************************************** +************* '* ' #0 fGetObjectWriter ' #0 fGetObjectCalc diff --git a/testautomation/global/tools/includes/optional/t_treelist_tools.inc b/testautomation/global/tools/includes/optional/t_treelist_tools.inc index e47e87cca578..30da0fad166e 100644 --- a/testautomation/global/tools/includes/optional/t_treelist_tools.inc +++ b/testautomation/global/tools/includes/optional/t_treelist_tools.inc @@ -1,96 +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 : gregor.hartmann@oracle.com -'* -'* short description : Helpers for accessing treelists -'* -'\****************************************************************************** - -function hGetNodeCount( oControl as object ) as integer - - '///<h3>Retrieve the number of visible (open) nodes from a treelist</h3> - '///<u>Input</u>: - '///<ol> - '///+<li>Treelist control object (Object)</li> - '///<ul> - '///+<li>Object must exist in current context</li> - '///</ul> - '///</ol> - '///<u>Returns</u>: - '///<ol> - '///+<li>Number of items in treelist</li> - '///<ul> - '///+<li>0 on any error</li> - '///+<li>> 0 Number of items</li> - '///</ul> - '///</ol> - '///<u>Description</u>: - '///<ul> - - - const CFN = "hGetNodeCount::" - const RETVAL_FAILURE = 0 - dim iCount as integer - - '///+<li>Verify that the control exists</li> - if ( oControl.exists( 5 ) ) then - - '///+<li>Verify that the control is enabled</li> - if ( oControl.isEnabled() ) then - - if ( GVERBOSE ) then printlog( CFN & "Regular access, control available and enabled" ) - - '///+<li>get the number of items from the control</li> - iCount = oControl.getItemCount() - else - printlog( CFN & "Failure: Control claims to be disabled." ) - iCount = RETVAL_FAILURE - endif - else - try - printlog( CFN & "Forcing access to non existing control" ) - iCount = oControl.getItemCount() - catch - printlog( CFN & "Failure: Control not available." ) - iCount = RETVAL_FAILURE - endcatch - endif - - if ( GVERBOSE ) then printlog( CFN & "Exit with nodecount = " & iCount ) - - hGetNodeCount = iCount - '///</ul> - -end function - -'******************************************************************************* +***** function hSelectTopNode( oControl as object ) as boolean diff --git a/testautomation/global/tools/includes/optional/t_ui_filters.inc b/testautomation/global/tools/includes/optional/t_ui_filters.inc index 356691a74574..e40d6c68fff2 100644 --- a/testautomation/global/tools/includes/optional/t_ui_filters.inc +++ b/testautomation/global/tools/includes/optional/t_ui_filters.inc @@ -1,47 +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 : gregor.hartmann@oracle.com -'* -'* short description : Get the UI names for default filters -'* -'\****************************************************************************** - -global gWriterFilter as String -global gCalcFilter as String -global gImpressFilter as String -global gMasterDocFilter as String -global gMathFilter as String -global gDrawFilter as String -global gHTMLFilter as String -'******************************************************************************* +***** sub GetDefaultFilterNames() diff --git a/testautomation/global/tools/includes/optional/t_xml1.inc b/testautomation/global/tools/includes/optional/t_xml1.inc index 3d7d2b8ead94..39ec86e61114 100644 --- a/testautomation/global/tools/includes/optional/t_xml1.inc +++ b/testautomation/global/tools/includes/optional/t_xml1.inc @@ -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 : helge.delfs@oracle.com -'* -'* short description : simple XML-Parser for XML-Files from Registration-Database and Routines to work with SAX-Parser in Testtool -'* -'*********************************************************************************** +********* ' #1 hXMLGotoElement ' #1 hXMLGetFirstCharsForElement ' #1 ExtractSections diff --git a/testautomation/global/tools/includes/required/t_doc1.inc b/testautomation/global/tools/includes/required/t_doc1.inc index 1fb0a0a171ad..68bf5055fbd5 100755 --- a/testautomation/global/tools/includes/required/t_doc1.inc +++ b/testautomation/global/tools/includes/required/t_doc1.inc @@ -1,389 +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 : thorsten.bosbach@oracle.com -'* -'* short description : Global Routines for Document Handling -'* -'\************************************************************************************* - -sub hNewDocument ( optional bANewDoc ) - '/// hNewDocument : open a new document dependent on 'gApplication' ///' - dim sTemp as string - - if IsMissing ( bANewDoc ) <> TRUE then - if bANewDoc = TRUE then - gNoNewDoc = FALSE - else - gNoNewDoc = TRUE - end if - end if - - select case gApplication - case "WRITER" - Kontext "DocumentWriter" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/swriter", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/swriter", "FrameName", "_default", "SynchronMode", TRUE - end if - if ( DocumentWriter.IsMax() = false ) then - DocumentWriter.Maximize() - Wait( 2000 ) - end if - case "CALC" - Kontext "DocumentCalc" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/scalc", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/scalc", "FrameName", "_default", "SynchronMode", TRUE - end if - if ( DocumentCalc.IsMax() = false ) then - DocumentCalc.Maximize() - Wait( 2000 ) - end if - case "IMPRESS" - Kontext "DocumentImpress" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/simpress", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/simpress", "FrameName", "_default", "SynchronMode", TRUE - Kontext "AutoPilotPraesentation1" - if AutoPilotPraesentation1.Exists (2) then - Printlog "------------------------------The Impress-Autopilot was active------------------" - Startwithwizard.Check ' opposite of the checkboxs' title - AutoPilotPraesentation1.OK - Sleep 2 - Kontext "SeitenLayout" - SeitenLayout.Cancel - end if - Kontext "DocumentImpress" - Sleep 2 - if ( DocumentImpress.IsMax() = false ) then - DocumentImpress.Maximize() - Wait( 2000 ) - end if - end if - case "DRAW" - Kontext "DocumentDraw" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/sdraw", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/sdraw", "FrameName", "_default", "SynchronMode", TRUE - end if - if ( DocumentDraw.IsMax() = false ) then - DocumentDraw.Maximize() - Wait( 2000 ) - end if - case "MASTERDOCUMENT" - Kontext "DocumentMasterDoc" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/swriter/GlobalDocument", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/swriter/GlobalDocument", "FrameName", "_default", "SynchronMode", TRUE - end if - Kontext "Navigator" - sleep (1) - if Navigator.Exists(5) then Navigator.Close - Kontext "DocumentMasterDoc" - if ( DocumentMasterDoc.IsMax() = false ) then - DocumentMasterDoc.Maximize() - Wait( 2000 ) - end if - case "MATH" - Kontext "DocumentMath" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/smath", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/smath", "FrameName", "_default", "SynchronMode", TRUE - end if - Kontext "DocumentMath" - if ( DocumentMath.IsMax() = false ) then - DocumentMath.Maximize() - Wait( 2000 ) - end if - case "HTML" - Kontext "DocumentWriterWeb" - if gNoNewDoc = TRUE then - FileOpen "FileName", "private:factory/swriter/web", "SynchronMode", TRUE - else - FileOpen "FileName", "private:factory/swriter/web", "FrameName", "_default", "SynchronMode", TRUE - end if - Kontext "DocumentWriterWeb" - if ( DocumentWriterWeb.IsMax() = false ) then - DocumentWriterWeb.Maximize() - Wait( 2000 ) - end if - case "DATABASE" - FileOpen "FileName", "private:factory/sdatabase?Interactive", "FrameName", "_default", "SynchronMode", TRUE - Kontext "DatabaseWizard" - if DatabaseWizard.exists(5) then - FinishBtn.click - kontext "SpeichernDlg" - if SpeichernDlg.exists(5) then - if (Dateiname.getSelText = "") then - sTemp = convertPath(gOfficePath + "user/work/hNewDocument.odb") - if fileExists(sTemp) then - app.kill(sTemp) - endif - qaErrorlog "## lost default filename" - Dateiname.setText "hNewDocument" - endif - Speichern.click - Kontext "DATABASE" - else - warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 2" - endif - else - warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 1" - endif - case "BASIC" - ToolsMacroMacro - kontext "makro" - if makro.exists(5) then - MakroAus.typeKeys "<home>" - sTemp = "" - while (NOT bearbeiten.isEnabled) AND (sTemp <> MakroAus.getSelText) - sTemp = MakroAus.getSelText - MakroAus.typeKeys "<down>+" - wend - if (bearbeiten.isEnabled) then - bearbeiten.click - else - qaErrorlog "Can't edit document." - endif - else - warnlog "Can't open Basic IDE." - endif - case else : WarnLog "hNewDocument: No Applikation named '" + gApplication + "' exists in this routine!" - end select - Sleep 2 - -end sub -' -'------------------------------------------------------------------------------- -' -function hCreateLabels() as Boolean - - hCreateLabels() = false - - FileOpen( "FileName", "private:factory/swriter?slot=21051", "FrameName", "_default", "SynchronMode", TRUE ) - - Kontext - if ( Active.exists( 5 ) ) then - Active.setPage TabEtiketten - - if ( TabEtiketten.exists( 1 ) ) then - if ( Tabetiketten.isVisible() ) then - hCreateLabels() = true - else - warnlog( "<TabEtiketten> is not visible" ) - endif - else - warnlog( "<TabEtiketten> not open" ) - endif - else - warnlog( "Failed to open <TabEtiketten>" ) - endif - -end function -' -'------------------------------------------------------------------------------- -' -function hCreateBusinessCards() as Boolean - - hCreateBusinessCards() = false - - FileOpen( "FileName", "private:factory/swriter?slot=21052", "FrameName", "_default", "SynchronMode", TRUE ) - - Kontext - if ( Active.exists( 5 ) ) then - Active.setPage TabEtikettenMedium - - if ( TabEtikettenMedium.exists( 1 ) ) then - if ( TabetikettenMedium.isVisible() ) then - hCreateBusinessCards() = true - else - warnlog( "<TabEtikettenMedium> is not visible" ) - endif - else - warnlog( "<TabEtikettenMedium> not open" ) - endif - else - warnlog( "Failed to open <TabEtikettenMedium>" ) - endif - -end function -' -'------------------------------------------------------------------------------- -' -function hCloseDocument() - - hUseAsyncSlot( "FileClose") - - Kontext "Active" - if ( Active.Exists( 2 ) ) then - try - Active.No - catch - Active.click( 202 ) - endcatch - end if - - WaitSlot( 2000 ) - -end function -' -'------------------------------------------------------------------------------- -' -sub gMouseClick ( X%, Y%, optional _mousebutton ) - - dim oDocument as object - dim mousebutton as integer - - ' Handle infamous optional parameter - if ( IsMissing( _mousebutton ) ) then - mousebutton = 1 - else - mousebutton = _mousebutton - endif - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - - autoexecute = false - oDocument.MouseDown ( X%, Y%, mousebutton ) - oDocument.MouseUp ( X%, Y%, mousebutton ) - autoexecute = true - wait( 1000 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub gMouseDoubleClick ( X%, Y% ) - - dim oDocument as object - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - oDocument.MouseDoubleClick ( X%, Y% ) - wait( 1000 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub gMouseMove ( BeginX%, BeginY%, EndX%, EndY% ) - - dim oDocument as object - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - oDocument.MouseDown ( BeginX%, BeginY% ) - oDocument.MouseMove ( EndX%, EndY%) - oDocument.MouseUp ( EndX%, EndY% ) - wait( 1000 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub gMouseDown ( BeginX%, BeginY% ) - - dim oDocument as object - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - oDocument.MouseDown ( BeginX%, BeginY% ) - wait( 300 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub gMouseMove2 ( EndX%, EndY% ) - - dim oDocument as object - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - oDocument.MouseMove ( EndX%, EndY%) - wait( 300 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub gMouseUp ( EndX%, EndY% ) - - dim oDocument as object - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' get the current document object - oDocument.MouseUp ( EndX%, EndY% ) - wait( 300 ) - -end sub -' -'------------------------------------------------------------------------------- -' -sub hTypeKeys ( OutputText , optional _iLoop as Integer ) - - const CFN = "global::tools::includes::required::t_doc1.inc::hTypeKeys(): " - - dim iRepeat as integer - dim iLoop as integer - dim oDocument as object - - ' Handle infamous optional parameter - If ( IsMissing( _iLoop ) ) then - iLoop = 1 - else - iLoop = _iLoop - endif - - hSetDocumentContext() ' set kontext to current document type - oDocument = hSetDocumentObject() ' Get the document object we want to write to - - try - for iRepeat = 1 to iLoop - oDocument.TypeKeys( OutputText ) - wait( 200 ) - next iRepeat - catch - warnlog( CFN & "Failed to send keystroke to given context" ) - endcatch - -end sub - -'******************************************************************************* +***** function hSetDocumentContext() as string diff --git a/testautomation/global/tools/includes/required/t_files.inc b/testautomation/global/tools/includes/required/t_files.inc index fc64450c422c..1b484ec22a81 100644 --- a/testautomation/global/tools/includes/required/t_files.inc +++ b/testautomation/global/tools/includes/required/t_files.inc @@ -1,45 +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 : thorsten.bosbach@oracle.com -'* -'* short description : Global routines for loading, saving, printing, export -'* -'\****************************************************************************** -function hGrafikEinfuegen( cFile as string ) as Boolean - - hGrafikEinfuegen() = hInsertGraphic( cFile, "Static" ) - -end function - -'******************************************************************************* +***** function hGrafikVerknuepftEinfuegen( cFile as string ) as Boolean diff --git a/testautomation/global/tools/includes/required/t_filters.inc b/testautomation/global/tools/includes/required/t_filters.inc index ce63d43a9b35..4d77e8451f03 100644 --- a/testautomation/global/tools/includes/required/t_filters.inc +++ b/testautomation/global/tools/includes/required/t_filters.inc @@ -1,55 +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 : gregor.hartmann@oracle.com -'* -'* short description : Retrieve and set filternames and suffixes -'* -'\****************************************************************************** - -private const LENGTH_OF_FILTERFILE = 100 -private const FILE_DATA_SIZE = 300 - -function hCheckForBinfilters() as boolean - try - hGetSuffix( "569" ) - hCheckForBinfilters() = true - catch - warnlog( "Optional legacy filters package is not installed" ) - printlog( "Please restart the setup to install the missing filters" ) - hCheckForBinfilters() = false - endcatch - -end function - -'******************************************************************************* +***** function hGetSuffix( optional cBuildId as string ) as string diff --git a/testautomation/global/tools/includes/required/t_lists.inc b/testautomation/global/tools/includes/required/t_lists.inc index ad940324d4c4..bcee807216ae 100644 --- a/testautomation/global/tools/includes/required/t_lists.inc +++ b/testautomation/global/tools/includes/required/t_lists.inc @@ -1,452 +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 : helge.delfs@oracle.com -'* -'* short description : general routines to work with lists (arrays) -'* -'\****************************************************************** - -function ListCount ( lsList() as String ) as Integer - 'Author: tz - '///Returns the number of list entries. - '///+<u>Input</u>: The list (only string lists are possible) - '///+<u>Return</u>: The number of entries - ListCount = Val(lsList(0)) -end function - -'------------------------------------------------------------------------- - -function ListCopy ( lsList1() as String, lsList2() as String ) as Boolean - 'Author: tz - '///Copies all entries out of one list into another list. - '///+<u>Input</u>:<ol><lo>list which should be copied</li><li>An empty list</li></ol>After this function the 2nd list is a copy of the 1st list. - '///+<u>Return</u>: If copy of the list is correct this function returns TRUE otherweise FALSE - - Dim ii as Integer - - ListAllDelete ( lsList2() ) - for ii=1 to ListCount ( lsList1() ) - ListAppend ( lsList2(), lsList1(ii) ) - next ii - - if ListCount ( lsList1() ) = ListCount ( lsList2 () ) then - ListCopy = TRUE - else - ListCopy = FALSE - end if -end function - -'------------------------------------------------------------------------- - -sub ListAllDelete ( lsList() as String ) - 'Author: tz - '///Deletes a complete list. - '///+<u>Input</u>: The list (only string lists are possible) - lsList(0) = "0" -end sub - -'------------------------------------------------------------------------- - -sub ListAppend ( lsList() as String, sNewEntry as String ) - 'Author: tz - '///Appends a new entry at the end of the list. - '///+<u>Input</u>: <ol><li>the list (only string lists are possible)</li><li>The new entry</li></ol> - lsList(0) = Val(lsList(0)) + 1 - lsList( lsList(0) ) = sNewEntry -end sub - -'------------------------------------------------------------------------- - -function ListDelete ( lsList() as String, iNr as Integer ) as Boolean - 'Author: tz - '///Deletes an entry out of the list on a defined position (iNr). - '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The position of the entry</li></ol> - '///+<u>Return</u>: TRUE if the entry was deleted otherweise FALSE - - - Dim i%, ListenAnzahl as Integer - - ListenAnzahl = listcount( lsList() ) - - if iNr > ListenAnzahl then - ListDelete = FALSE - Exit Function - end if - - for i% = iNr to ListenAnzahl - lsList( i% ) = lsList( i% + 1 ) - next i% - - lsList(0) = ListenAnzahl - 1 - - ListDelete = TRUE -end function - -'------------------------------------------------------------------------- - -function ListDeleteString ( lsList() as String, sText as String ) as Boolean - 'Author: tz - '///Deletes the 1st string in the list which is equal to the input string. - '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The string</li></ol> - '///+<u>Return</u>: TRUE if the entry was deleted otherwise FALSE - Dim i as Integer : Dim EintragsNr as Integer : Dim ListenAnzahl as Integer - - ListenAnzahl = Val(lsList(0)) - EintragsNr = 0 - for i = 1 to ListenAnzahl - if lsList(i) = sText then - EintragsNr = i - i = ListenAnzahl + 1 - end if - next i - if EintragsNr = 0 then - ListDeleteString = FALSE - else - ListDeleteString = ListDelete ( lsList(), EintragsNr ) - end if -end function - -'------------------------------------------------------------------------- - -function ListInsert ( lsList() as String, ZeileNr%, sWert$ ) as Boolean - 'Author: tz - '///Inserts a string at a defined position in the list. - '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The position</li><li>The string</li></ol> - '///+<u>Return</u>: TRUE if the entry was inserted otherwise FALSE - Dim i% : Dim ListenAnzahl as Integer - - ListenAnzahl = Val(lsList(0)) - if ZeileNr% > ListenAnzahl then - ListInsert = FALSE - Exit Function - end if - - ' Nach hinten verschieben, hinten beginnend - for i% = ListenAnzahl to ZeileNr% step -1 - lsList( i%+1 ) = lsList( i% ) - next i% - - ' Einfuegen - lsList( ZeileNr% ) = sWert$ - lsFile(0) = ListenAnzahl + 1 - ListInsert = TRUE - -end function - -'------------------------------------------------------------------------- - -function ListRead ( lsList() as String, Datei$, optional sEncode as String ) as Boolean - 'Author: tz - '///+Opens a file and insert all rows into a list (row for row). - '///+<u>Input</u>: <ol><li>The list (old list entries will be deleted)</li><li>The file</li><li><b>optional</b>: The encoding "UTF8"</li></ol> - '///+<u>Return</u>: TRUE or FALSE if this routine can read the file. - Dim bUTF8 as Boolean - Dim i% - Dim CompareList(15000) as String - - if Dir( Datei$ ) = "" then - Warnlog "ListRead: " + Datei$ + " is missing!" - ListRead = FALSE - exit function - end if - - if IsMissing ( sEncode ) = TRUE then - bUTF8 = FALSE - else - if UCASE ( sEncode ) = "UFT8" OR UCASE ( sEncode ) = "UTF8" then - bUTF8 = TRUE - else - Warnlog "ListRead :" + sEncode + " - Encoding is unkown!" - bUTF8 = FALSE - end if - end if - - ListAllDelete ( lsList() ) ' clean up the list - - if bUTF8 = TRUE then - Dim textin as object, sfa as object, xInput as object ' for UTF-8-input-routines - Dim iC as Integer - - textin = createUnoService( "com.sun.star.io.TextInputStream" ) ' uno-handling to input an UFT-8-File - textin.setEncoding("utf8") ' - sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" ) ' - xInput = sfa.openFileRead( Datei$ ) ' - textin.setInputStream( xInput ) ' - - do until textin.isEOF() ' - i% = Val(lsList(0)) + 1 - lsList(0) = i% - lsList( i% ) = textin.readLine() ' - loop - xInput.closeInput ' uno-file-close - - 'INFO: (TZ) Only to workaround a problem with UNIX-Files... - if Right ( lsList(i%), 1 ) = Chr(10) then - lsList(i%) = Left ( lsList(i%), Len ( lsList(i%) ) - 1 ) - end if - 'INFO: (TBO) Remove the BOM http://www.unicode.org/versions/Unicode4.0.0/ch15.pdf - if (left(lsList(1), 1) = chr(&HFEFF)) then - lsList(1) = right(lsList(1), Len(lsList(1)) - 1) - end if - else - Dim FileNum% - - FileNum% = FreeFile - Open Datei$ for input as #FileNum% - - do until EOF(#FileNum%) ' all from LIS-file - i% = Val(lsList(0)) + 1 - lsList(0) = i% - Line Input #FileNum%, lsList( i% ) - loop - Close #FileNum% - end if - ListRead = TRUE -end function - -'------------------------------------------------------------------------- - -function ListWrite ( lsList() as String, Datei$, optional sEncode as String) as Boolean - 'Author: tz - '///+Writes a list into a file (an existing file will be deleted before) - '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding "UTF8"</li></ol> - '///+<u>return</u>: TRUE or FALSE if this routine can read the file. - - Dim bUTF8 as Boolean - Dim i% - - if Dir (Datei$) <> "" then - Kill(Datei$) ' the file must be deleted if you use 'UTF8' - endif - - if IsMissing ( sEncode ) = TRUE then - bUTF8 = FALSE - else - if UCASE ( sEncode ) = "UTF8" then - bUTF8 = TRUE - else - Warnlog "ListWrite :" + sEncode + " - Encoding is unkown!" - bUTF8 = FALSE - end if - end if - - if bUTF8 = TRUE then - Dim textout as object, sfa as object, xOutput as object ' for UTF-8-output-routines - - textout = createUnoService( "com.sun.star.io.TextOutputStream" ) ' uno-handling to output an UFT-8-File - textout.setEncoding("utf8") ' - sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" ) ' - xOutput = sfa.openFileWrite( Datei$ ) ' - textout.setOutputStream( xOutput ) ' - - for i%=1 to ListCount ( lsList() ) - textout.writeString( lsList( i% ) + Chr(13) + Chr(10) ) ' - next i% - xOutput.closeOutput ' uno-file-close - else - Dim FileNum% : Dim iLast% - - FileNum% = FreeFile - Open Datei$ for Output as #FileNum% - iLast% = Val(lsList(0)) - i%=1 - do while i% <= iLast% - Print #FileNum%, lsList(i%) - i% = i% +1 - loop - Close #FileNum% - endif - - ListWrite = TRUE -end function - -'------------------------------------------------------------------------- - -function ListReadAppend( lsList() as String , Datei$, optional sEncode as String ) as Boolean - 'Author: tz - '///+Appends a list into a file (If the file exists the file will be deleted before!). - '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding "UTF8"</li></ol> - '///+<u>return</u>: TRUE or FALSE if this routine can read the file. - - Dim bUTF8 as Boolean - Dim i% - Dim CompareList() as String - Dim isCounter as Integer - Dim FileNum% - - if Dir( Datei$ ) = "" then - Warnlog "ListReadAppend : " + Datei$ + " is missing!" - ListReadAppend = FALSE - exit function - end if - - isCounter = ListCount ( lsList() ) - - if IsMissing ( sEncode ) = TRUE then - bUTF8 = FALSE - else - if UCASE ( sEncode ) = "UFT8" OR UCASE ( sEncode ) = "UTF8" then - bUTF8 = TRUE - else - Warnlog "ListRead : " + sEncode + " - Encoding is unkown!" - bUTF8 = FALSE - end if - end if - - if bUTF8 = TRUE then - Dim textin as object, sfa as object, xInput as object ' for UTF-8-input-routines - - textin = createUnoService( "com.sun.star.io.TextInputStream" ) ' uno-handling to input an UFT-8-File - textin.setEncoding("utf8") ' - sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" ) ' - xInput = sfa.openFileRead( Datei$ ) ' - textin.setInputStream( xInput ) ' - - do until textin.isEOF() ' - i% = Val(lsList(0)) + 1 - lsList(0) = i% - lsList( i% ) = textin.readLine() ' - loop - xInput.closeInput ' uno-file-close - - 'INFO: (TZ) Only to workaround a problem with UNIX-Files... - if Right ( lsList(i%), 1 ) = Chr(10) then - lsList(i%) = Left ( lsList(i%), Len ( lsList(i%) ) - 1 ) - end if - '... - else - FileNum% = FreeFile - Open Datei$ for input as #FileNum% - - do until EOF(FileNum%) ' All from LIST-file - i% = Val(lsList(0)) + 1 - lsList(0) = i% - Line Input #FileNum%, lsList( i% ) - loop - Close #FileNum% - end if - - ListReadAppend = TRUE - -end function - -'------------------------------------------------------------------------- - -function ListWriteAppend( lsList() as String, Datei$, optional sEncode as String ) as Boolean - 'Author: tz - '///+Writes a list into a file (If the files exist all entries will be appended). - '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding "UTF8"</li></ol> - '///+<u>return</u>: TRUE or FALSE if this routine can read the file. - - Dim bUTF8 as Boolean - Dim i% - Dim DummyList ( 15000 ) as String - - if IsMissing ( sEncode ) = TRUE then - bUTF8 = FALSE - else - if UCASE ( sEncode ) = "UTF8" then - bUTF8 = TRUE - else - Warnlog "ListRead :" + sEncode + " - Encoding is unkown!" - bUTF8 = FALSE - end if - end if - - if bUTF8 = TRUE then - Dim sfa as object, xOutput as object, textout as object ' for UTF-8-output-routines - - ListRead ( DummyList(), Datei$, "utf8" ) ' read old file in another list - for i% = 1 to ListCount ( lsList() ) - ListAppend ( DummyList(), lsList(i%) ) ' add the new list at the old list - next i% - - textout = createUnoService( "com.sun.star.io.TextOutputStream" ) ' uno-handling to output an UFT-8-File - textout.setEncoding("utf8") ' - sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" ) ' - xOutput = sfa.openFileWrite( Datei$ ) ' - textout.setOutputStream( xOutput ) ' - - for i%=1 to ListCount (DummyList()) - textout.writeString( DummyList( i% ) + Chr(13) + Chr(10 ) ' - next i% - xOutput.closeOutput ' uno-file-close - else - Dim FileNum% - - FileNum% = FreeFile - Open Datei$ for Append as #FileNum% - - for i% = 1 to Val(lsList(0)) - Print #FileNum%, lsList(i%) - next i% - - Close #FileNum% - end if - ListWriteAppend = TRUE - -end function - -'------------------------------------------------------------------------- - -sub ListSort ( lsList() as String, optional UpDown as Boolean ) - 'Author: tz - '///+Sorts a list upward per default or downward if optional parameter is FALSE with quicksort method. - '///+<u>Input</u>: Unsorted list - - Dim Listenanzahl as Integer, i as Integer, j as Integer - Dim Zwischenspeicher as String - - ListenAnzahl = Val(lsList(0)) - for i=ListenAnzahl-1 to 1 step -1 - for j=1 to i - if UpDown = FALSE then - ' upward sorting - if uCase ( lsList(j) ) < uCase ( lsList(j+1) ) then - Zwischenspeicher = lsList (j) ' invert value (i) with value (i+1) - lsList (j) = lsList(j+1) - lsList (j+1) = Zwischenspeicher - end if - else - ' Downward sorting - if uCase ( lsList(j) ) > uCase ( lsList(j+1) ) then - Zwischenspeicher = lsList (j) ' invert value (i) with value (i+1) - lsList (j) = lsList(j+1) - lsList (j+1) = Zwischenspeicher - end if - end if - next j - next i -end sub - -'******************************************************************************* +***** function gCompare2Lists( aListOne() as String, aListTwo() as String ) as boolean diff --git a/testautomation/global/tools/includes/required/t_menu.inc b/testautomation/global/tools/includes/required/t_menu.inc index a97ef2057a0a..121dd5b2562d 100644 --- a/testautomation/global/tools/includes/required/t_menu.inc +++ b/testautomation/global/tools/includes/required/t_menu.inc @@ -1,58 +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 : thorsten.bosbach@oracle.com -'* -'* short description : wrappers for accessing menues (context-, bar-, button- menues) -'* -'\****************************************************************************** - -function hMenuItemGetCount as Integer - - '/// OUTPUT: number of entries in the activated menu (without seperators) ///' - '///+ menu left open ///' - dim iCurrentMenuItem as integer - dim iValidMenuItems as integer - sleep( 2 ) - - iValidMenuItems = 0 - for iCurrentMenuItem = 1 to MenuGetItemCount - if ( NOT MenuIsSeperator ( iCurrentMenuItem ) ) then - iValidMenuItems = iValidMenuItems + 1 - endif - next iCurrentMenuItem - hMenuItemGetCount = iValidMenuItems - -end function - -'******************************************************************************* +***** function hMenuSelectNr ( EintragsNr as Integer ) as String diff --git a/testautomation/global/tools/includes/required/t_option2.inc b/testautomation/global/tools/includes/required/t_option2.inc index 5a4a5459264f..846da461b8bd 100644 --- a/testautomation/global/tools/includes/required/t_option2.inc +++ b/testautomation/global/tools/includes/required/t_option2.inc @@ -1,295 +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 : thorsten.bosbach@oracle.com -'* -'* short description : Tools library for options testcases -'* -'\*********************************************************************** - -function OptionTabPageZaehler ( SollAnzahl as Integer, optional Ausnahme as Boolean ) - 'parameter Ausnahme is depracted - Dim IstAnzahl - Kontext "ExtrasOptionenDlg" - IstAnzahl = Optionsliste.GetItemCount - iSectionNumber - if Ausnahme = FALSE then - if IstAnzahl <> SollAnzahl then WarnLog "Number of tabpages old : " + SollAnzahl + " new : " + IstAnzahl - end if - OptionTabPageZaehler = IstAnzahl -end function - -'------------------------------------------------------------------------- - -sub ToPosInOptionlist ( Sprung as Integer ) - Dim i as Integer - Kontext "OptionenDlg" - Optionsliste.TypeKeys "<HOME>" - for i = 1 to 12 - Optionsliste.TypeKeys "-<DOWN>" - next i - Optionsliste.Select Sprung - Optionsliste.TypeKeys "+" -end sub - -'------------------------------------------------------------------------- - -sub DialogeFuerTypenKontrollieren - ' Complete test for path-options, for all entries the file-dialog or the path-dialog will be opened - Dim i as Integer - Dim iCount as Integer - Dim iErrorCount as integer - dim iExitCounter as integer : iExitCounter = 0 - Kontext "TabPfade" - Typ.TypeKeys "<Down><Down><Home>" - iCount = 0 - iErrorCount = 0 - for i=1 to Typ.GetItemCount - if i<>1 then Typ.TypeKeys "<Down>" - printlog " "+typ.getText - if ( bAsianLan <> TRUE ) then - try - Bearbeiten.Click - - do while( iExitCounter <= 10 ) - - kontext "Active" - if ( active.exists() ) then - iErrorCount = iErrorCount + 1 - if (iErrorCount > 1) then - Warnlog active.getText - endif - qaErrorlog "#i69014# gallery path doesn't exist: '" + active.getText + "'" - printlog active.getText - active.ok - endif - - Kontext "OeffnenDlg" - if OeffnenDlg.Exists() then - if ( Dateityp.IsVisible ) then - Warnlog "The normal FileOpen-Dialog is visible with the Filetype-Listbox => BUG!" - endif - OeffnenDlg.Cancel - exit do - endif - - Kontext "PfadeAuswaehlen" - if ( PfadeAuswaehlen.exists() ) then - PfadeAuswaehlen.Cancel - exit do - endif - - iExitCounter = iExitCounter + 1 - loop - Kontext "TabPfade" - catch - Warnlog "Error on entry " & i & "!" - Exceptlog - endcatch - else - try - if ( Bearbeiten.IsEnabled ) then - Bearbeiten.Click - - do while( iExitCounter <= 10 ) - - kontext "Active" - if active.exists () then - iErrorCount = iErrorCount + 1 - if (iErrorCount > 1) then - Warnlog active.getText - endif - qaErrorlog "WorkAround for #109107# has to come up only once @'Add-Ins'! else BUG!" - active.ok - endif - - Kontext "OeffnenDlg" - if OeffnenDlg.Exists() then - if ( Dateityp.IsVisible ) then - Warnlog "The normal FileOpen-Dialog is visible with the Filetype-Listbox => BUG!" - endif - OeffnenDlg.Cancel - exit do - endif - - Kontext "PfadeAuswaehlen" - if ( PfadeAuswaehlen.exists() ) then - PfadeAuswaehlen.Cancel - exit do - end if - - iExitCounter = iExitCounter + 1 - loop - Kontext "TabPfade" - else - iCount = iCount + 1 - end if - catch - Warnlog "Error on entry " & i & "!" - Exceptlog - endcatch - end if - next i - if iCount > 3 then Warnlog "There are more than 3 entries are disabled!" - -end sub - -'------------------------------------------------------------------------- - -function hSetMacroSecurity( iLevel as integer ) as integer - - '///<h3>Set macro security level via GUI</h3> - '///<i>Set the macro security by accessing the Tools/Options-> - '///+ OpenOffice.org/Security::Macro... Tabpage</i><br><br> - - '///<u>Parameter(s):</u><br> - '///<ol> - - '///+<li>Desired macro security level (Integer). Following symbolic names are defined:</li> - '///<ul> - '///+<li>GC_MACRO_SECURITY_LEVEL_LOW (0) for low security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_MEDIUM (1) for medium security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_HIGH (2) for high security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_VERYHIGH (3) for very high security</li> - '///</ul> - - '///</ol> - - - '///<u>Returns:</u><br> - '///<ol> - '///+<li>Previous security level (Integer)</li> - '///<ul> - '///+<li>GC_MACRO_SECURITY_LEVEL_LOW (0) for low security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_MEDIUM (1) for medium security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_HIGH (2) for high security</li> - '///+<li>GC_MACRO_SECURITY_LEVEL_VERYHIGH (3) for very high security</li> - '///+<li>-1 on error</li> - '///</ul> - '///</ol> - - - - '///Switch between macro security levels in Tools/Options - '///<ul> - const CFN = "hSetMacroSecurity::" - const RETVAL_FAILURE = -1 - const DEFAULT_WAIT_TIME = 2 - - dim iOldSecurityLevel as integer - - dim caLevel( 3 ) as string - caLevel( 0 ) = "low" - caLevel( 1 ) = "medium" - caLevel( 2 ) = "high" - caLevel( 3 ) = "very high" - - if ( ( iLevel < GC_MACRO_SECURITY_LEVEL_LOW ) or ( iLevel > GC_MACRO_SECURITY_LEVEL_VERYHIGH ) ) then - warnlog( CFN & "Invalid index (0...3) passed to function: " & ilevel ) - hSetMacroSecurity() = RETVAL_FAILURE - exit function - end if - - '///+<li>Open Tools/Options -> OpenOffice.org/Security</li> - ToolsOptions - hToolsOptions( "Staroffice" , "Security" ) - - '///+<li>Click on the macro security button</li> - Kontext "TabSecurity" - if ( MacroSecurity.exists( DEFAULT_WAIT_TIME ) ) then - MacroSecurity.click() - - '///+<li>Ensure we are on the Security Level page</li> - kontext "Active" - if ( Active.exists( DEFAULT_WAIT_TIME ) ) then - - Kontext - active.setpage TabSecurityLevel - - '///+<li>Get the current setting (=returnvalue)</li> - Kontext "TabSecurityLevel" - if ( TabSecurityLevel.exists( 2 ) ) then - if ( veryhigh.isChecked() ) then - iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_VERYHIGH - elseif( high.isChecked() ) then - iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_HIGH - elseif( medium.isChecked() ) then - iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM - elseif( low.isChecked() ) then - iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_LOW - end if - else - printlog( CFN & "Security Tabpage not available. Aborting." ) - kontext "OptionenDlg" - if ( OptionenDlg.exists( DEFAULT_WAIT_TIME ) ) then - OptionenDlg.cancel() - else - warnlog( CFN & "Unrecoverable error, status unknown." ) - endif - hSetMacroSecurity() = RETVAL_FAILURE - exit function - endif - - '///+<li>Set the new security level</li> - select case iLevel - case GC_MACRO_SECURITY_LEVEL_LOW : low.check() - case GC_MACRO_SECURITY_LEVEL_MEDIUM : medium.check() - case GC_MACRO_SECURITY_LEVEL_HIGH : high.check() - case GC_MACRO_SECURITY_LEVEL_VERYHIGH : veryhigh.check() - end select - - printlog( CFN & "Setting macro security level to " & caLevel( iLevel ) ) - - else - printlog( CFN & "Macro Security Dialog did not open. Aborting." ) - kontext "OptionenDlg" - if ( OptionenDlg.exists( DEFAULT_WAIT_TIME ) ) then - OptionenDlg.cancel() - else - warnlog( CFN & "Unrecoverable error, status unknown." ) - endif - hSetMacroSecurity() = RETVAL_FAILURE - exit function - endif - - '///+<li>Close Tools/Options</li> - TabSecurityLevel.ok() - else - warnlog( CFN & "The Macro Security Button is not available" ) - iOldSecurityLevel = RETVAL_FAILURE - end if - Kontext "OptionenDLG" - OptionenDLG.OK() - '///</ul> - hSetMacroSecurity() = iOldSecurityLevel -end function - -'******************************************************************************* +***** function hGetMacroSecurityAPI() as integer diff --git a/testautomation/global/tools/includes/required/t_tools1.inc b/testautomation/global/tools/includes/required/t_tools1.inc index 7339b3381cf0..f0e2c418da6d 100644 --- a/testautomation/global/tools/includes/required/t_tools1.inc +++ b/testautomation/global/tools/includes/required/t_tools1.inc @@ -1,84 +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 : gregor.hartmann@oracle.com -'* -'* short description : Tools (1) -'* -'\****************************************************************************** - -private SLEEP_TIME_REQUESTED as integer -private SLEEP_CALLS_SUM as integer -private SLEEP_TIME_USED as integer - -function GetClipboardText as string - - '/// Returns the correct clipboard text (also if there is a 'RETURN' at it's end. - Dim i% : Dim CBText$ - Dim Zwischen$ - - wait 500 - GetClipboardText = "" - CBText$ = GetClipboard - - if CBText$ = "" then - GetClipboardText = "" - exit function - end if - - if asc ( Right( CBText$, 1 )) = 10 then - Zwischen$ = Mid( CBText$, 1, len(CBText$)-1 ) - if Zwischen$ <> "" then - if asc ( Right( Zwischen$, 1 )) = 13 then - GetClipboardText = Mid( Zwischen$, 1, len(Zwischen$)-1 ) - else - GetClipboardText = Zwischen$ - end if - else - GetClipboardText = Zwischen$ - end if - else - if asc ( Right( CBText$, 1 )) = 13 then - Zwischen$ = Mid( CBText$, 1, len(CBText$)-1 ) - if asc ( Right( Zwischen$, 1 )) = 10 then - GetClipboardText = Mid( Zwischen$, 1, len(Zwischen$)-1 ) - else - GetClipboardText = Zwischen$ - end if - else - GetClipboardText = CBText$ - end if - end if - -end function -'******************************************************************************* +***** function hDoubleClickInList ( window, Selektion as String, optional bFocus as boolean ) as Boolean diff --git a/testautomation/global/tools/includes/required/t_tools3.inc b/testautomation/global/tools/includes/required/t_tools3.inc index 5b40c74a1a38..51150482a2dc 100644 --- a/testautomation/global/tools/includes/required/t_tools3.inc +++ b/testautomation/global/tools/includes/required/t_tools3.inc @@ -1,923 +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 : helge.delfs@oracle.com -'* -'* short description : Global Tools III -'* -'\****************************************************************************** - -sub hToolbarSelect( sType as string, sOpen as boolean, optional SetToDefault as boolean ) - Dim sDefault as integer, sKontext as string, sPosition as integer - Dim SteppedThrough as boolean - '/// Created by helge.delfs@oracle.com - '/// This function opens/closes a toolbar through View/Toolbar menu - '/// Required parameters: - '/// sType as string -> Name of the toolbar to be opened / closed - '/// sOpen as boolean -> Shall the toolbar be opened (true) or closed (false) - '/// optional SetToDefault as boolean -> true if Toolbar-State should be set to default - - Select Case Ucase(sType) - case "3DSETTING" - Kontext "ExtrusionObjectBar" - if ExtrusionObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsThreeDSettings - else - if SetToDefault = True then ViewToolbarsThreeDSettings - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsThreeDSettings - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsThreeDSettings - endif - endif - endif - - - case "ALIGN" - Kontext "Alignmentbar" - if Alignmentbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsAlign - else - if SetToDefault = True then ViewToolbarsAlign - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsAlign - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsAlign - endif - endif - endif - - Case "BULLETSANDNUMBERING" - Kontext "NumObjectbar" - if NumObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsBulletsAndNumbering - else - if SetToDefault = True then ViewToolbarsBulletsAndNumbering - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsBulletsAndNumbering - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsBulletsAndNumbering - endif - endif - endif - - case "COLOR" - Kontext "ColorBar" - if ColorBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsColor - else - if SetToDefault = True then ViewToolbarsColor - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsColor - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsColor - endif - endif - endif - - case "CUSTOMIZE" - ViewToolbarsCustomize - - case "DRAWING" - Kontext "DrawBar" - if DrawBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsDrawing - else - if SetToDefault = True then ViewToolbarsDrawing - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsDrawing - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsDrawing - endif - endif - endif - - case "FORMATTING" - Kontext "TextObjectbar" - if TextObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormatting - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormatting - else - if SetToDefault = True then ViewToolbarsFormatting - endif - endif - endif - - case "FORMCONTROLS" - Kontext "FormControls" - if FormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - else - if SetToDefault = True then ViewToolbarsFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - endif - endif - endif - case "CONTROLS" - Kontext "FormControls" - if FormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - else - if SetToDefault = True then ViewToolbarsFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - endif - endif - endif - - case "FORMDESIGNTOOLS", "FORMDESIGN" - Kontext "FormDesignTools" - if FormDesignTools.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormDesign - else - if SetToDefault = True then ViewToolbarsFormDesign - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormDesign - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormDesign - endif - endif - endif - - case "HTMLSOURCEVIEW" - Kontext "SourceViewToolbar" - if SourceViewToolbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsHTMLSourceView - else - if SetToDefault = True then ViewToolbarsHTMLSourceView - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsHTMLSourceView - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsHTMLSourceView - endif - endif - endif - - case "FORMFILTER" - Kontext "FormsFilterBar" - if FormsFilterBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormFilter - else - if SetToDefault = True then ViewToolbarsFormFilter - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormFilter - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormFilter - endif - endif - endif - - case "FORMNAVIGATION" - Kontext "FormsNavigationBar" - if FormsNavigationBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormNavigation - else - if SetToDefault = True then ViewToolbarsFormNavigation - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormNavigation - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormNavigation - endif - endif - endif - - case "FORMOBJECT" - Kontext "FormsObjectbar" - if FormsObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormObject - else - if SetToDefault = True then ViewToolbarsFormObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormObject - endif - endif - endif - - case "FRAME" - Kontext "FrameObjectbar" - if FrameObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFrame - else - if SetToDefault = True then ViewToolbarsFrame - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFrame - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFrame - endif - endif - endif - - case "FULLSCREEN" - Kontext "FullScreenBar" - if FullScreenBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFullScreen - else - if SetToDefault = True then ViewToolbarsFullScreen - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFullScreen - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFullScreen - endif - endif - endif - - case "GRAPHIC", "DRAWINGOBJECTPROPERTIES" - Kontext "DrawingObjectbar" - if DrawingObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsGraphic - else - if SetToDefault = True then ViewToolbarsGraphic - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsGraphic - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsGraphic - endif - endif - endif - - case "HYPERLINK", "HYPERLINKBAR" - Kontext "Hyperlinkleiste" - if Hyperlinkleiste.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertHyperlink - else - if SetToDefault = True then ViewToolbarsInsertHyperlink - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertHyperlink - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertHyperlink - endif - endif - endif - - - case "INSERT" - Kontext "InsertBar" - if InsertBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsert - else - if SetToDefault = True then ViewToolbarsInsert - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsert - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsert - endif - endif - endif - - case "INSERTOBJECT" - Kontext "InsertObjectBar" - if InsertObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertObject - else - if SetToDefault = True then ViewToolbarsInsertObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertObject - endif - endif - endif - - case "MEDIAPLAYBACK" - Kontext "MediaObjectBar" - if MediaObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMediaPlayback - else - if SetToDefault = True then ViewToolbarsMediaPlayback - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMediaPlayback - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMediaPlayback - endif - endif - endif - - case "MORECONTROLS" - Kontext "MoreControls" - if MoreControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMoreControls - else - if SetToDefault = True then ViewToolbarsMoreControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMoreControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMoreControls - endif - endif - endif - - case "MOREXFORMCONTROLS" - Kontext "MoreXFormControls" - if MoreXFormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMoreXFormControls - else - if SetToDefault = True then ViewToolbarsMoreXFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMoreXFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMoreXFormControls - endif - endif - endif - - case "OLEOBJECT" - Kontext "OLEObjectbar" - if OLEObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsOleObject - else - if SetToDefault = True then ViewToolbarsOleObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsOleObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsOleObject - endif - endif - endif - - case "OPTIMIZETABLE" - Kontext "OptimizeTablebar" - if OptimizeTablebar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsOptimizeTable - else - if SetToDefault = True then ViewToolbarsOptimizeTable - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsOptimizeTable - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsOptimizeTable - endif - endif - endif - - case "PAGEPREVIEW" - Kontext "PreviewObjectbar" - if PreviewObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPagePreview - else - if SetToDefault = True then ViewToolbarsPagePreview - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPagePreview - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPagePreview - endif - endif - endif - - case "PATH" - Kontext "BezierObjectBar" - if BezierObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsBezier - else - if SetToDefault = True then ViewToolbarsBezier - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsBezier - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsBezier - endif - endif - endif - - case "PICTURE" - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPicture - else - if SetToDefault = True then ViewToolbarsPicture - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPicture - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPicture - endif - endif - endif - - case "PICTUREFILTER" - Kontext "GraphicFilterBar" - if GraphicFilterBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPictureFilter - else - if SetToDefault = True then ViewToolbarsPictureFilter - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPictureFilter - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPictureFilter - endif - endif - endif - - case "STANDARD" - Kontext "StandardBar" - if StandardBar.Exists then - if StandardBar.IsVisible then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsStandard - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandard - else - if SetToDefault = True then ViewToolbarsStandard - endif - endif - endif - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandard - else - if SetToDefault = True then ViewToolbarsStandard - endif - endif - endif - - case "STANDARDVIEWINGMODE" - Kontext "Viewerbar" - if Viewerbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsStandardView - else - if SetToDefault = True then ViewToolbarsStandardView - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsStandardView - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandardView - endif - endif - endif - - case "TABLE" - Kontext "TableObjectbar" - if TableObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTable - else - if SetToDefault = True then ViewToolbarsTable - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTable - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTable - endif - endif - endif - - case "TEXTOBJECT" - Kontext "DrawTextObjectBar" - if DrawTextObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTextObject - else - if SetToDefault = True then ViewToolbarsTextObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTextObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTextObject - endif - endif - endif - - case "TOOLS" - Kontext "Toolbar" - if Toolbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTools - else - if SetToDefault = True then ViewToolbarsTools - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTools - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTools - endif - endif - endif - - - case "MATH" - Kontext "OL_SW_Rechenleiste" - if OL_SW_Rechenleiste.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertFormula - else - if SetToDefault = True then ViewToolbarsInsertFormula - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertFormula - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertFormula - endif - endif - endif - - case else - Warnlog "No menuentry for parameter " & sType & " found!" - - end select - Sleep 1 - -end sub - -sub hCloseAllToolbars - '/// Created by thorsten.bosbach@oracle.com - '/// This function closes all known toolbars which are not docked - '/// only if Build ID is below 8892 - if (gBuild < 8892) AND (gBuild > 8888) then - try - Kontext "ExtrusionObjectBar" - if ExtrusionObjectBar.Exists(0) then if NOT ExtrusionObjectBar.isDocked then ExtrusionObjectBar.close - Kontext "Alignmentbar" - if Alignmentbar.Exists(0) then if NOT Alignmentbar.isDocked then Alignmentbar.close - Kontext "NumObjectbar" - if NumObjectbar.Exists(0) then if NOT NumObjectbar.isDocked then NumObjectbar.close - Kontext "DrawBar" - if DrawBar.Exists(0) then if NOT DrawBar.isDocked then DrawBar.close - Kontext "TextObjectbar" - if TextObjectbar.Exists(0) then if NOT TextObjectbar.isDocked then TextObjectbar.close - Kontext "FormControls" - if FormControls.Exists(0) then if NOT FormControls.isDocked then FormControls.close - Kontext "FormControls" - if FormControls.Exists(0) then if NOT FormControls.isDocked then FormControls.close - Kontext "FormDesignTools" - if FormDesignTools.Exists(0) then if NOT FormDesignTools.isDocked then FormDesignTools.close - Kontext "SourceViewToolbar" - if SourceViewToolbar.Exists(0) then if NOT SourceViewToolbar.isDocked then SourceViewToolbar.close - Kontext "FormsFilterBar" - if FormsFilterBar.Exists(0) then if NOT FormsFilterBar.isDocked then FormsFilterBar.close - Kontext "FormsNavigationBar" - if FormsNavigationBar.Exists(0) then if NOT FormsNavigationBar.isDocked then FormsNavigationBar.close - Kontext "FormsObjectbar" - if FormsObjectbar.Exists(0) then if NOT FormsObjectbar.isDocked then FormsObjectbar.close - Kontext "FrameObjectbar" - if FrameObjectbar.Exists(0) then if NOT FrameObjectbar.isDocked then FrameObjectbar.close - Kontext "FullScreenBar" - if FullScreenBar.Exists(0) then if NOT FullScreenBar.isDocked then FullScreenBar.close - Kontext "DrawingObjectbar" - if DrawingObjectbar.Exists(0) then if NOT DrawingObjectbar.isDocked then DrawingObjectbar.close - Kontext "Hyperlinkleiste" - if Hyperlinkleiste.Exists(0) then if NOT Hyperlinkleiste.isDocked then Hyperlinkleiste.close - Kontext "InsertBar" - if InsertBar.Exists(0) then if NOT InsertBar.isDocked then InsertBar.close - Kontext "InsertObjectBar" - if InsertObjectBar.Exists(0) then if NOT InsertObjectBar.isDocked then InsertObjectBar.close - Kontext "MediaObjectBar" - if MediaObjectBar.Exists(0) then if NOT MediaObjectBar.isDocked then MediaObjectBar.close - Kontext "MoreControls" - if MoreControls.Exists(0) then if NOT MoreControls.isDocked then MoreControls.close - Kontext "OLEObjectbar" - if OLEObjectbar.Exists(0) then if NOT OLEObjectbar.isDocked then OLEObjectbar.close - Kontext "OptimizeTablebar" - if OptimizeTablebar.Exists(0) then if NOT OptimizeTablebar.isDocked then OptimizeTablebar.close - Kontext "PreviewObjectbar" - if PreviewObjectbar.Exists(0) then if NOT PreviewObjectbar.isDocked then PreviewObjectbar.close - Kontext "BezierObjectBar" - if BezierObjectBar.Exists(0) then if NOT BezierObjectBar.isDocked then BezierObjectBar.close - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists(0) then if NOT GraphicObjectbar.isDocked then GraphicObjectbar.close - Kontext "GraphicFilterBar" - if GraphicFilterBar.Exists(0) then if NOT GraphicFilterBar.isDocked then GraphicFilterBar.close - Kontext "StandardBar" - if StandardBar.Exists(0) then if NOT StandardBar.isDocked then StandardBar.close - Kontext "Viewerbar" - if Viewerbar.Exists(0) then if NOT Viewerbar.isDocked then Viewerbar.close - Kontext "TableObjectbar" - if TableObjectbar.Exists(0) then if NOT TableObjectbar.isDocked then TableObjectbar.close - Kontext "DrawTextObjectBar" - if DrawTextObjectBar.Exists(0) then if NOT DrawTextObjectBar.isDocked then DrawTextObjectBar.close - Kontext "Toolbar" - if Toolbar.Exists(0) then if NOT Toolbar.isDocked then Toolbar.close - Kontext "OL_SW_Rechenleiste" - if OL_SW_Rechenleiste.Exists(0) then if NOT OL_SW_Rechenleiste.isDocked then OL_SW_Rechenleiste.close - catch - printlog "tools3.inc::hCloseAllToolbars Can't close some toolbar" - endcatch - endif -end sub - -'******************************************************************************* +***** function hIsAccessbridgeInstalled() as boolean '/// created by HDE diff --git a/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc b/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc index 8f152bfbfc98..253a3e7c5331 100644 --- a/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc +++ b/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc @@ -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 : oliver.craemer@oracle.com -'* -'* short description : Check correct print scaling settings -'* -'************************************************************************************************* +*********************** '* ' #1 subPrintScaling ' #1 tPrintScaling diff --git a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc index 6be4cf859f31..ca0e0e9e3a12 100644 --- a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc @@ -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 : oliver.craemer@oracle.com -'* -'* short description : tools for working with cells in calc -'* -'************************************************************************************************** +************************ '* ' #1 fCalcGetCellValue 'Returns the value of a given cell ' #1 fCalcCompareCellValue 'Compares the value of a given cell with a given result diff --git a/testautomation/spreadsheet/tools/includes/c_select_tools.inc b/testautomation/spreadsheet/tools/includes/c_select_tools.inc index 8fe70334e5c5..3ddef403df45 100644 --- a/testautomation/spreadsheet/tools/includes/c_select_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_select_tools.inc @@ -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 : oliver.craemer@oracle.com -'* -'* short description : selecting objects in calc -'* -'************************************************************************************************** +************************ '* ' #1 fCalcSelectRange ' #1 fCalcNameRange |