testautomation/graphics/optional/includes/impress/i_slideshow2.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_slideshow2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
  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 '*
  40 ' #1 tPraesentationAnimation
  41 ' #1 tPraesentationEffekt
  42 ' #1 tSlideShowInteraction
  43 ' #1 tAendernObjektBenennen
  44 ' #1 tSlideshowBackgroundAllSlides
  45 ' #1 tSlideshowBackgroundSelectedSlide
  46 '*
  47 '\******************************************************************
  48
  49 testcase tPraesentationAnimation
  50     Dim i
  51     Printlog "- Slideshow/Animation"
  52
  53  Call hNewDocument                                                                      '/// new document  ///'
  54   sleep 2
  55     InsertGraphicsFromFile                                                              '/// insert graphic ///'
  56      Kontext "OeffnenDlg"
  57      Dateiname.SetText ConvertPath (gTesttoolPath + "global/input/graf_inp/desp.bmp")
  58      sleep 2
  59      Oeffnen.Click
  60      sleep 2
  61
  62   gMouseClick 90,90                                                                     '/// deselect graphic ///'
  63
  64   InsertGraphicsFromFile                                                                '/// insert 2nd graphic ///'
  65   Kontext "OeffnenDlg"
  66   Dateiname.SetText ConvertPath (gTesttoolPath + "global/input/graf_inp/borabora.jpg")
  67   sleep 2
  68   Oeffnen.Click
  69   sleep 2
  70
  71   Call hTypekeys "<TAB>"
  72
  73   Opl_SD_EffekteZulassen                                                                '/// open animation dialogue ///'
  74   Kontext "Animation"
  75
  76     for i=1 to 10
  77         BildAufnehmen.Click                                                             '/// add graphic 10 times ///'
  78     next i
  79
  80     sleep 1
  81      if AnzahlBilder.GetText <> "10" Then                                               '/// get number of frames (should be 10)  ///'
  82         WarnLog "  - Adding pictures did not work"
  83      else
  84         PrintLog "  Pictures added"
  85      end if
  86
  87      if AlleAufnehmen.IsEnabled Then WarnLog "  - Add all should not be enabled because only 1 object is selected"
  88
  89   Kontext "DocumentImpress"
  90   EditSelectAll                                                 '/// select both graphics in document  ///'
  91
  92   Kontext "Animation"
  93
  94     for i=1 to 5
  95     printlog i
  96         AlleAufnehmen.Click                                                             '/// add them 5 times (10 frames) ///'
  97     next i
  98
  99     sleep 1
 100      if AnzahlBilder.GetText <> "20" Then                                               '/// compare total numbers of frame ///'
 101         WarnLog "  - Adding pics does not work"
 102      else
 103         PrintLog "  all pics added"
 104      end if
 105
 106   ErstesBild.Click                                                                      '/// jump to 1st frame ///'
 107
 108      if AnzahlBilder.GetText <> "1" Then                                                '/// get number index of selected frame ///'
 109         WarnLog "  - Jump back to beginning does not work"
 110      else
 111         PrintLog "  Jump back to beginning works"
 112      end if
 113
 114   LetztesBild.Click                                                                     '/// jump to last frame ///'
 115
 116      if AnzahlBilder.GetText <> "20" Then                                               '/// control number index of selected frame ///'
 117         WarnLog "  - Jump to end does not work"
 118      else
 119         PrintLog "  Jumped to end"
 120      end if
 121    sleep 1
 122   Abspielen.Click                                                                       '/// play animation ///'
 123     sleep 10
 124   Kontext "DocumentImpress"
 125   EditSelectAll                                                 '/// delete graphics in document  ///'
 126   DocumentImpress.TypeKeys "<DELETE>"
 127   sleep 2
 128   Kontext "Animation"
 129   Erstellen.Click                                                                       '/// create animation ///'
 130   sleep 10
 131
 132   Kontext "DocumentImpress"
 133     try
 134        EditCopy                                                                         '/// try to copy created animation to make sure it is created ///'
 135        PrintLog "  Animation created"
 136     catch
 137        WarnLog "  - Animation not created"
 138     endcatch
 139
 140   Kontext "Animation"
 141
 142      if AnimationsgruppeGruppenobjekt.IsChecked = True Then                             '/// set duration time of frames ///'
 143         try
 144             AnzeigedauerProBild.SetText "1"
 145             WarnLog "  - Control should be disabled"
 146         catch
 147             PrintLog "  Control disabled because Groupobjekt = " + AnimationsgruppeGruppenobjekt.IsChecked
 148         endcatch
 149      end if
 150
 151   AnimationsgruppeBitmapobjekt.Check                                                    '/// check group object ///'
 152
 153   AnzeigedauerProBild.SetText "3"                                                       '/// set frame visibility time to 3 ///'
 154   SetClipboard AnzeigedauerProBild.GetText
 155   AnzeigedauerProBild.More                                                              '/// raise value for frame time ///'
 156    if AnzeigedauerProBild.GetText<> GetClipboardText Then
 157       PrintLog "  Duration per frame works"
 158    else
 159       WarnLog "  - Duration could not be changed"
 160    end if
 161
 162   Dim Zaehler
 163   Zaehler = AnzahlDurchlaeufe.GetItemCount                                              '/// test different settings for pass amount ///'
 164    for i=1 to Zaehler
 165        AnzahlDurchlaeufe.Select i
 166    next i
 167   PrintLog "  Number of loops is set"
 168
 169   Dim ZaehlerAnpassung
 170   ZaehlerAnpassung=Anpassung.GetItemCount
 171    for i=1 to ZaehlerAnpassung
 172        Anpassung.Select i
 173    next i
 174
 175  BildLoeschen.Click                                                                     '/// delete 1 frame ///'
 176   if AnzahlBilder = "20" Then
 177      WarnLog "  - Deleting pictures does not work"
 178   else
 179      PrintLog "  Picture No.20 deleted"
 180   end if
 181
 182  AlleLoeschen.Click                                                                     '/// delete all frames ///'
 183  Kontext "Active"
 184  Active.Yes
 185  sleep 3
 186
 187  Kontext "Animation"
 188   if Abspielen.IsEnabled = true Then                                                    '/// check if play button is still active ///'
 189     WarnLog "  - Not all pics are deleted"
 190   else
 191     PrintLog "  All pics deleted"
 192   end if
 193  sleep 2
 194  Animation.Close                                                                        '/// close animation flyer ///'
 195  sleep 2
 196  Call hCloseDocument                                                                    '/// close document  ///'
 197 endcase
 198
 199 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 200
 201 testcase tPraesentationEffekt
 202     qaerrorlog "Test not yet ready."
 203     goto endsub
 204     Printlog "- Slideshow/Effect"
 205  Dim i
 206  Dim j
 207  Dim k
 208  Dim l
 209  Dim m
 210  Dim n
 211  Dim Zaehler
 212  Dim ZaehlerKmh
 213  Dim ZaehlerText
 214  Dim ZaehlerTon
 215  Dim Zufall
 216  Call hNewDocument                                                                      '/// new document  ///'
 217   '///  check state of navigator ! expected: closed ///'
 218    Kontext "Navigator"
 219    if Navigator.exists then
 220       '///+ close navigator ! ///'
 221       Navigator.Close
 222       Warnlog "Navigator was open. Check earlier tests. Now closed."
 223    else
 224       printlog "Navigator: NOT available. Good."
 225    endif
 226  sleep 2
 227  kontext "DocumentImpress"
 228  gMouseClick 50,50
 229  hRechteckErstellen (20,20,50,50)                                                       '/// create rectangle ///'
 230   sleep 3
 231   Kontext "Effekt"
 232     Printlog "  - Test effects"
 233   gMouseClick 90,90                                                                     '/// deselect rectangle ///'
 234   sleep 1
 235   DocumentImpress.TypeKeys "<TAB>"                                                      '/// select rectangle  ///'
 236   sleep 1
 237   DocumentImpress.TypeKeys "<F2>"                                                       '/// go into text edit mode (F2) ///'
 238   sleep 1
 239   DocumentImpress.TypeKeys "test text to test text effects"                             '/// type text into the rectangle ///'
 240   sleep 1
 241   DocumentImpress.TypeKeys "<ESCAPE>"
 242   sleep 2
 243   DocumentImpress.TypeKeys "<TAB>"
 244   sleep 1
 245   SlideShowEffects
 246   Kontext "Effekt"
 247   sleep 3
 248   Effekte.Click
 249   Zaehler=Effekteliste.GetItemCount
 250     for i=2 to Zaehler                              '/// Start from the second entry since the first one is "No effect" ///'
 251     Effekteliste.Select i
 252     SetClipboard Effekteliste.GetSelText
 253     Effekt.TypeKeys "<TAB>"
 254     Effekteauswahl.TypeKeys "<RIGHT>" ,2
 255     sleep 1
 256     Zuweisen.Click
 257     sleep 1
 258     Effekt.Close
 259     sleep 1
 260     PraesentationEffekt
 261     Kontext "Effekt"
 262     sleep 1
 263      if GetClipboardText<>Effekteliste.GetSelText Then Warnlog "  - Invisible color not changed"
 264     sleep 1
 265     next i
 266         sleep 1
 267     Printlog "  - Test speed setting"
 268         sleep 1
 269   Texteffekte.Click
 270
 271   sleep 1
 272   ZaehlerKmh=Geschwindigkeit.GetItemCount
 273     for j=1 to ZaehlerKmh
 274     Geschwindigkeit.Select j
 275     SetClipboard Geschwindigkeit.GetSelText
 276     Zuweisen.Click
 277     Effekt.Close
 278     sleep 1
 279     SlideShowEffects
 280     Kontext "Effekt"
 281     sleep 1
 282      if GetClipboardText <> Geschwindigkeit.GetSelText Then Warnlog "  - Speed setting did not change"
 283     next j
 284     Printlog "  - Test text effects"
 285   Texteffekte.Click
 286   sleep 1
 287   ZaehlerText=TexteffekteListe.GetItemCount
 288     for k=1 to ZaehlerText
 289     TexteffekteListe.Select k
 290     SetClipboard TexteffekteListe.GetSelText
 291         Effekt.TypeKeys "<TAB>"
 292     Texteffektauswahl.TypeKeys "<RIGHT>" ,2
 293     Zuweisen.Click
 294     sleep 1
 295     Effekt.Close
 296     gMouseClick 90,90
 297     sleep 2
 298     gmouseClick 40,40
 299     PraesentationEffekt
 300     Kontext "Effekt"
 301     sleep 1
 302     Texteffekte.Click
 303     sleep 1
 304     next k
 305     Printlog "  - Test invisible color"
 306   Effekte.Click
 307   Effekteliste.Select 1
 308   Effekteauswahl.TypeKeys "<RIGHT>" ,2
 309   Zuweisen.Click
 310   sleep 2
 311    try
 312       Extras.Click
 313    catch
 314       Warnlog "- Extras Button not active"
 315    endcatch
 316   sleep 1
 317   randomize
 318   Zufall=((2*Rnd)+1)
 319     for l=1 to 5
 320         if (NOT Abblendfarbe.IsEnabled) then
 321            MitFarbeAbblenden.Click
 322         endif
 323         sleep 1
 324          if Abblendfarbe.IsEnabled = False Then Warnlog "  - Control should not be enabled"
 325              sleep 1
 326         Zuweisen.Click
 327             Effekt.Close
 328         SlideShowEffects
 329         Kontext "Effekt"
 330         sleep 1
 331         Effekte.Click
 332         Effekteliste.Select 1
 333         Effekteauswahl.TypeKeys "<RIGHT>" ,3
 334         try
 335             Zuweisen.Click
 336         catch
 337             Effekteauswahl.TypeKeys "<RIGHT>"
 338             Zuweisen.Click
 339         endcatch
 340         sleep 2
 341         Extras.Click
 342     next l
 343     Printlog "  - Test blend with color"
 344   MitFarbeAbblenden.Click
 345     try
 346        for m=1 to 5
 347            sleep 2
 348            Abblendfarbe.Select Zufall
 349            SetClipboard Abblendfarbe.GetSelText
 350            Zuweisen.Click
 351        next m
 352     catch
 353        MitFarbeAbblenden.Click
 354       for m=1 to 5
 355            sleep 2
 356            Abblendfarbe.Select Zufall
 357            SetClipboard Abblendfarbe.GetSelText
 358            Zuweisen.Click
 359        next m
 360     endcatch
 361     Printlog "  - Test order"
 362   Effekte.Click
 363   Effekteliste.Select 2
 364   Zuweisen.Click
 365   Reihenfolge.Click
 366   sleep 1
 367     Printlog "  - Test preview"
 368   Vorschaufenster.Click
 369   sleep 1
 370    Kontext "Vorschau"
 371     if Vorschau.Exists = False Then Warnlog "  - Preview window does not exist"
 372     Vorschau.Close
 373   Kontext "Effekt"
 374   Effekte.Click
 375   UseBindings
 376   sleep 1
 377   Extras.Click
 378   sleep 1
 379   if NOT klang.Exists then
 380      warnlog "- Control Sound does not exist"
 381   end if
 382   if Klangliste.Exists = false Then Klang.Click
 383   sleep 1
 384   ZaehlerTon = Klangliste.GetItemCount
 385     for n=1 to ZaehlerTon
 386
 387     Klangliste.Select n
 388         SetClipboard Klangliste.GetSelText
 389     VollstaendigAbspielen.Click
 390     Effekt.Close
 391     sleep 1
 392     Kontext "DocumentImpress"
 393     gMouseClick 40,40
 394     sleep 1
 395     PraesentationEffekt
 396     Kontext "Effekt"
 397     sleep 1
 398     Effekte.Click
 399     sleep 1
 400     Extras.Click
 401      if Klangliste.IsVisible = False Then Klang.Click
 402     next n
 403   Effekt.Close
 404  sleep 1
 405  Call hCloseDocument
 406 endcase
 407
 408 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 409
 410 testcase tSlideShowInteraction
 411    Dim Datei$
 412    Dim i as integer
 413    Dim Zaehler as integer
 414    dim b115364 as boolean
 415
 416    Datei$ = ConvertPath (gOfficePath + "user\work\interac.odp")
 417
 418    '/// open application ///'
 419    Call hNewDocument
 420    sleep 5
 421    setStartCurrentPage(TRUE)   '/// Set "start with current page to ON ///'
 422
 423    '/// call 'Insert->Slide' three times and name the slides 2, 3, 4 and create a rectangl� on it  ///'
 424    '///+ we now have 4 slides ?! :-) ///'
 425    Kontext "DocumentImpress"
 426    for i = 2 to 4
 427       InsertSlide
 428       sleep 2
 429       hTypekeys "<Pagedown>" , 10 ' workaround for issue i56267. Has to be removed when cws impress73 has be integrated
 430       sleep 2
 431       Kontext "DocumentImpress"
 432       gMouseClick 50,50
 433       Call hRechteckErstellen (i*10,i*10,i*20,i*20)
 434       sleep 2
 435    next i
 436
 437    '///  check state of navigator ! expected: closed -> open navigator ///'
 438    Kontext "Navigator"
 439    if Navigator.exists then
 440       qaerrorlog "Navigator: already open :-("
 441    else
 442       printlog "Navigator: NOT available :-) will be opened now."
 443       Kontext "DocumentImpress"
 444       DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
 445 '      ViewNavigator
 446    endif
 447    sleep 3
 448
 449    '/// Slide Show->Interaction ///'
 450    SlideShowInteraction
 451       Kontext "TabInteraktion"
 452       sleep 1
 453       if AktionBeiMausklick.GetItemCount = 11 Then
 454          Printlog "- List is complete"
 455       else
 456          Warnlog "- Number of possible actions is wrong. It should be: 11, but it is: " + AktionBeiMausklick.GetItemCount
 457       end if
 458       sleep 1
 459
 460       AktionBeiMausklick.Select 1                       'Keine Aktion bei Mausclick
 461          Printlog (AktionBeiMausklick.GetSelText + " chosen")
 462          If Durchsuchen.IsVisible then Warnlog "- Control should be invisible because AktionBeiMausklick = " + AktionBeiMausKlick.GetSelText
 463          sleep 1
 464
 465       Kontext "TabInteraktion"
 466       AktionBeiMausklick.Select 2                       'Go to previous Slide
 467          Printlog (AktionBeiMausklick.GetSelText + " chosen")
 468          if Durchsuchen.IsVisible Then Warnlog "- Control should be invisible, beacause Action = " + AktionBeiMausKlick.GetSelText
 469       TabInteraktion.OK
 470       sleep 2
 471    Kontext "DocumentImpress"
 472    gMouseClick 90,90
 473    sleep 1
 474    gMouseClick 50,50
 475     sleep 2
 476
 477    Kontext "NavigatorDraw"
 478        sleep 2
 479       if Not Liste.GetSelIndex = 3 Then
 480          Warnlog "- jumped to wrong slide"
 481       else
 482          Printlog "- jumped to correct slide"
 483       end if
 484       sleep 1
 485
 486    Kontext "DocumentImpress"
 487    EditSelectAll
 488    sleep 1
 489
 490    SlideShowInteraction
 491       sleep 2
 492       Kontext "TabInteraktion"
 493       AktionBeiMausklick.select 3                       'Go to next Slide
 494          Printlog (AktionBeiMausKlick.GetSelText + " chosen")
 495       TabInteraktion.OK
 496       sleep 1
 497    Kontext "DocumentImpress"
 498    gMouseClick 90,90
 499    sleep 1
 500    gMouseClick 50,50
 501    sleep 2
 502    gMouseClick 90,90
 503    Kontext "NavigatorDraw"
 504       if Liste.GetSelIndex <> 4 Then
 505          Warnlog "- Jumped to wrong slide. Jumped to " + Liste.GetSelIndex + " instead of 4."
 506       else
 507          Printlog " Jumped to correct slide"
 508       end if
 509       sleep 1
 510    kontext "DocumentImpress"
 511    EditSelectAll
 512    sleep 1
 513
 514    SlideShowInteraction
 515       sleep 1
 516       Kontext "TabInteraktion"
 517       AktionBeiMausklick.select 4                        'Go to first Slide
 518          Printlog AktionBeiMausKlick.GetSelText
 519          sleep 1
 520       TabInteraktion.OK
 521       sleep 1
 522    Kontext "DocumentImpress"
 523    gMouseClick 90,90
 524    sleep 1
 525    gMouseClick 50,50
 526    sleep 1
 527    gMouseClick 90,90
 528    Kontext "NavigatorDraw"
 529       if Liste.GetSelIndex <> 1 Then Warnlog "- jumped to wrong slide. Jumped to " + Liste.GetSelIndex + " instead of 1."
 530       Letzte.Click 'Liste.Select 4
 531    Kontext "DocumentImpress"
 532    EditSelectAll
 533    sleep 2
 534
 535     try
 536         SlideShowInteraction
 537     catch
 538         warnlog "SlideshowInteraction diasabled :-("
 539     endcatch
 540       Kontext "TabInteraktion"
 541       AktionBeiMausklick.select 5                       'Go to last page
 542          printlog AktionBeiMausKlick.GetSelText
 543       TabInteraktion.OK
 544       sleep 1
 545    Kontext "NavigatorDraw"
 546       if Not Liste.GetSelIndex = 1 Then Warnlog "- jumped to wrong slide"
 547
 548    kontext "DocumentImpress"
 549    gMouseClick 90,90
 550    sleep 1
 551    hMouseClick DocumentImpress,50,50
 552    Call hRechteckErstellen 20,20,50,50
 553    sleep 1
 554    EditSelectAll
 555    sleep 1
 556     try
 557         FormatGroupGroup
 558     catch
 559         warnlog "GROUP?"
 560     endcatch
 561    sleep 1
 562
 563    SlideShowInteraction
 564       Kontext "TabInteraktion"
 565       AktionBeiMausklick.select 6                       'Sprung zu Seite oder Objekt
 566          printlog AktionBeiMausKlick.GetSelText
 567          sleep 2
 568          if Not ListeSprungZuSeiteObjekt.IsVisible Then Warnlog " list seems to be invisible"
 569          Seite.SetText S2
 570          Suchen.Click
 571             if ListeSprungZuSeiteObjekt.GetSelIndex <> 3 Then
 572                Warnlog " Search does not work. Current slide is: " + ListeSprungZuSeiteObjekt.GetSelText
 573             endif
 574       TabInteraktion.OK
 575       sleep 1
 576
 577    Kontext "DocumentImpress"
 578    gMouseClick 90,90
 579    sleep 1
 580    gMouseClick 25,25
 581    sleep 2
 582    Kontext "NavigatorDraw"
 583       if Liste.GetSelIndex <> 2 Then
 584          Warnlog "- Jumped to wrong destination"
 585          printlog Liste.GetSelIndex
 586          Liste.Select 4
 587          Liste.TypeKeys "<RETURN>"
 588       endif
 589    Kontext "DocumentImpress"
 590    EditSelectAll
 591    sleep 1
 592
 593    Kontext "DocumentImpress"
 594    EditSelectAll
 595    sleep 1
 596    SlideShowInteraction
 597       Kontext "TabInteraktion"
 598       sleep 1
 599       AktionBeiMausKlick.Select 7                    'Go to Document
 600       Printlog AktionBeiMausKlick.GetSelText + " chosen"
 601       try
 602          Durchsuchen.Click
 603          sleep 1
 604          Kontext "OeffnenDlg"
 605          sleep 1
 606          Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\recht_49.odp")
 607          Oeffnen.Click
 608          sleep 10
 609          Kontext "TabInteraktion"
 610             sleep 1
 611             TabInteraktion.OK
 612          sleep 3
 613          Kontext "DocumentImpress"
 614       catch
 615          Warnlog "- Search button could not be accessed"
 616       endcatch
 617       sleep 1
 618       DocumentImpress.MouseDown 90,90
 619       DocumentImpress.MouseUp 90,90
 620       sleep 2
 621    Kontext "DocumentImpress"
 622    DocumentImpress.Mousedown 30,30
 623    kontext
 624    b115364 = false
 625    if messagebox.exists then
 626       printlog "baeh: '" + messagebox.gettext + "'"
 627       try
 628          messagebox.ok  ' was default in so7
 629       catch
 630          warnlog "behaviour changed #115364# mother document gets closed :-("
 631          if fileExists(ConvertPath (gOfficePath + "user\work\bug115364.odp")) then
 632             kill ConvertPath (gOfficePath + "user\work\bug115364.odp")
 633          endif
 634          messagebox.yes ' don't save changes, before going on!
 635          b115364 = true
 636          kontext "SpeichernDlg"
 637          Dateiname.setText ConvertPath (gOfficePath + "user\work\bug115364.odp")
 638          Speichern.click
 639          sleep 10
 640       endcatch
 641    else
 642       printlog "OK :-)"
 643    endif
 644          Kontext "DocumentImpress"
 645          DocumentImpress.MouseUp 30,30
 646          sleep 2
 647          try
 648               ViewDrawing
 649               sleep 1
 650               Kontext "DocumentImpress"
 651               DocumentImpress.MouseDown 25,25
 652               DocumentImpress.MouseUp 25,25
 653          catch
 654               Warnlog "- Jump to document did not work or preview window did not appear"
 655          endcatch
 656          sleep 2
 657        if (not b115364) then
 658          Call hCloseDocument
 659        else
 660          Call hCloseDocument
 661          hFileOpen (ConvertPath (gOfficePath + "user\work\bug115364.odp"))
 662        endif
 663          sleep 6
 664
 665    '/// Do Page down + Page up due to focusing-problems ///'
 666    kontext "Slides"
 667    hTypeKeys "<PAGEDOWN>"
 668    hTypeKeys "<PAGEUP>"
 669    Kontext "NavigatorDraw"
 670    if NavigatorDraw.Exists = FALSE then
 671       qaerrorlog "Navigator: NOT available :-( will be opened now!"
 672       Kontext "DocumentImpress"
 673       DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
 674    else
 675       printlog "Navigator: already open :-)"
 676    endif
 677    Kontext "NavigatorDraw"
 678    sleep 1
 679    if Naechste.IsEnabled then
 680       Naechste.Click
 681    else
 682       warnlog "'Next' wasn't visible. Clicking 'First' + Two 'Next'."
 683       Erste.Click
 684       sleep 2
 685       Naechste.Click
 686       Naechste.Click
 687       sleep 2
 688    endif
 689
 690    Kontext "DocumentImpress"
 691    EditSelectAll
 692    sleep  1
 693
 694    SlideShowInteraction
 695       Kontext "TabInteraktion"
 696       sleep 1
 697       AktionBeiMausKlick.Select 8
 698          Printlog AktionBeiMausKlick.GetSelText + " chosen"
 699          sleep 1
 700       Tabinteraktion.OK
 701       sleep 2
 702    SlideShowInteraction
 703       Kontext "TabInteraktion"
 704       sleep 1
 705       if not AktionBeiMausKlick.GetSelIndex = 8 Then Warnlog "- Not the right action chosen"
 706       sleep 1
 707       AktionBeiMausKlick.Select 8                          'Play sound
 708            Printlog  AktionBeiMausKlick.GetSelText + "- chosen"
 709          sleep 1
 710       Tabinteraktion.OK
 711       sleep 2
 712          Kontext "NavigatorDraw"
 713            sleep 1
 714            Liste.Select 2
 715          Kontext "DocumentImpress"
 716          EditSelectAll
 717          sleep  1
 718          SlideShowInteraction
 719          Kontext "TabInteraktion"
 720             sleep 1
 721             Durchsuchen.Click
 722             sleep 1
 723             Kontext "OeffnenDlg"
 724             sleep 1
 725             Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\blip.wav")
 726             sleep 1
 727             Oeffnen.Click
 728                sleep 1
 729                Kontext "Active"
 730                if Active.Exists Then
 731                   Warnlog Active.GetText + "  Gallery might be empty"
 732                   Active.OK
 733                   sleep 1
 734                   Kontext "OeffnenDlg"
 735                   OeffnenDlg.Cancel
 736                   sleep 1
 737                end if
 738              Kontext "TabInteraktion"
 739              SetClipboard Klangwahl.GetText
 740              TabInteraktion.OK
 741          sleep 1
 742          SlideShowInteraction
 743             Kontext "TabInteraktion"
 744             sleep 1
 745             if Klangwahl.GetText <> GetClipboardText then Warnlog "- Not the right sound chosen"
 746             TabInteraktion.OK
 747          sleep 1
 748          InsertGraphicsFromFile
 749             sleep 1
 750             Kontext "GrafikeinfuegenDlg"
 751             sleep 1
 752             if Verknuepfen.IsChecked then Verknuepfen.UnCheck
 753             Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
 754             Oeffnen.Click
 755             sleep 3
 756          Kontext "NavigatorDraw"
 757             sleep 1
 758             Liste.Select 4
 759             sleep 1
 760          SlideShowInteraction
 761          Kontext "TabInteraktion"
 762             sleep 1
 763             AktionBeiMausKlick.Select 9                       'Objektaktion ausfuehren
 764             Printlog  AktionBeiMausKlick.GetSelText + " chosen"
 765             sleep 1
 766             Zaehler=Effekt.GetItemCount
 767             for i=1 to Zaehler
 768                Effekt.Select i
 769                Printlog Effekt.GetSelText + " chosen"
 770
 771                TabInteraktion.OK
 772                sleep 1
 773                SlideShowInteraction
 774                Kontext "TabInteraktion"
 775                sleep 1
 776             next i
 777             TabInteraktion.OK
 778             sleep 1
 779    SlideShowInteraction
 780       Kontext "TabInteraktion"
 781       sleep 1
 782       AktionBeiMausKlick.Select 11                      'Macro
 783          Printlog AktionBeiMausKlick.GetSelText + " chosen"
 784          sleep 2
 785          Durchsuchen.Click
 786             sleep 5
 787             Kontext "ScriptSelector"
 788             sleep 5
 789             ScriptSelector.Cancel
 790          sleep 2
 791       Kontext "TabInteraktion"
 792       sleep 1
 793       TabInteraktion.OK
 794       sleep 3
 795
 796    SlideShowInteraction
 797       Kontext "TabInteraktion"
 798       sleep 2
 799       if not AktionBeiMausKlick.GetSelIndex = 11 Then Warnlog "- Wrong action used"
 800       sleep 1
 801       AktionBeiMausKlick.Select 12           'End Presentation
 802          Printlog AktionBeiMausKlick.GetSelText
 803       Tabinteraktion.OK
 804       sleep 1
 805
 806    SlideShowPresentationSettings
 807       Kontext "Bildschirmpraesentation"
 808       if not Fenster.IsChecked Then Fenster.Check
 809       BildschirmPraesentation.OK
 810    sleep 2
 811    Kontext "DocumentImpress"
 812    DocumentImpress.TypeKeys "<F5>"
 813       sleep 5
 814       Kontext "DocumentPresentation"
 815       sleep 2
 816       DocumentPresentation.MouseDown 50,50
 817       DocumentPresentation.MouseUp 50,50
 818       sleep 3
 819       if DocumentPresentation.Exists then
 820          qaerrorlog "#i51418# Sound played instead of ending presentation"
 821          DocumentPresentation.TypeKeys "<ESCAPE>"
 822          sleep 3
 823       endif
 824       try
 825          Kontext "DocumentImpress"
 826          EditSelectAll
 827          Printlog "- Slideshow ended at right point"
 828       catch
 829          Warnlog "- Program is still in slideshow mode"
 830          Kontext "DocumentPresentation"
 831          DocumentPresentation.TypeKeys "<ESCAPE>"
 832       endcatch
 833
 834    Kontext "DocumentImpress"
 835    '/// Close the Navigator ///'
 836    DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
 837    sleep 3
 838    '/// Set "start with current page to ON = Default ///'
 839    setStartCurrentPage(TRUE)
 840    Call hCloseDocument
 841 endcase
 842
 843 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 844
 845 testcase tAendernObjektBenennen
 846   Printlog "- Context/Name object"
 847  Call hNewDocument
 848   sleep 1
 849   Kontext "DocumentImpress"
 850    if NOT DocumentImpress.Exists then
 851       Warnlog "- Due to Bug 91799 the document disappeared right after loading"
 852       Call hNewDocument
 853       sleep 1
 854    end if
 855   sleep 1
 856   hRechteckErstellen (20,20,30,30)
 857   sleep 1
 858   hRechteckErstellen (60,60,80,80)
 859
 860   gMouseMove (10,10,90,90)
 861     Printlog "  - check if menu entry is disabled for normal objects"
 862   try
 863     ContextNameObject
 864     Warnlog "  function should be only enabled for graphics, ole objects and groups"
 865   catch
 866     Printlog "  Function disabled"
 867   endcatch
 868   EditSelectAll
 869   Kontext "DocumentImpress"
 870    FormatGroupGroup
 871    sleep 2
 872   gMouseClick 25,25
 873   ContextNameObject
 874   sleep (2)
 875   Kontext "NameDlgObject"
 876   NameField.SetText "Test"
 877   NameDlgObject.OK
 878   sleep 1
 879     Printlog "  - Name object worked"
 880   Kontext "DocumentImpress"
 881   EditSelectAll
 882   DocumentImpress.TypeKeys "<DEL>"
 883   InsertGraphicsFromFile
 884   Kontext "GrafikEinfuegenDlg"
 885    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
 886    sleep 3
 887    Preview.Check
 888    sleep 1
 889    Oeffnen.Click
 890    sleep 1
 891    printlog "  - Name a graphic file"
 892    try
 893       ContextNameObject
 894       Kontext "NameDlgObject"
 895       Namefield.SetText "Grafik"
 896       NameDlgObject.OK
 897       sleep 1
 898       Printlog "  - Name a graphic object did work"
 899    catch
 900       Warnlog "  - Function should have been enabled"
 901    endcatch
 902    sleep 2
 903    Call hCloseDocument
 904    sleep 2
 905 endcase
 906
 907 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 908
 909 testcase tSlideshowBackgroundAllSlides
 910     Dim Datei$ as string
 911     Dim Background$ as string
 912     Dim i as integer
 913     Dim Zaehler as integer
 914     Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif")
 915     Datei$ = ConvertPath (gOfficePath + "user\work\background.odp")
 916
 917     '/// Create a new document ///'
 918     Printlog "- SlideshowBackground"
 919     Call hNewDocument
 920
 921     '/// Insert a new Slide ///'
 922     Kontext "DocumentImpress"
 923     InsertSlide
 924
 925     '/// Open the Contextmenu ///'
 926     DocumentImpress.OpenContextMenu
 927
 928     '/// Select the entry "Slide" ///'
 929     hMenuFindSelect (".uno:PageMenu", true, 1, true)
 930     '/// Select the entry "Background" ///'
 931     hMenuSelectNr (4)
 932
 933     '/// In the open-file dialogue, choose and open a graphic-file you wish to have as a background ///'
 934     kontext "GrafikEinfuegenDlg"
 935     If GrafikEinfuegenDlg.Exists Then
 936         DateiName.SetText (Background$)
 937         Oeffnen.Click
 938     Else
 939         warnlog "GrafikEinfuegenDlg not existent... check why."
 940     End if
 941
 942     '/// If an "active"-message shows up, press "yes" to apply this background to all slides. ///'
 943     kontext "Active"
 944     if Active.Exists then
 945         Active.Yes
 946     else
 947         QaErrorLog "No dialogue considering if we wish to apply the background to all slides."
 948     end if
 949
 950     '/// Save the document ///'
 951     Call hFileSaveAsKill (Datei$)
 952     '/// Close the document ///'
 953     Call hCloseDocument
 954     '/// Open the document ///'
 955     Call hFileOpen (Datei$)
 956     '/// Close the document ///'
 957     Call hCloseDocument
 958 endcase
 959
 960 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 961
 962 testcase tSlideshowBackgroundSelectedSlide
 963     Dim Datei$ as string
 964     Dim Background$ as string
 965     Dim i as integer
 966     Dim Zaehler as integer
 967     Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif")
 968     Datei$ = ConvertPath (gOfficePath + "user\work\background.odp")
 969
 970     '/// Create a new document ///'
 971     Printlog "- SlideshowBackground"
 972     Call hNewDocument
 973
 974     '/// Insert a new Slide ///'
 975     Kontext "DocumentImpress"
 976     InsertSlide
 977
 978     '/// Open the Contextmenu ///'
 979     DocumentImpress.OpenContextMenu
 980
 981     '/// Select the entry "Slide" ///'
 982     hMenuFindSelect (".uno:PageMenu", true, 1, true)
 983     '/// Select the entry "Background" ///'
 984     hMenuSelectNr (4)
 985
 986     '/// In the open-file dialogue, choose and open a graphic-file you wish to have as a background ///'
 987     kontext "GrafikEinfuegenDlg"
 988     If GrafikEinfuegenDlg.Exists Then
 989         DateiName.SetText (Background$)
 990         Oeffnen.Click
 991     Else
 992         warnlog "GrafikEinfuegenDlg not existent... check why."
 993     End if
 994
 995     '/// If an "active"-message shows up, press "No" to only apply this background to the selected slide. ///'
 996     kontext "Active"
 997     if Active.Exists then
 998         Active.No
 999     else
1000         QaErrorLog "No dialogue considering if we wish to apply the background to all slides."
1001     end if
1002
1003     '/// Save the document ///'
1004     Call hFileSaveAsKill (Datei$)
1005     '/// Close the document ///'
1006     Call hCloseDocument
1007     '/// Open the document ///'
1008     Call hFileOpen (Datei$)
1009     '/// Close the document ///'
1010     Call hCloseDocument
1011 endcase
1012
1013 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------