Commits

Anonymous committed 4255292

i115273,[Automation]: shift old documentation to new style using printlogs

  • Participants
  • Parent commits ad63733

Comments (0)

Files changed (34)

File testautomation/graphics/optional/d_export_graphic_a.bas

     endif
 
     Call sFileExport 'OBSERVE - This line must run before the following testcases!
-    Call tEPS   '///+-   Encapsulated PostScript            ///'
-    Call tPCT   '///+-   Mac Pict                           ///'
-    Call tPBM   '///+-   Portable Bitmap                    ///'
-    Call tPGM   '///+-   Portable Graymap                   ///'
-    Call tPPM   '///+-   Portable Pixelmap                  ///'
-    Call tRAS   '///+-   Sun Raster Image                   ///'
-    Call tTIFF  '///+-   Tagged Image File Format           ///'
-    Call tXPM   '///+-   X PixMap                           ///'
-    Call tGIF   '///+-   Graphics Interchange Format        ///'
-    Call tJPEG  '///+-   Joint Photographic Experts Group   ///'
+    Call tEPS   'Encapsulated PostScript         
+    Call tPCT   'Mac Pict                        
+    Call tPBM   'Portable Bitmap                 
+    Call tPGM   'Portable Graymap                
+    Call tPPM   'Portable Pixelmap               
+    Call tRAS   'Sun Raster Image                
+    Call tTIFF  'Tagged Image File Format
+    Call tXPM   'X PixMap
+    Call tGIF   'Graphics Interchange Format     
+    Call tJPEG  'Joint Photographic Experts Group
 
     Call hStatusOut
 end sub

File testautomation/graphics/optional/d_export_graphic_b.bas

     endif
 
     Call sFileExport 'OBSERVE - This line must run before the following testcases!
-    Call tPNG   '///+-   Portable Network Graphic           ///'
-    Call tSVM   '///+-   StarView Metafile                  ///'
-    Call tPDF   '///+-   Portable Document Format           ///'
-    Call tPDF_Creator '///+-   test if the right creator is set in the PDF document
-    Call tSVG   '///+-   Scalable Vector Graphics           ///'
-    Call tBMP   '///+-   Windows Bitmap                     ///'
-    Call tEMF   '///+-   Enhanced Metafile                  ///'
-    Call tMET   '///+-   OS/2 Metafile                      ///'
-    Call tSWF   '///+-   Macromedia Flash (SWF) (.swf)      ///'
-    Call tWMF   '///+-   Windows Metafile                   ///'
+    Call tPNG   'Portable Network Graphic
+    Call tSVM   'StarView Metafile
+    Call tPDF   'Portable Document Format
+    Call tPDF_Creator 'test if the right creator is set in the PDF document
+    Call tSVG   'Scalable Vector Graphics
+    Call tBMP   'Windows Bitmap          
+    Call tEMF   'Enhanced Metafile       
+    Call tMET   'OS/2 Metafile           
+    Call tSWF   'Macromedia Flash (SWF) (.swf)
+    Call tWMF   'Windows Metafile   
 
     Call hStatusOut
 end sub

File testautomation/graphics/optional/export_graphic_a.bas

     endif
 
     Call sFileExport 'OBSERVE - This line must run before the following testcases!
-    Call tEPS   '///+-   Encapsulated PostScript            ///'
-    Call tPCT   '///+-   Mac Pict                           ///'
-    Call tPBM   '///+-   Portable Bitmap                    ///'
-    Call tPGM   '///+-   Portable Graymap                   ///'
-    Call tPPM   '///+-   Portable Pixelmap                  ///'
-    Call tRAS   '///+-   Sun Raster Image                   ///'
-    Call tTIFF  '///+-   Tagged Image File Format           ///'
-    Call tXPM   '///+-   X PixMap                           ///'
-    Call tGIF   '///+-   Graphics Interchange Format        ///'
-    Call tJPEG  '///+-   Joint Photographic Experts Group   ///'
+    Call tEPS   'Encapsulated PostScript        
+    Call tPCT   'Mac Pict                       
+    Call tPBM   'Portable Bitmap                
+    Call tPGM   'Portable Graymap               
+    Call tPPM   'Portable Pixelmap              
+    Call tRAS   'Sun Raster Image               
+    Call tTIFF  'Tagged Image File Format       
+    Call tXPM   'X PixMap                       
+    Call tGIF   'Graphics Interchange Format    
+    Call tJPEG  'Joint Photographic Experts Group
 
     Call hStatusOut
 end sub

File testautomation/graphics/optional/export_graphic_b.bas

     endif
 
     Call sFileExport 'OBSERVE - This line must run before the following testcases!
-    Call tPDF   '///+-   Portable Document Format           ///'
-    Call tPDF_Creator '///+-   test if the right creator is set in the PDF document
-    Call tSVG   '///+-   Scalable Vector Graphics           ///'
-    Call tSVM   '///+-   StarView Metafile                  ///'
-    Call tBMP   '///+-   Windows Bitmap                     ///'
-    Call tEMF   '///+-   Enhanced Metafile                  ///'
-    Call tPNG   '///+-   Portable Network Graphic           ///'
-    Call tMET   '///+-   OS/2 Metafile                      ///'
-    Call tWMF   '///+-   Windows Metafile                   ///'
-    Call tSWF   '///+-   Macromedia Flash (SWF) (.swf)      ///'
+    Call tPDF   ' Portable Document Format  
+    Call tPDF_Creator  'test if the right creator is set in the PDF document
+    Call tSVG   'Scalable Vector Graphics
+    Call tSVM   'StarView Metafile                 
+    Call tBMP   'Windows Bitmap                    
+    Call tEMF   'Enhanced Metafile                 
+    Call tPNG   'Portable Network Graphic          
+    Call tMET   'OS/2 Metafile                     
+    Call tWMF   'Windows Metafile                  
+    Call tSWF   'Macromedia Flash (SWF) (.swf)     
 
     Call hStatusOut
 end sub

File testautomation/graphics/optional/i_slideshow.bas

         warnlog "Add 'slide' to FILE  /input/impress/locale_1.txt (take string from below)!!!"
     endif
 
-    '/// LOCALE Slide - 2 ///'
+    printlog "LOCALE Slide - 2"
     S1 = glLocale (2) + " 1"
     S2 = glLocale (2) + " 2"
     S3 = glLocale (2) + " 3"

File testautomation/graphics/optional/includes/global/export_graphic_2.inc

 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 10, TRUE, FALSE, 1, 3) ' button in toolbar -> last settings have to be used
 
-    printlog "File->Export as PDF document ///'"
+    printlog "File->Export as PDF document"
     printlog " range = all"
     printlog " compression = Press optimized"
     kontext "Standardbar"

File testautomation/graphics/optional/includes/global/g_autocorrection.inc

 '*
 '\*******************************************************************
 
-' Tools->Autocorrect...
-' Replace; Exceptions; Options; Custom Quotes
-' these are Language
-' dependant in the
-' listbox above!!
-' box only enabled, if the both tabpages are selected ...
-
 testcase tToolsAutocorrectReplace
 
     dim i as integer
     TabErsetzung.OK
 
     hCloseDocument
-endcase
+endcase 'tToolsAutocorrectReplace
+
+'-------------------------------------------------------------------------------
 
 testcase tToolsAutocorrectExceptions
     dim i as integer
     TabAusnahmen.OK
 
     hCloseDocument
