Commits

Anonymous committed 08195cd

CWS-TOOLING: integrate CWS automationdev300m49cat3b
2009-06-11 16:02:30 +0200 wg r272877 : i102646
2009-06-11 16:02:15 +0200 wg r272876 : i102642
2009-06-10 15:29:43 +0200 hde r272821 : i102610
2009-06-10 15:27:23 +0200 wg r272819 : i102646
2009-06-10 14:34:59 +0200 wg r272813 : i102642
2009-06-10 14:30:44 +0200 wg r272811 : i102642

  • Participants
  • Parent commits 4b3a3df

Comments (0)

Files changed (3)

testautomation/global/tools/includes/required/t_doc2.inc

         TextObjectbar.SetNextToolBox
     end if
 
-    Select Case gApplication
+    select case uCASE(gApplication)
     Case "WRITER"
         Kontext "DocumentWriter"
     Case "MASTERDOCUMENT"
 
     fSelectFirstOLE = -1
 
-    select case gApplication
+    select case uCASE(gApplication)
     case "CALC"                     :   Kontext "NavigatorCalc"
         'First check if Navigator is visible and remember result
         if NavigatorCalc.exists (10) then
         end if
 
     case "WRITER" , "HTML" , "MASTERDOCUMENT" :
-        select case gApplication
+        select case uCASE(gApplication)
         case "MASTERDOCUMENT"    :   Kontext "NavigatorGlobalDoc"
             if NavigatorGlobalDoc.Exists(10) then
                 bNavigatorWasVisible = TRUE

testautomation/graphics/required/includes/global/id_004.inc

 ' #1 tiInsertSnappointLine
 ' #1 tdInsertLayer
 '\**********************************************************************************
-
-'///      Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif") ///'
-
 testcase tiInsertSlide
 
-    '/// open application ///'
+    printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) "
+    printlog "open application"
     Call  hNewDocument
-    '/// Insert->Slide ///'
+    printlog "Insert->Slide"
     InsertSlide
     WaitSlot (2000)
     hTypekeys "<Pagedown>"
     WaitSlot (2000) 'sleep 2
-    '/// close application ///'
+    printlog "close application"
     Call  hCloseDocument
-endcase
+    
+endcase 'tiInsertSlide
+'--------------------------------------------------------
+testcase tiInsertDuplicateSlide
 
-testcase tiInsertDuplicateSlide
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle"
     Call hRechteckErstellen ( 30, 40, 40, 50 )
-    '/// Insert->Duplicate Slide ///'
+    printlog "Insert->Duplicate Slide"
     InsertDuplicateSlide
     WaitSlot (2000)
-    '/// close application ///'
+    printlog "close application"
     Call  hCloseDocument
-endcase
+    
+endcase 'tiInsertDuplicateSlide
+'--------------------------------------------------------
+testcase tiInsertField
 
-testcase tiInsertField
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
 
-    '/// Insert->Fields->Time (fixed) ///'
+    printlog "Insert->Fields->Time (fixed)"
     InsertFieldsTimeFix
     WaitSlot (1000)
     printlog "OK   Time Fix"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Date (fixed) ///'
+    printlog "Insert->Fields->Date (fixed) "
     InsertFieldsDateFix
     WaitSlot (1000)
     printlog "OK   Date Fix"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Time (variable) ///'
+    printlog "Insert->Fields->Time (variable) "
     InsertFieldsTimeVariable
     WaitSlot (1000)
     printlog "OK   Time Variabel"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Date (variable) ///'
+    printlog "Insert->Fields->Date (variable) "
     InsertFieldsDateVariable
     WaitSlot (1000)
     printlog "OK   Date Variabel"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Author ///'
+    printlog "Insert->Fields->Author "
     InsertFieldsAuthorDraw
     WaitSlot (1000)
     printlog "OK   Author"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Page Numbers///'
+    printlog "Insert->Fields->Page Numbers"
     InsertFieldsPageNumberDraw
     WaitSlot (1000)
     printlog "OK   Page number"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 1
 
-    '/// Insert->Fields->Filename ///'
+    printlog "Insert->Fields->Filename "
     InsertFieldsFileName
     WaitSlot (1000) 'sleep 1
     printlog "OK   File name"
-    '/// delete it with EditSelectAll + <Delete> ///'
+    printlog "delete it with EditSelectAll + <Delete> "
     EditSelectAll
     hTypekeys "<Delete>"
     sleep 2
-    '/// close application ///'
+    printlog "close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tiInsertField
+'--------------------------------------------------------
+testcase tiInsertSpecialCharacter
 
-testcase tiInsertSpecialCharacter
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
 
-    '/// insert text ///'
+    printlog "insert text "
     hTextrahmenErstellen ("This is a testtext",30,40,60,50)
     sleep 2
-    '/// Insert->SpecialCharacter ///'
+    printlog "Insert->SpecialCharacter "
     InsertSpecialCharacterDraw
     WaitSlot (2000)
     Kontext "Sonderzeichen"
-        Call DialogTest (Sonderzeichen)
-        '/// cancel dialog 'Special Characters' ///'
-        Sonderzeichen.Cancel
-        sleep 2
-    '/// close application ///'
+    Call DialogTest (Sonderzeichen)
+    printlog "cancel dialog 'Special Characters' "
+    Sonderzeichen.Cancel
+    sleep 2
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertSpecialCharacter
+'--------------------------------------------------------
+testcase tiInsertHyperlink
 
-testcase tiInsertHyperlink
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Insert->Hyperlink ///'
+    printlog "Insert->Hyperlink "
     InsertHyperlink
     WaitSlot (5000)
     Kontext "Hyperlink"
-        if Hyperlink.exists (5) then
-            Auswahl.MouseDown 50, 5
-            Auswahl.MouseUp 50, 5
-            Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
-            Auswahl.typekeys "<TAB>"
-            sleep 3
-            Kontext "TabHyperlinkInternet"
+    if Hyperlink.exists (5) then
+        Auswahl.MouseDown 50, 5
+        Auswahl.MouseUp 50, 5
+        Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
+        Auswahl.typekeys "<TAB>"
+        sleep 3
+        Kontext "TabHyperlinkInternet"
 
-            'Workaround to get rid of a Focusing-problem...
-            NameText.Typekeys "alal <RETURN>"
-            NameText.Typekeys "<MOD1 A><DELETE>"
-            TabHyperlinkInternet.Typekeys "<TAB>", 6
-            TabHyperlinkInternet.Typekeys "<LEFT>", 3
-            'End of workaround...
+        printlog "Workaround to get rid of a Focusing-problem..."
+        NameText.Typekeys "alal <RETURN>"
+        NameText.Typekeys "<MOD1 A><DELETE>"
+        TabHyperlinkInternet.Typekeys "<TAB>", 6
+        TabHyperlinkInternet.Typekeys "<LEFT>", 3
+        printlog "End of workaround..."
 
