testautomation/graphics/optional/includes/global/g_edit.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_edit.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 tEditDuplicate
  40 ' #1 tEditFields
  41 ' #1 tEditDeleteSlide
  42 ' #1 tEditLinks
  43 ' #1 tdEditDeleteLayer
  44 ' #1 tEditObjectEdit
  45 '\*************************************************************************************
  46
  47 '   sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
  48 '   sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
  49 '      Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
  50
  51 testcase tEditDuplicate
  52  dim Ueber_Text_1
  53  dim Zaehler
  54
  55  Call hNewDocument                                              '/// New Impress document ///'
  56   Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
  57   EditSelectAll                                                 '/// Select rectangle ///'
  58   EditDuplicate                                                 '/// Edit-duplicate ///'
  59   Kontext "Duplizieren"
  60   Ueber_Text_1 = AnzahlAnKopien.GetText
  61   AnzahlAnKopien.SetText "50"                                   '/// Set number of copies to 50 ///'
  62   Duplizieren.Cancel                                            '/// Cancel Edit Duplicate ///'
  63   sleep 1
  64    For Zaehler = 1 to 8
  65        EditDuplicate                                            '/// Edit Duplicate ///'
  66        sleep 1
  67        Kontext "Duplizieren"
  68        AnzahlAnKopien.SetText "30"                              '/// Number of copies = 30 ///'
  69
  70        Select Case Zaehler                                      '/// Setting values for axis and angles ///'
  71           Case 1:       XAchse.SetText "0,0"
  72             YAchse.SetText "0,45"
  73             Hoehe.SetText  "-0,1"
  74             Breite.SetText "-0,1"
  75             Drehwinkel.SetText "3"
  76             Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
  77           Case 2,6:     XAchse.SetText "0,6"
  78             YAchse.SetText "0,0"
  79             Hoehe.SetText  "0,15"
  80             Breite.SetText "0,01"
  81             Drehwinkel.SetText "353"
  82               Case 3,7: XAchse.SetText "0,0"
  83             YAchse.SetText "-0,4"
  84             Hoehe.SetText  "-0,1"
  85             Breite.SetText "0,06"
  86             Drehwinkel.SetText "11"
  87           Case 4,8:     XAchse.SetText "-0,6"
  88             YAchse.SetText "0,0"
  89             Hoehe.SetText  "0,05"
  90             Breite.SetText "-0,08"
  91             Drehwinkel.SetText "347"
  92           Case 5:       XAchse.SetText "0,1"
  93             YAchse.SetText "0,48"
  94             Hoehe.SetText  "-0,05"
  95             Breite.SetText "-0,05"
  96             Drehwinkel.SetText "355"
  97     End Select
  98     Ende.Select Int((Ende.GetItemCount * Rnd)+1)
  99     Duplizieren.OK                                              '/// Execute Duplicate ///'
 100     sleep 1
 101    Next Zaehler
 102   sleep 2
 103  Call hCloseDocument                                            '/// Close document ///'
 104
 105 endcase 'tEditDuplicate
 106 '---------------------------------------------------------
 107 testcase tEditFields
 108
 109  Call hNewDocument
 110   sleep 3
 111   InsertFieldsDateFix                                           '/// Insert Date-Fix ///'
 112   EditSelectAll                                                 '/// Select inserted field ///'
 113   sleep 1
 114   hTypeKeys "<F2>"                              '/// Go into edit mode (F2) ///'
 115   sleep 2
 116   EditSelectAll                                 '/// Select the date///'
 117   sleep 2
 118   EditfieldsDraw                                                '/// Edit -fields///'
 119   Kontext "FeldbefehlBearbeitenDraw"
 120   sleep 2
 121   FeldtypFix.Check                                              '/// check field type fix ///'
 122    If   FeldtypFix.Ischecked then
 123     Printlog "OK   FieldtypeFix checkable"
 124    else
 125       warnlog "FieldtypeFix not checkable"
 126    end if
 127   FeldtypVariabel.Check                                         '/// check field type variabel///'
 128   sleep 1
 129    If   FeldtypVariabel.Ischecked then
 130     Printlog "OK   FieldtypeVariabel enabled"
 131    else
 132         warnlog "FieldtypeVariabel not enabled"
 133    end if
 134 '   For Zaehler = 1 to FeldtypFormat.GetItemCount
 135 '    FeldTypFormat.Select Zaehler
 136 '    printlog "OK   Format ", Zaehler, " = ", FeldtypFormat.GetSelText
 137 '   Next Zaehler
 138   FeldbefehlBearbeitenDraw.OK                                   '/// close edit fields dialog ///'
 139   sleep 2
 140  Call hCloseDocument                                            '/// close document ///'
 141   sleep 2
 142
 143 endcase 'tEditFields
 144 '--------------------------------------------------------
 145 testcase tEditDeleteSlide
 146
 147  dim Ueber_Text_1 as string
 148  dim Ueber_Text_2 as string
 149  dim Ueber_Text_3 as string
 150   Call hNewDocument                                             '/// New impress document ///'
 151   sleep 3
 152   Call hRechteckErstellen ( 30, 30, 70, 70 )                    '/// create rectangle ///'
 153   sleep 1
 154   ContextPositionAndSize                                        '/// open Position and Size dialog ///'
 155   kontext
 156   Messagebox.SetPage TabPositionAndSize
 157   kontext "TabPositionAndSize"
 158   Ueber_Text_1 = PositionX.GetText                              '/// get position values for rectangle ///'
 159   TabPositionAndSize.OK
 160   InsertSlide                                                   '/// insert slide ///'
 161   sleep 2
 162   hTypekeys "<Pagedown>"
 163   sleep 2
 164   Call hRechteckErstellen ( 40, 40, 60, 60 )                    '/// create rectangle ///'
 165   sleep 1
 166   EditDeleteSlide                                               '/// Delete slide ///'
 167   sleep 1
 168   Ueber_Text_2 = "OK   Page was closed"
 169   Ueber_Text_3 = "Page was not closed"
 170   call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)                                    '/// compare position of rectange ///'
 171   sleep 1
 172  Call hCloseDocument                                            '/// close document ///'
 173
 174 endcase 'tEditDeleteSlide
 175 '--------------------------------------------------------
 176 testcase tEditLinks
 177
 178  Call  hNewDocument                                             '/// New document ///'
 179   InsertGraphicsFromFile                                        '/// insert graphic (sample.bmp) ///'
 180   Kontext "GrafikEinfuegenDlg"
 181   Link.Check                                                    '/// check link ///'
 182       Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
 183       Oeffnen.Click
 184   sleep 3
 185   EditLinksDraw                                 '/// edit links ///'
 186   Kontext "VerknuepfungenBearbeiten"
 187   Aktualisieren.Click                                           '/// refresh ///'
 188   sleep 1
 189   'Aendern                                                      'kann man noch den Dialog aufrufen...
 190   Loesen.Click
 191   sleep 1
 192   Kontext
 193   Messagebox.Yes
 194   VerknuepfungenBearbeiten.Close                                '/// close dialog ///'
 195   sleep 1
 196   try
 197     EditLinksDraw                               '/// check if last changes remain in the dialog ///'
 198     Kontext "VerknuepfungenBearbeiten"
 199     Loesen.Click
 200     sleep 1
 201     Kontext
 202     Messagebox.Yes
 203     VerknuepfungenBearbeiten.Close
 204     warnlog "Break link does not work"
 205   catch
 206     printlog "OK   Link broken"
 207   endcatch
 208  Call hCloseDocument                                            '/// close document ///'
 209
 210 endcase 'tEditLinks
 211 '---------------------------------------------------------
 212 testcase tdEditDeleteLayer
 213
 214  dim Ueber_Text_1 as string
 215  dim Ueber_Text_2 as string
 216  dim Ueber_Text_3 as string
 217  Call hNewDocument                     '/// new document ///'
 218   sleep 2
 219   Call hRechteckErstellen ( 30, 30, 70, 70 )          '/// create rectangle ///'
 220   sleep 1
 221 '/// View->Layer ///'
 222    ViewLayer
 223   ContextPositionAndSize                  '/// get position values for rectangle ///'
 224   kontext
 225   active.SetPage TabPositionAndSize
 226   kontext "TabPositionAndSize"
 227   Ueber_Text_1 = PositionX.GetText
 228   TabPositionAndSize.OK
 229   InsertLayer                             '/// insert layer ///'
 230   Kontext "EbeneEinfuegenDlg"
 231   EbeneEinfuegenDlg.OK
 232   Call hRechteckErstellen ( 10, 40, 90, 60 )          '/// create rectangle on created layer ///'
 233   sleep 1
 234   EditDeleteLayer                   '/// delete layer ///'
 235   sleep 1
 236   Kontext
 237   Active.Yes
 238   sleep 1
 239   Ueber_Text_2 = "OK   Layer was deleted"            '/// compare position of selected rectangle with position of created rectangle in deteted layer ///'
 240   Ueber_Text_3 = "Layer was not deleted"
 241   Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
 242   sleep 1
 243  Call hCloseDocument                   '/// close document ///'
 244
 245 endcase 'tdEditDeleteLayer
 246 '--------------------------------------------------------
 247 testcase tEditObjectEdit
 248
 249  Dim Schrieb  as string
 250
 251   Schrieb = gOLEWriter
 252   if Schrieb = "" then
 253       warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
 254   else
 255
 256       Call hNewDocument
 257       sleep 1               '/// new document ///'
 258       InsertObjectOLEObject             '/// insert writer ole object ///'
 259       Kontext "OLEObjektEinfuegen"
 260       sleep 3
 261       if ObjektTyp.GetItemCount = 0 Then
 262          Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
 263          sleep 1
 264          OleObjektEinfuegen.Cancel
 265          sleep 1
 266        else
 267
 268           ObjektTyp.Select Schrieb
 269           sleep 1
 270           OLEObjektEinfuegen.OK
 271           sleep 3                                 ' Changed from Sleep 1 to Sleep 3
 272           gMouseMove  10,10,90,90
 273           sleep 1
 274           EditSelectAll
 275
 276           try
 277              EditObjectEdit      'keine ID      '/// try edit-objects ///'
 278              sleep 2
 279           catch
 280              Warnlog "-  The EditObjectEdit did not work"
 281           endcatch
 282
 283
 284           gMouseClick 90,90
 285         end if
 286       sleep 1
 287      Call hCloseDocument                     '/// close document ///'
 288   endif
 289 endcase 'tEditObjectEdit