CWS-TOOLING: integrate CWS automationdev300m55writer_fixes

2009-08-27 12:19:34 +0200 hde  r275471 : adding a keypress to testcase
2009-08-27 12:07:20 +0200 hde  r275468 : adding a sleep after selection of object
2009-08-27 10:21:42 +0200 hde  r275462 : warnlog for i102093 removed
2009-08-26 15:50:43 +0200 wg  r275429 : 104520
2009-08-26 15:20:25 +0200 hde  r275425 : added checkbox Notes
2009-08-25 15:20:06 +0200 hde  r275363 : mouse click is observed as obsolete
2009-08-25 13:47:33 +0200 hde  r275350 : maximized document window after opening
2009-08-25 10:43:47 +0200 hde  r275340 : maximizes document windowon create
2009-08-25 08:52:33 +0200 hde  r275333 : #95266#styles for chineses adapted
2009-08-24 15:34:45 +0200 hde  r275321 : #104450#several fixes in object selection
2009-08-24 15:34:03 +0200 hde  r275320 : #104450#several fixes in object selection
2009-08-21 14:44:36 +0200 wg  r275261 : 104404
2009-08-21 14:40:39 +0200 wg  r275259 : 104404
2009-08-21 14:39:03 +0200 wg  r275258 : 104404
2009-08-21 14:30:37 +0200 wg  r275256 : 104404
2009-08-21 14:24:18 +0200 wg  r275253 : 104404
2009-08-21 14:21:44 +0200 wg  r275252 : 104404
2009-08-21 14:08:41 +0200 wg  r275247 : 104404
2009-08-21 14:05:51 +0200 wg  r275246 : 104404
2009-08-21 13:20:44 +0200 wg  r275242 : 104398
2009-08-21 13:14:05 +0200 wg  r275241 : 104398
2009-08-21 13:00:26 +0200 hde  r275240 : 102477-warnlog removed from testcase
2009-08-21 12:52:50 +0200 wg  r275238 : 104398
2009-08-21 12:50:26 +0200 wg  r275237 : 104398
2009-08-21 12:50:07 +0200 hde  r275236 : printlog changed
2009-08-21 12:48:43 +0200 hde  r275235 : 100240-testcases renamed to a meaningful name
2009-08-21 12:46:59 +0200 wg  r275233 : 104398
2009-08-21 12:37:46 +0200 wg  r275231 : 104398
2009-08-21 11:37:20 +0200 oc  r275229 : #i104395# sleeps added to avoid timing problems
2009-08-21 11:24:19 +0200 wg  r275226 : 104393
2009-08-20 15:49:02 +0200 hde  r275187 : i100670-made qaerrorlog from warnlog
2009-08-20 15:44:58 +0200 hde  r275186 : 104358..html-export excluded

7 files changed, 649 insertions, 659 deletions

diff --git a/testautomation/graphics/required/includes/impress/i_opt_1_.inc b/testautomation/graphics/required/includes/impress/i_opt_1_.inc
index 167752f26556..9a48a5c79d80 100755
--- a/testautomation/graphics/required/includes/impress/i_opt_1_.inc
+++ b/testautomation/graphics/required/includes/impress/i_opt_1_.inc
@@ -189,7 +189,7 @@ testcase tiAlwaysWithCurrentPage()
     printlog "Checking if we are on slide 3."
     i = fGetSlideNumber()
     if (i<>3) then
-                warnlog "We are on the wrong slide! Should be 2 but it is: " & i
+                warnlog "We are on the wrong slide! Should be 3 but it is: " & i
     endif
 
     printlog "Close the navigator View->Navigator."
diff --git a/testautomation/graphics/required/includes/impress/im_002_.inc b/testautomation/graphics/required/includes/impress/im_002_.inc
index 103ff8a45c46..aef27e1c400e 100755
--- a/testautomation/graphics/required/includes/impress/im_002_.inc
+++ b/testautomation/graphics/required/includes/impress/im_002_.inc
@@ -38,21 +38,21 @@
 '\*****************************************************************
 
 testcase tiEditDeleteSlide
-'/// open application ///'
+printlog "open application"
    Call hNewDocument