-            Internet.Check
-            ZielUrl.Settext "http://mahler"
-            Kontext "Hyperlink"
-                Uebernehmen.Click
-                Hyperlink.Close
-        else
-            warnlog "Failed to open hyperlink ??!!"
-        end if
-    '/// close application ///'
+        Internet.Check
+        ZielUrl.Settext "http://mahler"
+        Kontext "Hyperlink"
+        Uebernehmen.Click
+        Hyperlink.Close
+    else
+        warnlog "Failed to open hyperlink ??!!"
+    end if
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertHyperlink
+'--------------------------------------------------------
+testcase tiInsertGraphic
 
-testcase tiInsertGraphic
-    '/// open application ///'
+    printlog "open application "
     Call  hNewDocument
-    '/// Insert->Graphics ///'
+    printlog "Insert->Graphics "
     InsertGraphicsFromFile
     WaitSlot (2000) '
     try
         Kontext "GrafikEinfuegenDlg"
-            '/// if checkbox 'link' is available, check it; if not available: ERROR ///'
-            if Link.exists then
-                Link.Check
-                else
-                Warnlog  "Linking grafik doesn't work :-("
-            end if
-            '/// if checkbox 'Preview' is available, check it; if not available: ERROR ///'
-            if Preview.exists then
-                Preview.Check
+        printlog "if checkbox 'link' is available, check it; if not available: ERROR "
+        if Link.exists then
+            Link.Check
             else
-                Warnlog "Preview of graphic doesn't work :-("
-            end if
-            DialogTest (GrafikEinfuegenDlg)
-
-            '/// use file: "global\input\graf_inp\stabler.tif") ///'
-            Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
-            '/// click 'open' ///'
-            Oeffnen.click
+            Warnlog  "Linking grafik doesn't work :-("
+        end if
+        printlog "if checkbox 'Preview' is available, check it; if not available: ERROR "
+        if Preview.exists then
+            Preview.Check
+        else
+            Warnlog "Preview of graphic doesn't work :-("
+        end if
+        DialogTest (GrafikEinfuegenDlg)
+        printlog " use file: global\input\graf_inp\stabler.tif) "
+        Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
+        printlog "click 'open' "
+        Oeffnen.click
     catch
         Warnlog "Insert graphic doesn't work :-("
     endcatch
 
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertGraphic
+'--------------------------------------------------------
+testcase tiInsertObjectSound
 
-testcase tiInsertObjectSound
     goto endsub ' disabled for final, because always wrong (TZ 01/2002)
     'TODO: TBO: enhance!
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
     try
-        '/// Insert->Object->Sound ///'
+        printlog " Insert->Object->Sound "
         InsertObjectSound
         WaitSlot (1000)
         Kontext "OeffnenDlg"
-            '       Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
-
-            '/// cancel file open dialog ///'
-            OeffnenDlg.Cancel
+        'Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
+        printlog "cancel file open dialog "
+        OeffnenDlg.Cancel
     catch
         printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
     endcatch
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertObjectSound
+'--------------------------------------------------------
+testcase tiInsertObjectVideo
 
-testcase tiInsertObjectVideo
     goto endsub
     'TODO: TBO: enhance!
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
     try
-        '/// Insert->Object->Video ///'
+        printlog "Insert->Object->Video "
         InsertObjectVideo
         Kontext "OeffnenDlg"
-            '      Call Dialogtest (OeffnenDlg)
-            WaitSlot (1000)
-            '/// cancel file open dialog ///'
-            OeffnenDlg.Cancel
+        'Call Dialogtest (OeffnenDlg)
+        WaitSlot (1000)
+        printlog "cancel file open dialog "
+        OeffnenDlg.Cancel
     catch
         printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
     endcatch
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertObjectVideo
+'--------------------------------------------------------
+testcase tiInsertChart
 
-testcase tiInsertChart
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Insert->Chart ///'
+    printlog "Insert->Chart "
     InsertChart
     WaitSlot (2000)
     Kontext "Messagebox"
         end if
     gMouseClick 1,1
     sleep 2
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertChart
+'--------------------------------------------------------
+testcase tiInsertObjectOLEObjects
 
-testcase tiInsertObjectOLEObjects
-    '/// open application ///'
+    printlog "open application "
     hNewDocument
-    '/// Insert->Object->OLEObjekts ///'
+    printlog "Insert->Object->OLEObjekts "
     InsertObjectOLEObject
     Kontext "OLEObjektEinfuegen"
-        '   Call Dialogtest ( OLEObjektEinfuegen )
-        '   NeuErstellen.Check ' is default value
-        Call DialogTest (OLEObjektEinfuegen, 1)
-        '/// check 'Create from file' ///'
-        AusDateiErstellen.Check
-        Call DialogTest (OLEObjektEinfuegen, 2)
-        '/// click 'Search...' ///'
-        Durchsuchen.click
-        Kontext "OeffnenDlG"
-            '/// cancel file open dialog ///'
-            OeffnenDLG.Cancel
+    'Call Dialogtest ( OLEObjektEinfuegen )
+    'NeuErstellen.Check ' is default value
+    Call DialogTest (OLEObjektEinfuegen, 1)
+    printlog "check 'Create from file' "
+    AusDateiErstellen.Check
+    Call DialogTest (OLEObjektEinfuegen, 2)
+    printlog "click 'Search...' "
+    Durchsuchen.click
+    Kontext "OeffnenDlG"
+    printlog "cancel file open dialog "
+    OeffnenDLG.Cancel
     Kontext "OLEObjektEinfuegen"
-        '/// cancel dialog 'insert OLE Object' ///'
-        OLEObjektEinfuegen.Cancel
-        sleep 1
-    '/// close application ///'
+    printlog "cancel dialog 'insert OLE Object' "
+    OLEObjektEinfuegen.Cancel
+    sleep 1
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertObjectOLEObjects
+'--------------------------------------------------------
+testcase tiInsertSpreadsheet
 
-testcase tiInsertSpreadsheet
     if gtSYSName = "Linux" then
         printlog "Linux = wont test tiInsertSpreadsheet"
-    goto endsub
-endif
+        goto endsub
+    endif
 
-'/// open application ///'
+    printlog "open application "
     Call hNewDocument
     WaitSlot (2000)
-    '/// Insert->Spreadsheet ///'
+    printlog "Insert->Spreadsheet "
     InsertSpreadsheetDraw
     WaitSlot (2000)
     Kontext "Messagebox"
             Messagebox.OK
         end if
         sleep 2
-        '/// click somewhere out of the object, to deselect it ///'
+        printlog "click somewhere out of the object, to deselect it "
         gMouseClick 1,1
         sleep 1
-        '/// select and delete object with keys: <Tab><Delete> ///'
+        printlog "select and delete object with keys: <Tab><Delete> "
         hTypekeys "<Tab><Delete>"
         sleep 2
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertSpreadsheet
+'--------------------------------------------------------
+testcase tiInsertFormula
 
-testcase tiInsertFormula
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Insert->Object->Formula ///'
+    printlog "Insert->Object->Formula "
     InsertObjectFormulaDraw
     WaitSlot (2000)
     Kontext "Messagebox"
