testautomation/graphics/optional/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:42:41 $
  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
  48 testcase tiViewNavigator
  49     Call hNewDocument
  50
  51     Kontext "NavigatorDraw"
  52     if Not NavigatorDraw.Exists Then
  53         ViewNavigator
  54     end if
  55     Kontext "NavigatorDraw"
  56     Call DialogTest ( NavigatorDraw )
  57
  58     try
  59         Kontext "Navigator"
  60         Navigator.Close
  61     catch
  62         Errorlog "  Navigator wasn't closed, second try with Menu"
  63         ViewNavigator
  64     endcatch
  65     Call hCloseDocument
  66 endcase
  67
  68 '-------------------------------------------------------------------------
  69
  70 testcase tiViewZoom
  71     Call  hNewDocument
  72     UseBindings
  73     ViewZoom
  74     Kontext "Massstab"
  75     DialogTest ( Massstab )
  76     Massstab.Cancel
  77     Call  hCloseDocument
  78 endcase
  79
  80 '-------------------------------------------------------------------------
  81
  82 testcase tiViewToolbar
  83     Call  hNewDocument
  84
  85     ViewToolbarsThreeDSettings
  86     WaitSlot (1000)
  87     ViewToolbarsThreeDSettings
  88     WaitSlot (1000)
  89
  90     ViewToolbarsAlign
  91     WaitSlot (1000)
  92     ViewToolbarsAlign
  93     WaitSlot (1000)
  94
  95     ViewToolbarsTools
  96     WaitSlot (1000)
  97     ViewToolbarsTools
  98     WaitSlot (1000)
  99
 100     ViewToolbarsBezier
 101     WaitSlot (1000)
 102     ViewToolbarsBezier
 103     WaitSlot (1000)
 104
 105     ViewToolbarsFontwork
 106     WaitSlot (1000)
 107     ViewToolbarsFontwork
 108     WaitSlot (1000)
 109
 110     '   if gApplication = "IMPRESS" then
 111     '      ViewToolbarsPresentation ' only in impress, not draw
 112     '      ViewToolbarsPresentation
 113     '   endif
 114
 115     ViewToolbarsFormControls
 116     WaitSlot (1000)
 117     ViewToolbarsFormControls
 118     WaitSlot (1000)
 119
 120     '-----------------
 121     ViewToolbarsFormDesign
 122     WaitSlot (1000)
 123     ViewToolbarsFormDesign
 124     WaitSlot (1000)
 125
 126     ViewToolbarsFormNavigation
 127     WaitSlot (1000)
 128     ViewToolbarsFormNavigation
 129     WaitSlot (1000)
 130
 131     ViewToolbarsGluepoints
 132     WaitSlot (1000)
 133     ViewToolbarsGluepoints
 134     WaitSlot (1000)
 135     ViewToolbarsInsert
 136     WaitSlot (1000)
 137     ViewToolbarsInsert
 138     WaitSlot (1000)
 139
 140     ViewToolbarsGraphic
 141     WaitSlot (1000)
 142     ViewToolbarsGraphic
 143     WaitSlot (1000)
 144
 145     ViewToolbarsMediaPlayback
 146     WaitSlot (1000)
 147     ViewToolbarsMediaPlayback
 148     WaitSlot (1000)
 149
 150     ViewToolbarsOptionbar
 151     WaitSlot (1000)
 152     ViewToolbarsOptionbar
 153     WaitSlot (1000)
 154
 155     ViewToolbarsPicture
 156     WaitSlot (1000)
 157     ViewToolbarsPicture
 158     WaitSlot (1000)
 159
 160     ViewToolbarsStandard
 161     WaitSlot (1000)
 162     ViewToolbarsStandard
 163     WaitSlot (1000)
 164
 165     ViewToolbarsStandardView
 166     WaitSlot (1000)
 167     ViewToolbarsStandardView
 168     WaitSlot (1000)
 169
 170     ViewToolbarsHyperlinkbar
 171     WaitSlot (1000)
 172     ViewToolbarsHyperlinkbar
 173     WaitSlot (1000)
 174
 175     ViewToolbarsColorBar
 176     WaitSlot (1000)
 177     ViewToolbarsColorBar
 178     WaitSlot (1000)
 179
 180     ViewToolbarsCustomize
 181     WaitSlot (1000)
 182     Kontext
 183     try
 184         Messagebox.SetPage TabCustomizeMenu             ' 1 ------------------
 185     catch
 186         warnlog "couldn't switch to tabpage 'Menus'"
 187     endcatch
 188     Kontext "TabCustomizeMenu"
 189     if TabCustomizeMenu.exists(5) then
 190         Call DialogTest ( TabCustomizeMenu )
 191         Menu.typeKeys("<down>")
 192         Entries.typeKeys("<down>")
 193         sleep 2
 194         BtnNew.Click
 195         sleep 1
 196         Kontext "MenuOrganiser"
 197         Call DialogTest ( MenuOrganiser )
 198         MenuOrganiser.cancel
 199         sleep 1
 200         Kontext "TabCustomizeMenu"
 201         TabCustomizeMenu.Close
 202     end if
 203     sleep (1)
 204
 205     Call  hCloseDocument
 206 endcase
 207
 208 '-------------------------------------------------------------------------
 209
 210 testcase tiViewDisplayQuality
 211     Call hNewDocument
 212
 213     Call hRechteckErstellen 20,20,40,40
 214
 215     try
 216         ViewQualityBlackWhite
 217         Printlog "- Quality set to black and white"
 218     catch
 219         Warnlog "- Slot could not be accessed"
 220     endcatch
 221     WaitSlot (1000)
 222     try
 223         ViewQualityGreyscale
 224         Printlog "- View quality set to greyscale"
 225     catch
 226         Warnlog "- View quality greyscale could not be accessed"
 227     endcatch
 228     WaitSlot (1000)
 229     try
 230         ViewQualityColour
 231         Printlog "- View quality set to colour"
 232     catch
 233         Warnlog "- View quality colour could not be accessed"
 234     endcatch
 235     Call hClosedocument
 236 endcase
 237
 238 '-------------------------------------------------------------------------
 239
 240 testcase tiViewLayer
 241     Call hNewDocument
 242
 243     ViewLayer
 244     WaitSlot (1000)
 245     ViewLayer
 246     Call hCloseDocument
 247 endcase
 248
 249 '-------------------------------------------------------------------------
 250
 251 testcase tViewGrid
 252     Call  hNewDocument
 253
 254     ViewGridVisible
 255     ViewGridUse
 256     ViewGridFront
 257     ViewGridVisible
 258     ViewGridUse
 259     ViewGridFront
 260     WaitSlot (1000)
 261     Call  hCloseDocument
 262 endcase
 263
 264 '-------------------------------------------------------------------------
 265
 266 testcase tViewSnapLines
 267     Call  hNewDocument
 268
 269     ViewSnapLinesVisible
 270     ViewSnapLinesUse
 271     ViewSnapLinesFront
 272     ViewSnapLinesVisible
 273     ViewSnapLinesUse
 274     ViewSnapLinesFront
 275     WaitSlot (1000)
 276     Call  hCloseDocument
 277 endcase
 278