-'/// Insert->Slide; press 'OK' ///'
+printlog "Insert->Slide; press 'OK' "
    InsertSlide
    sleep 2
    hTypekeys "<Pagedown>"
    sleep 2
-'/// Edit->Delete Slide ///'
+printlog "Edit->Delete Slide "
    try
       EditDeleteSlide
    catch
       warnlog "Error when deleting slide"
    endcatch
    Call hCloseDocument
-'/// close application ///'
+printlog "close application "
 endcase
 
 
diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc
index ab14ba5b8707..ae88f700b868 100755
--- a/testautomation/graphics/required/includes/impress/im_003_.inc
+++ b/testautomation/graphics/required/includes/impress/im_003_.inc
@@ -41,11 +41,11 @@
 ' #1 tiViewSlideMaster
 ' #1 tiViewToolbar_1
 '\**********************************************************************************
-
 testcase tiViewPanes
+
     goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test
     dim bState as boolean
-    '/// open application ///'
+    printlog "open application "
     Call hCloseDocument
     Call hNewDocument
     sleep 1
@@ -60,7 +60,7 @@ testcase tiViewPanes
         ViewTaskSlide
     endif
     kontext "Tasks"
-    '/// Deactivate all but "masterpages" ///'
+    printlog "Deactivate all but masterpages "
     View.OpenMenu
     hMenuSelectNr (2)
     View.OpenMenu
@@ -83,14 +83,14 @@ testcase tiViewPanes
         endif
         kontext "Tasks"
         sleep 1
-        '/// View->Task Pane ///'
+        printlog "View->Task Pane "
         ViewTaskPane
         sleep 1
         if (Tasks.exists) then
             warnlog "View->Task Panel failed"
             ViewTaskPane
         endif
-        '/// View->Task Pane ///'
+        printlog "View->Task Pane "
         ViewTaskPane
         sleep 1
         if (NOT Tasks.exists) then
@@ -107,7 +107,7 @@ testcase tiViewPanes
             warnlog "View->Slide Panel failed."
             ViewTaskSlide
         endif
-        '/// View->Slide Pane ///'
+        printlog "View->Slide Pane "
         ViewTaskSlide
         sleep 1
         if (NOT Slides.exists) then
@@ -116,9 +116,9 @@ testcase tiViewPanes
         endif
     catch
         warnlog "View->Slide Pane couldn't get executed"
-    endcatch
+    endcatch 
 
-    '/// Reactivate all pages in the Task-panel ///'
+    printlog "Reactivate all pages in the Task-panel "
     kontext "Tasks"
     View.OpenMenu
     hMenuSelectNr (2)
@@ -126,135 +126,131 @@ testcase tiViewPanes
     hMenuSelectNr (3)
     View.OpenMenu
     hMenuSelectNr (4)
-endcase
-
+    
+endcase 'tiViewPanes
+'---------------------------------------------------------
 testcase tiViewMasterView
-'/// open application ///'
-   Call hNewDocument
-'/// View->Master View->Drawing View ///'
-   sleep 1
-   ViewWorkspaceDrawingView
-'     Kontext "DocumentImpress"
-'     gMouseClick 70,70
+
+    printlog "open application"
+    Call hNewDocument
+    printlog "View->Master View->Drawing View"
+    sleep 1
+    ViewWorkspaceDrawingView
      sleep 5
-'/// View->Master View->Outline View ///'
-   ViewWorkspaceOutlineView
-'     Kontext "DocumentImpressOutlineView"
-'     DocumentImpressOutlineView.MouseDown 70,70
-'     DocumentImpressOutlineView.MouseUp 70,70
+    printlog "View->Master View->Outline View "
+    ViewWorkspaceOutlineView
      sleep 1
-'/// View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-'     Kontext "DocumentImpressSlideView"
-'     DocumentImpressSlideView.MouseDown 70,70
-'     DocumentImpressSlideView.MouseUp 70,70
+    printlog "View->Master View->Slides View "
+    ViewWorkspaceSlidesView
      sleep 1
-'/// View->Master View->Notes View ///'
-   ViewWorkspaceNotesView
+    printlog "View->Master View->Notes View "
+    ViewWorkspaceNotesView
       sleep 1