-endcase
+endcase 'tToolsAutocorrectExceptions
 
 '-------------------------------------------------------------------------------
+
 testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
 
     ' bSinple = true: use simple quotes ;; else Double Quotes
         warnlog "The language-file was not found or accessible! The test ends."
         goto endsub
     endif
-
-    'HDE has same problems in w_106a.inc ;-) !!! migrate ?!?! ///'
     Call hNewDocument
 
     hFileOpen sFileName
     sleep 1
 
     hCloseDocument
-endcase
+endcase 'tToolsAutocorrectCustomQuotes
 
 '-------------------------------------------------------------------------------
 testcase tToolsAutocorrectOption
 
     hCloseDocument
     sleep 1
-endcase
+endcase 'tToolsAutocorrectOption
 
-'-------------------------------------------------------------------------------
+'-------------------------------------------------------------------------------

File testautomation/graphics/optional/includes/global/g_character.inc

    dim sTemp as string
    dim iTemp as integer
 
-   '/// open application ///'
+   printlog "open application "
    Call hNewDocument
    sleep 1
 
-   '/// create a textframe with content ///'
+   printlog "create a textframe with content "
    hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
-   '/// type with keys [strg]+[home] [shift]+[end] to select the inserted text ///'
+   printlog "type with keys [strg]+[home] [shift]+[end] to select the inserted text "
    hTypeKeys "<MOD1 HOME><shift end>"
    sleep 1
 
-   '/// Format->Character ///'
+   printlog "Format->Character "
    FormatCharacter
-      sleep 1
-      '/// switch to tabpage 'Font' ///'
-      Kontext
-      Messagebox.SetPage TabFont
-      Kontext "TabFont"
-      sleep 1
+    sleep 1
+    printlog "switch to tabpage 'Font' "
+    Kontext
+    Messagebox.SetPage TabFont
+    Kontext "TabFont"
+    sleep 1
 
-      '/// switch to tabpage 'Font Effects' ///'
-      Kontext
-      Messagebox.SetPage TabFontEffects
-      kontext "TabFontEffects"
-      sleep 1
+    printlog "switch to tabpage 'Font Effects' "
+    Kontext
+    Messagebox.SetPage TabFontEffects
+    kontext "TabFontEffects"
+    sleep 1
 
-      '/// switch to tabpage 'Position' ///'
-      Kontext
-      Messagebox.SetPage TabFontPosition
-      Kontext "TabFontPosition"
-      sleep 1
+    printlog "switch to tabpage 'Position' "
+    Kontext
+    Messagebox.SetPage TabFontPosition
+    Kontext "TabFontPosition"
+    sleep 1
 
-      '/// close dialog 'Character' with 'OK' ///'
-      TabFontPosition.OK
-   '/// close application ///'
+    printlog "close dialog 'Character' with 'OK' "
+    TabFontPosition.OK
+    printlog "close application "
    Call hCloseDocument
    
 endcase 'tFormatCharacter
+
 '---------------------------------------------------------
+
 testcase tDialogCharacter
 
     Dim i as integer
     ToolsOptions
     hToolsOptions ( "LanguageSettings", "Languages" )
 
-    if Aktivieren.IsChecked then                                  '/// Check in what state Asian support is ///'
+    printlog "Check in what state Asian support is "
+    if Aktivieren.IsChecked then                                  
        Asiansupportsetting = TRUE
     else
+        printlog "Activate if not already activated "
        Asiansupportsetting = FALSE
-       Aktivieren.Check                                           '/// Activate if not already activated ///'
+       Aktivieren.Check                                           
     end if
 
     Kontext "ExtrasOptionenDlg"
 
     FormatCharacter
     sleep 1
-    Kontext '"Active"                  ' insert this, perhaps another
-    Active.SetPage TabFont            ' tabpage is active at open
+    Kontext '"Active"                 
+    Active.SetPage TabFont           
     Kontext "TabFont"
     CountOfThem = FontWest.GetItemCount
     for y = 1 to CountOfThem
     next y
 
     Kontext
-    Active.SetPage TabFontPosition        '/// Changes the active tab to "Position"
+    printlog "Changes the active tab to "Position"
+    Active.SetPage TabFontPosition        
     Kontext "TabFontPosition"
     printlog "TabFontPosition"
     SuperScript.Check
     Super.Check
-    RelativeFontSize.ToMin         '/// Testing the "Relative Font Size"-Listbox
+    printlog "Testing the "Relative Font Size"-Listbox
+    RelativeFontSize.ToMin         
     ThisIsMyTextFromControl = RelativeFontSize.GetText
 '    printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
     for y = 1 to 99
     next y
 
     Automatic.Check
-    ScaleWith.ToMin          '/// Testing the "Scale With"-Listbox
+    printlog "Testing the "Scale With"-Listbox
+    ScaleWith.ToMin          
     ThisIsMyTextFromControl = ScaleWith.GetText
     printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
     ' ScaleWith.TypeKeys "<TAB>"
     Normal.Check
     Subscript.Check
 
-    RelativeFontSize.ToMin         '/// Testing the "Reliative Font Size"-Listbox again but this time
-    ThisIsMyTextFromControl = RelativeFontSize.GetText      '/// with "Subscript" and "Normal" Checked
+    printlog "Testing the Reliative Font Size-Listbox again but this time"
+    RelativeFontSize.ToMin
+    printlog "with Subscript and Normal Checked
+    ThisIsMyTextFromControl = RelativeFontSize.GetText      
     printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
     for y = 1 to 99
         RelativeFontSize.TypeKeys "<UP>"
 
     Automatic.Check
 
-    ScaleWith.ToMin          '/// Testing the "ScaleWith"-Listbox
+    printlog "Testing the "ScaleWith"-Listbox
+    ScaleWith.ToMin          
     ThisIsMyTextFromControl = ScaleWith.GetText
     printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
     for y = 1 to 100
 '        printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
     next y
 
-    ThisIsMyTextFromControl = Spacing.GetSelText      '/// Testing the "Spacing"-ListBox
+    printlog "Testing the "Spacing"-ListBox
+    ThisIsMyTextFromControl = Spacing.GetSelText      
     printlog "The Spacing is first: " & ThisIsMyTextFromControl
     for y = 2 to 3
         Spacing.Select y
         ThisIsMyTextFromControl = Spacing.GetSelText
         printlog "The Spacing is: " & ThisIsMyTextFromControl
-        ThisIsMyTextFromControl = SpacingBy.GetText      '/// Testing the "Spacing By"-Scrollbox
+        printlog "Testing the "Spacing By"-Scrollbox
+        ThisIsMyTextFromControl = SpacingBy.GetText      
 '        printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
         SpacingBy.ToMin
         for z = 1 to 4
        kontext
        ToolsOptions
        hToolsOptions ( "LanguageSettings", "Languages" )
-       Aktivieren.UnCheck                                    '/// Deactivate if not already deactivated ///'
+       printlog "Deactivate if not already deactivated "
+       Aktivieren.UnCheck                                    
        Printlog "Reseted the Asiansupport-value to it's original state"
 
        Kontext "ExtrasOptionenDlg"
    end if
 
     sFile = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
