CWS-TOOLING: integrate CWS automationdev300m88graphics

8 files changed, 199 insertions, 1555 deletions

diff --git a/testautomation/graphics/optional/includes/impress/i_us2_present.inc b/testautomation/graphics/optional/includes/impress/i_us2_present.inc
index eeeeb5effb6b..1db9740b577a 100644
--- a/testautomation/graphics/optional/includes/impress/i_us2_present.inc
+++ b/testautomation/graphics/optional/includes/impress/i_us2_present.inc
@@ -37,14 +37,13 @@ testcase i_us2_pres1
     dim iPictures as integer
     dim PresentationFile1 as string
     PresentationFile1 = (ConvertPath (gOfficePath + "user\work\PwrPres1.odp"))
+
     kontext "DocumentImpress"
-    printlog "New - Wizard - Presentation."
+    printlog "Starting with New - Wizard - Presentation."
     FileAutopilotPresentation
-    printlog "Called File-Autopilot-Presentation."
-    printlog "Create from Template"
+    printlog "Called File-Autopilot-Presentation, create from template."
     kontext "AutoPilotPraesentation1"
     FromTemplate.Check
-    'This part is for language-indepencancy
     if gOOO = TRUE then
         TemplateRegion.Select (1)
         printlog "Choose a Presentation"
@@ -56,7 +55,7 @@ testcase i_us2_pres1
             if TemplateList.GetItemCount < 40 then
                 TemplateRegion.Select (3)
                 if TemplateList.GetItemCount < 40 then
-                    Warnlog "   No Templates selectable in the wizard. Please check."
+                    Warnlog "No Templates selectable in the wizard. Please check."
                     goto endsub
                 endif
             endif
@@ -71,29 +70,29 @@ testcase i_us2_pres1
     sleep (1)
     Nextbutton.Click
 
-    printlog "   Switched to the second Wizard-page."
+    printlog "Switched to the second Wizard-page."
     sleep (1)
     printlog "Presentations"
     kontext "AutoPilotPraesentation2"
     printlog "Output: Screen"
-    if gOOO = TRUE then  'OpenOffice.org
+    if gOOO = TRUE then 
         Background.Select (2)
         if Backgroundchoice.GetItemCount < 2 then
             Background.Select (1)
             if Backgroundchoice.GetItemCount = 0 then
-                Warnlog "   No Backgrounds selectable in the wizard. Please check."
+                Warnlog "No Backgrounds selectable in the wizard. Please check."
                 goto endsub
             endif
         endif
         Backgroundchoice.Select (2)
-    else  'StarOffice
+    else 
         Background.Select (3)
         if Backgroundchoice.GetItemCount < 10 then
             Background.Select (2)
             if Backgroundchoice.GetItemCount < 10 then
                 Background.Select (3)
                 if Backgroundchoice.GetItemCount < 10 then
-                    Warnlog "   No Backgrounds selectable in the wizard. Please check."
+                    Warnlog "No Backgrounds selectable in the wizard. Please check."
                     goto endsub
                 endif
             endif
@@ -104,7 +103,7 @@ testcase i_us2_pres1
     printlog "Next"
     Nextbutton.Click
 
-    printlog "   Switched to the third Wizard-page."
+    printlog "Switched to the third Wizard-page."
     sleep (1)
     kontext "AutoPilotPraesentation3"
     printlog "Random Effect. Random Speed. Click through every choice."
@@ -118,7 +117,7 @@ testcase i_us2_pres1
     printlog "Next"
     Nextbutton.Click
 
-    printlog "   Switched to the fourth Wizard-page."
+    printlog "Switched to the fourth Wizard-page."
     sleep (1)
     kontext "AutoPilotPraesentation4"
     printlog "Fill in some company-name-subject-text"
@@ -136,36 +135,50 @@ testcase i_us2_pres1
     AutoPilotPraesentation5.OK
 
     sleep (1)
-    printlog "   Pressed 'Create'."
+    printlog "Pressed 'Create'."
     printlog "Add a Slide via Insert - Slide."
     Kontext "DocumentImpress"
-    hTypeKeys "What we will talk about"
-    gMouseClick 1,1
-    Kontext "DocumentImpress"
     DocumentImpress.UseMenu
     hMenuSelectNr (4)
     hMenuSelectNr (1)
-    call sSelectEmptyLayout
+
+    Kontext "DocumentImpress"
+    DocumentImpress.UseMenu
+    hMenuSelectNr (5)
+    hMenuSelectNr (13)
+    printlog "Changing focus to TaskPane."
+    kontext "Tasks"
+    sleep (1)
+    printlog "Selecting 5th layout."
+    LayoutsPreview.TypeKeys "<HOME>"
+    sleep (1)
+    LayoutsPreview.TypeKeys "<RIGHT>", 4
+    LayoutsPreview.TypeKeys "<RETURN>"
     sleep (1)
+    kontext "DocumentImpress"
+
+    sleep (1)
+    hTypeKeys "What we will talk about"
+    gMouseClick 1,1
 
     kontext "Slides"
-    SlidesControl.TypeKeys "<HOME><RETURN>"
+    SlidesControl.TypeKeys "<HOME>"
     kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<TAB>Text we just wrote..."
+    DocumentImpress.TypeKeys "<TAB>"
+    DocumentImpress.TypeKeys "Text we just wrote..."
+    DocumentImpress.TypeKeys "<ESCAPE>"
     printlog "Switch to the second slide."
     kontext "Slides"
-    SlidesControl.TypeKeys "<DOWN><RETURN>"
-    SlidesControl.TypeKeys "<RETURN>"
+    SlidesControl.TypeKeys "<DOWN>"
     kontext "DocumentImpress"
     printlog "Insert three lines with text, all with different formatting."
     call hTextrahmenErstellen ("First line with text",20,50,70,50)
     call hTextrahmenErstellen ("Second line with text",20,60,70,60)
     call hTextrahmenErstellen ("Third line with text",20,70,70,70)
-    printlog "Go down to the eleventh slide."
+    printlog "Go down to the third slide."
     kontext "Slides"
     SlidesControl.TypeKeys "<HOME>"
-    SlidesControl.TypeKeys "<PAGEDOWN>", 10
-    SlidesControl.TypeKeys "<RETURN>"
+    SlidesControl.TypeKeys "<PAGEDOWN>", 3
     printlog "Insert Smiley, + two circles around the eyes, + two new pupils,"
     printlog "placed at some interesteing place inside the circles."
     Kontext "Toolbar"
@@ -202,12 +215,12 @@ testcase i_us2_pres1
     hTypeKeys "<Escape>"
     sleep (1)
 
-    printlog "Insert new slide."
     kontext "Slides"
     printlog "get to the last slide."
-    SlidesControl.TypeKeys "<PAGEDOWN>", 15
+    SlidesControl.TypeKeys "<PAGEDOWN>", 3
+    printlog "Insert 4th slide."
     SlidesControl.TypeKeys "<RETURN>"
-    printlog "Delete the two fields the stylist has."
+    printlog "Delete everything on the page."
     kontext "DocumentImpress"
     gMouseClick 1,1
     EditSelectAll
@@ -220,22 +233,25 @@ testcase i_us2_pres1
     Oeffnen.Click
     gMouseClick 1,1
     printlog "Add a text above the picture. 'There is movement..."
-    call hTextrahmenErstellen ("There is movement...",20,20,70,30)
+    call hTextrahmenErstellen ("There is movement...",20,40,70,30)
 
     printlog "Add a new slide."
     InsertSlide
-    printlog "   Inserted new slide."
+    printlog "Inserted new slide."
     kontext "DocumentImpress"
     printlog "Bla bla about everything..."
-    call hTextrahmenErstellen ("Bla bla about everything...",20,20,70,30)
+    DocumentImpress.TypeKeys "<TAB>"
+    DocumentImpress.TypeKeys "Bla bla about everything..."
+    DocumentImpress.TypeKeys "<ESCAPE>",2
 
     printlog "Add a new slide."
     InsertSlide
     printlog "   Inserted new slide."
     kontext "DocumentImpress"
     printlog "Write text:  Q & A"
-    call hTextrahmenErstellen ("Q & A",20,20,70,30)
-    DocumentImpress.TypeKeys "<SHIFT HOME>"
+    DocumentImpress.TypeKeys "<TAB>"
+    DocumentImpress.TypeKeys "Q & A"
+    DocumentImpress.TypeKeys "<ESCAPE>",2
     sleep (1)
 
     printlog "Add a new slide."
@@ -243,11 +259,13 @@ testcase i_us2_pres1
     kontext "DocumentImpress"
 
     printlog "Thanks for listening, time for coffee... (ending)"