-        if Messagebox.Exists then
-            Warnlog Messagebox.GetText
-            Messagebox.OK
-            sleep 1
-        end if
-        '/// click somewhere out of the object, to deselect it ///'
-        gMouseClick 1,1
+    if Messagebox.Exists then
+        Warnlog Messagebox.GetText
+        Messagebox.OK
         sleep 1
-        '/// select and delete object with keys: <Tab><Delete> ///'
-        hTypekeys "<Tab><Delete>"
-    '/// close application ///'
+    end if
+    printlog "click somewhere out of the object, to deselect it "
+    gMouseClick 1,1
+    sleep 1
+    printlog "select and delete object with keys: <Tab><Delete> "
+    hTypekeys "<Tab><Delete>"
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertFormula
+'--------------------------------------------------------
+testcase tiInsertFloatingFrame
 
-testcase tiInsertFloatingFrame
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Insert->Floating Frame ///'
+    printlog "Insert->Floating Frame "
     InsertFloatingFrame
     WaitSlot (2000)
     Kontext "TabEigenschaften"
-        Dialogtest (TabEigenschaften)
-        '/// click '...' ///'
-        Oeffnen.Click
-        Kontext "OeffnenDlg"
-            sleep 1
-            '/// cancel file open dialog ///'
-            OeffnenDlg.Cancel
+    Dialogtest (TabEigenschaften)
+    printlog "click '...' "
+    Oeffnen.Click
+    Kontext "OeffnenDlg"
+    sleep 1
+    printlog "cancel file open dialog "
+    OeffnenDlg.Cancel
     Kontext "TabEigenschaften"
-        '/// cancel dialog 'Floating Frame Properties' ///'
-        TabEigenschaften.Cancel
-    '/// close application ///'
+    printlog "cancel dialog 'Floating Frame Properties' "
+    TabEigenschaften.Cancel
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertFloatingFrame
+'--------------------------------------------------------
+testcase tiInsertFile
 
-testcase tiInsertFile
-    '/// open application ///'
+    printlog "open application "
     Call  hNewDocument
     WaitSlot (1000)
-    '/// Insert->File ///'
+    printlog "Insert->File "
     InsertFileDraw
     WaitSlot (1000)
     Kontext "OeffnenDLG"
-        '   	Call Dialogtest ( OeffnenDLG )
-        '/// cancel file open dialog ///'
-        OeffnenDLG.Cancel
-    '/// close application ///'
+    'Call Dialogtest ( OeffnenDLG )
+    printlog "cancel file open dialog "
+    OeffnenDLG.Cancel
+    printlog "close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tiInsertFile
+'--------------------------------------------------------
+testcase tiInsertPlugin
 
-testcase tiInsertPlugin
-    '/// open application ///'
+    printlog "open application "
     call hNewDocument
-    '/// Insert->Object->PlugIn ///'
+    printlog "Insert->Object->PlugIn "
     InsertObjectPlugIn
     Kontext "PluginEinfuegen"
-        if PluginEinfuegen.exists (5) then
-            call Dialogtest (PluginEinfuegen)
-            '/// click 'browse' ///'
-            Durchsuchen.Click
+    if PluginEinfuegen.exists (5) then
+        call Dialogtest (PluginEinfuegen)
+        printlog "click 'browse' "
+        Durchsuchen.Click
+        sleep 1
+        Kontext "Messagebox"
+        if Messagebox.Exists (5) Then
+            Warnlog Messagebox.GetText
+            Messagebox.OK
+        else
+            printlog "No Messagebox :-)"
+        end if
+        Kontext "OeffnenDlG"
+        if OeffnenDlG.exists (5) then
             sleep 1
-            Kontext "Messagebox"
-                if Messagebox.Exists (5) Then
-                    Warnlog Messagebox.GetText
-                    Messagebox.OK
-                else
-                    printlog "No Messagebox :-)"
-                end if
-            Kontext "OeffnenDlG"
-                if OeffnenDlG.exists (5) then
-                    sleep 1
-                    '/// cancel file open dialog ///'
-                    OeffnenDLG.Cancel
-                end if
+            printlog "cancel file open dialog "
+            OeffnenDLG.Cancel
+        end if
     Kontext "PluginEinfuegen"
-        '/// cancel dialog 'Insert Plug-in' ///'
-        if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
+    printlog "cancel dialog 'Insert Plug-in' "
+    if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
         else
-            warnlog "Insert Plugin does not work :-("
-        end if
-    '/// close application ///'
+        warnlog "Insert Plugin does not work :-("
+    end if
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertPlugin
+'--------------------------------------------------------
+testcase tiInsertScan
 
-testcase tiInsertScan
     goto endsub
-    '/// DISABLED because not able to make automatic :-( ///'
-    '/// open application ///'
+    printlog "DISABLED because not able to make automatic :-( "
+    printlog "open application "
     Call hNewDocument
-    '/// Insert->Scan->Request ///'
+    printlog "Insert->Scan->Request "
     InsertScanRequest ' as long as there is no scanner available, nothing happens
     WaitSlot (1000)
-    '/// Insert->Scan->SelectSource ///'
+    printlog " Insert->Scan->SelectSource "
     InsertScanSelectSource
     WaitSlot (1000)
     printlog "Not testable, not translatable, just callable, because of systemdialog :-("
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiInsertScan
+'--------------------------------------------------------
+testcase tiInsertSnappointLine
 
-testcase tiInsertSnappointLine
-    '/// open application ///'
+    printlog "open application "
     Call  hNewDocument
-    '/// DRAW   : Insert->Snap Point/Line  ///'
-    '/// + IMPRESS: available via Kontext menu: Insert->Snap Point/Line  ///'
+    printlog "DRAW  : Insert->Snap Point/Line  "
+    printlog "+ IMPRESS: available via Kontext menu: Insert->Snap Point/Line  "
     InsertSnapPointLine
     Kontext "NeuesFangobjekt"
-        DialogTest ( NeuesFangobjekt )
-        '/// Cancel dialog 'New Snap Object' ///'
-        NeuesFangobjekt.Cancel
-        sleep 2
-    '/// close application ///'
+    DialogTest ( NeuesFangobjekt )
+    printlog "Cancel dialog 'New Snap Object' "
+    NeuesFangobjekt.Cancel
+    sleep 2
+    printlog "close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tiInsertSnappointLine
+'--------------------------------------------------------
+testcase tdInsertLayer
 
-testcase tdInsertLayer
-    '/// open application ///'
+    printlog "open application "
     Call  hNewDocument
     WaitSlot (1000)
-    '/// View->Layer ///'
+    printlog "View->Layer "
     ViewLayer
-    '/// Insert->Layer ///'
+    printlog "Insert->Layer "
     InsertLayer
     Kontext "EbeneEinfuegenDlg"
-        DialogTest ( EbeneEinfuegenDlg )
-        '/// cancel dialog 'Insert Layer' ///'
-        EbeneEinfuegenDlg.Cancel
-    '/// close application ///'
+    DialogTest ( EbeneEinfuegenDlg )
+    printlog "cancel dialog 'Insert Layer' "
+    EbeneEinfuegenDlg.Cancel
+    printlog "close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tdInsertLayer
 