-    '/// create document, if it doesn't exist, else skip this case :-) ///'
+    printlog "create document, if it doesn't exist, else skip this case :-) "
     if (dir(sFile)="") then
-        '/// open application ///'
+        printlog "open application "
         Call  hNewDocument
 
-        '/// activate all languages in options ///'
-        '///+ Tools->Options ///'
+        printlog "activate all languages in options "
+        '///+ Tools->Options "
         ToolsOptions
-        '///+ select tabpage 'Languages' from set 'Language Settings' ///'
+        '///+ select tabpage 'Languages' from set 'Language Settings' "
         hToolsOptions("LANGUAGESETTINGS","Languages")
         kontext "TabSprachen"
-        '///+ save state and check checkbox 'Asian languages support' ///'
-        '/// if the language is Asian, skip this part ///'
+        '///+ save state and check checkbox 'Asian languages support' "
+        printlog "if the language is Asian, skip this part "
         printlog "iSprache = " + iSprache
         if bAsianLan = FALSE then
            bAsian = Aktivieren.isEnabled
            Aktivieren.check
         endif
-        '///+ save state and  check checkbox 'Complex text layout (CTL) support' ///'
+        '///+ save state and  check checkbox 'Complex text layout (CTL) support' "
         bComplex = ComplexScriptEnabled.isEnabled
         ComplexScriptEnabled.check
-        '///+ close dialog 'Options' with OK ///'
+        '///+ close dialog 'Options' with OK "
         Kontext "ExtrasOptionenDlg"
         ExtrasOptionenDlg.OK
 
-        '/// get count of languages ///'
-        '///+ Format->Character ///'
+        printlog "get count of languages "
+        '///+ Format->Character "
         FormatCharacter
         sleep 1
         Kontext
-        '///+ switch to tabpage 'Font' ///'
+        '///+ switch to tabpage 'Font' "
         Messagebox.SetPage TabFont
         kontext "TabFont"
         sleep 1
-        '///+ get count of languages for Western/Asian/CTL fonts ///'
+        '///+ get count of languages for Western/Asian/CTL fonts "
         iWest    = LanguageWest.getItemCount
         iAsian   = LanguageEast.getItemCount
         iComplex = LanguageCTL.getItemCount
               Printlog "CTL font languages count         : " + iComplex
            endif
         endif
-	'///+ close dialog 'Character' with OK ///'
+	printlog "close dialog 'Character' with OK "
         TabFont.Ok
 
         WL_SD_TextEinfuegenDraw
         gMouseMove ( 1, 1, 100, 100 )
 
-        '///+ print the language counts into the first line of the document ///'
+        printlog "print the language counts into the first line of the document "
         hTypeKeys(" "+iWest+" "+iAsian+" "+iComplex+"<return>")
 
 
-        '/// set all languages to '[None]' ///'
-        '///+ Format->Character ///'
+        printlog "set all languages to '[None]' "
+        printlog "Format->Character "
         FormatCharacter
         kontext "TabFont"
-        '///+ select '[None]' (should be the first entry in every listbox) ///'
+        printlog "select '[None]' (should be the first entry in every listbox) "
         LanguageWest.select 1
         LanguageEast.select 1
         LanguageCTL.select 1
-        '///+ close dialog 'Character' with OK ///'
+        printlog "close dialog 'Character' with OK "
         TabFont.Ok
 
-        '/// print one line with language formated text for every language ///'
+        printlog "print one line with language formated text for every language "
         for i = 1 to iWest
-            '///+ Format->Character ///'
+            printlog "Format->Character "
             FormatCharacter
                 kontext "TabFont"
-                '///+ select the next language ///'
+                printlog "select the next language "
                 LanguageWest.select i
                 sTemp = LanguageWest.getItemText (i)
                 ListAppend(sLanguage(), sTemp)
-                '///+ close dialog 'Character' with OK ///'
+                printlog "close dialog 'Character' with OK "
             TabFont.Ok
-            '///+ type [return][number of language in list][Tab][Language name][Tab] ///'
+            printlog "type [return][number of language in list][Tab][Language name][Tab] "
             hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
         next i
 
             hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
         next i
 
-        '/// save the created document & the languages list if they don't exists ///'
+        printlog "save the created document & the languages list if they don't exists "
         hFileSaveAs (sFile)
         qaErrorLog "Created file. Please check it and then commit it! " + sTemp
         sTemp = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + ".txt")
             ListWrite(sLanguage(), sTemp,"utf8")
         endif
 
-        '/// restore the options ///'
-        '///+ Tools->Options ///'
+        printlog "restore the options "
+        printlog "Tools->Options "
         ToolsOptions
-        '///+ select tabpage 'Languages' from set 'Language Settings' ///'
+        printlog "select tabpage 'Languages' from set 'Language Settings' "
         hToolsOptions("LANGUAGESETTINGS","Languages")
         kontext "TabSprachen"
 
-        '///+ restore state of checkbox 'Asian languages support' ///'
-        '/// if the language is Asian, skip this part ///'
+        printlog "restore state of checkbox 'Asian languages support' "
+        printlog "if the language is Asian, skip this part "
         if bAsianLan = FALSE then
            if (bAsian <> TRUE) then
                Aktivieren.UNcheck
            endif
         endif
-        '///+ restore state of checkbox 'Complex text layout (CTL) support' ///'
+        printlog "restore state of checkbox 'Complex text layout (CTL) support' "
         if (bComplex <> TRUE) then
             ComplexScriptEnabled.UNcheck
         endif
-        '///+ close dialog 'Options' with OK ///'
+        printlog "close dialog 'Options' with OK "
         Kontext "ExtrasOptionenDlg"
         ExtrasOptionenDlg.OK
 
-        '/// close application ///'
+        printlog "close application "
         Call hCloseDocument
     endif
     
        ExtensionString = "odg"
     end if
     