-'/// View->Master View->Handout View ///'
-   ViewWorkspaceHandoutView
+    printlog "View->Master View->Handout View "
+    ViewWorkspaceHandoutView
       sleep 1
-'/// View->Master View->Drawing View ///'
-   ViewWorkspaceDrawingView
-'/// close application ///'
+    printlog "View->Master View->Drawing View "
+    ViewWorkspaceDrawingView
+    printlog "close application "
       sleep 1
-   Call hCloseDocument
-endcase
-
+    Call hCloseDocument
+   
+endcase 'tiViewMasterView
+'---------------------------------------------------------
 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
-
+    
+    printlog "open application with : File->Autopilot->Presentation; OK; OK "
+    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
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "View->Master->Drawing "
+    ViewDrawing
+    Sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "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
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "View->Master->Handout "
+    ViewHandout
+    Sleep 1
+    '   ViewSlide
+    Sleep 1
+    printlog "View->Master->Notes "
+    ViewNotes
+    kontext "DocumentImpress"
+    Sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "close application "
+    Call  hCloseDocument
+   
+endcase 'tiViewSlideMaster
+'--------------------------------------------------------
 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"
+    
+    Dim Zaehler as integer
+    Dim i as integer
+    
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "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
+        Warnlog Messagebox.GetText
+        Messagebox.OK
     end if
-   Kontext "DocumentImpress"
-'/// select graphic ///'
-   EditSelectAll
-   sleep 2
-   Kontext "GraphicObjectbar"
+    Kontext "DocumentImpress"
+    printlog "select graphic "
+    EditSelectAll
+    sleep 2
+    Kontext "GraphicObjectbar"
     sleep 1
-'/// The Graphics Toolbar has to be visible now; If not -> ERROR ///'
+    printlog "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
+        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"
+        Warnlog "- No graphic function toolbar visible"
     end if
-'/// close application ///'
-  Call hCloseDocument
-endcase
-
-
+    printlog "close application "
+    Call hCloseDocument
+    
+endcase 'tiViewToolbar_1
diff --git a/testautomation/graphics/required/includes/impress/im_004_.inc b/testautomation/graphics/required/includes/impress/im_004_.inc
index e624a336d1e6..69e38c0e39d0 100755
--- a/testautomation/graphics/required/includes/impress/im_004_.inc
+++ b/testautomation/graphics/required/includes/impress/im_004_.inc
@@ -39,26 +39,24 @@
 
 testcase tiInsertSlideExpandSummary
 
-'/// open application ///'
+printlog "open application "
    Call hNewDocument
-   ' presupposition
-'/// View->Master View->Outline View ///'
+printlog "View->Master View->Outline View "
       ViewWorkspaceOutlineView
       Sleep 1
       Kontext "DocumentImpressOutlineView"
-'/// Type 2 rows ///'
+printlog "Type 2 rows "
       DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi"
-'/// View->Master View->Drawing View ///'
+printlog "View->Master View->Drawing View "
       ViewWorkspaceDrawingView
       Sleep 1
-   ' test menue entries
-'/// Insert->Summery Slide ///'
+printlog "Insert->Summery Slide "
    InsertSummerySlide
    Sleep 1
-'/// Insert->Expand Slide ///'
+printlog "Insert->Expand Slide "
    InsertExpandSlide
    Sleep 2
-'/// close application ///'
+printlog "close application "
    Call  hCloseDocument
 endcase
 
diff --git a/testautomation/graphics/required/includes/impress/im_005_.inc b/testautomation/graphics/required/includes/impress/im_005_.inc
index 43f7339b3648..ff0d1cd6c4ac 100755
--- a/testautomation/graphics/required/includes/impress/im_005_.inc
+++ b/testautomation/graphics/required/includes/impress/im_005_.inc
@@ -39,18 +39,17 @@
 
 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