testautomation/graphics/required/includes/global/id_005.inc

 ' #1 tiFormatGroup
 ' #1 hWalkTheStyles
 '\**********************************************************************************
-
 testcase tiFormatDefault
 
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle"
     gMouseClick 50,50
     Call hRechteckErstellen ( 10, 10, 20, 40 )
-    '/// Format->Default ///'
+    printlog "Format->Default"
     FormatStandardDraw
-    '/// close application ///'
+    printlog "close application"
     Call hCloseDocument
+    
 endcase 'tiFormatDefault
 '---------------------------------------------------------------------------------------
+testcase tiFormatLine
 
-testcase tiFormatLine
-    '/// open application ///'
+    printlog "open application"
     hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle"
     gMouseClick 50,50
     Call hRechteckErstellen ( 10, 10, 20, 40 )
-    '/// Format->Line ///'
+    printlog "Format->Line"
     FormatLine
-    '/// switch to tabpage 'Line' ///'
+    printlog "switch to tabpage 'Line'"
     Kontext
     Messagebox.SetPage TabLinie
     kontext "TabLinie"
     Call DialogTest ( TabLinie )
 
-    '/// switch to tabpage 'Line Styles' ///'
+    printlog "switch to tabpage 'Line Styles'"
     Kontext
     Messagebox.SetPage TabLinienstile
     kontext "TabLinienstile"
     Call DialogTest ( TabLinienstile )
-    '/// click 'add...' ///'
+    printlog "click 'add...'"
     Hinzufuegen.click
     Kontext "NameDLG"
-        Call DialogTest ( NameDlg )
-        '/// cancel dialog 'name' ///'
-        NameDlg.Cancel
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'name'"
+    NameDlg.Cancel
 
     kontext "TabLinienstile"
-        '/// click 'modify...' ///'
-        Aendern.Click
-        Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'name' ///'
-            NameDlg.Cancel
+    printlog "click 'modify...'"
+    Aendern.Click
+    Kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'name'"
+    NameDlg.Cancel
     kontext "TabLinienstile"
-        '/// click 'delete...' ///'
-        Loeschen.Click
-        '/// say NO to messagebox ///'
-        Kontext "Messagebox"
-            Messagebox.no
-
+    printlog "click 'delete...'"
+    Loeschen.Click
+    printlog "say NO to messagebox"
+    Kontext "Messagebox"
+    Messagebox.no
+    
     kontext "TabLinienstile"
-        '/// click 'load line styles' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-            call Dialogtest (OeffnenDLG)
-            '/// cancel dialog 'open' ///'
-            OeffnenDLG.Cancel
+    printlog "click 'load line styles'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
     kontext "TabLinienstile"
-        '/// click 'save line styles' ///'
-        Speichern.click
-        Kontext "SpeichernDLG"
-        call Dialogtest (SpeichernDLG)
-        '/// cancel dialog 'save' ///'
-        SpeichernDLG.Cancel
-        '/// switch to tabpage 'Arrow Styles' ///'
-        Kontext
-        Messagebox.SetPage TabLinienenden
-        kontext "TabLinienenden"
-        Call DialogTest ( TabLinienenden )
-        '/// click 'add...' ///'
-        Hinzufuegen.Click
-        Kontext "NameDLG"
-        Call DialogTest ( NameDlg )
-        '/// cancel dialog 'name' ///'
-        NameDlg.Cancel
-
-        kontext "TabLinienenden"
-            '/// click 'modify...' ///'
-            Aendern.Click
-            Kontext "Messagebox"
-                try
-                    '/// say OK to messagebox ///'
-                    Messagebox.OK
-                catch
-                    'print "TabLinienenden"
-                endcatch
-
-                kontext "NameDlg"
-                    Call DialogTest ( NameDlg )
-                    '/// cancel dialog 'name' ///'
-                    NameDlg.Cancel
+    printlog "click 'save line styles'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save'"
+    SpeichernDLG.Cancel
+    printlog "switch to tabpage 'Arrow Styles'"
+    Kontext
+    Messagebox.SetPage TabLinienenden
+    kontext "TabLinienenden"
+    Call DialogTest ( TabLinienenden )
+    printlog "click 'add...'"
+    Hinzufuegen.Click
+    Kontext "NameDLG"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'name'"
+    NameDlg.Cancel
 
     kontext "TabLinienenden"
-        '/// click 'delete...' ///'
-        Loeschen.Click
-        Kontext "Messagebox"
-        '/// say NO to messagebox ///'
-        Messagebox.no
-
+    printlog "click 'modify...'"
+    Aendern.Click
+    Kontext "Messagebox"
+    try
+        printlog "say OK to messagebox"
+        Messagebox.OK
+    catch
+        'print "TabLinienenden"
+    endcatch
+    
+    kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'name'"
+    NameDlg.Cancel
+    
     kontext "TabLinienenden"
-        '/// click 'load arrow styles' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-            call Dialogtest (OeffnenDLG)
-            '/// cancel dialog 'open' ///'
-            OeffnenDLG.Cancel
-        kontext "TabLinienenden"
-            '/// click 'save arrow styles' ///'
-            Speichern.click
-        Kontext "SpeichernDLG"
-            call Dialogtest (SpeichernDLG)
-            '/// cancel dialog 'save' ///'
-            SpeichernDlg.Cancel
-        kontext "TabLinienenden"
-            '/// cancel dialog 'line' ///'
-            TabLinienenden.cancel
-    '/// close application ///'
+    printlog "click 'delete...'"
+    Loeschen.Click
+    Kontext "Messagebox"
+    printlog "say NO to messagebox"
+    Messagebox.no
+    
+    kontext "TabLinienenden"
+    printlog "click 'load arrow styles'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
+    kontext "TabLinienenden"
+    printlog "click 'save arrow styles'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save'"
+    SpeichernDlg.Cancel
+    kontext "TabLinienenden"
+    printlog "cancel dialog 'line'"
+    TabLinienenden.cancel
+    printlog "close application"
     Call hCloseDocument
+    
 endcase 'tiFormatLine
 '---------------------------------------------------------------------------------------
+testcase tdFormatArea
 
-testcase tdFormatArea
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle"
     gMouseClick 50,50
     Call hRechteckErstellen (15,15,65,65)
     gMouseClick 30,30
-    '/// Format->Area ///'
+    printlog "Format->Area"
     FormatArea
     WaitSlot (1000)
     Kontext
-    '/// switch to tabpage 'Area' ///'
+    printlog "switch to tabpage 'Area'"
     Messagebox.SetPage TabArea
     Kontext "TabArea"
-        Call DialogTest ( TabArea )
-        Kontext
-        '/// switch to tabpage 'Shadow' ///'
-        Messagebox.SetPage TabSchatten
+    Call DialogTest ( TabArea )
+    Kontext
+    printlog "switch to tabpage 'Shadow'"
+    Messagebox.SetPage TabSchatten
     kontext "TabSchatten"
-        Anzeigen.Check
-        Call DialogTest ( TabSchatten )
-        '/// switch to tabpage 'Transparency' ///'
+    Anzeigen.Check
+    Call DialogTest ( TabSchatten )
+    printlog "switch to tabpage 'Transparency'"
     Kontext
