i115673:[Automation]: replace old documentation style

1 files changed, 245 insertions, 244 deletions

diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
index cfcc0fbd2e2f..2c51a83a509a 100644
--- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
@@ -38,7 +38,7 @@ testcase tSlideShowSlideShow
     dim testfile as string
     dim localtestfile as string
 
-    '/// open file 'graphics\\input\\diashow.odp' ///'
+    printlog "open file 'graphics\input\diashow.odp' "
     testfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
     hFileOpenLocally( testfile )
     sleep 30
@@ -48,11 +48,11 @@ testcase tSlideShowSlideShow
    Kontext "Navigator"
    if Navigator.Exists then Navigator.Close
 
-   '/// Deactivate "Start with current page" in ToolsOptions ///'
+   printlog "Deactivate Start with current page in ToolsOptions "
    setStartCurrentPage(FALSE)
 
    try
-   '/// SlideShow->Slide Show Settings... ///'
+   printlog "SlideShow->Slide Show Settings... "
       SlideShowPresentationSettings
       bLoaded = true
    catch
@@ -61,17 +61,17 @@ testcase tSlideShowSlideShow
    if bLoaded then
       Kontext "Bildschirmpraesentation"
 
-      '/// check Radio button 'Type': 'Window' ///'
+      printlog "check Radio button 'Type': 'Window' "
       Fenster.Check
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       Bildschirmpraesentation.OK
       sleep 3
-      '/// start the slideshow with 'Slide Show->Slide Show' ///'
+      printlog "start the slideshow with 'Slide Show->Slide Show' "
       SlideShowSlideshow
          sleep 3
          Kontext "DocumentPresentation"
          sleep 5
-      '/// end the presentation by typing [ESCAPE] ///'
+      printlog "end the presentation by typing [ESCAPE] "
     DocumentPresentation.TypeKeys "<ESCAPE>"
       sleep 3
         try
@@ -83,7 +83,7 @@ testcase tSlideShowSlideShow
           sleep 3
         endcatch
 
-      '/// start the slideshow with 'Slide Show->Slide Show' ///'
+      printlog "start the slideshow with 'Slide Show->Slide Show' "
       SlideShowSlideshow
       Kontext "DocumentPresentation"
       Printlog "- Check if slideshow runs"
@@ -94,14 +94,14 @@ testcase tSlideShowSlideShow
          Warnlog "Presentation is not running !"
       endcatch
       sleep 5
-      '/// type the key [SHIFT + F5] to open the navigator ///'
+      printlog "type the key [SHIFT + F5] to open the navigator "
       DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
       Kontext "NavigatorDraw"
          sleep 1
-         '/// check in list, if the page changed ///'
+         printlog "check in list, if the page changed "
          if Liste.GetSelIndex <> 2 Then Warnlog "- pagedown not working: '" + Liste.GetSelText+"'"
          Kontext "DocumentPresentation"
-         '/// press key [cursor right] 3 times ///'
+         printlog "press key [cursor right] 3 times "
          for i = 1 to 3
             sleep 3
             DocumentPresentation.TypeKeys "<right>"
@@ -124,11 +124,11 @@ testcase tSlideShowSlideShow
       warnlog "Document didn't get loaded"
    endif
    Kontext "DocumentImpress"
-   '///  Close the Navigator ///'
+   printlog " Close the Navigator "
    DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
-   '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
+   printlog "Set Start with current page back to default = on, in ToolsOptions "
    setStartCurrentPage(TRUE)
-   '/// close the application ///'
+   printlog "close the application "
     Call hCloseDocument
     localtestfile = hFileGetLocalPath( gTesttoolPath + "diashow.odp" )
     printlog localtestfile
@@ -143,17 +143,19 @@ endcase 'tSlideShowSlideShow
 '-------------------------------------------------------------------------------
 
 testcase tSlideShowRehearseTimings
+
     qaerrorlog "#i64783# - tSlideShowRehearseTimings outcommented due to bug"
     goto endsub
+
     dim bLoaded as boolean
     dim i as integer
 
-   '/// open file 'graphics\\input\\diashow.odp' ///'
+   printlog "open file 'graphics\input\diashow.odp' "
    hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp")
    sleep 10
-   ' check if the document is writable
+   printlog "check if the document is writable"
    if fIsDocumentWritable = false then
-      ' make the document writable and check if it's succesfull
+      printlog "make the document writable and check if it's succesfull"
       if fMakeDocumentWritable = false then
          warnlog "The document can't be make writeable. Test stopped."
          goto endsub
@@ -163,7 +165,7 @@ testcase tSlideShowRehearseTimings
    if Navigator.Exists then Navigator.Close
    bLoaded = false
    try
-      '/// SlideShow->Slide Show Settings... ///'
+      printlog "SlideShow->Slide Show Settings... "
         SlideShowPresentationSettings
       bLoaded = true
     catch
@@ -171,12 +173,12 @@ testcase tSlideShowRehearseTimings
    endcatch
    if bLoaded then
        Kontext "Bildschirmpraesentation"
-      '/// check Radio button 'Type': 'Window' ///'
+      printlog "check Radio button 'Type': 'Window' "
        Fenster.Check
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
        Bildschirmpraesentation.OK
        sleep 3
-      '/// start the slideshow with 'Slide Show->Rehearse Timings' ///'
+      printlog "start the slideshow with 'Slide Show->Rehearse Timings' "
       SlideShowRehearseTimings
       Kontext "DocumentPresentation"
       if DocumentPresentation.Exists then
@@ -184,7 +186,7 @@ testcase tSlideShowRehearseTimings
       else
         warnlog "bah"
       endif
-     '/// press key [return] 5 times ///'
+     printlog "press key [return] 5 times "
       for i = 1 to 5
          sleep 5
          DocumentPresentation.TypeKeys "<return>"
@@ -204,15 +206,15 @@ testcase tSlideShowRehearseTimings
       warnlog "Documnet didn't get loaded"
    endif
 
-   '///  check state of navigator ! expected: closed ///'
+   printlog " check state of navigator ! expected: closed "
    Kontext "Navigator"
    if Navigator.exists then
-      '///+ close navigator ! ///'
+      printlog " close navigator ! "
       Navigator.Close
    else
       printlog "Navigator: NOT available"
    endif
-   '/// close the application ///'
+   printlog "close the application "
    Call hCloseDocument
    
 endcase 'tSlideShowRehearseTimings