-
-
+    printlog "open application "
+    Call  hNewDocument
+    printlog "Impress: Format->Modify Layout "
+    printlog "Draw   : kontext menu: Slide-> Modify Slide (always disabled :-( ?"
+    FormatPage 
+    Kontext "SeitenLayout"
+    DialogTest ( SeitenLayout )
+    sleep 1
+    printlog "cancel dialog 'Page Setup' "
+    SeitenLayout.Cancel
+    printlog "close application "
+    Call hCloseDocument
+    
+endcase 'tiFormatModifyLayout
diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc
index d19534c30dcf..9844b354501f 100755
--- a/testautomation/graphics/required/includes/impress/im_007_.inc
+++ b/testautomation/graphics/required/includes/impress/im_007_.inc
@@ -37,43 +37,42 @@
 '*
 '\*****************************************************************
 
-' this menue is only in impress availble
 testcase tSlideShowSlideShow
 
-'/// open application ///'
- Call hNewDocument
-'/// Slide Show->Slide Show Settings ///'
+    printlog "open application "
+    Call hNewDocument
+    printlog "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' ///'
+    Kontext "Bildschirmpraesentation"
+    printlog "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
+    printlog "check checkbox 'Window' "
+    Fenster.Check
+    Printlog "-  Presentation in window mode is checked"
+    printlog "close dialog with OK 'Slide Show' "
     Bildschirmpraesentation.Ok
     sleep 3
-'/// Slide Show->Slide Show ///'
+    printlog "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
+        Kontext "DocumentPresentation"
+        sleep 3
+        printlog "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> :-( "
+        warnlog "had to catch <the ball> :-( "
 '   	 Kontext "Messagebox"
 '       if Messagebox.Exists (5) Then Messagebox.No
 '       Kontext
@@ -84,28 +83,28 @@ testcase tSlideShowSlideShow
 '       if Office.Exists(2) then Resetapplication
 '       Warnlog "Slide didn't end, application wasn't in document edit mode"
     endcatch
-'/// close application ///'
- Call hCloseDocument
+    printlog "close application "
+    Call hCloseDocument
 
  endcase 'tSlideShowSlideShow
 '-------------------------------------------------------------------------------
 testcase tSlideShowRehearseTimings
 
     goto endsub
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Slide Show->Slide Show Settings ///'
+    printlog "Slide Show->Slide Show Settings "
     SlideShowPresentationSettings
     Kontext "Bildschirmpraesentation"
-    '/// check checkbox 'Window' ///'
+    printlog "check checkbox 'Window' "
     Fenster.Check
-    '/// close dialog with OK 'Slide Show' ///'
+    printlog "close dialog with OK 'Slide Show' "
     Bildschirmpraesentation.Ok
-    '/// Slide Show->Rehearse Timings ///'
+    printlog "Slide Show->Rehearse Timings "
     SlideShowRehearseTimings
     sleep 2
     Kontext "DocumentPresentation"
-    '/// Press <Esc> to leave presentation mode ///'
+    printlog "Press <Esc> to leave presentation mode "
       if DocumentPresentation.Exists (5) then
          DocumentPresentation.Typekeys ("<Escape>")
       else
@@ -128,110 +127,110 @@ testcase tSlideShowRehearseTimings
          warnlog "Had to catch <the ball> :-( "
       endcatch
     sleep 3
-'/// close application ///'
- Call hCloseDocument
+    printlog "close application "
+    Call hCloseDocument
 
  endcase 'tSlideShowRehearseTimings
 '-------------------------------------------------------------------------------
 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
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "Slide Show->Slide Show Settings "
+    SlideShowPresentationSettings
+    Kontext "Bildschirmpraesentation"
+    call Dialogtest (Bildschirmpraesentation)
+    printlog "check checkbox in section 'Range' - 'From: "
+    AbDia.Check
+    printlog "select the 3rd item from the top from listbox 'From:' "
+    AbDiaName.GetSelText
+    printlog "check checkbox 'All Slides' "
+    AlleDias.Check
+    '"      RangeCustomSlideShow         ' gets tested in tSlideShowCustomSlideShow "
+    '         IndividuellePraesentationName
+    printlog "check checkbox 'window'"
+    Fenster.Check
+    printlog "check checkbox 'default' "
+    Standard.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.GetText
+    printlog "check check box 'Show logo' "
+    LogoAnzeigen.Check
+    printlog "check checkbox 'Change slides maually'"
+    DiawechselManuel.Check
+    printlog "check checkbox 'Mouse pointer as pen'"
+    MauszeigerAlsStift.Check
+    printlog "UNcheck checkbox 'Mouse pointer visible'"
+    MauszeigerSichtbar.UnCheck
+    printlog "check checkbox 'Navigator visible'"
+    NavigatorSichtbar.Check
+    printlog "UNcheck checkbox 'animations allowed'"
+    AnimationenZulassen.UnCheck
+    printlog "UNcheck checkbox 'Change slides by clicking on background'"
+    DiaWechselAufHintergrund.UnCheck
+    printlog "check checkbox 'Presentation always on top'"
+    PraesentationImmerImVordergrund.Check
+    printlog "cancel dialog 'Slide Show' "
+    Bildschirmpraesentation.Cancel
+    printlog "close application "
+    Call hCloseDocument
  
 endcase 'tSlideShowSlideShowSettings
 '-------------------------------------------------------------------------------
 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 ///'
