Commits

Anonymous committed d41e5ac

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

Comments (0)

Files changed (7)

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 " 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
+    DocumentImpress.UseMenu
+    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_demoguide.inc

     catch
         Warnlog "Insert graphic doesn't work"
     endcatch
-    
+    sleep 5
+
     '///Resize object 
     printlog "Resize object"
     Kontext "DocumentImpress"
     wait(20000)
     Kontext "AvailableForUsePreview"
     AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
-    sleep (5)
+    sleep (10)
     printlog "    Verify that the background has changed"
     Kontext "DocumentImpress"
     printlog "    Background is " & DocumentImpress.StatusGetText (6)     'Debugcode
     Kontext "Tasks"
     Kontext "AvailableForUsePreview"
     AvailableForUsePreview.TypeKeys "<HOME> <RETURN>"
-    sleep (5)
+    sleep (10)
     Kontext "DocumentImpress"
     if DocumentImpress.StatusGetText (6) = sTemplatename then
             printlog "    The background has been set back to default"
      endif
      Printlog "    Verify that the slide was moved correctly"
      Kontext "Slides"
+     sleep (5)
      SlidesControl.TypeKeys "<PAGEUP>"
      SlidesControl.TypeKeys "<SHIFT F10>"
      if hMenuFindSelect(27268, true, 3) = false then

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

 
     WaitSlot (1000)
     hTypeKeys "<SHIFT F10>"   'OpenContextMenu(true)
-    sleep (3)
+    sleep (2)
     hMenuSelectNr(2)  ' Connector
+    sleep (1)
     Kontext "Verbinder"
         Typ.Select 2 ' the one with 2 from 3 posibilities to set a value...
    Sleep (1)

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

     case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
     case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv."         : Fehler$ = "Detd"         : Sprachenname$ = "Schwedisch"
     case 49 : FehlerText$ = "Diees ist ein Fehler."                         : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
-    case 50 : FehlerText$ = "Toje napaka, ker manjka presledek."            : Fehler$ = "Toje" : Sprachenname$ = "Slovenš�?ina"
+    case 50 : FehlerText$ = "Toje napaka, ker manjka presledek."            : Fehler$ = "Toje" : Sprachenname$ = "Slovenš�?ina"
     case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
     case else :
         if bAsianLan then
     Dim iWordCounter as integer
     Dim iBooks as integer
 
-    Select Case Ucase(gApplication)
-    case "DRAW"         : sExt = ".odg"
-    case "IMPRESS"      : sExt = ".odp"
-    end select
-
-    printlog "Load prepared document containing 4 errors : graphics\\required\\input\\recht_" & iSprache & sExt
-    if (not bAsianLan) then
-        printlog "Check if the document is writable."
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-    else
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_1"+sExt)
-    end if
-    if fIsDocumentWritable = false then
-        printlog "Make the document writable and check if it's succesfull."
-        if fMakeDocumentWritable = false then
-            warnlog "The document can't be make writeable. Test stopped."
-            goto endsub
-        end if
-    end if
-    select case iSprache  ' sWord(1)=red     : sWord(2)=turquoise
-    case 01 : sWord(1) = "documente"     : sWord(2) = "expriss"
-    case 33 : sWord(1) = "intercu"       : sWord(2) = "Lees"
-    case 34 : sWord(1) = "afekto"        : sWord(2) = "fratternal"
-    case 36 : sWord(1) = "szeerint"       : sWord(2) = "tervvezi"
-    case 39 : sWord(1) = "Millano"       : sWord(2) = "tarrget"
-    case 46 : sWord(1) = "desa"          : sWord(2) = "occh"
-    case 49 : sWord(1) = "Texxt"         : sWord(2) = "reichtt"
-    case 50 : sWord(1) = "Bsedilo"       : sWord(2) = "zados�?a"
-    case 55 : sWord(1) = "esktava"         : sWord(2) = "noitee"
-    case else :
-        if bAsianLan then
-            sWord(1) = "documente"     : sWord(2) = "expriss"
-        else
-            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here and create the file"
-        end if
-    end select
-    sleep 2
-
+    Printlog "Delete the given words from dictionaries."
     printlog "Call Tools->Options."
     ToolsOptions
     printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
     Kontext "BenutzerwoerterbuchBearbeiten"
     sleep 1
     printlog "Check every book, if it contains the words."
-    iBooks = Buch.getItemCount    
+    iBooks = Buch.getItemCount
     for iBookCounter = 1 to iBooks
         Buch.select(iBookCounter)
         printlog "Items in Booklist: " & WordList.getItemCount
     Kontext "ExtrasOptionenDlg"
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
-    
-end function
+
+end function 'delete_all_added_words
+   
 '-------------------------------------------------------------------------------
 function delete_word_from_dictionary(sWord as String, sDictionary as String)
 

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

     Call hNewDocument
     printlog "Switching between Draw/Impress"
     if ( gApplication = "IMPRESS" ) then
+        Kontext "Document Impress"
         DocumentImpress.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(14)
     else
+        Kontext "Document Draw"
         DocumentDraw.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(11)
     printlog "Switching between Draw/Impress"
     if ( gApplication = "IMPRESS" ) then
         DocumentImpress.UseMenu
+        Kontext "Document Impress"
         hMenuSelectNr(4)
         hMenuSelectNr(14)
     else
+        Kontext "Document Draw"
         DocumentDraw.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(11)