testautomation/graphics/optional/includes/impress/i_pengine.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: i_pengine.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 : Tests the shaddow-function on a picture
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 tiPenginefast
  41 '*
  42 '\*******************************************************************
  43
  44 testcase tiPenginefast
  45 '   dim i,t,q as integer
  46 '   dim e as string
  47    dim sFileName as string
  48
  49 '/// the Presentation-Engine consists of showing the presentation, with all it's effects. ///'
  50
  51 '/// Create a new presentation. ///'
  52     Call hNewDocument
  53     sleep 1
  54
  55
  56     '/// Open the test-file. ///'
  57     Call hDateiOeffnen (gTesttoolpath + "graphics\required\input\allshapes.odp") 'effects.odp")
  58
  59     '/// Start the slideshow. ///'
  60     CALL hTypeKeys "<F5>"
  61     sleep (5)
  62     kontext "DocumentPresentation"
  63     DocumentPresentation.TypeKeys "<SPACE>"
  64     '/// Wait for the presentation to reach a certain moment. ///'
  65     sleep (10)
  66     DocumentPresentation.TypeKeys "<SPACE>"
  67     sleep (7)
  68     DocumentPresentation.TypeKeys "<SPACE>"
  69     sleep (7)
  70     DocumentPresentation.TypeKeys "<SPACE>"
  71     sleep (7)
  72     '/// Press "Space" again, to continue with slide two. ///'
  73     DocumentPresentation.TypeKeys "<SPACE>"
  74     sleep (7)
  75     DocumentPresentation.TypeKeys "<SPACE>"
  76     sleep (7)
  77     DocumentPresentation.TypeKeys "<SPACE>"
  78     sleep (7)
  79     DocumentPresentation.TypeKeys "<SPACE>"
  80     sleep (7)
  81     '/// And press "Space" again, to exit the presentation-mode. ///'
  82     DocumentPresentation.TypeKeys "<SPACE>"
  83
  84     FileClose
  85
  86     Call hNewDocument
  87     sleep 1
  88     '/// Open the test-file. ///'
  89     Call hDateiOeffnen (gTesttoolpath + "graphics\required\input\effects.odp")
  90     '/// Start the slideshow. ///'
  91     CALL hTypeKeys "<F5>"
  92     sleep (200)
  93     '/// Press "Space" again, to continue with slide two. ///'
  94     kontext "DocumentPresentation"
  95     DocumentPresentation.TypeKeys "<SPACE>"
  96     sleep (40)
  97     printlog "End of first page."
  98     DocumentPresentation.TypeKeys "<SPACE>"
  99     sleep (12)
 100     printlog "End of second page."
 101     DocumentPresentation.TypeKeys "<SPACE>"
 102     sleep (25)
 103     printlog "End of third page."
 104     DocumentPresentation.TypeKeys "<SPACE>"
 105     sleep (15)
 106     printlog "End of fourth page."
 107     DocumentPresentation.TypeKeys "<SPACE>"
 108     sleep (2)
 109     printlog "End of fifth page."
 110     DocumentPresentation.TypeKeys "<SPACE>"
 111     printlog "End of sixth page."
 112     DocumentPresentation.TypeKeys "<SPACE>"
 113     sleep (5)
 114     printlog "End of seventh page."
 115     DocumentPresentation.TypeKeys "<SPACE>"
 116     sleep (1)
 117     printlog "End of eight page."
 118     DocumentPresentation.TypeKeys "<SPACE>"
 119     sleep (1)
 120     printlog "End of ninth page."
 121     DocumentPresentation.TypeKeys "<SPACE>"
 122     sleep (1)
 123     printlog "End of tenth page."
 124     DocumentPresentation.TypeKeys "<SPACE>"
 125     sleep (7)
 126     printlog "End of eleventh page."
 127     if DocumentPresentation.Exists then
 128         warnlog "DocumentPresentation shouldnt be visible right now."
 129         DocumentPresentation.TypeKeys "<SPACE>"
 130     else
 131         printlog "Presentation ended correctly."
 132         kontext "DocumentImpress"
 133     end if
 134
 135 '/// Insert a new slide. ///'
 136 '   InsertSlide
 137 '   sleep 2
 138 '   hTypekeys "<Pagedown>"
 139 '   sleep 2
 140
 141 '/// Menu: Slideshow: Check every menu-item. ///'
 142
 143 'Exists:
 144 ' #1 tSlideShowSlideShow
 145 ' #1 tSlideShowRehearseTimings
 146 ' #1 tSlideShowSlideShowSettings
 147 ' #1 tSlideShowCustomSlideShow
 148 ' #1 tSlideShowSlideTransition
 149 ' #1 tSlideShowShowHideSlide
 150
 151 '   Slideshow menu 1 - Slide show
 152 '   Slideshow menu 2 - Slide show settings
 153 '   Slideshow menu 3 - Rehearse timings
 154 '   Slideshow menu 4 - Interaction
 155 '   Slideshow menu 6 - Slide Transition
 156 '   Slideshow menu 7 - Show / Hide slide
 157 '   Slideshow menu 8 - Custom Slide show
 158
 159
 160 'Printlog " Here starts the test "
 161
 162 'Presentation - Start / Stop. Different ways to do it.
 163 'Presentation - Effects.
 164 'LeftWindow
 165
 166 '/// Slideshow Settings: Range: test all three alternatives. ///'
 167 '/// Test if the Slideshow-types (Default, Window, Auto) works. ///'
 168 '/// Check if the checkboxes works. ///'
 169 '/// Close dialogue. ///'
 170 '/// Add an object. ///'
 171 '/// Custom Animation: Add an Animation to the object. ///'
 172 '/// Run the slideshow. ///'
 173
 174 '/// Change to the next effect and continue through every animation in ///'
 175 '/// Entrance, Emphasis, Exit and Motion Paths. ///'
 176 '/// While testing - test the speed-choices for every kind of animation. ///'
 177 '/// Check if the "Change" and "Remove"-buttons. ///'
 178 '/// Check the Start, "Direction" and "Speed" variables. ///'
 179 '/// Add two effects to one object and change the order. ///'
 180 '/// Try the Play and "Slide Show"-button. ///'
 181 '/// Try the Automatic preview-button. ///'
 182
 183 '/// Slidetransition. ///'
 184 '/// Go through every kind of effect, speed, and sound. ///'
 185 '/// Check loop until next sound. ///'
 186 '/// Check the Advance slide with mouseclick-function. ///'
 187 '/// Check the "Apply to all slides", "Play", and "Slide Show"-buttons. ///'
 188 '/// Check Automatic preview. ///'
 189
 190 '/// Some effects doesnt have a right / left orientation. Test these. ///'
 191 '/// Possibility: check random effects and see if something hangs. ///'
 192
 193 '/// Load/Save-test: Does the settings last? ///'
 194
 195 '/// Are two different objects dependant or independent from each other? ///'
 196
 197 '/// Close Application ///'
 198     Call hCloseDocument
 199     Printlog "Finished Optional-test for Presentation-Engine"
 200 endcase
 201
 202
 203 testcase tSlideShowInteraction
 204    Dim Datei$
 205    Dim i as integer
 206    Dim Zaehler as integer
 207    dim b115364 as boolean
 208
 209    Datei$ =ConvertPath (gOfficePath + "user\work\interac.sxi")
 210
 211 '   '/// save file as presentation with name '"user\\work\\diashow.sxi")' ///'
 212 '   hFileSaveAsWithFilterKill ( sFile , gImpressFilter, FALSE )
 213 '   Printlog "saved presetation: '" + sFile + "'"
 214
 215    '/// open application ///'
 216    Call hNewDocument
 217    sleep 5
 218    setStartCurrentPage(FALSE)   '/// Set "start with current page to OFF ///'
 219
 220    '/// call 'Insert->Slide' three times and name the slides 2, 3, 4 and create a rectangle on it  ///'
 221    '///+ we now have 4 slides ?! :-) ///'
 222    for i = 2 to 4
 223       InsertSlide
 224       sleep 2
 225       hTypekeys "<Pagedown>"
 226       sleep 2
 227       Call hRechteckErstellen (i*10,i*10,i*20,i*20)
 228       sleep 2
 229    next i
 230
 231    '///  check state of navigator ! expected: closed -> open navigator ///'
 232    Kontext "Navigator"
 233    if Navigator.exists then
 234       warnlog "Navigator: already open :-("
 235    else
 236       printlog "Navigator: NOT available :-( will be opened now!"
 237       ViewNavigator
 238    endif
 239    sleep 3
 240
 241    '/// Slide Show->Interaction ///'
 242    SlideShowInteraction
 243       Kontext "TabInteraktion"
 244       sleep 1
 245       if AktionBeiMausklick.GetItemCount = 13 Then
 246          Printlog "- List is complete"
 247       else
 248          Warnlog "- Number of possible actions is wrong. It should be: 13, but it is: " + AktionBeiMausklick.GetItemCount
 249       end if
 250       sleep 1
 251
 252       AktionBeiMausklick.Select 1                       'Keine Aktion bei Mausclick
 253          Printlog (AktionBeiMausklick.GetSelText + " chosen")
 254          If Durchsuchen.IsVisible then Warnlog "- Control should be invisible because AktionBeiMausklick = " + AktionBeiMausKlick.GetSelText
 255          sleep 1
 256
 257       Kontext "TabInteraktion"
 258       AktionBeiMausklick.Select 2                       'Sprung zur vorhergehenden Seite
 259          Printlog (AktionBeiMausklick.GetSelText + " chosen")
 260          if Durchsuchen.IsVisible Then Warnlog "- Control should be invisible, beacause Action = " + AktionBeiMausKlick.GetSelText
 261       TabInteraktion.OK
 262       sleep 2
 263    Kontext "DocumentImpress"
 264    gMouseClick 90,90
 265    sleep 1
 266    gMouseClick 50,50
 267     sleep 2
 268
 269    Kontext "NavigatorDraw"
 270        sleep 2
 271       if Not Liste.GetSelIndex = 3 Then
 272          Warnlog "- jumped to wrong slide"
 273       else
 274          Printlog "- jumped to correct slide"
 275       end if
 276       sleep 1
 277
 278    Kontext "DocumentImpress"
 279    EditSelectAll
 280    sleep 1
 281
 282    SlideShowInteraction
 283       sleep 2
 284       Kontext "TabInteraktion"
 285       AktionBeiMausklick.select 3                       'Sprung zur naechsten Seite
 286          Printlog (AktionBeiMausKlick.GetSelText + " chosen")
 287       TabInteraktion.OK
 288       sleep 1
 289
 290    Kontext "DocumentImpress"
 291    gMouseClick 90,90
 292    sleep 2
 293    gMouseClick 50,50
 294    Kontext "NavigatorDraw"
 295       if Liste.GetSelIndex <> 4 Then
 296          Warnlog "- Jumped to wrong slide"
 297       else
 298          Printlog " Jumped to correct slide"
 299       end if
 300       sleep 1
 301    kontext "DocumentImpress"
 302    EditSelectAll
 303    sleep 1
 304
 305    SlideShowInteraction
 306       sleep 1
 307       Kontext "TabInteraktion"
 308       AktionBeiMausklick.select 4                        'Sprung zur ersten Seite
 309          Printlog AktionBeiMausKlick.GetSelText
 310          sleep 1
 311       TabInteraktion.OK
 312       sleep 1
 313    Kontext "DocumentImpress"
 314    gMouseClick 90,90
 315    gMouseClick 50,50
 316    Kontext "NavigatorDraw"
 317       if Liste.GetSelIndex <> 1 Then Warnlog "- jumped to wrong slide"
 318       Letzte.Click 'Liste.Select 4
 319    Kontext "DocumentImpress"
 320    EditSelectAll
 321    sleep 2
 322
 323     try
 324         SlideShowInteraction
 325     catch
 326         warnlog "SlideshowInteraction diasabled :-("
 327     endcatch
 328       Kontext "TabInteraktion"
 329       AktionBeiMausklick.select 5                       'Sprung zur letzten Seite
 330          printlog AktionBeiMausKlick.GetSelText
 331       TabInteraktion.OK
 332       sleep 1
 333    Kontext "NavigatorDraw"
 334       if Not Liste.GetSelIndex = 1 Then Warnlog "- jumped to wrong slide"
 335
 336    kontext "DocumentImpress"
 337    Call hRechteckErstellen 20,20,50,50
 338    sleep 1
 339    EditSelectAll
 340    sleep 1
 341     try
 342         FormatGroupGroup
 343     catch
 344         warnlog "GROUP?"
 345     endcatch
 346    sleep 1
 347
 348    SlideShowInteraction
 349       Kontext "TabInteraktion"
 350       AktionBeiMausklick.select 6                       'Sprung zu Seite oder Objekt
 351          printlog AktionBeiMausKlick.GetSelText
 352          sleep 2
 353          if Not ListeSprungZuSeiteObjekt.IsVisible Then Warnlog " list seems to be invisible"
 354          Seite.SetText S2
 355          Suchen.Click
 356             if ListeSprungZuSeiteObjekt.GetSelIndex <> 3 Then Warnlog " Search does not work"
 357             printlog ListeSprungZuSeiteObjekt.GetSelIndex
 358       TabInteraktion.OK
 359       sleep 1
 360
 361    Kontext "DocumentImpress"
 362    gMouseClick 90,90
 363    gMouseClick 25,25,
 364    sleep 2
 365    Kontext "NavigatorDraw"
 366       if Liste.GetSelIndex <> 2 Then Warnlog "- Jumped to wrong destination"
 367       printlog Liste.GetSelIndex
 368       Liste.Select 4
 369    Kontext "DocumentImpress"
 370    EditSelectAll
 371    sleep 1
 372
 373        Kontext "DocumentImpress"
 374        EditSelectAll
 375         sleep 1
 376         SlideShowInteraction
 377          Kontext "TabInteraktion"
 378          sleep 1
 379          AktionBeiMausKlick.Select 7                    'Sprung zu Dokument
 380            Printlog AktionBeiMausKlick.GetSelText + " chosen"
 381            try
 382               Durchsuchen.Click
 383               sleep 1
 384               Kontext "OeffnenDlg"
 385               sleep 1
 386                Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\recht_49.sxi")
 387               Oeffnen.Click
 388               sleep 10
 389               ' check if the document is writable
 390               if fIsDocumentWritable = false then
 391                  ' make the document writable and check if it's succesfull
 392                  if fMakeDocumentWritable = false then
 393                     warnlog "The document can't be make writeable. Test stopped."
 394                     goto endsub
 395                  endif
 396               endif
 397            catch
 398               Warnlog "- Search button could not be accessed"
 399            endcatch
 400          sleep 1
 401          Kontext "TabInteraktion"
 402          sleep 1
 403          TabInteraktion.OK
 404          sleep 3
 405          Kontext "DocumentImpress"
 406          DocumentImpress.MouseDown 90,90
 407          DocumentImpress.MouseUp 90,90
 408         sleep 2
 409          Kontext "DocumentImpress"
 410          DocumentImpress.Mousedown 30,30
 411      kontext
 412      b115364 = false
 413      if messagebox.exists then
 414          printlog "baeh: '" + messagebox.gettext + "'"
 415          try
 416              messagebox.ok  ' was default in so7
 417          catch
 418              warnlog "behaviour changed #115364# mother document gets closed :-("
 419              if fileExists(ConvertPath (gOfficePath + "user\work\bug115364.sxi")) then
 420                  kill ConvertPath (gOfficePath + "user\work\bug115364.sxi")
 421              endif
 422              messagebox.yes ' don't save changes, before going on!
 423              b115364 = true
 424              kontext "SpeichernDlg"
 425              Dateiname.setText ConvertPath (gOfficePath + "user\work\bug115364.sxi")
 426              Speichern.click
 427              sleep 10
 428          endcatch
 429     else
 430         printlog "OK :-)"
 431     endif
 432     Kontext "DocumentImpress"
 433     DocumentImpress.MouseUp 30,30
 434
 435     try
 436         ViewDrawing
 437         sleep 1
 438         Kontext "DocumentImpress"
 439         DocumentImpress.MouseDown 25,25
 440         DocumentImpress.MouseUp 25,25
 441     catch
 442         Warnlog "- Jump to document did not work or preview window did not appear"
 443     endcatch
 444     sleep 2
 445     if (not b115364) then
 446         Call hCloseDocument
 447     else
 448         Call hCloseDocument
 449         hDateiOeffnen (ConvertPath (gOfficePath + "user\work\bug115364.sxi"))
 450     endif
 451     sleep 5
 452
 453    Kontext "NavigatorDraw"
 454       sleep 1
 455       Naechste.click
 456
 457    Kontext "DocumentImpress"
 458    EditSelectAll
 459    sleep  1
 460
 461    SlideShowInteraction
 462       Kontext "TabInteraktion"
 463       sleep 1
 464       AktionBeiMausKlick.Select 9
 465          Printlog AktionBeiMausKlick.GetSelText + " chosen"
 466          sleep 1
 467       Tabinteraktion.OK
 468    sleep 2
 469
 470    SlideShowInteraction
 471       Kontext "TabInteraktion"
 472       sleep 1
 473       if not AktionBeiMausKlick.GetSelIndex = 9 Then Warnlog "- Not the right action chosen"
 474       sleep 1
 475       AktionBeiMausKlick.Select 9                          'Klang abspielen
 476            Printlog  AktionBeiMausKlick.GetSelText + "- chosen"
 477          sleep 1
 478       Tabinteraktion.OK
 479       sleep 2
 480          Kontext "NavigatorDraw"
 481            sleep 1
 482            Liste.Select 2
 483            Kontext "DocumentImpress"
 484             EditSelectAll
 485             sleep  1
 486            SlideShowInteraction
 487             Kontext "TabInteraktion"
 488             sleep 1
 489              Durchsuchen.Click
 490              sleep 1
 491              Kontext "OeffnenDlg"
 492              sleep 1
 493              Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\blip.wav")
 494              sleep 1
 495              Oeffnen.Click
 496                 sleep 1
 497                 Kontext "Active"
 498                  if Active.Exists Then
 499                     Warnlog Active.GetText + "  Gallery might be empty"
 500                     Active.OK
 501                     sleep 1
 502                     Kontext "OeffnenDlg"
 503                     OeffnenDlg.Cancel
 504                     sleep 1
 505                  end if
 506                 Kontext "TabInteraktion"
 507                 SetClipboard Klangwahl.GetText
 508              TabInteraktion.OK
 509              sleep 1
 510              SlideShowInteraction
 511              Kontext "TabInteraktion"
 512              sleep 1
 513              if Klangwahl.GetText <> GetClipboardText then Warnlog "- Not the right sound chosen"
 514              TabInteraktion.OK
 515              sleep 1
 516              InsertGraphicsFromFile
 517               sleep 1
 518              Kontext "GrafikeinfuegenDlg"
 519              sleep 1
 520              if Verknuepfen.IsChecked then Verknuepfen.UnCheck
 521              Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
 522              Oeffnen.Click
 523              sleep 3
 524              Kontext "NavigatorDraw"
 525              sleep 1
 526              Liste.Select 4
 527              sleep 1
 528              SlideShowInteraction
 529              Kontext "TabInteraktion"
 530              sleep 1
 531              AktionBeiMausKlick.Select 11                       'Objektaktion ausfuehren
 532                 Printlog  AktionBeiMausKlick.GetSelText + " chosen"
 533              sleep 1
 534             Zaehler=Effekt.GetItemCount
 535          for i=1 to Zaehler
 536             Effekt.Select i
 537             Printlog Effekt.GetSelText + " chosen"
 538             if i=1 Then
 539                if Langsam.IsEnabled Then Warnlog "- Control should not be enabled, because no effect chosen"
 540                if Mittel.IsEnabled Then Warnlog "- Control should not be enabled, because no effect chosen"
 541                if Schnell.IsEnabled Then Warnlog "- Control should not be enabled, because no effect chosen"
 542             end if
 543             sleep 1
 544
 545             TabInteraktion.OK
 546             sleep 1
 547             SlideShowInteraction
 548             Kontext "TabInteraktion"
 549             sleep 1
 550          next i
 551          TabInteraktion.OK
 552          sleep 1
 553    SlideShowInteraction
 554       Kontext "TabInteraktion"
 555       sleep 1
 556       AktionBeiMausKlick.Select 10                       'Objekt ausblenden
 557          Printlog AktionBeiMausKlick.GetSelText + " chosen"
 558          ListeObjektAktion.Select 1
 559          sleep 1
 560       TabInteraktion.OK
 561    sleep 1
 562    gMouseClick 90,90
 563    sleep 1
 564    gMouseClick 55,55
 565    sleep 1
 566    Kontext "DocumentImage"
 567
 568    SlideShowInteraction
 569       Kontext "TabInteraktion"
 570       sleep 1
 571       AktionBeiMausKlick.Select 13                      'Makro
 572          Printlog AktionBeiMausKlick.GetSelText + " chosen"
 573          sleep 2
 574          Durchsuchen.Click
 575             sleep 5
 576             Kontext "Makro"
 577             sleep 5
 578             Makro.Cancel
 579          sleep 2
 580       Kontext "TabInteraktion"
 581       sleep 1
 582       TabInteraktion.OK
 583       sleep 3
 584
 585    SlideShowInteraction
 586       Kontext "TabInteraktion"
 587       sleep 2
 588       if not AktionBeiMausKlick.GetSelIndex = 12 Then Warnlog "- Wrong action used"
 589       sleep 1
 590       AktionBeiMausKlick.Select 14           'Praesentation beenden
 591          Printlog AktionBeiMausKlick.GetSelText
 592       Tabinteraktion.OK
 593       sleep 1
 594
 595    SlideShowPresentationSettings
 596       Kontext "Bildschirmpraesentation"
 597       if not Fenster.IsChecked Then Fenster.Check
 598       BildschirmPraesentation.OK
 599    sleep 2
 600    Kontext "DocumentImpress"
 601    DocumentImpress.TypeKeys "<MOD1 F2>"
 602       sleep 5
 603       Kontext "DocumentPresentation"
 604       sleep 2
 605       DocumentPresentation.MouseDown 50,50
 606       DocumentPresentation.MouseUp 50,50
 607       sleep 5
 608       try
 609          Kontext "DocumentImpress"
 610          EditSelectAll
 611          Printlog "- Slideshow ended at right point"
 612       catch
 613          Warnlog "- Program is still in slideshow mode"
 614          Kontext "DocumentPresentation"
 615          DocumentPresentation.TypeKeys "<ESCAPE>"
 616       endcatch
 617
 618    Kontext "DocumentImpress"
 619    DocumentImpress.TypeKeys "<SHIFT MOD1 F5>"
 620    sleep 3
 621    setStartCurrentPage(TRUE)   '/// Set "start with current page to ON = Default ///'
 622    Call hCloseDocument
 623 endcase
 624
 625 '   Slideshow menu 5 - Custom Animation
 626
 627 testcase tSlideShowCustomAnimation
 628     dim bError as boolean
 629
 630     '/// open application ///'
 631     Call hNewDocument
 632     '/// create textbox with text ///'
 633     Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
 634     '/// Slide Show->Custom Animation... ///'
 635     SlideShowCustomAnimation
 636         Kontext "Tasks"
 637         '/// click button 'Add...' ///'
 638         EffectAdd.click
 639         '/// Dialog 'Custom Animation' comes up ///'
 640         kontext
 641         '/// Switch to TabPage: Entrance ///'
 642         active.setPage(TabEntrance)
 643         kontext "TabEntrance"
 644         if TabEntrance.exists(5) then
 645             DialogTest(TabEntrance)
 646             '/// select in the listbox 'Effects' the second entry ///'
 647             Effects.select(2)
 648             Speed.getItemCount
 649             AutomaticPreview.unCheck
 650             sleep 1
 651             AutomaticPreview.Check
 652             kontext
 653             '/// Switch to TabPage: Emphasis ///'
 654             active.setPage(TabEmphasis)
 655             kontext "TabEmphasis"
 656             if TabEmphasis.exists(5) then
 657                 DialogTest(TabEmphasis)
 658             else
 659                 bError = true
 660                 warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
 661             endif
 662             kontext
 663             '/// Switch to TabPage: Exit ///'
 664             active.setPage(TabExit)
 665             kontext "TabExit"
 666             if TabExit.exists(5) then
 667                 DialogTest(TabExit)
 668             else
 669                 bError = true
 670                 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work."
 671             endif
 672             kontext
 673             '/// Switch to TabPage: Motion Paths ///'
 674             active.setPage(TabMotionPaths)
 675             kontext "TabMotionPaths"
 676             if TabMotionPaths.exists(5) then
 677                 DialogTest(TabMotionPaths)
 678                 Effects.select(2)
 679             else
 680                 bError = true
 681                 warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
 682             endif
 683             '/// Close dialog 'Custom Animation' with 'OK' ///'
 684             TabMotionPaths.OK
 685             bError = false
 686         else
 687             bError = true
 688             warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work."
 689         endif
 690         Kontext "Tasks"
 691         if (NOT bError) then
 692             '/// click button 'Change...' ///'
 693             EffectChange.click
 694             '/// Dialog 'Custom Animation' comes up ///'
 695             kontext
 696             '/// Switch to TabPage: Entrance ///'
 697             active.setPage(TabEntrance)
 698             kontext "TabEntrance"
 699             if (NOT TabEntrance.exists(5)) then
 700                 warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work."
 701             endif
 702             TabEntrance.cancel
 703             Kontext "Tasks"
 704             EffectStart.getItemCount
 705             if EffectProperty.isEnabled then
 706                 EffectProperty.getItemCount
 707             endif
 708             '/// CLick on button '...' (Options) ///'
 709             EffectOptions.click
 710             kontext "TabEffect"
 711             if TabEffect.exists(5) then
 712                 dialogTest(TabEffect)
 713                 Sound.getItemCount
 714                 AfterAnimation.getItemCount
 715                 '/// switch to TabPage 'Timing' ///'
 716                 Kontext
 717                 active.setPage TabTiming
 718                 kontext "TabTiming"
 719                 if TabTiming.exists(5) then
 720                     dialogTest(TabTiming)
 721                     TimingStart.getItemCount
 722                     Delay.getText
 723                     Speed.getItemCount
 724                     Repeat.getItemCount
 725                     Rewind.ischecked
 726                     TriggerAnimate.isChecked
 727                     TriggerStart.isChecked
 728                     Shape.getItemCount
 729                 else
 730                     warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work."
 731                 endif
 732                 '/// switch to TabPage 'Timing' ///'
 733                 Kontext
 734                 active.setPage TabTextAnimation
 735                 kontext "TabTextAnimation"
 736                 if TabTextAnimation.exists(5) then
 737                     dialogTest(TabTextAnimation)
 738                     GroupText.getItemCount
 739                     AnimateAttachedShape.isChecked
 740                     TabTextAnimation.cancel
 741                 else
 742                     warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work."
 743                 endif
 744             else
 745                 warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work."
 746             endif
 747             Kontext "Tasks"
 748             EffectSpeed.getItemCount
 749             EffectList.getItemCount
 750             EffectPlay.click
 751             EffectSlideShow.click
 752             sleep 1
 753             kontext "DocumentPresentation"
 754             if DocumentPresentation.exists (5) then
 755                 printlog "Presentation started :-)"
 756                 DocumentPresentation.typeKeys "<escape>"
 757             else
 758                 warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!"
 759             endif
 760             kontext "Tasks"
 761             EffectAutomaticPreview.isChecked
 762             '/// click button 'Remove' ///'
 763             EffectRemove.click
 764         endif
 765     '/// close application ///'
 766     Call hCloseDocument
 767 endcase
 768