+    
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "Slide Show->Custom Slide Show "
+    SlideShowCustomSlideshow
+    Kontext "IndividuellePraesentation"
+    call Dialogtest (IndividuellePraesentation)
+    printlog "click button 'New' "
+    Neu.Click
+    Kontext "IndividuellePraesentationDefinieren"
+    Call DialogTest (IndividuellePraesentationDefinieren)
+    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 "click button 'Copy' "
+    Kopieren.Click
+    printlog "click button 'Delete' "
+    Loeschen.Click
+    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
+    printlog "close dialog 'Define Custom Slide Show' with Cancel "
+    IndividuellePraesentationDefinieren.Cancel
+    Kontext "IndividuellePraesentation"
+    printlog "check checkbox 'Use Custom Slide Show' "
+    IndividuellePraesentationBenutzen.Check
+    sleep 1
+    printlog "+ UNcheck checkbox 'Use Custom Slide Show' "
+    IndividuellePraesentationBenutzen.UnCheck
+    printlog "click button 'Start...' "
+    Starten.Click
+    sleep 5
+    printlog "press key [space] 2 times "
+    kontext "DocumentPresentation"
+    DocumentPresentation.TypeKeys "<space>"
+    sleep 1
+    DocumentPresentation.TypeKeys "<space>"
+    sleep 1
+    printlog "close dialog 'Custom Slide Shows' "
+    '   IndividuellePraesentation.Close ' slide show ends dialog !
+    printlog "Slide Show->Slide Show Settings "
    try
       SlideShowPresentationSettings
    catch
@@ -240,48 +239,47 @@ testcase tSlideShowCustomSlideShow
    endcatch
       Kontext "Bildschirmpraesentation"
       if Bildschirmpraesentation.exists (5) then
-         '/// check checkbox 'Custom Slide Show' ///'
+         printlog "check checkbox 'Custom Slide Show' "
          RangeCustomSlideShow.Check
          printlog "check: '" + IndividuellePraesentationName.GetSelText + "'"
-         '/// cancel dialog 'Slide Show' ///'
+         printlog "cancel dialog 'Slide Show' "
          Bildschirmpraesentation.Cancel
       else
          warnlog "Dialog not open? SlideShowPresentationSettings"
       endif
-   '/// Slide Show->Custom Slide Show ///'
+   printlog "Slide Show->Custom Slide Show "
    SlideShowCustomSlideshow
       Kontext "IndividuellePraesentation"
       if (IndividuellePraesentation.exists (5)) then
-         '/// click button 'Delete' ///'
+         printlog "click button 'Delete' "
          Loeschen.Click
-         '/// close dialog 'Custom Slide Shows' ///'
+         printlog "close dialog 'Custom Slide Shows' "
          IndividuellePraesentation.Close
       else
          warnlog "Dialog not open? SlideShowCustomSlideshow"
       endif
-   '/// close application ///'
+   printlog "close application "
    Call hCloseDocument
    
 endcase 'tSlideShowCustomSlideShow
 '------------------------------------------------------------------------------
 testcase tSlideShowSlideTransition
 
-    goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug."
     dim i as integer
     dim a as integer
     dim iCount as integer
 
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle "
     Call hRechteckErstellen ( 10, 10, 20, 40 )
     sleep 1
-    '/// Slide Show->Slide Transition ///'
+    printlog "Slide Show->Slide Transition "
     SlideShowSlideTransition
     sleep 2