@@ -242,64 +244,64 @@ testcase tSlideShowSlideShowSettings
    ' the state of the navigator in the normal view is not affected
    ' the navigator that is open in normal view, is not visible in windows presenattions
 
-   '/// open application ///'
+   printlog "open application "
    Call hNewDocument
 
-'///  check state of navigator ! expected: closed ///'
+    printlog " check state of navigator ! expected: closed "
    Kontext "Navigator"
    if Navigator.exists then
-      '///+ close navigator ! ///'
+      printlog "close navigator ! "
       Navigator.Close
       QaErrorLog "Navigator was open. Check earlier tests. Now closed."
    else
       printlog "Navigator: NOT available. Good."
    endif
 
-   '/// Slide Show -> Slide Show Settings ///'
+   printlog "Slide Show -> Slide Show Settings "
     SlideShowPresentationSettings
       Kontext "Bildschirmpraesentation"
-       '/// check checkbox in section 'Range' - 'From: ///'
+       printlog "check checkbox in section 'Range' - 'From: "
        AbDia.Check
-      '/// get count of slides from listbox 'From:' ///'
+      printlog "get count of slides from listbox 'From:' "
       x = AbDiaName.GetItemCount
-      '/// check if count in listbox 'from' is '0' ///'
+      printlog "check if count in listbox 'from' is '0' "
       if (x = 1) Then
          Printlog "  - Slide count in the list: '" + x + "'"
       else
           Warnlog "  - unexpected slide count; should be '1'; is '" + x + "'"
        end if
-   '/// close dialog 'Slide Show' with OK ///'
+   printlog "close dialog 'Slide Show' with OK "
    Bildschirmpraesentation.OK
-   '/// Insert->Slide... ///'
+   printlog "Insert->Slide... "
    InsertSlide
    sleep 2
    hTypekeys "<Pagedown>"
    sleep 2
-   '/// Slide Show -> Slide Show Settings ///'
+   printlog "Slide Show -> Slide Show Settings "
    SlideShowPresentationSettings
       Kontext "Bildschirmpraesentation"
-      Printlog "'///<b> check if count in listbox 'from' increased </b>///'"
+      Printlog "check if count in listbox 'from' increased"
       i = AbDiaName.GetItemCount
       if ((i -1) = x) Then
          Printlog "  - Slide appears in the list; count : '" + i + "'"
       else
           Warnlog "  - Slide not added; is '" + i + "' should: '" + x + "'"
        end if
-   '/// close dialog 'Slide Show' with CANCEL ///'
+   printlog "close dialog 'Slide Show' with CANCEL "
    Bildschirmpraesentation.Cancel
-   '/// close application ///'
+   printlog "close application "
    Call hCloseDocument
    sleep 5
 
     bLoaded = false
-    '/// open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides) ///'
+    printlog "open file 'graphics\input\diashow.odp' (Slide Show with 4 Slides) "
     sTestfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
     hFileOpenLocally( sTestfile )
    sleep 10
 
    try
       Kontext "DocumentImpress"
-      '/// Slide Show -> Slide Show Settings ///'
+      printlog "Slide Show -> Slide Show Settings "
       Printlog "'--------------------------------------------------------------------------"
       SlideShowPresentationSettings
       bLoaded = true
@@ -317,19 +319,19 @@ testcase tSlideShowSlideShowSettings
       if (NavigatorSichtbar.IsChecked) then
          Warnlog "'Navigator visible' is checked :-("
       endif
-      '///<b> check checkbox 'All Slides' </b>///'
+      printlog "check checkbox 'All Slides'"
       AlleDias.Check
-      '///<b> check checkbox 'Window' </b>///'
+      printlog "check checkbox 'Window"
       Fenster.Check
-      '///<b> check checkbox 'Navigator visible' </b>///'
-      NavigatorSichtbar.Check                 '--------------------------------------------------------------------------
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "check checkbox 'Navigator visible"
+      NavigatorSichtbar.Check                 
+      printlog "close dialog 'Slide Show' with OK "
       Bildschirmpraesentation.OK
-      '/// start the slideshow with 'Slide Show->Slide Show' ///'
+      printlog "start the slideshow with 'Slide Show->Slide Show' "
       SlideShowSlideshow
       Printlog "'---------------------------- START P -- All -- Window -- Navigator -------------------------"
      sleep 5
-      '///  check state of navigator ! expected: open ///'
+      printlog " check state of navigator ! expected: open "
       Kontext "Navigator"
       if Navigator.exists then
          Printlog "Navigator: open :-)"
@@ -341,7 +343,7 @@ testcase tSlideShowSlideShowSettings
       sleep 1
       Kontext "DocumentPresentation"
       try
-         '/// press pagedown ///'
+         printlog "press pagedown "
          DocumentPresentation.TypeKeys "<pagedown>"
       catch
          Warnlog "presentation is not running !"
@@ -351,8 +353,8 @@ testcase tSlideShowSlideShowSettings
       if Liste.GetSelIndex <> 2 Then
          warnlog "Wrong slide."
       endif
-      '/// press the key [Page Down] 3 times ///'
-      '///+ check in Navigator list, if the slide is number: (times key pressed) ///'
+      printlog "press the key [Page Down] 3 times "
+      printlog "check in Navigator list, if the slide is number: (times key pressed) "
       for i = 2 to 4
          Kontext "Navigator"
          if Navigator.exists then
@@ -367,7 +369,7 @@ testcase tSlideShowSlideShowSettings
          DocumentPresentation.TypeKeys "<pagedown>"
       next i
       sleep (2)
-      '/// press the key [Page Down] to exit presentation ///'
+      printlog "press the key [Page Down] to exit presentation "
       DocumentPresentation.TypeKeys "<pagedown>"
       sleep (5)      
       try
@@ -378,20 +380,20 @@ testcase tSlideShowSlideShowSettings
          DocumentPresentation.TypeKeys "<ESCAPE>"
       endcatch
       sleep 2
-      '///  check state of navigator ! expected: open ///'
+      printlog " check state of navigator ! expected: open "
       Kontext "Navigator"
       if Navigator.exists then
-         '///+ close navigator ! ///'
+         printlog "close navigator ! "
          Navigator.Close
       else
          printlog "Navigator: NOT available"
       endif
-      Printlog "'--------------------------------------------------------------------------"
+      Printlog "'---------------------------------------------------------------"
 
        Kontext "DocumentPresentation"