-    '/// open the english document with all languages ///'
+    printlog "open the english document with all languages "
     hDateiOeffnen (convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
     ListRead(sLanguageR(), convertPath(gTesttoolpath + "graphics\required\input\spellb_1.txt"),"utf8")
 
-    '/// activate all languages in options ///'
-    '///+ Tools->Options ///'
+    printlog "activate all languages in options "
+    printlog " Tools->Options "
     ToolsOptions
-    '///+ select tabpage 'Languages' from set 'Language Settings' ///'
+    printlog "select tabpage 'Languages' from set 'Language Settings' "
     hToolsOptions("LANGUAGESETTINGS","Languages")
     kontext "TabSprachen"
-    '///+ save state and check checkbox 'Asian languages support' ///'
+    printlog "save state and check checkbox 'Asian languages support' "
     bAsian = Aktivieren.isEnabled
     Aktivieren.check
-    '///+ save state and  check checkbox 'Complex text layout (CTL) support' ///'
+    printlog "save state and  check checkbox 'Complex text layout (CTL) support' "
     bComplex = ComplexScriptEnabled.isEnabled
     ComplexScriptEnabled.check
-    '///+ close dialog 'Options' with OK ///'
+    printlog "close dialog 'Options' with OK "
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     sleep (1)
-    '/// get count of languages ///'
+    printlog "get count of languages "
     hTypeKeys("<tab><f2>")
-    '///+ first how many are in the reference document (printed in the first line)///'
+    printlog "first how many are in the reference document (printed in the first line)"
     hTypeKeys("<mod1 home><shift end>")
     sleep (1)
     editcopy
     iAsian(1) = mid(sTemp, iTemp+1, iTemp-i)
     iComplex(1) = right(sTemp, Len(sTemp) - i)
     sleep (1)
-    '///+ Format->Character ///'
+    printlog "Format->Character "
     FormatCharacter
     sleep 1
     Kontext
-    '///+ switch to tabpage 'Font' ///'
+    printlog "switch to tabpage 'Font' "
     Messagebox.SetPage TabFont
     kontext "TabFont"
     sleep 1
-    '///+ get count of languages for Western/Asian/CTL fonts ///'
+    printlog "get count of languages for Western/Asian/CTL fonts "
     iWest(2)    = LanguageWest.getItemCount
     iAsian(2)   = LanguageEast.getItemCount
     iComplex(2) = LanguageCTL.getItemCount
     else
         Printlog "CTL font languages count         : " + iComplex(2)
     endif
-    '///+ close dialog 'Character' with OK ///'
+    printlog "close dialog 'Character' with OK "
     TabFont.Ok
 
-    '/// write the language for every line in the current language ///'
+    printlog "write the language for every line in the current language "
     hTypeKeys("<mod1 home><down><home>")
     for i = 1 to iWest(2)
         FormatCharacter
             sTemp = LanguageWest.getSelText
             ListAppend(sLanguage(), sTemp)
         TabFont.Ok
-        '///+ type [end][number of language in list][Tab][Language name][down][home] ///'
+        printlog "type [end][number of language in list][Tab][Language name][down][home] "
         hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
     next i
 
         hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
     next i
 
-    '/// save the created document & the languages list ///'
+    printlog "save the created document & the languages list "
     sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache)
     hFileSaveAsKill (sTemp)
     sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache + ".txt")
         endif
     next i
 
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
 endcase 'tGetFormatCharacter

File testautomation/graphics/optional/includes/global/g_clipboard.inc

       print "what"
     endif
     Kontext "TabPositionAndSize"
-    Ueber_Text_1=PositionX.GetText				'/// defining variable for original position of object ///'
+    printlog "defining variable for original position of object"
+    Ueber_Text_1=PositionX.GetText				
     TabPositionAndSize.Cancel
     sleep 2
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
-    ContextArrangeBringBackward					'/// Bring Object backward ///'
+    printlog "Bring Object backward"
+    ContextArrangeBringBackward					
     sleep 1
     gMouseClick 60,60
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
-    ContextPositionAndSize					'/// Open Position and Size dialog, checking position ///'
+    printlog "Open Position and Size dialog, checking position"
+    ContextPositionAndSize					
     Kontext
     Messagebox.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
     sleep 2
     gMouseClick 60,60
     sleep 1
-    
-    EditUndo							'/// Edit Undo for BringBackward ///'
+
+    printlog "Edit Undo for BringBackward"
+    EditUndo							
     Sleep 2
     gMouseClick 60,60
     sleep 1
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
-    ContextPositionAndSize					'/// Again checking position using Position and Size dialog ///'
+    printlog "Again checking position using Position and Size dialog"
+    ContextPositionAndSize					
     kontext
     Messagebox.SetPage TabPositionAndSize
     kontext "TabPositionAndSize"
       warnlog "Last order could not be redone"
     end if
     TabPositionAndSize.Cancel
-    
-    Call hCloseDocument						'/// Close document ///'
 
-endcase
+    printlog "Close document"
+    Call hCloseDocument						
+
+endcase 'tiEditUndo
 
 '-------------------------------------------------------------------------------
 testcase tiEditRedo
     end if
     
     Datei$ = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-    
-    hFileOpen ConvertPath (Datei$)			'/// Open test document (leer.od?) ///'
+
+    printlog "Open test document (leer.od?)"
+    hFileOpen ConvertPath (Datei$)			
     sleep 3
     ' check if the document is writable
     if fIsDocumentWritable = false then
     sleep 1
     hTypeKeys "<TAB>"
     sleep 1
-    ContextArrangeBringBackward					'/// move object behind other object ///'
+    printlog "move object behind other object"
+    ContextArrangeBringBackward					
     sleep 1
     gMouseClick 60,60
     sleep 1
     ContextPositionAndSize
     sleep 1
     Kontext
-    Messagebox.SetPage TabPositionAndSize					'/// checking new position values ///'
+    printlog "checking new position values"
+    Messagebox.SetPage TabPositionAndSize					
     Kontext "TabPositionAndSize"
      if PositionX.GetText = Ueber_Text_1 Then Warnlog "  Nothing changed, so nothing can be undone"
     TabPositionAndSize.Cancel
     sleep 1
     gMouseClick 60,60
-    EditUndo							'/// Edit Undo///'
+    printlog "Edit Undo"
+    EditUndo							
     sleep 1
     hTypeKeys "<TAB>"
     sleep 1
     ContextPositionAndSize
     sleep 1
     kontext
-    Messagebox.SetPage TabPositionAndSize					'/// checking again position ///'
+    printlog "checking again position"
+    Messagebox.SetPage TabPositionAndSize					
     kontext "TabPositionAndSize"
     if PositionX.GetText <> Ueber_Text_1 Then Warnlog "  Undo didn't worked, so repeat last action wont work either"
     TabPositionAndSize.Cancel
     sleep 2
-    EditRedo							'/// Edit Redo ///'
+    printlog "Edit Redo"
+    EditRedo							
     sleep 2
     gMouseClick 60,60
     sleep 2
     kontext
     Messagebox.SetPage TabPositionAndSize
     kontext "TabPositionAndSize"
-    if PositionX.GetText <> Ueber_Text_1 then			'/// checking position ///'
+    printlog "checking position"
+    if PositionX.GetText <> Ueber_Text_1 then			
       printlog "Action Undo repeated"
     else
       warnlog "Action Undo not repeated"
     end if
     TabPositionAndSize.OK
     sleep 1
-    call hCloseDocument						'/// close document ///'
+    printlog "close document"
+    call hCloseDocument						
     sleep 1
-endcase
+endcase 'tiEditRedo
 
 '-------------------------------------------------------------------------------
 testcase tiEditClipboard
     Dim Ueber_Text_4 as string
     dim sTemp as string
     
-    '/// open application ///'
+    printlog "open application"
     Call hNewDocument
     Call sSelectEmptyLayout
     sleep 1
     SetClipboard ""
-    '/// Create rectangle ///'
+    printlog "Create rectangle"
     Call hRechteckErstellen ( 65, 65, 80, 80 )
     sleep 1
-    '///+ RightClick onto rectangle///'
+    printlog "RightClick onto rectangle"
     gMouseClick 70,70
     sleep 1
-    Ueber_Text_4 = fGetPositionX()				'/// Get values for position variables ///'
+    printlog "Get values for position variables"
+    Ueber_Text_4 = fGetPositionX()				
     Sleep 1
-    '/// <b> Edit->Copy </b> ///'
+    printlog "<b> Edit->Copy </b>"
     EditCopy
-    '///+ Type Key [Deletee] ///'
+    '///+ Type Key [Deletee]"
     hTypeKeys "<DELETE>"
-    '///+ <i> Edit->Paste </i> ///'
+    '///+ <i> Edit->Paste </i>"
     EditPaste
     sleep 1