-    '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///'
+    printlog "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' ///'
+        printlog "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
@@ -289,7 +287,7 @@ testcase tSlideShowSlideTransition
         iCount = TransitionSound.GetItemCount
         Printlog "Count of Sounds  : " + iCount
 
-        '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///'
+        printlog "One Entry of the Listbox 'Sound' is 'Other sound...', select it "
         TransitionSound.typeKeys "<home>"
         i = 0
         for a = 1 to iCount
@@ -312,37 +310,37 @@ testcase tSlideShowSlideTransition
             endif
         next a
         TransitionSound.select (i)
-        '/// The dialog 'Open' comes up///'
+        printlog "The dialog 'Open' comes up"
         sleep 1
         kontext "OeffnenDlg"
         if (OeffnenDlg.exists (5)) then
-            '/// Read all entries in Listbox 'File type' ///'
+            printlog "Read all entries in Listbox 'File type' "
             for i = 1 to Dateityp.getItemCount
                 printlog "" + i + ":" + Dateityp.getItemText(i)
             next i
-            '/// cancel dialog 'Open' ///'
+            printlog "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' ///'
+        printlog "check checkbox 'Automatically after' "
         TransitionAutomaticallyAfter.check
         sleep (2)
-        '/// press key 'Page Up' in box ///'
+        printlog "press key 'Page Up' in box "
         TransitionAutomaticallyAfterTime.typeKeys "<PageUp>"
         sleep 9
-        '/// check the standard checkbox 'On mouse click' ///'
+        printlog "check the standard checkbox 'On mouse click' "
         TransitionOnMouseClick.check
         sleep (2)
-        '/// press button 'Apply to All Slides' ///'
+        printlog "press button 'Apply to All Slides' "
         TransitionApplyToAllSlides.click
         sleep (2)
-        '/// press button 'Play' ///'
+        printlog "press button 'Play' "
         TransitionPlay.click
         sleep 10
-        '/// press button 'Slide Show' ///'
+        printlog "press button 'Slide Show' "
         TransitionSlideShow.click
         sleep 2
         kontext "DocumentPresentation"
@@ -354,8 +352,8 @@ testcase tSlideShowSlideTransition
         endif
         kontext "Tasks"
 
-        '/// uncheck and check Checkbox 'Automatic Preview' ///'
-        '/// default is checked ///'
+        printlog "uncheck and check Checkbox 'Automatic Preview' "
+        printlog "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
@@ -363,111 +361,111 @@ testcase tSlideShowSlideTransition
         TransitionAutomaticPreview.unCheck
         sleep (2)
         TransitionAutomaticPreview.Check
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
     
 endcase 'tSlideShowSlideTransition
 '-------------------------------------------------------------------------------
 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