-      '/// type the key [MOD1 SHIFT F5] to open the navigator ///' '--------------------------------------------------------------------------
+      printlog "type the key [MOD1 SHIFT F5] to open the navigator "
       hTypeKeys "<MOD1 SHIFT F5>"
-      '/// Slide Show -> Slide Show Settings ///'
+      printlog "Slide Show -> Slide Show Settings "
       SlideShowPresentationSettings
          Kontext "Bildschirmpraesentation"
          if (AlleDias.IsChecked = FALSE) then
@@ -406,59 +408,59 @@ testcase tSlideShowSlideShowSettings
          if (DiawechselAufHintergrund.IsChecked = FALSE) then
             Warnlog "'Change slides by clicking on background' is not checked :-("
          endif
-           '///<b> check checkbox in section 'Range' - 'From: </b>///'
+         printlog "check checkbox in section 'Range' - 'From:"
          AbDia.Check
-         '/// select the 3rd item from the top from listbox 'From:' -> 2 slides to go ///'
+         printlog "select the 3rd item from the top from listbox 'From:' -> 2 slides to go "
          AbDiaName.Select 3
          sTemp = AbDiaName.GetSelText
          Printlog "  -  From '" + sTemp + "' will be shown"
-           '///<b> check checkbox 'Default' </b>///'
+         printlog "check checkbox 'Default'"
          Standard.Check
-         '/// UNcheck checkbox 'Navigator visible'///'
+         printlog "UNcheck checkbox 'Navigator visible'"
          NavigatorSichtbar.UnCheck
-         '/// UNcheck checkbox 'Change slides by clicking on background'///'
+         printlog "UNcheck checkbox 'Change slides by clicking on background'"
          DiawechselAufHintergrund.UnCheck
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       Bildschirmpraesentation.OK
        sleep 3
        Kontext "DocumentPresentation"
-      '/// start the slideshow with 'Slide Show->Slide Show' ///'
+      printlog "start the slideshow with 'Slide Show->Slide Show' "
       SlideShowSlideshow
          Printlog "'---------------------------- START P -- From -- Default -- Click on Bg -----------------------"
          sleep 5
-         '///  check state of navigator ! expected: closed ///'
+         printlog " check state of navigator ! expected: closed "
          Kontext "Navigator"
          if Navigator.exists then
-            '///+ close navigator ! ///'
+            printlog "close navigator ! "
             Navigator.Close
             Warnlog "Navigator: closed"
          else
             Printlog "Navigator: NOT available. Good."
          endif
          sleep 1
-         '/// type the key [MOD1 SHIFT F5] to open the navigator ///' '--------------------------------------------------------------------------
+         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
          Kontext "DocumentPresentation"
          DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
           sleep 3
-          '/// check in Navigator list, if the page is THREE! ///'
+          printlog "check in Navigator list, if the page is THREE! "
           fGetSlideName(S3)
-          '/// click right mouse button ///'
+          printlog "click right mouse button "
           sleep 5
           DocumentPresentation.MouseDown 50,50
           DocumentPresentation.MouseUp 50,50
-          '/// check in Navigator list, if the page is still THREE. If so, change slide with PageDown ///'
+          printlog "check in Navigator list, if the page is still THREE. If so, change slide with PageDown "
           if (fGetSlideName(S3) <> S3) then
              Warnlog "'Change slides by clicking on background' disable did not work :-("
           else
              DocumentPresentation.TypeKeys "<PAGEDOWN>"
           endif
-          '/// check in Navigator list, if the page is FOUR ///'
+          printlog "check in Navigator list, if the page is FOUR "
           fGetSlideName(S4)
           sleep 5
-          '/// press the key [Page Down] ///'
+          printlog "press the key [Page Down] "
           DocumentPresentation.TypeKeys "<pagedown>"
           sleep 5
-          '/// press the key [Space] to exit presentation ///'
+          printlog "press the key [Space] to exit presentation "
           DocumentPresentation.TypeKeys "<Space>"
          sleep 10
       try
@@ -470,10 +472,10 @@ testcase tSlideShowSlideShowSettings
          DocumentPresentation.TypeKeys "<ESCAPE>"
          Warnlog "  - Program was still in slideshow mode - ended now ?"
       endcatch
-      '///  check state of navigator ! expected: open ///'
+      printlog " check state of navigator ! expected: open "
       Kontext "Navigator"
       if Navigator.exists then
-         '///+ close navigator ! ///'
+         printlog "close navigator ! "
          Navigator.Close
          printlog "Navigator: closed"
       else
@@ -481,7 +483,7 @@ testcase tSlideShowSlideShowSettings
       endif
       Printlog "'--------------------------------------------------------------------------"
 
-      '/// Slide Show -> Slide Show Settings ///'
+      printlog "Slide Show -> Slide Show Settings "
       SlideShowPresentationSettings
          Kontext "Bildschirmpraesentation"
          if (AbDia.IsChecked = FALSE) then
@@ -496,33 +498,33 @@ testcase tSlideShowSlideShowSettings
          if (DiawechselAufHintergrund.IsChecked) then
             Warnlog "'Change slides by clicking in background' is checked :-("
          endif
-         '/// check checkbox 'All Slides' ///'
+         printlog "check checkbox 'All Slides' "
          AlleDias.Check
-         '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///'
+         printlog "check check box 'Auto' -> implies looping of slideshow in fullscreen mode"
          Auto.Check
-         '/// set duration of pause to '00:00:05' ///'
+         printlog "set duration of pause to '00:00:05' "
          Zeit.SetText "00:00:05"
-         '/// check check box 'Show logo' ///'
+         printlog "check check box 'Show logo' "
          LogoAnzeigen.Check
-         '/// check checkbox 'Change slides by clicking on background'///'
+         printlog "check checkbox 'Change slides by clicking on background'"
          DiawechselAufHintergrund.Check
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       Bildschirmpraesentation.OK
-      '/// start the slideshow with 'Slide Show->Slide Show' ///'
+      printlog "start the slideshow with 'Slide Show->Slide Show' "
       SlideShowSlideshow
       Printlog "'---------------------------- START P -- All -- Auto -- :05 -- Logo -----------------------------"
       sleep 3
       Kontext "DocumentPresentation"
-      '/// type the key [MOD1 SHIFT F5] to open the navigator ///' '--------------------------------------------------------------------------
+      printlog "type the key [MOD1 SHIFT F5] to open the navigator "
       DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-      '/// press the key [Space] 4 times ///'