-    call hTextrahmenErstellen ("Class dismissed...",20,20,70,30)
+    DocumentImpress.TypeKeys "<TAB>"
+    DocumentImpress.TypeKeys "Class dismissed..."
+    DocumentImpress.TypeKeys "<ESCAPE>",2
 
     printlog "Save Document"
     call hFileSaveAsKill (PresentationFile1)
-    printlog "OK   saved at ", PresentationFile1
+    printlog "OK, saved at ", PresentationFile1
     sleep (1)
 
     printlog "Close Document"
diff --git a/testautomation/graphics/optional/includes/impress/i_us_present.inc b/testautomation/graphics/optional/includes/impress/i_us_present.inc
index 599f89abe4f1..ea0d1ff3af2d 100644
--- a/testautomation/graphics/optional/includes/impress/i_us_present.inc
+++ b/testautomation/graphics/optional/includes/impress/i_us_present.inc
@@ -31,20 +31,36 @@
 '*
 '\********************************************************************
 
-testcase i_us_presentation1
+testcase i_us_presentation
 
-    dim iPictures as integer
-    dim PresentationFile1 as string
+    dim iPictures as integer 'variable for the number of the used picture gallery theme
+    dim iAnimations as Integer 'variable used for the number of the used animation gallery theme
+    dim iSize as integer 'step variable
+    dim sFileName as string 'name for ppt export file
+    dim iKeyStroke as integer 'counter variable for hitting space in running presentation
+    dim PresentationFile as string 'variable for the file name
 
-    PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )
 
-    printlog "New impress document"
+    PresentationFile = ConvertPath( gOfficePath + "user\work\PowerPres1.odp" )
+    printlog "Setting up an impress document in several steps..."
+    printlog "1. New impress document"
     Call hNewDocument
-    Call sSelectEmptyLayout
+    Kontext "DocumentImpress"
+    printlog "Selecting layout: Centered Text"
+    DocumentImpress.UseMenu
+    hMenuSelectNr (5)
+    hMenuSelectNr (13)
+    printlog "Changing focus to TaskPane."
+    sleep 1
+    Kontext "Tasks"
+    printlog "to get to the very first position"
+    LayoutsPreview.TypeKeys "<HOME>"
+    printlog "'to get to the right position"
+    LayoutsPreview.TypeKeys "<RIGHT>", 5
+    LayoutsPreview.TypeKeys "<RETURN>"
     WaitSlot (2000)
     kontext "DocumentImpress"
-
-    printlog "Add second Master-Page "
+    printlog "Add a second Master-Page "
     ViewMasterPage
     kontext "Slides"
     SlidesControl.OpenContextMenu(true)
@@ -56,6 +72,7 @@ testcase i_us_presentation1
 
     printlog "set background to picture(Gallery)"
     Kontext "Gallery"
+
     if Gallery.Exists(2) then
         warnlog "The Gallery was already visible. Check earlier ran tests for inconsistency."
         sleep (2)
@@ -110,20 +127,22 @@ testcase i_us_presentation1
     MenuSelect 27353
     sleep (2)
     Kontext "ExportierenDlg"
+
     if ExportierenDlg.IsVisible(5) then
         printlog "Gallery-object correctly copied into Slide."
         ExportierenDlg.Close
         WaitSlot (2000)
     end if
+
     kontext "GraphicObjectbar"
+
     if GraphicObjectbar.Exists(5) = FALSE then
         kontext "DocumentImpress"
         ViewToolbarsPicture
     end if
 
-    kontext "Gallery"
-    Gallerys.Select (iPictures)
-    printlog " 50% Transparency"
+    kontext "GraphicObjectbar"
+    printlog "50% Transparency"
     WaitSlot (2000)
     kontext "GraphicObjectbar"
     Transparenz.SetText "50"
@@ -139,9 +158,10 @@ testcase i_us_presentation1
         Height.SetText "16"
         Mosaic.OK
     else
-        warnlog( "Dialog <Mosaic> did not open" )
+        warnlog "Dialog did not came up."
     endif
     kontext "GraphicFilterBar"
+    printlog "Closing dialog and Gallery."
     GraphicFilterBar.Close
     ToolsGallery
     WaitSlot (1000)
@@ -149,13 +169,12 @@ testcase i_us_presentation1
     gMouseClick 50,50
     sleep (1)
     FormatPositionAndSize
-
     kontext
     if ( Active.exists( 2 ) ) then
         active.setPage(TabPositionAndSize)
         kontext "TabPositionAndSize"
-        Width.SetText "15"
-        Height.SetText "11"
+        Width.SetText "28"
+        Height.SetText "21"
         SizePosition.TypeKeys "<RIGHT><DOWN>"
         TabPositionAndSize.OK
     else
@@ -164,31 +183,26 @@ testcase i_us_presentation1
 
     printlog "Close Master"
     hUseAsyncSlot( "ViewNormal" )
-
+    kontext "DocumentImpress"
+    printlog "Inserting title on first slide."
+    DocumentImpress.TypeKeys "<TAB>"
+    DocumentImpress.TypeKeys "<RETURN>"
+    DocumentImpress.TypeKeys "WELCOME!"
+    DocumentImpress.TypeKeys "<ESCAPE>", 2
+    sleep 1
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile1)
-
+    call hFileSaveAsKill (PresentationFile)
     ActiveDeactivateCTLSupport (FALSE)
-
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation1
-
-'-------------------------------------------------------------------------------
+    printlog "-------------------------------------------------------------------------------"
 
-testcase i_us_presentation2
-
-    dim PresentationFile1 as string
-    dim PresentationFile2 as string
-
-    PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )
-    PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )
-
-     if ( FileExists( PresentationFile1 ) ) then 'if file exists...
-        hFileOpen (PresentationFile1)
+    printlog "2. Loading file again..."
+    if ( FileExists(PresentationFile) ) then 'if file exists...
+        hFileOpen (PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
     sleep (2)
@@ -197,55 +211,46 @@ testcase i_us_presentation2
     SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )
     SlidesControl.TypeKeys "<SHIFT F10>"   'OpenContextMenu(true)
     sleep (1)
-
     MenuSelect(MenuGetItemID(1)) 'New Slide  'No 2
-    printlog "   Inserted second normal Slide"
-    call sSelectEmptyLayout
-    printlog "2. Layouts: Text. Bild: Gallery: Animation - Gif"
+    printlog "Inserted second normal Slide"
+    printlog "Select 4th Layout: Title and 2 Content blocks"
     Kontext "Tasks"
     printlog "to get to the very first position"
     LayoutsPreview.TypeKeys "<HOME>"
     printlog "'to get to the right position"
-    LayoutsPreview.TypeKeys "<RIGHT>", 9
+    LayoutsPreview.TypeKeys "<RIGHT>", 3
     LayoutsPreview.TypeKeys "<RETURN>"
-
     hUseAsyncSlot( "ViewNormal" )
-
-    printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)"
+    printlog "Hide Slidepane (Oops! The user were too fast: accidently hide the pane)"
     kontext "Slides"
     SlidesControl.FadeOut
     WaitSlot (1000)
-
-    printlog "4. Restore Pane."
+    printlog "Restore Pane."
     SlidesControl.FadeIn
-
-    printlog "   Did the 'mistake' to FadeIn/Out the Slidepane"
-
-InsertGraphicsFromFile
-Kontext "GrafikEinfuegenDlg"
-if GrafikEinfuegenDlg.exists(5) then
-printlog "   The Insertgraphics-dialogue showed up correctly."
-sleep (5)
-else
-warnlog "   The Insertgraphics-dialogue didn't show up."
-endif
+    printlog "Did the 'mistake' to FadeIn/Out the Slidepane"
+    InsertGraphicsFromFile
+    Kontext "GrafikEinfuegenDlg"
+    if GrafikEinfuegenDlg.exists(5) then
+    printlog "   The Insertgraphics-dialogue showed up correctly."
+    sleep (5)
+    else
+    warnlog "   The Insertgraphics-dialogue didn't show up."
+    endif
 
     printlog "Graphics-Import-dialogue. Select i_us_large.jpg"
     Kontext "GrafikEinfuegenDlg"
-    if ( GrafikEinfuegenDlg.exists( 2 ) ) then
 
+    if ( GrafikEinfuegenDlg.exists( 2 ) ) then
         Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
         Oeffnen.Click
-
         Kontext "DocumentImpress"
         printlog "Deselect graphic"
-        DocumentImpress.MouseDoubleClick 90,90
-        printlog "   Inserted Graphic into the second Slide"
-
+        DocumentImpress.TypeKeys "<ESCAPE>"
+        printlog "Inserted Graphic into the second Slide"
         printlog "Change text on the two text-boxes"
         DocumentImpress.TypeKeys "<TAB>" 'First text.
         DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode.
-        DocumentImpress.TypeKeys "The World has just become a bit easier"
+        DocumentImpress.TypeKeys "The World has just become easier now.."
         DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
         DocumentImpress.TypeKeys "<TAB><TAB><TAB>"
         DocumentImpress.TypeKeys "<RETURN>"