+    
+    printlog "open application "
+    Call hNewDocument
+    printlog "create rectangle "
+    Call hRechteckErstellen ( 10, 10, 20, 40 )
+    printlog "View->Master View->Slides View "
+    ViewWorkspaceSlidesView
+    sleep 1
+    printlog "Slide Show->Hide Slide "
+    SlideShowHideSlide
+    sleep 1
+    printlog "Slide Show->Show Slide "
+    SlideShowShowSlide
+    printlog "close application "
+    Call hCloseDocument
+    endcase
+    
+    testcase tSlideShowAnimation
+    printlog "open application "
+    Call hNewDocument
+    sleep 1
+    printlog "create rectangle "
+    Call hRechteckErstellen ( 10, 10, 20, 40 )
+    sleep 1
+    printlog "Insert ->Animated image "
+    Opl_SD_EffekteZulassen
+    Kontext "Animation"
+    sleep 1
+    printlog "click button 'Apply Object' "
+    BildAufnehmen.Click  'BildAufnehmen
+    printlog "click button 'Create' "
+    Erstellen.Click
+    sleep 1
+    printlog "Select 1st entry from top in 'Alignment' "
+    Anpassung.Select 1
+    sleep 1
+    printlog "click button 'Create' "
+    Erstellen.Click
+    sleep 1
+    printlog "click button 'Apply Objects Individually' "
+    AlleAufnehmen.Click
+    sleep 1
+    printlog "click button 'First Image' "
+    ErstesBild.Click
+    sleep 1
+    printlog "click button 'Last Image' "
+    LetztesBild.Click
+    sleep 1
+    printlog "click button 'BAckwards' "
+    Rueckwaerts.Click
+    sleep 1
+    printlog "click button 'Play' "
+    Abspielen.Click
+    sleep 1
+    printlog "click in Number field 'Image Number' Less - More "
+    AnzahlBilder.Less
+    sleep 1
+    AnzahlBilder.More
+    sleep 1
+    printlog "check 'Bitmap Object' "
+    AnimationsgruppeBitmapobjekt.Check
+    sleep 1
+    printlog "Type '10' into the field 'Duration' "
+    AnzeigedauerProBild.SetText "10"
+    printlog "click button 'Play' "
+    Abspielen.Click
+    printlog "wait 5 seconds "
+    sleep 5
+    printlog "click button 'Stop' "
+    try
+    Stopp.Click
+    catch
+    warnlog "Stopbutton doesn't work"
+    endcatch
+    sleep 1
+    printlog "Select 1st entry from top in 'Loop Count' "
+    AnzahlDurchlaeufe.Select 1
+    sleep 1
+    printlog "click button 'Delete Current Image' "
+    BildLoeschen.Click
+    sleep 1
+    printlog "check 'Group Object' "
+    AnimationsgruppeGruppenobjekt.Check
+    sleep 1
+    printlog "click button 'Delete All Images' "
+    AlleLoeschen.Click
+    kontext "Messagebox"
+    printlog "there has to be a messagebox 'Really delete?' say YES!; else ERROR "
+    if Messagebox.exists (5) then
          Messagebox.YES
-      else
+    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
+    endif
+    sleep 1
+    kontext "Animation"
+    printlog "close dialog 'Animation' "
+    Animation.Close
+    printlog "close application "
+    Call hCloseDocument
    
 endcase 'tSlideShowShowHideSlide
 '-------------------------------------------------------------------------------
@@ -481,34 +479,34 @@ testcase tSlideShowCustomAnimation
     Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
     printlog "Slide Show->Custom Animation..."
     SlideShowCustomAnimation
-        Kontext "Tasks"
-        printlog "click button 'Add...'printlog "
-        EffectAdd.click
-        printlog "Dialog 'Custom Animation' comes up"
+    Kontext "Tasks"
+    printlog "click button 'Add...'printlog "
+    EffectAdd.click
+    printlog "Dialog 'Custom Animation' comes up"
+    kontext
+    printlog "Switch to TabPage: Entrance"
+    active.setPage(TabEntrance)
+    kontext "TabEntrance"
+    if TabEntrance.exists(5) then
+        DialogTest(TabEntrance)
+        printlog "select in the listbox 'Effects' the second entry"
+        Effects.select(2)
+        Speed.getItemCount
+        AutomaticPreview.unCheck
+        sleep 1
+        AutomaticPreview.Check
+        kontext
+        
+        printlog "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
-        printlog "Switch to TabPage: Entrance"
-        active.setPage(TabEntrance)
-        kontext "TabEntrance"
-        if TabEntrance.exists(5) then
-            DialogTest(TabEntrance)
-            printlog "select in the listbox 'Effects' the second entry"
-            Effects.select(2)
-            Speed.getItemCount
-            AutomaticPreview.unCheck
-            sleep 1
-            AutomaticPreview.Check
-            kontext
-            
-            printlog "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
             
             printlog "Switch to TabPage: Exit"
             active.setPage(TabExit)