-    '///+   Edit->Select All ///'
+    '///+   Edit->Select All"
     EditSelectAll
     sTemp = fGetPositionX()
-    if LiberalMeasurement(sTemp, Ueber_Text_4) then			'/// TabPositionAndSize: comparing position with original position ///'
+    printlog "TabPositionAndSize: comparing position with original position"
+    if LiberalMeasurement(sTemp, Ueber_Text_4) then			
       printlog "OK   EditCopy and EditPaste"
     else
       warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
     end if
     sleep 1
-    '/// Type Keys [escape], + EditSelectAll (to deselect object and to select again) ///'
+    printlog "Type Keys [escape], + EditSelectAll (to deselect object and to select again)"
     hTypeKeys "<escape>"
     EditSelectAll
     sleep 2
-    '/// <b> Edit->Cut </b>///'
+    printlog "<b> Edit->Cut"
     EditCut
     sleep 1
     hTypeKeys "<TAB>"
     try
-      '///+ - Format->Position And Size -> HAS TO FAIL / IS NOT AVAILABLE !!! '///'
+      printlog "Format->Position And Size -> HAS TO FAIL / IS NOT AVAILABLE !!! "
       ContextPositionAndSize
          kontext
-         '///+ - select TabPage 'Position And Size' ///'
+         printlog "select TabPage 'Position And Size'"
          Messagebox.SetPage TabPositionAndSize
          Kontext "TabPositionAndSize"
          if TabPositionAndSize.NOTexists then
             warnlog "TabPositionAndSize isn't up ?!!"
          endif
-      '///+ - Ok dialog 'Position And Size' ///'
+        printlog "Ok dialog 'Position And Size'"
       TabPositionAndSize.Ok
       warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
     catch
       Printlog " - There is no object in the document anymore :-)"
     endcatch
     sleep 1
-    '///+ <i> Edit->Paste </i> ///'
+    printlog "Edit->Paste"
     EditPaste
     sleep 2
     sTemp = fGetPositionX()
       warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
     end if
     sleep 3
-    '/// close application ///'
+    printlog "close application"
     Call hCloseDocument
-endcase
+endcase 'tiEditClipboard
 
 '-------------------------------------------------------------------------------
 testcase tiEditPasteSpecial_HTML
     dim Zaehler as integer
     Kontext "Standardbar"
     sleep 1
-    Call hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm")	'/// Load html document ///'
+    printlog "Load html document"
+    Call hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm")	
     sleep 5
     autoexecute=false
     Kontext "DocumentWriter"
     autoexecute=true
     EditSelectAll
     sleep 3
-    EditCopy									'/// Copy selection ///'
+    printlog "Copy selection"
+    EditCopy									
     Sleep 2
-    FileClose									'/// Close document ///'
+    printlog "Close document"
+    FileClose									
     sleep 3
-    Call hNewDocument								'/// Create new Impress document ///'
+    printlog "Create new Impress document"
+    Call hNewDocument								
     sleep 1
-    EditPasteSpecial								'/// Edit paste special ///'
+    printlog "Edit paste special"
+    EditPasteSpecial								
     sleep 1
     Kontext "InhaltEinfuegen"
     For Zaehler = 1 to Auswahl.GetItemCount
        Auswahl.select Zaehler
        printlog Zaehler, ". Selection = ", Auswahl.GetSelText
     next Zaehler
-    
-    if Auswahl.GetItemCount <> 4 then						'/// Controlling number of possible formats ///'
+
+    printlog "Controlling number of possible formats"
+    if Auswahl.GetItemCount <> 4 then						
       warnlog "formats for inserting Html <> 4"
     else
       printlog "OK   4 formats for HTML-Document"
     end if
     
     sleep 3
-    InhaltEinfuegen.OK								'/// Paste clipboard content ///'
+    printlog "Paste clipboard content"
+    InhaltEinfuegen.OK								
     sleep 3
     try
-     EditCopy									'/// Copy object back into clipboard ///'
+    printlog "Copy object back into clipboard"
+     EditCopy									
     catch
      Warnlog "-  Nothing inserted into document"
     endcatch
     sleep 3
-    Call hCloseDocument  								'/// Close document ///'
+    printlog "Close document"
+    Call hCloseDocument  								
     sleep 3
-endcase
+endcase 'tiEditPasteSpecial_HTML
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Text
     
     printlog "Insert Text"
-    call hNewDocument                 '/// new document  ///'
-    SetClipboard "I am a cool test-text in the Clipboard"  '/// put text into clipboard ///'
-    EditPasteSpecial                  '/// edit paste special ///'
+    printlog "new document "
+    call hNewDocument
+    printlog "put text into clipboard"
+    SetClipboard "I am a cool test-text in the Clipboard"  
+    printlog "edit paste special"
+    EditPasteSpecial                  
     sleep 1
     Kontext "InhaltEinfuegen"
-    Auswahl.Select 1                  '/// select list entree 1 ///'
+    printlog "select list entree 1"
+    Auswahl.Select 1                  
     printlog "Selection = ", Auswahl.GetSelText
     sleep 1
     if Auswahl.GetItemCount <> 1 then
     else
       printlog "Format Text OK"
     end if
-    InhaltEinfuegen.OK                '/// close dialog ///'
+    printlog "close dialog"
+    InhaltEinfuegen.OK                
     sleep 1
-    
-    Call hCloseDocument                   '/// close document ///'
-endcase
+
+    printlog "close document"
+    Call hCloseDocument                   
+endcase 'tdEditPasteSpecial_Text
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Graphic
     
     dim Zaehler as integer
-    
-    call hNewDocument                  '/// ^new document  ///'
+
+    printlog "new document "
+    call hNewDocument                  
     printlog "Insert graphic file"
-    InsertGraphicsFromFile               '/// insert graphic (sample.bmp)///'
+    InsertGraphicsFromFile               
     
     Kontext "GrafikEinfuegenDlg"
-      Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
-      Oeffnen.Click
+    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+    Oeffnen.Click
     sleep 1
-    EditSelectAll                     '/// select graphic ///'
-    EditCut                     '/// cut graphic ///'
-    EditPasteSpecial                  '/// edit paste special ///'
+    printlog "select graphic"
+    EditSelectAll
+    printlog "cut graphic"
+    EditCut
+    printlog "edit paste special"
+    EditPasteSpecial                  
     sleep 1
     Kontext "InhaltEinfuegen"
-    For Zaehler = 1 to Auswahl.GetItemCount         '/// get item count for Auswahl ///'
+    printlog "get item count for Auswahl"
+    For Zaehler = 1 to Auswahl.GetItemCount         
     Auswahl.select Zaehler
     printlog Zaehler, ". Selection = ", Auswahl.GetSelText
     next Zaehler
-    
-    if Auswahl.GetItemCount <> 4 then            '/// check if item count = 4 ///'
+
+    printlog "check if item count = 4"
+    if Auswahl.GetItemCount <> 4 then            
       warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
     else
       printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
     end if
-    InhaltEinfuegen.OK                '/// insert graphic from clipboard ///'
+    printlog "insert graphic from clipboard"
+    InhaltEinfuegen.OK                
     gMouseClick 90,90
     sleep 1