@@ -253,9 +258,9 @@ endif
         DocumentImpress.TypeKeys "<RETURN>"
         DocumentImpress.TypeKeys "Very durable"
         DocumentImpress.TypeKeys "<RETURN>"
-        DocumentImpress.TypeKeys "Priced lower than its predecessor!"
+        DocumentImpress.TypeKeys "Priced lower!"
         DocumentImpress.TypeKeys "<RETURN>"
-        DocumentImpress.TypeKeys "Sexy"
+        DocumentImpress.TypeKeys "Astonishing!"
         DocumentImpress.TypeKeys "<RETURN>"
         DocumentImpress.TypeKeys "Energy-efficient"
         DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
@@ -264,52 +269,36 @@ endif
     endif
 
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile2)
-
-    ActiveDeactivateCTLSupport (FALSE)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation2
-
-'-------------------------------------------------------------------------------
+    printlog "-------------------------------------------------------------------------------"
 
-testcase i_us_presentation3
-
-    dim PresentationFile2 as string
-    dim PresentationFile3 as string
-
-    PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )
-    PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )
-
-    if ( FileExists( PresentationFile2 ) ) then 'if file exists...
-        hFileOpen( PresentationFile2 )
+    printlog "3. Loading file again.."
+    if ( FileExists(PresentationFile) ) then 'if file exists...
+        hFileOpen(PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
 
-    printlog "Insert New Slide"
+    printlog "Insert New Slide, 3rd one"
     kontext "slides"
     SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )
-
     kontext "DocumentImpress"
-    InsertSlide 'No 3
-
-    printlog "5. Layout. Clip/Text"
+    InsertSlide 
+    printlog "5. Layout. Title only"
     kontext "Tasks"
     LayoutsPreview.TypeKeys "<HOME>"     'to get to the very first position
     LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position
     LayoutsPreview.TypeKeys "<RETURN>"
-
     hUseAsyncSlot( "ViewNormal" )
-
     kontext "DocumentImpress"
     Call gMouseClick 50,50
     DocumentImpress.TypeKeys "<TAB><RETURN>"
     DocumentImpress.TypeKeys "A new form"
-
+    DocumentImpress.TypeKeys "<ESCAPE>", 2
     printlog "6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit)"
     printlog "insert graphic file (i_us_large.jpg)"
     InsertGraphicsFromFile
@@ -320,39 +309,21 @@ testcase i_us_presentation3
     Oeffnen.Click
     WaitSlot (2000)
     Kontext "DocumentImpress"
-
     printlog "The user corrects the picture"
     DocumentImpress.MouseDown 50,50
     DocumentImpress.MouseUp 50,50
     DocumentImpress.TypeKeys "<DOWN>", 30
-
     printlog "Deselect graphic"
     DocumentImpress.MouseDoubleClick 90,90
-
-    printlog "   Wrote Text, Inserted Graphic, and moved it in the third Slide"
-
+    printlog "Wrote Text, Inserted Graphic, and moved it in the third Slide"
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile3)
-
-    ActiveDeactivateCTLSupport (FALSE)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation3
-
-'-------------------------------------------------------------------------------
-
-testcase i_us_presentation4
-
-    dim PresentationFile3 as string
-    dim PresentationFile4 as string
-    dim iAnimations as Integer
-    dim iSize as integer
-
-    PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )
-    PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )
+    printlog "-------------------------------------------------------------------------------"
 
+    printlog "4. reopening file..."
     select case iSprache
     case 01   : iAnimations = 01 'English
     case 07   : iAnimations = 01 'Russian
@@ -373,167 +344,126 @@ testcase i_us_presentation4
         warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
     end select
 
-    if ( FileExists( PresentationFile3 ) ) then 'if file exists...
-        hFileOpen( PresentationFile3 )
+    if ( FileExists(PresentationFile) ) then 'if file exists...
+        hFileOpen( PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
 
     kontext "slides"
     SlidesControl.TypeKeys( "<PAGEDOWN>", 5 )
-
     kontext "DocumentImpress"
     printlog "insert slide no 4"
     hUseAsyncSlot( "InsertSlide" )
-
     printlog "Background: picture (Gallery)"
     Kontext "Gallery"
+
     if ( Not Gallery.Exists() ) then
         ToolsGallery
     end if
 
     kontext "Gallery"
+
     if ( Gallery.exists( 2 ) ) then
         Gallerys.Select (iAnimations)
 
         kontext "Gallery"
         View.TypeKeys "<HOME><RIGHT><RIGHT>"
-        wait( 200 )
+        sleep 1
         View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
-        wait( 200 )
+        sleep 1
         MenuSelect(MenuGetItemID(1))   'Insert
-        wait( 200 )
+        sleep 1
         MenuSelect(MenuGetItemID(1))   'Copy
     else
         warnlog( "Could not access Gallery" )
     endif
 
-    printlog "Check that we really got a copy of the object"
+    sleep 1
     kontext "DocumentImpress"
-    DocumentImpress.OpenContextMenu(true)
-    WaitSlot (1000)
-    MenuSelect 27353
-
-    Kontext "ExportierenDlg"
-    if ( ExportierenDlg.exists( 5 ) ) then
-        printlog "   Gallery-object correctly copied into Slide."
-        ExportierenDlg.Close
-    else
-        warnlog "   Doesn't seem like we copied anything from the Gallery... ?"
-    end if
-
-    kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<UP>", 82
-    DocumentImpress.TypeKeys "<LEFT>", 130
-
+    DocumentImpress.TypeKeys "<UP>", 75
+    DocumentImpress.TypeKeys "<LEFT>", 100
     printlog "Deselect graphic"
     DocumentImpress.MouseDoubleClick 90,90
-
     printlog "Close the Gallery"
     ToolsGallery
-
     printlog "Change Text on slide"
     DocumentImpress.TypeKeys "<TAB>"
     DocumentImpress.TypeKeys "<RETURN>"
-    DocumentImpress.TypeKeys "The process starts to flourish"
+    DocumentImpress.TypeKeys "The process starts here.."
     DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
     gMouseClick 50,50
-
-    ActiveDeactivateCTLSupport (TRUE)
-
     printlog( "Decrease..." )
-    for iSize = 100 to 25 step -25
+
+    for iSize = 80 to 20 step -20
         CreateTextSetEffectAndAngle
-        DocumentImpress.TypeKeys "<DOWN>", 80
+        DocumentImpress.TypeKeys "<DOWN>", 70
         DocumentImpress.TypeKeys "<LEFT>", iSize
         gMouseClick 90,90
     next iSize
 
     printlog( "Increase..." )
-    for iSize = 25 to 100 step 25
+
+    for iSize = 20 to 80 step 20
         CreateTextSetEffectAndAngle
-        DocumentImpress.TypeKeys "<DOWN>", 80
-        DocumentImpress.TypeKeys "<LEFT>", iSize
+        DocumentImpress.TypeKeys "<DOWN>", 70
+        DocumentImpress.TypeKeys "<RIGHT>", iSize
         gMouseClick 90,90
     next iSize
 
-    printlog "   Inserted fourth slide with Gallery-object."
-
+    printlog "Inserted fourth slide with Gallery-object."
+    printlog "Switching back task pane to default..."
+    Kontext "DocumentImpress"
+    DocumentImpress.UseMenu
+    hMenuSelectNr (5)
+    hMenuSelectNr (13)
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile4)
-
-    ActiveDeactivateCTLSupport (FALSE)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation4
+    printlog "-------------------------------------------------------------------------------"
 
-'-------------------------------------------------------------------------------
-
-testcase i_us_presentation5
-
-    dim PresentationFile4 as string
-    dim PresentationFile5 as string
-
-    PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )
-    PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )
-
-    if ( FileExists( PresentationFile4 ) ) then 'if file exists...
-        hFileOpen( PresentationFile4 )
+    printlog "5. reloading file..."
+    if ( FileExists(PresentationFile) ) then
+        hFileOpen(PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
 
     kontext "slides"
     SlidesControl.TypeKeys( "<PAGEDOWN>", 7 )
-
     kontext "DocumentImpress"
-    printlog "8. New Slide. (Insert Menu) (Duplicate slide)"
-    InsertDuplicateSlide 'No 5
+    printlog "New Slide. (Insert Menu) (Duplicate slide)"
+    InsertDuplicateSlide 
     printlog "Change the text in some way. (the user is making a joke with the audience)"
     gMouseClick 90,90
     DocumentImpress.TypeKeys "<TAB>"
     DocumentImpress.TypeKeys "<RETURN>"
     hUseAsyncSlot( "EditSelectAll" )
     DocumentImpress.TypeKeys "And does it with strength..."
-
-    printlog "   Inserted fifth slide with audience-joke."
-
+    printlog "Inserted fifth slide with audience-joke."
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile5)
-
-    ActiveDeactivateCTLSupport (FALSE)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation5
-
-'-------------------------------------------------------------------------------
-
-testcase i_us_presentation6
-
-    dim PresentationFile5 as string
-    dim PresentationFile6 as string
+    printlog "-------------------------------------------------------------------------------"
 
