Commits

kz  committed d0e3cf1

CWS-TOOLING: integrate CWS automationdev300m48cat3
2009-06-02 09:47:08 +0200 oc r272481 : #i102430#
2009-05-29 12:59:34 +0200 wg r272453 : i102361
2009-05-29 12:47:37 +0200 wg r272451 : i102360
2009-05-29 12:38:40 +0200 wg r272449 : i102360
2009-05-29 12:32:30 +0200 wg r272448 : i102360
2009-05-29 12:31:56 +0200 wg r272447 : i102334
2009-05-28 15:54:46 +0200 wg r272410 : i102334
2009-05-28 13:20:41 +0200 wg r272404 : i102323
2009-05-28 13:03:10 +0200 wg r272403 : i102323

  • Participants
  • Parent commits 1a8a969

Comments (0)

Files changed (6)

File testautomation/graphics/required/includes/global/id_001.inc

 ' #1 tmFilePrinterSetting
 '\**********************************************************************************
 
-'/// used Documents ///'
-'///"graphics\required\input\tbo_alf_.od?" ///
-
 testcase tiFileSaveAs
 
     dim sFileName as string ' test document & new created doc
     end if
 
     sFilter (0) = 0 ' initalize ;-)...
-    '/// used document: "graphics\required\input\tbo_alf_.od?" ///
-
+    printlog " used document: graphics\required\input\tbo_alf_.od?"
     sFileName = "graphics\required\input\tbo_alf_." + ExtensionString    ' this is the file with all features
     printlog "FileName is " + sFileName
     sFile = "isas_"                                ' this is the filename of the export files
         app.mkdir (sPath)
     end if
 
-    Printlog "'/// deleting all files in output directory: \\user\\work\\graphics\\required\\gApplication gPlatform isas_* ///'"
+    printlog " deleting all files in output directory: \\user\\work\\graphics\\required\\gApplication gPlatform isas_*"
     if gSamePC = TRUE then ' delete export directory
         GetFileList ( sPath, sFile+"*", Exlist() )
         if KillFileList ( Exlist() ) <> TRUE then
   if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
     app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
   end if
-'/// open application ///'
+printlog " open application"
    Call hNewDocument
    WaitSlot (2000)
-'/// save document "..." ///'
+printlog " save document ..."
    Call hFileSaveAsKill (Datei$)
    WaitSlot (2000)
-'/// close document ///'
+printlog " close document "
    Call hCloseDocument
 
-'/// load document again ///'
+printlog " load document again "
    Call hFileOpen (Datei$)
    WaitSlot (2000)
-'/// type something in document ///'
+printlog " type something in document "
    call hTBOtypeInDoc
    WaitSlot (2000)
-'/// File->Reload ///'
+printlog " File->Reload "
    FileReload
    WaitSlot (2000)
-'/// Messagebox has to come up; say NO ///'
+printlog " Messagebox has to come up; say NO"
    Kontext "Messagebox"
    sleep 2
    Messagebox.No
    WaitSlot (2000)
 
-'/// File->Reload ///'
+printlog " File->Reload "
    FileReload
    WaitSlot (2000)
    Kontext "Messagebox"
    sleep 2
-'/// Messagebox has to come up; say YES ///'
+printlog " Messagebox has to come up; say YES"
    Messagebox.Yes
    WaitSlot (1000)
 
-'/// close document ///'
+printlog " close document"
    Call hCloseDocument
-'/// delete document ///'
+printlog " delete document"
    if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
    
 endcase 'tiFileReload
   Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString))
   'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
   if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
-'/// open application ///'
+printlog " open application"
    Call hNewDocument
    WaitSlot (1000)
-'/// save document as "..." ///'
+printlog " save document as ..."
    Call hFileSaveAsKill (Datei$)
    WaitSlot (1000)
-'/// close document ///'
+printlog " close document"
    Call hCloseDocument
 
-'/// open document again ///'
+printlog " open document again"
    Call hFileOpen (Datei$)
    WaitSlot (1000)
-'/// type something in document ///'
+printlog " type something in document"
    call hTBOtypeInDoc
    WaitSlot (1000)
-'/// File->Versions ///'
+printlog " File->Versions "
    try
       FileVersions
    catch
 
    Kontext "Versionen"
    Call DialogTest ( Versionen )
-'/// in Versions dialog press "save" ///'
+printlog " in Versions dialog press save "
    Speichern.Click
-'/// type a comment ///'
+printlog " type a comment"
    Kontext "VersionskommentarEingeben"
    Call DialogTest ( VersionskommentarEingeben )
-'/// exit comment dialog with cancel ///'
+printlog " exit comment dialog with cancel"
    VersionskommentarEingeben.Cancel
    Kontext "Versionen"
-'/// close version dialog ///'
+printlog " close version dialog"
    Versionen.Close
-'/// close document ///'
+printlog " close document"
    Call hCloseDocument
 '   if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
 
         ExtensionString = "odg"
     end if
 
-'///  save file to:  "graphics\required\output\"+gApplication+"\"+ gPlatform+"\"isp__" ///'
+printlog "  save file to:  graphics\required\output\" + gApplication + "\" + gPlatform + "\"
    sFile = "isp__"                                                     ' this is the filename of the export files
    sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path
    mkdir (sPath)
    if dir (sPath) = "" then app.mkdir (sPath)
    sFileIn = (sPath + sFile + "." + ExtensionString)
-   Printlog "'/// deleting all files in output directory: \\graphics\required\output\\impress\\ gPlatform isp_* ///'"
+   printlog " deleting all files in output directory: \\graphics\required\output\\impress\\ gPlatform isp_* "
    if gSamePC = TRUE then ' delete export directory
       GetFileList ( sPath, sFile+"*", Exlist() )
       if KillFileList ( Exlist() ) <> TRUE then
       end if
    end if
 
-'/// open application ///'
+printlog " open application "
    Call hNewDocument
    WaitSlot (1000)
-'/// File->SaveAs ///'
+printlog " File->SaveAs "
    FileSaveAs
       Kontext "SpeichernDlg"
       Datei$ = ConvertPath ( sFileIn )
       if Dir (Datei$) <> "" then
          kill Datei$
       end if
-      '/// check 'password' ///'
+      printlog " check 'password'"
       Passwort.Check
-      '/// set 'filename' ///'
+      printlog " set 'filename'"
       Dateiname.SetText Datei$
-      '/// press 'save' ///'
+      printlog " press 'save'"
       Speichern.Click
    WaitSlot (2000)
    Kontext "Passwort"
-      '/// type password "12345", confirm password: "54321" -> WRONG ///'
+      printlog " type password 12345, confirm password: 54321 -> WRONG "
       PasswortName.SetText "12345"
       PasswortBestaetigen.Settext "54321"
       Passwort.OK
    WaitSlot (2000)
    Kontext "Messagebox"
-      '/// messagebox has to show up, say OK, if messagebox doesnt come up -> ERROR ///'
+      printlog " messagebox has to show up, say OK, if messagebox doesnt come up -> ERROR "
       if Messagebox.Exists(1) then
          Messagebox.OK
       else
          Warnlog "- Wrong password not recognized"
       end if
    Kontext "Passwort"
-      '/// type password "12345", confirm password: "12345" -> RIGHT ///'
+      printlog " type password 12345, confirm password: 12345 -> RIGHT "
       PasswortName.SetText "12345"
       PasswortBestaetigen.SetText "12345"
       Passwort.OK
-      '/// close document ///'
+      printlog " close document"
       sleep 2
    FileClose
    sleep 2
 
-   '/// open document ///'
+   printlog " open document"
    FileOpen
       Kontext "OeffnenDlg"
       WaitSlot (2000)
       Oeffnen.Click
    WaitSlot (2000)
    Kontext "PasswordFileOpen"
