testautomation/graphics/optional/includes/global/g_navigator.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_navigator.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* Owner : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tdViewNavigator
  40 ' #1 tViewNavigatorZOrder
  41 ' #1 tViewNavigatorNameActivated
  42 ' #1 tViewNavigatorGroupedObjects
  43 '\*************************************************************************************
  44
  45 testcase tdViewNavigator
  46     dim position1 as integer
  47     dim zaehler as integer
  48     dim Ueber_Text_1 as string
  49     dim Ueber_Text_2 as string
  50     dim Ueber_Text_3 as string
  51     dim Ueber_Text_4 as string
  52     dim Ueber_Text_5 as string
  53     dim Ueber_Text_6 as string
  54
  55     Call hNewDocument
  56
  57     For Zaehler = 1 to 3
  58         Select Case Zaehler
  59         Case 1:  Position1 = 20
  60         Case 2:  Position1 = 30
  61         Case 3:  Position1 = 40
  62
  63             ContextPositionAndSize
  64             kontext
  65             active.SetPage TabPositionAndSize
  66             kontext "TabPositionAndSize"
  67             Select Case Zaehler
  68             Case 1:   Ueber_Text_4 = PositionX.GetText
  69             Case 2:   Ueber_Text_5 = PositionX.GetText
  70             Case 3:   Ueber_Text_6 = PositionX.GetText
  71             End Select
  72             printlog "  CHECK: Xposition i: "+Zaehler+": "+PositionX.GetText
  73             TabPositionAndSize.OK
  74             Select Case Zaehler
  75             Case 1,2: InsertSlide
  76                 WaitSlot (2000)
  77                 hTypekeys "<Pagedown>"
  78                 WaitSlot (2000)
  79             End Select
  80         Next Zaehler
  81
  82         WaitSlot (1000)
  83         Kontext "NavigatorDraw"
  84         if NavigatorDraw.exists (5) then printlog "OK"
  85             Ueber_Text_2 = "OK   First"
  86             Ueber_Text_3 = "First doesnt work"
  87             Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
  88             WaitSlot (1000)
  89             Kontext "NavigatorDraw"
  90             Ueber_Text_2 = "OK   Next"
  91             Ueber_Text_3 = "Next doesnt work"
  92             Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
  93             Kontext "NavigatorDraw"
  94             WaitSlot (1000)
  95             Ueber_Text_2 = "OK   Last"
  96             Ueber_Text_3 = "Last doesnt work"
  97             Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
  98             WaitSlot (1000)
  99             Kontext "NavigatorDraw"
 100             Vorherige.Click
 101             Ueber_Text_1 = Ueber_Text_5
 102             Ueber_Text_2 = "OK   Before this"
 103             Ueber_Text_3 = "Before this doesnt work"
 104             Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
 105
 106             WaitSlot (1000)
 107             Kontext "NavigatorDraw"
 108             try
 109                 Kontext "Navigator"
 110             catch
 111                 hTypeKeys "<SHIFT MOD1 F5>"
 112                 Warnlog "- Unable to reach the Navigator, tried to use the keyboard Shortcut (MOD1 F5) to close it."
 113             endcatch
 114
 115             Kontext "Navigator"
 116             if Navigator.exists then
 117                 Navigator.Close
 118                 Warnlog "Navigator: should be closed at this point, but was not."
 119             else
 120                 printlog "Navigator: Not available - Good."
 121             end if
 122
 123             WaitSlot (1000)
 124             Call hCloseDocument
 125 endcase   'tdViewNavigator
 126
 127 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 128
 129 testcase tViewNavigatorZOrder
 130     qaerrorlog "Not yet ready."
 131     goto endsub
 132
 133     dim zPosition(4)
 134     dim Counter as integer
 135     dim MaxCounter as integer
 136     dim PositionName as string
 137     dim CheckingValue as string
 138
 139     Call hNewDocument
 140
 141     zPosition(1) = "10"
 142     zPosition(2) = "15"
 143     zPosition(3) = "20"
 144     zPosition(4) = "25"
 145
 146     For Counter = 1 to 4
 147         Call hRechteckErstellen ((zPosition(Counter)), (zPosition(Counter)), 60, 60)
 148         WaitSlot (1000)
 149         printlog "Name the Objects according to their Z-Order. (" +Counter + ")"
 150         hOpenContextMenu
 151         WaitSlot (1000)
 152         'Choose rename.
 153         if hMenuFindSelect(27027, true, 16) = false then
 154             Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 155             Call hCloseDocument
 156             Goto Endsub
 157         end if
 158         kontext "NameDlgObject"
 159         NameField.SetText "Object" + Counter
 160         NameDlgObject.OK
 161         hTypeKeys "<ESCAPE>"
 162     Next Counter
 163
 164     printlog "check"
 165
 166     Kontext "NavigatorDraw"
 167     if (gApplication = "IMPRESS") then
 168         try
 169             warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
 170             hTypeKeys "<SHIFT MOD1 F5>"
 171         catch
 172             hTypeKeys "<SHIFT MOD1 F5>"
 173         endcatch
 174     else
 175         Kontext "NavigatorDraw"
 176         try
 177             Warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
 178             hTypeKeys "<F5>"
 179         catch
 180             hTypeKeys "<F5>"
 181         endcatch
 182     end if
 183
 184     '    * Check if the Navigator contains the 'Show Shapes' drop down menu.
 185
 186     kontext "NavigatorDraw"
 187     Dragmodus.OpenMenu
 188
 189     MaxCounter = MenuGetItemCount
 190     if MaxCounter <> 0 then
 191         For Counter = 1 to MaxCounter
 192             printlog "Entry (Dragmode): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found."
 193         Next Counter
 194     end if
 195
 196     hMenuSelectNr (0)
 197
 198
 199     Shapesfilter.OpenMenu
 200     MaxCounter = MenuGetItemCount
 201     For Counter = 1 to MaxCounter
 202         printlog "Entry (Shapesfilter): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found."
 203     Next Counter
 204     hMenuSelectNr (0)
 205
 206     Printlog " "
 207
 208     'Dokumentliste.Click
 209
 210     kontext "NavigatorDraw"
 211
 212     'Main part of the Navigator: the list with it's contents.
 213
 214     Liste.TypeKeys "<PAGEDOWN>"
 215     CheckingValue = Liste.GetSelText
 216     printlog CheckingValue
 217
 218     Liste.TypeKeys "<RIGHT>"
 219     Liste.TypeKeys "<DOWN>"
 220     CheckingValue = Liste.GetSelText
 221     printlog CheckingValue
 222     Liste.TypeKeys "<DOWN>"
 223     CheckingValue = Liste.GetSelText
 224     printlog CheckingValue
 225     Liste.TypeKeys "<DOWN>"
 226     CheckingValue = Liste.GetSelText
 227     printlog CheckingValue
 228     Liste.TypeKeys "<DOWN>"
 229     CheckingValue = Liste.GetSelText
 230     printlog CheckingValue
 231     printlog "ok?"
 232
 233
 234     '*NavigatorDraw         HID_SD_NAVIGATOR
 235     'NavigatorToolboxDraw   HID_SD_NAVIGATOR_TBX
 236     'Stift                  HID_SD_NAVIGATOR_TBI_PEN
 237     'Erste                  HID_SD_NAVIGATOR_TBI_FIRST
 238     'Vorherige              HID_SD_NAVIGATOR_TBI_PREV
 239     'Naechste               HID_SD_NAVIGATOR_TBI_NEXT
 240     'Letzte                 HID_SD_NAVIGATOR_TBI_LAST
 241
 242     'Context-menu framställbar?
 243     'Dragmodus              HID_SD_NAVIGATOR_TBI_DRAGTYPE
 244
 245     'Liste                  HID_SD_NAVIGATOR_TLB
 246
 247     'Den undre scroll-delen.
 248     'Dokumentliste          HID_SD_NAVIGATOR_LB
 249
 250     '    * the drop  down menu must contain the entries 'Named shapes' and 'All Shapes'
 251
 252     Kontext "Navigator"
 253     try
 254         Navigator.Close
 255     catch
 256         printlog "Nope"
 257     endcatch
 258
 259     '    * check if 'Named shapes' is selected by default
 260
 261     '    * insert 5 shapes in the Document. the shapes should overlap slightly.
 262     '    * there must be no entry in the navigator
 263     '    * name 1 shape (context menu of the shape / name...)
 264     '    * there must appear 1 entry 'under' the corresponding slide in the navigator
 265     '    * Select All shapes in the Show shapes drop down menu
 266     '    * there must be 5 shapes in the navigator
 267     '    * change the order of the shapes in the navigator
 268     '    * the z-order of the shapes must stay
 269     '    * delete 1 shape from the slide
 270     '    * the automatic generated names of the shapes must change and no shape name must be duplicate. The changed shape name must stay
 271
 272     '    * select 2 shapes and group them
 273     '    * an entry with a small plus in front must appear in the navigator
 274     '    * click on the plus
 275     '    * there must be an additional tree with the 2 shapes of the group
 276
 277     Call hCloseDocument
 278 endcase 'tViewNavigatorZOrder
 279
 280 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 281
 282 testcase tViewNavigatorNameActivated
 283     qaerrorlog "Not yet ready."
 284     goto endsub
 285     dim zPosition1 as integer
 286     dim zPosition2 as integer
 287     dim zPosition3 as integer
 288     dim zPosition4 as integer
 289     dim counter as integer
 290
 291     Call hNewDocument
 292
 293     Call hRechteckErstellen ( Position1, Position1, 60, 60)
 294
 295 endcase 'tViewNavigatorNameActivated
 296
 297 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 298
 299 testcase tViewNavigatorGroupedObjects
 300     qaerrorlog "Not yet ready."
 301     goto endsub
 302     dim zPosition1 as integer
 303     dim zPosition2 as integer
 304     dim zPosition3 as integer
 305     dim zPosition4 as integer
 306     dim counter as integer
 307
 308     Call hNewDocument
 309
 310     Call hRechteckErstellen ( Position1, Position1, 60, 60)
 311
 312
 313 endcase 'tViewNavigatorGroupedObjects
 314
 315 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------