@@ -636,92 +634,92 @@ endcase 'tSlideShowCustomAnimation
 '-------------------------------------------------------------------------------
 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
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "create rectangle "
+    Call hRechteckErstellen (10, 10, 20, 20)
+    sleep 3
+    printlog "Slide Show->Interaction "
+    SlideShowInteraction
+    Kontext "TabInteraktion"
+    Call DialogTest (TabInteraktion, 1)
+    printlog "+ 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)
+    printlog "+ click button 'Find' "
+    sleep 1
+    suchen.click
+    Kontext "TabInteraktion"
+    printlog "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)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.click
+    sleep 1
+    kontext "OeffnenDlg"
+    call Dialogtest (OeffnenDlg)
+    printlog "+ cancel dialog 'open' "
+    OeffnenDlg.cancel
+    Kontext "TabInteraktion"
+    sleep 1
+    printlog "Select 9th entry from top in 'Action at mouse click' : 'Play Sound' "
+    AktionBeiMausklick.select 8
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Call DialogTest (TabInteraktion, 4)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.click
+    sleep 1
+    Kontext "OeffnenDlg"
+    Call dialogTest (OeffnenDlg)
+    printlog "cancel dialog 'open' "
+    OeffnenDlg.Cancel
+    sleep 1
+    Kontext "TabInteraktion"
+    printlog "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"
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.Click
+    sleep 1
+    Kontext "OeffnenDlg"
+    Call dialogTest (OeffnenDlg)
+    printlog "+ cancel dialog 'open' "
+    OeffnenDlg.Cancel
+    sleep 1
+    printlog "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)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.Click
+    sleep 1
+    Kontext "ScriptSelector"
+    sleep 1
+    Call DialogTest ( ScriptSelector, 1)
+    sleep 1
+    printlog "+ cancel dialog 'ScriptSelector' "
+    ScriptSelector.Cancel
+    sleep 1
+    printlog "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"
+    printlog "close dialog 'Interaction' "
+    TabInteraktion.Close
+    sleep 2
+    printlog "close application "
+    Call hCloseDocument
  
 endcase 'tSlideShowInteraction
diff --git a/testautomation/graphics/required/includes/impress/im_011_.inc b/testautomation/graphics/required/includes/impress/im_011_.inc
index e0ec5aa6d1f4..214bbeef5b09 100755
--- a/testautomation/graphics/required/includes/impress/im_011_.inc
+++ b/testautomation/graphics/required/includes/impress/im_011_.inc
@@ -38,142 +38,141 @@
 '\*****************************************************************
 
 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
-
-
+    
+    ' only in IMPRESS
+    dim sTemp as string
+    Dim i,x as integer
+    
+    printlog " open application "
+    Call hNewDocument
+    sleep 1
+    printlog " 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
+    
+    printlog " 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
+    printlog "+ Insert->Slide "
+    InsertSlide
+    sleep 2
+    hTypekeys "<Pagedown>"
+    sleep 2
+    printlog "+ insert a graphic: "global\input\graf_inp\desp.bmp") "
+    hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+    sleep 3
+    printlog "+ 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
+    printlog " 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"
+    printlog " 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"
+    printlog " 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"
+    printlog " 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"
+    printlog " 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"
+    printlog " click button 'Rehearse Timings' "
+    PraesentationMitZeitnahme.Click
+    sleep 2
+    Kontext "DocumentPresentation"
+    if DocumentPresentation.exists (5) then
+    sleep 5
+    printlog " wait some seconds and click with mouse "
+    DocumentPresentation.MouseDown 50,50
+    DocumentPresentation.MouseUp 50,50
+    sleep 2
+    printlog " 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"
+    printlog " click button 'Show/Hide Slide' "
+    DiaAnzeigen.Click
+    sleep 3
+    printlog " click button 'Show/Hide Slide' "
+    DiaAnzeigen.Click
+    '------------------------------- Dias pro Reihe --------------------------------------------
+    Printlog "- Presentation with rehearsed timings"
+    Kontext "SlideViewObjectbar"
+    sTemp = DiasProReihe.GetText
+    printlog " press button 'less' in field 'Slides Per Row' "
+    DiasProReihe.Less
+    if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (less)"
+    sTemp = DiasProReihe.GetText
+    printlog " press button 'more' in field 'Slides Per Row' "
+    DiasProReihe.more
+    if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (more 1)"
+    sTemp = DiasProReihe.GetText
+    printlog " 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
+    printlog " Restore default settings in ToolsOptions "
+    ToolsOptions
+    hToolsOptions ( "IMPRESS", "General" )
+    MitAktuellerSeite.Check
+    Kontext "ExtrasOptionenDlg"
+    ExtrasOptionenDlg.OK
+    printlog " close application "
+    Call hCloseDocument
+    sleep 2
+ 
+endcase 'tiDiaLeiste