-      '/// type password: "34567" -> WRONG ///'
+      printlog " type password: 34567 -> WRONG "
       PasswortName.SetText "34567"
       try
          PasswordFileOpen.OK
          Printlog "- Wrong password not accepted"
       endcatch
    Kontext
-   '/// messagebox has to show up, say OK, if messagebox doesn't come up -> ERROR ///'
+   printlog " messagebox has to show up, say OK, if messagebox doesn't come up -> ERROR "
       if Not Messagebox.Exists(1) then
          Warnlog "Wrong password while loading not recognized"
       else
       end if
    WaitSlot (3000)
    Kontext "PasswordFileOpen"
-      '/// type password: "12345" -> RIGHT ///'
+      printlog " type password: 12345 -> RIGHT"
       PasswortName.SetText "12345"
       PasswordFileOpen.OK
    WaitSlot (5000)
-   '/// File->SaveAs ///'
+   printlog " File->SaveAs "
    FileSaveAs
       Kontext "SpeichernDlg"
       Dateiname.SetText Datei$
       if (Passwort.IsChecked <> TRUE) then
          Warnlog "Password has to be checked! :-("
       end if
-      '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///'
+      printlog " press 'save', without changing any checkbox! -> file has to be saved WITH password protection "
       Speichern.Click
       WaitSlot (1000)
    Kontext "Messagebox"
-      '/// (if messagebox comes up, say YES) ///'
+      printlog " (if messagebox comes up, say YES)"
       if Messagebox.Exists(5) then
          Messagebox.Yes
       end if
-      '/// password dialog has to show up! ///'
+      printlog " password dialog has to show up!"
    Kontext "Passwort"
       if (Passwort.Exists(5) = FALSE)then
          Warnlog "- Password dialog Didn't pop up after pressing save"
       else
          Kontext "Passwort"
-         '/// type password "a12345", confirm password: "a12345" -> RIGHT ///'
+         printlog " type password a12345, confirm password: a12345 -> RIGHT"
          WaitSlot (1000)
          PasswortName.SetText "a12345"
          PasswortBestaetigen.SetText "a12345"
 	 Passwort.OK
          WaitSlot (1000)
-         '/// close document ///'
+         printlog " close document"
          FileClose
          WaitSlot (1000)
       end if
-   '/// open document ///'
+   printlog " open document"
    FileOpen
       WaitSlot (2000)
       Kontext "OeffnenDlg"
       Oeffnen.Click
       Kontext "PasswordFileOpen"
       WaitSlot (1000)
-      '/// type password: "a12345" -> RIGHT ///'
+      printlog " type password: a12345 -> RIGHT"
       PasswortName.SetText "a12345"
       PasswordFileOpen.OK
       WaitSlot (5000)
-   '/// File->SaveAs ///'
+   printlog " File->SaveAs "
    FileSaveAs
       Kontext "SpeichernDlg"
       Dateiname.SetText Datei$
          Warnlog "Password has to be checked! :-("
       end if
       Passwort.UnCheck
-      '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///'
+      printlog " press 'save', without changing any checkbox! -> file has to be saved WITH password protection "
       Speichern.Click
    Kontext "Messagebox"
-      '/// (if messagebox comes up, say YES) ///'
+      printlog " (if messagebox comes up, say YES)"
       if Messagebox.Exists(5) then Messagebox.Yes
-   '/// password dialog needn't to show up! ///'
+   printlog " password dialog needn't to show up!"
    Kontext "Passwort"
       if (Passwort.Exists(5))then
          Warnlog "- Password dialog didn't pop up after pressing save"
          Kontext "Passwort"
          password.cancel
-         '/// close document ///'
+         printlog " close document "
          FileClose
       else
-         '/// close document ///'
+         printlog " close document"
          hCloseDocument
       end if
 endcase 'tiFilePassword
 
 testcase tiFilePrint
    Call hNewDocument
-'/// open application ///'
-'/// File->Print ///'
+printlog " open application"
+printlog " File->Print"
    FilePrint
    WaitSlot (1000)
    kontext
    WaitSlot (2000)
    Kontext "DruckenDlg"
        Call DialogTest (DruckenDlg)
-        '/// click 'options' ///'
+        printlog " click 'options'"
        WaitSlot (2000)
        Zusaetze.Click
 
        Kontext "DruckerZusaetzeDraw"
        Call DialogTest (DruckerZusaetzeDraw)
        DruckerZusaetzeDraw.Cancel
-        '/// close options dialog with 'cancel' ///'
+        printlog " close options dialog with 'cancel'"
        Kontext "DruckenDlg"
-       '/// close print dialog with 'cancel' ///'
+       printlog " close print dialog with 'cancel'"
        DruckenDlg.Cancel
        WaitSlot (2000)
-'/// close application ///'
+printlog " close application"
    Call hCloseDocument
 endcase 'tiFilePrint
 
 testcase tmFileNewFromTemplate
    Call hNewDocument
    FileNewFromTemplate
-  '/// Open dialog with File / New / From Template ///
+  printlog " Open dialog with File / New / From Template"
   WaitSlot (5000)
   Kontext "TemplateAndDocuments"
-  '/// Check if dialog has been opened ///
+  printlog " Check if dialog has been opened"
   if TemplateAndDocuments.NotExists then
      Warnlog "Dialog Templates and Documents are not up!"
      goto endsub
 
 testcase tmFileClose
    printlog "- File Close"
-   hNewDocument    ' just for the records: I open ONE document
+   hNewDocument 
    call hTBOtypeInDoc
    WaitSlot (2000)
    FileClose
-   Kontext         ' Expecting "Modified, do you want to close?"
+   Kontext   
    if active.exists (5) then
       printlog "  Ok, active came up: " + active.gettext
-      Active.Cancel   ' No, not this time
+      Active.Cancel 
    else
       warnlog "active missing (1)"
    end if
 
    FileClose
    Kontext
-   Active.Yes      ' but now - records: this document is closed
+   Active.Yes 
    WaitSlot (2000)
 
    Kontext "SpeichernDlg"
    SpeichernDlg.Cancel
    WaitSlot (2000)
 
-   FileClose       ' now the office gets closed! (if there were no modifications!)
+   FileClose
    Kontext
    Active.No
    WaitSlot (2000)
 testcase tdFileExport
     goto endsub
    dim x as integer
-'/// just call File->Export and exit ///'
+printlog " just call File->Export and exit "
    Call hNewDocument
    WaitSlot (3000)
    FileExport
       Call DialogTest ( ExportierenDlg )
       UebergeordneterOrdner.Click
       Kontext "SpeichernDlg"
-      '/// check number of available export filters. it has to be 17 ///'
-      '///+ this is also done in the 'first test', I provide it just as an additional info here.///'
-      '///+ testcase: ExFilterCountCompare ///'
+      printlog " check number of available export filters. it has to be 17 "
+      printlog "+ this is also done in the 'first test', I provide it just as an additional info here"
+      printlog "+ testcase: ExFilterCountCompare"
       x=Dateityp.getitemcount
       if x <> 18 then warnlog "the number of filters is not 18, it is: " + x
    SpeichernDlg.Cancel

File testautomation/graphics/required/includes/global/id_002.inc

 '*
 '/************************************************************************
 '*
-'* Owner : wolfram.garten@sun.com
+'* Owner : wolfram.garten@sun.com 
 '*
 '* short description :
 '*
 ' #1 tiEditHyperlink
 ' #1 tEditPoints
 '\**********************************************************************************
-
 testcase tiEditUndoRedo
 
-    '/// open application ///'
-    '/// Type a sentence into the document and do : ///'
-    '/// Edit / Undo and Edit / Redo ///
+    printlog " open application"
+    printlog " Type a sentence into the document and do :"
+    printlog " Edit / Undo and Edit / Redo"
     hNewDocument
     call hTBOtypeInDoc
 
     WaitSlot (2000)
     EditRedo
     WaitSlot (2000)
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditUndoRedo
+'---------------------------------------------------------
+testcase tiEditRepeat
 