-      '///+ check in Navigator list, if the slide is number: [(times key pressed) -1 ] ///'
+      printlog "press the key [Space] 4 times "
+      printlog "check in Navigator list, if the slide is number: [(times key pressed) -1 ] "
       for i = 1 to 4
          fGetSlideName(saSlideNames(i))
          DocumentPresentation.TypeKeys "<Space>"
          sleep 5
       next i
-        '/// wait until autopause ended (5 secs) ///'
+        printlog "wait until autopause ended (5 secs) "
         sleep 10
       if (fGetSlideName(saSlideNames(1)) = saSlideNames(1)) then
          Printlog "  - Enless loop works"
@@ -530,7 +532,7 @@ testcase tSlideShowSlideShowSettings
          Warnlog " Enless loop does NOT work"
       end if
       sleep 2
-      '/// type key [excape] to exit presentation ///'
+      printlog "type key [excape] to exit presentation "
       Kontext "DocumentPresentation"
       DocumentPresentation.TypeKeys "<ESCAPE>"
       sleep 5
@@ -544,7 +546,7 @@ testcase tSlideShowSlideShowSettings
          DocumentImpress.TypeKeys "<ESCAPE>"
          sleep 5
       endcatch
-      '///  check state of navigator ! expected: closed ///'
+      printlog " check state of navigator ! expected: closed "
       Kontext "Navigator"
       if Navigator.exists then
          Navigator.Close
@@ -555,56 +557,56 @@ testcase tSlideShowSlideShowSettings
       Printlog "'--------------------------------------------------------------------------"
 
       Kontext "DocumentImpress"
-      '/// Slide Show -> Slide Show Settings ///'
+      printlog "Slide Show -> Slide Show Settings "
       SlideShowPresentationSettings
          Kontext "BildschirmPraesentation"
-         '/// check checkbox 'default' ///'
+         printlog "check checkbox 'default' "
          Standard.Check
-         '///<b> check checkbox 'Change slides maually' </b>///'
-         ' to check this i need an automatic transition somewhere in the presentation !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+         printlog "check checkbox 'Change slides maually'"
+         ' to check this i need an automatic transition somewhere in the presentation !
          DiawechselManuel.Check
-         '///<b> check checkbox 'Mouse pointer as pen' </b>///'
+         printlog "check checkbox 'Mouse pointer as pen'"
          MauszeigerAlsStift.Check
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       BildschirmPraesentation.Ok
       sleep 1
 
-      '/// goto the first slide by typing [strg home] ///'
+      printlog "goto the first slide by typing [strg home] "
       hTypeKeys "<mod1 home>"
-      '///+ -  SlideShow->SlideTransition ///'
+      printlog "SlideShow->SlideTransition "
       SlideShowSlideTransition
          Kontext "Tasks"
-         '///+ -  click button 'Extras' ///'
+         printlog "click button 'Extras' "
          sleep 1
-         '///+ - + click button 'Automatic Transition' ///'
+          printlog "click button 'Automatic Transition' "
          TransitionAutomaticallyAfter.Check 'click
-         '///+ -  + +  Set Time to '00:00:01' ///'
+         printlog " Set Time to '00:00:01' "
          TransitionAutomaticallyAfterTime.SetText "2"
-         '///+ -  click button 'Assign' ///'
+         printlog " click button 'Assign' "
          TransitionApplyToAllSlides.Click
-         '///+ - close dialog 'Slide Transition' ///'
+         printlog "close dialog 'Slide Transition' "
       sleep 3
 
-      '/// start the slideshow with keys [STRG F2] ///'
+      printlog "start the slideshow with keys [STRG F2] "
        Kontext "DocumentImpress"
       DocumentImpress.TypeKeys "<MOD1 F2>"
       Printlog "'---------------------------- START P -- Default -- Manuel ------------------------------"
-      '/// wait 10 seconds (to get the dia changed automatical has not to happen !) ///'
+      printlog "wait 10 seconds (to get the dia changed automatical has not to happen !) "
       sleep 10
       Kontext "DocumentPresentation"
-         '/// type the key [MOD1 SHIFT F5] to open the navigator ///' '--------------------------------------------------------------------------
+         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
          DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-         '/// press key [cursor right] 3 times ///'
+         printlog "press key [cursor right] 3 times "
          for i = 1 to 4
             sleep 5
             fGetSlideName(saSlideNames(i))
-            '///+ use the left mouse button, to use the pen drawing function ///'
+            printlog "use the left mouse button, to use the pen drawing function "
             DocumentPresentation.MouseDown (10, 10)
             DocumentPresentation.MouseMove (10, 90)
             DocumentPresentation.MouseUp (10, 90)
             DocumentPresentation.TypeKeys "<right>"
          next i
-      '/// press the key [Page Down] to exit presentation ///'
+      printlog "press the key [Page Down] to exit presentation "
       sleep (2)
       DocumentPresentation.TypeKeys "<pagedown>"
       sleep (2)
@@ -615,10 +617,10 @@ testcase tSlideShowSlideShowSettings
          Printlog "- Slideshow ended at the right time"
       endif
       sleep 2
-      '///  check state of navigator ! expected: closed ///'
+      printlog " check state of navigator ! expected: closed "
       Kontext "Navigator"
       if Navigator.exists then
-         '///+ close navigator ! ///'
+        printlog "close navigator ! "
          Navigator.Close
          warnlog "Navigator: closed"
       else
@@ -627,50 +629,50 @@ testcase tSlideShowSlideShowSettings
       Printlog "'--------------------------------------------------------------------------"
 
       Kontext "DocumentImpress"
-      '/// Slide Show -> Slide Show Settings ///'
+      printlog "Slide Show -> Slide Show Settings "
       SlideShowPresentationSettings
          Kontext "BildschirmPraesentation"
-         '/// check checkbox 'default' ///'
+         printlog "check checkbox 'default' "
          Standard.Check
-         '///<b> UNcheck checkbox 'Change slides manually' </b>///'
+         printlog "UNcheck checkbox 'Change slides manually'"
          DiawechselManuel.UNCheck
-         '/// UNcheck checkbox 'Mouse pointer as pen' ///'
+         printlog "UNcheck checkbox 'Mouse pointer as pen' "
          MauszeigerAlsStift.UNCheck
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       BildschirmPraesentation.Ok
       sleep 1
-      '/// goto the first slide by typing [strg home] ///'
+      printlog "goto the first slide by typing [strg home] "
       hTypeKeys "<MOD1 HOME>"
