diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_003.inc')
| -rw-r--r-- | testautomation/graphics/optional/includes/global/id_003.inc | 264 |
1 files changed, 0 insertions, 264 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_003.inc b/testautomation/graphics/optional/includes/global/id_003.inc deleted file mode 100644 index 4ada1beaa..000000000 --- a/testautomation/graphics/optional/includes/global/id_003.inc +++ /dev/null @@ -1,264 +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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\********************************************************************************** - -testcase tiViewNavigator - Call hNewDocument - - Kontext "NavigatorDraw" - if Not NavigatorDraw.Exists Then - ViewNavigator - end if - Kontext "NavigatorDraw" - Call DialogTest ( NavigatorDraw ) - - try - Kontext "Navigator" - Navigator.Close - catch - Errorlog " Navigator wasn't closed, second try with Menu" - ViewNavigator - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewZoom - Call hNewDocument - UseBindings - ViewZoom - Kontext "Massstab" - DialogTest ( Massstab ) - Massstab.Cancel - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewToolbar - Call hNewDocument - - ViewToolbarsThreeDSettings - WaitSlot (1000) - ViewToolbarsThreeDSettings - WaitSlot (1000) - - ViewToolbarsAlign - WaitSlot (1000) - ViewToolbarsAlign - WaitSlot (1000) - - ViewToolbarsTools - WaitSlot (1000) - ViewToolbarsTools - WaitSlot (1000) - - ViewToolbarsBezier - WaitSlot (1000) - ViewToolbarsBezier - WaitSlot (1000) - - ViewToolbarsFontwork - WaitSlot (1000) - ViewToolbarsFontwork - WaitSlot (1000) - - ' if gApplication = "IMPRESS" then - ' ViewToolbarsPresentation ' only in impress, not draw - ' ViewToolbarsPresentation - ' endif - - ViewToolbarsFormControls - WaitSlot (1000) - ViewToolbarsFormControls - WaitSlot (1000) - - '----------------- - ViewToolbarsFormDesign - WaitSlot (1000) - ViewToolbarsFormDesign - WaitSlot (1000) - - ViewToolbarsFormNavigation - WaitSlot (1000) - ViewToolbarsFormNavigation - WaitSlot (1000) - - ViewToolbarsGluepoints - WaitSlot (1000) - ViewToolbarsGluepoints - WaitSlot (1000) - ViewToolbarsInsert - WaitSlot (1000) - ViewToolbarsInsert - WaitSlot (1000) - - ViewToolbarsGraphic - WaitSlot (1000) - ViewToolbarsGraphic - WaitSlot (1000) - - ViewToolbarsMediaPlayback - WaitSlot (1000) - ViewToolbarsMediaPlayback - WaitSlot (1000) - - ViewToolbarsOptionbar - WaitSlot (1000) - ViewToolbarsOptionbar - WaitSlot (1000) - - ViewToolbarsPicture - WaitSlot (1000) - ViewToolbarsPicture - WaitSlot (1000) - - ViewToolbarsStandard - WaitSlot (1000) - ViewToolbarsStandard - WaitSlot (1000) - - ViewToolbarsStandardView - WaitSlot (1000) - ViewToolbarsStandardView - WaitSlot (1000) - - ViewToolbarsHyperlinkbar - WaitSlot (1000) - ViewToolbarsHyperlinkbar - WaitSlot (1000) - - ViewToolbarsColorBar - WaitSlot (1000) - ViewToolbarsColorBar - WaitSlot (1000) - - ViewToolbarsCustomize - WaitSlot (1000) - Kontext - try - Messagebox.SetPage TabCustomizeMenu ' 1 ------------------ - catch - warnlog "couldn't switch to tabpage 'Menus'" - endcatch - Kontext "TabCustomizeMenu" - if TabCustomizeMenu.exists(5) then - Call DialogTest ( TabCustomizeMenu ) - Menu.typeKeys("<down>") - Entries.typeKeys("<down>") - sleep 2 - BtnNew.Click - sleep 1 - Kontext "MenuOrganiser" - Call DialogTest ( MenuOrganiser ) - MenuOrganiser.cancel - sleep 1 - Kontext "TabCustomizeMenu" - TabCustomizeMenu.Close - end if - sleep (1) - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewDisplayQuality - Call hNewDocument - - Call hRechteckErstellen 20,20,40,40 - - try - ViewQualityBlackWhite - Printlog "- Quality set to black and white" - catch - Warnlog "- Slot could not be accessed" - endcatch - WaitSlot (1000) - try - ViewQualityGreyscale - Printlog "- View quality set to greyscale" - catch - Warnlog "- View quality greyscale could not be accessed" - endcatch - WaitSlot (1000) - try - ViewQualityColour - Printlog "- View quality set to colour" - catch - Warnlog "- View quality colour could not be accessed" - endcatch - Call hClosedocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewLayer - Call hNewDocument - - ViewLayer - WaitSlot (1000) - ViewLayer - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tViewGrid - Call hNewDocument - - ViewGridVisible - ViewGridUse - ViewGridFront - ViewGridVisible - ViewGridUse - ViewGridFront - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tViewSnapLines - Call hNewDocument - - ViewSnapLinesVisible - ViewSnapLinesUse - ViewSnapLinesFront - ViewSnapLinesVisible - ViewSnapLinesUse - ViewSnapLinesFront - WaitSlot (1000) - Call hCloseDocument -endcase - |