testautomation/graphics/required/includes/global/id_003.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: id_003.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:43:00 $
  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 tiViewNavigator
  40 ' #1 tiViewZoom
  41 ' #1 tiViewToolbar
  42 ' #1 tiViewDisplayQuality
  43 ' #1 tiViewLayer
  44 ' #1 tViewSnapLines
  45 ' #1 tViewGrid
  46 '\**********************************************************************************
  47 testcase tiViewNavigator
  48
  49     printlog " open application "
  50     Call hNewDocument
  51
  52     Kontext "NavigatorDraw"
  53         printlog " if 'Navigator' isn't already open, open it (View->Navigator)"
  54         if Not NavigatorDraw.Exists Then
  55             ViewNavigator
  56         end if
  57     Kontext "NavigatorDraw"
  58         Call DialogTest ( NavigatorDraw )
  59
  60         try
  61             Kontext "Navigator"
  62                 printlog " close 'Navigator' "
  63                 Navigator.Close
  64         catch
  65             Errorlog "  Navigator wasn't closed, second try with Menu"
  66             ViewNavigator
  67         endcatch
  68     printlog " close application "
  69     Call hCloseDocument
  70
  71 endcase 'tiViewNavigator
  72 '-------------------------------------------------------------------------
  73 testcase tiViewZoom
  74
  75     printlog " open application "
  76     Call  hNewDocument
  77     UseBindings
  78     ViewZoom
  79     Kontext "Massstab"
  80     DialogTest ( Massstab )
  81     Massstab.Cancel
  82     printlog " close application "
  83     Call  hCloseDocument
  84
  85 endcase 'tiViewZoom
  86 '-------------------------------------------------------------------------
  87 testcase tiViewToolbar
  88
  89     printlog " including ruler & statusbar "
  90     printlog " open application "
  91    Call  hNewDocument
  92
  93     printlog " View->Toolbars->ThreeDSettings "
  94     ViewToolbarsThreeDSettings
  95     WaitSlot (1000)
  96     printlog " View->Toolbars->ThreeDSettings "
  97     ViewToolbarsThreeDSettings
  98     WaitSlot (1000)
  99
 100     printlog " View->Toolbars->Align "
 101     ViewToolbarsAlign
 102     WaitSlot (1000)
 103     printlog " View->Toolbars->Align "
 104     ViewToolbarsAlign
 105     WaitSlot (1000)
 106
 107     printlog " View->Toolbars->Tools "
 108     ViewToolbarsTools
 109     WaitSlot (1000)
 110     printlog " View->Toolbars->Tools "
 111     ViewToolbarsTools
 112     WaitSlot (1000)
 113
 114     printlog " View->Toolbars->Bezier "
 115     ViewToolbarsBezier
 116     WaitSlot (1000)
 117     printlog " View->Toolbars->Bezier "
 118     ViewToolbarsBezier
 119     WaitSlot (1000)
 120
 121     printlog " View->Toolbars->Fontwork "
 122     ViewToolbarsFontwork
 123     WaitSlot (1000)
 124     printlog " View->Toolbars->Fontwork "
 125     ViewToolbarsFontwork
 126     WaitSlot (1000)
 127
 128     '   if gApplication = "IMPRESS" then
 129     printlog " View->Toolbars->Presentation "
 130     '      ViewToolbarsPresentation ' only in impress, not draw
 131     printlog " View->Toolbars->Presentation "
 132     '      ViewToolbarsPresentation
 133     '   endif
 134
 135     printlog " View->Toolbars->Form Controls "
 136     ViewToolbarsFormControls
 137     WaitSlot (1000)
 138     printlog " View->Toolbars->Form Controls "
 139     ViewToolbarsFormControls
 140     WaitSlot (1000)
 141
 142 '-----------------
 143     printlog " View->Toolbars->Form Design "
 144     ViewToolbarsFormDesign
 145     WaitSlot (1000)
 146     printlog " View->Toolbars->Form Design "
 147     ViewToolbarsFormDesign
 148     WaitSlot (1000)
 149
 150     printlog " View->Toolbars->FormNavigation "
 151     ViewToolbarsFormNavigation
 152     WaitSlot (1000)
 153     printlog " View->Toolbars->FormNavigation "
 154     ViewToolbarsFormNavigation
 155     WaitSlot (1000)
 156
 157     printlog " View->Toolbars->Gluepoints "
 158     ViewToolbarsGluepoints
 159     WaitSlot (1000)
 160     printlog " View->Toolbars->Gluepoints "
 161     ViewToolbarsGluepoints
 162     WaitSlot (1000)
 163     printlog " View->Toolbars->Insert "
 164     ViewToolbarsInsert
 165     WaitSlot (1000)
 166     printlog " View->Toolbars->Insert "
 167     ViewToolbarsInsert
 168     WaitSlot (1000)
 169
 170     printlog " View->Toolbars->Graphic "
 171     ViewToolbarsGraphic
 172     WaitSlot (1000)
 173     printlog " View->Toolbars->Graphic "
 174     ViewToolbarsGraphic
 175     WaitSlot (1000)
 176
 177     printlog " View->Toolbars->MediaPlayback "
 178     ViewToolbarsMediaPlayback
 179     WaitSlot (1000)
 180     printlog " View->Toolbars->MediaPlayback "
 181     ViewToolbarsMediaPlayback
 182     WaitSlot (1000)
 183
 184     printlog " View->Toolbars->Optionbar "
 185     ViewToolbarsOptionbar
 186     WaitSlot (1000)
 187     printlog " View->Toolbars->Optionbar "
 188     ViewToolbarsOptionbar
 189     WaitSlot (1000)
 190
 191     printlog " View->Toolbars->Picture "
 192     ViewToolbarsPicture
 193     WaitSlot (1000)
 194     printlog " View->Toolbars->Picture "
 195     ViewToolbarsPicture
 196     WaitSlot (1000)
 197
 198     printlog " View->Toolbars->Standard "
 199     ViewToolbarsStandard
 200     WaitSlot (1000)
 201     printlog " View->Toolbars->Standard "
 202     ViewToolbarsStandard
 203     WaitSlot (1000)
 204
 205     printlog " View->Toolbars->Standard View "
 206     ViewToolbarsStandardView
 207     WaitSlot (1000)
 208     printlog " View->Toolbars->Standard View "
 209     ViewToolbarsStandardView
 210     WaitSlot (1000)
 211
 212     printlog " View->Toolbars->Hyperlinkbar "
 213     ViewToolbarsHyperlinkbar
 214     WaitSlot (1000)
 215     printlog " View->Toolbars->Hyperlinkbar "
 216     ViewToolbarsHyperlinkbar
 217     WaitSlot (1000)
 218
 219     printlog " View->Toolbars->ColorBar "
 220     ViewToolbarsColorBar
 221     WaitSlot (1000)
 222     printlog " View->Toolbars->ColorBar "
 223     ViewToolbarsColorBar
 224     WaitSlot (1000)
 225
 226     printlog " View->Toolbars->Customize "
 227     ViewToolbarsCustomize
 228     WaitSlot (1000)
 229     Kontext
 230     printlog " switch to tabpage 'Menus' "
 231     try
 232         Messagebox.SetPage TabCustomizeMenu             ' 1 ------------------
 233     catch
 234         warnlog "couldn't switch to tabpage 'Menus'"
 235     endcatch
 236     Kontext "TabCustomizeMenu"
 237     if TabCustomizeMenu.exists(5) then
 238         Call DialogTest ( TabCustomizeMenu )
 239         Menu.typeKeys("<down>")
 240         Entries.typeKeys("<down>")
 241         sleep 2
 242         printlog " click button 'new' "
 243         BtnNew.Click
 244         sleep 1
 245         printlog " Dialog 'New Menu' comes up "
 246         Kontext "MenuOrganiser"
 247         Call DialogTest ( MenuOrganiser )
 248         printlog " Cancel dialog 'New Menu' "
 249         MenuOrganiser.cancel
 250         sleep 1
 251         Kontext "TabCustomizeMenu"
 252         TabCustomizeMenu.Close
 253     end if
 254     sleep (1)
 255
 256     printlog " close application "
 257     Call  hCloseDocument
 258
 259 endcase 'tiViewToolbar
 260 '-------------------------------------------------------------------------
 261 testcase tiViewDisplayQuality
 262
 263     printlog " open application "
 264     Call hNewDocument
 265
 266     printlog " create a rectangle "
 267     Call hRechteckErstellen 20,20,40,40
 268
 269     try
 270     printlog " View->Display Quality->Black and White "
 271         ViewQualityBlackWhite
 272         Printlog "- Quality set to black and white"
 273     catch
 274         Warnlog "- Slot could not be accessed"
 275     endcatch
 276     WaitSlot (1000)
 277     try
 278         printlog " View->Display Quality->Greyscale "
 279         ViewQualityGreyscale
 280         Printlog "- View quality set to greyscale"
 281     catch
 282         Warnlog "- View quality greyscale could not be accessed"
 283     endcatch
 284     WaitSlot (1000)
 285     try
 286         printlog " View->Display Quality->Colour "
 287         ViewQualityColour
 288         Printlog "- View quality set to colour"
 289     catch
 290         Warnlog "- View quality colour could not be accessed"
 291     endcatch
 292     printlog " close application "
 293     Call hClosedocument
 294
 295 endcase 'tiViewDisplayQuality
 296 '-------------------------------------------------------------------------
 297 testcase tiViewLayer
 298
 299     printlog " open application "
 300     Call hNewDocument
 301     printlog " Insert->Layer / in impress: ???? "
 302
 303     printlog " View->Layer "
 304     ViewLayer
 305     WaitSlot (1000)
 306     printlog " View->Layer "
 307     ViewLayer
 308     printlog " close application "
 309     Call hCloseDocument
 310
 311 endcase 'tiViewLayer
 312 '-------------------------------------------------------------------------
 313 testcase tViewGrid
 314
 315     printlog " open application "
 316     Call  hNewDocument
 317
 318     printlog " View->Grid-> "
 319     ViewGridVisible
 320     printlog " View->Grid-> "
 321     ViewGridUse
 322     printlog " View->Grid-> "
 323     ViewGridFront
 324     printlog " View->Grid-> "
 325     ViewGridVisible
 326     printlog " View->Grid-> "
 327     ViewGridUse
 328     printlog " View->Grid-> "
 329     ViewGridFront
 330     WaitSlot (1000)
 331     printlog " close application "
 332     Call  hCloseDocument
 333
 334 endcase 'tViewGrid
 335 '-------------------------------------------------------------------------
 336 testcase tViewSnapLines
 337
 338     printlog " open application "
 339     Call  hNewDocument
 340
 341     printlog " View->Snap Lines-> "
 342     ViewSnapLinesVisible
 343     printlog " View->Snap Lines-> "
 344     ViewSnapLinesUse
 345     printlog " View->Snap Lines-> "
 346     ViewSnapLinesFront
 347     printlog " View->Snap Lines-> "
 348     ViewSnapLinesVisible
 349     printlog " View->Snap Lines-> "
 350     ViewSnapLinesUse
 351     printlog " View->Snap Lines-> "
 352     ViewSnapLinesFront
 353     WaitSlot (1000)
 354     printlog " close application "
 355     Call  hCloseDocument
 356
 357 endcase 'tViewSnapLines