-      '/// Set all slides to 'wait 10 seconds' to get the slide changed automatically ///'
-      '///+ -  SlideShow->SlideTransition ///'
+      printlog "Set all slides to 'wait 10 seconds' to get the slide changed automatically "
+      printlog "SlideShow->SlideTransition "
       SlideShowSlideTransition
          Kontext "Tasks"
-         '///+ -  click button 'Extras' ///'
+         printlog "click button 'Extras' "
          sleep 1
-         '///+ - + click button 'Automatic Transition' ///'
+         printlog "click button 'Automatic Transition' "
          TransitionAutomaticallyAfter.Check 'click
-         '///+ -  + +  Set Time to '10sec' ///'
+         printlog "Set Time to '10sec' "
          TransitionAutomaticallyAfterTime.SetText "10"
-         '///+ -  click button 'Apply to all Slides' ///'
+         printlog "click button 'Apply to all Slides' "
          TransitionApplyToAllSlides.Click
-         '///+ - close dialog 'Slide Transition' ///'
+         printlog "close dialog 'Slide Transition' "
          sleep (1)
-      '/// start the slideshow with keys [STRG F2] ///'
+      printlog "start the slideshow with keys [STRG F2] "
       Kontext "DocumentImpress"
       DocumentImpress.TypeKeys "<MOD1 F2>"
       Printlog "'---------------------------- START P -- Default -- Automatic -----------------------------"
-      '/// Wait 6 seconds to see if the Automatic Transition changes the slide. ///'
+      printlog "Wait 6 seconds to see if the Automatic Transition changes the slide. "
       sleep 6
       Kontext "DocumentPresentation"
-         '/// type the key [MOD1 SHIFT F5] to open the navigator ///' '--------------------------------------------------------------------------
+         printlog "type the key [MOD1 SHIFT F5] to open the navigator "
          DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
-         '/// press key [cursor right] 3 times ///'
+         printlog "press key [cursor right] 3 times "
          for i = 2 to 4
             sleep (5)
             fGetSlideName(saSlideNames(i))
             DocumentPresentation.TypeKeys "<right>"
          next i
-      '/// press the key [Page Down] to exit presentation ///'
+      printlog "press the key [Page Down] to exit presentation "
       sleep (2)
       DocumentPresentation.TypeKeys "<PAGEDOWN>"
       sleep (2)
@@ -681,18 +683,18 @@ testcase tSlideShowSlideShowSettings
          Printlog "- Slideshow ended at the right time"
       endif
       sleep 2
-      '///  check state of navigator ! expected: closed ///'
+      printlog " check state of navigator ! expected: closed "
       Kontext "Navigator"
       if Navigator.exists then
-         '///+ close navigator ! ///'
+         printlog "close navigator ! "
          Navigator.Close
       endif
    else
       warnlog "document didn't get loaded"
    endif
-   '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
+   printlog "Set Start with current page back to default = on, in ToolsOptions "
    setStartCurrentPage(TRUE)
-   '/// Close the document ///'
+   printlog "Close the document "
    call hCloseDocument
     sLocaltestfile = hFileGetLocalPath(  gTesttoolPath + "diashow.odp" )
     printlog sLocaltestfile
@@ -714,110 +716,110 @@ testcase tSlideShowCustomSlideShow
    dim sTemp as string
 
    Seite = s1
-   '/// open application ///'
+   printlog "open application "
    Call hNewDocument
 
    Kontext "Navigator"
    if Navigator.Exists then Navigator.Close
-   '/// Deactivate "Start with current page" in ToolsOptions ///'
+   printlog "Deactivate Start with current page in ToolsOptions "
    setStartCurrentPage(FALSE)
 
-   '/// create a rectangle ///'
+   printlog "create a rectangle "
    hRechteckErstellen 30,30,60,60
-   '/// do 2 times : ///'
+   printlog "do 2 times : "
    for i = 1 to 2
-      '///+ Insert->Slide... ///'
+      printlog "Insert->Slide... "
       InsertSlide
       sleep 2
       hTypekeys "<Pagedown>"
       sleep 2
-      '///+ create a rectangle ///'
+      printlog "create a rectangle "
       hRechteckErstellen 30,30,70,70
    next i
 
-   '/// Slide Show -> Slide Show Settings ///'
+   printlog "Slide Show -> Slide Show Settings "
    SlideShowPresentationSettings
       Kontext "Bildschirmpraesentation"
       if (Fenster.IsChecked = False) Then Fenster.Check
-      '/// close dialog 'Slide Show' with OK ///'
+      printlog "close dialog 'Slide Show' with OK "
       Bildschirmpraesentation.OK
 
-   '/// Slide Show -> Custom Slide Show... ///'
+   printlog "Slide Show -> Custom Slide Show... "
    SlideShowCustomSlideshow
       Kontext "IndividuellePraesentation"
-      '///<b> click button 'New...' </b>///'
+      printlog "click button 'New...' "
       Neu.Click
 
          Kontext "IndividuellePraesentationDefinieren"
-         '/// type something in 'Name' ///'
+         printlog "type something in 'Name' "
          PraesentationName.SetText "Individually 1"
-         '/// select the first entry in the list 'Existing Slides' ///'
+         printlog "select the first entry in the list 'Existing Slides' "
          SeitenPraesentation.Select 1
-         '/// click button '>>' ///'
+         printlog "click button '>>' "
          Hinzufuegen.Click
          i = SelectedSlides.GetItemCount
          if (i <> 1) Then
             Warnlog "-  Number of slides 'Selected Slides' is not correct. It should be = '1', but it is = '" + i + "'"
          endif
-         '/// close dialog 'Define Custom Slide Show' with OK ///'
+         printlog "close dialog 'Define Custom Slide Show' with OK "
          IndividuellePraesentationDefinieren.OK
       Kontext "IndividuellePraesentation"
-      '///<b> click button 'Edit...' </b>///'
+      printlog "click button 'Edit...'"
       Bearbeiten.Click
          Kontext "IndividuellePraesentationDefinieren"
-         '/// select an entry in the list 'Selected Slides' ///'
+         printlog "select an entry in the list 'Selected Slides' "
          SelectedSlides.TypeKeys "<pagedown>"
-         '/// click button '<<' ///'
+         printlog "click button '<<' "
          Entfernen.Click
          i = SelectedSlides.GetItemCount
          if (i <> 0) Then
             Warnlog "  Removing slides from list 'Selected Slides' does not work It should be = '1', but it is = '" + i + "'"
          endif