-    Call hCloseDocument                   '/// close document  ///'
-endcase
+    printlog "close document "
+    Call hCloseDocument                   
+endcase 'tdEditPasteSpecial_Graphic
 
 '-------------------------------------------------------------------------------
 testcase tdEditPasteSpecial_Circle
 
-   dim Zaehler as integer
- call hNewDocument                  '/// new document  ///'
+    dim Zaehler as integer
+    printlog "new document "
+    call hNewDocument
   sleep 5
-  printlog "Insert circle"                '/// create circle ///'
+  printlog "Insert circle"                
   Kontext "Toolbar"
   Ellipsen.Click
   sleep 3
   sleep 1
   hTypeKeys "<escape>"
   sleep 2
-  EditSelectAll               '/// select circle ///'
+  printlog "select circle"
+  EditSelectAll               
   sleep 5
-  EditCut                     '/// cut circle ///'
+  printlog "cut circle"
+  EditCut                     
   sleep 1
-  EditPasteSpecial                  '/// edit paste special ///'
+  printlog "edit paste special"
+  EditPasteSpecial                  
   sleep 1
   Kontext "InhaltEinfuegen"
-  if EinfuegenAls.IsVisible Then EinfuegenAls.Check      '/// check "EinfuegenAls" ///'
-   For Zaehler = 1 to Auswahl.GetItemCount         '/// get item count for Auswahl ///'
+  printlog "check Insert as.."
+  if EinfuegenAls.IsVisible Then EinfuegenAls.Check
+  printlog "get item count for Auswahl"
+   For Zaehler = 1 to Auswahl.GetItemCount         
        Auswahl.select Zaehler
        printlog Zaehler, ". Selection = ", Auswahl.GetSelText
    next Zaehler
-   if Auswahl.GetItemCount <> 4 then            '/// check if item count = 4 ///'
+   printlog "check if item count = 4"
+   if Auswahl.GetItemCount <> 4 then            
      warnlog "Number of possible formats <> 4"
    else
      printlog "There are 4 formats for circle"
    end if
   sleep 1
-  InhaltEinfuegen.OK                '/// paste circle ///'
+  printlog "paste circle"
+  InhaltEinfuegen.OK                
   sleep 1
- Call hCloseDocument                   '/// close document  ///'
-endcase
+  printlog "close document "
+ Call hCloseDocument                   
+endcase 'tdEditPasteSpecial_Circle
 
 '-------------------------------------------------------------------------------
 testcase tiEditPasteSpecial
   dim i as integer
   dim x as integer
 '   warnlog "TODOTBO: from draw, impress, math..."
-   '/// go into writer, type a text, select all, Edit->Cut, close writer ///'
-   '/// go into application to test, insert every format you can get from Edit->Paste->Special :-) ///'
+   printlog "go into writer, type a text, select all, Edit->Cut, close writer"
+   printlog "go into application to test, insert every format you can get from Edit->Paste->Special :-)"
    gApplication   = "WRITER"
    call hNewDocument
    kontext "DocumentWriter"
    call hNewDocument
    sleep 1
 
- Printlog " get count of possibilities: "
-   EditPasteSpecial
-   sleep 1
-   Kontext "InhaltEinfuegen"
-   x = Auswahl.GetItemCount
-   for i = 1 to x
-      printlog " - " + i + " - " + Auswahl.GetItemText (i)
-   next i
-   InhaltEinfuegen.Cancel
+    Printlog " get count of possibilities: "
+    EditPasteSpecial
+    sleep 1
+    Kontext "InhaltEinfuegen"
+    x = Auswahl.GetItemCount
+    for i = 1 to x
+        printlog " - " + i + " - " + Auswahl.GetItemText (i)
+    next i
+    InhaltEinfuegen.Cancel
 
- Printlog " insert every possibility"
-   for i = 1 to x
-   Printlog " - processing number: "+i
-      EditPasteSpecial
-      sleep 1
-      Kontext "InhaltEinfuegen"
-      Auswahl.Select i
-      sleep 1
-      InhaltEinfuegen.OK
-      sleep 1
-   next i
-   Call hCloseDocument  '/// close document ///'
-endcase
+    Printlog " insert every possibility"
+    for i = 1 to x
+    Printlog " - processing number: "+i
+    EditPasteSpecial
+    sleep 1
+    Kontext "InhaltEinfuegen"
+    Auswahl.Select i
+    sleep 1
+    InhaltEinfuegen.OK
+    sleep 1
+    next i
+    printlog "close document"
+    Call hCloseDocument
+endcase 'tiEditPasteSpecial
 
 '-------------------------------------------------------------------------------

File testautomation/graphics/optional/includes/global/g_clipexport3.inc

 
 Sub Get_Position_Size_Attributes
 
-    Printlog "   Get_Position_Size_Attributes Starts"
+    Printlog "Get_Position_Size_Attributes Starts"
 
     FormatPositionAndSize
 
     End Select
     sleep 1
 
-    ' /// Size-values ///'
+    printlog "Size-values"
     PositionWidth = Width.GetText
     PositionHeight = Height.GetText
 
                 sleep 3
                 Printlog "   Get_Position_Size_Attributes Ends"
 
-end sub
+end sub 'Get_Position_Size_Attributes
 
 '-------------------------------------------------------------------------------
 sub Get_Colour_Attributes
     Kontext "TabArea"
 
 
-    ' /// Area ///'
+    printlog "Area"
     FillOptions.Select 2
     if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea"
         AreaColourListValue = ColourList.GetSelText
                                     TabArea.Cancel
                                     printlog "   Get_Colour_Attributes ends"
 
-end sub
+end sub 'Get_Colour_Attributes
 
 '-------------------------------------------------------------------------------
 sub Check_Position_Size_Attributes
                                             sleep 3
                                             printlog "   Check_Position_Size_Attributes Ends"
 
-end sub
+end sub 'Check_Position_Size_Attributes
 
 '----------------------------------------------------------------------------------------------------
 sub Check_Text_Formatting
                                 SetKontextApplication
                                 printlog "   Check_Text_Formatting Ends"
 
-end suB
-                                '----------------------------------------------------------------------------------------------------
+end sub 'Check_Text_Formatting
+
+'-------------------------------------------------------------------------------
+
 sub Check_Colors_Borders_Attributes
 
     printlog "   Check_Colors_Borders_Attributes Starts"
     Active.setpage TabArea
     Kontext "TabArea"
 
-    ' /// Area ///'
+    printlog "Area"
     FillOptions.Select 2
     if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea"
 
                                                                                                                                                 Printlog "End of one application"
 
 
-end sub
+end sub 'Check_Colors_Borders_Attributes
    '---------------------------------- Set the Kontext to the current Application ----------------------------------'
 sub SetKontextApplication
 
     end select
     sleep 1
 
-end sub
+end sub 'SetKontextApplication
 
 '------------------------- Part with "create new windows" ---------------------
 sub New_Draw
     Call hNewDocument
     SetKontextApplication
 
-end sub
+end sub 'New_Draw
 
 '-------------------------------------------------------------------------------
 sub New_Impress
     Call hNewDocument
     SetKontextApplication
 
-end sub
+end sub 'New_Impress
 
 '-------------------------------------------------------------------------------
 sub New_Calc
     Call hNewDocument
     SetKontextApplication
 
