testautomation/graphics/optional/includes/global/g_toolbars.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_toolbars.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 Toolboxen_Rechtecke
  40 ' #1 Toolboxen_Kreise
  41 ' #1 Toolboxen_3dObjekte
  42 ' #1 Toolboxen_Linien
  43 ' #1 Toolboxen_Kurven
  44 '\********************************************************************
  45
  46
  47 testcase Toolboxen_Rechtecke
  48     Printlog "- Toolbox rectangles"
  49     Dim i
  50
  51
  52     Printlog "- 1.: Create rectangles, apply shadow and move them around"
  53
  54     for i = 1 to 4
  55         select case i
  56         case 1 : Printlog "- Create Rectangle Filled"
  57             sleep 1
  58         case 2 : Printlog "- Create Rectangle Round-Filled"
  59             WL_SD_RechteckRundVoll
  60             sleep 1
  61         case 3 : Printlog "- Create Quadrat Filled"
  62             WL_SD_QuadratVoll
  63             sleep 1
  64         case 4 : Printlog "Create Quadrat Round-Filled"
  65             WL_SD_QuadratRundVoll
  66             sleep 1
  67         end select
  68
  69         Kontext "DocumentImpress"
  70         sleep 2
  71         Kontext
  72         Kontext "TabSchatten"
  73         sleep 1
  74         Kontext "DocumentImpress"
  75
  76
  77         gMouseClick 30,30
  78         gMouseMove 30,30,90,90
  79
  80         gMouseClick 90,90
  81         gMouseMove 90,90,30,30
  82
  83         gMouseClick 30,30
  84         gMouseMove 30,30,90,90
  85
  86         gMouseClick 90,90
  87         gMouseMove 90,90,30,30
  88
  89         sleep 2
  90     next i
  91 endcase
  92
  93 '**********************************************************************
  94 testcase Toolboxen_Kreise
  95     Printlog "- Toolbox Circles"
  96
  97     Dim i
  98
  99
 100
 101     Printlog "- Create circles and ellipses"
 102     for i = 1 to 7
 103     case 1 : WL_SD_Ellipsen
 104         sleep 1
 105         Kontext "DocumentImpress"
 106         gMouseMove 20,20,60,60
 107     case 2 : WL_SD_EllipseVoll
 108         sleep 1
 109         Kontext "DocumentImpress"
 110         gMouseMove 20,20,60,60
 111     case 3 : WL_SD_EllipsensegmentVoll
 112         sleep 1
 113         kontext "DocumentImpress"
 114         gMouseMove 20,20,40,40
 115         gMouseClick 20,30
 116         gMouseClick 20,28
 117     case 4 : WL_SD_EllipsenabschnittVoll
 118         sleep 1
 119         kontext "DocumentImpress"
 120         gMouseMove 20,20,40,40
 121         gMouseClick 20,30
 122         gMouseClick 20,28
 123     case 5 : WL_SD_KreisVoll
 124         sleep 1
 125         kontext "DocumentImpress"
 126         gMouseMove 20,20,40,40
 127     case 6 : WL_SD_KreissegmentVoll
 128         sleep 1
 129         kontext "DocumentImpress"
 130         gMouseMove 20,20,40,40
 131         gMouseClick 20,30
 132         gMouseClick 20,28
 133     case 7 : WL_SD_KreisabschnittVoll
 134         sleep 1
 135         kontext "DocumentImpress"
 136         gMouseMove 20,20,40,40
 137         gMouseClick 20,30
 138         gMouseClick 20,28
 139     end select
 140
 141     FormatArea
 142     Kontext
 143     Kontext "TabSchatten"
 144     Anzeigen.Click
 145     TabSchatten.OK
 146     sleep 1
 147     Kontext "DocumentImpress"
 148     gMouseClick 30,30
 149
 150     gMouseClick 90,90
 151     gMouseMove 90,90,30,30
 152
 153     gMouseClick 30,30
 154     gMouseMove 30,30,90,90
 155
 156     gMouseClick 90,90
 157     gMouseMove 90,90,30,30
 158
 159     gMouseClick 30,30
 160     gMouseMove 30,30,90,90
 161
 162     gMouseClick 90,90
 163     gMouseMove 90,90,30,30
 164
 165     sleep 2
 166 next i
 167 endcase
 168 '***********************************************************************************
 169 testcase Toolboxen_3dObjekte
 170     Printlog "- Toolbox 3D objects"
 171     Dim i
 172
 173
 174     Printlog "- Create 3D objects"
 175     for i = 1 to 8
 176         printlog "doing now: "+i
 177         select case i
 178             sleep 1
 179             Kontext "DocumentImpress"
 180             gMouseMove 20,20,60,60
 181         case 2 : WL_SD_Kugel
 182             sleep 1
 183             Kontext "DocumentImpress"
 184             gMouseMove 20,20,60,60
 185         case 3 : WL_SD_Zylinder
 186             sleep 1
 187             kontext "DocumentImpress"
 188             gMouseMove 20,20,40,40
 189         case 4 : WL_SD_Kegel
 190             sleep 1
 191             kontext "DocumentImpress"
 192             gMouseMove 20,20,40,40
 193         case 5 : WL_SD_Pyramide
 194             sleep 1
 195             kontext "DocumentImpress"
 196             gMouseMove 20,20,40,40
 197         case 6 : WL_SD_Torus
 198             sleep 1
 199             kontext "DocumentImpress"
 200             gMouseMove 20,20,40,40
 201         case 7 : WL_SD_Schale
 202             sleep 1
 203             kontext "DocumentImpress"
 204             gMouseMove 20,20,40,40
 205         case 8 : WL_SD_Halbkugel
 206         end select
 207         sleep 2
 208         FormatArea
 209         sleep 2
 210         Kontext
 211         Kontext "TabSchatten"
 212         Anzeigen.Click
 213         TabSchatten.OK
 214         sleep 1
 215         Kontext "DocumentImpress"
 216         gMouseClick 30,30
 217         gMouseClick 90,90
 218         gMouseMove 90,90,30,30
 219         gMouseClick 30,30
 220         gMouseMove 30,30,90,90
 221         gMouseClick 90,90
 222         gMouseMove 90,90,30,30
 223         gMouseClick 30,30
 224         gMouseMove 30,30,90,90
 225         gMouseClick 90,90
 226         gMouseMove 90,90,30,30
 227         sleep 2
 228     next i
 229     gMouseClick 99,99
 230     sleep 1
 231     Printlog "- 3D-body created"
 232 endcase
 233 '******************************************************************************
 234 testcase Toolboxen_Linien
 235     Printlog "- Toolbox Lines "
 236     Dim i
 237     Printlog "- Create lines and arrows"
 238     for i = 1 to 10
 239         select case i
 240             sleep 1
 241             Kontext "DocumentImpress"
 242             gMouseMove 20,20,60,60
 243         case 2 : WL_SD_LinieMitPfeilende
 244             sleep 1
 245             Kontext "DocumentImpress"
 246             gMouseMove 20,20,60,60
 247         case 3 : WL_SD_LinieMitPfeilKreisende
 248             sleep 1
 249             kontext "DocumentImpress"
 250             gMouseMove 20,20,40,40
 251         case 4 : WL_SD_LiniemitPfeilQuadratende
 252             sleep 1
 253             kontext "DocumentImpress"
 254             gMouseMove 20,20,40,40
 255         case 5 : WL_SD_Liniewinkel
 256             sleep 1
 257             kontext "DocumentImpress"
 258             gMouseMove 20,20,40,40
 259         case 6 : WL_SD_LinieMitPfeilanfang
 260             sleep 1
 261             kontext "DocumentImpress"
 262             gMouseMove 20,20,40,40
 263         case 7 : WL_SD_LinieMitKreisPfeilende
 264             sleep 1
 265             kontext "DocumentImpress"
 266             gMouseMove 20,20,40,40
 267         case 8 : WL_SD_LiniemitPfeilKreisende
 268
 269         case 9 : WL_SD_Masslinie
 270             sleep 1
 271             kontext "DocumentImpress"
 272             gMouseMove 20,20,40,40
 273         case 10 : WL_SD_LinieMitPfeilenden
 274
 275         end select
 276         Kontext "DocumentImpress"
 277         gMouseClick 25,25
 278         sleep 1
 279         sleep 1
 280         gMouseMove 80,80,25,25
 281         sleep 1
 282         gMouseMove 25,25,90,90
 283         sleep 1
 284         gMouseClick 90,90,25,25
 285         sleep 1
 286         gMouseClick 99,99
 287         sleep 1
 288     next i
 289     Call hCloseDocument
 290 endcase
 291 '********************************************************************
 292 testcase Toolboxen_Kurven
 293     Printlog "- Toolbox curves"
 294     Dim i
 295     Call hNewDocument
 296     sleep 1
 297     for i = 1 to 8
 298         select case i
 299         case 1 : WL_SD_KurveVoll
 300             sleep 1
 301             gMouseMove 20,20,60,60
 302             gMouseClick 70,70
 303             gMouseMove 70,70,30,30
 304             gMouseDoubleClick 30,30
 305         case 2 : WL_SD_KurveLeer
 306             sleep 1
 307             gMouseMove 20,20,60,60
 308             gMouseClick 70,70
 309             gMouseMove 70,70,30,30
 310             gMouseDoubleClick 30,30
 311         case 3 : WL_SD_PolygonVoll
 312             sleep 1
 313             gMouseMove 20,20,60,60
 314             gMouseClick 70,70
 315             gMouseClick 10,10
 316             gMouseClick 90,90
 317             gMouseClick 50,50
 318             gMouseDoubleClick 50,50
 319         case 4 : WL_SD_Polygon
 320             sleep 1
 321             gMouseMove 20,20,60,60
 322             gMouseClick 70,70
 323             gMouseClick 10,10
 324             gMouseClick 90,90
 325             gMouseClick 50,50
 326             gMouseDoubleClick 50,50
 327         case 5 : WL_SD_PolygonWinkelVoll
 328             sleep 1
 329             gMouseMove 20,20,60,60
 330             gMouseClick 70,70
 331             gMouseClick 10,10
 332             gMouseClick 90,90
 333             gMouseClick 50,50
 334             gMouseDoubleClick 50,50
 335         case 6 : WL_SD_PolygonWinkel
 336             sleep 1
 337             gMouseMove 20,20,60,60
 338             gMouseClick 70,70
 339             gMouseClick 10,10
 340             gMouseClick 90,90
 341             gMouseClick 50,50
 342             gMouseDoubleClick 50,50
 343         case 7 : WL_SD_FreihandlinieVoll
 344             sleep 1
 345             gMouseMove 10,10,70,70
 346             gMouseMove 20,20,30,80
 347         case 8 : WL_SD_FreihandlinieLeer
 348             sleep 1
 349             gMouseMove 10,10,70,70
 350             gMouseMove2 70,70,20,20
 351             gMouseMove 20,20,30,80
 352         end select
 353         Kontext "DocumentImpress"
 354         sleep 1
 355         sleep 1
 356         try
 357         catch
 358             Warnlog "- Nothing in the document to cut out"
 359         endcatch
 360         sleep 1
 361     next i
 362 endcase
 363
 364