-         '/// select the first entry in the list 'Existing Slides' ///'
+         printlog "select the first entry in the list 'Existing Slides' "
          SeitenPraesentation.Select 1
-         '/// click button '>>' ///'
+         printlog "click button '>>' "
          Hinzufuegen.Click
-         '/// close dialog 'Define Custom Slide Show' with OK ///'
+         printlog "close dialog 'Define Custom Slide Show' with OK "
          IndividuellePraesentationDefinieren.OK
       Kontext "IndividuellePraesentation"
 
-      '///<b> check checkbox 'Use Custom Slide Show' </b>///' '-------------------------------------------------------
+      printlog "check checkbox 'Use Custom Slide Show'"
       IndividuellePraesentationBenutzen.Check
-   '///<b> click button 'Start...' </b>///'
+   printlog "click button 'Start..."
    Starten.Click
       sleep 2
       Kontext "DocumentPresentation"
-     '/// press key [space] 2 times ///'
+     printlog "press key [space] 2 times "
       DocumentPresentation.TypeKeys "<space>"
       sleep 2
       DocumentPresentation.TypeKeys "<space>"
       sleep 5
       try
          Kontext "IndividuellePraesentation"
-         '/// close dialog 'Custom Slide Shows' with button 'Close' ///'
+         printlog "close dialog 'Custom Slide Shows' with button 'Close' "
          IndividuellePraesentation.Close
       catch
          Warnlog "- Slideshow did not end after slide 1"
          DocumentPresentation.TypeKeys "<space>"
          sleep 2
       endcatch
-   '/// Slide Show -> Custom Slide Show... ///'
+   printlog "Slide Show -> Custom Slide Show... "
    SlideShowCustomSlideshow
       Kontext "IndividuellePraesentation"
-      '/// click button 'Edit...' ///'
+      printlog "click button 'Edit...' "
       Bearbeiten.Click
          Kontext "IndividuellePraesentationDefinieren"
-         '/// select 1st entry in the list 'Selected Slides' ///'
+         printlog "select 1st entry in the list 'Selected Slides' "
          SelectedSlides.Select 1
-         '/// click button '<<' ///'
+         printlog "click button '<<' "
          Entfernen.Click
          i = SelectedSlides.GetItemCount
          if (i <> 0) Then
             Warnlog "-  Add and remove slides does not work properly. It should be '0', but it is = '"+i+"'"
          endif
-         '/// select the first entry in the list 'Existing Slides' ///'
+         printlog "select the first entry in the list 'Existing Slides' "
          SeitenPraesentation.Select 1
-         '/// click button '>>'  4 times ///'
+         printlog "click button '>>'  4 times "
          for i =1 to 4
             Hinzufuegen.Click
          next i
@@ -828,16 +830,16 @@ testcase tSlideShowCustomSlideShow
                Warnlog "-  Wrong slide added to individual slideshow. Instead of '" + Seite + "', '" + sTemp + "' was added"
             endif
          next i
-         '/// close dialog 'Define Custom Slide Show' with OK ///'
+         printlog "close dialog 'Define Custom Slide Show' with OK "
          IndividuellePraesentationDefinieren.OK
       sleep 1
       Kontext "IndividuellePraesentation"
 
-      '///<b> UNcheck checkbox 'Use Custom Slide Show' </b>///'
+      printlog "UNcheck checkbox 'Use Custom Slide Show'"
       IndividuellePraesentationBenutzen.UnCheck
-      '/// click button 'Start...' ///'
-      Starten.Click               '---------------------------- START P ----------------------------------------------
-        '/// press key [space] 4 times ///'
+      printlog "click button 'Start...' "
+      Starten.Click               
+        printlog "press key [space] 4 times "
          kontext "DocumentPresentation"
          for i = 1 to 4
             sleep 3
@@ -845,19 +847,19 @@ testcase tSlideShowCustomSlideShow
          next i
          sleep 10
       kontext "IndividuellePraesentation"
-   '/// close dialog 'Custom Slide Shows' with button 'Close' ///'
+   printlog "close dialog 'Custom Slide Shows' with button 'Close' "
     if IndividuellePraesentation.exists then
        IndividuellePraesentation.Close
     else
        Warnlog "'IndividuellePraesentation' was closed :-("
     end if
 
-   '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
+   printlog "Set Start with current page back to default = on, in ToolsOptions "
    setStartCurrentPage(TRUE)
-   '/// close the application ///'
+   printlog "close the application "
          Kontext "Navigator"
       if Navigator.exists then
-         '///+ close navigator ! ///'
+         printlog "close navigator ! "
          Navigator.Close
       else
          printlog "Navigator: NOT available"
@@ -879,33 +881,33 @@ testcase tSlideShowSlideTransition
 
    sFile = ConvertPath (gOfficePath + "user\work\diashow")
 
-'   '/// open application ///'
+   printlog "open application "
     call hNewDocument
 
-   '/// close the navigator///'
+   printlog "close the navigator"
    Kontext "Navigator"
    if Navigator.Exists then Navigator.Close
    WaitSlot (3000)
-   '/// create 3 slides with a rectangle ///'
+   printlog "create 3 slides with a rectangle "
    hRechteckErstellen (30,30,60,60)
    for i = 1 to 2
-      '///+  - Insert->Slide ///'
+      printlog " Insert->Slide "
       WaitSlot (1000)
       InsertSlide
       WaitSlot (2000)
       hTypekeys "<Pagedown>"
       WaitSlot (2000)
-      '///+ - insert rectangle///'
+      printlog " insert rectangle"
       hRechteckErstellen (30,30,60,60)
    next i
    Printlog "created 3 slides"
-   '/// for all 3 slides do: ///'
+   printlog "for all 3 slides do: "
    for i = 1 to 3
-      '///+ -  open navigator with shortcutkey [MOD1 SHIFT F5] ///'
+      printlog "open navigator with shortcutkey [MOD1 SHIFT F5] "
       hTypeKeys "<MOD1 SHIFT F5>"
          Sleep (3)
          Kontext "NavigatorDraw"
-         '///+ -  select the next slide in the list ///'
+         printlog "select the next slide in the list "
          if Liste.GetItemCount < 3 then
             warnlog "We have " + Liste.GetItemCount + " entries in the Navigator."
             hTypeKeys "<MOD1 SHIFT F5>"
@@ -913,21 +915,21 @@ testcase tSlideShowSlideTransition
             Kontext "NavigatorDraw"
          end if
          Liste.Select i