-    '/// switch to tabpage 'Colors' ///'
+    printlog "switch to tabpage 'Colors'"
     Messagebox.SetPage TabFarben
     kontext "TabFarben"
-        '/// select the 1st 'color' in the listbox ///'
-        Farbe.select 1
-        '/// select the 1st 'color model' in the listbox ///'
-        Farbmodell.Select 1
-        Call DialogTest ( TabFarben,1 )
-        '/// select the 2nd 'color model' in the listbox ///'
-        Farbmodell.Select 2
-        Call DialogTest ( TabFarben,2 )
-
-        '/// click button 'Add' ///'
-        Hinzufuegen.click
-        Kontext "Messagebox"
-            '/// say OK to the messagebox: the name already exists ///'
-            Messagebox.OK
-        kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.Cancel
+    printlog "select the 1st 'color' in the listbox"
+    Farbe.select 1
+    printlog "select the 1st 'color model' in the listbox"
+    Farbmodell.Select 1
+    Call DialogTest ( TabFarben,1 )
+    printlog "select the 2nd 'color model' in the listbox"
+    Farbmodell.Select 2
+    Call DialogTest ( TabFarben,2 )
+    
+    printlog "click button 'Add'"
+    Hinzufuegen.click
+    Kontext "Messagebox"
+    printlog "say OK to the messagebox: the name already exists"
+    Messagebox.OK
+    kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.Cancel
     kontext "TabFarben"
-        '/// click button 'Delete' ///'
-        Loeschen.click
+    printlog "click button 'Delete'"
+    Loeschen.click
     Kontext "Messagebox"
-        '/// say NO to the messagebox: realy delete? ///'
-        Messagebox.no
+    printlog "say NO to the messagebox: realy delete?"
+    Messagebox.no
 
     kontext "TabFarben"
-        sleep 1
-        '/// click button 'Save color List' ///'
-        Speichern.click
-        Kontext "SpeichernDLG"
-            call Dialogtest (SpeichernDLG)
-            '/// cancel dialog 'save as' ///'
-            SpeichernDlg.Cancel
-            sleep 1
-
+    sleep 1
+    printlog "click button 'Save color List'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save as'"
+    SpeichernDlg.Cancel
+    sleep 1
+    
     kontext "TabFarben"
-        '/// click button 'Load color List' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-        call Dialogtest (OeffnenDLG)
-        '/// cancel dialog 'open' ///'
-        OeffnenDLG.Cancel
+    printlog "click button 'Load color List'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
     Kontext "TabFarben"
 
     Kontext
-    '/// switch to tabpage 'Gradients' ///'
+    printlog "switch to tabpage 'Gradients'"
     Messagebox.SetPage TabFarbverlaeufe
     kontext "TabFarbverlaeufe"
-        Call DialogTest ( TabFarbverlaeufe )
-
-        '/// click button 'Add' ///'
-        Hinzufuegen.click
-        Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.Cancel
-
-        kontext "TabFarbverlaeufe"
-            '/// click button 'Mofify' ///'
-            Aendern.Click
-        Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.Cancel
+    Call DialogTest ( TabFarbverlaeufe )
+    
+    printlog "click button 'Add'"
+    Hinzufuegen.click
+    Kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.Cancel
+    
+    kontext "TabFarbverlaeufe"
+    printlog "click button 'Mofify'"
+    Aendern.Click
+    Kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.Cancel
 
     kontext "TabFarbverlaeufe"
-    '/// click button 'Delete' ///'
+    printlog "click button 'Delete'"
     loeschen.click
     try
         kontext "Messagebox"
-        '/// say NO to the messagebox: realy delete? ///'
+        printlog "say NO to the messagebox: realy delete?"
         Messagebox.no
     catch
         warnlog "nobody cares about deleting a gradient :-("
     endcatch
 
     kontext "TabFarbverlaeufe"
-    '/// click button 'Load gradients List' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-            call Dialogtest (OeffnenDLG)
-            '/// cancel dialog 'open' ///'
-            OeffnenDLG.Cancel
-        kontext "TabFarbverlaeufe"
-            '/// click button 'Save gradients List' ///'
-            Speichern.click
-        Kontext "SpeichernDLG"
-            call Dialogtest (SpeichernDLG)
-            '/// cancel dialog 'save as' ///'
-            SpeichernDLG.Cancel
+    printlog "click button 'Load gradients List'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
+    kontext "TabFarbverlaeufe"
+    printlog "click button 'Save gradients List'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save as'"
+    SpeichernDLG.Cancel
 
     Kontext
-    '/// switch to tabpage 'Hatching'  - <Gesundheit!> ;-) ///'
+    printlog "switch to tabpage 'Hatching' "
     Messagebox.SetPage TabSchraffuren
-        kontext "TabSchraffuren"
-        Call DialogTest ( TabSchraffuren)
-
-        '/// click button 'Add' ///'
-        Hinzufuegen.click
-        Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.Cancel
+    kontext "TabSchraffuren"
+    Call DialogTest ( TabSchraffuren)
+    
+    printlog "click button 'Add'"
+    Hinzufuegen.click
+    Kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.Cancel
 
     kontext "TabSchraffuren"
-    '/// click button 'Modify' ///'
+    printlog "click button 'Modify'"
     Aendern.Click
     Kontext "NameDlg"
-        Call DialogTest ( NameDlg )
-        '/// cancel dialog 'Name' ///'
-        NameDlg.Cancel
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.Cancel
 
     kontext "TabSchraffuren"
-        '/// click button 'Delete' ///'
-        Loeschen.click
-        kontext "Messagebox"
-            '/// say NO to the messagebox: realy delete? ///'
-            Messagebox.no
+    printlog "click button 'Delete'"
+    Loeschen.click
+    kontext "Messagebox"
+    printlog "say NO to the messagebox: realy delete?"
+    Messagebox.no
 
     kontext "TabSchraffuren"
-        '/// click button 'Load hatches List' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-        call Dialogtest (OeffnenDLG)
-        '/// cancel dialog 'open' ///'
-        OeffnenDLG.Cancel
+    printlog "click button 'Load hatches List'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
     kontext "TabSchraffuren"
-        '/// click button 'Save hatches List' ///'
-        Speichern.click
-        Kontext "SpeichernDLG"
-            call Dialogtest (SpeichernDLG)
-            '/// cancel dialog 'save as' ///'
-            SpeichernDLG.Cancel
+    printlog "click button 'Save hatches List'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save as'"
+    SpeichernDLG.Cancel
 
     Kontext
-    '/// switch to tabpage 'Bitmaps' ///'
+    printlog "switch to tabpage 'Bitmaps'"
     Messagebox.SetPage TabBitmap
     kontext "TabBitmap"