-testcase tiEditRepeat
     goto endsub 'Quaste, ask FHA
-    '/// open application ///'
+    printlog " open application"
     Call hNewDocument
 
-'/// create 3 rectangles ///'
+printlog " create 3 rectangles"
     gMouseClick 50,50
     Call hRechteckErstellen ( 30, 10, 70, 30 )
     WaitSlot (1000)
     WaitSlot (1000)
     Call hRechteckErstellen ( 80, 50, 40, 20 )
     WaitSlot (1000)
-    '/// [Modify | ContextMenu]->Arrange->SendBackward ///'
+    printlog " [Modify | ContextMenu]->Arrange->SendBackward"
     ContextArrangeBringBackward
     WaitSlot (2000)
-    '/// Edit->Repeat ///'
+    printlog " Edit->Repeat"
     try
         EditRepeat
     catch
         Warnlog " Menu entry is disabled #i26129#"
     endcatch
 
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditRepeat
+'---------------------------------------------------------
+testcase tiEditCutPasteCopySelectall
 
-testcase tiEditCutPasteCopySelectall
-    '/// open application ///'
-    '/// Type a sentence into the dokument and do : ///'
-    '/// edit-> (Cut | Paste | Copy | SelectAll | Cut | Paste | DeleteContents) ///'
+    printlog " open application"
+    printlog " Type a sentence into the dokument and do : "
+    printlog " edit-> (Cut | Paste | Copy | SelectAll | Cut | Paste | DeleteContents) "
     Call hNewDocument
 
     call hTBOtypeInDoc
     sleep (1)
     EditDeleteContents
     sleep (1)
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditCutPasteCopySelectall
+'---------------------------------------------------------
+testcase tiEditPasteSpecial
 
-testcase tiEditPasteSpecial
-    '/// open application ///'
+    printlog " open application"
     Call  hNewDocument
 
-    '/// put some words into the clipboard ///'
+    printlog " put some words into the clipboard "
     SetClipboard "This is a Text in the Clipboard"
 
-    '/// Edit->PasteSpecial ///'
+    printlog " Edit->PasteSpecial"
     EditPasteSpecial
     WaitSlot (1000)
     Kontext "InhaltEinfuegen"
         DialogTest ( InhaltEinfuegen )
 
-        '/// close the dialog without inserting something ///'
+        printlog " close the dialog without inserting something"
         InhaltEinfuegen.Cancel
     WaitSlot (1000)
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditPasteSpecial
+'---------------------------------------------------------
+testcase tiEditSearchAndReplace
 
-testcase tiEditSearchAndReplace
-    '/// open application ///'
+    printlog " open application"
     Call  hNewDocument
 
     try
-        '/// Edit->Find & Replace ///'
+        printlog " Edit->Find & Replace"
         EditSearchAndReplace
         WaitSlot (1000)
         Kontext "FindAndReplace"
             DialogTest ( FindAndReplace )
 
-            '/// click on "More Options" ///'
+            printlog " click on More Options"
             More.Click
-            '/// check 'similarity search' ///'
+            printlog " check 'similarity search' "
             SimilaritySearch.Check ' culprint for errors if not resetted !
             WaitSlot (1000)
-            '/// click '...' :-) ///'
+            printlog " click '...' "
             SimilaritySearchFor.Click
             Kontext "Aehnlichkeitssuche"
                 DialogTest (Aehnlichkeitssuche )
                 Aehnlichkeitssuche.Cancel
-                '/// close dialog 'similarity search' ///'
+                printlog " close dialog 'similarity search' "
         Kontext "FindAndReplace"
-            '/// UNcheck 'similarity search' ///'
+            printlog " UNcheck 'similarity search' "
             SimilaritySearch.UnCheck
-            '/// click on "More Options" ///'
+            printlog " click on More Options"
             More.Click
-            '/// close dialog 'Find & Replace' ///'
+            printlog " close dialog 'Find & Replace'"
             FindAndReplace.Close
     catch
         Warnlog "EditSearchAndReplace caused an error"
     endcatch
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditSearchAndReplace
+'---------------------------------------------------------
+testcase tiEditDuplicate
 
-testcase tiEditDuplicate
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
-    '/// create a rectangle ///'
+    printlog " create a rectangle"
     call hTBOtypeInDoc
-    '/// 'Edit->Select All' ///'
+    printlog " 'Edit->Select All' "
     EditSelectAll
-    '/// Edit->Duplicate ///'
+    printlog " Edit->Duplicate "
     EditDuplicate
 
     Kontext "Duplizieren"
         Call DialogTest ( Duplizieren )
-        '/// cancel dialog 'duplicate' ///'
+        printlog " cancel dialog 'duplicate'"
         Duplizieren.Cancel
 
     Call hCloseDocument
-    '/// close application ///'
-endcase
+    printlog " close application"
+    
+endcase 'tiEditDuplicate
+'---------------------------------------------------------
+testcase tEditPoints
 
-testcase tEditPoints
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
-    '/// create a rectangle ///'
+    printlog " create a rectangle"
     call hTBOtypeInDoc
-    '/// 'Edit->Points' ///'
+    printlog " 'Edit->Points'"
     FormatEditPoints
-    '/// 'Edit->Glue Points' ///'
+    printlog " 'Edit->Glue Points'"
     EditGluePoints
-    '/// close application ///'
+    printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tEditPoints
+'---------------------------------------------------------
+testcase tiEditFields
 
-testcase tiEditFields
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
     WaitSlot (2000)
-    '/// insert something to be able to use this function ///'
-    '///+ Insert->Fields->Date (fixed) ///'
-    '///+ deselect object, select, editmode ///'
+    printlog " insert something to be able to use this function"
+    printlog "+ Insert->Fields->Date (fixed)"
+    printlog "+ deselect object, select, editmode "
     InsertFieldsDateFix
     WaitSlot (1000)
     gMouseDoubleClick 10,10
 
     hTypeKeys "<ESCAPE>"
-    hTypeKeys "<Tab>"                  ' With a Tab catches we always the Object
-    hTypeKeys "<F2>"                   ' Here we enter Edit-Mode and therefore also the right place
-    hTypeKeys "<Home>"                 ' Here we enter Edit-Mode and therefore also the right place
+    printlog "With a Tab we catch always the Object"
+    hTypeKeys "<Tab>"                  
+    printlog "Here we enter Edit-Mode and therefore also the right place"
+    hTypeKeys "<F2>"
+    printlog "Here we enter Edit-Mode and therefore also the right place"
+    hTypeKeys "<Home>"
 
     try
-        '/// Edit->Fields ///'
+        printlog " Edit->Fields"
         EditFieldsDraw
         Kontext "FeldbefehlBearbeitenDraw"
             Call DialogTest ( FeldbefehlBearbeitenDraw )
-            '/// cancel dialog 'Edit->Field' ///'
+            printlog " cancel dialog 'Edit->Field' "
             FeldbefehlBearbeitenDraw.Close
     catch
         Warnlog "- Slot could not be accessed"
     endcatch
 
-'/// close application ///'
+printlog " close application"
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditFields
+'--------------------------------------------------------
+testcase tdEditDeleteSlide
 
-testcase tdEditDeleteSlide
-'/// open application ///'
+printlog " open application "
     Call hNewDocument
-'/// Insert->Slide ///'
+printlog " Insert->Slide"
     InsertSlide
     WaitSlot (2000)
     hTypekeys "<Pagedown>"
     WaitSlot (2000)