-end sub
+end sub 'New_Calc
 
 '-------------------------------------------------------------------------------
 sub New_Writer
     Call hNewDocument
     SetKontextApplication
 
-end sub
+end sub 'New_Writer
 
 '-------------------------------------------------------------------------------
 testcase Choose_Toapplication
     Call hNewDocument
     SetKontextApplication
 
-endcase
+endcase 'Choose_Toapplication
 
 '--------------------------------------------------------------------------------------------------------

File testautomation/graphics/optional/includes/global/g_crossfading.inc

     dim CounterForX as integer
     dim anothercounter as integer
 
+    printlog "New Impress document"
     Call hNewDocument
-    Call sSelectEmptyLayout					                '/// New Impress document ///'
+    Call sSelectEmptyLayout					                
     gMouseClick 50,50
-   sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			'/// Create rectangle ///'
+    sleep 1
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )			'/// create rectangle ///'
-   sleep 1
-    EditSelectAll							            '/// Select all ///'
-   sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "create rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )			
+    sleep 1
+    printlog "Select all"
+    EditSelectAll							            
+    sleep 1
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     kontext "Ueberblenden"
-    X = Schritte.GetText									' /// Get counter-value and save it in X ///'
+    printlog "Get counter-value and save it in X"
+    X = Schritte.GetText									
     printlog "Steps before we start the test: " + X
     printlog "Schritte.GetText= " + Schritte.GetText
     
     Schritte.ToMin
     if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
-
-    for I = 2 to 10										' /// How many steps do you want? ///'
+    printlog "How many steps do you want?"
+    for I = 2 to 10										
         Schritte.More 1
             if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
                 Ueberblenden.OK
                 sleep 1
     try
-    FormatUngroupDraw							'/// open context menu and ungroup objects ///'
+    printlog "open context menu and ungroup objects"
+    FormatUngroupDraw							
     catch
     qaerrorlog "Could not ungroup objects"
     endcatch
     sleep 1
-    hTypeKeys "<TAB>"								'/// Should make the first object active ///'
+    printlog "Should make the first object active"
+    hTypeKeys "<TAB>"								
     
-    '/// Get position and dimensions of elements ///'
+    printlog "Get position and dimensions of elements"
       try
          ContextPositionAndSize
       catch
    if TabPositionAndSize.exists (5) then
          CounterForX=0
          CheckX=0
-         FirstX=PositionX.GetText								'/// Tet Dimensions of first object ///'
+         printlog "Tet Dimensions of first object"
+         FirstX=PositionX.GetText								
          TabPositionAndSize.OK
    else
       qaerrorlog "Couldn't switch tab page :-( "
    endif
 
+    printlog "How many objects we have on the screen"
+    anothercounter = I+2
 
-anothercounter = I+2										'/// How many objects we have on the screen ///'
-
-   for Y = 1 to anothercounter							'/// How many times we should step to (hopefully) get back to the first one ///'
+    printlog "How many times we should step to (hopefully) get back to the first one"
+   for Y = 1 to anothercounter							
       if Y > anothercounter then warnlog "Too many steps, something is wrong."
       try
-         hTypeKeys "<TAB>"								'/// Step to the next object ///'
+        printlog "Step to the next object"
+         hTypeKeys "<TAB>"								
       catch
          errolog "Could not step to the next object"
       endcatch
 '   Printlog "- Get position and dimensions of elements"
-      ContextPositionAndSize								    '/// Open Position and Size for this object ///'
+    printlog "Open Position and Size for this object"
+      ContextPositionAndSize								    
       sleep 1
       Kontext
       Active.SetPage TabPositionAndSize
          Kontext "TabPositionAndSize"
-         CheckX=PositionX.GetText								'/// Get Position X for this object ///'
+         printlog "Get Position X for this object"
+         CheckX=PositionX.GetText								
          sleep 1
       TabPositionAndSize.OK
    Kontext "DocumentDraw"
-      CounterForX=CounterForX+1 											'/// Up one on the object-counter ///'
-      if CheckX=FirstX then 									'/// Check if Position is the same as the first one ///'
+   printlog "Up one on the object-counter"
+      CounterForX=CounterForX+1
+      printlog "Check if Position is the same as the first one"
+      if CheckX=FirstX then 									
          if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
-         printlog "We should have " + Y	+ " objects to go through."  		'/// Just here for debugging. - FHA
-'	  	 printlog "anothercounter= " + anothercounter   '/// Just here for debugging. - FHA
+         printlog "We should have " + Y	+ " objects to go through."  		
          printlog "Number of objects: " + anothercounter
          printlog ""
       endif
-   next Y														'/// End or go on with the checking-loop ///'
-
-      EditSelectAll							            		'/// Select all ///'
-      EditDelete                                          		'/// Delete all ///'
+      printlog "End or go on with the checking-loop"
+   next Y														
+   printlog "Select all"
+      EditSelectAll
+      printlog "Delete all"
+      EditDelete                                          		
    sleep 1
-      Call hRechteckErstellen ( 5, 5, 20, 30 )			  		'/// Create rectangle ///'
+   printlog "Create rectangle"
+Call hRechteckErstellen ( 5, 5, 20, 30 )	
     gMouseClick 90,90
-      Call hRechteckErstellen ( 30, 30, 70, 70 )		  		'/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
     sleep 1
-      EditSelectAll							              		'/// Select all ///'
+    printlog "Select all"
+    EditSelectAll
     sleep 1
-      EditCrossFading                                     		'/// Choose Edit / CrossFading ///'
-      sleep 2
-        kontext "Ueberblenden"
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading
+    sleep 2
+    kontext "Ueberblenden"
     next I
 
-    '/// And now we're gonna check if we can separate the object into it's parts ///'
-    '/// And check if the numbers of steps / objects is correct ///'
+    printlog "And now we're gonna check if we can separate the object into it's parts"
+    printlog "And check if the numbers of steps / objects is correct"
 
-    Schritte.ToMin                                            '/// Select minimum value for number of steps ///'
+    printlog "Select minimum value for number of steps"
+    Schritte.ToMin                                            
     for Z = 1 to X -1
-    Schritte.More                                             '/// Raise the value for number of steps with one ///'
+    printlog "Raise the value for number of steps with one"
+    Schritte.More                                             
     next Z
     printlog "Value has been restored to: " + Schritte.GetText
     printlog "X is now: " + X
     Ueberblenden.OK
     sleep 1
     Kontext "DocumentDraw"
-    EditSelectAll							              '/// Select all ///'
-    EditDelete                                          '/// Delete all ///'
+    printlog "Select all"
+    EditSelectAll
+    printlog "Delete all"
+    EditDelete                                          
     sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// Create second rectangle ///'
-    EditSelectAll							              '/// Select all ///'
+    printlog "Create second rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
+    printlog "Select all"
+    EditSelectAll							              
     sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     Kontext "Ueberblenden"
     if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung /    was NOT unchecked."
-    GleicheOrientierung.UnCheck							  '/// Uncheck "same orienation" ///'   -????
-    Ueberblenden.OK									  '/// Close CrossFading-window with "OK" ///'
+    printlog "Uncheck same orienation"
+    GleicheOrientierung.UnCheck
+    printlog "Close CrossFading-window with OK"
+    Ueberblenden.OK									  
     sleep 1
     Kontext "DocumentDraw"