-        Call DialogTest ( TabBitmap )
-        '/// click button 'Reset' ///'
-        zurueck.click
-        sleep 1
-        '/// click button 'Add' ///'
-        hinzufuegen.click
-        Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.cancel
+    Call DialogTest ( TabBitmap )
+    printlog "click button 'Reset'"
+    zurueck.click
+    sleep 1
+    printlog "click button 'Add'"
+    hinzufuegen.click
+    Kontext "NameDlg"
+    Call DialogTest ( NameDlg )
+    printlog "cancel dialog 'Name'"
+    NameDlg.cancel
 
     kontext "TabBitmap"
     try
-        '/// click button 'Modify' ///'
+        printlog "click button 'Modify'"
         Aendern.Click
         Kontext "NameDlg"
-            Call DialogTest ( NameDlg )
-            '/// cancel dialog 'Name' ///'
-            NameDlg.cancel
+        Call DialogTest ( NameDlg )
+        printlog "cancel dialog 'Name'"
+        NameDlg.cancel
     catch
         WarnLog "Control is disabled - modify bitmap"
     endcatch
     kontext "TabBitmap"
-        '/// click button 'Import' ///'
-        Import.Click
-        try
-            Kontext "GrafikEinfuegenDlg"
-            Call DialogTest ( GrafikEinfuegenDlg )
-            Kontext "GrafikEinfuegenDlg"
-                '/// cancel dialog 'Import' ///'
-                GrafikEinfuegenDlg.Cancel
-        catch
-            Warnlog "Insert graphic does not work"
-        endcatch
-
+    printlog "click button 'Import'"
+    Import.Click
+    try
+        Kontext "GrafikEinfuegenDlg"
+        Call DialogTest ( GrafikEinfuegenDlg )
+        Kontext "GrafikEinfuegenDlg"
+        printlog "cancel dialog 'Import'"
+        GrafikEinfuegenDlg.Cancel
+    catch
+        Warnlog "Insert graphic does not work"
+    endcatch
+    
     kontext "TabBitmap"
-        '/// click button 'Delete' ///'
-        loeschen.click
-        kontext "Messagebox"
-            '/// say NO to the messagebox: realy delete? ///'
-            Messagebox.no
-
+    printlog "click button 'Delete'"
+    loeschen.click
+    kontext "Messagebox"
+    printlog "say NO to the messagebox: realy delete?"
+    Messagebox.no
+    
     kontext "TabBitmap"
-        '/// click button 'Load Bitmap List' ///'
-        Oeffnen.click
-        Kontext "OeffnenDLG"
-            call Dialogtest (OeffnenDLG)
-            '/// cancel dialog 'open' ///'
-            OeffnenDLG.Cancel
+    printlog "click button 'Load Bitmap List'"
+    Oeffnen.click
+    Kontext "OeffnenDLG"
+    call Dialogtest (OeffnenDLG)
+    printlog "cancel dialog 'open'"
+    OeffnenDLG.Cancel
     kontext "TabBitmap"
-        '/// click button 'Save Bitmap List' ///'
-        Speichern.click
-        Kontext "SpeichernDLG"
-            call Dialogtest (SpeichernDLG)
-            '/// cancel dialog 'save as' ///'
-            SpeichernDLG.Cancel
+    printlog "click button 'Save Bitmap List'"
+    Speichern.click
+    Kontext "SpeichernDLG"
+    call Dialogtest (SpeichernDLG)
+    printlog "cancel dialog 'save as'"
+    SpeichernDLG.Cancel
     kontext "TabBitmap"
-        '/// cancel dialog 'Area' ///'
-        TabBitmap.Cancel
-    '/// close application ///'
+    printlog "cancel dialog 'Area'"
+    TabBitmap.Cancel
+    printlog "close application"
     Call hCloseDocument
+    
 endcase 'tdFormatArea
 '---------------------------------------------------------------------------------------
-
 testcase tiFormatText
-    '/// open application ///'
+    
+    printlog "open application"
     Call  hNewDocument
-    '/// Format->Text ///'
+    printlog "Format->Text"
     FormatTextDraw
     Kontext
-    '/// switch to tabpage 'Text' ///'
+    printlog "switch to tabpage 'Text'"
     Messagebox.SetPage TabText
     Kontext "TabText"
-        DialogTest ( TabText )
-        Kontext
-        '/// switch to tabpage 'Text Animation' ///'
+    DialogTest ( TabText )
+    Kontext
+    printlog "switch to tabpage 'Text Animation'"
     Messagebox.SetPage TabLauftext
     Kontext "TabLauftext"
-        DialogTest ( TabLauftext )
-        '/// cancel dialog 'text' ///'
-        TabLauftext.Cancel
-    '/// close application ///'
+    DialogTest ( TabLauftext )
+    printlog "cancel dialog 'text'"
+    TabLauftext.Cancel
+    printlog "close application"
     Call hCloseDocument
+
 endcase 'tdFormatArea
 '---------------------------------------------------------------------------------------
+testcase tiFormatPositionAndSize
 
-testcase tiFormatPositionAndSize
-    '/// open application ///'
+    printlog "open application"
     Call  hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle"
     Call hRechteckErstellen ( 10, 10, 20, 40 )
-    '/// Format->Position And Size ///'
+    printlog "Format->Position And Size"
     ContextPositionAndSize
     Kontext
-    '/// switch to tabpage 'Position' ///'
+    printlog "switch to tabpage 'Position'"
     Messagebox.setpage TabPositionAndSize
     Kontext "TabPositionAndSize"
-        call Dialogtest ( TabPositionAndSize )
-        '/// Type <right> two times in Position : Base Point ///'
-        kontext "PositionPosition"
-            PositionPosition.TypeKeys ("<right>", 2)
-            '/// Type <down> two times in Size : Base Point ///'
-        kontext "SizePosition"
-            SizePosition.TypeKeys ("<down>", 2)
-            Kontext
-    '/// switch to tabpage 'Rotation' ///'
+    call Dialogtest ( TabPositionAndSize )
+    printlog "Type <right> two times in Position : Base Point"
+    kontext "PositionPosition"
+    PositionPosition.TypeKeys ("<right>", 2)
+    printlog "Type <down> two times in Size : Base Point"
+    kontext "SizePosition"
+    SizePosition.TypeKeys ("<down>", 2)
+    Kontext
+    printlog "switch to tabpage 'Rotation'"
     Messagebox.setPage TabDrehung
     Kontext "TabDrehung"
-        call Dialogtest ( TabDrehung )
-        Kontext
-    '/// switch to tabpage 'Slant & Corner Radius' ///'
+    call Dialogtest ( TabDrehung )
+    Kontext
+    printlog "switch to tabpage 'Slant & Corner Radius'"
     Messagebox.setpage TabSchraegstellen
     Kontext "TabSchraegstellen"
-        call Dialogtest ( TabSchraegstellen )
-        '/// cancel dialog 'Position and Size' ///'
-        TabSchraegstellen.cancel
-    '/// close application ///'
+    call Dialogtest ( TabSchraegstellen )
+    printlog "cancel dialog 'Position and Size'"
+    TabSchraegstellen.cancel
+    printlog "close application"
     Call hCloseDocument
+    
 endcase 'tiFormatPositionAndSize
 '---------------------------------------------------------------------------------------
-
 testcase tiFormatCharacter