-    '/// check with navigator, if slide is inserted ///'
-    '///  check state of navigator ! expected: closed ///'
+    printlog " check with navigator, if slide is inserted "
+    printlog "  check state of navigator ! expected: closed "
     Kontext "Navigator"
     sleep (2)
     if Navigator.exists then
         goto endsub
     else
         Liste.Select 2
-        Liste.Typekeys "<RETURN>"   '/// Press Return to go to the selected slide ///'
+         printlog " Press Return to go to the selected slide"
+        Liste.Typekeys "<RETURN>"  
         Kontext "Navigator"
         Navigator.Close
     end if
     WaitSlot (2000)
-    '/// Edit->Delete Slide ///'
+    printlog " Edit->Delete Slide"
     EditDeleteSlide
     WaitSlot (2000)
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tdEditDeleteSlide
+'---------------------------------------------------------
+testcase tiEditLinks
 
-testcase tiEditLinks
-    '/// open application ///'
+    printlog " open application "
     Call  hNewDocument
 
-    '/// Insert a linked graphic : "global\input\graf_inp\stabler.tif" ///'
+    printlog " Insert a linked graphic : global\input\graf_inp\stabler.tif"
     InsertGraphicsFromFile
     Kontext "GrafikEinfuegenDlg"
         try
                 InsertGraphicsFromFile
                 Kontext "GrafikEinfuegenDlg"
                     Link.Check
-                    '/// Insert a linked graphic : "global\input\graf_inp\desp.bmp" ///'
+                    printlog " Insert a linked graphic : global\input\graf_inp\desp.bmp"
                     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
                     Oeffnen.Click
                     sleep 2
 
         WaitSlot (2000)
     try
-        '/// Edit->Links ///'
+        printlog " Edit->Links "
         EditLinksDraw
         WaitSlot (2000)
         Kontext "VerknuepfungenBearbeiten"
             Call DialogTest ( VerknuepfungenBearbeiten )
-            '/// close dialog 'Edit Links' ///'
+            printlog " close dialog 'Edit Links' "
             VerknuepfungenBearbeiten.Close
             WaitSlot (1000)
     catch
         Warnlog "- EditLinks could not be executed, could be the graphic was not imported"
     endcatch
 
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditLinks
+'---------------------------------------------------------
+testcase tiEditImageMap
 
-testcase tiEditImageMap
-    '/// open application ///'
+    printlog " open application "
     Call  hNewDocument
 
-    '/// Edit->Image Map ///'
+    printlog " Edit->Image Map "
     EditImageMap
     Kontext "ImageMapEditor"
         sleep (1)
             printlog "- ImageMap exists"
             DialogTest ( ImageMapEditor )
             try
-                '/// Close dialog 'Image Map Editor' ///'
+                printlog " Close dialog 'Image Map Editor' "
                 ImageMapEditor.Close
                 Printlog "ImageMap closed using the close button"
             catch
         else
             warnlog "ImageMap didn't come up!"
         end if
-    '/// close application ///'
+    printlog " close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tiEditImageMap
+'---------------------------------------------------------
+testcase tiEditObjectProperties
 
-testcase tiEditObjectProperties
     dim i as integer
-    '/// for every object, there are several edit options: ///'
-    '///+ starting with FloatingFrame->Properties ///'
-    '///+ file used for input in frame: global\input\graf_inp\desp.bmp ///
+    printlog " for every object, there are several edit options: "
+    printlog "+ starting with FloatingFrame->Properties "
+    printlog "+ file used for input in frame: global\input\graf_inp\desp.bmp"
 
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
 
-    '/// Insert->Floating Frame ///'
+    printlog " Insert->Floating Frame "
     InsertFloatingFrame
     WaitSlot (2000)
 
     Kontext "TabEigenschaften"
         FrameName.SetText "Hello"
-        '/// insert an picture into the frame (embedded into draw application :-)) ///'
+        printlog " insert an picture into the frame (embedded into draw application"
         Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
         WaitSlot (2000)
         TabEigenschaften.OK
         WaitSlot (2000)
     gMouseDoubleClick 1,1
 
-    '/// select frame ///'
+    printlog " select frame "
     hTypekeys "<tab>"
 
-    '/// Edit->Object->Properties ///'
+    printlog " Edit->Object->Properties "
     kontext
     WaitSlot (2000)
     EditObjectProperties
     WaitSlot (1000)
     Kontext "TabEigenschaften"
         DialogTest ( TabEigenschaften )
-        '/// open Contents File Dialog ///'
+        printlog " open Contents File Dialog "
         sleep(1)
         Oeffnen.Click
         Kontext "OeffnenDlg"
             Call DialogTest ( OeffnenDlg )
-            '/// Cancel 'Select File for Floating Frame' ///'
+            printlog " Cancel 'Select File for Floating Frame'"
             OeffnenDlg.Cancel
     Kontext "TabEigenschaften"
         TabEigenschaften.Cancel
 
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditObjectProperties
+'---------------------------------------------------------
+testcase tiEditObjectEdit
 
-testcase tiEditObjectEdit
-    '/// OLE: edit & save copy as... ///'
-    '/// open application ///'
+    printlog " OLE: edit & save copy as..."
+    printlog " open application "
     dim i as integer
     Call hNewDocument
 
-    '/// Insert->Object->OLE Object; select the first one in list, usually: 'StarOffice 6.0 Spreadsheet' ///'
+    printlog " Insert->Object->OLE Object; select the first one in list, usually: 'StarOffice 6.0 Spreadsheet' "
     InsertObjectOLEObject
     WaitSlot (1000)
     Kontext "OLEObjektEinfuegen"
 
     gMouseClick 20,1
 
-    '/// select object ///'
+    printlog " select object "
     hTypekeys "<tab>"
 
-    '/// Edit->Object->Edit ///'
+    printlog " Edit->Object->Edit "
     EditObjectEdit
-    ' try EditObjectEdit again, to see, if it is in edit mode !
+    printlog "try EditObjectEdit again, to see, if it is in edit mode !"
     WaitSlot (2000)
     try
         ContextNameObject
         warnlog " Couldn't get into edit mode!"
     catch
         printlog "Reached edit mode - ok :-)"
-        '/// exit edit mode, by clicking outside the object ///'
+        printlog " exit edit mode, by clicking outside the object "
         gMouseClick 20,1
     endcatch
 
-    '/// select object ///'
+    printlog " select object "
     EditSelectAll
 
-    '/// Edit->Object->Save Copy As ///'
+    printlog " Edit->Object->Save Copy As "
     EditObjectSaveCopyAs
     Kontext "SpeichernDlg"
         Call DialogTest ( SpeichernDlg )
-        '/// cancel dialog 'Save As' ///'
+        printlog " cancel dialog 'Save As' "
         SpeichernDlg.Cancel
         WaitSlot (2000)
         Kontext "Active"
             if Active.Exists(2) then Active.No
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase'tiEditObjectEdit
+'---------------------------------------------------------
+testcase tiEditPlugIn
 
-testcase tiEditPlugIn
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
 
-    '/// Insert->Object->Plugin ///'
+    printlog " Insert->Object->Plugin "
     InsertObjectPlugin
     Kontext "PlugInEinfuegen"
     '    DialogTest ( PlugInEinfuegen)
             WaitSlot (5000)
     Kontext "PlugInEinfuegen"
         if PlugInEinfuegen.exists then
-            '/// insert a '.mov' file : "graphics\required\input\sample.mov" ///'
+            printlog " insert a '.mov' file : graphics\required\input\sample.mov" 
             DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
-            '/// Type something into the option field, and delete it  - quite usefull, heh ?! ///'
+            printlog " Type something into the option field, and delete it "
 
             Optionen.SetText "Fiddler's Green"
             Optionen.TypeKeys "<HOME>"
             warnlog "Messagebox: " + Messagebox.gettext
             Messagebox.ok
         end if