-         '///+ - press key [return] ///'
+         printlog "press key [return] "
          Liste.TypeKeys "<return>"
          Kontext "Navigator"
-      '///+ -  close Navigator ///'
+      printlog "close Navigator "
       Navigator.Close
-      '///+ -  SlideShow->SlideTransition ///'
+      printlog " SlideShow->SlideTransition "
       SlideShowSlideTransition
          Kontext "Tasks" '"SlideTransition"' "OL_DIA_Diawechsel"  'OL_DIA_Diawechsel
          TransitionAutomaticPreview.UnCheck
-         '///+ -  click button 'Effects' ///'
+         printlog "click button 'Effects' "
          TransitionApplyToSelectedSlide.typekeys "<pagedown>"
          Sleep (1)
-         '///+ -  in the listbox 'speed' select the i. one from the top ///'
+         printlog "in the listbox 'speed' select the i. one from the top "
          TransitionSpeed.Select i
-         '///+ -  Select an effect-group from the listbox ///'
+         printlog "Select an effect-group from the listbox "
          TransitionApplyToSelectedSlide.typekeys "<home>"
          for q= 1 to (i+2)
             Sleep (2)
@@ -935,12 +937,13 @@ testcase tSlideShowSlideTransition
             Sleep (2)
          next q
          sEffect(i) = TransitionApplyToSelectedSlide.GetSelText
-         '///+ -  click button 'Extras' ///'
+         printlog "click button 'Extras' "
          Sleep (2)
+         printlog "click button 'Automatic Transition' "
          select case i
-            case 1: '///+ - + click button 'Automatic Transition' ///'
+            case 1: 
                     TransitionAutomaticallyAfter.Check
-                    '///+ -  + +  Set Time to '00:00:01' OR ///'
+                    printlog " Set Time to '00:00:01' OR "
                     TransitionAutomaticallyAfterTime.ToMin 'SetText "1" '"00:00:01"
                     TransitionAutomaticallyAfterTime.More
 		            TransitionApplyToSelectedSlide.typekeys "<DOWN>"
@@ -948,8 +951,8 @@ testcase tSlideShowSlideTransition
                     TransitionAutomaticallyAfter.Check
                     Tasks.TypeKeys "<TAB><TAB><TAB>"
                     TimerValue = TransitionAutomaticallyAfterTime.GetText
-		    printlog "   TimerValue is now: " + TimerValue
-            case else: '///+ - + click button 'SemiAutomatic Transition' OR ///'
+		    printlog "TimerValue is now: " + TimerValue
+            case else: printlog "click button 'SemiAutomatic Transition' OR "
                     TransitionOnMouseClick.Check
          end select
        Sleep (3)
@@ -958,26 +961,26 @@ testcase tSlideShowSlideTransition
 
    Kontext "DocumentImpress"
    Sleep (3) 
-   '/// SlideShow->Slide Show Settings... ///'
+   printlog "SlideShow->Slide Show Settings... "
    SlideShowPresentationSettings
       Kontext "Bildschirmpraesentation"
       WaitSlot (2000)
-      '/// check Radio button 'Type': 'Window' ///'
+      printlog "check Radio button 'Type': 'Window' "
       Fenster.Check
-   '/// close dialog 'Slide Show' ///'
+   printlog "close dialog 'Slide Show' "
    Bildschirmpraesentation.OK
    WaitSlot (5000)
    Kontext "DocumentImpress"
-   Printlog "'/// SlideShow->Slide Show ///'"
+   Printlog "printlog SlideShow->Slide Show"
    SlideShowSlideshow
-   '/// wait 10 sec ///'
-   sleep (10) 'WaitSlot (10000)
+   printlog "wait 10 sec "
+   sleep (10) 
    Kontext "DocumentPresentation"
-   '/// type key [ESCAPE] ///'
+   printlog "type key [ESCAPE] "
    DocumentPresentation.TypeKeys "<ESCAPE>"
    WaitSlot (3000)
    try
-      '/// type key [F11] to open the stylist (to check ending of presenation) ///'
+      printlog "type key [F11] to open the stylist (to check ending of presenation) "
       if lcase(gPlatform) = "osx" then
           hTypekeys "<mod1 t>"
       else
@@ -986,7 +989,7 @@ testcase tSlideShowSlideTransition
       Sleep (3)
       Kontext "Gestalter"
       Sleep (3)
-      '/// close Stylist ///'
+      printlog "close Stylist "
       Gestalter.Close
       Printlog "- Slideshow worked"
    catch
@@ -996,34 +999,33 @@ testcase tSlideShowSlideTransition
       Sleep (2)
    endcatch
 
-   '/// close the navigator///'
+   printlog "close the navigator"
    Kontext "Navigator"
    if Navigator.Exists then Navigator.Close
-   Printlog "'///+ check the settings in SlideView in the Dia object bar ///'"
+   Printlog "check the settings in SlideView in the Dia object bar "
    for i = 1 to 3
       Printlog " --------------------- " + i + " ---------------------------"
-      '///+ -  open navigator with shortcutkey [MOD1 SHIFT F5] ///'
+      printlog " open navigator with shortcutkey [MOD1 SHIFT F5] "
       hTypeKeys "<MOD1 SHIFT F5>"
          sleep (3)
          Kontext "NavigatorDraw"
-         '///+ -  select the next slide in the list ///'
+         printlog " select the next slide in the list "
          Liste.Select i
-         '///+ - press key [return] ///'
+         printlog " press key [return] "
          Liste.TypeKeys "<return>"
          Kontext "Navigator"
-      '///+ -  close Navigator ///'
+        printlog " close Navigator "
       Navigator.Close
-      '///+ - View->Master View->Slides View ///'
-'      ViewWorkspaceSlidesView
+      printlog " View->Master View->Slides View "
       Sleep (2)
-      Kontext "Tasks" 'SlideViewObjectbar"
-      '///+ - check 'speed' ///'
+      Kontext "Tasks" 
+      printlog "  check 'speed' "
       if Tasks.Exists = TRUE AND Tasks.IsVisible = TRUE then
          x = TransitionSpeed.GetSelIndex  'TransitionSpeed
          if (x <> i) then
             Warnlog "Speed changed :-( is: '" + x + "' should be: '" + i + "'"
          end if
-         '///+ - check 'Transition' ///'
+         printlog " check 'Transition' "
          x = TransitionApplyToSelectedSlide.GetSelIndex 'Diawechsel.GetSelIndex
          if (x <> (i+3)) then
             Warnlog "Transition changed :-( is: '" + x + "' should be: '" + (i+3) + "'"
