Remove testtool

1 files changed, 0 insertions, 1245 deletions

diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
deleted file mode 100644
index da96b13cc47d..000000000000
--- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc
+++ /dev/null
@@ -1,1245 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\******************************************************************
-
-testcase tSlideShowSlideShow
-
-    dim bLoaded as boolean
-    dim i as integer
-    dim testfile as string
-    dim localtestfile as string
-
-    printlog "open file 'graphics\input\diashow.odp' "
-    testfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
-    hFileOpenLocally( testfile )
-    sleep 30
-
-   bLoaded = false
-
-   Kontext "Navigator"
-   if Navigator.Exists then Navigator.Close
-
-   printlog "Deactivate Start with current page in ToolsOptions "
-   setStartCurrentPage(FALSE)
-
-   try
-   printlog "SlideShow->Slide Show Settings... "
-      SlideShowPresentationSettings
-      bLoaded = true
-   catch
-      warnlog "SlideShowPresentationSettings could not be run, because document didn't get loaded in time ??! :-("
-   endcatch
-   if bLoaded then
-      Kontext "Bildschirmpraesentation"
-
-      printlog "check Radio button 'Type': 'Window' "
-      Fenster.Check
-      printlog "close dialog 'Slide Show' with OK "
-      Bildschirmpraesentation.OK
-      sleep 3
-      printlog "start the slideshow with 'Slide Show->Slide Show' "
-      SlideShowSlideshow
-         sleep 3
-         Kontext "DocumentPresentation"
-         sleep 5
-      printlog "end the presentation by typing [ESCAPE] "
-    DocumentPresentation.TypeKeys "<ESCAPE>"
-      sleep 3
-        try
-           hTypeKeys "<TAB>"
-          Printlog "- Slideshow ended using 'ESCAPE'"
-       catch
-          Warnlog "- Slideshow did not end"
-        DocumentPresentation.TypeKeys "<ESCAPE>"
-          sleep 3
-        endcatch
-
-      printlog "start the slideshow with 'Slide Show->Slide Show' "
-      SlideShowSlideshow
-      Kontext "DocumentPresentation"
-      Printlog "- Check if slideshow runs"
-       sleep 5
-      try
-         DocumentPresentation.TypeKeys "<pagedown>"
-      catch
-         Warnlog "Presentation is not running !"
-      endcatch
-      sleep 5
-      printlog "type the key [SHIFT + F5] to open the navigator "
-      DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-      Kontext "NavigatorDraw"
-         sleep 1
-         printlog "check in list, if the page changed "
-         if Liste.GetSelIndex <> 2 Then Warnlog "- pagedown not working: '" + Liste.GetSelText+"'"
-         Kontext "DocumentPresentation"
-         printlog "press key [cursor right] 3 times "
-         for i = 1 to 3
-            sleep 3
-            DocumentPresentation.TypeKeys "<right>"
-         next i
-         sleep (3)
-         DocumentPresentation.MouseDown 50,50
-         DocumentPresentation.MouseUp 50,50
-         sleep 10
-      try
-         Kontext "DocumentPresentation"
-         DocumentPresentation.MouseDown 50,50
-         DocumentPresentation.MouseUp 50,50
-         Warnlog "- Slideshow still running"
-         DocumentPresentation.TypeKeys "<ESCAPE>"
-      catch
-         Printlog "- Slideshow ended at the right time"
-      endcatch
-      sleep 2
-   else
-      warnlog "Document didn't get loaded"
-   endif
-   Kontext "DocumentImpress"
-   printlog " Close the Navigator "
-   DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
-   printlog "Set Start with current page back to default = on, in ToolsOptions "
-   setStartCurrentPage(TRUE)
-   printlog "close the application "
-    Call hCloseDocument
-    localtestfile = hFileGetLocalPath( gTesttoolPath + "diashow.odp" )
-    printlog localtestfile
-    if (FileExists (localtestfile)) then
-        app.kill (localtestfile)
-        printlog "Deleting used file."
-    else
-        warnlog "File is missing."
-    endif
-endcase 'tSlideShowSlideShow
-
-'-------------------------------------------------------------------------------
-
-testcase tSlideShowRehearseTimings
-
-    qaerrorlog "#i64783# - tSlideShowRehearseTimings outcommented due to bug"
-    goto endsub
-
-    dim bLoaded as boolean
-    dim i as integer
-
-   printlog "open file 'graphics\input\diashow.odp' "
-   hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp")
-   sleep 10
-   printlog "check if the document is writable"
-   if fIsDocumentWritable = false then
-      printlog "make the document writable and check if it's succesfull"
-      if fMakeDocumentWritable = false then
-         warnlog "The document can't be make writeable. Test stopped."
-         goto endsub
-      endif
-   endif
-   Kontext "Navigator"
-   if Navigator.Exists then Navigator.Close
-   bLoaded = false
-   try
-      printlog "SlideShow->Slide Show Settings... "
-        SlideShowPresentationSettings
-      bLoaded = true
-    catch
-      warnlog "SlideShowPresentationSettings could not be run, because document didn't get loaded in time ( ?? ) :-("
-   endcatch
-   if bLoaded then
-       Kontext "Bildschirmpraesentation"
-      printlog "check Radio button 'Type': 'Window' "
-       Fenster.Check
-      printlog "close dialog 'Slide Show' with OK "
-       Bildschirmpraesentation.OK
-       sleep 3
-      printlog "start the slideshow with 'Slide Show->Rehearse Timings' "
-      SlideShowRehearseTimings
-      Kontext "DocumentPresentation"
-      if DocumentPresentation.Exists then
-        printlog "OK"
-      else
-        warnlog "bah"
-      endif
-     printlog "press key [return] 5 times "
-      for i = 1 to 5
-         sleep 5
-         DocumentPresentation.TypeKeys "<return>"
-      next i
-      sleep 5
-      try
-         gMouseClick 50,50
-          Printlog "- Slideshow ended "
-      catch
-         Kontext "DocumentPresentation"
-           Warnlog "- Slideshow still running"
-          DocumentPresentation.TypeKeys "<ESCAPE>"
-           sleep 3
-      endcatch
-       sleep 2
-   else
-      warnlog "Documnet didn't get loaded"
-   endif
-
-   printlog " check state of navigator ! expected: closed "
-   Kontext "Navigator"
-   if Navigator.exists then
-      printlog " close navigator ! "
-      Navigator.Close
-   else
-      printlog "Navigator: NOT available"
-   endif
-   printlog "close the application "
-   Call hCloseDocument
-   
-endcase 'tSlideShowRehearseTimings
-
-'-------------------------------------------------------------------------------
-testcase tSlideShowSlideShowSettings
-
-   dim bLoaded as boolean
-   dim i as integer
-   dim x as integer
-   dim sTemp as string
-   dim saSlideNames(4) as string
-   dim bCurrentPage as boolean
-   dim sTestfile as string
-   dim sLocaltestfile as string
-
-   S1 = glLocale (2) + " 1"
-   S2 = glLocale (2) + " 2"
-   S3 = glLocale (2) + " 3"
-   S4 = glLocale (2) + " 4"
-   saSlideNames(1) = S1
-   saSlideNames(2) = S2
-   saSlideNames(3) = S3
-   saSlideNames(4) = S4
-
-   ' the navigator you open during a presentation is closed after the last slide (in full screen mode)
-   ' the state of the navigator in the normal view is not affected
-   ' the navigator that is open in normal view, is not visible in windows presenattions
-
-   printlog "open application "
-   Call hNewDocument
-
-    printlog " check state of navigator ! expected: closed "
-   Kontext "Navigator"
-   if Navigator.exists then
-      printlog "close navigator ! "
-      Navigator.Close
-      QaErrorLog "Navigator was open. Check earlier tests. Now closed."
-   else
-      printlog "Navigator: NOT available. Good."
-   endif
-
-   printlog "Slide Show -> Slide Show Settings "
-    SlideShowPresentationSettings
-      Kontext "Bildschirmpraesentation"
-       printlog "check checkbox in section 'Range' - 'From: "
-       AbDia.Check
-      printlog "get count of slides from listbox 'From:' "
-      x = AbDiaName.GetItemCount
-      printlog "check if count in listbox 'from' is '0' "
-      if (x = 1) Then
-         Printlog "  - Slide count in the list: '" + x + "'"
-      else
-          Warnlog "  - unexpected slide count; should be '1'; is '" + x + "'"
-       end if
-   printlog "close dialog 'Slide Show' with OK "
-   Bildschirmpraesentation.OK
-   printlog "Insert->Slide... "
-   InsertSlide
-   sleep 2
-   hTypekeys "<Pagedown>"
-   sleep 2
-   printlog "Slide Show -> Slide Show Settings "
-   SlideShowPresentationSettings
-      Kontext "Bildschirmpraesentation"
-      Printlog "check if count in listbox 'from' increased"
-      i = AbDiaName.GetItemCount
-      if ((i -1) = x) Then
-         Printlog "  - Slide appears in the list; count : '" + i + "'"
-      else
-          Warnlog "  - Slide not added; is '" + i + "' should: '" + x + "'"
-       end if
-   printlog "close dialog 'Slide Show' with CANCEL "
-   Bildschirmpraesentation.Cancel
-   printlog "close application "
-   Call hCloseDocument
-   sleep 5
-
-    bLoaded = false
-    printlog "open file 'graphics\input\diashow.odp' (Slide Show with 4 Slides) "
-    sTestfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
-    hFileOpenLocally( sTestfile )
-   sleep 10
-
-   try
-      Kontext "DocumentImpress"
-      printlog "Slide Show -> Slide Show Settings "
-      Printlog "'--------------------------------------------------------------------------"
-      SlideShowPresentationSettings
-      bLoaded = true
-   catch
-      warnlog "SlideShowPresentationSettings could not be run, because document didn't get loaded in time ( ?? ) :-("
-   endcatch
-   if bLoaded then
-      Kontext "Bildschirmpraesentation"
-      if (AlleDias.IsChecked = FALSE) then
-         Warnlog "'All Slides' is not checked :-("
-      endif
-      if (Standard.IsChecked = FALSE) then
-         Warnlog "'Default' is not checked :-("
-      endif
-      if (NavigatorSichtbar.IsChecked) then
-         Warnlog "'Navigator visible' is checked :-("
-      endif
-      printlog "check checkbox 'All Slides'"
-      AlleDias.Check
-      printlog "check checkbox 'Window"
-      Fenster.Check
-      printlog "check checkbox 'Navigator visible"
-      NavigatorSichtbar.Check                 
-      printlog "close dialog 'Slide Show' with OK "
-      Bildschirmpraesentation.OK
-      printlog "start the slideshow with 'Slide Show->Slide Show' "
-      SlideShowSlideshow
-      Printlog "'---------------------------- START P -- All -- Window -- Navigator -------------------------"
-     sleep 5
-      printlog " check state of navigator ! expected: open "
-      Kontext "Navigator"
-      if Navigator.exists then
-         Printlog "Navigator: open :-)"
-      else
-         Warnlog "Navigator: NOT available :-( will be opened now!"
-         Kontext "DocumentPresentation"
-         DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-      endif
-      sleep 1
-      Kontext "DocumentPresentation"
-      try
-         printlog "press pagedown "
-         DocumentPresentation.TypeKeys "<pagedown>"
-      catch
-         Warnlog "presentation is not running !"
-      endcatch
-      sleep 5
-      Kontext "NavigatorDraw"
-      if Liste.GetSelIndex <> 2 Then
-         warnlog "Wrong slide."
-      endif
-      printlog "press the key [Page Down] 3 times "
-      printlog "check in Navigator list, if the slide is number: (times key pressed) "
-      for i = 2 to 4
-         Kontext "Navigator"
-         if Navigator.exists then
-            printlog "Navigator was there, good."
-         else
-            Warnlog "The Navigator should have been activated, but was not. Opening now."
-            Kontext "DocumentPresentation"
-            DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-         endif
-         fGetSlideName(saSlideNames(i))
-         kontext "DocumentPresentation"
-         DocumentPresentation.TypeKeys "<pagedown>"
-      next i
-      sleep (2)
-      printlog "press the key [Page Down] to exit presentation "
-      DocumentPresentation.TypeKeys "<pagedown>"
-      sleep (5)      
-      try
-         gMouseClick 50,50  ' this one works to recognice the not ending ! TBO
-         Printlog "- Slideshow ended at the right time"
-      catch
-         Warnlog "- Slideshow still running "
-         DocumentPresentation.TypeKeys "<ESCAPE>"
-      endcatch
-      sleep 2
-      printlog " check state of navigator ! expected: open "
-      Kontext "Navigator"
-      if Navigator.exists then
-         printlog "close navigator ! "
-         Navigator.Close
-      else
-         printlog "Navigator: NOT available"
-      endif
-      Printlog "'---------------------------------------------------------------"
-
-       Kontext "DocumentPresentation"
-      printlog "type the key [MOD1 SHIFT F5] to open the navigator "
-      hTypeKeys "<MOD1 SHIFT F5>"
-      printlog "Slide Show -> Slide Show Settings "
-      SlideShowPresentationSettings
-         Kontext "Bildschirmpraesentation"
-         if (AlleDias.IsChecked = FALSE) then
-            Warnlog "'All Slides' is not checked :-("
-         endif
-         if (Fenster.IsChecked = FALSE) then
-            Warnlog "'Window' is not checked :-("
-         endif
-         if (NavigatorSichtbar.IsChecked = FALSE) then
-            Warnlog "'Navigator visible' is not checked :-("
-         endif
-         if (DiawechselAufHintergrund.IsChecked = FALSE) then
-            Warnlog "'Change slides by clicking on background' is not checked :-("
-         endif
-         printlog "check checkbox in section 'Range' - 'From:"
-         AbDia.Check
-         printlog "select the 3rd item from the top from listbox 'From:' -> 2 slides to go "
-         AbDiaName.Select 3
-         sTemp = AbDiaName.GetSelText
-         Printlog "  -  From '" + sTemp + "' will be shown"
-         printlog "check checkbox 'Default'"
-         Standard.Check
-         printlog "UNcheck checkbox 'Navigator visible'"
-         NavigatorSichtbar.UnCheck
-         printlog "UNcheck checkbox 'Change slides by clicking on background'"
-         DiawechselAufHintergrund.UnCheck
-      printlog "close dialog 'Slide Show' with OK "
-      Bildschirmpraesentation.OK
-       sleep 3
-       Kontext "DocumentPresentation"
-      printlog "start the slideshow with 'Slide Show->Slide Show' "
-      SlideShowSlideshow
-         Printlog "'---------------------------- START P -- From -- Default -- Click on Bg -----------------------"
-         sleep 5
-         printlog " check state of navigator ! expected: closed "
-         Kontext "Navigator"
-         if Navigator.exists then
-            printlog "close navigator ! "
-            Navigator.Close
-            Warnlog "Navigator: closed"
-         else
-            Printlog "Navigator: NOT available. Good."
-         endif
-         sleep 1
-         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
-         Kontext "DocumentPresentation"
-         DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-          sleep 3
-          printlog "check in Navigator list, if the page is THREE! "
-          fGetSlideName(S3)
-          printlog "click right mouse button "
-          sleep 5
-          DocumentPresentation.MouseDown 50,50
-          DocumentPresentation.MouseUp 50,50
-          printlog "check in Navigator list, if the page is still THREE. If so, change slide with PageDown "
-          if (fGetSlideName(S3) <> S3) then
-             Warnlog "'Change slides by clicking on background' disable did not work :-("
-          else
-             DocumentPresentation.TypeKeys "<PAGEDOWN>"
-          endif
-          printlog "check in Navigator list, if the page is FOUR "
-          fGetSlideName(S4)
-          sleep 5
-          printlog "press the key [Page Down] "
-          DocumentPresentation.TypeKeys "<pagedown>"
-          sleep 5
-          printlog "press the key [Space] to exit presentation "
-          DocumentPresentation.TypeKeys "<Space>"
-         sleep 10
-      try
-         ViewZoom '-----------!!!!!1 TBO: Make function!!! ----------------------- works! TBO
-         Kontext "Massstab"
-         Massstab.OK
-      catch
-       Kontext "DocumentPresentation"
-         DocumentPresentation.TypeKeys "<ESCAPE>"
-         Warnlog "  - Program was still in slideshow mode - ended now ?"
-      endcatch
-      printlog " check state of navigator ! expected: open "
-      Kontext "Navigator"
-      if Navigator.exists then
-         printlog "close navigator ! "
-         Navigator.Close
-         printlog "Navigator: closed"
-      else
-         warnlog "Navigator: NOT available"
-      endif
-      Printlog "'--------------------------------------------------------------------------"
-
-      printlog "Slide Show -> Slide Show Settings "
-      SlideShowPresentationSettings
-         Kontext "Bildschirmpraesentation"
-         if (AbDia.IsChecked = FALSE) then
-            Warnlog "'From' is not checked :-("
-         endif
-         if (Standard.IsChecked = FALSE) then
-            Warnlog "'Default' is not checked :-("
-         endif
-         if (AbDiaName.GetSelText <> sTemp ) then
-            Warnlog "'From Slide' has wrong value :-(; should be: '" + sTemp + "' ; is: '" + AbDiaName.GetSelText + "'"
-         endif
-         if (DiawechselAufHintergrund.IsChecked) then
-            Warnlog "'Change slides by clicking in background' is checked :-("
-         endif
-         printlog "check checkbox 'All Slides' "
-         AlleDias.Check
-         printlog "check check box 'Auto' -> implies looping of slideshow in fullscreen mode"
-         Auto.Check
-         printlog "set duration of pause to '00:00:05' "
-         Zeit.SetText "00:00:05"
-         printlog "check check box 'Show logo' "
-         LogoAnzeigen.Check
-         printlog "check checkbox 'Change slides by clicking on background'"
-         DiawechselAufHintergrund.Check
-      printlog "close dialog 'Slide Show' with OK "
-      Bildschirmpraesentation.OK
-      printlog "start the slideshow with 'Slide Show->Slide Show' "
-      SlideShowSlideshow
-      Printlog "'---------------------------- START P -- All -- Auto -- :05 -- Logo -----------------------------"
-      sleep 3
-      Kontext "DocumentPresentation"
-      printlog "type the key [MOD1 SHIFT F5] to open the navigator "
-      DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-      printlog "press the key [Space] 4 times "
-      printlog "check in Navigator list, if the slide is number: [(times key pressed) -1 ] "
-      for i = 1 to 4
-         fGetSlideName(saSlideNames(i))
-         DocumentPresentation.TypeKeys "<Space>"
-         sleep 5
-      next i
-        printlog "wait until autopause ended (5 secs) "
-        sleep 10
-      if (fGetSlideName(saSlideNames(1)) = saSlideNames(1)) then
-         Printlog "  - Enless loop works"
-      else
-         Warnlog " Enless loop does NOT work"
-      end if
-      sleep 2
-      printlog "type key [excape] to exit presentation "
-      Kontext "DocumentPresentation"
-      DocumentPresentation.TypeKeys "<ESCAPE>"
-      sleep 5
-      try
-         SlideShowPresentationSettings
-         Kontext "Bildschirmpraesentation"
-         Bildschirmpraesentation.OK
-      catch
-         Warnlog "  - Still in slideshow mode, tries to end again..."
-         Kontext "DocumentPresentation"
-         DocumentImpress.TypeKeys "<ESCAPE>"
-         sleep 5
-      endcatch
-      printlog " check state of navigator ! expected: closed "
-      Kontext "Navigator"
-      if Navigator.exists then
-         Navigator.Close
-         warnlog "Navigator: closed"
-      else
-         printlog "Navigator: NOT available"
-      endif
-      Printlog "'--------------------------------------------------------------------------"
-
-      Kontext "DocumentImpress"
-      printlog "Slide Show -> Slide Show Settings "
-      SlideShowPresentationSettings
-         Kontext "BildschirmPraesentation"
-         printlog "check checkbox 'default' "
-         Standard.Check
-         printlog "check checkbox 'Change slides maually'"
-         ' to check this i need an automatic transition somewhere in the presentation !
-         DiawechselManuel.Check
-         printlog "check checkbox 'Mouse pointer as pen'"
-         MauszeigerAlsStift.Check
-      printlog "close dialog 'Slide Show' with OK "
-      BildschirmPraesentation.Ok
-      sleep 1
-
-      printlog "goto the first slide by typing [strg home] "
-      hTypeKeys "<mod1 home>"
-      printlog "SlideShow->SlideTransition "
-      SlideShowSlideTransition
-         Kontext "Tasks"
-         printlog "click button 'Extras' "
-         sleep 1
-          printlog "click button 'Automatic Transition' "
-         TransitionAutomaticallyAfter.Check 'click
-         printlog " Set Time to '00:00:01' "
-         TransitionAutomaticallyAfterTime.SetText "2"
-         printlog " click button 'Assign' "
-         TransitionApplyToAllSlides.Click
-         printlog "close dialog 'Slide Transition' "
-      sleep 3
-
-      printlog "start the slideshow with keys [STRG F2] "
-       Kontext "DocumentImpress"
-      DocumentImpress.TypeKeys "<MOD1 F2>"
-      Printlog "'---------------------------- START P -- Default -- Manuel ------------------------------"
-      printlog "wait 10 seconds (to get the dia changed automatical has not to happen !) "
-      sleep 10
-      Kontext "DocumentPresentation"
-         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
-         DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-         printlog "press key [cursor right] 3 times "
-         for i = 1 to 4
-            sleep 5
-            fGetSlideName(saSlideNames(i))
-            printlog "use the left mouse button, to use the pen drawing function "
-            DocumentPresentation.MouseDown (10, 10)
-            DocumentPresentation.MouseMove (10, 90)
-            DocumentPresentation.MouseUp (10, 90)
-            DocumentPresentation.TypeKeys "<right>"
-         next i
-      printlog "press the key [Page Down] to exit presentation "
-      sleep (2)
-      DocumentPresentation.TypeKeys "<pagedown>"
-      sleep (2)
-      if DocumentPresentation.Exists then
-         Warnlog "- Slideshow still running "
-         DocumentPresentation.TypeKeys "<ESCAPE>"
-      else
-         Printlog "- Slideshow ended at the right time"
-      endif
-      sleep 2
-      printlog " check state of navigator ! expected: closed "
-      Kontext "Navigator"
-      if Navigator.exists then
-        printlog "close navigator ! "
-         Navigator.Close
-         warnlog "Navigator: closed"
-      else
-         printlog "Navigator: NOT available"
-      endif
-      Printlog "'--------------------------------------------------------------------------"
-
-      Kontext "DocumentImpress"
-      printlog "Slide Show -> Slide Show Settings "
-      SlideShowPresentationSettings
-         Kontext "BildschirmPraesentation"
-         printlog "check checkbox 'default' "
-         Standard.Check
-         printlog "UNcheck checkbox 'Change slides manually'"
-         DiawechselManuel.UNCheck
-         printlog "UNcheck checkbox 'Mouse pointer as pen' "
-         MauszeigerAlsStift.UNCheck
-      printlog "close dialog 'Slide Show' with OK "
-      BildschirmPraesentation.Ok
-      sleep 1
-      printlog "goto the first slide by typing [strg home] "
-      hTypeKeys "<MOD1 HOME>"
-      printlog "Set all slides to 'wait 10 seconds' to get the slide changed automatically "
-      printlog "SlideShow->SlideTransition "
-      SlideShowSlideTransition
-         Kontext "Tasks"
-         printlog "click button 'Extras' "
-         sleep 1
-         printlog "click button 'Automatic Transition' "
-         TransitionAutomaticallyAfter.Check 'click
-         printlog "Set Time to '10sec' "
-         TransitionAutomaticallyAfterTime.SetText "10"
-         printlog "click button 'Apply to all Slides' "
-         TransitionApplyToAllSlides.Click
-         printlog "close dialog 'Slide Transition' "
-         sleep (1)
-      printlog "start the slideshow with keys [STRG F2] "
-      Kontext "DocumentImpress"
-      DocumentImpress.TypeKeys "<MOD1 F2>"
-      Printlog "'---------------------------- START P -- Default -- Automatic -----------------------------"
-      printlog "Wait 6 seconds to see if the Automatic Transition changes the slide. "
-      sleep 6
-      Kontext "DocumentPresentation"
-         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
-         DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-         printlog "press key [cursor right] 3 times "
-         for i = 2 to 4
-            sleep (5)
-            fGetSlideName(saSlideNames(i))
-            DocumentPresentation.TypeKeys "<right>"
-         next i
-      printlog "press the key [Page Down] to exit presentation "
-      sleep (2)
-      DocumentPresentation.TypeKeys "<PAGEDOWN>"
-      sleep (2)
-      if DocumentPresentation.Exists then
-         Warnlog "- Slideshow still running "
-         DocumentPresentation.TypeKeys "<ESCAPE>"
-      else
-         Printlog "- Slideshow ended at the right time"
-      endif
-      sleep 2
-      printlog " check state of navigator ! expected: closed "
-      Kontext "Navigator"
-      if Navigator.exists then
-         printlog "close navigator ! "
-         Navigator.Close
-      endif
-   else
-      warnlog "document didn't get loaded"
-   endif
-   printlog "Set Start with current page back to default = on, in ToolsOptions "
-   setStartCurrentPage(TRUE)
-   printlog "Close the document "
-   call hCloseDocument
-    sLocaltestfile = hFileGetLocalPath(  gTesttoolPath + "diashow.odp" )
-    printlog sLocaltestfile
-    if (FileExists (sLocaltestfile)) then
-        app.kill (sLocaltestfile)
-        printlog "Deleting used file."
-    else
-        warnlog "File is missing."
-    endif
-
-endcase 'tSlideShowSlideShowSettings
-
-'-------------------------------------------------------------------------------
-testcase tSlideShowCustomSlideShow
-
-   Dim Seite as string
-   dim i as integer
-   dim x as integer
-   dim sTemp as string
-
-   Seite = s1
-   printlog "open application "
-   Call hNewDocument
-
-   Kontext "Navigator"
-   if Navigator.Exists then Navigator.Close
-   printlog "Deactivate Start with current page in ToolsOptions "
-   setStartCurrentPage(FALSE)
-
-   printlog "create a rectangle "
-   hRechteckErstellen 30,30,60,60
-   printlog "do 2 times : "
-   for i = 1 to 2
-      printlog "Insert->Slide... "
-      InsertSlide
-      sleep 2
-      hTypekeys "<Pagedown>"
-      sleep 2
-      printlog "create a rectangle "
-      hRechteckErstellen 30,30,70,70
-   next i
-
-   printlog "Slide Show -> Slide Show Settings "
-   SlideShowPresentationSettings
-      Kontext "Bildschirmpraesentation"
-      if (Fenster.IsChecked = False) Then Fenster.Check
-      printlog "close dialog 'Slide Show' with OK "
-      Bildschirmpraesentation.OK
-
-   printlog "Slide Show -> Custom Slide Show... "
-   SlideShowCustomSlideshow
-      Kontext "IndividuellePraesentation"
-      printlog "click button 'New...' "
-      Neu.Click
-
-         Kontext "IndividuellePraesentationDefinieren"
-         printlog "type something in 'Name' "
-         PraesentationName.SetText "Individually 1"
-         printlog "select the first entry in the list 'Existing Slides' "
-         SeitenPraesentation.Select 1
-         printlog "click button '>>' "
-         Hinzufuegen.Click
-         i = SelectedSlides.GetItemCount
-         if (i <> 1) Then
-            Warnlog "-  Number of slides 'Selected Slides' is not correct. It should be = '1', but it is = '" + i + "'"
-         endif
-         printlog "close dialog 'Define Custom Slide Show' with OK "
-         IndividuellePraesentationDefinieren.OK
-      Kontext "IndividuellePraesentation"
-      printlog "click button 'Edit...'"
-      Bearbeiten.Click
-         Kontext "IndividuellePraesentationDefinieren"
-         printlog "select an entry in the list 'Selected Slides' "
-         SelectedSlides.TypeKeys "<pagedown>"
-         printlog "click button '<<' "
-         Entfernen.Click
-         i = SelectedSlides.GetItemCount
-         if (i <> 0) Then
-            Warnlog "  Removing slides from list 'Selected Slides' does not work It should be = '1', but it is = '" + i + "'"
-         endif
-         printlog "select the first entry in the list 'Existing Slides' "
-         SeitenPraesentation.Select 1
-         printlog "click button '>>' "
-         Hinzufuegen.Click
-         printlog "close dialog 'Define Custom Slide Show' with OK "
-         IndividuellePraesentationDefinieren.OK
-      Kontext "IndividuellePraesentation"
-
-      printlog "check checkbox 'Use Custom Slide Show'"
-      IndividuellePraesentationBenutzen.Check
-   printlog "click button 'Start..."
-   Starten.Click
-      sleep 2
-      Kontext "DocumentPresentation"
-     printlog "press key [space] 2 times "
-      DocumentPresentation.TypeKeys "<space>"
-      sleep 2
-      DocumentPresentation.TypeKeys "<space>"
-      sleep 5
-      try
-         Kontext "IndividuellePraesentation"
-         printlog "close dialog 'Custom Slide Shows' with button 'Close' "
-         IndividuellePraesentation.Close
-      catch
-         Warnlog "- Slideshow did not end after slide 1"
-         DocumentPresentation.TypeKeys "<space>"
-         sleep 2
-      endcatch
-   printlog "Slide Show -> Custom Slide Show... "
-   SlideShowCustomSlideshow
-      Kontext "IndividuellePraesentation"
-      printlog "click button 'Edit...' "
-      Bearbeiten.Click
-         Kontext "IndividuellePraesentationDefinieren"
-         printlog "select 1st entry in the list 'Selected Slides' "
-         SelectedSlides.Select 1
-         printlog "click button '<<' "
-         Entfernen.Click
-         i = SelectedSlides.GetItemCount
-         if (i <> 0) Then
-            Warnlog "-  Add and remove slides does not work properly. It should be '0', but it is = '"+i+"'"
-         endif
-         printlog "select the first entry in the list 'Existing Slides' "
-         SeitenPraesentation.Select 1
-         printlog "click button '>>'  4 times "
-         for i =1 to 4
-            Hinzufuegen.Click
-         next i
-         for i =1 to 4
-            SelectedSlides.Select i
-            sTemp = SelectedSlides.GetSelText
-            If (sTemp <> Seite) then
-               Warnlog "-  Wrong slide added to individual slideshow. Instead of '" + Seite + "', '" + sTemp + "' was added"
-            endif
-         next i
-         printlog "close dialog 'Define Custom Slide Show' with OK "
-         IndividuellePraesentationDefinieren.OK
-      sleep 1
-      Kontext "IndividuellePraesentation"
-
-      printlog "UNcheck checkbox 'Use Custom Slide Show'"
-      IndividuellePraesentationBenutzen.UnCheck
-      printlog "click button 'Start...' "
-      Starten.Click               
-        printlog "press key [space] 4 times "
-         kontext "DocumentPresentation"
-         for i = 1 to 4
-            sleep 3
-            DocumentPresentation.TypeKeys "<space>"
-         next i
-         sleep 10
-      kontext "IndividuellePraesentation"
-   printlog "close dialog 'Custom Slide Shows' with button 'Close' "
-    if IndividuellePraesentation.exists then
-       IndividuellePraesentation.Close
-    else
-       Warnlog "'IndividuellePraesentation' was closed :-("
-    end if
-
-   printlog "Set Start with current page back to default = on, in ToolsOptions "
-   setStartCurrentPage(TRUE)
-   printlog "close the application "
-         Kontext "Navigator"
-      if Navigator.exists then
-         printlog "close navigator ! "
-         Navigator.Close
-      else
-         printlog "Navigator: NOT available"
-      end if
-      Call hCloseDocument
-      
-endcase 'tSlideShowCustomSlideShow
-
-'-------------------------------------------------------------------------------
-testcase tSlideShowSlideTransition
-
-   dim i as integer
-   dim x as integer
-   dim q as integer
-   dim sTemp as string
-   dim TimerValue as string
-   dim sFile as string
-   dim sEffect (3) as string
-
-   sFile = ConvertPath (gOfficePath + "user\work\diashow")
-
-   printlog "open application "
-    call hNewDocument
-
-   printlog "close the navigator"
-   Kontext "Navigator"
-   if Navigator.Exists then Navigator.Close
-   WaitSlot (3000)
-   printlog "create 3 slides with a rectangle "
-   hRechteckErstellen (30,30,60,60)
-   for i = 1 to 2
-      printlog " Insert->Slide "
-      WaitSlot (1000)
-      InsertSlide
-      WaitSlot (2000)
-      hTypekeys "<Pagedown>"
-      WaitSlot (2000)
-      printlog " insert rectangle"
-      hRechteckErstellen (30,30,60,60)
-   next i
-   Printlog "created 3 slides"
-   printlog "for all 3 slides do: "
-   for i = 1 to 3
-      printlog "open navigator with shortcutkey [MOD1 SHIFT F5] "
-      hTypeKeys "<MOD1 SHIFT F5>"
-         Sleep (3)
-         Kontext "NavigatorDraw"
-         printlog "select the next slide in the list "
-         if Liste.GetItemCount < 3 then
-            warnlog "We have " + Liste.GetItemCount + " entries in the Navigator."
-            hTypeKeys "<MOD1 SHIFT F5>"
-            hTypeKeys "<MOD1 SHIFT F5>"
-            Kontext "NavigatorDraw"
-         end if
-         Liste.Select i
-         printlog "press key [return] "
-         Liste.TypeKeys "<return>"
-         Kontext "Navigator"
-      printlog "close Navigator "
-      Navigator.Close
-      printlog " SlideShow->SlideTransition "
-      SlideShowSlideTransition
-         Kontext "Tasks" '"SlideTransition"' "OL_DIA_Diawechsel"  'OL_DIA_Diawechsel
-         TransitionAutomaticPreview.UnCheck
-         printlog "click button 'Effects' "
-         TransitionApplyToSelectedSlide.typekeys "<pagedown>"
-         Sleep (1)
-         printlog "in the listbox 'speed' select the i. one from the top "
-         TransitionSpeed.Select i
-         printlog "Select an effect-group from the listbox "
-         TransitionApplyToSelectedSlide.typekeys "<home>"
-         for q= 1 to (i+2)
-            Sleep (2)
-            TransitionApplyToSelectedSlide.typekeys "<down>"
-            Sleep (2)
-         next q
-         sEffect(i) = TransitionApplyToSelectedSlide.GetSelText
-         printlog "click button 'Extras' "
-         Sleep (2)
-         printlog "click button 'Automatic Transition' "
-         select case i
-            case 1: 
-                    TransitionAutomaticallyAfter.Check
-                    printlog " Set Time to '00:00:01' OR "
-                    TransitionAutomaticallyAfterTime.ToMin 'SetText "1" '"00:00:01"
-                    TransitionAutomaticallyAfterTime.More
-		            TransitionApplyToSelectedSlide.typekeys "<DOWN>"
-                    TransitionApplyToSelectedSlide.typekeys "<UP>"		    
-                    TransitionAutomaticallyAfter.Check
-                    Tasks.TypeKeys "<TAB><TAB><TAB>"
-                    TimerValue = TransitionAutomaticallyAfterTime.GetText
-		    printlog "TimerValue is now: " + TimerValue
-            case else: printlog "click button 'SemiAutomatic Transition' OR "
-                    TransitionOnMouseClick.Check
-         end select
-       Sleep (3)
-   next i
-   Printlog "assigned transitions to all slides"
-
-   Kontext "DocumentImpress"
-   Sleep (3) 
-   printlog "SlideShow->Slide Show Settings... "
-   SlideShowPresentationSettings
-      Kontext "Bildschirmpraesentation"
-      WaitSlot (2000)
-      printlog "check Radio button 'Type': 'Window' "
-      Fenster.Check
-   printlog "close dialog 'Slide Show' "
-   Bildschirmpraesentation.OK
-   WaitSlot (5000)
-   Kontext "DocumentImpress"
-   Printlog "printlog SlideShow->Slide Show"
-   SlideShowSlideshow
-   printlog "wait 10 sec "
-   sleep (10) 
-   Kontext "DocumentPresentation"
-   printlog "type key [ESCAPE] "
-   DocumentPresentation.TypeKeys "<ESCAPE>"
-   WaitSlot (3000)
-   try
-      printlog "type key [F11] to open the stylist (to check ending of presenation) "
-      if lcase(gPlatform) = "osx" then
-          hTypekeys "<mod1 t>"
-      else
-          hTypeKeys "<F11>"
-      endif
-      Sleep (3)
-      Kontext "Gestalter"
-      Sleep (3)
-      printlog "close Stylist "
-      Gestalter.Close
-      Printlog "- Slideshow worked"
-   catch
-      Kontext "DocumentPresentation"
-      DocumentPresentation.TypeKeys "<ESCAPE>"
-      Warnlog "slideshow somehow didn't end :-("
-      Sleep (2)
-   endcatch
-
-   printlog "close the navigator"
-   Kontext "Navigator"
-   if Navigator.Exists then Navigator.Close
-   Printlog "check the settings in SlideView in the Dia object bar "
-   for i = 1 to 3
-      Printlog " --------------------- " + i + " ---------------------------"
-      printlog " open navigator with shortcutkey [MOD1 SHIFT F5] "
-      hTypeKeys "<MOD1 SHIFT F5>"
-         sleep (3)
-         Kontext "NavigatorDraw"
-         printlog " select the next slide in the list "
-         Liste.Select i
-         printlog " press key [return] "
-         Liste.TypeKeys "<return>"
-         Kontext "Navigator"
-        printlog " close Navigator "
-      Navigator.Close
-      printlog " View->Master View->Slides View "
-      Sleep (2)
-      Kontext "Tasks" 
-      printlog "  check 'speed' "
-      if Tasks.Exists = TRUE AND Tasks.IsVisible = TRUE then
-         x = TransitionSpeed.GetSelIndex  'TransitionSpeed
-         if (x <> i) then
-            Warnlog "Speed changed :-( is: '" + x + "' should be: '" + i + "'"
-         end if
-         printlog " check 'Transition' "
-         x = TransitionApplyToSelectedSlide.GetSelIndex 'Diawechsel.GetSelIndex
-         if (x <> (i+3)) then
-            Warnlog "Transition changed :-( is: '" + x + "' should be: '" + (i+3) + "'"
-            sTemp = TransitionAutomaticallyAfterTime.GetText
-            if ((sTemp <> TimerValue)) then  '"00:00:01"  '(i = 3) AND 
-               Warnlog "Time is different :-( is: '" + sTemp + "' should: '" + TimerValue + "'"  '"00:00:01"
-            end if
-         end if
-
-         printlog "  check 'effect group' "
-         sTemp = TransitionApplyToSelectedSlide.GetSelText
-         x = inStr (sTemp,sEffect(i))
-         Printlog " Effect tried :-) '" + x + "'"
-         if (x < 1) then
-            printlog "the string '" + sTemp + "' should contain the words(s): '" + sEffect(i) + "'"
-         end if
-      else
-         warnlog "   SlideViewObjectbar doesnt exists or isnt visible"
-      end if
-   next i
-   printlog "save file as presentation with name 'user\work\diashow)' "
-
-    hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
-    
-   Printlog "   saved presentation: '" + sFile + "'"  '." + gImpressFilter + "
-   printlog "close application"
-   hCloseDocument ()
-   WaitSlot (10000)
-   printlog "load file again "
-   hFileOpen (sFile + ".odp")
-   WaitSlot (5000)
-   Printlog "check setings for every slide in the transition dialog "
-   printlog "  for all 3 slides do: "
-   for i = 1 to 3
-        Printlog " --------------------- " + i + " ---------------------------"
-        printlog " open navigator with shortcutkey [MOD1 SHIFT F5] "
-        hTypeKeys "<MOD1 SHIFT F5>"
-        Sleep (3)
-        Kontext "NavigatorDraw"
-        printlog " select the next slide in the list "
-        Liste.Select i
-        printlog " press key [return] "
-        Liste.TypeKeys "<return>"
-        Kontext "Navigator"
-        printlog " close Navigator "
-        Navigator.Close
-        printlog " select the grafik with the key [TAB] "
-        hTypeKeys ("<tab>")
-        printlog " SlideShow->SlideTransition "
-        SlideShowSlideTransition
-         Kontext "Tasks"
-         Sleep (1)
-         printlog " check 'speed' "
-         x = TransitionSpeed.GetSelIndex
-         if (x <> i) then
-            Warnlog "   Speed changed :-( is: '" + x + "' should: '" + i + "'"
-         end if
-        printlog " check 'effect group' "
-         x = TransitionApplyToSelectedSlide.GetSelIndex
-         if (x <> (i+3)) then
-            Warnlog "   Effect changed :-( is: '" + x + "' should: '" + (i+3) + "'"
-         end if
-         sleep (1)
-         select case i
-            case 1: printlog " click button 'Automatic Transition' "
-                    if (TransitionAutomaticallyAfter.IsEnabled) then
-                       printlog " Check Time '1' OR "
-                       sTemp = TransitionAutomaticallyAfterTime.GetText
-                       if (sTemp <> TimerValue) then
-                          Warnlog "   Time is different :-( is: '" + sTemp + "' should be: '" + TimerValue + "'" '"00:00:01"
-                       end if
-                    else
-                       Warnlog "   button 'Automatic Transition' not pressed ?"
-                    end if
-            case 2: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then
-                        printlog " check button 'SemiAutomatic Transition' OR "
-                       Warnlog "   button 'Automatic Transition' is pressed ?"
-                    end if
-            case 3: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then
-                      printlog "click button 'Manual Transition' "
-                       Warnlog "   button 'Automatic Transition' is pressed ?"
-                    end if
-         end select
-      Sleep (3)
-   next i
-   TransitionAutomaticPreview.Check
-   printlog "Set Start with current page back to default = on, in ToolsOptions "
-   setStartCurrentPage(TRUE)
-   Kontext "Navigator"
-   if Navigator.exists then
-      printlog " close navigator ! "
-      Navigator.Close
-   else
-      printlog "Navigator: NOT available"
-   end if
-   printlog "Close the document "
-   call hCloseDocument
-   
-endcase 'tSlideShowSlideTransition
-
-'-------------------------------------------------------------------------------------
-testcase tSlideShowShowHideSlide
-
-    dim saSlideNames(4) as string
-    dim i as integer
-    
-    S1 = glLocale (2) + " 1"
-    S2 = glLocale (2) + " 2"
-    S3 = glLocale (2) + " 3"
-    S4 = glLocale (2) + " 4"
-    saSlideNames(1) = S1
-    saSlideNames(2) = S2
-    saSlideNames(3) = S3
-    saSlideNames(4) = S4
-
-    printlog "Open file 'graphics\input\diashow.odp' (Slide Show with 4 Slides)"
-    hFileOpen   ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp")
-    sleep (10)
-    printlog "check if the document is writable"
-    if fIsDocumentWritable = false then
-        printlog "make the document writable and check if it's succesfull"
-        if fMakeDocumentWritable = false then
-            warnlog "   The document can't be make writeable. Test stopped."
-            goto endsub
-        endif
-    endif
-    Kontext "Navigator"
-    if Navigator.exists then
-      printlog "close navigator"
-      Navigator.Close
-    else
-      printlog "Navigator: NOT available"
-    endif
-    printlog "View->Workspace->Slides View"
-    ViewWorkspaceSlidesView
-    sleep (1)
-    Kontext "Slides"
-    printlog "Selecting 2nd slide"
-    SlidesControl.TypeKeys "<PAGEDOWN>"
-    printlog "Hiding 2nd slide"
-    SlideShowHideSlide
-    printlog "Selecting 4th slide"
-    SlidesControl.TypeKeys "<PAGEDOWN>" ,2
-    printlog "Hiding 4th slide"
-    SlideShowHideSlide
-    
-    sleep (2)
-    printlog "View->Workspace->Drawing View"
-    ViewWorkspaceDrawingView
-    kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<HOME>"
-    sleep (2)
-    printlog "SlideShow->Slide Show Settings..."
-    SlideShowPresentationSettings
-    Kontext "Bildschirmpraesentation"
-    sleep (2)
-    printlog "check Radio button 'Type': 'Window'"
-    Fenster.Check
-    sleep (1)
-    printlog "close dialog 'Slide Show' with OK "
-    Bildschirmpraesentation.OK
-    printlog "start the slideshow with 'Slide Show->Slide Show'"
-    SlideShowSlideshow
-    sleep (1)
-    kontext "DocumentPresentation"
-    printlog "type the key [MOD1 SHIFT F5] to open the navigator" 
-    DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-    sleep (1)
-    kontext "NavigatorDraw"
-    for i = 1 to 2
-        if ((i mod 2) = 1) then ' for all odd numbers (ungerade) do
-            printlog "Getting slide names"
-            fGetSlideName(saSlideNames(i))
-            kontext "DocumentPresentation"
-            DocumentPresentation.TypeKeys "<pagedown>"
-            sleep (3)
-        endif
-        Kontext "NavigatorDraw"
-        if NavigatorDraw.exists (5) then
-            sleep 1
-            printlog "check in list, if the page changed"
-            if ((i mod 2) = 1) then ' for all odd numbers (ungerade) do
-                if i = Liste.GetSelIndex then
-                    qaerrorlog "the Navigator didn't update!"
-                endif
-            endif
-        else
-            warnlog "   Navigator doesn't exist?!?!?"
-        endif
-        sleep (1)
-    next i
-    sleep (3)
-    Kontext "DocumentPresentation"
-    DocumentPresentation.TypeKeys "<pagedown>"
-    sleep (2)
-    DocumentPresentation.TypeKeys "<pagedown>"
-    sleep (5)
-    try
-        DocumentPresentation.MouseDown 50,50
-        DocumentPresentation.MouseUp 50,50 'This one works to recognice the not ending.
-        warnlog "   Presentation did NOT END!!!"
-    catch
-        printlog "   ended right."
-    endcatch
-    sleep (2)
-    Kontext "Navigator"
-    if Navigator.exists then
-        printlog "close navigator !"
-        Navigator.Close
-    else
-        printlog "Navigator: NOT available"
-    endif
-    Call hCloseDocument
-    
-endcase 'tSlideShowShowHideSlide
-
-'------------------------------------------------------------------------------
\ No newline at end of file