diff options
Diffstat (limited to 'testautomation/global/tools/includes/required/t_option.inc')
-rw-r--r-- | testautomation/global/tools/includes/required/t_option.inc | 556 |
1 files changed, 0 insertions, 556 deletions
diff --git a/testautomation/global/tools/includes/required/t_option.inc b/testautomation/global/tools/includes/required/t_option.inc deleted file mode 100644 index 4f4467263072..000000000000 --- a/testautomation/global/tools/includes/required/t_option.inc +++ /dev/null @@ -1,556 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/****************************************************************************** -'* -'* owner : thorsten.bosbach@oracle.com -'* -'* short description : General option test (sub-routines for options tests) -'* -'\****************************************************************************** - -function hToolsOptions ( Applicationname as string, Tabpagename as string, OPTIONAL bSilent as Boolean ) as Boolean - - const CFN = "global::tools::includes::required::t_option.inc:" - - Dim bCorPage as Boolean - Dim bFirst as Boolean - - Dim InitialNodeCount as Integer ' All nodes collapsed - Dim CurrentNodeCount as Integer ' Number of nodes when a top node is expanded - Dim iCurrentPage as Integer ' Increment variable for stepping through the nodes - Dim startpos as integer - - Applicationname = ucase( Applicationname ) - Tabpagename = ucase( Tabpagename ) - - '///<i>hToolsOptions</i>: Routine to select the correct option page - '///+<u>input</u>: The groupname as string, name of optionpage as string - '///+<u>note</u>: The options dialog has to be opened - '///+<u>OPTIONAL</u>: TRUE as an additional parameter if you want a printlog instead of a warning if a page has not been found. - - if IsMissing(bSilent) then - bSilent = FALSE - end if - - Kontext "Active" - try - if Active.Exists(1) then Active.OK - catch - if Active.Exists(1) then Active.No - endcatch - '///Group names list: - '///+<ul><li>"StarOffice"</li> - '///+<li>"LoadSave"</li> - '///+<li>"LanguageSettings"</li> - '///+<li>"Internet"</li> - '///+<li>"Textdocument"</li> - '///+<li>"HTMLDocument"</li> - '///+<li>"Spreadsheet"</li> - '///+<li>"Presentation"</li> - '///+<li>"Drawing"</li> - '///+<li>"Formula"</li> - '///+<li>"Chart"</li> - '///+<li>"Datasource"</li></ul> - Kontext "ExtrasOptionenDlg" - - if ExtrasOptionenDlg.Exists then - Optionsliste.TypeKeys "<HOME>" - for iCurrentPage = 1 to 12+1 - Optionsliste.TypeKeys "-<DOWN>" - next iCurrentPage - 'Optionsliste.TypeKeys "<HOME>" - InitialNodeCount = Optionsliste.GetItemCount - select case Applicationname - case "STAROFFICE" : startpos = 1 - case "LOADSAVE" : startpos = 2 - case "LANGUAGESETTINGS" : startpos = 3 - case "WRITER" : startpos = 4 - case "MASTERDOCUMENT" : startpos = 4 - case "HTML" : startpos = 5 - case "CALC" : startpos = 4 - case "IMPRESS" : startpos = 4 - case "DRAW" : startpos = 4 - case "MATH" : startpos = 4 - case "DATASOURCES" : startpos = InitialNodeCount -2 - case "CHART" : startpos = InitialNodeCount -1 - case "INTERNET" : startpos = InitialNodeCount ' always the last one - case else - warnlog( CFN & "Invalid Application name specified: " & Applicationname ) - printlog( "Valid options are:" ) - printlog( "gApplications: WRITER, CALC, MASTERDOCUMENT, DRAW, IMPRESS, HTML, MATH, CHART" ) - printlog( "additionally.: STAROFFICE, LOADSAVE, LANGUAGESETTINGS, DATASOURCES, INTERNET" ) - printlog( "All names must be uppercase" ) - exit function - end select - - Optionsliste.select Startpos - Optionsliste.typekeys "+" - CurrentNodeCount = Optionsliste.GetItemCount - bFirst = TRUE - for iCurrentPage = 1 to CurrentNodeCount - InitialNodeCount - bCorPage = FALSE - Kontext "ExtrasOptionenDlg" - Optionsliste.TypeKeys "<DOWN>" - WaitSlot() ' Some sort of NOOP - select case Applicationname - case "STAROFFICE" - '///Pages in group "StarOffice"are: - '///+<ul><li>"UserData"</li> - '///+<li>"General"</li> - '///+<li>"Memory"</li> - '///+<li>"View"</li> - '///+<li>"Print"</li> - '///+<li>"Paths"</li> - '///+<li>"Colors"</li> - '///+<li>"FontReplacement"</li> - '///+<li>"Security"</li> - '///+<li>"Appearence"</li> - '///+<li>"Accessibility"</li> - '///+<li>"Java"</li></ul> - select case Tabpagename - case "USERDATA" - Kontext "TabBenutzerdaten" - if TabBenutzerdaten.exists then bCorPage = TRUE - case "GENERAL" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabSonstigesAllgemein" - If TabSonstigesAllgemein.exists(2) then bCorPage = TRUE - case "MEMORY" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabMemory" - If TabMemory.exists(2) then bCorPage = TRUE - case "VIEW" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabAnsichtAllgemein" - If TabAnsichtAllgemein.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 5 ) - bFirst = FALSE - Kontext "TabPrintStarOffice" - if TabPrintStarOffice.exists(2) then bCorPage = TRUE - case "PATHS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabPfade" - If TabPfade.exists(2) then bCorPage = TRUE - case "COLORS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 7 ) - bFirst = FALSE - Kontext "TabFarben" - If TabFarben.exists(4) then bCorPage = TRUE - case "FONTREPLACEMENT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 8 ) - bFirst = FALSE - Kontext "TabSchriftErsetzung" - If TabSchriftErsetzung.exists(2) then bCorPage = TRUE - case "SECURITY" - if bFirst = TRUE then Optionsliste.Select ( startpos + 9 ) - bFirst = FALSE - Kontext "TabSecurity" - If TabSecurity.exists(2) then bCorPage = TRUE - case "APPEARANCE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 10 ) - bFirst = FALSE - Kontext "TabAppearance" - If TabAppearance.exists(2) then bCorPage = TRUE - case "ACCESSIBILITY" - if bFirst = TRUE then Optionsliste.Select ( startpos + 11 ) - bFirst = FALSE - Kontext "TabAccessibility" - If TabAccessibility.exists(2) then bCorPage = TRUE - case "JAVA" - if bFirst = TRUE then Optionsliste.Select ( startpos + 12 ) - bFirst = FALSE - Kontext "TabJava" - If TabJava.exists(2) then bCorPage = TRUE - case "ONLINEUPDATE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 13 ) - bFirst = FALSE - Kontext "TabOnlineUpdate" - If TabOnlineUpdate.exists(2) then bCorPage = TRUE - case "IMPROVEMENT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 14 ) - bFirst = FALSE - Kontext "TabOOoImprovement" - If TabOOoImprovement.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "LOADSAVE" - '///Pages in group "LoadSave"are: - '///+<ul><li>"General"</li> - '///+<li>"VBAProperties"</li> - '///+<li>"MicrosoftOffice"</li> - '///+<li>"HTMLCompatibility"</li></ul> - select case Tabpagename - case "GENERAL" - Kontext "TabSpeichern" - if TabSpeichern.exists then bCorPage = TRUE - case "VBAPROPERTIES" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabMicrosoftOffice97" - If WinwordBasicLaden.exists(4) then bCorPage = TRUE - case "MICROSOFTOFFICE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabMicrosoftOffice2" - If Auswahl.exists(4) then bCorPage = TRUE - case "HTMLCOMPATIBILITY" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabHtml" - If TabHtml.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "LANGUAGESETTINGS" - '///Pages in group "LanguageSettings"are: - '///+<ul><li>"Language"</li> - '///+<li>"WritingAids"</li> - '///+<li>"SearchingJapanese"</li> - '///+<li>"AsianLayout"</li></ul> - '///+<li>"Complex Text Layout"</li></ul> - Kontext "Active" - if Active.Exists then Active.OK - Kontext "ExtrasOptionenDlg" - select case Tabpagename - case "LANGUAGES" - Kontext "TabSprachen" - If TabSprachen.exists(2) then bCorPage = TRUE - case "WRITINGAIDS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabLinguistik" - If TabLinguistik.exists(2) then bCorPage = TRUE - case "SEARCHINGINJAPANESE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabJapaneseFind" - if TabJapaneseFind.exists(2) then bCorPage = TRUE - case "ASIANLAYOUT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabAsianLayoutOptions" - if TabAsianLayoutOptions.exists(2) then bCorPage = TRUE - case "COMPLEXTEXTLAYOUT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 5 ) - bFirst = FALSE - Kontext "TabComplexTextLayout" - if TabComplexTextLayout.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "INTERNET" - '///Pages in group "Internet"are: - '///+<ul><li>"Proxy"</li> - '///+<li>"Search"</li></ul> - Kontext "Active" - if Active.Exists then Active.OK - Kontext "ExtrasOptionenDlg" - select case Tabpagename - case "PROXY" - Kontext "TabProxyServer" - if TabProxyServer.exists(2) then bCorPage = TRUE - case "SEARCH" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabSuche" - If TabSuche.exists(2) then bCorPage = TRUE - case "EMAIL" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabEmail" - If TabEmail.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "WRITER" - '///Pages in group "TextDocument"are: - '///+<ul><li>"General"</li> - '///+<li>"View"</li> - '///+<li>"FormattinAids"</li> - '///+<li>"Grid"</li> - '///+<li>"BasicFonts"</li> - '///+<li>"BasicFontsAsian"</li> - '///+<li>"BasicFontsCTL"</li> - '///+<li>"Print"</li> - '///+<li>"Table"</li> - '///+<li>"Changes"</li></ul> - select case Tabpagename - case "GENERAL" - Kontext "TabLaden" - If TabLaden.exists then bCorPage = TRUE - case "VIEW" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabInhalteWriter" - If TabInhalteWriter.exists(2) then bCorPage = TRUE - case "FORMATTINGAIDS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabDirektCursor" - If TabDirektCursor.exists(2) then bCorPage = TRUE - case "GRID" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabRaster" - If TabRaster.exists(2) then bCorPage = TRUE - case "BASICFONTS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 5 ) - bFirst = FALSE - Kontext "TabGrundschriften" - If TabGrundschriften.exists(2) then bCorPage = TRUE - case "BASICFONTSASIAN" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabGrundschriftenASIAN" - If TabGrundschriftenASIAN.exists(2) then bCorPage = TRUE - case "BASICFONTSCTL" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabGrundschriftenCTL" - If TabGrundschriftenCTL.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabDruckenWriter" - If TabDruckenWriter.exists(2) then bCorPage = TRUE - case "TABLE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 7 ) - bFirst = FALSE - Kontext "TabTabelleOptionen" - If TabTabelleOptionen.exists(2) then bCorPage = TRUE - case "CHANGES" - if bFirst = TRUE then Optionsliste.Select ( startpos + 8 ) - bFirst = FALSE - Kontext "TabAenderungenWriter" - If TabAenderungenWriter.exists(2) then bCorPage = TRUE - case "COMPATIBILITY" - if bFirst = TRUE then Optionsliste.Select ( startpos + 9 ) - bFirst = FALSE - Kontext "TabCompatibility" - If TabCompatibility.exists(2) then bCorPage = TRUE - case "AUTOCAPTION" - if bFirst = TRUE then Optionsliste.Select ( startpos + 10 ) - bFirst = FALSE - Kontext "TabAutoCaption" - If TabAutoCaption.exists(2) then bCorPage = TRUE - case "MAILMERGEEMAIL" - if bFirst = TRUE then Optionsliste.Select ( startpos + 11 ) - bFirst = FALSE - Kontext "TabMailMergeEMail" - If TabMailMergeEMail.exists(2) then bCorPage = TRUE - - case else : bCorPage = FALSE - end select - case "HTML" - '///Pages in group "HTMLDocument"are: - '///+<ul><li>"General"</li> - '///+<li>"View"</li> - '///+<li>"Grid"</li> - '///+<li>"Print"</li> - '///+<li>"Table"</li> - '///+<li>"Source"</li> - '///+<li>"Background"</li></ul> - select case Tabpagename - case "VIEW" - Kontext "TabInhalteHTML" - If TabInhalteHTML.exists then bCorPage = TRUE - case "FORMATTINGAIDS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabDirektCursor" - If TabDirektCursor.exists(2) then bCorPage = TRUE - case "GRID" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabRaster" - If TabRaster.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabDruckenHTML" - If TabDruckenHTML.exists(2) then bCorPage = TRUE - case "TABLE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 5 ) - bFirst = FALSE - Kontext "TabTabelleOptionen" - If TabTabelleOptionen.exists(2) then bCorPage = TRUE - case "BACKGROUND" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabHintergrund" - If TabHintergrund.exists then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "CALC" - '///Pages in group "Spreadsheet"are: - '///+<ul><li>"General"</li> - '///+<li>"View"</li> - '///+<li>"Calculate"</li> - '///+<li>"Sortlists"</li> - '///+<li>"Changes"</li> - '///+<li>"Grid"</li> - '///+<li>"Print"</li></ul> - select case Tabpagename - case "GENERAL" - Kontext "TabLayoutCalc" - If TabLayoutCalc.exists(2) then bCorPage = TRUE - case "VIEW" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabInhaltCalc" - If TabInhaltCalc.exists(2) then bCorPage = TRUE - case "CALCULATE" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabBerechnen" - If TabBerechnen.exists(2) then bCorPage = TRUE - case "SORTLISTS" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabSortierlisten" - If TabSortierlisten.exists(2) then bCorPage = TRUE - case "CHANGES" - if bFirst = TRUE then Optionsliste.Select ( startpos + 5 ) - bFirst = FALSE - Kontext "TabAenderungenCalc" - If TabAenderungenCalc.exists(2) then bCorPage = TRUE - case "GRID" - if bFirst = TRUE then Optionsliste.Select ( startpos + 6 ) - bFirst = FALSE - Kontext "TabRaster" - If TabRaster.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 7 ) - bFirst = FALSE - Kontext "TabPrintCalcOptions" - If TabPrintCalcOptions.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "IMPRESS" - '///Pages in group "Presentation"are: - '///+<ul><li>"General"</li> - '///+<li>"View"</li> - '///+<li>"Grid"</li> - '///+<li>"Print"</li></ul> - select case Tabpagename - case "GENERAL" - Kontext "TabSonstigesDraw" - If TabSonstigesDraw.exists then bCorPage = TRUE - case "VIEW" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabInhalteDraw" - If TabInhalteDraw.exists(2) then bCorPage = TRUE - case "GRID" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabRaster" - If TabRaster.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabDruckenDraw" - If TabDruckenDraw.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "DRAW" - '///Pages in group "Drawing"are: - '///+<ul><li>"General"</li> - '///+<li>"View"</li> - '///+<li>"Grid"</li> - '///+<li>"Print"</li></ul> - select case Tabpagename - case "GENERAL" - Kontext "TabSonstigesDraw" - If TabSonstigesDraw.exists then bCorPage = TRUE - case "VIEW" - if bFirst = TRUE then Optionsliste.Select ( startpos + 2 ) - bFirst = FALSE - Kontext "TabInhalteDraw" - If TabInhalteDraw.exists(2) then bCorPage = TRUE - case "GRID" - if bFirst = TRUE then Optionsliste.Select ( startpos + 3 ) - bFirst = FALSE - Kontext "TabRaster" - If TabRaster.exists(2) then bCorPage = TRUE - case "PRINT" - if bFirst = TRUE then Optionsliste.Select ( startpos + 4 ) - bFirst = FALSE - Kontext "TabDruckenDraw" - If TabDruckenDraw.exists(2) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "MATH" - '///Page(s) in group "Formula"are: - '///+<ul><li>"Settings"</li></ul> - select case Tabpagename - case "SETTINGS" - Kontext "TabDruckenMath" - If TabDruckenMath.exists then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "CHART" - '///Pages in group "Chart"are: - '///+<ul><li>"DefaultColors"</li></ul> - select case Tabpagename - case "DEFAULTCOLORS" - Kontext "TabGrundfarben" - If TabGrundfarben.exists(4) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case "DATASOURCES" - '///Pages in group "Datasource"are: - '///+<ul><li>"Connetions"</li></ul> - select case Tabpagename - case "CONNECTIONS" - Kontext "TabConnections" - If TabConnections.exists(4) then bCorPage = TRUE - case "DATABASES" - Kontext "TabRegisteredDatabase" - If TabRegisteredDatabase.exists(4) then bCorPage = TRUE - case else : bCorPage = FALSE - end select - case else - bCorPage = False - end select - If bCorPage = TRUE then Exit for - next iCurrentPage - if ( NOT bCorPage ) then - if ( NOT bSilent ) then - warnlog CFN & Applicationname + " / " + Tabpagename + " could not be found! Please review your test!" - else - printlog CFN & Applicationname + " / " + Tabpagename + " could not be found!" - end if - end if - else - bCorPage = FALSE - warnlog CFN & "Please open the option-dialog with 'ToolsOptions' before you called this routine!" - end if - hToolsOptions = bCorPage -end function - |