@@ -1033,65 +1035,64 @@ testcase tSlideShowSlideTransition
             end if
          end if
 
-         '///+ - check 'effect group' ///'
+         printlog "  check 'effect group' "
          sTemp = TransitionApplyToSelectedSlide.GetSelText
          x = inStr (sTemp,sEffect(i))
          Printlog " Effect tried :-) '" + x + "'"
          if (x < 1) then
             printlog "the string '" + sTemp + "' should contain the words(s): '" + sEffect(i) + "'"
          end if
-'         ViewWorkspaceDrawingView
       else
          warnlog "   SlideViewObjectbar doesnt exists or isnt visible"
       end if
    next i
-   '/// save file as presentation with name '"user\\work\\diashow")' ///'
+   printlog "save file as presentation with name 'user\work\diashow)' "
 
     hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
     
    Printlog "   saved presentation: '" + sFile + "'"  '." + gImpressFilter + "
-   '/// close application///'
+   printlog "close application"
    hCloseDocument ()
    WaitSlot (10000)
-   '/// load file again ///'
+   printlog "load file again "
    hFileOpen (sFile + ".odp")
    WaitSlot (5000)
-   Printlog "   '/// check setings for every slide in the transition dialog ///'"
-   '///+ for all 3 slides do: ///'
+   Printlog "check setings for every slide in the transition dialog "
+   printlog "  for all 3 slides do: "
    for i = 1 to 3
-      Printlog " --------------------- " + i + " ---------------------------"
-      '///+ -  open navigator with shortcutkey [MOD1 SHIFT F5] ///'
-      hTypeKeys "<MOD1 SHIFT F5>"
-         Sleep (3)
-         Kontext "NavigatorDraw"
-         '///+ -  select the next slide in the list ///'
-         Liste.Select i
-         '///+ - press key [return] ///'
-         Liste.TypeKeys "<return>"
-         Kontext "Navigator"
-      '///+ -  close Navigator ///'
-      Navigator.Close
-      '///+ -  select the grafik with the key [TAB] ///'
-      hTypeKeys ("<tab>")
-      '///+ -  SlideShow->SlideTransition ///'
-      SlideShowSlideTransition
+        Printlog " --------------------- " + i + " ---------------------------"
+        printlog " open navigator with shortcutkey [MOD1 SHIFT F5] "
+        hTypeKeys "<MOD1 SHIFT F5>"
+        Sleep (3)
+        Kontext "NavigatorDraw"
+        printlog " select the next slide in the list "
+        Liste.Select i
+        printlog " press key [return] "
+        Liste.TypeKeys "<return>"
+        Kontext "Navigator"
+        printlog " close Navigator "
+        Navigator.Close
+        printlog " select the grafik with the key [TAB] "
+        hTypeKeys ("<tab>")
+        printlog " SlideShow->SlideTransition "
+        SlideShowSlideTransition
          Kontext "Tasks"
          Sleep (1)
-         '///+ - check 'speed' ///'
+         printlog " check 'speed' "
          x = TransitionSpeed.GetSelIndex
          if (x <> i) then
             Warnlog "   Speed changed :-( is: '" + x + "' should: '" + i + "'"
          end if
-      '///+ - check 'effect group' ///'
+        printlog " check 'effect group' "
          x = TransitionApplyToSelectedSlide.GetSelIndex
          if (x <> (i+3)) then
             Warnlog "   Effect changed :-( is: '" + x + "' should: '" + (i+3) + "'"
          end if
          sleep (1)
          select case i
-            case 1: '///+ - click button 'Automatic Transition' ///'
+            case 1: printlog " click button 'Automatic Transition' "
                     if (TransitionAutomaticallyAfter.IsEnabled) then
-                       '///+ -  + +  Check Time '1' OR ///'
+                       '///+ -  + +  Check Time '1' OR "
                        sTemp = TransitionAutomaticallyAfterTime.GetText
                        if (sTemp <> TimerValue) then
                           Warnlog "   Time is different :-( is: '" + sTemp + "' should be: '" + TimerValue + "'" '"00:00:01"
@@ -1100,27 +1101,27 @@ testcase tSlideShowSlideTransition
                        Warnlog "   button 'Automatic Transition' not pressed ?"
                     end if
             case 2: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then
-                       '///+ - + check button 'SemiAutomatic Transition' OR ///'
+                       '///+ - + check button 'SemiAutomatic Transition' OR "
                        Warnlog "   button 'Automatic Transition' is pressed ?"
                     end if
             case 3: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then
-                      '///+ - + click button 'Manual Transition' ///'
+                      '///+ - + click button 'Manual Transition' "
                        Warnlog "   button 'Automatic Transition' is pressed ?"
                     end if
          end select
       Sleep (3)
    next i
    TransitionAutomaticPreview.Check
-   '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
+   printlog "Set Start with current page back to default = on, in ToolsOptions "
    setStartCurrentPage(TRUE)
    Kontext "Navigator"
    if Navigator.exists then
-      '///+ close navigator ! ///'
+      printlog " close navigator ! "
       Navigator.Close
    else
       printlog "Navigator: NOT available"
    end if
-   '/// Close the document ///'
+   printlog "Close the document "
    call hCloseDocument
    
 endcase 'tSlideShowSlideTransition
@@ -1140,7 +1141,7 @@ testcase tSlideShowShowHideSlide
     saSlideNames(3) = S3
     saSlideNames(4) = S4
 
-    printlog "Open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides)"
+    printlog "Open file 'graphics\input\diashow.odp' (Slide Show with 4 Slides)"
     hFileOpen   ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp")
     sleep (10)
     printlog "check if the document is writable"
@@ -1190,7 +1191,7 @@ testcase tSlideShowShowHideSlide
     SlideShowSlideshow
     sleep (1)
     kontext "DocumentPresentation"
-    printlog "type the key [MOD1 SHIFT F5] to open the navigator" '--------------------------------------------------------------------------
+    printlog "type the key [MOD1 SHIFT F5] to open the navigator" 
     DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
     sleep (1)
     kontext "NavigatorDraw"
@@ -1241,4 +1242,4 @@ testcase tSlideShowShowHideSlide
     
 endcase 'tSlideShowShowHideSlide
 
-'------------------------------------------------------------------------------
+'------------------------------------------------------------------------------
\ No newline at end of file