diff options
Diffstat (limited to 'testautomation/framework/tools/includes/tabpages.inc')
| -rw-r--r-- | testautomation/framework/tools/includes/tabpages.inc | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/testautomation/framework/tools/includes/tabpages.inc b/testautomation/framework/tools/includes/tabpages.inc deleted file mode 100644 index f22b8bd5a206..000000000000 --- a/testautomation/framework/tools/includes/tabpages.inc +++ /dev/null @@ -1,95 +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 : joerg.skottke@sun.com -'* -'* short description : Tools to access special tabpages -'* -'\****************************************************************************** - -function hDocumentInfoSelectTab( cTabPage as string ) as boolean - - - '///<h3>Switch between the tabpages in the document info dialog</h3> - '///<i>The declaration of the document info dialog is not complete which - '///+ enforces special treatment</i><br><br> - - '///<u>Parameter(s):</u><br> - '///<ol> - - '///+<li>The name of the tabpage to be activated (String)</li> - '///<ul> - '///+<li>"General"</li> - '///+<li>"Description"</li> - '///+<li>"User"</li> - '///+<li>"Internet"</li> - '///+<li>"Statistics"</li> - '///+<li>The string is case insensitive</li> - - '///</ul> - - '///</ol> - - - '///<u>Returns:</u><br> - '///<ol> - '///+<li>Errorcondition (Boolean)</li> - '///<ul> - '///+<li>TRUE if tabpage is known and switching worked</li> - '///+<li>FALSE on icorrect input parameter</li> - '///+<li>FALSE on any other error</li> - '///</ul> - '///</ol> - - const CFN = "hDocumentInfoSelectTab::" - printlog( CFN & "Enter with option (tabpage): " & cTabPage ) - dim brc as boolean 'a multi purpose boolean returnvalue - brc = true - - '///<u>Description:</u> - '///<ul> - '///+<li>Kontext to the dialog</li> - Kontext - - '///+<li>Select the page to switch to, context to the new page</li> - select case ( ucase( cTabPage ) ) - case "GENERAL" : active.setPage TabDokument : kontext "TabDokument" - case "DESCRIPTION" : active.setPage TabBeschreibung : kontext "TabBeschreibung" - case "USER" : warnlog( "#i95523# - Cannot access controls on Custom page" ) - brc = false - 'active.setPage TabBenutzer : kontext "TabBenutzer" - case "INTERNET" : active.setPage TabInternet : kontext "TabInternet" - case "STATISTICS" : active.setPage TabStatistik : kontext "TabStatistik" - case default : brc = false - end select - - '///</ul> - - printlog( CFN & "Exit with result: " & brc ) - hDocumentInfoSelectTab() = brc - -end function |