diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_navigator.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_navigator.inc | 309 |
1 files changed, 0 insertions, 309 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_navigator.inc b/testautomation/graphics/optional/includes/global/g_navigator.inc deleted file mode 100644 index 4b9ef8948ab8..000000000000 --- a/testautomation/graphics/optional/includes/global/g_navigator.inc +++ /dev/null @@ -1,309 +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 : -'* -'************************************************************************************** -' #1 tdViewNavigator -' #1 tViewNavigatorZOrder -' #1 tViewNavigatorNameActivated -' #1 tViewNavigatorGroupedObjects -'\************************************************************************************* - -testcase tdViewNavigator - dim position1 as integer - dim zaehler as integer - dim Ueber_Text_1 as string - dim Ueber_Text_2 as string - dim Ueber_Text_3 as string - dim Ueber_Text_4 as string - dim Ueber_Text_5 as string - dim Ueber_Text_6 as string - - Call hNewDocument - - For Zaehler = 1 to 3 - Select Case Zaehler - Case 1: Position1 = 20 - Case 2: Position1 = 30 - Case 3: Position1 = 40 - - ContextPositionAndSize - kontext - active.SetPage TabPositionAndSize - kontext "TabPositionAndSize" - Select Case Zaehler - Case 1: Ueber_Text_4 = PositionX.GetText - Case 2: Ueber_Text_5 = PositionX.GetText - Case 3: Ueber_Text_6 = PositionX.GetText - End Select - printlog " CHECK: Xposition i: "+Zaehler+": "+PositionX.GetText - TabPositionAndSize.OK - Select Case Zaehler - Case 1,2: InsertSlide - WaitSlot (2000) - hTypekeys "<Pagedown>" - WaitSlot (2000) - End Select - Next Zaehler - - WaitSlot (1000) - Kontext "NavigatorDraw" - if NavigatorDraw.exists (5) then printlog "OK" - Ueber_Text_2 = "OK First" - Ueber_Text_3 = "First doesnt work" - Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) - WaitSlot (1000) - Kontext "NavigatorDraw" - Ueber_Text_2 = "OK Next" - Ueber_Text_3 = "Next doesnt work" - Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) - Kontext "NavigatorDraw" - WaitSlot (1000) - Ueber_Text_2 = "OK Last" - Ueber_Text_3 = "Last doesnt work" - Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) - WaitSlot (1000) - Kontext "NavigatorDraw" - Vorherige.Click - Ueber_Text_1 = Ueber_Text_5 - Ueber_Text_2 = "OK Before this" - Ueber_Text_3 = "Before this doesnt work" - Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) - - WaitSlot (1000) - Kontext "NavigatorDraw" - try - Kontext "Navigator" - catch - hTypeKeys "<SHIFT MOD1 F5>" - Warnlog "- Unable to reach the Navigator, tried to use the keyboard Shortcut (MOD1 F5) to close it." - endcatch - - Kontext "Navigator" - if Navigator.exists then - Navigator.Close - Warnlog "Navigator: should be closed at this point, but was not." - else - printlog "Navigator: Not available - Good." - end if - - WaitSlot (1000) - Call hCloseDocument -endcase 'tdViewNavigator - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tViewNavigatorZOrder - qaerrorlog "Not yet ready." - goto endsub - - dim zPosition(4) - dim Counter as integer - dim MaxCounter as integer - dim PositionName as string - dim CheckingValue as string - - Call hNewDocument - - zPosition(1) = "10" - zPosition(2) = "15" - zPosition(3) = "20" - zPosition(4) = "25" - - For Counter = 1 to 4 - Call hRechteckErstellen ((zPosition(Counter)), (zPosition(Counter)), 60, 60) - WaitSlot (1000) - printlog "Name the Objects according to their Z-Order. (" +Counter + ")" - hOpenContextMenu - WaitSlot (1000) - 'Choose rename. - if hMenuFindSelect(27027, true, 16) = false then - Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." - Call hCloseDocument - Goto Endsub - end if - kontext "NameDlgObject" - NameField.SetText "Object" + Counter - NameDlgObject.OK - hTypeKeys "<ESCAPE>" - Next Counter - - printlog "check" - - Kontext "NavigatorDraw" - if (gApplication = "IMPRESS") then - try - warnlog "- the Navigator was open, check earlier ran tests for inconsistency." - hTypeKeys "<SHIFT MOD1 F5>" - catch - hTypeKeys "<SHIFT MOD1 F5>" - endcatch - else - Kontext "NavigatorDraw" - try - Warnlog "- the Navigator was open, check earlier ran tests for inconsistency." - hTypeKeys "<F5>" - catch - hTypeKeys "<F5>" - endcatch - end if - - ' * Check if the Navigator contains the 'Show Shapes' drop down menu. - - kontext "NavigatorDraw" - Dragmodus.OpenMenu - - MaxCounter = MenuGetItemCount - if MaxCounter <> 0 then - For Counter = 1 to MaxCounter - printlog "Entry (Dragmode): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found." - Next Counter - end if - - hMenuSelectNr (0) - - - Shapesfilter.OpenMenu - MaxCounter = MenuGetItemCount - For Counter = 1 to MaxCounter - printlog "Entry (Shapesfilter): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found." - Next Counter - hMenuSelectNr (0) - - Printlog " " - - 'Dokumentliste.Click - - kontext "NavigatorDraw" - - 'Main part of the Navigator: the list with it's contents. - - Liste.TypeKeys "<PAGEDOWN>" - CheckingValue = Liste.GetSelText - printlog CheckingValue - - Liste.TypeKeys "<RIGHT>" - Liste.TypeKeys "<DOWN>" - CheckingValue = Liste.GetSelText - printlog CheckingValue - Liste.TypeKeys "<DOWN>" - CheckingValue = Liste.GetSelText - printlog CheckingValue - Liste.TypeKeys "<DOWN>" - CheckingValue = Liste.GetSelText - printlog CheckingValue - Liste.TypeKeys "<DOWN>" - CheckingValue = Liste.GetSelText - printlog CheckingValue - printlog "ok?" - - - '*NavigatorDraw HID_SD_NAVIGATOR - 'NavigatorToolboxDraw HID_SD_NAVIGATOR_TBX - 'Stift HID_SD_NAVIGATOR_TBI_PEN - 'Erste HID_SD_NAVIGATOR_TBI_FIRST - 'Vorherige HID_SD_NAVIGATOR_TBI_PREV - 'Naechste HID_SD_NAVIGATOR_TBI_NEXT - 'Letzte HID_SD_NAVIGATOR_TBI_LAST - - 'Context-menu framställbar? - 'Dragmodus HID_SD_NAVIGATOR_TBI_DRAGTYPE - - 'Liste HID_SD_NAVIGATOR_TLB - - 'Den undre scroll-delen. - 'Dokumentliste HID_SD_NAVIGATOR_LB - - ' * the drop down menu must contain the entries 'Named shapes' and 'All Shapes' - - Kontext "Navigator" - try - Navigator.Close - catch - printlog "Nope" - endcatch - - ' * check if 'Named shapes' is selected by default - - ' * insert 5 shapes in the Document. the shapes should overlap slightly. - ' * there must be no entry in the navigator - ' * name 1 shape (context menu of the shape / name...) - ' * there must appear 1 entry 'under' the corresponding slide in the navigator - ' * Select All shapes in the Show shapes drop down menu - ' * there must be 5 shapes in the navigator - ' * change the order of the shapes in the navigator - ' * the z-order of the shapes must stay - ' * delete 1 shape from the slide - ' * the automatic generated names of the shapes must change and no shape name must be duplicate. The changed shape name must stay - - ' * select 2 shapes and group them - ' * an entry with a small plus in front must appear in the navigator - ' * click on the plus - ' * there must be an additional tree with the 2 shapes of the group - - Call hCloseDocument -endcase 'tViewNavigatorZOrder - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tViewNavigatorNameActivated - qaerrorlog "Not yet ready." - goto endsub - dim zPosition1 as integer - dim zPosition2 as integer - dim zPosition3 as integer - dim zPosition4 as integer - dim counter as integer - - Call hNewDocument - - Call hRechteckErstellen ( Position1, Position1, 60, 60) - -endcase 'tViewNavigatorNameActivated - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tViewNavigatorGroupedObjects - qaerrorlog "Not yet ready." - goto endsub - dim zPosition1 as integer - dim zPosition2 as integer - dim zPosition3 as integer - dim zPosition4 as integer - dim counter as integer - - Call hNewDocument - - Call hRechteckErstellen ( Position1, Position1, 60, 60) - - -endcase 'tViewNavigatorGroupedObjects - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |