Commits

Anonymous committed 83eb386 Merge

CWS-TOOLING: integrate CWS automationdev300m89graphics

Comments (0)

Files changed (49)

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

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

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

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

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"

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

     dim iFileSize(12) as long
     dim i as integer
 
-    '/// Export the file 12 times: ///'
-    '///+ every compression level (3) and every range (3), check if button in toolbar uses last settings (6) (-> 12) ///'
+    printlog "Export the file 12 times: "
+    printlog "every compression level (3) and every range (3), check if button in toolbar uses last settings (6) (-> 12) "
     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport_pdf."+ExtensionString ))
     sleep (10)
 
     '---------------------------------------------------------------------------------------------------------------------------------------------------------
-    '###### all / Screen optimized ######
-    '/// File->Export as PDF document
     printlog "File->Export as PDF document"
-    '///+ range = All
     printlog " range = All"
-    '///+ compression = Screen optimized
     printlog " compression = Screen optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '---------------------------------------------------------   Output the first file ---------------------------------------------------------------
+    printlog "-------------------   Output the first file ---------------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 1, TRUE, FALSE, 1, 1)
-    '/// Export using Button in toolbar
     printlog "Export using Button in toolbar"
-    '///+ use the settings from the export before
     printlog " use the settings from the export before"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '-------------------------------------------------------   Output the second file -------------------------------------------------------------
+    printlog "---------------------   Output the second file -------------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 2, TRUE, FALSE, 1, 1) ' button in toolbar -> last settings have to be used
 
-    '###### range / Screen optimized ######
-    '/// File->Export as PDF document
+   
     printlog "File->Export as PDF document"
-    '///+ range = Range
     printlog " range = Range"
-    '///+ compression = Screen optimized
     printlog " compression = Screen optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '---------------------------------------------------------  Output the third file  ---------------------------------------------------------------
+    printlog "----------------  Output the third file  --------------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 3, TRUE, FALSE, 2, 1, "2")
 
-    '/// Export using Button in toolbar
     printlog "Export using Button in toolbar"
-    '///+ use the settings from the export before
     printlog " use the settings from the export before"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '---------------------------------------------------------  Output the fourth file  -------------------------------------------------------------
+    printlog "----------------------  Output the fourth file  -----------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 4, TRUE, FALSE, 2, 1) ' button in toolbar -> last settings have to be used
 
-    '###### all / Print optimized ######
-    '/// File->Export as PDF document
     printlog "File->Export as PDF document"
-    '///+ range = all
     printlog " range = all"
-    '///+ compression = Print optimized
     printlog " compression = Print optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '------------------------------------------------------------  Output the fifth file  --------------------------------------------------------------
+    printlog "-----------------------------  Output the fifth file  ------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 5, TRUE, FALSE, 1, 2)
 
-    '/// Export using Button in toolbar
     printlog "Export using Button in toolbar"
-    '///+ use the settings from the export before
     printlog " use the settings from the export before"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '-----------------------------------------------------------  Output the sixth file  ---------------------------------------------------------------
+    printlog "----------------------  Output the sixth file  -------------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 6, TRUE, FALSE, 1, 2) ' button in toolbar -> last settings have to be used
 
-    '###### range / Print optimized ######
-    '/// File->Export as PDF document
     printlog "File->Export as PDF document"
-    '///+ range = Range
     printlog " range = Range"
-    '///+ compression = Screen optimized
     printlog " compression = Screen optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '---------------------------------------------------------  Output the seventh file  -------------------------------------------------------------
+    printlog "------------------  Output the seventh file  ---------------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 7, TRUE, FALSE, 2, 2, "2")
 
-    '/// Export using Button in toolbar
     printlog "Export using Button in toolbar"
-'    '///+ use the settings from the export before
     printlog " use the settings from the export before"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '------------------------------------------------------------  Output the eight file  ----------------------------------------------------------------
+    printlog "----------------------  Output the eight file  -------------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 8, TRUE, FALSE, 2, 2) ' button in toolbar -> last settings have to be used
 
-    '###### all / Press optimized ######
-    '/// File->Export as PDF document ///'
-    printlog "File->Export as PDF document ///'"
-    '///+ range = all
+    printlog "File->Export as PDF document"
     printlog " range = all"
-    '///+ compression = Press optimized
     printlog " compression = Press optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '------------------------------------------------------------  Output the ninth file  ----------------------------------------------------------------
+    printlog "-------------------  Output the ninth file  ----------------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 9, TRUE, FALSE, 1, 3)
-    '/// Export using Button in toolbar
-    '///+ use the settings from the export before
-
+    printlog "Export using Button in toolbar"
+    printlog "use the settings from the export before"
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '------------------------------------------------------------  Output the tenth file  ----------------------------------------------------------------
+    printlog "-------------------------  Output the tenth file  ----------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 10, TRUE, FALSE, 1, 3) ' button in toolbar -> last settings have to be used
 
-    '###### range / Press optimized ######
-    '/// File->Export as PDF document ///'
-    printlog "File->Export as PDF document ///'"
-    '///+ range = all
+    printlog "File->Export as PDF document"
     printlog " range = all"
-    '///+ compression = Press optimized
     printlog " compression = Press optimized"
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '-----------------------------------------------------------  Output the eleventh file  -------------------------------------------------------------
+    printlog "-----------------  Output the eleventh file  ---------------------"
 
     hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 11, TRUE, FALSE, 2, 3, "2")
-    '/// Export using Button in toolbar
-    '///+ use the settings from the export before
-
+    printlog "Export using Button in toolbar"
+    printlog "use the settings from the export before"
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '-------------------------------------------------------------  Output the twelfth file  --------------------------------------------------------------
+    printlog "------------------  Output the twelfth file  ---------------------"
 
     hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 12, TRUE, FALSE, 2, 3) ' button in toolbar -> last settings have to be used
-
     kontext "Standardbar"
     checkexppdfwaitmax10sec
 
-    '-----------------------------------------------------------------------------------------------------------------------------------------------------------------
+    '---------------------------------------------------------------------------
 
     for i=1 to 12
         sPath = OutputGrafikTBO
         Printlog (" - " + i + ": " + " " + iFileSize(i) + " " + sPath
         if (dir(sPath) <> "") then
             sleep(1)
-            '/// the first line has to be '%PDF-1.4' ///'
+            printlog " the first line has to be %PDF-1.4"
             sTemp = fGetFileText(sPath, 8)
             if (sTemp <> "%PDF-1.4") then
                 Warnlog "File doesn't start with '%PDF-1.4' it is: '" + sTemp + "'"
             endif
-            '/// the last line has to be '%%EOF' ///'
+            printlog "the last line has to be '%%EOF' "
             sTemp = left(fGetFileText(sPath, -6),5)
             if (sTemp <> "%%EOF") then
                 Warnlog "File doesn't end with '%%EOF' it is: '" + sTemp + "'"
         endif
     next i
 
-    ' Check if the file size is the same when exporting via toolbar and file/export
-    ' if the size different then the options are not used when exporting via the toolbar
+    printlog "Check if the file size is the same when exporting via toolbar and file/export"
+    printlog "if the size is different then the options are not used when exporting via the toolbar"
     if (iFileSize(1) <> iFileSize(2)) then
         qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
         'Warnlog ("Diffrence in filesize for file 1 and 2")
     endif
-    ' print optimized
     if (iFileSize(5) <> iFileSize(6)) then
         qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
         'Warnlog ("Difference in filesize for file 5 and 6")
     endif
-    ' press optimized
     if (iFileSize(9) <> iFileSize(10)) then
         qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
         'Warnlog ("Difference in filesize for file 9 and 10")
     endif
 
-    
-
     if (iFileSize(1) > iFileSize(5)) then
     qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
         'Warnlog ("Filesize for file 1 is greater then for file 5. The compression level doesn't work.")
 '-------------------------------------------------------------------------
 
 function fGetFileText (sFilename as string, iCount as long) as string
-'/// This function is for getting  the first or last n characters of a file
-'///+<u>Input</u>:<ul><li>filename</li><li>number</li></ul>If the number greater 0 then get n characters from start.
-'///+A number smaller 0 get from end of file.
-'///+<u>Output</u>:<ul><li>string with <b><i>n</i></b> characters</li></ul>
+    printlog "This function is for getting  the first or last n characters of a file"
+    printlog "Input:filename number If the number greater 0 then get n characters from start."
+    printlog "number smaller 0 get from end of file."
+    printlog "Output:string with characters"
 
-   dim iFile as integer ' filehandle
-   dim iTem as integer  ' get 2 bytes of the file
-   dim iTemByte(2) as integer ' move 1 byte from iTem in each item
-   dim sTemp as string   ' string of file
-   dim iSize as long  ' size in bytes of file
-   dim i as long      ' runner :-)
+    dim iFile as integer ' filehandle
+    dim iTem as integer  ' get 2 bytes of the file
+    dim iTemByte(2) as integer ' move 1 byte from iTem in each item
+    dim sTemp as string   ' string of file
+    dim iSize as long  ' size in bytes of file
+    dim i as long      ' runner :-)
 
-   iFile = FreeFile
-'   Printlog "FreeFile: " + iFile
-   if (dir (sFilename) <> "") then
-'      Printlog "FileLen: " + FileLen(sFile)
-      Open sFilename For binary access read shared As #iFile
-'      Printlog "Loc: " + Loc(#iFile)  ' LONG! where am i in the file?
+    iFile = FreeFile
+    Printlog "FreeFile: " + iFile
+    if (dir (sFilename) <> "") then
+        Printlog "FileLen: " + FileLen(sFile)
+        Open sFilename For binary access read shared As #iFile
+        Printlog "Loc: " + Loc(#iFile)  ' LONG! where am i in the file?
 
-      iSize = Lof(#iFile) ' get size in bytes of file
-      if (iSize > 65530) then '65536 = 64kB
-         'Warnlog "fGetFileText: file '" + sFilename + "' might get problems on reading it? size is > 65530 Byte: '" + iSize + "'"
-      else
-'         printlog "iSize: " + iSize
-      endif
+        iSize = Lof(#iFile) ' get size in bytes of file
+            if (iSize > 65530) then '65536 = 64kB
+                'Warnlog "fGetFileText: file '" + sFilename + "' might get problems on reading it? size is > 65530 Byte: '" + iSize + "'"
+            else
+                printlog "iSize: " + iSize
+            endif
 
       sTemp = ""
       if (iCount >= 0) then   ' get bytes from file start
             sTemp = chr(iTemByte(1)) + chr(iTemByte(2)) + sTemp  ' put them together
          endif
        endif
-'      printlog "'"+left(sTemp,iSize)+"'"  ' gotcha!
+      printlog "'"+left(sTemp,iSize)+"'"  ' gotcha!
 
       if (iSize-(Abs(iCount)) >= 0) then
          fGetFileText = left(sTemp,Abs(iCount))

testautomation/graphics/optional/includes/global/g_area.inc

     Dim Zaehler
     dim Entf$
 
-   hNewDocument            '/// New impress document ///'
-   hRechteckErstellen (20,20,60,60)         '/// create rectangle ///'
-   Printlog "  - Change Format"          '/// change format for the rectangle ///'
-   FormatArea
-   Kontext
-   active.SetPage TabArea
-   Kontext "TabArea"
-   FillOptions.Select 5  '/// apply bitmap as texture ///'
-   BitmapList.Select 3   '/// Select "Water" ///'
-   Tile.Check            '/// tile bitmap ///'
-   Kontext
-   active.SetPage TabSchatten
-   kontext "TabSchatten"
-   Anzeigen.Check           '/// apply shadow ///'
-   Entfernung.SetText "30"          '/// set angle to 30���///'
-   Entf$=Entfernung.GetText          '/// change distance ///'
-   Farbe.Select 15           '/// select color 15///'
-   TabSchatten.OK           '/// close dialog ///'
-   Sleep 3
+    printlog "New impress document "
+    hNewDocument
+    printlog "create rectangle "
+    hRechteckErstellen (20,20,60,60)
+    Printlog "  - Change Format"
+    printlog "change format for the rectangle "
+    FormatArea
+    Kontext
+    active.SetPage TabArea
+    Kontext "TabArea"
+    printlog "apply bitmap as texture "
+    FillOptions.Select 5
+    printlog "Select Water "
+    BitmapList.Select 3
+    printlog "tile bitmap "
+    Tile.Check
+    Kontext
+    active.SetPage TabSchatten
+    kontext "TabSchatten"
+    printlog "apply shadow "
+    Anzeigen.Check
+    printlog "set angle to 30���"
+    Entfernung.SetText "30"
+    printlog "change distance "
+    Entf$=Entfernung.GetText
+    printlog "select color 15"
+    Farbe.Select 15
+    printlog "close dialog "
+    TabSchatten.OK
+    Sleep 3
 
-  Printlog "  - Test various formats"
-   FormatArea            '/// Format area, check if changes are saved for this object ///'
-   Kontext
-   active.SetPage TabArea
-   Kontext "TabArea"
-   if NOT FillOptions.GetSelIndex = 5 then
-      Warnlog "Bitmap is not checked"
-   else
-      if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
-      if NOT Tile.IsChecked then Warnlog "Tile is not checked"
-'      if Original.IsChecked then Warnlog "Original is not checked"
-'      if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
-'      if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is:  "+Breite.GetText
-'      if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is:  "+XOffset.GetText
-'      if NOT Zeile.IsChecked then Warnlog "Line is not checked"
-'      if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is:  " + Verschiebung.GetText
-      Kontext
-      active.SetPage TabSchatten
-      kontext "TabSchatten"
-      if NOT Anzeigen.IsChecked then
-         Warnlog "Show shadows is not checked"
-      else
-         if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
-         if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
-      end if
-  end if
+    Printlog "  - Test various formats"
+    printlog "Format area, check if changes are saved for this object "
+    FormatArea
+    Kontext
+    active.SetPage TabArea
+    Kontext "TabArea"
+    if NOT FillOptions.GetSelIndex = 5 then
+        Warnlog "Bitmap is not checked"
+    else
+        if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
+        if NOT Tile.IsChecked then Warnlog "Tile is not checked"
+        '      if Original.IsChecked then Warnlog "Original is not checked"
+        '      if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
+        '      if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is:  "+Breite.GetText
+        '      if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is:  "+XOffset.GetText
+        '      if NOT Zeile.IsChecked then Warnlog "Line is not checked"
+        '      if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is:  " + Verschiebung.GetText
+            Kontext
+            active.SetPage TabSchatten
+            kontext "TabSchatten"
+                if NOT Anzeigen.IsChecked then
+                Warnlog "Show shadows is not checked"
+            else
+            if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
+            if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
+            end if
+            end if
    TabSchatten.Cancel
-
-   hCloseDocument              '/// close document ///'
+   printlog "close document "
+   hCloseDocument              
     
 endcase 'tiFormatArea
 '--------------------------------------------------------
 testcase tdFormatArea1
 
-Dim i
-Dim j
-Dim k
-Dim m
-Dim n
-Dim Winkel_1 as string
-Dim ZaehlerFarbe
-Dim ZaehlerVerlauf
-Dim ZaehlerSchraffur
-Dim ZaehlerBitmap
-Dim ColorName$
+    Dim i
+    Dim j
+    Dim k
+    Dim m
+    Dim n
+    Dim Winkel_1 as string
+    Dim ZaehlerFarbe
+    Dim ZaehlerVerlauf
+    Dim ZaehlerSchraffur
+    Dim ZaehlerBitmap
+    Dim ColorName$
     ColorName$ = "Bullshit"
-  dim Zaehler as integer
+    dim Zaehler as integer
 
- Call hNewDocument         '/// new document ///'
-  sleep 3
-  Call hRechteckErstellen (30,30,70,70)       '/// create rectangle ///'
-  sleep 2
-  FormatArea          '/// format area ///'
-  Kontext
-  Active.SetPage TabArea
-  Kontext "TabArea"
-  FillOptions.Select 1         '/// Select no fill ///'
-  sleep 2
-  TabArea.OK
-  sleep 1
-  FormatArea
-  Kontext
-  Active.SetPage TabArea
-  Kontext "TabArea"
-  sleep 1          '/// control if changes are still there after closing and reopening dialog ///'
-  FillOptions.Select 3'/// check gradient and select 1 ///'
-  ZaehlerVerlauf = GradientList.GetItemCount
-   for j = 1 To 2
-    GradientList.Select j
-       TabArea.OK
-       FormatArea
-       Kontext
-       Active.SetPage TabArea
-       Kontext "TabArea"
-       PrintLog GradientList.GetSelText
-   next j
-  FillOptions.Select 4         '/// select hatching, control after closing and reopening dialog if changes are recognized ///'
-  HatchingList.GetItemCount
-  ZaehlerSchraffur = HatchingList.GetItemCount
-   for k=1 to 2'ZaehlerSchraffur
-       HatchingList.Select k
-       TabArea.OK
-       FormatArea
-       Kontext
-       Active.SetPage TabArea
-       Kontext "TabArea"
-       PrintLog HatchingList.GetSelText
+    printlog "new document "
+    Call hNewDocument
+    sleep 3
+    printlog "create rectangle "
+    Call hRechteckErstellen (30,30,70,70)
+    sleep 2
+    printlog "format area "
+    FormatArea
+    Kontext
+    Active.SetPage TabArea
+    Kontext "TabArea"
+    printlog "Select no fill "
+    FillOptions.Select 1
+    sleep 2
+    TabArea.OK
+    sleep 1
+    FormatArea
+    Kontext
+    Active.SetPage TabArea
+    Kontext "TabArea"
+    sleep 1
+    printlog "control if changes are still there after closing and reopening dialog "
+    printlog "check gradient and select 1 "
+    FillOptions.Select 3'
+    ZaehlerVerlauf = GradientList.GetItemCount
+    for j = 1 To 2
+        GradientList.Select j
+        TabArea.OK
+        FormatArea
+        Kontext
+        Active.SetPage TabArea
+        Kontext "TabArea"
+        PrintLog GradientList.GetSelText
+    next j
+    printlog "select hatching, control after closing and reopening dialog if changes are recognized "
+    FillOptions.Select 4
+    HatchingList.GetItemCount
+    ZaehlerSchraffur = HatchingList.GetItemCount
+    for k=1 to 2'ZaehlerSchraffur
+        HatchingList.Select k
+        TabArea.OK
+        FormatArea
+        Kontext
+        Active.SetPage TabArea
+        Kontext "TabArea"
+        PrintLog HatchingList.GetSelText
   next k
 
-  FillOptions.Select 5          '/// check bitmap, control if changes are permanent after closing and reopening dialog ///'
-  BitmapList.GetItemCount
-  ZaehlerBitmap = BitmapList.GetItemCount
-   for n=1 to ZaehlerBitmap
-       BitmapList.Select n
-       TabArea.OK
-       FormatArea
-       sleep 1
-       Kontext
-       Active.SetPage TabArea
-       Kontext "TabArea"
-       PrintLog BitmapList.GetSelText
-   next n
+    printlog "check bitmap, control if changes are permanent after closing and reopening dialog "
+    FillOptions.Select 5
+    BitmapList.GetItemCount
+    ZaehlerBitmap = BitmapList.GetItemCount
+    for n=1 to ZaehlerBitmap
+        BitmapList.Select n
+        TabArea.OK
+        FormatArea
+        sleep 1
+        Kontext
+        Active.SetPage TabArea
+        Kontext "TabArea"
+        PrintLog BitmapList.GetSelText
+    next n
 
-  if Tile.IsChecked = False Then Tile.Check      '/// check tile ///'
-'  if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
-'  if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
-'  if Relativ.IsChecked = False Then
-'     SetClipboard Breite.GetText
-'     Relativ.Check
-'   If Breite.GetText = GetClipboardText Then
-'   WarnLog "  Relative isnt working"
-'   else
-'   PrintLog "   Relative works"
-'   end if
-'  end if
-'
-'  if Kacheln.IsChecked = True Then Kacheln.UnCheck
-'  Anpassen.Check
-'  if Relativ.IsEnabled = True Then WarnLog "   Option Anpassen konnte nicht aktiviert werden"
-'  if not Relativ.IsEnabled Then PrintLog "   Option Anpassen funktioniert"
-'  Anpassen.Uncheck
-'  Original.Check
-'  if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog "   Button Original funktioniert nicht"
-'  if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog "   Button Original funktioniert"
-'  Kacheln.Check
-'  setClipboard XOffset.GetText
-'  XOffset.More 3
-'  if XOffset.GetText <> GetClipboardText Then PrintLog "   Position XOffset funktioniert"
-'  if XOffset.GetText = GetClipboardText Then WarnLog "    Position XOffset funktioniert nicht"
-'  SetClipboard YOffset.GetText
-'  YOffset.More 5
-'  if YOffset.GetText <> GetClipboardText Then PrintLog "   Position YOffset funktioniert"
-'  if YOffset.GetText = GetClipboardText Then WarnLog "    Position YOffset funktioniert nicht"
-'  PrintLog "        TabArea fertig"
-  Kontext
-  Active.SetPage TabSchatten
-  Kontext "TabSchatten"
-   sleep 1
-  if Anzeigen.IsChecked = True Then Anzeigen.UnCheck     '/// uncheck shadow ///'
-   sleep 1
-  if Entfernung.IsEnabled = False Then        '/// check if shadow related controls are disabled with no shadow ///'
-     PrintLog "   Show shadow works"
-  else
-     WarnLog "   Show shadow does not work"
-  end if
+    printlog "check tile "
+    if Tile.IsChecked = False Then Tile.Check
+    '  if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
+    '  if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
+    '  if Relativ.IsChecked = False Then
+    '     SetClipboard Breite.GetText
+    '     Relativ.Check
+    '   If Breite.GetText = GetClipboardText Then
+    '   WarnLog "  Relative isnt working"
+    '   else
+    '   PrintLog "   Relative works"
+    '   end if
+    '  end if
+    '
+    '  if Kacheln.IsChecked = True Then Kacheln.UnCheck
+    '  Anpassen.Check
+    '  if Relativ.IsEnabled = True Then WarnLog "   Option Anpassen konnte nicht aktiviert werden"
+    '  if not Relativ.IsEnabled Then PrintLog "   Option Anpassen funktioniert"
+    '  Anpassen.Uncheck
+    '  Original.Check
+    '  if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog "   Button Original funktioniert nicht"
+    '  if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog "   Button Original funktioniert"
+    '  Kacheln.Check
+    '  setClipboard XOffset.GetText
+    '  XOffset.More 3
+    '  if XOffset.GetText <> GetClipboardText Then PrintLog "   Position XOffset funktioniert"
+    '  if XOffset.GetText = GetClipboardText Then WarnLog "    Position XOffset funktioniert nicht"
+    '  SetClipboard YOffset.GetText
+    '  YOffset.More 5
+    '  if YOffset.GetText <> GetClipboardText Then PrintLog "   Position YOffset funktioniert"
+    '  if YOffset.GetText = GetClipboardText Then WarnLog "    Position YOffset funktioniert nicht"
+    '  PrintLog "        TabArea fertig"
+    Kontext
+    Active.SetPage TabSchatten
+    Kontext "TabSchatten"
+    sleep 1
+    printlog "uncheck shadow "
+    if Anzeigen.IsChecked = True Then Anzeigen.UnCheck
+        sleep 1
+        printlog "check if shadow related controls are disabled with no shadow "
+    if Entfernung.IsEnabled = False Then
+        PrintLog "   Show shadow works"
+    else
+        WarnLog "   Show shadow does not work"
+    end if
 
-  Anzeigen.Check         '/// check shadow ///'
-  SetClipboard Entfernung.GetText       '/// change distance ///'
-  Entfernung.More 4
-  if GetClipboardText = Entfernung.GetText Then
-     WarnLog "   Distance does not work"
-  else
-     PrintLog "   Distance does work"
-  end if
-  Farbe.Select 5         '/// change shadow color ///'
+    printlog "check shadow "
+    Anzeigen.Check
+    printlog "change distance "
+    SetClipboard Entfernung.GetText
+    Entfernung.More 4
+    if GetClipboardText = Entfernung.GetText Then
+        WarnLog "   Distance does not work"
+    else
+        PrintLog "   Distance does work"
+    end if
+    printlog "change shadow color "
+    Farbe.Select 5
 
-  Kontext
-  Active.SetPage TabFarben
-  Kontext "TabFarben"
-  Farbe.Select 24
-   sleep 1
-  Farbe.Select 18
-   sleep 1
-  Farbe.Select 7
-  Farbname.SetText "Bullshit"       '/// change color ///'
-  Aendern.Click
-   sleep 1
-  TabFarben.OK
-  FormatArea
-  Kontext
-  Active.SetPage TabArea
-  Kontext "TabArea"
-  FillOptions.Select 2
-  if ColourList.GetSelText = "Bullshit" Then
-     PrintLog " Color selection changed "
-  else
-     WarnLog " Color selection not changed"
-  end if
-  Kontext
-  Active.SetPage TabFarben
-  Kontext "TabFarben"
-  Farbmodell.Select 1
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    Farbe.Select 24
+    sleep 1
+    Farbe.Select 18
+    sleep 1
+    Farbe.Select 7
+    printlog "change color "
+    Farbname.SetText "Bullshit"
+    Aendern.Click
+    sleep 1
+    TabFarben.OK
+    FormatArea
+    Kontext
+    Active.SetPage TabArea
+    Kontext "TabArea"
+    FillOptions.Select 2
+    if ColourList.GetSelText = "Bullshit" Then
+        PrintLog " Color selection changed "
+    else
+        WarnLog " Color selection not changed"
+    end if
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    Farbmodell.Select 1
 
- Kontext
- Active.SetPage TabFarben        '/// test RGB color model ///'
- Kontext "TabFarben"
- Farbmodell.Select 1        '/// switch to RGB values ///' ' 33:RVB,CMJN
- printlog "   Selected colourmodel RGB?: "+Farbmodell.GetSelText
-   if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
- try
-   R.SetText "50"
-   G.SetText "10"
-   B.SetText "90"
- catch
-   warnlog "RGB text fields are not enabled :-("
- endcatch
- Aendern.Click
- TabFarben.OK
- Kontext "DocumentDraw"
- FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
-    PrintLog "Changes in RGB done"
- else
-    WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90  it is " +R.GetText + " " + G.GetText + " " + B.GetText
- end if
- Farbe.Select 10
- FarbName.SetText "Brighter"        '/// add a color ///'
- Hinzufuegen.Click
- Farbe.Select "Brighter"
- Loeschen.Click          '/// delete color ///'
- Kontext "Active"
- Active.Yes
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Bearbeiten.Click         '/// edit color ///'
- Kontext  "FarbeDlg"
- FarbeDlg.OK
- sleep 2
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
- FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
+    Kontext
+    printlog "test RGB color model "
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    printlog "switch to RGB values " ' 33:RVB,CMJN
+    Farbmodell.Select 1
+    printlog "   Selected colourmodel RGB?: "+Farbmodell.GetSelText
+    if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
+        try
+        R.SetText "50"
+        G.SetText "10"
+        B.SetText "90"
+    catch
+        warnlog "RGB text fields are not enabled :-("
+    endcatch
+    Aendern.Click
+    TabFarben.OK
+    Kontext "DocumentDraw"
+    FormatArea
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
+        PrintLog "Changes in RGB done"
+    else
+        WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90  it is " +R.GetText + " " + G.GetText + " " + B.GetText
+    end if
+    Farbe.Select 10
 
- FormatArea
- Kontext
- Active.SetPage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
- TabFarbverlaeufe.OK
- sleep 2
+    FarbName.SetText "Brighter"
+    printlog "add a color "
+    Hinzufuegen.Click
+    Farbe.Select "Brighter"
+    printlog "delete color "
+    Loeschen.Click
+    Kontext "Active"
+    Active.Yes
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    printlog "edit color "
+    Bearbeiten.Click
+    Kontext  "FarbeDlg"
+    FarbeDlg.OK
+    sleep 2
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    TabFarben.OK
+    FormatArea
+    Kontext
+    Active.SetPage TabFarben
+    Kontext "TabFarben"
+    TabFarben.OK
 
-FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- KeineTransparenz.Check         '/// check if controls are disabled if transparence is disabled ///'
+    FormatArea
+    Kontext
+    Active.SetPage TabFarbverlaeufe
+    Kontext "TabFarbverlaeufe"
+    TabFarbverlaeufe.OK
+    sleep 2
+
+    FormatArea
+    sleep 2
+    Kontext
+    Active.SetPage TabTransparenz
+    Kontext "TabTransparenz"
+    printlog "check if controls are disabled if transparence is disabled "
+    KeineTransparenz.Check
     Printlog "- No transparency is checked, all controls should be disabled."
-  if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
-  if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
-  if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
-  if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
-  if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
-  if MFRand.IsEnabled Then Warnlog "- Border enabled"
-  if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
-  if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+    if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
+    if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
+    if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
+    if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
+    if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+    if MFRand.IsEnabled Then Warnlog "- Border enabled"
+    if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+    if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
 
- LineareTransparenz.Check        '/// check linear tranparency ///'
-    Printlog "- Set transparency to linear, all controls should be enabled now"  '/// control if related controls are now enabled ///'
-  sleep 1
-  MFLinTransparenz.ToMax        '/// change values of controls ///'
-   if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
-  MFLinTransparenz.ToMin
-   if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
-   if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
-   if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
-   if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
-   if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
-   if MFRand.IsEnabled Then Warnlog "- Border enabled"
-   if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
-   if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+    printlog "check linear tranparency "
+    LineareTransparenz.Check
+    Printlog "- Set transparency to linear, all controls should be enabled now"
+    sleep 1
+    printlog "change values of controls "
+    MFLinTransparenz.ToMax
+    if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
+    MFLinTransparenz.ToMin
+    if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
+    if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
+    if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
+    if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
+    if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+    if MFRand.IsEnabled Then Warnlog "- Border enabled"
+    if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+    if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
 
- Transparenzverlauf.Check
+    Transparenzverlauf.Check
     Printlog "- Gradient for transprency enabled"
-  if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
-  if TransparenzverlaufTyp.IsEnabled = "false"  Then Warnlog "- Gradient disabled"
-  if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
-  if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
-  if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
-  if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
-  if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
-  if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
+    if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
+    if TransparenzverlaufTyp.IsEnabled = "false"  Then Warnlog "- Gradient disabled"
+    if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
+    if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
+    if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
+    if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
+    if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
+    if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
 
     Printlog "- Check if changed values are saved"
 
-  Zaehler=TransparenzverlaufTyp.GetItemCount
-  for i=1 to Zaehler
-      TransparenzverlaufTyp.Select i
-      SetClipboard Transparenzverlauftyp.GetSelText
-      TabTransparenz.OK
-     sleep 2
+    Zaehler=TransparenzverlaufTyp.GetItemCount
+    for i=1 to Zaehler
+        TransparenzverlaufTyp.Select i
+        SetClipboard Transparenzverlauftyp.GetSelText
+        TabTransparenz.OK
+        sleep 2
+        FormatArea
+        sleep 1
+        Kontext
+        printlog "check if values are saved after closing and reopening dialog "
+        Active.SetPage TabTransparenz
+        Kontext "TabTransparenz"
+        if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
+    next i
+    TransparenzverlaufTyp.Select 2
+    if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
+    if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
+    MFWinkel.SetText "45"
+    Winkel_1 = MFWinkel.GetText
+    TabTransparenz.OK
+    sleep 2
     FormatArea
-     sleep 1
-      Kontext
-      Active.SetPage TabTransparenz        '/// check if values are saved after closing and reopening dialog ///'
-      Kontext "TabTransparenz"
-       if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
-   next i
-  TransparenzverlaufTyp.Select 2
-   if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
-   if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
-   MFWinkel.SetText "45"
-   Winkel_1 = MFWinkel.GetText
-   TabTransparenz.OK
-   sleep 2
-   FormatArea
-   sleep 2
-   Kontext
-   Active.SetPage TabTransparenz
-   Kontext "TabTransparenz"
+    sleep 2
+    Kontext
+    Active.SetPage TabTransparenz
+    Kontext "TabTransparenz"
     if TransparenzverlaufTyp.GetSelIndex <>2 Then
-       Warnlog "- Second menu-item is not choosen"
+        Warnlog "- Second menu-item is not choosen"
     end if
     TransparenzverlaufTyp.Select 3
-     if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
-     if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
-     if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
+    if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
+    if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
+    if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
     sleep 1
     MFZentrumX.SetText "30"
     MFZentrumY.SetText "30"
     Kontext
     Active.SetPage TabTransparenz
     Kontext "TabTransparenz"
-     if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
-     if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
+    if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
+    if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
     MFRand.SetText "10"
     MFStartwert.SetText "20"
     MFEndwert.SetText "30"
     Kontext
     Active.SetPage TabTransparenz
     Kontext "TabTransparenz"
-     if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
-     if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
-     if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
+    if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
+    if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
+    if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
     TabTransparenz.OK
 
- Call hCloseDocument          '/// close document ///'
+    printlog "close document "
+    Call hCloseDocument
 
 endcase 'tdFormatArea1
 

testautomation/graphics/optional/includes/global/g_arrangealign.inc

 '\******************************************************************************
 testcase tiDatei_Fuer_Anordnen_Erstellen
 
-   dim sTemp as string
-   dim i as integer
-   dim zaehler as integer
-   '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///'
-   '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ ///
-   call hNewDocument
+    dim sTemp as string
+    dim i as integer
+    dim zaehler as integer
+    '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///'
+    '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ ///
+    call hNewDocument
+    if gApplication = "DRAW" then
+        kontext "DocumentDraw"
+        DocumentDraw.UseMenu
+    else
+        kontext "DocumentImpress"
+        DocumentImpress.UseMenu
+    end if
+    
+    hMenuSelectNr(4)
+    hMenuSelectNr(13)
     call sSelectEmptyLayout								'/// new document  ///'
    if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
    for Zaehler = 1 to 3									'/// create 3 overlapping objects  ///'

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
 
-'-------------------------------------------------------------------------------
+'-------------------------------------------------------------------------------

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

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

     dim sTestfile as string
     dim sLocaltestfile as string
     
-    if ( gApplication = "IMPRESS" ) then
+    if (gApplication = "IMPRESS") then
         ExtensionString = "odp"
     else
         ExtensionString = "odg"
     Kontext "TabPositionAndSize"
     printlog "defining variable for original position of object"
     Ueber_Text_1=PositionX.GetText
+    printlog "Position X is: " & Ueber_Text_1
     printlog "Canceling dialog."
     TabPositionAndSize.Cancel
     sleep 2
     Kontext
     Messagebox.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
-    if PositionX=0 Then Warnlog "Command was not completely executed, and it could not be undone."
+    printlog "Position X is: " & PositionX.GetText
+    if (PositionX.GetText)=0 Then Warnlog "Command was not completely executed, and it could not be undone."
     TabPositionAndSize.Cancel
     sleep 2
     gMouseClick 60,60
     sleep 1
+
     printlog "Edit Undo for BringBackward"
-    EditUndo
+    EditUndo							
     Sleep 2
     gMouseClick 60,60
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
     printlog "Again checking position using Position and Size dialog"
-    ContextPositionAndSize
+    ContextPositionAndSize					
     kontext
     Messagebox.SetPage TabPositionAndSize
     kontext "TabPositionAndSize"
     endif
     Call hCloseDocument	
 
-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 ///'