-    '/// Edit->Plugin ///'
+    printlog " Edit->Plugin "
     EditPlugIn
     printlog "Editplugin works!"
 
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditPlugIn
+'---------------------------------------------------------
+testcase tiEditHyperlink
 
-testcase tiEditHyperlink
-    '/// open application ///'
+    printlog " open application"
     hNewDocument
-    '/// Insert->Hyperlink ///'
+    printlog " Insert->Hyperlink"
     InsertHyperlink
     WaitSlot (5000)
     Kontext "Hyperlink"
         sleep 3
         Kontext "TabHyperlinkInternet"
 
-            'Workaround to get rid of a Focusing-problem...
+            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
-            'End of workaround...
+            printlog "End of workaround"
 
             Internet.Check           'Just to make sure the radio-button is addressable.
             ZielUrl.Settext "http://www.liegerad-fahrer.de"
     Kontext "Hyperlink"
         Uebernehmen.Click
         Hyperlink.Close
-        '/// presupposition to enable edit->hyperlink: <TAB><F2><STRG+a>///'
+        printlog " presupposition to enable edit->hyperlink: <TAB><F2><STRG+a>"
         hTypeKeys "<TAB><F2>"
     EditSelectAll
     try
-        '/// Edit->Hyperlink ///'
+        printlog " Edit->Hyperlink "
         EditHyperlinkDraw
         Kontext "Hyperlink"
             if Hyperlink.Exists then
-                '/// close dialog 'Hyperlink' ///'
+                printlog " close dialog 'Hyperlink'"
                 Hyperlink.Close
             else
                 Warnlog "- Hyperlinkdialog not up"
         Warnlog "- Not able to edit Hyperlink!"
     endcatch
 
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiEditHyperlink
+'---------------------------------------------------------

File testautomation/graphics/required/includes/global/id_003.inc

 ' #1 tViewSnapLines
 ' #1 tViewGrid
 '\**********************************************************************************
+testcase tiViewNavigator
 
-testcase tiViewNavigator
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
 
     Kontext "NavigatorDraw"
-        '/// if 'Navigator' isn't already open, open it (View->Navigator)///'
+        printlog " if 'Navigator' isn't already open, open it (View->Navigator)"
         if Not NavigatorDraw.Exists Then
             ViewNavigator
         end if
 
         try
             Kontext "Navigator"
-                '/// close 'Navigator' ///'
+                printlog " close 'Navigator' "
                 Navigator.Close
         catch
             Errorlog "  Navigator wasn't closed, second try with Menu"
             ViewNavigator
         endcatch
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiViewNavigator
+'-------------------------------------------------------------------------
+testcase tiViewZoom
 
+    printlog " open application "
+    Call  hNewDocument
+    UseBindings
+    ViewZoom
+    Kontext "Massstab"
+    DialogTest ( Massstab )
+    Massstab.Cancel
+    printlog " close application "
+    Call  hCloseDocument
+   
+endcase 'tiViewZoom
 '-------------------------------------------------------------------------
+testcase tiViewToolbar
 
-testcase tiViewZoom
-'/// open application ///'
-   Call  hNewDocument
-   UseBindings
-   ViewZoom
-   Kontext "Massstab"
-      DialogTest ( Massstab )
-      Massstab.Cancel
-'/// close application ///'
-   Call  hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tiViewToolbar
-'/// including ruler & statusbar ///'
-'/// open application ///'
+    printlog " including ruler & statusbar "
+    printlog " open application "
    Call  hNewDocument
 
-'/// View->Toolbars->ThreeDSettings ///'
+    printlog " View->Toolbars->ThreeDSettings "
     ViewToolbarsThreeDSettings
     WaitSlot (1000)
-'/// View->Toolbars->ThreeDSettings ///'
+    printlog " View->Toolbars->ThreeDSettings "
     ViewToolbarsThreeDSettings
     WaitSlot (1000)
 
-'/// View->Toolbars->Align ///'
+    printlog " View->Toolbars->Align "
     ViewToolbarsAlign
     WaitSlot (1000)
-'/// View->Toolbars->Align ///'
+    printlog " View->Toolbars->Align "
     ViewToolbarsAlign
     WaitSlot (1000)
 
-'/// View->Toolbars->Tools ///'
+    printlog " View->Toolbars->Tools "
     ViewToolbarsTools
     WaitSlot (1000)
-'/// View->Toolbars->Tools ///'
+    printlog " View->Toolbars->Tools "
     ViewToolbarsTools
     WaitSlot (1000)
 
-'/// View->Toolbars->Bezier ///'
+    printlog " View->Toolbars->Bezier "
     ViewToolbarsBezier
     WaitSlot (1000)
-'/// View->Toolbars->Bezier ///'
+    printlog " View->Toolbars->Bezier "
     ViewToolbarsBezier
     WaitSlot (1000)
 
-'/// View->Toolbars->Fontwork ///'
+    printlog " View->Toolbars->Fontwork "
     ViewToolbarsFontwork
     WaitSlot (1000)
-'/// View->Toolbars->Fontwork ///'
+    printlog " View->Toolbars->Fontwork "
     ViewToolbarsFontwork
     WaitSlot (1000)
 
     '   if gApplication = "IMPRESS" then
-    '/// View->Toolbars->Presentation ///'
+    printlog " View->Toolbars->Presentation "
     '      ViewToolbarsPresentation ' only in impress, not draw
-    '/// View->Toolbars->Presentation ///'
+    printlog " View->Toolbars->Presentation "
     '      ViewToolbarsPresentation
     '   endif
 
-'/// View->Toolbars->Form Controls ///'
+    printlog " View->Toolbars->Form Controls "
     ViewToolbarsFormControls
     WaitSlot (1000)
-'/// View->Toolbars->Form Controls ///'
+    printlog " View->Toolbars->Form Controls "
     ViewToolbarsFormControls
     WaitSlot (1000)
 
 '-----------------
-'/// View->Toolbars->Form Design ///'
+    printlog " View->Toolbars->Form Design "
     ViewToolbarsFormDesign
     WaitSlot (1000)
-'/// View->Toolbars->Form Design ///'
+    printlog " View->Toolbars->Form Design "
     ViewToolbarsFormDesign
     WaitSlot (1000)
 
-'/// View->Toolbars->FormNavigation ///'
+    printlog " View->Toolbars->FormNavigation "
     ViewToolbarsFormNavigation
     WaitSlot (1000)
-'/// View->Toolbars->FormNavigation ///'
+    printlog " View->Toolbars->FormNavigation "
     ViewToolbarsFormNavigation
     WaitSlot (1000)
 
-'/// View->Toolbars->Gluepoints ///'
+    printlog " View->Toolbars->Gluepoints "
     ViewToolbarsGluepoints
     WaitSlot (1000)
-'/// View->Toolbars->Gluepoints ///'
+    printlog " View->Toolbars->Gluepoints "
     ViewToolbarsGluepoints
     WaitSlot (1000)
-'/// View->Toolbars->Insert ///'
+    printlog " View->Toolbars->Insert "
     ViewToolbarsInsert
     WaitSlot (1000)
-'/// View->Toolbars->Insert ///'
+    printlog " View->Toolbars->Insert "
     ViewToolbarsInsert
     WaitSlot (1000)
 
-'/// View->Toolbars->Graphic ///'
+    printlog " View->Toolbars->Graphic "
     ViewToolbarsGraphic
     WaitSlot (1000)
-'/// View->Toolbars->Graphic ///'
+    printlog " View->Toolbars->Graphic "
     ViewToolbarsGraphic
     WaitSlot (1000)
 
-'/// View->Toolbars->MediaPlayback ///'
+    printlog " View->Toolbars->MediaPlayback "
     ViewToolbarsMediaPlayback
     WaitSlot (1000)
