testautomation/graphics/optional/includes/global/g_area.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_area.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  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 tiFormatArea
  40 ' #1 tdFormatArea1
  41 '\*************************************************************************************
  42
  43 testcase tiFormatArea
  44     Dim i
  45     Dim Zaehler
  46     dim Entf$
  47
  48    hNewDocument            '/// New impress document ///'
  49    hRechteckErstellen (20,20,60,60)         '/// create rectangle ///'
  50    Printlog "  - Change Format"          '/// change format for the rectangle ///'
  51    FormatArea
  52    Kontext
  53    active.SetPage TabArea
  54    Kontext "TabArea"
  55    FillOptions.Select 5  '/// apply bitmap as texture ///'
  56    BitmapList.Select 3   '/// Select "Water" ///'
  57    Tile.Check            '/// tile bitmap ///'
  58    Kontext
  59    active.SetPage TabSchatten
  60    kontext "TabSchatten"
  61    Anzeigen.Check           '/// apply shadow ///'
  62    Entfernung.SetText "30"          '/// set angle to 30ó�����///'
  63    Entf$=Entfernung.GetText          '/// change distance ///'
  64    Farbe.Select 15           '/// select color 15///'
  65    TabSchatten.OK           '/// close dialog ///'
  66    Sleep 3
  67
  68   Printlog "  - Test various formats"
  69    FormatArea            '/// Format area, check if changes are saved for this object ///'
  70    Kontext
  71    active.SetPage TabArea
  72    Kontext "TabArea"
  73    if NOT FillOptions.GetSelIndex = 5 then
  74       Warnlog "Bitmap is not checked"
  75    else
  76       if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
  77       if NOT Tile.IsChecked then Warnlog "Tile is not checked"
  78 '      if Original.IsChecked then Warnlog "Original is not checked"
  79 '      if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
  80 '      if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is:  "+Breite.GetText
  81 '      if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is:  "+XOffset.GetText
  82 '      if NOT Zeile.IsChecked then Warnlog "Line is not checked"
  83 '      if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is:  " + Verschiebung.GetText
  84       Kontext
  85       active.SetPage TabSchatten
  86       kontext "TabSchatten"
  87       if NOT Anzeigen.IsChecked then
  88          Warnlog "Show shadows is not checked"
  89       else
  90          if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
  91          if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
  92       end if
  93   end if
  94    TabSchatten.Cancel
  95
  96    hCloseDocument              '/// close document ///'
  97
  98 endcase 'tiFormatArea
  99 '--------------------------------------------------------
 100 testcase tdFormatArea1
 101
 102 Dim i
 103 Dim j
 104 Dim k
 105 Dim m
 106 Dim n
 107 Dim Winkel_1 as string
 108 Dim ZaehlerFarbe
 109 Dim ZaehlerVerlauf
 110 Dim ZaehlerSchraffur
 111 Dim ZaehlerBitmap
 112 Dim ColorName$
 113     ColorName$ = "Bullshit"
 114   dim Zaehler as integer
 115
 116  Call hNewDocument         '/// new document ///'
 117   sleep 3
 118   Call hRechteckErstellen (30,30,70,70)       '/// create rectangle ///'
 119   sleep 2
 120   FormatArea          '/// format area ///'
 121   Kontext
 122   Active.SetPage TabArea
 123   Kontext "TabArea"
 124   FillOptions.Select 1         '/// Select no fill ///'
 125   sleep 2
 126   TabArea.OK
 127   sleep 1
 128   FormatArea
 129   Kontext
 130   Active.SetPage TabArea
 131   Kontext "TabArea"
 132   sleep 1          '/// control if changes are still there after closing and reopening dialog ///'
 133   FillOptions.Select 3'/// check gradient and select 1 ///'
 134   ZaehlerVerlauf = GradientList.GetItemCount
 135    for j = 1 To 2
 136     GradientList.Select j
 137        TabArea.OK
 138        FormatArea
 139        Kontext
 140        Active.SetPage TabArea
 141        Kontext "TabArea"
 142        PrintLog GradientList.GetSelText
 143    next j
 144   FillOptions.Select 4         '/// select hatching, control after closing and reopening dialog if changes are recognized ///'
 145   HatchingList.GetItemCount
 146   ZaehlerSchraffur = HatchingList.GetItemCount
 147    for k=1 to 2'ZaehlerSchraffur
 148        HatchingList.Select k
 149        TabArea.OK
 150        FormatArea
 151        Kontext
 152        Active.SetPage TabArea
 153        Kontext "TabArea"
 154        PrintLog HatchingList.GetSelText
 155   next k
 156
 157   FillOptions.Select 5          '/// check bitmap, control if changes are permanent after closing and reopening dialog ///'
 158   BitmapList.GetItemCount
 159   ZaehlerBitmap = BitmapList.GetItemCount
 160    for n=1 to ZaehlerBitmap
 161        BitmapList.Select n
 162        TabArea.OK
 163        FormatArea
 164        sleep 1
 165        Kontext
 166        Active.SetPage TabArea
 167        Kontext "TabArea"
 168        PrintLog BitmapList.GetSelText
 169    next n
 170
 171   if Tile.IsChecked = False Then Tile.Check      '/// check tile ///'
 172 '  if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
 173 '  if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
 174 '  if Relativ.IsChecked = False Then
 175 '     SetClipboard Breite.GetText
 176 '     Relativ.Check
 177 '   If Breite.GetText = GetClipboardText Then
 178 '   WarnLog "  Relative isnt working"
 179 '   else
 180 '   PrintLog "   Relative works"
 181 '   end if
 182 '  end if
 183 '
 184 '  if Kacheln.IsChecked = True Then Kacheln.UnCheck
 185 '  Anpassen.Check
 186 '  if Relativ.IsEnabled = True Then WarnLog "   Option Anpassen konnte nicht aktiviert werden"
 187 '  if not Relativ.IsEnabled Then PrintLog "   Option Anpassen funktioniert"
 188 '  Anpassen.Uncheck
 189 '  Original.Check
 190 '  if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog "   Button Original funktioniert nicht"
 191 '  if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog "   Button Original funktioniert"
 192 '  Kacheln.Check
 193 '  setClipboard XOffset.GetText
 194 '  XOffset.More 3
 195 '  if XOffset.GetText <> GetClipboardText Then PrintLog "   Position XOffset funktioniert"
 196 '  if XOffset.GetText = GetClipboardText Then WarnLog "    Position XOffset funktioniert nicht"
 197 '  SetClipboard YOffset.GetText
 198 '  YOffset.More 5
 199 '  if YOffset.GetText <> GetClipboardText Then PrintLog "   Position YOffset funktioniert"
 200 '  if YOffset.GetText = GetClipboardText Then WarnLog "    Position YOffset funktioniert nicht"
 201 '  PrintLog "        TabArea fertig"
 202   Kontext
 203   Active.SetPage TabSchatten
 204   Kontext "TabSchatten"
 205    sleep 1
 206   if Anzeigen.IsChecked = True Then Anzeigen.UnCheck     '/// uncheck shadow ///'
 207    sleep 1
 208   if Entfernung.IsEnabled = False Then        '/// check if shadow related controls are disabled with no shadow ///'
 209      PrintLog "   Show shadow works"
 210   else
 211      WarnLog "   Show shadow does not work"
 212   end if
 213
 214   Anzeigen.Check         '/// check shadow ///'
 215   SetClipboard Entfernung.GetText       '/// change distance ///'
 216   Entfernung.More 4
 217   if GetClipboardText = Entfernung.GetText Then
 218      WarnLog "   Distance does not work"
 219   else
 220      PrintLog "   Distance does work"
 221   end if
 222   Farbe.Select 5         '/// change shadow color ///'
 223
 224   Kontext
 225   Active.SetPage TabFarben
 226   Kontext "TabFarben"
 227   Farbe.Select 24
 228    sleep 1
 229   Farbe.Select 18
 230    sleep 1
 231   Farbe.Select 7
 232   Farbname.SetText "Bullshit"       '/// change color ///'
 233   Aendern.Click
 234    sleep 1
 235   TabFarben.OK
 236   FormatArea
 237   Kontext
 238   Active.SetPage TabArea
 239   Kontext "TabArea"
 240   FillOptions.Select 2
 241   if ColourList.GetSelText = "Bullshit" Then
 242      PrintLog " Color selection changed "
 243   else
 244      WarnLog " Color selection not changed"
 245   end if
 246   Kontext
 247   Active.SetPage TabFarben
 248   Kontext "TabFarben"
 249   Farbmodell.Select 1
 250
 251  Kontext
 252  Active.SetPage TabFarben        '/// test RGB color model ///'
 253  Kontext "TabFarben"
 254  Farbmodell.Select 1        '/// switch to RGB values ///' ' 33:RVB,CMJN
 255  printlog "   Selected colourmodel RGB?: "+Farbmodell.GetSelText
 256    if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
 257  try
 258    R.SetText "50"
 259    G.SetText "10"
 260    B.SetText "90"
 261  catch
 262    warnlog "RGB text fields are not enabled :-("
 263  endcatch
 264  Aendern.Click
 265  TabFarben.OK
 266  Kontext "DocumentDraw"
 267  FormatArea
 268  Kontext
 269  Active.SetPage TabFarben
 270  Kontext "TabFarben"
 271  if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
 272     PrintLog "Changes in RGB done"
 273  else
 274     WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90  it is " +R.GetText + " " + G.GetText + " " + B.GetText
 275  end if
 276  Farbe.Select 10
 277  FarbName.SetText "Brighter"        '/// add a color ///'
 278  Hinzufuegen.Click
 279  Farbe.Select "Brighter"
 280  Loeschen.Click          '/// delete color ///'
 281  Kontext "Active"
 282  Active.Yes
 283  Kontext
 284  Active.SetPage TabFarben
 285  Kontext "TabFarben"
 286  Bearbeiten.Click         '/// edit color ///'
 287  Kontext  "FarbeDlg"
 288  FarbeDlg.OK
 289  sleep 2
 290  Kontext
 291  Active.SetPage TabFarben
 292  Kontext "TabFarben"
 293  TabFarben.OK
 294  FormatArea
 295  Kontext
 296  Active.SetPage TabFarben
 297  Kontext "TabFarben"
 298  TabFarben.OK
 299
 300  FormatArea
 301  Kontext
 302  Active.SetPage TabFarbverlaeufe
 303  Kontext "TabFarbverlaeufe"
 304  TabFarbverlaeufe.OK
 305  sleep 2
 306
 307 FormatArea
 308  sleep 2
 309  Kontext
 310  Active.SetPage TabTransparenz
 311  Kontext "TabTransparenz"
 312  KeineTransparenz.Check         '/// check if controls are disabled if transparence is disabled ///'
 313     Printlog "- No transparency is checked, all controls should be disabled."
 314   if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
 315   if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
 316   if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
 317   if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
 318   if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
 319   if MFRand.IsEnabled Then Warnlog "- Border enabled"
 320   if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
 321   if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
 322
 323  LineareTransparenz.Check        '/// check linear tranparency ///'
 324     Printlog "- Set transparency to linear, all controls should be enabled now"  '/// control if related controls are now enabled ///'
 325   sleep 1
 326   MFLinTransparenz.ToMax        '/// change values of controls ///'
 327    if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
 328   MFLinTransparenz.ToMin
 329    if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
 330    if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
 331    if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
 332    if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
 333    if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
 334    if MFRand.IsEnabled Then Warnlog "- Border enabled"
 335    if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
 336    if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
 337
 338  Transparenzverlauf.Check
 339     Printlog "- Gradient for transprency enabled"
 340   if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
 341   if TransparenzverlaufTyp.IsEnabled = "false"  Then Warnlog "- Gradient disabled"
 342   if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
 343   if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
 344   if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
 345   if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
 346   if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
 347   if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
 348
 349     Printlog "- Check if changed values are saved"
 350
 351   Zaehler=TransparenzverlaufTyp.GetItemCount
 352   for i=1 to Zaehler
 353       TransparenzverlaufTyp.Select i
 354       SetClipboard Transparenzverlauftyp.GetSelText
 355       TabTransparenz.OK
 356      sleep 2
 357     FormatArea
 358      sleep 1
 359       Kontext
 360       Active.SetPage TabTransparenz        '/// check if values are saved after closing and reopening dialog ///'
 361       Kontext "TabTransparenz"
 362        if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
 363    next i
 364   TransparenzverlaufTyp.Select 2
 365    if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
 366    if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
 367    MFWinkel.SetText "45"
 368    Winkel_1 = MFWinkel.GetText
 369    TabTransparenz.OK
 370    sleep 2
 371    FormatArea
 372    sleep 2
 373    Kontext
 374    Active.SetPage TabTransparenz
 375    Kontext "TabTransparenz"
 376     if TransparenzverlaufTyp.GetSelIndex <>2 Then
 377        Warnlog "- Second menu-item is not choosen"
 378     end if
 379     TransparenzverlaufTyp.Select 3
 380      if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
 381      if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
 382      if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
 383     sleep 1
 384     MFZentrumX.SetText "30"
 385     MFZentrumY.SetText "30"
 386     TabTransparenz.OK
 387     sleep 2
 388     FormatArea
 389     sleep 2
 390     Kontext
 391     Active.SetPage TabTransparenz
 392     Kontext "TabTransparenz"
 393      if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
 394      if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
 395     MFRand.SetText "10"
 396     MFStartwert.SetText "20"
 397     MFEndwert.SetText "30"
 398     TabTransparenz.OK
 399     sleep 2
 400     FormatArea
 401     sleep 2
 402     Kontext
 403     Active.SetPage TabTransparenz
 404     Kontext "TabTransparenz"
 405      if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
 406      if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
 407      if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
 408     TabTransparenz.OK
 409
 410  Call hCloseDocument          '/// close document ///'
 411
 412 endcase 'tdFormatArea1
 413