-    PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )
-    PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )
-
-    if ( FileExists( PresentationFile5 ) ) then 'if file exists...
-        hFileOpen( PresentationFile5 )
+    printlog "6. reloading file..."
+    if ( FileExists(PresentationFile) ) then 'if file exists...
+        hFileOpen(PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
 
     kontext "slides"
     SlidesControl.TypeKeys( "<PAGEDOWN>", 6 )
-
     kontext "DocumentImpress"
-    printlog "9. Q&A Slide"
+    printlog "Q&A Slide"
     InsertSlide
     WaitSlot (1000)
     kontext "DocumentImpress"
@@ -542,15 +472,15 @@ testcase i_us_presentation6
     DocumentImpress.TypeKeys "Q&A"
     DocumentImpress.TypeKeys "<SHIFT HOME>"
     wait( 500 )
-
     Kontext "TextObjectbar"
+
     if ( not TextObjectbar.Exists() ) then
         ViewToolbarsTextFormatting
     end if
 
     Kontext "TextObjectbar"
     wait( 500 )
-    Printlog "- Change size of font"
+    Printlog "Change size of font"
     Schriftgroesse.Select "26"
     Schriftgroesse.TypeKeys "<RETURN>"
     Fett.Click
@@ -560,77 +490,59 @@ testcase i_us_presentation6
     Auswahl.Click
     gMouseClick 60,60
     hUseAsyncSlot( "EditSelectAll" )
-
     DocumentImpress.TypeKeys "<DOWN>", 50
     kontext "DocumentImpress"
-    printlog "   Inserted sixth slide with Q&A."
-
+    printlog "Inserted sixth slide with Q&A."
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile6)
-
-    ActiveDeactivateCTLSupport (FALSE)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog "Close Document"
     hFileCloseAll()
 
-endcase 'i_us_presentation6
-
-'-------------------------------------------------------------------------------
-
-testcase i_us_presentation7
-
-    const KEY_STROKE_REPEAT = 8
+    printlog "-------------------------------------------------------------------------------"
 
-    dim sFilter as string
-    dim sFileName as string
-    dim PresentationFile6 as string
-    dim PresentationFile7 as string
-    dim iKeyStroke as integer
+    printlog "7. reloading file..."
+    sFileName = ConvertPath( gOfficePath + "user\work\export-test.ppt" )
 
-    PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )
-    PresentationFile7 = ConvertPath( gOfficePath + "user\work\PowerPes7.odp" )
-    sFileName         = ConvertPath( gOfficePath + "user\work\export-test.ppt" )
-
-    if ( FileExists( PresentationFile6 ) ) then 'if file exists...
-        hFileOpen( PresentationFile6 )
+    if ( FileExists(PresentationFile) ) then 'if file exists...
+        hFileOpen(PresentationFile)
     else
-        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
+        warnlog "Testdoc is missing or did not get saved."
         goto endsub
     end if
 
     kontext "slides"
-    SlidesControl.TypeKeys( "<PAGEDOWN>", KEY_STROKE_REPEAT )
-
+    SlidesControl.TypeKeys( "<PAGEDOWN>",7)
     kontext "DocumentImpress"
-    printlog " inserting Ending Slide"
+    printlog "inserting Ending Slide"
     InsertSlide 'No 7
-    DocumentImpress.TypeKeys "Ende"
-    printlog "   Inserted ending -slide."
-
+    DocumentImpress.TypeKeys "End"
+    printlog "Inserted ending -slide."
     Kontext "Gallery"
+
     if Gallery.Exists(2) then
-        warnlog "   The Gallery was visible. Closed it. Check earlier ran tests for inconsistency."
+        warnlog "The Gallery was visible. Closed it. Check earlier ran tests for inconsistency."
         ToolsGallery
         WaitSlot (2000)
     end if
 
     kontext "slides"
-    for i = 1 to 7
+
+    for i = 1 to 8
         sleep 1
         SlidesControl.TypeKeys "<PAGEUP>"
     next i
-    SlidesControl.TypeKeys "<RETURN>" 'At the first slide
 
     hTypeKeys "<F5>"
-
     kontext "DocumentPresentation"
-    for iKeyStroke = 1 to KEY_STROKE_REPEAT
+
+    for iKeyStroke = 1 to 8
         wait( 3000 )
         DocumentPresentation.TypeKeys "<PAGEDOWN>"
         wait( 2000 )
     next iKeyStroke
 
     kontext "DocumentPresentation"
+
     if ( DocumentPresentation.notExists( 5 ) ) then
         printlog( "Presentation closed. Good." )
     else
@@ -647,17 +559,15 @@ testcase i_us_presentation7
 
     kontext "DocumentImpress"
     printlog "Save Document"
-    call hFileSaveAsKill (PresentationFile7)
-
+    call hFileSaveAsKill (PresentationFile)
     printlog( "Save as Powerpoint-file (Using filter at pos. 5 in the filter list)" )
     FileSaveAs
-
     Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
 
+    if ( SpeichernDlg.exists( 2 ) ) then
         Dateiname.SetText sFileName
         Dateityp.Select 5  ' Powerpoint (possibly)
-        printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
+        printlog "Trying to save with filter: " + Dateityp.GetSelText
         Speichern.Click
 
         Kontext "Messagebox"
@@ -671,15 +581,11 @@ testcase i_us_presentation7
 
     printlog "Close all open documents"
     hFileCloseAll()
-
     printlog( "Reload file: " & sFileName )
     hFileOpen sFileName
     sleep( 3 )
-
     printlog "Close the office-session"
-    ActiveDeactivateCTLSupport (FALSE)
-
     printlog "Close Documents"
     hFileCloseAll()
 