-'/// View->Toolbars->MediaPlayback ///'
+    printlog " View->Toolbars->MediaPlayback "
     ViewToolbarsMediaPlayback
     WaitSlot (1000)
 
-'/// View->Toolbars->Optionbar ///'
+    printlog " View->Toolbars->Optionbar "
     ViewToolbarsOptionbar
     WaitSlot (1000)
-'/// View->Toolbars->Optionbar ///'
+    printlog " View->Toolbars->Optionbar "
     ViewToolbarsOptionbar
     WaitSlot (1000)
 
-'/// View->Toolbars->Picture ///'
+    printlog " View->Toolbars->Picture "
     ViewToolbarsPicture
     WaitSlot (1000)
-'/// View->Toolbars->Picture ///'
+    printlog " View->Toolbars->Picture "
     ViewToolbarsPicture
     WaitSlot (1000)
 
-'/// View->Toolbars->Standard ///'
+    printlog " View->Toolbars->Standard "
     ViewToolbarsStandard
     WaitSlot (1000)
-'/// View->Toolbars->Standard ///'
+    printlog " View->Toolbars->Standard "
     ViewToolbarsStandard
     WaitSlot (1000)
 
-'/// View->Toolbars->Standard View ///'
+    printlog " View->Toolbars->Standard View "
     ViewToolbarsStandardView
     WaitSlot (1000)
-'/// View->Toolbars->Standard View ///'
+    printlog " View->Toolbars->Standard View "
     ViewToolbarsStandardView
     WaitSlot (1000)
 
-'/// View->Toolbars->Hyperlinkbar ///'
+    printlog " View->Toolbars->Hyperlinkbar "
     ViewToolbarsHyperlinkbar
     WaitSlot (1000)
-'/// View->Toolbars->Hyperlinkbar ///'
+    printlog " View->Toolbars->Hyperlinkbar "
     ViewToolbarsHyperlinkbar
     WaitSlot (1000)
 
-'/// View->Toolbars->ColorBar ///'
+    printlog " View->Toolbars->ColorBar "
     ViewToolbarsColorBar
     WaitSlot (1000)
-'/// View->Toolbars->ColorBar ///'
+    printlog " View->Toolbars->ColorBar "
     ViewToolbarsColorBar
     WaitSlot (1000)
 
-'/// View->Toolbars->Customize ///'
+    printlog " View->Toolbars->Customize "
     ViewToolbarsCustomize
     WaitSlot (1000)
     Kontext
-    '/// switch to tabpage 'Menus' ///'
+    printlog " switch to tabpage 'Menus' "
     try
         Messagebox.SetPage TabCustomizeMenu             ' 1 ------------------
     catch
         Menu.typeKeys("<down>")
         Entries.typeKeys("<down>")
         sleep 2
-        '/// click button 'new' ///'
+        printlog " click button 'new' "
         BtnNew.Click
         sleep 1
-        '/// Dialog 'New Menu' comes up ///'
+        printlog " Dialog 'New Menu' comes up "
         Kontext "MenuOrganiser"
         Call DialogTest ( MenuOrganiser )
-        '/// Cancel dialog 'New Menu' ///'
+        printlog " Cancel dialog 'New Menu' "
         MenuOrganiser.cancel
         sleep 1
         Kontext "TabCustomizeMenu"
     end if
     sleep (1)
 
-'/// close application ///'
-   Call  hCloseDocument
-endcase
+    printlog " close application "
+    Call  hCloseDocument
+   
+endcase 'tiViewToolbar
+'-------------------------------------------------------------------------
+testcase tiViewDisplayQuality
 
-'-------------------------------------------------------------------------
-
-testcase tiViewDisplayQuality
-    '/// open application ///'
+    printlog " open application "
     Call hNewDocument
 
-    '/// create a rectangle ///'
+    printlog " create a rectangle "
     Call hRechteckErstellen 20,20,40,40
 
     try
-    '/// View->Display Quality->Black and White ///'
+    printlog " View->Display Quality->Black and White "
         ViewQualityBlackWhite
         Printlog "- Quality set to black and white"
     catch
     endcatch
     WaitSlot (1000)
     try
-        '/// View->Display Quality->Greyscale ///'
+        printlog " View->Display Quality->Greyscale "
         ViewQualityGreyscale
         Printlog "- View quality set to greyscale"
     catch
     endcatch
     WaitSlot (1000)
     try
-        '/// View->Display Quality->Colour ///'
+        printlog " View->Display Quality->Colour "
         ViewQualityColour
         Printlog "- View quality set to colour"
     catch
         Warnlog "- View quality colour could not be accessed"
     endcatch
-    '/// close application ///'
+    printlog " close application "
     Call hClosedocument
-endcase
+    
+endcase 'tiViewDisplayQuality
+'-------------------------------------------------------------------------
+testcase tiViewLayer
 
-'-------------------------------------------------------------------------
+    printlog " open application "
+    Call hNewDocument
+    printlog " Insert->Layer / in impress: ???? "
 
-testcase tiViewLayer
-    '/// open application ///'
-    Call hNewDocument
-    '/// Insert->Layer / in impress: ???? ///'
-
-    '/// View->Layer ///'
+    printlog " View->Layer "
     ViewLayer
     WaitSlot (1000)
-    '/// View->Layer ///'
+    printlog " View->Layer "
     ViewLayer
-    '/// close application ///'
+    printlog " close application "
     Call hCloseDocument
-endcase
+    
+endcase 'tiViewLayer
+'-------------------------------------------------------------------------
+testcase tViewGrid
 
-'-------------------------------------------------------------------------
-
-testcase tViewGrid
-    '/// open application ///'
+    printlog " open application "
     Call  hNewDocument
 
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridVisible
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridUse
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridFront
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridVisible
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridUse
-    '/// View->Grid-> ///'
+    printlog " View->Grid-> "
     ViewGridFront
     WaitSlot (1000)
-    '/// close application ///'
+    printlog " close application "
     Call  hCloseDocument
-endcase
+    
+endcase 'tViewGrid
+'-------------------------------------------------------------------------
+testcase tViewSnapLines
 
-'-------------------------------------------------------------------------
-
-testcase tViewSnapLines
-    '/// open application ///'
+    printlog " open application "
     Call  hNewDocument
 
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesVisible
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesUse
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesFront
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesVisible
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesUse
-    '/// View->Snap Lines-> ///'
+    printlog " View->Snap Lines-> "
     ViewSnapLinesFront
     WaitSlot (1000)
-    '/// close application ///'
+    printlog " close application "
     Call  hCloseDocument
-endcase
-
+    
+endcase 'tViewSnapLines

File testautomation/graphics/tools/id_tools.inc

 '\*****************************************************************
 
 function hFindSpellHypLanguage (optional sBooks()) as string
-'/// print all available languages that have a 'language module' ///'
+    printlog "print all available languages that have a language module"
     dim iListLength as integer
     dim i as integer
     dim sTemp as string
 
-    '/// only necessarry for asian languages ///'
+    printlog "only necessary for asian languages"
     if (bAsianLan or (iSprache=55)) then
-        '/// Tools->Options ///'
+        printlog "Tools->Options"
         ToolsOptions
-        '/// select from section 'Language Settings' the item 'Writing Aids' ///'
+        printlog "select from section 'Language Settings' the item 'Writing Aids'"
         hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS")
-        '/// click button 'Edit...' in section 'Available language modules' ///'
+        printlog "click button 'Edit...' in section 'Available language modules'"
         SprachmoduleBearbeiten.click
         kontext "ModuleBearbeiten"
-        '/// print all entries from listbox 'Language' ///'
+        printlog "print all entries from listbox 'Language'"
         for i = 1 to Sprache.GetItemCount
             sTemp = Sprache.GetItemText(i)
             if (NOT isMissing(sBooks())) then
                 listAppend(sBooks(), sTemp)
             endif