-'/// open application ///'
-   Call  hNewDocument
-'/// Format->Character ///'
+    
+    printlog "open application"
+    Call  hNewDocument
+    printlog "Format->Character"
     FormatCharacter
     WaitSlot (1000)
     Kontext
-'/// switch to tabpage 'Font' ///'
-  Messagebox.SetPage TabFont
-   kontext "TabFont"
-   sleep 1
-   Call DialogTest ( TabFont )
-   Kontext
-'/// switch to tabpage 'Font Effects' ///'
-  Messagebox.SetPage TabFontEffects
-   kontext "TabFontEffects"
-   sleep 1
-   Call DialogTest ( TabFontEffects )
-   sleep 1
-   Kontext
-'/// switch to tabpage 'Position' ///'
-  Messagebox.SetPage TabFontPosition
-   Kontext "TabFontPosition"
-   sleep 1
-   Call DialogTest ( TabFontPosition )
-   sleep 2
-'/// cancel dialog 'Character' ///'
-   TabFontPosition.Cancel
-'/// close application ///'
-   Call hCloseDocument
+    printlog "switch to tabpage 'Font'"
+    Messagebox.SetPage TabFont
+    kontext "TabFont"
+    sleep 1
+    Call DialogTest ( TabFont )
+    Kontext
+    printlog "switch to tabpage 'Font Effects'"
+    Messagebox.SetPage TabFontEffects
+    kontext "TabFontEffects"
+    sleep 1
+    Call DialogTest ( TabFontEffects )
+    sleep 1
+    Kontext
+    printlog "switch to tabpage 'Position'"
+    Messagebox.SetPage TabFontPosition
+    Kontext "TabFontPosition"
+    sleep 1
+    Call DialogTest ( TabFontPosition )
+    sleep 2
+    printlog "cancel dialog 'Character'"
+    TabFontPosition.Cancel
+    printlog "close application"
+    Call hCloseDocument
+   
 endcase 'tiFormatCharacter
-
 '---------------------------------------------------------------------------------------
 testcase tiFormatControlForm
 
-    '/// testcase: check if controls are available
     printlog "testcase: check if controls are available"
-    
-    '/// open new document
     printlog "open new document"
     Call  hNewDocument
  
     'click in the document to get the focus into the document
     if ( UCase(gApplication) = "DRAW" ) then
         Kontext "DocumentDraw"
-            DocumentDraw.MouseDown(50,50)
-            DocumentDraw.MouseUp(50,50)
+        DocumentDraw.MouseDown(50,50)
+        DocumentDraw.MouseUp(50,50)
     else 'Impress
         Kontext "DocumentImpress"
-            DocumentImpress.MouseDown(50,50)
-            DocumentImpress.MouseUp(50,50)
+        DocumentImpress.MouseDown(50,50)
+        DocumentImpress.MouseUp(50,50)
     endif
     
-    '/// open the form controls toolbar
     printlog "open the form controls toolbar"
     call hToolbarSelect("FormControls",true)
     
     kontext "FormControls"    
-    '/// insert a PushButton
     printlog "insert a PushButton"
     Pushbutton.Click
     Sleep 1
     gMouseMove (50, 20,70, 40)
-
-    '/// open the control properties dialog
+    
     printlog "open the control properties dialog"
     FormatControl
     
     Kontext "ControlPropertiesDialog"
     WaitSlot (1000)
-    '/// close the control properties dialog
     printlog "close the control properties dialog"
     ControlPropertiesDialog.Close
     
-    '/// open the form properties dialog
     printlog "open the form properties dialog"
     FormatForm
     Kontext "ControlPropertiesDialog"
     WaitSlot (1000)
-    '/// close the form properties dialog
     printlog "close the form properties dialog"
     ControlPropertiesDialog.Close
-
-    '/// close the form control toolbar
+    
     printlog "close the form control toolbar"
     call hToolbarSelect("FormControls",false)
-
-    '/// close application
+    
     printlog "close application"
     Call hCloseDocument
-    
+   
 endcase 'tiFormatControlForm
 '---------------------------------------------------------------------------------------
+testcase tiFormatDimensions
 
-testcase tiFormatDimensions
-'/// open application ///'
-   Call  hNewDocument
-'/// Format->Dimensions ///'
-   FormatDimensioning
-      Kontext "Bemassung"
-      DialogTest ( Bemassung )
-'/// cancel dialog 'Dimensioning' ///'
-      Bemassung.Cancel
-'/// close application ///'
-   Call hCloseDocument
+    printlog "open application"
+    Call  hNewDocument
+    printlog "Format->Dimensions"
+    FormatDimensioning
+    Kontext "Bemassung"
+    DialogTest ( Bemassung )
+    printlog "cancel dialog 'Dimensioning'"
+    Bemassung.Cancel
+    printlog "close application"
+    Call hCloseDocument
+   
 endcase 'tiFormatDimensions
-
 '---------------------------------------------------------------------------------------
 testcase tiFormatConnector
-'/// open application ///'
-   Call  hNewDocument
-'/// Format->Connector ///'
-   FormatConnector
-      Kontext "Verbinder"
-      DialogTest ( Verbinder )
-'/// cancel dialog 'Connector' ///'
-      Verbinder.Cancel
-'/// close application ///'
-   Call hCloseDocument
+
+    printlog "open application"
+    Call  hNewDocument
+    printlog "Format->Connector"
+    FormatConnector
+    Kontext "Verbinder"
+    DialogTest ( Verbinder )
+    printlog "cancel dialog 'Connector'"
+    Verbinder.Cancel
+    printlog "close application"
+    Call hCloseDocument
+   
 endcase 'tiFormatConnector
-
 '---------------------------------------------------------------------------------------
 testcase tiFormat3D_Effects
-'/// open application ///'
-   Call  hNewDocument
-'/// Format->3D_Effects ///'
+
+    printlog "open application"
+    Call  hNewDocument
+    printlog "Format->3D_Effects"
     Format3D_Effects
-     Kontext "Drei_D_Effekte"
-     Call DialogTest ( Drei_D_Effekte,1 )
-'/// click button 'Geometry' ///'
-     Geometrie.Click
-     Call DialogTest ( Drei_D_Effekte,2 )
-     '/// click button 'Shading' ///'
-     Darstellung.Click
-     Call DialogTest ( Drei_D_Effekte,3 )
-     '/// click button 'Illumination' ///'
-     Beleuchtung.Click
-     Call DialogTest ( Drei_D_Effekte,4 )
-     '/// click button 'Textures' ///'
-     Texturen.Click
-     Call DialogTest ( Drei_D_Effekte,5 )
-     '/// click button 'Material' ///'
-     Material.Click
-     Call DialogTest ( Drei_D_Effekte,6 )
-     Kontext "Drei_D_Effekte"
-     '/// close dialog '3D Effects' ///'
-     Drei_D_Effekte.Close
-     '/// close application ///'
-   Call hCloseDocument
+    Kontext "Drei_D_Effekte"
+    Call DialogTest ( Drei_D_Effekte,1 )
+    printlog "click button 'Geometry'"
+    Geometrie.Click
+    Call DialogTest ( Drei_D_Effekte,2 )
+    printlog "click button 'Shading'"
+    Darstellung.Click
+    Call DialogTest ( Drei_D_Effekte,3 )
+    printlog "click button 'Illumination'"
+    Beleuchtung.Click
+    Call DialogTest ( Drei_D_Effekte,4 )
+    printlog "click button 'Textures'"
+    Texturen.Click
+    Call DialogTest ( Drei_D_Effekte,5 )
+    printlog "click button 'Material'"
+    Material.Click
+    Call DialogTest ( Drei_D_Effekte,6 )
+    Kontext "Drei_D_Effekte"
+    printlog "close dialog '3D Effects'"
+    Drei_D_Effekte.Close
+    printlog "close application"
+    Call hCloseDocument
+   
 endcase 'tiFormat3D_Effects