-endcase 'i_us_presentation7
+endcase 'i_us_presentation
\ No newline at end of file
diff --git a/testautomation/graphics/optional/includes/impress/im_002_.inc b/testautomation/graphics/optional/includes/impress/im_002_.inc
deleted file mode 100644
index d1fa457ae8b2..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_002_.inc
+++ /dev/null
@@ -1,52 +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 : Impress Required Test Library (2)
-'*
-'\*****************************************************************
-
-testcase tiEditDeleteSlide
-'/// open application ///'
-   Call hNewDocument
-'/// Insert->Slide; press 'OK' ///'
-   InsertSlide
-   sleep 2
-   hTypekeys "<Pagedown>"
-   sleep 2
-'/// Edit->Delete Slide ///'
-   try
-      EditDeleteSlide
-   catch
-      warnlog "Error when deleting slide"
-   endcatch
-   Call hCloseDocument
-'/// close application ///'
-endcase
-
-
diff --git a/testautomation/graphics/optional/includes/impress/im_003_.inc b/testautomation/graphics/optional/includes/impress/im_003_.inc
deleted file mode 100644
index 1db0627e4a4e..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_003_.inc
+++ /dev/null
@@ -1,254 +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 : Impress Resource Test: View Menu
-'*
-'***********************************************************************************
-' #1 tiViewPanes
-' #1 tiViewMasterView
-' #1 tiViewSlideMaster
-' #1 tiViewToolbar_1
-'\**********************************************************************************
-
-testcase tiViewPanes
-    goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test
-    dim bState as boolean
-    '/// open application ///'
-    Call hCloseDocument
-    Call hNewDocument
-    sleep 1
-    kontext "Tasks"
-    if (NOT Tasks.exists) then
-        warnlog "Tasks Panel not visible on opening application. Opening now."
-        ViewTaskPane
-    endif
-    kontext "Slides"
-    if (NOT Slides.exists) then
-        warnlog "Slides Panel not visible on opening application. Opening now."
-        ViewTaskSlide
-    endif
-    kontext "Tasks"
-    '/// Deactivate all but "masterpages" ///'
-    View.OpenMenu
-    hMenuSelectNr (2)
-    View.OpenMenu
-    hMenuSelectNr (3)
-    View.OpenMenu
-    hMenuSelectNr (4)
-
-    sleep 1
-
-    Tasks.TypeKeys ("<RIGHT><RIGHT><RIGHT>")
-
-    try
-        kontext "recentlyUsed"
-        printlog "Toggeling Master Pages now with <space>"
-        kontext "MasterPages"
-        MasterPages.typeKeys "<space>"
-        kontext "recentlyUsed"
-        if (recentlyUsed.IsVisible = FALSE) then   'exists = FALSE) then
-            warnlog "View-menu didn't work"
-        endif
-        kontext "Tasks"
-        sleep 1
-        '/// View->Task Pane ///'
-        ViewTaskPane
-        sleep 1
-        if (Tasks.exists) then
-            warnlog "View->Task Panel failed"
-            ViewTaskPane
-        endif
-        '/// View->Task Pane ///'
-        ViewTaskPane
-        sleep 1
-        if (NOT Tasks.exists) then
-            warnlog "View->Task Panel failed"
-            ViewTaskPane
-        endif
-    catch
-        warnlog "View->Task Pane couldn't get executed"
-    endcatch
-    kontext "Slides"
-    try
-        ViewTaskSlide
-        if (Slides.exists) then
-            warnlog "View->Slide Panel failed."
-            ViewTaskSlide
-        endif
-        '/// View->Slide Pane ///'
-        ViewTaskSlide
-        sleep 1
-        if (NOT Slides.exists) then
-            warnlog "View->Slide Panel failed."
-            ViewTaskSlide
-        endif
-    catch
-        warnlog "View->Slide Pane couldn't get executed"
-    endcatch
-
-    '/// Reactivate all pages in the Task-panel ///'
-    kontext "Tasks"
-    View.OpenMenu
-    hMenuSelectNr (2)
-    View.OpenMenu
-    hMenuSelectNr (3)
-    View.OpenMenu
-    hMenuSelectNr (4)
-endcase
-
-testcase tiViewMasterView
-'/// open application ///'
-   Call hNewDocument
-'/// View->Master View->Drawing View ///'
-   sleep 1
-   ViewWorkspaceDrawingView
-'     Kontext "DocumentImpress"
-'     gMouseClick 70,70
-     sleep 5
-'/// View->Master View->Outline View ///'
-   ViewWorkspaceOutlineView
-'     Kontext "DocumentImpressOutlineView"
-'     DocumentImpressOutlineView.MouseDown 70,70
-'     DocumentImpressOutlineView.MouseUp 70,70
-     sleep 1
-'/// View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-'     Kontext "DocumentImpressSlideView"
-'     DocumentImpressSlideView.MouseDown 70,70
-'     DocumentImpressSlideView.MouseUp 70,70
-     sleep 1
-'/// View->Master View->Notes View ///'
-   ViewWorkspaceNotesView
-      sleep 1
-'/// View->Master View->Handout View ///'
-   ViewWorkspaceHandoutView
-      sleep 1
-'/// View->Master View->Drawing View ///'
-   ViewWorkspaceDrawingView
-'/// close application ///'
-      sleep 1
-   Call hCloseDocument
-endcase
-
-testcase tiViewSlideMaster
-'/// open application with : File->Autopilot->Presentation; OK; OK ///'
-'   Call  hNewDocument
-      FileAutopilotPresentation                ' to get a title :-)
-      sleep 2
-      Kontext "AutopilotPraesentation1"
-      AutopilotPraesentation1.Ok
-      sleep 1
-      Kontext "Seitenlayout"  ' aka: Modify Slide
-      if Seitenlayout.exists(5) then
-           warnlog "Slidelayout has to vanish; moved to sidebar"
-           Seitenlayout.OK
-      endif
-   kontext "DocumentImpress"
-   sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Drawing ///'
-   ViewDrawing
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Title ///'
-   try
-      ViewTitle
-      Errorlog "View - Master - Title Slide Master should NOT be accessable"
-   catch
-      printlog "View - Master - Title Slide Master not accessable - good"
-   endcatch
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Handout ///'
-   ViewHandout
-   Sleep 1
-'   ViewSlide
-   Sleep 1
-'/// View->Master->Notes ///'
-   ViewNotes
-   kontext "DocumentImpress"
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// close application ///'
-   Call  hCloseDocument
-endcase
-
-testcase tiViewToolbar_1
-  Dim Zaehler as integer
-  Dim i as integer
-
-'/// open application ///'
- Call hNewDocument
-  sleep 2
-'/// Insert->Graphic... : "global\input\graf_inp\desp.bmp" ///'
-  InsertGraphicsFromFile
-  sleep 2
-   Kontext "GrafikEinfuegenDlg"
-   sleep 1
-   Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 1
-   Oeffnen.Click
-   sleep 3
-   Kontext "Messagebox"
-    if Messagebox.Exists then
-      Warnlog Messagebox.GetText
-      Messagebox.OK
-    end if
-   Kontext "DocumentImpress"
-'/// select graphic ///'
-   EditSelectAll
-   sleep 2
-   Kontext "GraphicObjectbar"
-    sleep 1
-'/// The Graphics Toolbar has to be visible now; If not -> ERROR ///'
-    if GraphicObjectbar.Exists Then
-       Printlog "- graphic object toolbar exists"
-       Zaehler=Grafikmodus.GetItemCount
-       for i = 1 to Zaehler
-           Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")"
-           Grafikmodus.Select i
-           sleep 3
-       next i
-       sleep 3
-    else
-       Warnlog "- No graphic function toolbar visible"
-    end if
-'/// close application ///'
-  Call hCloseDocument
-endcase
-
-
diff --git a/testautomation/graphics/optional/includes/impress/im_004_.inc b/testautomation/graphics/optional/includes/impress/im_004_.inc
deleted file mode 100644
index 17d00addc847..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_004_.inc
+++ /dev/null
@@ -1,58 +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 : Impress Required Test Library (4)
-'*
-'\*****************************************************************
-
-testcase tiInsertSlideExpandSummary
-
-'/// open application ///'
-   Call hNewDocument
-   ' presupposition
-'/// View->Master View->Outline View ///'
-      ViewWorkspaceOutlineView
-      Sleep 1
-      Kontext "DocumentImpressOutlineView"
-'/// Type 2 rows ///'
-      DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi"
-'/// View->Master View->Drawing View ///'
-      ViewWorkspaceDrawingView
-      Sleep 1
-   ' test menue entries
-'/// Insert->Summery Slide ///'
-   InsertSummerySlide
-   Sleep 1
-'/// Insert->Expand Slide ///'
-   InsertExpandSlide
-   Sleep 2
-'/// close application ///'
-   Call  hCloseDocument
-endcase
-
diff --git a/testautomation/graphics/optional/includes/impress/im_005_.inc b/testautomation/graphics/optional/includes/impress/im_005_.inc
deleted file mode 100644
index 1aa218f3ecba..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_005_.inc
+++ /dev/null
@@ -1,50 +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 : Impress Required Test Library (5)
-'*
-'\*****************************************************************
-
-testcase tiFormatModifyLayout
-
-'/// open application ///'
-   Call  hNewDocument
-'/// Impress: Format->Modify Layout ///'
-'/// Draw   : kontext menu: Slide-> Modify Slide (always disabled :-( ?///'
-   FormatPage ' 27046 SID_MODIFYPAGE
-      Kontext "SeitenLayout"
-      DialogTest ( SeitenLayout )
-      sleep 1
-'/// cancel dialog 'Page Setup' ///'
-      SeitenLayout.Cancel
-'/// close application ///'
-   Call hCloseDocument
-endcase
-
-
diff --git a/testautomation/graphics/optional/includes/impress/im_007_.inc b/testautomation/graphics/optional/includes/impress/im_007_.inc
deleted file mode 100644
index fc9ba2800e0c..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_007_.inc
+++ /dev/null
@@ -1,693 +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 : Impress Required Test Library (7)
-'*
-'\*****************************************************************
-
-' this menue is only in impress availble
-testcase tSlideShowSlideShow
-    '/// open application ///'
-    Call hNewDocument
-    '/// Slide Show->Slide Show Settings ///'
-    SlideShowPresentationSettings
-    Kontext "Bildschirmpraesentation"
-    '/// check if 'type' 'default' is checked, it has to be the default !///'
-    if standard.IsChecked then
-        if LogoAnzeigen.isEnabled then
-            Warnlog "'Show Logo' is Enabled :-("
-        endif
-    else
-        Warnlog "type 'default' is not checked as default :-("
-    endif
-    '/// check checkbox 'Window' ///'
-    Fenster.Check
-    Printlog "-  Presentation in window mode is checked"
-    '/// close dialog with OK 'Slide Show' ///'
-    Bildschirmpraesentation.Ok
-    sleep 3
-    '/// Slide Show->Slide Show ///'
-    SlideShowSlideshow
-    Sleep 5
-    try
-        Kontext "DocumentPresentation"
-        sleep 3
-        '/// Press <Esc> to leave presentation mode ///'
-        DocumentPresentation.Typekeys ("<Escape>")
-        Sleep 3
-        Kontext "DocumentImpress"
-        DocumentImpress.MouseDoubleClick ( 50, 50 )
-        Sleep 3
-    catch
-        '       FileClose
-        warnlog "had to catch <the ball> :-( "
-        '   	 Kontext "Messagebox"
-        '       if Messagebox.Exists (5) Then Messagebox.No
-        '       Kontext
-        '       sleep (12)
-        '       start sAppExe$
-        '       sleep (6)
-        '       Kontext
-        '       if Office.Exists(2) then Resetapplication
-        '       Warnlog "Slide didn't end, application wasn't in document edit mode"
-    endcatch
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowRehearseTimings
-    goto endsub
-    '/// open application ///'
-    Call hNewDocument
-    '/// Slide Show->Slide Show Settings ///'
-    SlideShowPresentationSettings
-    Kontext "Bildschirmpraesentation"
-    '/// check checkbox 'Window' ///'
-    Fenster.Check
-    '/// close dialog with OK 'Slide Show' ///'
-    Bildschirmpraesentation.Ok
-    '/// Slide Show->Rehearse Timings ///'
-    SlideShowRehearseTimings
-    sleep 2
-    Kontext "DocumentPresentation"
-    '/// Press <Esc> to leave presentation mode ///'
-    if DocumentPresentation.Exists (5) then
-        DocumentPresentation.Typekeys ("<Escape>")
-    else
-        Warnlog "SlideShowRehearseTimings mode not accessible"
-    endif
-    Sleep 3
-    if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR
-        DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever !
-        Warnlog "- Slide show mode should have ended"
-    else
-        printlog "SlideShowRehearseTimings mode not accessible :-) "
-    end if
-    sleep 3
-    try
-        Kontext "DocumentImpress"
-        DocumentImpress.MouseDoubleClick ( 50, 50 )
-
-        sleep 3
-    catch
-        warnlog "Had to catch <the ball> :-( "
-    endcatch
-    sleep 3
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowSlideShowSettings
-    '/// open application ///'
-    Call hNewDocument
-    sleep 2
-    '/// Slide Show->Slide Show Settings ///'
-    SlideShowPresentationSettings
-    Kontext "Bildschirmpraesentation"
-    call Dialogtest (Bildschirmpraesentation)
-    '/// check checkbox in section 'Range' - 'From: ///'
-    AbDia.Check
-    '/// select the 3rd item from the top from listbox 'From:' ///'
-    AbDiaName.GetSelText
-    '/// check checkbox 'All Slides' ///'
-    AlleDias.Check
-    '///'      RangeCustomSlideShow         ' gets tested in tSlideShowCustomSlideShow ///'
-    '         IndividuellePraesentationName
-    '///<b> check checkbox 'window' </b>///'
-    Fenster.Check
-    '/// check checkbox 'default' ///'
-    Standard.Check
-    '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///'
-    Auto.Check
-    '/// set duration of pause to '00:00:05' ///'
-    Zeit.GetText
-    '/// check check box 'Show logo' ///'
-    LogoAnzeigen.Check
-    '///<b> check checkbox 'Change slides maually' </b>///'
-    DiawechselManuel.Check
-    '///<b> check checkbox 'Mouse pointer as pen' </b>///'
-    MauszeigerAlsStift.Check
-    '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///'
-    MauszeigerSichtbar.UnCheck
-    '///<b> check checkbox 'Navigator visible' </b>///'
-    NavigatorSichtbar.Check
-    '///<b> UNcheck checkbox 'animations allowed' </b>///'
-    AnimationenZulassen.UnCheck
-    '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///'
-    DiaWechselAufHintergrund.UnCheck
-    '///<b> check checkbox 'Presentation always on top' </b>///'
-    PraesentationImmerImVordergrund.Check
-    '/// cancel dialog 'Slide Show' ///'
-    Bildschirmpraesentation.Cancel
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowCustomSlideShow
-    '/// open application ///'
-    Call hNewDocument
-    sleep 2
-    '/// Slide Show->Custom Slide Show ///'
-    SlideShowCustomSlideshow
-    Kontext "IndividuellePraesentation"
-    call Dialogtest (IndividuellePraesentation)
-    '/// click button 'New' ///'
-    Neu.Click
-    Kontext "IndividuellePraesentationDefinieren"
-    Call DialogTest (IndividuellePraesentationDefinieren)
-    '/// select the first entry in the list 'Existing Slides' ///'
-    SeitenPraesentation.Select 1
-    '/// click button '>>' ///'
-    Hinzufuegen.Click
-    '/// close dialog 'Define Custom Slide Show' with OK ///'
-    IndividuellePraesentationDefinieren.OK
-    Kontext "IndividuellePraesentation"
-    '/// click button 'Copy' ///'
-    Kopieren.Click
-    '/// click button 'Delete' ///'
-    Loeschen.Click
-    '/// click button 'Edit' ///'
-    Bearbeiten.Click
-    Kontext "IndividuellePraesentationDefinieren"
-    '/// select 1st entry in the list 'Selected Slides' ///'
-    SelectedSlides.Select 1
-    '/// click button '<<' ///'
-    Entfernen.Click
-    '/// close dialog 'Define Custom Slide Show' with Cancel ///'
-    IndividuellePraesentationDefinieren.Cancel
-    Kontext "IndividuellePraesentation"
-    '/// check checkbox 'Use Custom Slide Show' ///'
-    IndividuellePraesentationBenutzen.Check
-    sleep 1
-    '///+ UNcheck checkbox 'Use Custom Slide Show' ///'
-    IndividuellePraesentationBenutzen.UnCheck
-    '/// click button 'Start...' ///'
-    Starten.Click
-    sleep 5
-    '/// press key [space] 2 times ///'
-    kontext "DocumentPresentation"
-    DocumentPresentation.TypeKeys "<space>"
-    sleep 1
-    DocumentPresentation.TypeKeys "<space>"
-    sleep 1
-    '/// close dialog 'Custom Slide Shows' ///'
-    '   IndividuellePraesentation.Close ' slide show ends dialog !
-    '/// Slide Show->Slide Show Settings ///'
-    try
-        SlideShowPresentationSettings
-    catch
-        warnlog "Presentation did not end :-("
-        DocumentPresentation.TypeKeys "<escape>"
-    endcatch
-    Kontext "Bildschirmpraesentation"
-    if Bildschirmpraesentation.exists (5) then
-        '/// check checkbox 'Custom Slide Show' ///'
-        RangeCustomSlideShow.Check
-        printlog "check: '" + IndividuellePraesentationName.GetSelText + "'"
-        '/// cancel dialog 'Slide Show' ///'
-        Bildschirmpraesentation.Cancel
-    else
-        warnlog "Dialog not open? SlideShowPresentationSettings"
-    endif
-    '/// Slide Show->Custom Slide Show ///'
-    SlideShowCustomSlideshow
-    Kontext "IndividuellePraesentation"
-    if (IndividuellePraesentation.exists (5)) then
-        '/// click button 'Delete' ///'
-        Loeschen.Click
-        '/// close dialog 'Custom Slide Shows' ///'
-        IndividuellePraesentation.Close
-    else
-        warnlog "Dialog not open? SlideShowCustomSlideshow"
-    endif
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowSlideTransition
-    goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug."
-    dim i as integer
-    dim a as integer
-    dim iCount as integer
-
-    '/// open application ///'
-    Call hNewDocument
-    '/// create rectangle ///'
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    sleep 1
-    '/// Slide Show->Slide Transition ///'
-    SlideShowSlideTransition
-    sleep 2
-    '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///'
-    Kontext "Tasks"
-    '/// Select the second entry from teh Listbox 'Applay to selected slides' ///'
-    TransitionApplyToSelectedSlide.select (2)
-    sleep 5 ' takes some time, until it is run
-    Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount
-    Printlog "Count of Speeds  : "+TransitionSpeed.GetItemCount
-    iCount = TransitionSound.GetItemCount
-    Printlog "Count of Sounds  : " + iCount
-
-    '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///'
-    TransitionSound.typeKeys "<home>"
-    i = 0
-    for a = 1 to iCount
-        TransitionSound.select (a)
-        kontext "OeffnenDlg"
-        if (OeffnenDlg.exists (5)) then
-            if (0=i) then
-                ' remember when dialog came up
-                i = a
-                OeffnenDlg.cancel
-            else
-                warnlog "File Open Dialog comes up a second time!"
-                OeffnenDlg.cancel
-            endif
-        endif
-        kontext "Tasks"
-        ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>...
-        if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then
-            qaErrorLog "May be Language specific -> Evaluation of TBO; " + a
-        endif
-    next a
-    TransitionSound.select (i)
-    '/// The dialog 'Open' comes up///'
-    sleep 1
-    kontext "OeffnenDlg"
-    if (OeffnenDlg.exists (5)) then
-        '/// Read all entries in Listbox 'File type' ///'
-        for i = 1 to Dateityp.getItemCount
-            printlog "" + i + ":" + Dateityp.getItemText(i)
-        next i
-        '/// cancel dialog 'Open' ///'
-        OeffnenDlg.cancel
-    else
-        warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!"
-    endif
-    kontext "Tasks"
-    sleep (2)
-    '/// check checkbox 'Automatically after' ///'
-    TransitionAutomaticallyAfter.check
-    sleep (2)
-    '/// press key 'Page Up' in box ///'
-    TransitionAutomaticallyAfterTime.typeKeys "<PageUp>"
-    sleep 9
-    '/// check the standard checkbox 'On mouse click' ///'
-    TransitionOnMouseClick.check
-    sleep (2)
-    '/// press button 'Apply to All Slides' ///'
-    TransitionApplyToAllSlides.click
-    sleep (2)
-    '/// press button 'Play' ///'
-    TransitionPlay.click
-    sleep 10
-    '/// press button 'Slide Show' ///'
-    TransitionSlideShow.click
-    sleep 2
-    kontext "DocumentPresentation"
-    if DocumentPresentation.exists (10) then
-        printlog "Presentation started :-)"
-        DocumentPresentation.typeKeys "<escape>"
-    else
-        warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!"
-    endif
-    kontext "Tasks"
-
-    '/// uncheck and check Checkbox 'Automatic Preview' ///'
-    '/// default is checked ///'
-    if (NOT TransitionAutomaticPreview.isChecked) then
-        warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!"
-    endif
-    sleep (2)
-    TransitionAutomaticPreview.unCheck
-    sleep (2)
-    TransitionAutomaticPreview.Check
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowShowHideSlide
-    '/// open application ///'
-    Call hNewDocument
-    '/// create rectangle ///'
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    '/// View->Master View->Slides View ///'
-    ViewWorkspaceSlidesView
-    sleep 1
-    '/// Slide Show->Hide Slide ///'
-    SlideShowHideSlide
-    sleep 1
-    '/// Slide Show->Show Slide ///'
-    SlideShowShowSlide
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowAnimation
-    '/// open application ///'
-    Call hNewDocument
-    sleep 1
-    '/// create rectangle ///'
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    sleep 1
-    '/// Insert ->Animated image ///'
-    Opl_SD_EffekteZulassen
-    Kontext "Animation"
-    sleep 1
-    '/// click button 'Apply Object' ///'
-    BildAufnehmen.Click  'BildAufnehmen
-    '/// click button 'Create' ///'
-    Erstellen.Click
-    sleep 1
-    '/// Select 1st entry from top in 'Alignment' ///'
-    Anpassung.Select 1
-    sleep 1
-    '/// click button 'Create' ///'
-    Erstellen.Click
-    sleep 1
-    '/// click button 'Apply Objects Individually' ///'
-    AlleAufnehmen.Click
-    sleep 1
-    '/// click button 'First Image' ///'
-    ErstesBild.Click
-    sleep 1
-    '/// click button 'Last Image' ///'
-    LetztesBild.Click
-    sleep 1
-    '/// click button 'BAckwards' ///'
-    Rueckwaerts.Click
-    sleep 1
-    '/// click button 'Play' ///'
-    Abspielen.Click
-    sleep 1
-    '/// click in Number field 'Image Number' Less - More ///'
-    AnzahlBilder.Less
-    sleep 1
-    AnzahlBilder.More
-    sleep 1
-    '/// check 'Bitmap Object' ///'
-    AnimationsgruppeBitmapobjekt.Check
-    sleep 1
-    '/// Type '10' into the field 'Duration' ///'
-    AnzeigedauerProBild.SetText "10"
-    '/// click button 'Play' ///'
-    Abspielen.Click
-    '/// wait 5 seconds ///'
-    sleep 5
-    '/// click button 'Stop' ///'
-    try
-        Stopp.Click
-    catch
-        warnlog "Stopbutton doesn't work"
-    endcatch
-    sleep 1
-    '/// Select 1st entry from top in 'Loop Count' ///'
-    AnzahlDurchlaeufe.Select 1
-    sleep 1
-    '/// click button 'Delete Current Image' ///'
-    BildLoeschen.Click
-    sleep 1
-    '/// check 'Group Object' ///'
-    AnimationsgruppeGruppenobjekt.Check
-    sleep 1
-    '/// click button 'Delete All Images' ///'
-    AlleLoeschen.Click
-    kontext "Messagebox"
-    '/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///'
-    if Messagebox.exists (5) then
-        Messagebox.YES
-    else
-        warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( "
-    endif
-    sleep 1
-    kontext "Animation"
-    '/// close dialog 'Animation' ///'
-    Animation.Close
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowCustomAnimation
-    dim bError as boolean
-
-    '/// open application ///'
-    Call hNewDocument
-    '/// create textbox with text ///'
-    Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
-    '/// Slide Show->Custom Animation... ///'
-    SlideShowCustomAnimation
-    Kontext "Tasks"
-    '/// click button 'Add...' ///'
-    EffectAdd.click
-    '/// Dialog 'Custom Animation' comes up ///'
-    kontext
-    '/// Switch to TabPage: Entrance ///'
-    active.setPage(TabEntrance)
-    kontext "TabEntrance"
-    if TabEntrance.exists(5) then
-        DialogTest(TabEntrance)
-        '/// select in the listbox 'Effects' the second entry///'
-        Effects.select(2)
-        Speed.getItemCount
-        AutomaticPreview.unCheck
-        sleep 1
-        AutomaticPreview.Check
-        kontext
-        '/// Switch to TabPage: Emphasis ///'
-        active.setPage(TabEmphasis)
-        kontext "TabEmphasis"
-        if TabEmphasis.exists(5) then
-            DialogTest(TabEmphasis)
-        else
-            bError = true
-            warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
-        endif
-        kontext
-        '/// Switch to TabPage: Exit ///'
-        active.setPage(TabExit)
-        kontext "TabExit"
-        if TabExit.exists(5) then
-            DialogTest(TabExit)
-        else
-            bError = true
-            warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work."
-        endif
-        kontext
-        '/// Switch to TabPage: Motion Paths ///'
-        active.setPage(TabMotionPaths)
-        kontext "TabMotionPaths"
-        if TabMotionPaths.exists(5) then
-            DialogTest(TabMotionPaths)
-            Effects.select(7)
-        else
-            bError = true
-            warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
-        endif
-        '/// Close dialog 'Custom Animation' with 'OK' ///'
-        TabMotionPaths.OK
-        bError = false
-    else
-        bError = true
-        warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work."
-    endif
-    Kontext "Tasks"
-    if (NOT bError) then
-        '/// click button 'Change...' ///'
-        EffectChange.click
-        '/// Dialog 'Custom Animation' comes up ///'
-        kontext
-        '/// Switch to TabPage: Entrance ///'
-        active.setPage(TabEntrance)
-        kontext "TabEntrance"
-        if (NOT TabEntrance.exists(5)) then
-            warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work."
-        endif
-        TabEntrance.cancel
-        Kontext "Tasks"
-        EffectStart.getItemCount
-        if EffectProperty.isEnabled then
-            EffectProperty.getItemCount
-        endif
-        '/// CLick on button '...' (Options) ///'
-        EffectOptions.click
-        kontext "TabEffect"
-        if TabEffect.exists(5) then
-            dialogTest(TabEffect)
-            Sound.getItemCount
-            AfterAnimation.getItemCount
-            '/// switch to TabPage 'Timing' ///'
-            Kontext
-            active.setPage TabTiming
-            kontext "TabTiming"
-            if TabTiming.exists(5) then
-                dialogTest(TabTiming)
-                TimingStart.getItemCount
-                Delay.getText
-                Speed.getItemCount
-                Repeat.getItemCount
-                Rewind.ischecked
-                TriggerAnimate.isChecked
-                TriggerStart.isChecked
-                Shape.getItemCount
-            else
-                warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work."
-            endif
-            '/// switch to TabPage 'Timing' ///'
-            Kontext
-            active.setPage TabTextAnimation
-            kontext "TabTextAnimation"
-            if TabTextAnimation.exists(5) then
-                dialogTest(TabTextAnimation)
-                GroupText.getItemCount
-                AnimateAttachedShape.isChecked
-                TabTextAnimation.cancel
-            else
-                warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work."
-            endif
-        else
-            warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work."
-        endif
-        Kontext "Tasks"
-        EffectSpeed.getItemCount
-        EffectList.getItemCount
-        EffectPlay.click
-        '/// Wait five seconds so the Playfunction has ended ///'
-        sleep 5
-        EffectSlideShow.click
-        sleep 1
-        kontext "DocumentPresentation"
-        if DocumentPresentation.exists (5) then
-            printlog "Presentation started :-)"
-            DocumentPresentation.typeKeys "<escape>"
-        else
-            warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!"
-        endif
-        kontext "Tasks"
-        EffectAutomaticPreview.isChecked
-        '/// click button 'Remove' ///'
-        EffectRemove.click
-    endif
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-testcase tSlideShowInteraction
-    '/// open application ///'
-    Call hNewDocument
-    sleep 2
-    '/// create rectangle ///'
-    Call hRechteckErstellen (10, 10, 20, 20)
-    sleep 3
-    '/// Slide Show->Interaction ///'
-    SlideShowInteraction
-    Kontext "TabInteraktion"
-    Call DialogTest (TabInteraktion, 1)
-    '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///'
-    AktionBeiMausklick.select 6
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    Call DialogTest (TabInteraktion, 2)
-    '///+ click button 'Find' ///'
-    sleep 1
-    suchen.click
-    Kontext "TabInteraktion"
-    '/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///'
-    sleep 1
-    AktionBeiMausklick.select 7
-    sleep 1
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    Kontext "TabInteraktion"
-    Call DialogTest (TabInteraktion, 3)
-    '///+ click button 'Browse...' ///'
-    Durchsuchen.click
-    sleep 1
-    kontext "OeffnenDlg"
-    call Dialogtest (OeffnenDlg)
-    '///+ cancel dialog 'open' ///'
-    OeffnenDlg.cancel
-    Kontext "TabInteraktion"
-    sleep 1
-    '/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///'
-    AktionBeiMausklick.select 8
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    Call DialogTest (TabInteraktion, 4)
-    '///+ click button 'Browse...' ///'
-    Durchsuchen.click
-    sleep 1
-    Kontext "OeffnenDlg"
-    Call dialogTest (OeffnenDlg)
-    '///+ cancel dialog 'open' ///'
-    OeffnenDlg.Cancel
-    sleep 1
-    Kontext "TabInteraktion"
-    '/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///'
-    AktionBeiMausklick.select 9
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    Call DialogTest (TabInteraktion, 7)
-    Kontext "TabInteraktion"
-    '///+ click button 'Browse...' ///'
-    Durchsuchen.Click
-    sleep 1
-    Kontext "OeffnenDlg"
-    Call dialogTest (OeffnenDlg)
-    '///+ cancel dialog 'open' ///'
-    OeffnenDlg.Cancel
-    sleep 1
-    '/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///'
-    Kontext "TabInteraktion"
-    AktionBeiMausklick.select 10
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    sleep 3
-    Call DialogTest (TabInteraktion, 6)
-    '///+ click button 'Browse...' ///'
-    Durchsuchen.Click
-    sleep 1
-    Kontext "ScriptSelector"
-    sleep 1
-    Call DialogTest ( ScriptSelector, 1)
-    sleep 1
-    '///+ cancel dialog 'ScriptSelector' ///'
-    ScriptSelector.Cancel
-    sleep 1
-    '/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///'
-    Kontext "TabInteraktion"
-    AktionBeiMausklick.select 11
-    Printlog AktionBeiMausklick.GetSelText + " chosen"
-    Call DialogTest (TabInteraktion, 7)
-    Kontext "TabInteraktion"
-    '/// close dialog 'Interaction' ///'
-    TabInteraktion.Close
-    sleep 2
-    '/// close application ///'
-    Call hCloseDocument
-endcase
-
-
-
-
-
diff --git a/testautomation/graphics/optional/includes/impress/im_011_.inc b/testautomation/graphics/optional/includes/impress/im_011_.inc
deleted file mode 100644
index 30ab1bebb74e..000000000000
--- a/testautomation/graphics/optional/includes/impress/im_011_.inc
+++ /dev/null
@@ -1,173 +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 : Impress Required Test Library (11)
-'*
-'\*****************************************************************
-
-testcase tiDiaLeiste
-
-' only in IMPRESS
-  dim sTemp as string
-  Dim i,x as integer
-
-'/// open application ///'
-   Call hNewDocument
-   sleep 1
-'/// Change options so the presentation won't start from the current, but the first slide. ///'
-   ToolsOptions
-   hToolsOptions ( "IMPRESS", "General" )
-   MitAktuellerSeite.Uncheck
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-'/// insert a graphic: "global\input\graf_inp\desp.bmp") ///'
-  Printlog "- Insert graphic from file so there is something for the slide mode"
-   hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 3
-'///+ Insert->Slide ///'
-   InsertSlide
-   sleep 2
-   hTypekeys "<Pagedown>"
-   sleep 2
-'///+ insert a graphic: "global\input\graf_inp\desp.bmp") ///'
-   hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 3
-'///+ View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-   sleep 2
-'-------------------------------- Ueberblendeffekt ----------------------------------------
-   Printlog "- Test blend effect"
-   Kontext "SlideViewObjectbar"  ' CORRECT
-   sleep 5
-
-   if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount
-'/// select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar ///'
-   Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount)
-   Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText
-
-'   Printlog Geschwindigkeit.GetRT  ' 341 listbox
-'   Printlog Diawechsel.GetRT       ' 341 listbox
-'   Printlog Zeit.GetRT             ' 353 spinfield
-'   Printlog DiasProReihe.GetRT     ' 353 spinfield
-'   Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button
-'   Printlog DiaAnzeigen.GetRT               doesn't work, but behave as button
-
-'-------------------------------- Geschwindigkeit -----------------------------------------
-  Printlog "- Check different speed settings"
-   Kontext "SlideViewObjectbar"
-'/// select every item in list 'Transition Speed' ///'
-   x = Geschwindigkeit.GetItemCount
-   for i = 1 to x
-       Geschwindigkeit.Select i
-       Printlog "     changed to: " + Geschwindigkeit.GetSelText
-   next i
-'-------------------------------- Diawechsel ----------------------------------------------
-   Printlog "- Style of slide change"
-   Kontext "SlideViewObjectbar"
-'/// select every item in list 'Auto Transition' ///'
-   x = Diawechsel.GetItemCount
-   for i = 1 to x
-       Diawechsel.Select i
-       Printlog "     Changed to: " + Diawechsel.GetSelText + "; is time enabled ?: "+Zeit.IsEnabled
-   next i
-'-------------------------------- Diawechsel Zeitintervall --------------------------------
-   Printlog "- Zeitintervall testen"
-   Kontext "SlideViewObjectbar"
-'/// select last entry 'Automatic' in listbox 'Auto Transition' ///'
-   Diawechsel.Select (Diawechsel.GetItemCount) ' automatic is usually the last one
-   sleep 1
-   if (Zeit.IsEnabled = FALSE) Then Warnlog "- Time should be editable, if automatic is chosen"
-'/// type "15" into the field 'Time' ///'
-   Zeit.SetText "15"
-   sleep 1
-   Printlog "    Time set to: " + Zeit.GetText
-'-------------------------------- Praesentation mit Zeitnahme ------------------------------
-   Printlog "- Presentation with rehearsed timings"
-   Kontext "SlideViewObjectbar"
-'/// click button 'Rehearse Timings' ///'
-   PraesentationMitZeitnahme.Click
-   sleep 2
-   Kontext "DocumentPresentation"
-   if DocumentPresentation.exists (5) then
-      sleep 5
-'/// wait some seconds and click with mouse ///'
-      DocumentPresentation.MouseDown 50,50
-      DocumentPresentation.MouseUp 50,50
-      sleep 2
-'/// wait some seconds and click with mouse ///'
-      DocumentPresentation.MouseDown 50,50
-      DocumentPresentation.MouseUp 50,50
-      sleep 3
-   else
-      warnlog "Didn't switch into presentation mode :-("
-   endif
-   Kontext "DocumentPresentation"
-   if DocumentPresentation.exists (5) then
-      warnlog "We are still in presentation mode :-( WHY!!!!???"
-   endif
-'------------------------------- Dia anzeigen ja/nein --------------------------------------
-   Printlog "- Show slide yes/no"
-   Kontext "SlideViewObjectbar"
-'/// click button 'Show/Hide Slide' ///'
-   DiaAnzeigen.Click
-   sleep 3
-'/// click button 'Show/Hide Slide' ///'
-   DiaAnzeigen.Click
-'------------------------------- Dias pro Reihe --------------------------------------------
-   Printlog "- Presentation with rehearsed timings"
-   Kontext "SlideViewObjectbar"
-   sTemp = DiasProReihe.GetText
-'/// press button 'less' in field 'Slides Per Row' ///'
-      DiasProReihe.Less
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (less)"
-   sTemp = DiasProReihe.GetText
-'/// press button 'more' in field 'Slides Per Row' ///'
-      DiasProReihe.more
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (more 1)"
-   sTemp = DiasProReihe.GetText
-'/// press button 'more' in field 'Slides Per Row' ///'
-      DiasProReihe.more
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (more 2)"
- kontext
- if active.exists then
-   warnlog "active (1): '"+active.gettext+"'"
- endif
-'/// Restore default settings in ToolsOptions ///'
-   ToolsOptions
-   hToolsOptions ( "IMPRESS", "General" )
-   MitAktuellerSeite.Check
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-'/// close application ///'
- Call hCloseDocument
- sleep 2
-endcase
-
-