-    EditSelectAll							              '/// Select all ///'
-    EditDelete                                          '/// Delete all ///'
+    printlog "Select all"
+    EditSelectAll
+    printlog "Delete all"
+    EditDelete                                          
     sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// create rectangle ///'
-    EditSelectAll							              '/// Select all ///'
+    printlog "create rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
+    printlog "Select all"
+    EditSelectAll							              
     sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     Kontext "Ueberblenden"
     if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung /    was NOT unchecked."
-    Attributierung.Check							          '/// Check "Attributing" ///'  - ???
-    Ueberblenden.OK									  '/// Close CrossFading-window with "OK" ///'
+    printlog "Check Attributing"
+    Attributierung.Check
+    printlog "Close CrossFading-window with OK"
+    Ueberblenden.OK									  
     sleep 1
     Kontext "DocumentDraw"
-    EditSelectAll							              '/// Select all ///'
+    printlog "Select all"
+    EditSelectAll							              
     sleep 1
-    EditDelete                                          '/// Delete all ///'
+    printlog "Delete all"
+    EditDelete                                          
     sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// Create second rectangle ///'
-    EditSelectAll							              '/// Select all ///'
+    printlog "Create second rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
+    printlog "Select all"
+    EditSelectAll							              
     sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     Kontext "Ueberblenden"
     if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung /    was NOT checked again."
-    GleicheOrientierung.UnCheck							  '/// Check "same orientation" ///'   -????
+    printlog "Check same orientation"
+    GleicheOrientierung.UnCheck							  
     Ueberblenden.OK
     sleep 1
     Kontext "DocumentDraw"
-    EditSelectAll										  '/// Select all ///'
-    EditDelete										  '/// Delete all ///'
+    printlog "Select all"
+    printlog "Delete all"
+    EditSelectAll									
+    EditDelete										  
     sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// create rectangle ///'
-    EditSelectAll				   						  '/// Select all ///'
+    printlog "create rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
+    printlog "Select all"
+    EditSelectAll				   						  
     sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     Kontext "Ueberblenden"
-    if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung /    was NOT checked again."
-    GleicheOrientierung.Check							  '/// Check "same orientation" ///'   -????
-    Ueberblenden.OK									  '/// Close CrossFading-window with "OK" ///'
+    if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung /    was NOT checked again."    
+    printlog "Check "same orientation""   -????
+    GleicheOrientierung.Check
+    printlog "Close CrossFading-window with OK"
+    Ueberblenden.OK									  
     sleep 1
     Kontext "DocumentDraw"
-    EditSelectAll			  							  '/// Select all ///'
-    EditDelete										  '/// Delete all ///'
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Select all"
+    EditSelectAll
+    printlog "Delete all"
+    EditDelete
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// create rectangle ///'
-    EditSelectAll										  '/// Select all ///'
+    printlog "create rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )
+    printlog "Select all"
+    EditSelectAll										  
     sleep 1
-    EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+    printlog "Choose Edit / CrossFading"
+    EditCrossFading                                     
     Kontext "Ueberblenden"
     if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung /    was NOT checked again."
-    GleicheOrientierung.Check							  '/// Check "same orientation" ///'   -????
-    Ueberblenden.OK									  '/// Close CrossFading-window with "OK" ///'
+    printlog "Check same orientation"
+    GleicheOrientierung.Check
+    printlog "Close CrossFading-window with OK"
+    Ueberblenden.OK									  
     sleep 1
-    
-    Kontext "DocumentDraw"                                 '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
-    EditSelectAll										  '/// Select all ///'
-    EditDelete                                          '/// Delete all ///'
+
+    printlog "EditCrossFading should not be enabled if more than two objects is selected."
+    Kontext "DocumentDraw"
+    printlog "Select all"
+    EditSelectAll
+    printlog "Delete all"
+    EditDelete                                          
     
     sleep 1
-    Call hRechteckErstellen ( 5, 5, 20, 30 )			  '/// Create rectangle ///'
+    printlog "Create rectangle"
+    Call hRechteckErstellen ( 5, 5, 20, 30 )			  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 30, 30, 70, 70 )		  '/// Create second rectangle ///'
+    printlog "Create second rectangle"
+    Call hRechteckErstellen ( 30, 30, 70, 70 )		  
     gMouseClick 90,90
-    Call hRechteckErstellen ( 20, 20, 50, 50 )		  '/// Create third rectangle ///'
+    printlog "Create third rectangle"
+    Call hRechteckErstellen ( 20, 20, 50, 50 )		  
     sleep 1
-    EditSelectAll										  '/// Select all ///'
+    printlog "Select all"
+    EditSelectAll										  
     sleep 1
     try
-        EditCrossFading                                     '/// Choose Edit / CrossFading ///'
+        printlog "Choose Edit / CrossFading"
+        EditCrossFading                                     
         sleep 2
         If active = "Ueberblenden" then
         qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
         kontext "Ueberblenden"
-        Ueberblenden.CANCEL								  '/// Close CrossFading-window with "CANCEL" ///'
+        printlog "Close CrossFading-window with CANCEL"
+        Ueberblenden.CANCEL								  
         endif
         sleep 2
         Kontext "DocumentDraw"
     endcatch
 
     try
-       EditSelectAll										  '/// Select all ///'
-       EditDelete                                          '/// Delete all ///'
+        EditSelectAll
+        EditSelectAll
+        printlog "Delete all"
+        EditDelete
     catch
        warnlog "Could not select and delete all objects."
     endcatch
 
     printlog "End of test"
 
-    Call hCloseDocument						              '/// Close document ///'
+    printlog "Close document"
+    Call hCloseDocument						              
  
-endcase 'tCrossfading
+endcase 'tCrossfading

File testautomation/graphics/optional/includes/global/g_demoguide.inc

 
     gApplication   = "IMPRESS"
     
-    '///Open new presentation
     printlog "Open new presentation"
     Call hNewDocument
     Call sSelectEmptyLayout
     
-    '///Open the Gallery
     printlog "Open the Gallery"
     ToolsGallery
     Sleep (1)
         ToolsGallery
     end if
     
-    '///Choose computer theme and insert the third image
     printlog "Choose an item from the gallery"
     Gallerys.Select(2)
     View.TypeKeys "<HOME><RIGHT><RIGHT>"
     sleep 2
     MenuSelect(MenuGetItemID(1))   'Copy
     sleep 2
-    '///+ - Check that we really got a copy of the object ///'
+    printlog "Check that we really got a copy of the object "
     kontext "DocumentImpress"
     DocumentImpress.OpenContextMenu(true)
     sleep 2
     endcatch
     sleep 5
 
-    '///Resize object 
     printlog "Resize object"
     Kontext "DocumentImpress"
     gMouseClick (10, 10)
     sleep 1
     EditSelectAll
     sleep 1
-    ContextPositionAndSize                '/// Format-position and size
+    printlog "Format-position and size"
+    ContextPositionAndSize                
     Kontext
     Active.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
     Width.SetText CStr((CInt(Width.GetText)) * 2)
     TabPositionAndSize.OK
     
-    '///Break object
     printlog "Break object"
     Kontext "DocumentImpress"
     gMouseClick (10, 10)
     sleep 1
     hOpenContextMenu  '(when the object is marked)
     hMenuSelectNr(13) 
-    '///    Select part of object and make it black