-            '/// return the first entry in the listbox ///'
+            printlog " return the first entry in the listbox "
             if i = 1 then hFindSpellHypLanguage = sTemp
         next i
-        '/// close dialog 'Edit Modules' ///'
+        printlog "close dialog 'Edit Modules'"
         ModuleBearbeiten.Close
         Kontext "ExtrasOptionenDlg"
-        '/// close dialog 'Options - ' ///'
+        printlog "close dialog 'Options - '"
         ExtrasOptionenDlg.OK
         sleep 1
     endif
 '-------------------------------------------------------------------------------
 function GetDecimalSeperator ( sDummy$ ) as String
 
-'/// Input : number with fractionmark from 'NumericField' as String ///'
-'///+ Output: '.' or ',' as String                                  ///'
-   dim i1, i2 as integer
-
-' get position of fraction mark / get IT
-   i1 = instr (sDummy$, ",")
-   i2 = instr (sDummy$, ".")
-   if i1 > i2 then GetDecimalSeperator = "," else GetDecimalSeperator = "."
+    printlog "Input : number with fractionmark from 'NumericField' as String "
+    printlog "+ Output: '.' or ',' as String                                  "
+    dim i1, i2 as integer
+    
+    printlog "get position of fraction mark / get IT"
+    i1 = instr (sDummy$, ",")
+    i2 = instr (sDummy$, ".")
+    if i1 > i2 then GetDecimalSeperator = "," else GetDecimalSeperator = "."
 end function
 
 '-------------------------------------------------------------------------------
 function LiberalMeasurement ( sShould$, sActual$) as Boolean
 
-    '/// Input : (1. Should, 2. Actual) as Number with or without MeasurementUnit 'NumericField' as String ///'
-    '///+          if input has no MeasurementUnit i take it as 'cm' (was the default in old tests) ///'
-    '///+ Output: Boolean are they likely the same?
-    '/// NEEDED: mathematical proofment of iTolerance, by now just some guesses :-| ///'
-    '/// reason for this function:///'
-    '///+   because SO counts internaly in 'twip???s' 'twentieth of a point' there are some rounding errors ///'
-    '///+ there are also some rounding errors because of the internal representatio of floating point numbers in computers ///'
-    '///+   now lets try to get rid of them and have a nicer output in tests... ///'
-    '/// measurement units are defined in http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src ///'
+    printlog " Input : (1. Should, 2. Actual) as Number with or without MeasurementUnit 'NumericField' as String "
+    printlog "+          if input has no MeasurementUnit i take it as 'cm' (was the default in old tests) "
+    printlog "+ Output: Boolean are they likely the same?"
+    printlog " NEEDED: mathematical proofment of iTolerance, by now just some guesses :-| "
+    printlog " reason for this function:"
+    printlog "+   because SO counts internaly in 'twip???s' 'twentieth of a point' there are some rounding errors "
+    printlog "+ there are also some rounding errors because of the internal representatio of floating point numbers in computers "
+    printlog "+   now lets try to get rid of them and have a nicer output in tests... "
+    printlog " measurement units are defined in http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src "
    
     dim iTolerance as Double
 
-    LiberalMeasurement = False ' worst case
+    LiberalMeasurement = False 
 
-   'trivial
     if (sShould$ = sActual$) then
-      LiberalMeasurement = True
+        LiberalMeasurement = True
     else
-      ' check if measunit is the same !!
-      if (GetMeasUnit(sShould$) <> GetMeasUnit(sActual$) ) then
-         warnlog "In function LiberalMeasurement the measUnit is different, compare not possible yet"
-      else
-        ' set factor for liberality ;-)
-        ' took units from http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src
-         select case GetMeasUnit(sShould$)
-            case "mm", "ミリ", "公厘" : iTolerance = 2.0             '01, 81,     88
-            case "cm","センチ","厘米","公分"  : iTolerance = 0.5       '01, 81, 86, 88
-            case chr$(34) : iTolerance = 2.5
-            case "pi","ピクセル" : iTolerance = 2.5                 '01, 81
-            case "pt",  "ポイント" : iTolerance = 2.5                '01, 81
-            case "" : iTolerance = 1.5 ' cm is presubposition in old functions
-         case else
-            iTolerance = 2.5
-            qaErrorLog "This Unit is not available in this function. '" + GetMeasUnit(sShould$) + "'"
-         end select
-         ' have to get the measurem unit, cause the offset is different for each :-(
-         ' !!! val(str()) is important because of double calculating actions !!! #110996#
-         if ( val(str(StrToDouble(sShould$)+iTolerance)) >= StrToDouble(sActual$) ) AND (val(str(StrToDouble ( sShould$ )-iTolerance)) <= StrToDouble ( sActual$ )) then
-             LiberalMeasurement = True
-         else
-            LiberalMeasurement = False
-            'printlog "LM: ---------------------------: "+sShould$ +":"+sActual$
-         end if
-         'printlog "### LibMeas: "+ (StrToDouble(sShould$) + iTolerance) +" - "+ StrToDouble(sShould$) +" - "+ (StrToDouble ( sShould$ ) - iTolerance)+" ; '"+GetMeasUnit(sShould$)+"'"
-      end if
+        printlog "check if measunit is the same"
+        if (GetMeasUnit(sShould$) <> GetMeasUnit(sActual$) ) then
+            warnlog "In function LiberalMeasurement the measUnit is different, compare not possible yet"
+        else
+            printlog "set factor for liberality ;-)
+            printlog "took units from http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src"
+            select case GetMeasUnit(sShould$)
+                case "mm", "ミリ", "公厘" : iTolerance = 2.0             '01, 81,     88
+                case "cm","センチ","厘米","公分"  : iTolerance = 0.5       '01, 81, 86, 88
+                case chr$(34) : iTolerance = 2.5
+                case "pi","ピクセル" : iTolerance = 2.5                 '01, 81
+                case "pt",  "ポイント" : iTolerance = 2.5                '01, 81
+                case "" : iTolerance = 1.5 ' cm is presubposition in old functions
+            case else
+                iTolerance = 2.5
+                qaErrorLog "This Unit is not available in this function. '" + GetMeasUnit(sShould$) + "'"
+            end select
+            printlog "have to get the measurem unit, cause the offset is different for each"
+            printlog "!!! val(str()) is important because of double calculating actions !!! #110996#"
+            if ( val(str(StrToDouble(sShould$)+iTolerance)) >= StrToDouble(sActual$) ) AND (val(str(StrToDouble ( sShould$ )-iTolerance)) <= StrToDouble ( sActual$ )) then
+                 LiberalMeasurement = True
+            else
+                LiberalMeasurement = False
+            end if
+        end if
     end if
-    'Printlog "+++++++++++++++++++++++++++++++++++++meas lib was here: "+LiberalMeasurement
 end function
 
 '-------------------------------------------------------------------------------
 function GetMeasUnit ( sWert$ ) as String
 
     dim iBounder as integer
-    '/// Input : Number with or without MeasurementUnit 'NumericField' as String ///'
-    '///+ Output: Initials of MeasurementUnit as String or "" when only a number ///'
+    printlog " Input : Number with or without MeasurementUnit 'NumericField' as String "
+    printlog "+ Output: Initials of MeasurementUnit as String or "" when only a number "
 
     iBounder = -1
     do
         inc iBounder
     loop until ( isNumeric(mid (sWert$, len(sWert$)-iBounder, 1)) OR (len(sWert$) <= (iBounder + 1)) )
 
-   ' printlog right (sWert$, iBounder)
     if (len(sWert$) <= (iBounder + 1)) then
         if isNumeric(left (sWert$, 1)) then
             GetMeasUnit = right (sWert$, iBounder)
     dim c as double
     dim n as integer
 