+'---------------------------------------------------------------------------------------
+testcase tiFormatNumberingBullets
 
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatNumberingBullets
-   '/// open application ///'
-   Call hNewDocument
+    printlog "open application"
+    Call hNewDocument
     WaitSlot (2000)
-    '/// Format->Numbering/Bullets ///'
+    printlog "Format->Numbering/Bullets"
     FormatNumberingBulletsDraw
     WaitSlot (2000)
-    '/// switch to tabpage 'Bullets' ///'
+    printlog "switch to tabpage 'Bullets'"
     Kontext
     Messagebox.SetPage TabBullet
     Kontext "TabBullet"
     Call DialogTest ( TabBullet )
     Kontext
-    '/// switch to tabpage 'Numbering Type' ///'
+    printlog "switch to tabpage 'Numbering Type'"
     Messagebox.SetPage TabNumerierungsart
     Kontext "TabNumerierungsart"
     Call DialogTest ( TabNumerierungsart )
     Kontext
-    '/// switch to tabpage 'Graphics' ///'
+    printlog "switch to tabpage 'Graphics'"
     Messagebox.SetPage TabGrafiken
     Kontext "TabGrafiken"
     Call DialogTest ( TabGrafiken )
     Kontext
-    '/// switch to tabpage 'Position' ///'
+    printlog "switch to tabpage 'Position'"
     Messagebox.SetPage TabPositionNumerierung
     Kontext "TabPositionNumerierung"
     Call DialogTest ( TabPositionNumerierung )
     Kontext
-    '/// switch to tabpage 'Customize' ///'
+    printlog "switch to tabpage 'Customize'"
     Messagebox.SetPage TabOptionenNumerierung
     Kontext "TabOptionenNumerierung"
     Call DialogTest ( TabOptionenNumerierung )
-    '/// select 7th entry from the top in the listbox 'Numbering' ///'
+    printlog "select 7th entry from the top in the listbox 'Numbering'"
     Numerierung.Select 9 ' last one always ? -> graphics
-      '/// click button graphics 'select' ///'
-      TabOptionenNumerierung.MouseDown 50,60
-      TabOptionenNumerierung.MouseUp 50,60
-      Auswahl.TypeKeys "<SPACE>"
-      '/// select 'From file' ///'
-      hMenuSelectNr (1)
-      sleep 3
-      '/// dialog 'link' with an grayed out & selected link checkbox ///'
-      Kontext "OeffnenDlg"
-      '/// cancel dialog 'link' ///'
-      OeffnenDlg.Cancel
-      sleep 1
-   sleep 1
-   Kontext
-   '/// switch to tabpage 'Customize' ///'
-   Messagebox.SetPage TabOptionenNumerierung
-   Kontext "TabOptionenNumerierung"
-   sleep 1
-   try
-      '/// click button graphics 'select' ///'
-      Auswahl.TypeKeys "<SPACE>"
-      '/// select 'Gallery' ///'
-      hMenuSelectNr (2)
-      '/// select 3rd element from the top 'blusquare.gif' ///'
-      hMenuSelectNr (3)
-      Sleep 2
-   catch
-      warnlog "couldn't do something :-) (1)"
-      Exceptlog
-      Call hMenuClose
-   endcatch
-   '/// cancel dialog 'Numbering/Bullets' ///'
-   TabOptionenNumerierung.Cancel
-   sleep 1
-   '/// close application ///'
-   Call hCloseDocument
+    printlog "click button graphics 'select'"
+    TabOptionenNumerierung.MouseDown 50,60
+    TabOptionenNumerierung.MouseUp 50,60
+    Auswahl.TypeKeys "<SPACE>"
+    printlog "select 'From file'"
+    hMenuSelectNr (1)
+    sleep 3
+    printlog "dialog 'link' with an grayed out & selected link checkbox"
+    Kontext "OeffnenDlg"
+    printlog "cancel dialog 'link'"
+    OeffnenDlg.Cancel
+    sleep 1
+    sleep 1
+    Kontext
+    printlog "switch to tabpage 'Customize'"
+    Messagebox.SetPage TabOptionenNumerierung
+    Kontext "TabOptionenNumerierung"
+    sleep 1
+    try
+        printlog "click button graphics 'select'"
+        Auswahl.TypeKeys "<SPACE>"
+        printlog "select 'Gallery'"
+        hMenuSelectNr (2)
+        printlog "select 3rd element from the top 'blusquare.gif'"
+        hMenuSelectNr (3)
+        Sleep 2
+    catch
+        warnlog "couldn't do something :-) (1)"
+        Exceptlog
+        Call hMenuClose
+    endcatch
+    printlog "cancel dialog 'Numbering/Bullets'"
+    TabOptionenNumerierung.Cancel
+    sleep 1
+    printlog "close application"
+    Call hCloseDocument
+   
 endcase 'tiFormatNumberingBullets
+'---------------------------------------------------------------------------------------
+testcase tiFormatCaseCharacter
 
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatCaseCharacter
-   '/// open application ///'
-   Call  hNewDocument
-   '/// create textbox with text ///'
-  Call hTextrahmenErstellen ("testit",20,20,50,30)
-  sleep 1
-   '/// move curser 1 time to the left ///'
-   hTypeKeys "<left>"
-
-    '/// Format->Case/Characters->Uppercase ///'
+    printlog "open application"
+    Call  hNewDocument
+    printlog "create textbox with text"
+    Call hTextrahmenErstellen ("testit",20,20,50,30)
+    sleep 1
+    printlog "move curser 1 time to the left"
+    hTypeKeys "<left>"
+    
+    printlog "Format->Case/Characters->Uppercase"
     FormatChangeCaseUpper
     WaitSlot (1000)
-    '/// Format->Case/Characters->Lowercase ///'
+    printlog "Format->Case/Characters->Lowercase"
     FormatChangeCaseLower
     WaitSlot (2000)
     if bAsianLan then
         if not gAsianSup then
             qaerrorlog "This is an asian language-office, but asian support was disabled in a previous test?"
         end if
-        '/// if asian language (81/82/86/88): ///'
+        printlog "if asian language (81/82/86/88):"
         try
-            '///+ Format->Case/Characters->Half-width ///'
+           printlog "+ Format->Case/Characters->Half-width"
             FormatChangeCaseHalfWidth
         catch