-    '/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String ///'
-    '///+ Output: a[. , ]b as double ///'
+    printlog " Input : {'a[. ,]b[mm cm  pi pt]' with a, b as integer} as String "
+    printlog "+ Output: a[. , ]b as double "
 
-    ' get rid of measure unit, the only single character is '"' all others are two chars
-    ' there was a problem, if there is NO meas.unit!!!
-      if (isNumeric (sWert$) = FALSE) then
-         if (  StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
-            sDummy$ = Left ( sWert$, Len(sWert$)-1 )
-         else
-            sDummy$ = Left ( sWert$, Len(sWert$)-2 )
-         endif
-      else
-         sDummy$ = sWert$
-      endif
-   ' get position of fraction mark
-      i1 = instr (sDummy$, ",")  ' wrong output
-      i2 = instr (sDummy$, ".")
-      if i1 > i2 then i = i1 else i = i2
-        ' in front of decimal seperator
-         try
+    printlog "get rid of measure unit, the only single character is '' all others are two chars"
+    printlog "there was a problem, if there is NO meas.unit!!"
+        if (isNumeric (sWert$) = FALSE) then
+            if (  StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
+                sDummy$ = Left ( sWert$, Len(sWert$)-1 )
+            else
+                sDummy$ = Left ( sWert$, Len(sWert$)-2 )
+            endif
+        else
+            sDummy$ = sWert$
+        endif
+    printlog "get position of fraction mark"
+    i1 = instr (sDummy$, ",")  ' wrong output
+    i2 = instr (sDummy$, ".")
+    if i1 > i2 then i = i1 else i = i2
+        printlog " in front of decimal seperator:"
+        try
             a = val (left (sDummy$,i-1))
-         catch
-            'printlog sWert$ + ":" + sDummy$ + ":" + i + ":" + i1+ ":" + i2
-         endcatch
-      ' after the decimal seperator
-         n = (len (sDummy$)-i)
-         b = val (right (sDummy$, n) )
-         c = b * 10 ^ -n
-         'printlog "-------------- :"+sWert$ +" :'"+a+"' :"+n+" :"+b+" :'"+c+"':"
-         ' !!! val(str()) is important because of double calculating actions !!! #110996#
-         StrToDouble = val(str(a + c))
+        catch
+        'printlog sWert$ + ":" + sDummy$ + ":" + i + ":" + i1+ ":" + i2
+        endcatch
+        printlog "after the decimal seperator"
+        n = (len (sDummy$)-i)
+        b = val (right (sDummy$, n) )
+        c = b * 10 ^ -n
+        'printlog "-------------- :"+sWert$ +" :'"+a+"' :"+n+" :"+b+" :'"+c+"':"
+        ' !!! val(str()) is important because of double calculating actions !!! #110996#
+        StrToDouble = val(str(a + c))
 end function
 
 '-------------------------------------------------------------------------------
 '-------------------------------------------------------------------------------
 function setStartCurrentPage(optional bState as boolean) as boolean
 
-    '/// tools->options ///'
+    printlog " tools->options "
     ToolsOptions
-    '///+ select in section 'Presentation' tabpage 'general' ///'
+    printlog "+ select in section 'Presentation' tabpage 'general' "
     hToolsOptions ("IMPRESS","General")
-        '///+ check the checkbox 'Always with current page' ///'
+        printlog "+ check the checkbox 'Always with current page' "
         setStartCurrentPage = MitAktuellerSeite.isChecked
         if bState then
             MitAktuellerSeite.Check
             MitAktuellerSeite.UnCheck
         endif
     Kontext "ExtrasOptionenDlg"
-    '///+ close dialog 'Options - Presenation - General' with OK ///'
+    printlog "+ close dialog 'Options - Presenation - General' with OK "
     ExtrasOptionenDlg.OK
 end function
 
 '-------------------------------------------------------------------------------
 function fIsDocumentWritable() as boolean
 
-    '/// check if a document is writeable
-    '/// <u>parameter:</u>
-    '/// <u>return:</u>
-    '/// true if the document is writeable otherwise false
+    printlog " check if a document is writeable
+    printlog " <u>parameter:</u>
+    printlog " <u>return:</u>
+    printlog " true if the document is writeable otherwise false
 
     Kontext "Standardbar"
         if Bearbeiten.GetState(2) <> 1 then
 '-------------------------------------------------------------------------------
 function fMakeDocumentWritable() as boolean
 
-    '/// make a document is writeable
-    '/// <u>parameter:</u>
-    '/// <u>return:</u>
-    '/// true if the document can make writeable otherwise false
+    printlog " make a document is writeable
+    printlog " <u>parameter:</u>
+    printlog " <u>return:</u>
+    printlog " true if the document can make writeable otherwise false
 
     Kontext "Standardbar"
     sleep (1)
 '-------------------------------------------------------------------------------
 function hScreenFontAntialiasing (bEnable as boolean) as boolean
 
-   ToolsOptions
-   hToolsOptions ("STAROFFICE", "VIEW")
-   hScreenFontAntialiasing = FontAntiAliasing.IsChecked
-   if (bEnable) then
-      FontAntiAliasing.Check
-   else
-      FontAntiAliasing.Uncheck
-   endif
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
+    ToolsOptions
+    hToolsOptions ("STAROFFICE", "VIEW")
+    hScreenFontAntialiasing = FontAntiAliasing.IsChecked
+    if (bEnable) then
+        FontAntiAliasing.Check
+    else
+        FontAntiAliasing.Uncheck
+    endif
+    Kontext "ExtrasOptionenDlg"
+    ExtrasOptionenDlg.OK
 end function
 
 '-------------------------------------------------------------------------------
             kontext "ExportierenDlg"
         endif
         Dateiname.SetText (ConvertPath (NewFileDir) + "file" + iFileTypeCounter)
-            Dateityp.Select (iFileTypeCounter)
-            sleep (1)
-            Printlog "   Saving file: " + (ConvertPath (NewFileDir) + ("file" + (iFileTypeCounter) + "." + left(right(Dateityp.GetSelText,4),3)))
-            SavedFile(iFileTypeCounter) = ("file" + (iFileTypeCounter) + "." + left(right(Dateityp.GetSelText,4),3))
-            Speichern.Click
-            Kontext "Active"
-            if Active.Exists(2) then Active.Yes ' File already exists, overwrite?
-            '        printlog " Saved file ( SavedFile(" + iFileTypeCounter + ") ) as: '" + SavedFile(iFileTypeCounter) +"'."
-            Kontext "AlienWarning"
-            if AlienWarning.Exists(2) then AlienWarning.OK
-            kontext "DocumentImpress"
+        Dateityp.Select (iFileTypeCounter)
+        sleep (1)
+        Printlog "   Saving file: " + (ConvertPath (NewFileDir) + ("file" + (iFileTypeCounter) + "." + left(right(Dateityp.GetSelText,4),3)))
+        SavedFile(iFileTypeCounter) = ("file" + (iFileTypeCounter) + "." + left(right(Dateityp.GetSelText,4),3))
+        Speichern.Click
+        Kontext "Active"
+        if Active.Exists(2) then Active.Yes ' File already exists, overwrite?
+        'printlog " Saved file ( SavedFile(" + iFileTypeCounter + ") ) as: '" + SavedFile(iFileTypeCounter) +"'."
+        Kontext "AlienWarning"
+        if AlienWarning.Exists(2) then AlienWarning.OK
+        kontext "DocumentImpress"
     Next iFileTypeCounter
     printlog "Close the file."
     FileClose
 
 '-------------------------------------------------------------------------------
 function toggleGermanSpellchecking as string
-
-    '/// activate old german spellchecking ///'
-    '///+ Tools->Options ///'
+