automationdev300m89graphics: Local branch merge

19 files changed, 319 insertions, 4961 deletions

diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc
index f4c34ec36795..a5ab31c82cdc 100644
--- a/testautomation/graphics/optional/includes/global/export_graphic.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic.inc
@@ -33,6 +33,9 @@
 
 testcase tEPS
 
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
     dim x as integer
     dim i as integer
 
@@ -96,6 +99,11 @@ endcase 'tEPS
 '-------------------------------------------------------------------------
 testcase tPCT
 
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
@@ -167,83 +175,15 @@ testcase tPCT
         endif
     endif
 
-    printlog "----------3rd: exporting part of the picture and inserting into new file."
-    hTypeKeys ("<escape><tab>")
-    fGetSizeXY sx1, sY, TRUE
-
-    if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then
-
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if ( PCTOptions.Exists( 2 ) ) then
-            hCloseDialog( PCTOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        sOutputFile = OutputGrafikTBO + "1" + sExt
-        if ( hWaitForOutputFile( sOutputFile ) ) then
-            printlog( "Close file and re-insert graphics into new document" )
-            hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file
-        else
-            warnlog( "File was not saved: " & sOutputFile )
-        endif
-
-        bTemp = fGetSizeXY( sx1, sY, bTemp )
-        if (bTemp = FALSE) then
-            warnlog "Selected original size NOT OK :-("
-        endif
-    endif
-
-    hFileReOpen( "" )
-    printlog "----------4th: exporting rectangle and reload file."
-    hRechteckErstellen ( 10, 10, 30, 40 )
-
-    if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then
-
-        Kontext "PCTOptions"
-        printlog( "Export options dialog" )
-        if ( PCTOptions.Exists( 2 ) ) then
-            Exportwidth.SetText "9"
-            if Exportmeasurement.GetSelText = "inches" then
-                sx1 = (Exportwidth.GetText)+ """"
-                printlog "sx1= " & sx1
-            else
-                sx1 = (Exportwidth.GetText)+ "cm"
-            endif
-
-            if Exportmeasurement.GetSelText = "inches" then
-                sY = (Exportheight.GetText)+ """"
-                printlog "sY= " & sY
-            else
-                sY = (Exportheight.GetText)+ "cm"
-            endif
-            hCloseDialog( PCTOptions, "ok" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-
-        sOutputFile = OutputGrafikTBO + "2" + sExt
-
-        if ( not hWaitForOutputFile( sOutputFile ) ) then
-            warnlog( "File was not saved: " & sOutputFile )
-        endif
-
-        printlog( "Reload file if it exists. Warn if not" )
-        hFileReOpen( sOutputFile )
-
-        kontext "DocumentDraw"
-        DocumentDraw.TypeKeys ("<escape><tab>")
-        ContextOriginalSize
-        bTemp = fGetSizeXY( sx1, sY, bTemp )
-        if ( not bTemp ) then warnlog "Selected original size NOT OK :-("
-    endif
-
     call hCloseDocument
 
 endcase 'tPCT
 '-------------------------------------------------------------------------------
 testcase tPBM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PBM - Portable Bitmap (.pbm)"
     const sExt = ".pbm"
@@ -274,6 +214,10 @@ testcase tPBM
 endcase 'tPBM
 '-------------------------------------------------------------------------------
 testcase tPGM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PGM - Portable Graymap (.pgm)"
     const sExt = ".pgm"
@@ -303,6 +247,10 @@ testcase tPGM
 endcase 'tPGM
 '-------------------------------------------------------------------------------
 testcase tPPM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "PPM - Portable Pixelmap (.ppm)"
     const sExt = ".ppm"
@@ -332,6 +280,10 @@ testcase tPPM
 endcase 'tPPM
 '------------------------------------------------------------------------------
 testcase tRAS
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "RAS - Sun Raster Image (.ras)"
     const sExt = ".ras"
@@ -352,6 +304,10 @@ testcase tRAS
 endcase 'tRAS
 '------------------------------------------------------------------------------
 testcase tTIFF
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     dim x as integer
     dim i as integer
@@ -375,6 +331,10 @@ testcase tTIFF
 endcase 'tTIFF
 '------------------------------------------------------------------------------
 testcase tXPM
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "XPM - X PixMap (.xpm)"
     const sExt = ".xpm"
@@ -395,6 +355,10 @@ testcase tXPM
 endcase 'tXPM
 '-------------------------------------------------------------------------------
 testcase tGIF
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "GIF - Graphics Interchange Format (.gif)"
     const sExt = ".gif"
@@ -425,6 +389,10 @@ testcase tGIF
 endcase 'tGIF
 '-------------------------------------------------------------------------------
 testcase tJPEG
+    warnlog( "#i115138# - Test document freezes draw" )
+    goto endsub
+
+
 
     const sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
     const sExt = ".jpg"
diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
index 6aa979a5c3ea..71986e9b94d7 100644
--- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
@@ -32,6 +32,9 @@
 '\******************************************************************************
 testcase tPNG
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
@@ -73,6 +76,10 @@ endcase 'tPNG
 '-------------------------------------------------------------------------------
 testcase tSVM
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
+
     dim x as integer
     dim i as integer
     dim sFilter as string
@@ -238,6 +245,10 @@ endcase 'tSVM
 '-------------------------------------------------------------------------------
 testcase tPDF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
+
     dim sPath as string
     dim sTemp as string
     dim iFileSize(12) as long
@@ -541,6 +552,9 @@ endcase 'tPDF_Creator
 '-------------------------------------------------------------------------------
 testcase tSVG
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim sFilter as string
@@ -606,6 +620,9 @@ endcase 'tSVG
 '-------------------------------------------------------------------------------
 testcase tBMP
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
    dim x as integer
    dim i as integer
    dim bTemp as boolean
@@ -773,6 +790,9 @@ endcase 'tBMP
 '-------------------------------------------------------------------------------
 testcase tEMF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim sFilter as string
@@ -904,6 +924,9 @@ endcase 'tEMF
 '-------------------------------------------------------------------------------
 testcase tMET
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
@@ -1097,6 +1120,9 @@ endcase 'tMET
 '-------------------------------------------------------------------------------
 testcase tSWF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim sFilter as string
     dim sExt as string
     dim x as integer
@@ -1122,6 +1148,9 @@ endcase 'tSWF
 '------------------------------------------------------------------------------
 testcase tWMF
 
+    warnlog( "#i115138 - Loading test document freezes the office" )
+    goto endsub
+
     dim x as integer
     dim i as integer
     dim iWaitIndex as integer
diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc
index 82351b3562e2..0f33c2ef98b5 100644
--- a/testautomation/graphics/optional/includes/global/g_clipboard.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc
@@ -42,57 +42,60 @@
 
 testcase tiEditUndo
 
-    Dim sDatei as string
     Dim Ueber_Text_1 as string
+    dim sTestfile as string
+    dim sLocaltestfile as string
     
-    if (gApplication = "IMPRESS") then 
+    if (gApplication = "IMPRESS") then
         ExtensionString = "odp"
     else
         ExtensionString = "odg"
     end if
     
-    sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-    
-    hFileOpen ConvertPath (sDatei)
-    sleep 5
-    printlog "Checking for readonly state. If so, make it editable."
-    sMakeReadOnlyDocumentEditable
-
+    sTestfile = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
+    printlog "Loading test file.."
+    hFileOpenLocally( sTestfile )
+    sleep 3
+    printlog "Selecting grey rectangle.."
     hTypeKeys "<TAB><TAB>"
     sleep 3
+    printlog "Opening Position and size dialog."
     ContextPositionAndSize
     Kontext
     if Messagebox.exists (5) then
-      Messagebox.SetPage TabPositionAndSize
+        Messagebox.SetPage TabPositionAndSize
     else
-      print "what"
+        printlog "Not the expected Dialog came up. Please check."
     endif
     Kontext "TabPositionAndSize"
     printlog "defining variable for original position of object"
-    Ueber_Text_1=PositionX.GetText				
+    Ueber_Text_1=PositionX.GetText
+    printlog "Canceling dialog."
     TabPositionAndSize.Cancel
     sleep 2
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
-    printlog "Bring Object backward"
-    ContextArrangeBringBackward					
+    printlog "Sending Rectangle backwards."
+    ContextArrangeBringBackward	
     sleep 1
+    printlog "Deselect."
     gMouseClick 60,60
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
+    printlog "trying to select blue rectangle in front"
     hTypeKeys "<TAB><TAB>"
     Kontext "Toolbar"
     Auswahl.Click
     sleep 1
     printlog "Open Position and Size dialog, checking position"
-    ContextPositionAndSize					
+    ContextPositionAndSize
     Kontext
     Messagebox.SetPage TabPositionAndSize
     Kontext "TabPositionAndSize"
-    if PositionX=0 Then Warnlog "  Command was not completely executed, and it could not be undone."
+    if PositionX=0 Then Warnlog "Command was not completely executed, and it could not be undone."
     TabPositionAndSize.Cancel
     sleep 2
     gMouseClick 60,60
@@ -105,6 +108,7 @@ testcase tiEditUndo
     sleep 1
     Kontext "Toolbar"
     Auswahl.Click
+    printlog "Trying to select grey rectangle again."
     hTypeKeys "<TAB><TAB>"
     sleep 1
     Kontext "Toolbar"
@@ -114,12 +118,23 @@ testcase tiEditUndo
     kontext
     Messagebox.SetPage TabPositionAndSize
     kontext "TabPositionAndSize"
+    printlog "Checking if x Position is like ata the start again."
     if PositionX.GetText = Ueber_Text_1 then
       printlog "OK, last order could be redone"
     else
       warnlog "Last order could not be redone"
     end if
     TabPositionAndSize.Cancel
+    printlog "Close document"
+    sLocaltestfile = hFileGetLocalPath( gTesttoolPath + "leer."+ExtensionString )
+    printlog sLocaltestfile
+    if (FileExists (sLocaltestfile)) then
+        app.kill (sLocaltestfile)
+        printlog "Deleting used file."
+    else
+        warnlog "File is missing."
+    endif
+    Call hCloseDocument	
 
     printlog "Close document"
     Call hCloseDocument						
diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc
index 7883b46e5fdd..20264a99ac13 100644
--- a/testautomation/graphics/optional/includes/global/g_demoguide.inc
+++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc
@@ -215,17 +215,15 @@ testcase t_Interoperability
     gApplication   = "IMPRESS"
     
     printlog "Open PowerPoint presentation"
-    hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/dotNetOverview.ppt"))
+    hFileOpenLocally( gTesttoolPath + "graphics/required/input/dotNetOverview.ppt" )
 
-    Call sMakeReadOnlyDocumentEditable
-    
     printlog "Save the name of the origin background (taken from last slide)"
-    Kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<END>"
-    sleep (4)
-    sTemplatename = DocumentImpress.StatusGetText (6)
-    printlog "    Background = " & sTemplatename
-    
+        Kontext "DocumentImpress"
+        DocumentImpress.TypeKeys "<END>"
+        sleep (4)
+        sTemplatename = DocumentImpress.StatusGetText (6)
+        printlog "Background = " & sTemplatename     'Debugcode
+
     printlog "Choose a masterpage from right pane"
     
     Kontext "Tasks"
@@ -245,7 +243,7 @@ testcase t_Interoperability
     sleep (10)
     printlog "Verify that the background has changed"
     Kontext "DocumentImpress"
-    printlog "    Background is " & DocumentImpress.StatusGetText (6)     'Debugcode
+    printlog "Background is " & DocumentImpress.StatusGetText (6)     'Debugcode
     if DocumentImpress.StatusGetText (6) = sTemplatename then
             warnlog "The background is not changed"
         else printlog "    Background has been changed"
@@ -266,17 +264,17 @@ testcase t_Interoperability
     Kontext "DocumentImpress"
     Kontext "Slides"
     Kontext "SlidesControl"
-    SlidesControl.TypeKeys "<Mod1 X>"
+    SlidesControl.OpenContextMenu
+    sleep 1
+    hMenuSelectNr (8)
     Kontext "DocumentImpress"
-    DocumentImpress.TypeKeys "<HOME>"
+    DocumentImpress.TypeKeys "<HOME>", true
     Kontext "Slides"
     Kontext "SlidesControl"
-    SlidesControl.TypeKeys "<Mod1 V>"
-    kontext "InsertPaste"
-     if InsertPaste.Exists(1) then
-        Before.Check
-        InsertPaste.OK
-     endif
+    SlidesControl.OpenContextMenu
+    sleep 1
+    hMenuSelectNr (10)
+
      Printlog "    Verify that the slide was moved correctly"
      Kontext "Slides"
      sleep (5)
@@ -302,10 +300,9 @@ testcase t_Interoperability
     setclipboard("")
     try
         Kontext "DocumentImpressOutlineView"
-        DocumentImpressOutlineView.TypeKeys "<MOD1 HOME><SHIFT END>"
         DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
         sleep (5)
-        if getclipboard() <> ".NET Enterprise" then
+        if getclipboard() <> ".NET Enterprise Federation" then
                 warnlog "Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
             else printlog "Switching to Outlineview was successfull"
         endif
diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc
index a8af431fcaae..4014d79e93a4 100644
--- a/testautomation/graphics/optional/includes/global/g_find_replace.inc
+++ b/testautomation/graphics/optional/includes/global/g_find_replace.inc
@@ -37,9 +37,11 @@
 '\**********************************************************************************
 testcase tiEditSearchAndReplace
     printlog "This test tests the 'Search and Replace' -dialogue."
-    Dim sFile  'as string
-    Dim sExpression(2) as string  ' Expression to look for: ... Replace with
-    dim sExt as string
+    qaerrorlog "#i115121# Find and replace: wrong replacement"
+    goto endsub
+   Dim sFile  'as string
+   Dim sExpression(2) as string  ' Expression to look for: ... Replace with
+   dim sExt as string
 
     Select Case Ucase(gApplication)
         case "DRAW"      : sExt = ".odg"
diff --git a/testautomation/graphics/optional/includes/global/g_paneview.inc b/testautomation/graphics/optional/includes/global/g_paneview.inc
index a2e7bdb87266..fb3620496759 100644
--- a/testautomation/graphics/optional/includes/global/g_paneview.inc
+++ b/testautomation/graphics/optional/includes/global/g_paneview.inc
@@ -78,7 +78,7 @@ testcase tiMinimize_Maximize_Docking_SlidePane
         Sleep 1
         Slides.Size 300, 400
         Sleep 1
-        Slides.Size 150, 250
+        Slides.Size 170, 250
         Sleep 1
         Slides.Size xSize%, ySize%
         Sleep 1
@@ -451,7 +451,7 @@ testcase tdMinimize_Maximize_Docking_Pagepane
         Sleep 1
         Pagepane.Size 300, 400
         Sleep 1
-        Pagepane.Size 150, 250
+        Pagepane.Size 170, 250
         Sleep 1
         Pagepane.Size xSize%, ySize%
         Sleep 1
diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
index 94fd9797b57a..52fe469ad117 100644
--- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc
+++ b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
@@ -56,8 +56,7 @@ testcase tiToolsSpellcheckCheck_AlwaysIgnore
         sExt = ".odp"
     endif
 
-    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-    call fMakeDocumentWritable()
+    Call hFileOpenLocally (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
 
     sleep(1)
 
@@ -256,7 +255,9 @@ testcase tiToolsSpellcheckError
     ' remove the word again from the dictionary
     delete_word_from_dictionary(sWrongWord,"IgnoreAllList")
 
-endcase 'tiToolsSpellcheckCheck
+    kill (convertPath(gOfficePath+"user/work/"+"recht_"+iSprache+sExt))
+endcase 'tiToolsSpellcheckCorrect
+
 '-------------------------------------------------------------------------------
 testcase tiToolsSpellcheckCheck_Change
 
@@ -281,9 +282,7 @@ testcase tiToolsSpellcheckCheck_Change
         sExt = ".odp"
     endif
 
-    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-
-    call fMakeDocumentWritable
+    Call hFileOpenLocally (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
 
     ' Perform the test now:
     printlog "Call Tools->Spellcheck"
@@ -327,8 +326,9 @@ testcase tiToolsSpellcheckCheck_Change
     
     printlog "Close document"
     Call hCloseDocument
+    kill (convertPath(gOfficePath+"user/work/"+"recht_"+iSprache+sExt))
 
-endcase
+endcase 'tiToolsSpellcheckCheck_Change
 '-------------------------------------------------------------------------------
 testcase tiToolsSpellcheckCheck_ChangeAll
 
@@ -355,9 +355,7 @@ testcase tiToolsSpellcheckCheck_ChangeAll
         sExt = ".odp"
     endif
 
-    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-
-    call fMakeDocumentWritable()
+    Call hFileOpenLocally (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
 
     ' Perform the test now:
     printlog "Call Tools->Spellcheck"
@@ -373,9 +371,12 @@ testcase tiToolsSpellcheckCheck_ChangeAll
 
     printlog "Close document"
     Call hCloseDocument
+    kill (convertPath(gOfficePath+"user/work/"+"recht_"+iSprache+sExt))
+
+endcase 'tiToolsSpellcheckCheck_ChangeAll
 
-endcase
 '-------------------------------------------------------------------------------
+
 function delete_all_added_words(aWords)
 
     '/// this function delete the words in sWords in all user dictionaries
@@ -419,10 +420,11 @@ function delete_all_added_words(aWords)
     Kontext "ExtrasOptionenDlg"
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
-
+    
 end function 'delete_all_added_words
-   
+
 '-------------------------------------------------------------------------------
+
 function delete_word_from_dictionary(sWord as String, sDictionary as String)
 
     '/// this function delete the words in sWords in all user dictionaries
@@ -462,7 +464,9 @@ function delete_word_from_dictionary(sWord as String, sDictionary as String)
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
 
-end function
+end function 'delete_word_from_dictionary
+
+'-------------------------------------------------------------------------------
 
 function fSelectWithString(oControl as Object,sText as String)
 
@@ -477,8 +481,9 @@ function fSelectWithString(oControl as Object,sText as String)
         endif
     next
 
-end function
+end function 'fSelectWithString
 
+'-------------------------------------------------------------------------------
 
 function getWordsForLanguage()
 
@@ -527,4 +532,4 @@ function getWordsForLanguage()
 
     getWordsForLanguage = aWords
 
-end function
+end function 'getWordsForLanguage
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index 3b828680f13c..71d05f7d704c 100644
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -519,8 +519,10 @@ testcase tiFormatStylist
         goto endsub
     end select
 
+    printlog "Open new doc"
     Call hNewDocument
     sleep 2
+    printlog "call the navigator"
     Kontext "Gestalter"
     if Gestalter.Exists Then
         Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
@@ -530,11 +532,14 @@ testcase tiFormatStylist
 
     FormatStylist
     Kontext "Gestalter"
+    printlog "opening graphics styles"
     Grafikvorlagen.Click
     sleep 1
+    printlog "Select number 1"
     Vorlagenliste.Select Num1        ' num1
     sleep 1
     Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+    printlog "Opening context menu"
     Vorlagenliste.OpenContextMenu
     sleep 1
     hMenuSelectNr (2)
@@ -544,6 +549,7 @@ testcase tiFormatStylist
     Messagebox.SetPage TabText
     Kontext "TabText"
     sleep 1
+    printlog "Canceling dialog"
     TabText.Cancel
     sleep 1
 
@@ -551,18 +557,21 @@ testcase tiFormatStylist
         Kontext "Gestalter"
         Printlog "- presentation templates"
         sleep 1
+        printlog "presentation styles"
         Praesentationsvorlagen.Click
 
         Vorlagenliste.Select Num2
         sleep 1
+        printlog "opening context menu"
         Vorlagenliste.OpenContextMenu
         sleep 1
+        printlog "selecting modify"
         hMenuSelectNr (1)
         sleep 1
         Kontext
         if Messagebox.exists (5) then
             try
-                '                    Messagebox.SetPage TabArea
+                printlog "Messagebox.SetPage TabArea"
                 Kontext "TabArea"
                 if TabArea.Exists = false then
                     warnlog "Where is TabArea?"
@@ -579,86 +588,111 @@ testcase tiFormatStylist
         Kontext "Gestalter"
         sleep 1
 
+        printlog "Select number 3"
         Vorlagenliste.Select Num3
         sleep 1
+        printlog "opening context menu of number 3"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
+        printlog "Check the styles..."
         call hWalkTheStyles (1,1)
         Kontext
+        printlog "setting tabpage indents and spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         Kontext "TabEinzuegeUndAbstaende"
         sleep 1
+        printlog "Canceling tabpage"
         TabEinzuegeUndAbstaende.Cancel
         sleep 1
         Kontext "Gestalter"
         sleep 1
 
+        printlog "Select number 4"
         Vorlagenliste.Select Num4
         sleep 1
+        printlog "opening context menu of number 4"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
         Kontext
+        printlog "setting tabpage TabFont"
         Messagebox.SetPage TabFont
         kontext "TabFont"
         Kontext
+        printlog "setting tabpage TabFontEffects"
         Messagebox.SetPage TabFontEffects
         kontext "TabFontEffects"
         Kontext
+        printlog "setting tabpage TabIndents and Spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         kontext "TabEinzuegeUndAbstaende"
         sleep 1
+        printlog "canceling TabIndents and Spacing"
         TabEinzuegeUndAbstaende.Cancel
         sleep 1
         Kontext "Gestalter"
         sleep 1
 
+        printlog "opening context menu of number 5"
         Vorlagenliste.Select Num5
         sleep 1
+        printlog "opening context menu of number 5"
         Vorlagenliste.OpenContextMenu
         sleep 1
         hMenuSelectNr (1)
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Font"
         Messagebox.SetPage TabFont
         kontext "TabFont"
         Kontext
+        printlog "setting tabpage Tab FontEffects"
         Messagebox.SetPage TabFontEffects
         kontext "TabFontEffects"
         Kontext
+        printlog "setting tabpage TabIndents and Spacing"
         Messagebox.SetPage TabEinzuegeUndAbstaende
         kontext "TabEinzuegeUndAbstaende"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Bullets"
         Messagebox.SetPage TabBullet
         Kontext "TabBullet"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Numbering Type"
         Messagebox.SetPage TabNumerierungsart
         Kontext "TabNumerierungsart"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Graphics"
         Messagebox.SetPage TabGrafiken
         Kontext "TabGrafiken"
         sleep 1
         Kontext
+        printlog "setting tabpage Tab Numbering options"
         Messagebox.SetPage TabOptionenNumerierung
         Kontext "TabOptionenNumerierung"
         sleep 1
+        printlog "Canceling..."
         TabOptionenNumerierung.Cancel
         sleep 1
     endif
+    kontext "DocumentImpress"
+    printlog "Closing Stylist"
     if lcase(gPlatform) = "osx" then
         hTypekeys "<mod1 t>"
     else
-        hTypeKeys "<F11>"
+        Kontext "Gestalter"
+        Gestalter.Close 
     end if
     sleep 1
     Kontext "Gestalter"
     if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
+    printlog "Closing doc."
     Call hCloseDocument
 
 endcase 'tiFormatStylist
diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc
index aab38d09a233..754795213b0c 100644
--- a/testautomation/graphics/optional/includes/global/g_tools.inc
+++ b/testautomation/graphics/optional/includes/global/g_tools.inc
@@ -29,11 +29,6 @@
 '*
 '* short description : will be moved to autocorrection.bas/inc
 '*
-'**************************************************************************************
-' #1 tiToolsThesaurus
-' #1 tiToolsHyphenation1
-' #1 tiToolsHyphenation2
-' #1 tToolsMacro
 '\*************************************************************************************
 '   sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
 
@@ -46,6 +41,7 @@ testcase tiToolsThesaurus
     Dim sAlternativeText as string
     Dim sExt as string
     Dim ZaehlerBedeutung
+    dim sWorkFile as string
 
     'for normal text, the thesaurus is enabled,
     'if the format->character->language of the word has a thesaurus
@@ -54,7 +50,7 @@ testcase tiToolsThesaurus
     'so especially for asian languages you have to set a default language in the options,
     'to be able to use the thesaurus there - fallback to englisch,
     'because there is no thesaurus for cjk languages
-    
+
     'As long as OOo has no modules for that, disabled
     if gOOO = True then
         printlog "No spellchecking in OOo"
@@ -63,64 +59,65 @@ testcase tiToolsThesaurus
 
     'First we make sure we test a language where Thesaurus
     select case iSprache
-       case 01 : sWord = "Hello"
-       case 03 : sWord = "Alo"
-       case 07 : printlog "- No Thesaur for Russian available"
-                 goto endsub
-       case 30 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 31 : sWord = "Guiten"
-       case 33 : sWord = "Bonjour"
-       case 34 : sWord = "Hola"
-       case 35 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 36 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 37 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 39 : sWord = "Ciao"
-       case 42 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 45 : sWord = "Hej"
-       case 46 : sWord = "Välkommen"
-       case 47 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 48 : Printlog "- No Thesaurus in Polish!"
-                 goto endsub
-       case 49 : sWord = "Hallo"
-       case 50 : sWord = "Prosojnica"
-       case 51 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 55 : Printlog "- No Thesaurus in Brazilian!"
-                 goto endsub
-       case 90 : Printlog "- No Thesaurus available !"
-                 goto endsub
+    case 01 : sWord = "Hello"
+    case 03 : sWord = "Alo"
+    case 07 : printlog "- No Thesaur for Russian available"
+        goto endsub
+    case 30 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 31 : sWord = "Guiten"
+    case 33 : sWord = "Bonjour"
+    case 34 : sWord = "Hola"
+    case 35 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 36 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 37 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 39 : sWord = "Ciao"
+    case 42 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 45 : sWord = "Hej"
+    case 46 : sWord = "Välkommen"
+    case 47 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 48 : Printlog "- No Thesaurus in Polish!"
+        goto endsub
+    case 49 : sWord = "Hallo"
+    case 50 : sWord = "Prosojnica"
+    case 51 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 55 : Printlog "- No Thesaurus in Brazilian!"
+        goto endsub
+    case 90 : Printlog "- No Thesaurus available !"
+        goto endsub
 
-       case else : if bAsianLan then
-                     hSetSpellHypLanguage
-                     sWord = "Hello"
-                  else
-                     Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
-                     sWord = "Hello"
-                  endif
+    case else : if bAsianLan then
+            hSetSpellHypLanguage
+            sWord = "Hello"
+        else
+            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
+            sWord = "Hello"
+        endif
     end select
-    
+
     PrintLog "Thesaurus with 1 word: " + sWord
 
-    if( Ucase(gApplication) = "DRAW" ) then
+    if( gApplication = "DRAW" ) then
         sExt = ".odg"
-    elseif( Ucase(gApplication) = "IMPRESS" ) then
+    elseif( gApplication = "IMPRESS" ) then
         sExt = ".odp"
     endif
 
-    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_" + iSprache + sExt)
-    Call sMakeReadOnlyDocumentEditable()
+    sWorkFile = gTesttoolPath & "graphics\required\input\recht_" & iSprache & sExt
+
+    Call hFileOpenLocally( sWorkFile )
     Call hTextrahmenErstellen (sWord,20,20,50,30)
     sleep 1
 
     printlog "select the word"
     hTypeKeys "<Home><SHIFT END>"
-    
+
     try
         ExtrasThesaurusDraw
     catch
@@ -154,8 +151,7 @@ testcase tiToolsThesaurus
             endif
 
             if ( ReplaceWith.getText() <> sAlternativeText ) then
-                warnlog "the text is no transfered to the ReplaceWith field. " +_
-                "ReplaceWith = "  + ReplaceWith.getText() + ", Alternative = " + sAlternativeText
+                warnlog "the text is no transfered to the ReplaceWith field. " + "ReplaceWith = "  + ReplaceWith.getText() + ", Alternative = " + sAlternativeText
             else
                 printlog "the text is transfered to the ReplaceWith field."
             endif
@@ -165,9 +161,9 @@ testcase tiToolsThesaurus
         endif
         Thesaurus.OK
 
-        if(Ucase(gApplication) = "DRAW") then
+        if(gApplication = "DRAW") then
             Kontext "Draw"
-        elseif(Ucase(gApplication) = "IMPRESS") then
+        elseif(gApplication = "IMPRESS") then
             Kontext "Impress"
         else ' fallback
             warnlog "gApplication is wrong"
@@ -186,7 +182,7 @@ testcase tiToolsThesaurus
     else
         warnlog "thesaurus didn't come up."
     end if
-    
+
     Call hCloseDocument
 
 endcase 'tiToolsThesaurus
@@ -210,7 +206,7 @@ testcase tiToolsThesaurusWithoutText
     endif
 
     Call hCloseDocument
-    
+
 
 endcase 'tiToolsThesaurusWithoutText
 '-------------------------------------------------------------------------------
@@ -236,46 +232,46 @@ testcase tiToolsThesaurusContextMenu
 
     'First we make sure we test a language where Thesaurus
     select case iSprache
-       case 01 : sWord = "Hello"
-       case 03 : sWord = "Alo"
-       case 07 : printlog "- No Thesaur for Russian available"
-                 goto endsub
-       case 30 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 31 : sWord = "Guiten"
-       case 33 : sWord = "Bonjour"
-       case 34 : sWord = "Hola"
-       case 35 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 36 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 37 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 39 : sWord = "Ciao"
-       case 42 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 45 : sWord = "Hej"
-       case 46 : sWord = "Välkommen"
-       case 47 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 48 : Printlog "- No Thesaurus in Polish!"
-                 goto endsub
-       case 49 : sWord = "Hallo"
-       case 50 : sWord = "Prosojnica"
-       case 51 : Printlog "- No Thesaurus available !"
-                 goto endsub
-       case 55 : Printlog "- No Thesaurus in Brazilian!"
-                 goto endsub
-       case 90 : Printlog "- No Thesaurus available !"
-                 goto endsub
+    case 01 : sWord = "Hello"
+    case 03 : sWord = "Alo"
+    case 07 : printlog "- No Thesaur for Russian available"
+        goto endsub
+    case 30 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 31 : sWord = "Guiten"
+    case 33 : sWord = "Bonjour"
+    case 34 : sWord = "Hola"
+    case 35 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 36 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 37 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 39 : sWord = "Ciao"
+    case 42 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 45 : sWord = "Hej"
+    case 46 : sWord = "Välkommen"
+    case 47 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 48 : Printlog "- No Thesaurus in Polish!"
+        goto endsub
+    case 49 : sWord = "Hallo"
+    case 50 : sWord = "Prosojnica"
+    case 51 : Printlog "- No Thesaurus available !"
+        goto endsub
+    case 55 : Printlog "- No Thesaurus in Brazilian!"
+        goto endsub
+    case 90 : Printlog "- No Thesaurus available !"
+        goto endsub
 
-       case else : if bAsianLan then
-                     hSetSpellHypLanguage
-                     sWord = "Hello"
-                  else
-                     Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
-                     sWord = "Hello"
-                  endif
+    case else : if bAsianLan then
+            hSetSpellHypLanguage
+            sWord = "Hello"
+        else
+            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
+            sWord = "Hello"
+        endif
     end select
 
     PrintLog "Thesaurus with 1 word: " + sWord
@@ -286,7 +282,7 @@ testcase tiToolsThesaurusContextMenu
 
     printlog "select the word"
     hTypeKeys "<Home><SHIFT END>"
-    
+
     hOpenContextMenu
 
     hMenuSelectNr(14) ' the synonyms
@@ -320,10 +316,10 @@ testcase tiToolsHyphenation1
    Kontext "Hyphenation"
     printlog "Try with empty document"
     if Hyphenation.Exists(1) = True Then
-       Warnlog "  - Dialog ist da"
-       Hyphenation.Cancel
+        Warnlog "  - Dialog ist da"
+        Hyphenation.Cancel
     else
-       Printlog "  - Hyphenation activated"
+        Printlog "  - Hyphenation activated"
     end if
 '   Kontext "DocumentImpress"
    printlog "   - Hyphenation with text, but without any possibility to break words"
@@ -372,22 +368,22 @@ endcase 'tiToolsHyphenation1
 '-------------------------------------------------------------------------------
 testcase tiToolsHyphenation2
 
-  dim iWaitIndex as integer
-  dim sExt as string
-  Dim i : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
-  Dim DasWort as string
-  dim sDraw as string
-  dim sFile as string
-  PrintLog "- Tools/Hyphenation2"
-   Select Case Ucase(gApplication)
-      case "DRAW"         : sExt = ".odg"
-      case "IMPRESS"      : sExt = ".odp"
-   end select
+    dim iWaitIndex as integer
+    dim sExt as string
+    Dim i : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
+    Dim DasWort as string
+    dim sDraw as string
+    dim sFile as string
+    PrintLog "- Tools/Hyphenation2"
+    Select Case gApplication
+    case "DRAW"         : sExt = ".odg"
+    case "IMPRESS"      : sExt = ".odp"
+    end select
 
-   if ((not bAsianLan) AND (iSprache <> 07)) then
-       sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
-       Call hFileOpen (sFile)
-   endif
+    if ((not bAsianLan) AND (iSprache <> 07)) then
+        sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
+        Call hFileOpenLocally( sFile )
+    endif
 
    select case iSprache					
        case 01 :DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on"  '+Chr(34)
@@ -415,8 +411,6 @@ testcase tiToolsHyphenation2
           endif
    end select
 
-   Call sMakeReadOnlyDocumentEditable
-
   printlog "Test hyphenation"
 printlog "Press CTRL + A to select all"
    EditSelectAll 
@@ -443,18 +437,36 @@ printlog "Press CTRL + A to select all"
    sleep 3
    EditCopy
 printlog GetClipboardText
+=======
+    sleep 1
+    ' WA for draw, or smth else: get text part before hyphenation:
+    if iSprache = "1" OR bAsianLan = TRUE then
+        hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT RIGHT>"      '/// Select part of text and compare it with original text at this place ///'
+    else
+        hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"
+    endif
+    EditCopy
+    sDraw = GetClipboardText()
+    EditSelectAll						'/// Select whole text ///'
+    ToolsLanguageHyphenationDraw					'/// Run Hyphenation ///'
+    gMouseClick 50,50
+    hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"		'/// Select part of text and compare it with original text at this place ///'
+    sleep 3
+    EditCopy
+    printlog GetClipboardText
+>>>>>>> other
     select case GetClipboardText
-           case DasWort  : printlog "  - Hyphenation worked"
-           case DasWort2 : printlog "  - Hyphenation worked"
-           case DasWort3 : printlog "  - Hyphenation worked"
-           case DasWort4 : printlog "  - Hyphenation worked"
-           case else : warnlog "  - Hyphenation didnt work"
+    case DasWort  : printlog "  - Hyphenation worked"
+    case DasWort2 : printlog "  - Hyphenation worked"
+    case DasWort3 : printlog "  - Hyphenation worked"
+    case DasWort4 : printlog "  - Hyphenation worked"
+    case else : warnlog "  - Hyphenation didnt work"
     end select
     if GetClipboardText <> sDraw then
-       Printlog " - WA draw hyphenation did work :-)"
+        Printlog " - WA draw hyphenation did work :-)"
     else
-       Warnlog "  - Hyphenation did not work"
-       Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
+        Warnlog "  - Hyphenation did not work"
+        Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
     end if
    sleep 1
    printlog "Close document"
@@ -589,5 +601,5 @@ testcase tToolsMacro
     'TODO: organizer testing!
     Call hCloseDocument
     Call hCloseDocument
-    
+
 endcase 'tToolsMacro
diff --git a/testautomation/graphics/optional/includes/global/id_001.inc b/testautomation/graphics/optional/includes/global/id_001.inc
deleted file mode 100644
index 15a99c0d3f23..000000000000
--- a/testautomation/graphics/optional/includes/global/id_001.inc
+++ /dev/null
@@ -1,725 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\**********************************************************************************
-
-
-testcase tiFileSaveAs
-
-    dim sFileName as string ' test document & new created doc
-    '   dim sFormula as string  ' container for formula to create document with
-    dim sTemp as string
-    dim sFilter (50) as string
-    dim i as integer
-    dim x as integer
-    dim y as integer
-    dim Exlist(100) as string ' files to be deleted
-    dim sFile as string ' filename to export
-    dim sPath as string ' filename to export
-
-    if (gApplication = "IMPRESS") then
-        ExtensionString = "odp"
-    else
-        ExtensionString = "odg"
-    end if
-
-    sFilter (0) = 0 ' initalize ;-)...
-
-    sFileName = "graphics\required\input\tbo_alf_." + ExtensionString    ' this is the file with all features
-    sFile = "isas_"                                ' this is the filename of the export files
-    sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform) ' this is the export path
-    if dir (sPath) = "" then
-        app.mkdir (sPath)
-    end if
-
-    if gSamePC = TRUE then ' delete export directory
-        GetFileList ( sPath, sFile+"*", Exlist() )
-        if KillFileList ( Exlist() ) <> TRUE then
-            Warnlog "Couldn't delete all Files in Output-Export-Directory, the followings are still there:"
-            for i=1 to ListCount ( Exlist() )
-                printlog "  <> " + Exlist(i)
-            next i
-        end if
-    end if
-
-    Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
-    WaitSlot (3000)
-
-
-    ' to use the helper fileSaveAs functions i get alll available filters...
-    FileSaveAs
-    WaitSlot (2000)
-    Kontext "SpeichernDlg"
-    for i = 0 to 5
-        if i=0 then x = Dateityp.GetItemCount
-            if (i) then  ' set border, whenm start from beginning/end
-                y = i     ' set filter from beginning
-            else
-                y = x-3     ' set filter from end
-            end if
-            ListAppend(sFilter(), Dateityp.GetItemText (y))
-        next i
-        SpeichernDlg.Cancel
-        y = ListCount(sFilter())
-
-        if gtSYSName = "Linux" then y=y-1
-            '#i45961# - last part of filter-list deactivated due to BUG - FHA
-            'TODO: JSI->FHA please verify if this special handling needed after the issue has been fixed.
-
-            for i = 1 to y
-                sFileName = sPath + sFile + (i)
-                hFileSaveAsWithFilter (sFileName, sFilter(i), TRUE )
-                kontext
-                if messagebox.exists then
-                    messagebox.Yes ' to go on ....
-                end if
-                printlog " saved with filter ("+i+"/"+y+"): "+ sFilter(i)
-            next i
-            ' TODO TBO: small check, if correct filter was used!
-            WaitSlot (3000)
-            fileclose
-            WaitSlot (3000)
-            kontext "Messagebox"
-            if Messagebox.exists then
-                printlog "Messagebox about informationloss... :-) that's OK: 'Text in the messagebox: "+Messagebox.GetText+"'"
-                Messagebox.YES
-            end if
-
-            '-----------------------------------------------------------------
-            hNewDocument
-
-
-            sFilter (0) = 0
-            sFileName = sPath
-            GetFileList ( sFileName, sFile + "*", sFilter() )
-
-            '   call hNewDocument
-            x = ListCount ( sFilter() )
-            for i = 1 to x
-                printlog "("+i+"/"+x+"): "+sFilter(i)
-                hFileOpen ( sFilter(i) )
-                WaitSlot (3000)
-                If hIsNamedDocLoaded (sFilter(i)) Then
-                    printlog "  used filter: " + hGetUsedFilter()
-                else
-                    sTemp = left(right(sFilter(i),2),1)
-                    if ( (sTemp = "t") OR (sTemp = "o") ) then
-                        printlog "document is --- TEMPLATE?! --- "
-                    else
-                        qaErrorlog "#116563# document didn't get loaded "
-                    end if
-                end if
-                hCloseDocument
-                WaitSlot (2000)
-            next i
-            '   Call hCloseDocument
-endcase
-
-testcase tiFileReload
-    Dim DokumentPfad$
-    Dim Datei$
-
-    if (gApplication = "IMPRESS") then
-        ExtensionString = "odp"
-    else
-        ExtensionString = "odg"
-    end if
-
-    Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/version1." + ExtensionString))
-
-    if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
-        app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
-    end if
-    Call hNewDocument
-    WaitSlot (2000)
-    Call hFileSaveAsKill (Datei$)
-    WaitSlot (2000)
-    Call hCloseDocument
-
-    Call hFileOpen (Datei$)
-    WaitSlot (2000)
-    call hTBOtypeInDoc
-    WaitSlot (2000)
-    FileReload
-    WaitSlot (2000)
-    Kontext "Messagebox"
-    sleep 2
-    Messagebox.No
-    WaitSlot (2000)
-
-    FileReload
-    WaitSlot (2000)
-    Kontext "Messagebox"
-    sleep 2
-    Messagebox.Yes
-    WaitSlot (1000)
-
-    Call hCloseDocument
-    if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
-endcase
-
-testcase tiFileVersion
-    Dim DokumentPfad$
-    Dim Datei$
-
-    if (gApplication = "IMPRESS") then
-        ExtensionString = "odp"
-    else
-        ExtensionString = "odg"
-    end if
-
-    Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString))
-    'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
-    if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
-        Call hNewDocument
-        WaitSlot (1000)
-        Call hFileSaveAsKill (Datei$)
-        WaitSlot (1000)
-        Call hCloseDocument
-
-        Call hFileOpen (Datei$)
-        WaitSlot (1000)
-        call hTBOtypeInDoc
-        WaitSlot (1000)
-        try
-            FileVersions
-        catch
-            Warnlog "- File / Versions not accessible!"
-            goto endsub
-        endcatch
-
-        Kontext "Versionen"
-        Call DialogTest ( Versionen )
-        Speichern.Click
-        Kontext "VersionskommentarEingeben"
-        Call DialogTest ( VersionskommentarEingeben )
-        VersionskommentarEingeben.Cancel
-        Kontext "Versionen"
-        Versionen.Close
-        Call hCloseDocument
-        '   if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
-endcase
-
-testcase tiFilePassword
-    goto endsub
-    Dim DokumentPfad$
-    Dim Datei$
-    dim sFileName as string ' test document & new created doc
-    '   dim sFormula as string  ' container for formula to create document with
-    dim e as string
-    dim sTemp as string
-    dim sFilter (50) as string
-    dim i as integer
-    dim x as integer
-    dim y as integer
-    dim Exlist(100) as string ' files to be deleted
-    dim sFileIn as string ' filename to import
-    dim sFile as string ' filename to export
-    dim sPath as string ' and path to export
-
-    if (gApplication = "IMPRESS") then
-        ExtensionString = "odp"
-    else
-        ExtensionString = "odg"
-    end if
-
-    sFile = "isp__"                                                     ' this is the filename of the export files
-    sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path
-    mkdir (sPath)
-    if dir (sPath) = "" then app.mkdir (sPath)
-        sFileIn = (sPath + sFile + "." + ExtensionString)
-        if gSamePC = TRUE then ' delete export directory
-            GetFileList ( sPath, sFile+"*", Exlist() )
-            if KillFileList ( Exlist() ) <> TRUE then
-                Warnlog "Couldnt delete all Files in Output-Export-Directory, the followings are still there:"
-                for i=1 to ListCount ( Exlist() )
-                    printlog "  <> " + Exlist(i)
-                next i
-            end if
-        end if
-
-        Call hNewDocument
-        WaitSlot (1000)
-        FileSaveAs
-        Kontext "SpeichernDlg"
-        Datei$ = ConvertPath ( sFileIn )
-        printlog "   will use the file: "+Datei$
-        if Dir (Datei$) <> "" then
-            kill Datei$
-        end if
-        Passwort.Check
-        Dateiname.SetText Datei$
-        Speichern.Click
-        WaitSlot (2000)
-        Kontext "Passwort"
-        PasswortName.SetText "12345"
-        PasswortBestaetigen.Settext "54321"
-        Passwort.OK
-        WaitSlot (2000)
-        Kontext "Messagebox"
-        if Messagebox.Exists(1) then
-            Messagebox.OK
-        else
-            Warnlog "- Wrong password not recognized"
-        end if
-        Kontext "Passwort"
-        PasswortName.SetText "12345"
-        PasswortBestaetigen.SetText "12345"
-        Passwort.OK
-        sleep 2
-        FileClose
-        sleep 2
-
-        FileOpen
-        Kontext "OeffnenDlg"
-        WaitSlot (2000)
-        Dateiname.SetText Datei$
-        Oeffnen.Click
-        WaitSlot (2000)
-        Kontext "PasswordFileOpen"
-        PasswortName.SetText "34567"
-        try
-            PasswordFileOpen.OK
-        catch
-            Printlog "- Wrong password not accepted"
-        endcatch
-        Kontext
-        if Not Messagebox.Exists(1) then
-            Warnlog "Wrong password while loading not recognized"
-        else
-            Messagebox.OK
-            printlog "Wrong password on loading ok - recogniced"
-        end if
-        WaitSlot (3000)
-        Kontext "PasswordFileOpen"
-        PasswortName.SetText "12345"
-        PasswordFileOpen.OK
-        WaitSlot (5000)
-        FileSaveAs
-        Kontext "SpeichernDlg"
-        Dateiname.SetText Datei$
-        if (Passwort.IsChecked <> TRUE) then
-            Warnlog "Password has to be checked! :-("
-        end if
-        Speichern.Click
-        WaitSlot (1000)
-        Kontext "Messagebox"
-        if Messagebox.Exists(5) then
-            Messagebox.Yes
-        end if
-        Kontext "Passwort"
-        if (Passwort.Exists(5) = FALSE)then
-            Warnlog "- Password dialog Didn't pop up after pressing save"
-        else
-            Kontext "Passwort"
-            WaitSlot (1000)
-            PasswortName.SetText "a12345"
-            PasswortBestaetigen.SetText "a12345"
-            Passwort.OK
-            WaitSlot (1000)
-            FileClose
-            WaitSlot (1000)
-        end if
-        FileOpen
-        WaitSlot (2000)
-        Kontext "OeffnenDlg"
-        Dateiname.SetText Datei$
-        Oeffnen.Click
-        Kontext "PasswordFileOpen"
-        WaitSlot (1000)
-        PasswortName.SetText "a12345"
-        PasswordFileOpen.OK
-        WaitSlot (5000)
-        FileSaveAs
-        Kontext "SpeichernDlg"
-        Dateiname.SetText Datei$
-        if (Passwort.IsChecked <> TRUE) then
-            Warnlog "Password has to be checked! :-("
-        end if
-        Passwort.UnCheck
-        Speichern.Click
-        Kontext "Messagebox"
-        if Messagebox.Exists(5) then Messagebox.Yes
-            Kontext "Passwort"
-            if (Passwort.Exists(5))then
-                Warnlog "- Password dialog didn't pop up after pressing save"
-                Kontext "Passwort"
-                password.cancel
-                FileClose
-            else
-                hCloseDocument
-            end if
-endcase
-
-testcase tiFileTemplates
-    Call hNewDocument
-
-    FileTemplatesOrganize
-    Kontext "DVVerwalten"
-    WaitSlot (1000)
-    Call DialogTest (DVVerwalten)
-    sleep 1
-    PopuplisteLinks.Select 2
-    WaitSlot (1000)
-    PopuplisteRechts.Select 2
-    WaitSlot (1000)
-    WelcheDatei.Click
-    WaitSlot (1000)
-    Kontext "Oeffnendlg"
-    Call DialogTest (OeffnenDlg)
-    sleep 1
-    OeffnenDlg.Cancel
-    WaitSlot (2000)
-    Kontext "DVVerwalten"
-    DVVerwalten.Close
-
-    if gtSYSName = "Solaris x86" then
-        qaErrorLog "#i62423# - FileTemplatesAddressBookSource outcommented under x86. - FHA"
-    else
-        FileTemplatesAddressBookSource
-        Printlog "- AddressBookAssignment"
-        kontext "AddressBookSource"
-        Call DialogTest (AddressBookSource)
-        Administrate.Click
-        kontext "AddressSourceAutopilot"
-        AddressSourceAutopilot.Cancel
-        kontext "AddressBookSource"
-        AddressBookSource.Cancel
-    end if
-
-    FileTemplatesSave
-    Printlog "- Save template"
-    WaitSlot (1000)
-    Kontext "Dokumentvorlagen"
-    sleep 1
-    Call DialogTest (Dokumentvorlagen)
-    WaitSlot (1000)
-    Verwalten.Click
-    WaitSlot (2000)
-    Kontext "DVVerwalten"
-    Call DialogTest (DVVerwalten)
-    WaitSlot (3000)
-    DVVerwalten.Close
-    WaitSlot (1000)
-    Kontext "Dokumentvorlagen"
-    sleep 1
-    Dokumentvorlagen.Cancel
-    WaitSlot (1000)
-
-    try
-        FileTemplatesEdit
-        Printlog "- Edit template"
-        WaitSlot (1000)
-        Kontext "OeffnenDlg"
-        sleep 1
-        Call DialogTest (OeffnenDlg)
-        WaitSlot (1000)
-        OeffnenDlg.Cancel
-    catch
-        Warnlog "- There are problems with File-Template-Save"
-    endcatch
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-
-'-----------------------------------------------------------
-'*******************  M A T H dito *************************
-'-----------------------------------------------------------
-
-
-testcase tmFileNewFromTemplate
-    Call hNewDocument
-    FileNewFromTemplate
-    WaitSlot (5000)
-    Kontext "TemplateAndDocuments"
-    if TemplateAndDocuments.NotExists then
-        Warnlog "Dialog Templates and Documents are not up!"
-        goto endsub
-    end if
-    Call DialogTest (TemplateAndDocuments)
-    WaitSlot (5000)
-    try
-        TemplateAndDocuments.Cancel
-    catch
-    endcatch
-    WaitSlot (5000)
-    Call hCloseDocument
-endcase
-
-testcase tmFileOpen
-    call hNewDocument
-    FileOpen
-    Kontext "OeffnenDlg"
-    UebergeordneterOrdner.Click
-    Standard.Click
-    NurLesen.check
-    Call DialogTest ( OeffnenDlg )
-    OeffnenDlg.Cancel
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tmFileClose
-    printlog "- File Close"
-    hNewDocument    ' just for the records: I open ONE document
-    call hTBOtypeInDoc
-    WaitSlot (2000)
-    FileClose
-    Kontext         ' Expecting "Modified, do you want to close?"
-    if active.exists (5) then
-        printlog "  Ok, active came up: " + active.gettext
-        Active.Cancel   ' No, not this time
-    else
-        warnlog "active missing (1)"
-    end if
-    WaitSlot (2000)
-
-    FileClose
-    Kontext
-    Active.Yes      ' but now - records: this document is closed
-    WaitSlot (2000)
-
-    Kontext "SpeichernDlg"
-    Call DialogTest ( SpeichernDlg )
-    SpeichernDlg.Cancel
-    WaitSlot (2000)
-
-    FileClose       ' now the office gets closed! (if there were no modifications!)
-    Kontext
-    Active.No
-    WaitSlot (2000)
-endcase
-'-----------------------------------------------------------
-testcase tmFileSave
-    hNewDocument
-    call hTBOtypeInDoc
-
-    FileSave
-    WaitSlot (2000)
-    Kontext "SpeichernDlg"
-    UebergeordneterOrdner.click
-    Standard.Click
-    Call DialogTest (SpeichernDlg)
-    Kontext "SpeichernDlg"
-    Standard.Click
-    SpeichernDlg.Cancel
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tmFileSaveAs
-
-    hNewDocument
-    WaitSlot (2000)
-    call hTBOtypeInDoc
-
-    FileSaveAs
-    WaitSlot (2000)
-    Kontext "SpeichernDlg"
-    if (SpeichernDlg.exists (5) = FALSE) then
-        warnlog "FileSaveAs dialog is not visible"
-    end if
-    WaitSlot (2000)
-    Passwort.check
-    Passwort.uncheck
-    UebergeordneterOrdner.click
-    Standard.Click
-
-    NeuerOrdner.click
-    kontext "NeuerOrdner"
-    neuerordner.cancel
-    Kontext "SpeichernDlg"
-
-    Call DialogTest (SpeichernDlg)
-
-    Kontext "SpeichernDlg"
-    SpeichernDlg.Cancel
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tmFileSaveAll
-    printlog "- File SaveAll"
-
-    hNewDocument
-    call hTBOtypeInDoc
-
-    Printlog "  open 2. window"
-    hNewDocument
-    call hTBOtypeInDoc
-
-    Printlog "  call save all"
-    FileSaveAll
-    Printlog "  cancel 1. save"
-    Kontext "SpeichernDlg"
-    SpeichernDlg.Cancel
-
-    Printlog "  cancel 2. save"
-    WaitSlot (2000)
-    Kontext "SpeichernDlg"
-    SpeichernDlg.Cancel
-    WaitSlot (2000)
-
-    try
-        Kontext "SpeichernDlg"
-        SpeichernDlg.Cancel
-        printlog "smth had been typed in the starting window (just a hint ;-) )"
-    catch
-        printlog "--------- no other window wants to get saved. :-)"
-    endcatch
-
-    WaitSlot (2000)
-    Printlog "  hCloseDocument both"
-    Call hCloseDocument
-    sleep 2
-    Printlog "  first closed"
-    Call hCloseDocument
-    WaitSlot (2000)
-    Printlog "  second closed"
-    WaitSlot (5000)
-endcase
-
-testcase tmFileProperties
-    printlog "- File Properties"
-
-    Call hNewDocument
-    FileProperties
-
-    Kontext
-    active.SetPage TabDokument
-    Kontext "TabDokument"
-    Call DialogTest ( TabDokument )
-
-    Kontext
-    active.SetPage TabDokumentInfo
-    Kontext "TabDokumentInfo"
-    Call DialogTest ( TabDokumentInfo )
-
-    'Deactivating this part because of #i95523#:
-    'Kontext
-    'active.SetPage TabBenutzer
-    'Kontext "TabBenutzer"
-    'Call DialogTest ( TabBenutzer )
-    'Infofelder.Click
-    '   Kontext "InfonamenBearbeiten"
-    '   Call DialogTest (InfonamenBearbeiten)
-    'InfonamenBearbeiten.Cancel
-
-    Kontext
-    active.SetPage TabInternet
-    Kontext "TabInternet"
-    Call DialogTest (TabInternet)
-    TabInternet.Cancel
-
-    Call hCloseDocument
-endcase
-
-testcase tmFilePrinterSetting
-    printlog "- File Printersettings"
-    Call hNewDocument
-    WaitSlot (3000)
-    FilePrintersettings
-    kontext
-    if active.exists(5) then
-        active.ok
-        qaerrorlog "There is no printer available - please install one on your system!"
-    end if
-    WaitSlot (2000)
-    Kontext "DruckerEinrichten"
-    Call DialogTest (DruckerEinrichten)
-    sleep 2
-    DruckerEinrichten.Cancel
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tdFileExport
-    goto endsub
-    dim x as integer
-    Call hNewDocument
-    WaitSlot (3000)
-    FileExport
-    Kontext "ExportierenDlg"
-    Call DialogTest ( ExportierenDlg )
-    UebergeordneterOrdner.Click
-    Kontext "SpeichernDlg"
-    x=Dateityp.getitemcount
-    if x <> 18 then warnlog "the number of filters is not 18, it is: " + x
-        SpeichernDlg.Cancel
-        WaitSlot (2000)
-        Call hCloseDocument
-        WaitSlot (2000)
-endcase
-
-testcase tmFileExit
-    goto endsub
-    printlog "- File Close"
-    Call hNewDocument
-    WaitSlot (2000)
-    try
-        FileExit "SynchronMode", TRUE
-        WaitSlot (2000)
-        Kontext
-        WaitSlot (2000)
-        Kontext "MessageBox"
-        if MessageBox.Exists(1) then ' this is the messagebox from the first window!
-            Printlog MessageBox.GetText
-            try
-                MessageBox.OK
-            catch
-                MessageBox.No
-            endcatch
-        end if
-        Kontext "MessageBox"
-        if MessageBox.Exists(1) then
-            Warnlog "MsgBox popped up and there were no changes in the document"
-            Printlog MessageBox.GetText
-            try
-                MessageBox.OK
-            catch
-                MessageBox.No
-            endcatch
-        end if
-    catch
-        printlog "this exit is wanted :-)"
-    endcatch
-    try
-        WaitSlot (20000)
-        call hStartTheOffice ' from master.inc
-    catch
-        printlog "catch AGAIN"
-    endcatch
-    Kontext "SD_Praesentation"
-    if SD_Praesentation.exists (2) then
-        ViewToolbarsPresentation
-    end if
-endcase
diff --git a/testautomation/graphics/optional/includes/global/id_002.inc b/testautomation/graphics/optional/includes/global/id_002.inc
deleted file mode 100644
index c199ab998524..000000000000
--- a/testautomation/graphics/optional/includes/global/id_002.inc
+++ /dev/null
@@ -1,440 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\**********************************************************************************
-
-testcase tiEditUndoRedo
-
-    hNewDocument
-    call hTBOtypeInDoc
-
-    EditUndo
-    WaitSlot (2000)
-    EditRedo
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tiEditRepeat
-    goto endsub 'Quaste, ask FHA
-    Call hNewDocument
-
-    gMouseClick 50,50
-    Call hRechteckErstellen ( 30, 10, 70, 30 )
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 20, 20, 60, 40 )
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 80, 50, 40, 20 )
-    WaitSlot (1000)
-    ContextArrangeBringBackward
-    WaitSlot (2000)
-    try
-        EditRepeat
-    catch
-        Warnlog " Menu entry is disabled #i26129#"
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-testcase tiEditCutPasteCopySelectall
-    Call hNewDocument
-
-    call hTBOtypeInDoc
-
-    EditCut
-    WaitSlot (2000)
-    EditPaste
-    WaitSlot (2000)
-    EditCopy
-    WaitSlot (2000)
-    EditPaste
-    WaitSlot (2000)
-    EditSelectAll
-    WaitSlot (2000)
-    EditCut
-    WaitSlot (2000)
-    EditPaste
-    WaitSlot (2000)
-    EditDeleteContents
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tiEditPasteSpecial
-    Call  hNewDocument
-
-    SetClipboard "This is a Text in the Clipboard"
-
-    EditPasteSpecial
-    WaitSlot (1000)
-    Kontext "InhaltEinfuegen"
-    DialogTest ( InhaltEinfuegen )
-
-    InhaltEinfuegen.Cancel
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-testcase tiEditSearchAndReplace
-    Call  hNewDocument
-
-    try
-        EditSearchAndReplace
-        WaitSlot (1000)
-        Kontext "FindAndReplace"
-        DialogTest ( FindAndReplace )
-
-        More.Click
-        SimilaritySearch.Check ' culprint for errors if not resetted !
-        WaitSlot (1000)
-        SimilaritySearchFor.Click
-        Kontext "Aehnlichkeitssuche"
-        DialogTest (Aehnlichkeitssuche )
-        Aehnlichkeitssuche.Cancel
-        Kontext "FindAndReplace"
-        SimilaritySearch.UnCheck
-        More.Click
-        FindAndReplace.Close
-    catch
-        Warnlog "EditSearchAndReplace caused an error"
-    endcatch
-    Call hCloseDocument
-endcase
-
-testcase tiEditDuplicate
-    Call hNewDocument
-    call hTBOtypeInDoc
-    EditSelectAll
-    EditDuplicate
-
-    Kontext "Duplizieren"
-    Call DialogTest ( Duplizieren )
-    Duplizieren.Cancel
-
-    Call hCloseDocument
-endcase
-
-testcase tEditPoints
-    Call hNewDocument
-    call hTBOtypeInDoc
-    FormatEditPoints
-    EditGluePoints
-    Call hCloseDocument
-endcase
-
-testcase tiEditFields
-    Call hNewDocument
-    WaitSlot (2000)
-    InsertFieldsDateFix
-    WaitSlot (1000)
-    gMouseDoubleClick 10,10
-
-    hTypeKeys "<ESCAPE>"
-    hTypeKeys "<Tab>"                  ' With a Tab catches we always the Object
-    hTypeKeys "<F2>"                   ' Here we enter Edit-Mode and therefore also the right place
-    hTypeKeys "<Home>"                 ' Here we enter Edit-Mode and therefore also the right place
-
-    try
-        EditFieldsDraw
-        Kontext "FeldbefehlBearbeitenDraw"
-        Call DialogTest ( FeldbefehlBearbeitenDraw )
-        FeldbefehlBearbeitenDraw.Close
-    catch
-        Warnlog "- Slot could not be accessed"
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-testcase tdEditDeleteSlide
-    Call hNewDocument
-    InsertSlide
-    WaitSlot (2000)
-    hTypekeys "<Pagedown>"
-    WaitSlot (2000)
-    Kontext "Navigator"
-    sleep (2)
-    if Navigator.exists then
-        printlog "Navigator: open :-)"
-    else
-        printlog "Navigator: NOT available :-( Will be opened now!"
-        ViewNavigator
-    end if
-    WaitSlot (2000)
-    Kontext "NavigatorDraw"
-    if Liste.GetItemCount<>2 Then
-        Warnlog "-  No slide inserted"
-        Kontext "Navigator"
-        Navigator.Close
-        Call hCloseDocument
-        goto endsub
-    else
-        Liste.Select 2
-        Kontext "Navigator"
-        Navigator.Close
-    end if
-    WaitSlot (2000)
-    EditDeleteSlide
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tiEditLinks
-    Call  hNewDocument
-
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    try
-        if Link.Exists then
-            Link.Check
-        else
-            Warnlog "- Link in Insert graphic is not working"
-        end if
-        Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
-        Oeffnen.Click
-        Kontext "Messagebox"
-        if Messagebox.Exists=True Then
-            Warnlog Messagebox.GetText
-            Messagebox.Ok
-        end if
-        InsertGraphicsFromFile
-        Kontext "GrafikEinfuegenDlg"
-        Link.Check
-        Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-        Oeffnen.Click
-
-        kontext "Messagebox"
-        if Messagebox.Exists( 2 ) then
-            Warnlog Messagebox.GetText
-            Messagebox.OK
-            sleep 1
-        end if
-    catch
-        Warnlog "Insert graphic caused errors"
-    endcatch
-
-    WaitSlot (2000)
-    try
-        EditLinksDraw
-        WaitSlot (2000)
-        Kontext "VerknuepfungenBearbeiten"
-        Call DialogTest ( VerknuepfungenBearbeiten )
-        VerknuepfungenBearbeiten.Close
-        WaitSlot (1000)
-    catch
-        Warnlog "- EditLinks could not be executed, could be the graphic was not imported"
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-testcase tiEditImageMap
-    Call  hNewDocument
-
-    EditImageMap
-
-    Kontext "ImageMapEditor"
-    if ImageMapEditor.Exists( 5 ) then
-        printlog "- ImageMap exists"
-        DialogTest ( ImageMapEditor )
-        try
-            ImageMapEditor.Close
-            Printlog "ImageMap closed using the close button"
-        catch
-            EditImageMap
-            Printlog "ImageMap closed using menue 'edit-imagemap'"
-        endcatch
-    else
-        warnlog "ImageMap didn't come up!"
-    end if
-    Call  hCloseDocument
-endcase
-
-testcase tiEditObjectProperties
-    dim i as integer
-
-    Call hNewDocument
-
-    InsertFloatingFrame
-    WaitSlot (2000)
-
-    Kontext "TabEigenschaften"
-    FrameName.SetText "Hello"
-    Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
-    WaitSlot (2000)
-    TabEigenschaften.OK
-    WaitSlot (2000)
-    gMouseDoubleClick 1,1
-
-    hTypekeys "<tab>"
-
-    kontext
-    WaitSlot (2000)
-    EditObjectProperties
-    WaitSlot (1000)
-    Kontext "TabEigenschaften"
-    DialogTest ( TabEigenschaften )
-    Oeffnen.Click
-    Kontext "OeffnenDlg"
-    Call DialogTest ( OeffnenDlg )
-    OeffnenDlg.Cancel
-    Kontext "TabEigenschaften"
-    TabEigenschaften.Cancel
-
-    Call hCloseDocument
-endcase
-
-testcase tiEditObjectEdit
-    dim i as integer
-    Call hNewDocument
-
-    InsertObjectOLEObject
-    WaitSlot (1000)
-    Kontext "OLEObjektEinfuegen"
-    ObjektTyp.Select 1
-    OLEObjektEinfuegen.OK
-    WaitSlot (1000)
-
-    gMouseClick 20,1
-
-    hTypekeys "<tab>"
-
-    EditObjectEdit
-    ' try EditObjectEdit again, to see, if it is in edit mode !
-    WaitSlot (2000)
-    try
-        ContextNameObject
-        warnlog " Couldn't get into edit mode!"
-    catch
-        printlog "Reached edit mode - ok :-)"
-        gMouseClick 20,1
-    endcatch
-
-    EditSelectAll
-
-    EditObjectSaveCopyAs
-    Kontext "SpeichernDlg"
-    Call DialogTest ( SpeichernDlg )
-    SpeichernDlg.Cancel
-    WaitSlot (2000)
-    Kontext "Active"
-    if Active.Exists(2) then Active.No
-        Call hCloseDocument
-endcase
-
-testcase tiEditPlugIn
-    Call hNewDocument
-
-    InsertObjectPlugin
-    Kontext "PlugInEinfuegen"
-    '    DialogTest ( PlugInEinfuegen)
-    Durchsuchen.click
-    Kontext "OeffnenDlg"
-    '      Call DialogTest ( OeffnenDlg )
-    if OeffnenDlg.exists (5) then
-        OeffnenDlg.Cancel
-    else
-        warnlog "Open file dialog didn't come up"
-    end if
-    WaitSlot (5000)
-    Kontext "PlugInEinfuegen"
-    if PlugInEinfuegen.exists then
-        DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
-
-        Optionen.SetText "Fiddler's Green"
-        Optionen.TypeKeys "<HOME>"
-        Optionen.TypeKeys "<SHIFT><END>"
-        Optionen.TypeKeys "<delete>"
-        PlugInEinfuegen.Ok
-    else
-        warnlog "Insert plugin isn't visible"
-    end if
-    WaitSlot (5000)
-    kontext "Messagebox"
-    if Messagebox.exists (5) then
-        warnlog "Messagebox: " + Messagebox.gettext
-        Messagebox.ok
-    end if
-    EditPlugIn
-    printlog "Editplugin works!"
-
-    Call hCloseDocument
-endcase
-
-testcase tiEditHyperlink
-    hNewDocument
-    InsertHyperlink
-
-    kontext "HyperlinkDialog"
-    if ( HyperlinkDialog.exists( 2 ) ) then
-        Kontext "Hyperlink"
-        Auswahl.MouseDown 50, 5
-        Auswahl.MouseUp 50, 5
-        Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
-        Auswahl.typekeys "<TAB>"
-        sleep( 1 )
-        Kontext "TabHyperlinkInternet"
-
-        'Workaround to get rid of a Focusing-problem...
-        NameText.Typekeys "alal <RETURN>"
-        NameText.Typekeys "<MOD1 A><DELETE>"
-        TabHyperlinkInternet.Typekeys "<TAB>", 6
-        TabHyperlinkInternet.Typekeys "<LEFT>", 3
-        'End of workaround...
-
-        Internet.Check           'Just to make sure the radio-button is addressable.
-        ZielUrl.Settext "http://www.liegerad-fahrer.de"
-
-        Uebernehmen.Click()
-
-        kontext "HyperlinkDialog"
-        HyperlinkDialog.Close()
-
-        hTypeKeys "<TAB><F2>"
-        EditSelectAll
-        try
-            EditHyperlinkDraw
-            Kontext "HyperlinkDialog"
-            if ( HyperlinkDialog.Exists( 1 ) ) then
-                HyperlinkDialog.Close()
-            else
-                Warnlog "- Hyperlinkdialog not up"
-            end if
-        catch
-            Warnlog "- Not able to edit Hyperlink!"
-        endcatch
-    else
-        warnlog( "Failed to open <HyperlinkDialog>" )
-    endif
-
-    Call hCloseDocument
-endcase
diff --git a/testautomation/graphics/optional/includes/global/id_003.inc b/testautomation/graphics/optional/includes/global/id_003.inc
deleted file mode 100644
index 4ada1beaaea4..000000000000
--- a/testautomation/graphics/optional/includes/global/id_003.inc
+++ /dev/null
@@ -1,264 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\**********************************************************************************
-
-testcase tiViewNavigator
-    Call hNewDocument
-
-    Kontext "NavigatorDraw"
-    if Not NavigatorDraw.Exists Then
-        ViewNavigator
-    end if
-    Kontext "NavigatorDraw"
-    Call DialogTest ( NavigatorDraw )
-
-    try
-        Kontext "Navigator"
-        Navigator.Close
-    catch
-        Errorlog "  Navigator wasn't closed, second try with Menu"
-        ViewNavigator
-    endcatch
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tiViewZoom
-    Call  hNewDocument
-    UseBindings
-    ViewZoom
-    Kontext "Massstab"
-    DialogTest ( Massstab )
-    Massstab.Cancel
-    Call  hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tiViewToolbar
-    Call  hNewDocument
-
-    ViewToolbarsThreeDSettings
-    WaitSlot (1000)
-    ViewToolbarsThreeDSettings
-    WaitSlot (1000)
-
-    ViewToolbarsAlign
-    WaitSlot (1000)
-    ViewToolbarsAlign
-    WaitSlot (1000)
-
-    ViewToolbarsTools
-    WaitSlot (1000)
-    ViewToolbarsTools
-    WaitSlot (1000)
-
-    ViewToolbarsBezier
-    WaitSlot (1000)
-    ViewToolbarsBezier
-    WaitSlot (1000)
-
-    ViewToolbarsFontwork
-    WaitSlot (1000)
-    ViewToolbarsFontwork
-    WaitSlot (1000)
-
-    '   if gApplication = "IMPRESS" then
-    '      ViewToolbarsPresentation ' only in impress, not draw
-    '      ViewToolbarsPresentation
-    '   endif
-
-    ViewToolbarsFormControls
-    WaitSlot (1000)
-    ViewToolbarsFormControls
-    WaitSlot (1000)
-
-    '-----------------
-    ViewToolbarsFormDesign
-    WaitSlot (1000)
-    ViewToolbarsFormDesign
-    WaitSlot (1000)
-
-    ViewToolbarsFormNavigation
-    WaitSlot (1000)
-    ViewToolbarsFormNavigation
-    WaitSlot (1000)
-
-    ViewToolbarsGluepoints
-    WaitSlot (1000)
-    ViewToolbarsGluepoints
-    WaitSlot (1000)
-    ViewToolbarsInsert
-    WaitSlot (1000)
-    ViewToolbarsInsert
-    WaitSlot (1000)
-
-    ViewToolbarsGraphic
-    WaitSlot (1000)
-    ViewToolbarsGraphic
-    WaitSlot (1000)
-
-    ViewToolbarsMediaPlayback
-    WaitSlot (1000)
-    ViewToolbarsMediaPlayback
-    WaitSlot (1000)
-
-    ViewToolbarsOptionbar
-    WaitSlot (1000)
-    ViewToolbarsOptionbar
-    WaitSlot (1000)
-
-    ViewToolbarsPicture
-    WaitSlot (1000)
-    ViewToolbarsPicture
-    WaitSlot (1000)
-
-    ViewToolbarsStandard
-    WaitSlot (1000)
-    ViewToolbarsStandard
-    WaitSlot (1000)
-
-    ViewToolbarsStandardView
-    WaitSlot (1000)
-    ViewToolbarsStandardView
-    WaitSlot (1000)
-
-    ViewToolbarsHyperlinkbar
-    WaitSlot (1000)
-    ViewToolbarsHyperlinkbar
-    WaitSlot (1000)
-
-    ViewToolbarsColorBar
-    WaitSlot (1000)
-    ViewToolbarsColorBar
-    WaitSlot (1000)
-
-    ViewToolbarsCustomize
-    WaitSlot (1000)
-    Kontext
-    try
-        Messagebox.SetPage TabCustomizeMenu             ' 1 ------------------
-    catch
-        warnlog "couldn't switch to tabpage 'Menus'"
-    endcatch
-    Kontext "TabCustomizeMenu"
-    if TabCustomizeMenu.exists(5) then
-        Call DialogTest ( TabCustomizeMenu )
-        Menu.typeKeys("<down>")
-        Entries.typeKeys("<down>")
-        sleep 2
-        BtnNew.Click
-        sleep 1
-        Kontext "MenuOrganiser"
-        Call DialogTest ( MenuOrganiser )
-        MenuOrganiser.cancel
-        sleep 1
-        Kontext "TabCustomizeMenu"
-        TabCustomizeMenu.Close
-    end if
-    sleep (1)
-
-    Call  hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tiViewDisplayQuality
-    Call hNewDocument
-
-    Call hRechteckErstellen 20,20,40,40
-
-    try
-        ViewQualityBlackWhite
-        Printlog "- Quality set to black and white"
-    catch
-        Warnlog "- Slot could not be accessed"
-    endcatch
-    WaitSlot (1000)
-    try
-        ViewQualityGreyscale
-        Printlog "- View quality set to greyscale"
-    catch
-        Warnlog "- View quality greyscale could not be accessed"
-    endcatch
-    WaitSlot (1000)
-    try
-        ViewQualityColour
-        Printlog "- View quality set to colour"
-    catch
-        Warnlog "- View quality colour could not be accessed"
-    endcatch
-    Call hClosedocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tiViewLayer
-    Call hNewDocument
-
-    ViewLayer
-    WaitSlot (1000)
-    ViewLayer
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tViewGrid
-    Call  hNewDocument
-
-    ViewGridVisible
-    ViewGridUse
-    ViewGridFront
-    ViewGridVisible
-    ViewGridUse
-    ViewGridFront
-    WaitSlot (1000)
-    Call  hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tViewSnapLines
-    Call  hNewDocument
-
-    ViewSnapLinesVisible
-    ViewSnapLinesUse
-    ViewSnapLinesFront
-    ViewSnapLinesVisible
-    ViewSnapLinesUse
-    ViewSnapLinesFront
-    WaitSlot (1000)
-    Call  hCloseDocument
-endcase
-
diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc
deleted file mode 100644
index 2e1aa6db3cd1..000000000000
--- a/testautomation/graphics/optional/includes/global/id_004.inc
+++ /dev/null
@@ -1,370 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\**********************************************************************************
-
-
-testcase tiInsertSlide
-
-    Call  hNewDocument
-    InsertSlide
-    WaitSlot (2000)
-    hTypekeys "<Pagedown>"
-    WaitSlot (2000) 'sleep 2
-    Call  hCloseDocument
-endcase
-
-testcase tiInsertDuplicateSlide
-    Call hNewDocument
-    Call hRechteckErstellen ( 30, 40, 40, 50 )
-    InsertDuplicateSlide
-    WaitSlot (2000)
-    Call  hCloseDocument
-endcase
-
-testcase tiInsertField
-    Call hNewDocument
-
-    InsertFieldsTimeFix
-    WaitSlot (1000)
-    printlog "OK   Time Fix"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsDateFix
-    WaitSlot (1000)
-    printlog "OK   Date Fix"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsTimeVariable
-    WaitSlot (1000)
-    printlog "OK   Time Variabel"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsDateVariable
-    WaitSlot (1000)
-    printlog "OK   Date Variabel"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsAuthorDraw
-    WaitSlot (1000)
-    printlog "OK   Author"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsPageNumberDraw
-    WaitSlot (1000)
-    printlog "OK   Page number"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 1
-
-    InsertFieldsFileName
-    WaitSlot (1000) 'sleep 1
-    printlog "OK   File name"
-    EditSelectAll
-    hTypekeys "<Delete>"
-    sleep 2
-    Call  hCloseDocument
-endcase
-
-testcase tiInsertSpecialCharacter
-    Call hNewDocument
-
-    hTextrahmenErstellen ("This is a testtext",30,40,60,50)
-    sleep 2
-    InsertSpecialCharacterDraw
-
-    Kontext "Sonderzeichen"
-    if ( Sonderzeichen.exists( 2 ) ) then
-        Call DialogTest (Sonderzeichen)
-        hCloseDialog( Sonderzeichen, "Cancel" )
-    else
-        warnlog( "<Special Characters> dialog not open" )
-    endif
-    Call hCloseDocument
-endcase
-
-testcase tiInsertHyperlink
-
-    Call hNewDocument
-    InsertHyperlink
-
-    kontext "HyperlinkDialog"
-    if ( HyperlinkDialog.exists( 2 ) ) then
-
-        Kontext "TabHyperlinkInternet"
-        Auswahl.MouseDown 50, 5
-        Auswahl.MouseUp 50, 5
-        Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
-        Auswahl.typekeys "<TAB>"
-
-        'Workaround to get rid of a Focusing-problem...
-        NameText.Typekeys "alal <RETURN>"
-        NameText.Typekeys "<MOD1 A><DELETE>"
-        TabHyperlinkInternet.Typekeys "<TAB>", 6
-        TabHyperlinkInternet.Typekeys "<LEFT>", 3
-        'End of workaround...
-
-        Internet.Check
-        ZielUrl.SetText( "http://www.nowhere.com" )
-        Uebernehmen.Click()
-
-        kontext "HyperlinkDialog"
-        HyperlinkDialog.Close()
-
-    else
-        warnlog "Failed to open <HyperlinkDialog>"
-    end if
-    Call hCloseDocument
-endcase
-
-testcase tiInsertGraphic
-    Call  hNewDocument
-    InsertGraphicsFromFile
-    WaitSlot (2000) '
-    try
-        Kontext "GrafikEinfuegenDlg"
-        if Link.exists then
-            Link.Check
-        else
-            Warnlog  "Linking grafik doesn't work :-("
-        end if
-        if Preview.exists then
-            Preview.Check
-        else
-            Warnlog "Preview of graphic doesn't work :-("
-        end if
-        DialogTest (GrafikEinfuegenDlg)
-
-        Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
-        Oeffnen.click
-    catch
-        Warnlog "Insert graphic doesn't work :-("
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-testcase tiInsertObjectSound
-    goto endsub ' disabled for final, because always wrong (TZ 01/2002)
-    'TODO: TBO: enhance!
-    Call hNewDocument
-    try
-        InsertObjectSound
-        WaitSlot (1000)
-        Kontext "OeffnenDlg"
-        '       Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
-
-        OeffnenDlg.Cancel
-    catch
-        printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
-    endcatch
-    Call hCloseDocument
-endcase
-
-testcase tiInsertObjectVideo
-    goto endsub
-    'TODO: TBO: enhance!
-    Call hNewDocument
-    try
-        InsertObjectVideo
-        Kontext "OeffnenDlg"
-        '      Call Dialogtest (OeffnenDlg)
-        WaitSlot (1000)
-        OeffnenDlg.Cancel
-    catch
-        printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
-    endcatch
-    Call hCloseDocument
-endcase
-
-testcase tiInsertChart
-    Call hNewDocument
-    InsertChart
-
-    Kontext "Messagebox"
-    if ( Messagebox.Exists( 2 ) ) then
-        Warnlog Messagebox.GetText
-        hCloseDialog( Messagebox, "OK" )
-    end if
-    gMouseClick 1,1
-    sleep 2
-    Call hCloseDocument
-endcase
-
-testcase tiInsertObjectOLEObjects
-    hNewDocument
-    InsertObjectOLEObject
-    Kontext "OLEObjektEinfuegen"
-    '   Call Dialogtest ( OLEObjektEinfuegen )
-    '   NeuErstellen.Check ' is default value
-    Call DialogTest (OLEObjektEinfuegen, 1)
-    AusDateiErstellen.Check
-    Call DialogTest (OLEObjektEinfuegen, 2)
-    Durchsuchen.click
-    Kontext "OeffnenDlG"
-    OeffnenDLG.Cancel
-    Kontext "OLEObjektEinfuegen"
-    OLEObjektEinfuegen.Cancel
-    sleep 1
-    Call hCloseDocument
-endcase
-
-testcase tiInsertSpreadsheet
-    if gtSYSName = "Linux" then
-        printlog "Linux = wont test tiInsertSpreadsheet"
-        goto endsub
-    endif
-
-    Call hNewDocument
-    WaitSlot (2000)
-    InsertSpreadsheetDraw
-    WaitSlot (2000)
-    Kontext "Messagebox"
-    if Messagebox.Exists (5) then
-        Warnlog Messagebox.GetText
-        hCloseDialog( Messagebox, "ok" )
-    end if
-    gMouseClick 1,1
-    sleep 1
-    hTypekeys "<Tab><Delete>"
-    sleep 2
-    Call hCloseDocument
-endcase
-
-testcase tiInsertFormula
-    Call hNewDocument
-    InsertObjectFormulaDraw
-
-    Kontext "Messagebox"
-    if ( Messagebox.Exists( 2 ) ) then
-        Warnlog Messagebox.GetText
-        hCloseDialog( Messagebox, "ok" )
-    end if
-    gMouseClick 1,1
-    sleep 1
-    hTypekeys "<Tab><Delete>"
-    Call hCloseDocument
-endcase
-
-testcase tiInsertFloatingFrame
-    Call hNewDocument
-    InsertFloatingFrame
-    WaitSlot (2000)
-    Kontext "TabEigenschaften"
-    Dialogtest (TabEigenschaften)
-    Oeffnen.Click
-    Kontext "OeffnenDlg"
-    hCloseDialog( OeffnenDlg, "Cancel" )
-    Kontext "TabEigenschaften"
-    TabEigenschaften.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiInsertFile
-    Call  hNewDocument
-    WaitSlot (1000)
-    InsertFileDraw
-    WaitSlot (1000)
-    Kontext "OeffnenDLG"
-    '   	Call Dialogtest ( OeffnenDLG )
-    OeffnenDLG.Cancel
-    Call  hCloseDocument
-endcase
-
-testcase tiInsertPlugin
-    call hNewDocument
-    InsertObjectPlugIn
-    Kontext "PluginEinfuegen"
-    if PluginEinfuegen.exists (5) then
-        call Dialogtest (PluginEinfuegen)
-        Durchsuchen.Click
-        sleep 1
-        Kontext "Messagebox"
-        if Messagebox.Exists (5) Then
-            Warnlog Messagebox.GetText
-            Messagebox.OK
-        else
-            printlog "No Messagebox :-)"
-        end if
-        Kontext "OeffnenDlG"
-        if OeffnenDlG.exists (5) then
-            OeffnenDLG.Cancel
-        end if
-        Kontext "PluginEinfuegen"
-        if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
-        else
-            warnlog "Insert Plugin does not work :-("
-        end if
-        Call hCloseDocument
-endcase
-
-testcase tiInsertScan
-    goto endsub
-    Call hNewDocument
-    InsertScanRequest ' as long as there is no scanner available, nothing happens
-    WaitSlot (1000)
-    InsertScanSelectSource
-    WaitSlot (1000)
-    printlog "Not testable, not translatable, just callable, because of systemdialog :-("
-    Call hCloseDocument
-endcase
-
-testcase tiInsertSnappointLine
-    Call  hNewDocument
-    InsertSnapPointLine
-    Kontext "NeuesFangobjekt"
-    DialogTest ( NeuesFangobjekt )
-    NeuesFangobjekt.Cancel
-    sleep 2
-    Call  hCloseDocument
-endcase
-
-testcase tdInsertLayer
-    Call  hNewDocument
-    WaitSlot (1000)
-    ViewLayer
-    InsertLayer
-    Kontext "EbeneEinfuegenDlg"
-    DialogTest ( EbeneEinfuegenDlg )
-    EbeneEinfuegenDlg.Cancel
-    Call  hCloseDocument
-endcase
-
diff --git a/testautomation/graphics/optional/includes/global/id_005.inc b/testautomation/graphics/optional/includes/global/id_005.inc
deleted file mode 100644
index 4aefb701a861..000000000000
--- a/testautomation/graphics/optional/includes/global/id_005.inc
+++ /dev/null
@@ -1,808 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'***********************************************************************************
-' #1 tiFormatDefault
-' #1 tiFormatLine
-' #1 tdFormatArea
-' #1 tiFormatText
-' #1 tiFormatPositionAndSize
-' #1 tiFormatCharacter
-' #1 tiFormatControlForm
-' #1 tiFormatDimensions
-' #1 tiFormatConnector
-' #1 tiFormat3D_Effects
-' #1 tiFormatNumberingBullets
-' #1 tiFormatCaseCharacter
-' #1 tiFormatParagraph
-' #1 tiFormatPage
-' #1 tiFormatStylesAndFormatting
-' #1 tiFormatStylesSlideDesign
-' #1 tiFormatFontwork
-' #1 tiFormatGroup
-' #1 hWalkTheStyles
-'\**********************************************************************************
-
-testcase tiFormatDefault
-
-    Call hNewDocument
-    gMouseClick 50,50
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    FormatStandardDraw
-    Call hCloseDocument
-endcase
-
-testcase tiFormatLine
-    hNewDocument
-    gMouseClick 50,50
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    FormatLine
-    Kontext
-    Messagebox.SetPage TabLinie
-    kontext "TabLinie"
-    Call DialogTest ( TabLinie )
-
-    Kontext
-    Messagebox.SetPage TabLinienstile
-    kontext "TabLinienstile"
-    Call DialogTest ( TabLinienstile )
-    Hinzufuegen.click
-    Kontext "NameDLG"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabLinienstile"
-    Aendern.Click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-    kontext "TabLinienstile"
-    Loeschen.Click
-    Kontext "Messagebox"
-    Messagebox.no
-
-    kontext "TabLinienstile"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    kontext "TabLinienstile"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDLG.Cancel
-    Kontext
-    Messagebox.SetPage TabLinienenden
-    kontext "TabLinienenden"
-    Call DialogTest ( TabLinienenden )
-    Hinzufuegen.Click
-    Kontext "NameDLG"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabLinienenden"
-    Aendern.Click
-    Kontext "Messagebox"
-    try
-        Messagebox.OK
-    catch
-        'print "TabLinienenden"
-    endcatch
-
-    kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabLinienenden"
-    Loeschen.Click
-    Kontext "Messagebox"
-    Messagebox.no
-
-    kontext "TabLinienenden"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    kontext "TabLinienenden"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDlg.Cancel
-    kontext "TabLinienenden"
-    TabLinienenden.cancel
-    Call hCloseDocument
-endcase
-
-testcase tdFormatArea
-    Call hNewDocument
-    gMouseClick 50,50
-    Call hRechteckErstellen (15,15,65,65)
-    gMouseClick 30,30
-    FormatArea
-    WaitSlot (1000)
-    Kontext
-    Messagebox.SetPage TabArea
-    Kontext "TabArea"
-    Call DialogTest ( TabArea )
-    Kontext
-    Messagebox.SetPage TabSchatten
-    kontext "TabSchatten"
-    Anzeigen.Check
-    Call DialogTest ( TabSchatten )
-    Kontext
-    Messagebox.SetPage TabFarben
-    kontext "TabFarben"
-    Farbe.select 1
-    Farbmodell.Select 1
-    Call DialogTest ( TabFarben,1 )
-    Farbmodell.Select 2
-    Call DialogTest ( TabFarben,2 )
-
-    Hinzufuegen.click
-    Kontext "Messagebox"
-    Messagebox.OK
-    kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-    kontext "TabFarben"
-    Loeschen.click
-    Kontext "Messagebox"
-    Messagebox.no
-
-    kontext "TabFarben"
-    sleep 1
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDlg.Cancel
-    sleep 1
-
-    kontext "TabFarben"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    Kontext "TabFarben"
-
-    Kontext
-    Messagebox.SetPage TabFarbverlaeufe
-    kontext "TabFarbverlaeufe"
-    Call DialogTest ( TabFarbverlaeufe )
-
-    Hinzufuegen.click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabFarbverlaeufe"
-    Aendern.Click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabFarbverlaeufe"
-    loeschen.click
-    try
-        kontext "Messagebox"
-        Messagebox.no
-    catch
-        warnlog "nobody cares about deleting a gradient :-("
-    endcatch
-
-    kontext "TabFarbverlaeufe"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    kontext "TabFarbverlaeufe"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDLG.Cancel
-
-    Kontext
-    Messagebox.SetPage TabSchraffuren
-    kontext "TabSchraffuren"
-    Call DialogTest ( TabSchraffuren)
-
-    Hinzufuegen.click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabSchraffuren"
-    Aendern.Click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    kontext "TabSchraffuren"
-    Loeschen.click
-    kontext "Messagebox"
-    Messagebox.no
-
-    kontext "TabSchraffuren"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    kontext "TabSchraffuren"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDLG.Cancel
-
-    Kontext
-    Messagebox.SetPage TabBitmap
-    kontext "TabBitmap"
-    Call DialogTest ( TabBitmap )
-    zurueck.click
-    sleep 1
-    hinzufuegen.click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.cancel
-
-    kontext "TabBitmap"
-    try
-        Aendern.Click
-        Kontext "NameDlg"
-        Call DialogTest ( NameDlg )
-        NameDlg.cancel
-    catch
-        WarnLog "Control is disabled - modify bitmap"
-    endcatch
-    kontext "TabBitmap"
-    Import.Click
-    try
-        Kontext "GrafikEinfuegenDlg"
-        Call DialogTest ( GrafikEinfuegenDlg )
-        Kontext "GrafikEinfuegenDlg"
-        GrafikEinfuegenDlg.Cancel
-    catch
-        Warnlog "Insert graphic does not work"
-    endcatch
-
-    kontext "TabBitmap"
-    loeschen.click
-    kontext "Messagebox"
-    Messagebox.no
-
-    kontext "TabBitmap"
-    Oeffnen.click
-    Kontext "OeffnenDLG"
-    call Dialogtest (OeffnenDLG)
-    OeffnenDLG.Cancel
-    kontext "TabBitmap"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    call Dialogtest (SpeichernDLG)
-    SpeichernDLG.Cancel
-    kontext "TabBitmap"
-    TabBitmap.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormatText
-    Call  hNewDocument
-    FormatTextDraw
-    Kontext
-    Messagebox.SetPage TabText
-    Kontext "TabText"
-    DialogTest ( TabText )
-    Kontext
-    Messagebox.SetPage TabLauftext
-    Kontext "TabLauftext"
-    DialogTest ( TabLauftext )
-    TabLauftext.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormatPositionAndSize
-    Call  hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    ContextPositionAndSize
-    Kontext
-    Messagebox.setpage TabPositionAndSize
-    Kontext "TabPositionAndSize"
-    call Dialogtest ( TabPositionAndSize )
-    kontext "PositionPosition"
-    PositionPosition.TypeKeys ("<right>", 2)
-    kontext "SizePosition"
-    SizePosition.TypeKeys ("<down>", 2)
-    Kontext
-    Messagebox.setPage TabDrehung
-    Kontext "TabDrehung"
-    call Dialogtest ( TabDrehung )
-    Kontext
-    Messagebox.setpage TabSchraegstellen
-    Kontext "TabSchraegstellen"
-    call Dialogtest ( TabSchraegstellen )
-    TabSchraegstellen.cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormatCharacter
-    Call  hNewDocument
-    FormatCharacter
-    WaitSlot (1000)
-    Kontext
-    Messagebox.SetPage TabFont
-    kontext "TabFont"
-    sleep 1
-    Call DialogTest ( TabFont )
-    Kontext
-    Messagebox.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    sleep 1
-    Call DialogTest ( TabFontEffects )
-    sleep 1
-    Kontext
-    Messagebox.SetPage TabFontPosition
-    Kontext "TabFontPosition"
-    sleep 1
-    Call DialogTest ( TabFontPosition )
-    sleep 2
-    TabFontPosition.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormatControlForm
-
-    printlog "testcase: check if controls are available"
-
-    printlog "open new document"
-    Call  hNewDocument
-
-    'click in the document to get the focus into the document
-    if ( UCase(gApplication) = "DRAW" ) then
-        Kontext "DocumentDraw"
-        DocumentDraw.MouseDown(50,50)
-        DocumentDraw.MouseUp(50,50)
-    else 'Impress
-        Kontext "DocumentImpress"
-        DocumentImpress.MouseDown(50,50)
-        DocumentImpress.MouseUp(50,50)
-    endif
-
-    printlog "open the form controls toolbar"
-    call hToolbarSelect("FormControls",true)
-
-    kontext "FormControls"
-    printlog "insert a PushButton"
-    Pushbutton.Click
-    Sleep 1
-    gMouseMove (50, 20,70, 40)
-
-    printlog "open the control properties dialog"
-    FormatControl
-
-    Kontext "ControlPropertiesDialog"
-    WaitSlot (1000)
-    printlog "close the control properties dialog"
-    ControlPropertiesDialog.Close
-
-    printlog "open the form properties dialog"
-    FormatForm
-    Kontext "ControlPropertiesDialog"
-    WaitSlot (1000)
-    printlog "close the form properties dialog"
-    ControlPropertiesDialog.Close
-
-    printlog "close the form control toolbar"
-    call hToolbarSelect("FormControls",false)
-
-    printlog "close application"
-    Call hCloseDocument
-
-endcase
-
-testcase tiFormatDimensions
-    Call  hNewDocument
-    FormatDimensioning
-    Kontext "Bemassung"
-    DialogTest ( Bemassung )
-    Bemassung.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormatConnector
-    Call  hNewDocument
-    FormatConnector
-    Kontext "Verbinder"
-    DialogTest ( Verbinder )
-    Verbinder.Cancel
-    Call hCloseDocument
-endcase
-
-testcase tiFormat3D_Effects
-    Call  hNewDocument
-    Format3D_Effects
-    Kontext "Drei_D_Effekte"
-    Call DialogTest ( Drei_D_Effekte,1 )
-    Geometrie.Click
-    Call DialogTest ( Drei_D_Effekte,2 )
-    Darstellung.Click
-    Call DialogTest ( Drei_D_Effekte,3 )
-    Beleuchtung.Click
-    Call DialogTest ( Drei_D_Effekte,4 )
-    Texturen.Click
-    Call DialogTest ( Drei_D_Effekte,5 )
-    Material.Click
-    Call DialogTest ( Drei_D_Effekte,6 )
-    Kontext "Drei_D_Effekte"
-    Drei_D_Effekte.Close
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatNumberingBullets
-    Call hNewDocument
-    WaitSlot (2000)
-    FormatNumberingBulletsDraw
-    WaitSlot (2000)
-    Kontext
-    Messagebox.SetPage TabBullet
-    Kontext "TabBullet"
-    Call DialogTest ( TabBullet )
-    Kontext
-    Messagebox.SetPage TabNumerierungsart
-    Kontext "TabNumerierungsart"
-    Call DialogTest ( TabNumerierungsart )
-    Kontext
-    Messagebox.SetPage TabGrafiken
-    Kontext "TabGrafiken"
-    Call DialogTest ( TabGrafiken )
-    Kontext
-    Messagebox.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Call DialogTest ( TabPositionNumerierung )
-    Kontext
-    Messagebox.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Call DialogTest ( TabOptionenNumerierung )
-    Numerierung.Select 9 ' last one always ? -> graphics
-    TabOptionenNumerierung.MouseDown 50,60
-    TabOptionenNumerierung.MouseUp 50,60
-    Auswahl.TypeKeys "<SPACE>"
-    hMenuSelectNr (1)
-    sleep 3
-    Kontext "OeffnenDlg"
-    OeffnenDlg.Cancel
-    sleep 1
-    sleep 1
-    Kontext
-    Messagebox.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    sleep 1
-    try
-        Auswahl.TypeKeys "<SPACE>"
-        hMenuSelectNr (2)
-        hMenuSelectNr (3)
-        Sleep 2
-    catch
-        warnlog "couldn't do something :-) (1)"
-        Exceptlog
-        Call hMenuClose
-    endcatch
-    TabOptionenNumerierung.Cancel
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatCaseCharacter
-    Call  hNewDocument
-    Call hTextrahmenErstellen ("testit",20,20,50,30)
-    sleep 1
-    hTypeKeys "<left>"
-
-    FormatChangeCaseUpper
-    WaitSlot (1000)
-    FormatChangeCaseLower
-    WaitSlot (2000)
-    if bAsianLan then
-        if not gAsianSup then
-            qaerrorlog "This is an asian language-office, but asian support was disabled in a previous test?"
-        end if
-        try
-            FormatChangeCaseHalfWidth
-        catch
-            Warnlog "Format / Change Case / Half Width does not work."
-        endcatch
-        WaitSlot (1000)
-        try
-            FormatChangeCaseFullWidth
-        catch
-            Warnlog "Format / Change Case / Full Width does not work!"
-        endcatch
-        sleep 1
-        try
-            FormatChangeCaseHiragana
-        catch
-            Warnlog "Format / Change Case / Hiragana does not work."
-        endcatch
-        sleep 1
-        try
-            FormatChangeCaseKatagana
-        catch
-            Warnlog "Format / Change Case / Katagana does not work."
-        endcatch
-    end if
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatParagraph
-    Call  hNewDocument
-    FormatParagraph
-    Kontext
-    Messagebox.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-    Kontext
-    Messagebox.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-    Kontext
-    Messagebox.SetPage TabTabulator
-    kontext "TabTabulator"
-    Call DialogTest ( TabTabulator )
-    TabTabulator.Cancel
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatPage
-    Call hNewDocument
-    FormatSlideDraw
-    kontext
-    if Messagebox.exists (5) then
-        Messagebox.SetPage TabSeite
-        Kontext "TabSeite"
-        if TabSeite.exists (5) then
-            Call Dialogtest (TabSeite)
-        else
-            warnlog "nope :-(1"
-        endif
-        sleep 1
-        kontext
-        Messagebox.SetPage TabArea
-        sleep 1
-        kontext
-        if messagebox.GetRT = 304 then
-            printlog "active about pagesize != printersettings, will say NO: " + Messagebox.GetText
-            try
-                Messagebox.No
-            catch
-                warnlog messagebox.getText
-                Messagebox.ok ' should be Error loading BASIC of document ##?
-                kontext
-                if messagebox.GetRT = 304 then
-                    try
-                        warnlog messagebox.getText
-                        Messagebox.ok
-                    catch
-                        printlog "not expected state."
-                    endcatch
-                endif
-            endcatch
-        endif
-        sleep 1
-        kontext
-        Messagebox.SetPage TabArea
-        Kontext "TabArea"
-        if TabArea.exists (5) then
-            Call Dialogtest (TabArea)
-        endif
-        sleep 1
-        TabArea.Cancel
-    else
-        warnlog "FormatPage doesn't come up with dialog :-("
-    endif
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatStylesAndFormatting
-    Dim sTemp as String
-    dim sSettings(20,3) ' Control_name; control_type; value
-    dim i as integer
-    dim abctemp
-
-    Call  hNewDocument
-    sleep 5
-
-    hTextrahmenErstellen ("I love Wednesdays...",20,20,80,40)
-    sleep 1
-    printlog "Checking if TextObjectBar is up"
-    Kontext "TextObjectbar"
-    if TextObjectbar.Exists Then
-        printlog "TextObjectbar.Exists = " + TextObjectbar.Exists
-    else
-        ViewToolbarsTextFormatting
-    endif
-    FormatStylist
-    WaitSlot (1000)
-    Kontext "Stylist"
-    if (Stylist.NotExists) then
-        qaErrorLog "There is no stylist open, trying again now"
-        FormatStylist
-    end if
-    WaitSlot (1000)
-    Vorlagenliste.TypeKeys "<End>"
-    Vorlagenliste.TypeKeys "<Up>"
-    Vorlagenliste.TypeKeys "<Up>"
-    sleep 1
-    Vorlagenliste.OpenContextMenu
-    sleep 1
-    hMenuSelectNr (1)
-    sleep 1
-
-    Kontext
-    if Messagebox.exists (5) then
-        try
-            Messagebox.SetPage TabVerwalten
-            Kontext "TabVerwalten"
-            TabVerwalten.TypeKeys "<TAB>"
-            VorlagenName.setText("1Test")
-            sTemp = VorlagenName.getText
-            VerknuepftMit.getSelText
-            Bereich.getSelText
-            TabVerwalten.OK
-        catch
-            warnlog "Under Gnome we have a focus problem here."
-        endcatch
-    end if
-    sleep 1
-    Kontext "Stylist"
-    Vorlagenliste.TypeKeys "<Home>"  'to go to the style we've created ourselves.
-    sleep 1
-    Vorlagenliste.OpenContextMenu
-    sleep 1
-    hMenuSelectNr (2) 'modify...
-    sleep 1
-    Kontext
-    if Messagebox.exists (5) then
-        try
-            Messagebox.SetPage TabVerwalten
-            Kontext "TabVerwalten"
-            VorlagenName.setText("2Test")
-            TabVerwalten.OK
-        catch
-            warnlog "Under Gnome we have a focus problem here."
-        endcatch
-    end if
-
-    sleep 3
-    Kontext "Stylist"
-    Vorlagenliste.TypeKeys "<Home>"  'to go to the style we've created ourselves.
-    sleep 1
-    try
-        Vorlagenliste.TypeKeys "<Delete>" 'To delete the style.
-        Kontext "Active" 'do you really wish to delete?
-        Active.YES
-        sleep 2
-    catch
-        Warnlog "Couldnt delete the new Style, or maybe wrong position?"
-    endcatch
-    Kontext "Stylist"
-    if (Stylist.NotExists) then
-        ErrorLog "There was no Stylist open, should be."
-    else
-        if lcase(gPlatform) = "osx" then
-            hTypekeys "<mod1 t>"
-        else
-            hTypekeys "<F11>"
-        endif
-        Kontext "Stylist"
-        if (Stylist.Exists) then
-            ErrorLog "The Stylist should be closed now."
-        endif
-    endif
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatFontwork
-    Call hNewDocument
-    Call hTextrahmenErstellen ("Flightplanning via www.aua.com is hard!",20,20,50,30)
-    sleep 1
-    FormatFontwork
-    Kontext "FontWork"
-    if FontWork.exists (5) then
-        DialogTest ( FontWork )
-        sleep 1
-        FontWork.Close
-    else
-        warnlog "FontWork didn't came up :-("
-    endif
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatGroup
-    Call hNewDocument
-    hRechteckErstellen ( 10, 10, 20, 20 )
-    hRechteckErstellen ( 30, 30, 40, 40 )
-    EditSelectAll
-    FormatGroupDraw
-    WaitSlot (1000)
-    FormatEditGroupDraw
-    WaitSlot (1000)
-    FormatExitGroupDraw
-    WaitSlot (1000)
-    FormatUngroupDraw
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
-
-testcase tiFormatStylesSlideDesign
-    ' create recktanglr; click outside ?
-    Call hNewDocument
-    WaitSlot (3000)
-    FormatModifyLayout ' is OK : Format->Styles->Slide Design; 27064; SID_PRESENTATION_LAYOUT
-    WaitSlot (1000)
-    Kontext "Seitenvorlage"
-    Call DialogTest ( Seitenvorlage )
-    HintergrundseiteAustauschen.check
-    DeleteUnusedBackgrounds.check
-    Laden.Click
-    kontext "Neu"
-    Zusaetze.click
-    sleep 1
-    kontext "Neu"
-    try
-        Vorschau.check
-    catch
-        printlog "Preview wasn't checkable :-( hopfully now:"
-        Zusaetze.click
-        sleep 1
-        Vorschau.check
-        printlog "... OK :-)"
-    endcatch
-    Neu.cancel
-    Kontext "Seitenvorlage"
-    Seitenvorlage.Cancel
-    sleep 2
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc
deleted file mode 100644
index bcbfa3d7c24b..000000000000
--- a/testautomation/graphics/optional/includes/global/id_006.inc
+++ /dev/null
@@ -1,362 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'***********************************************************************************
-' #1 tiToolsSpellchecking
-' #1 tiToolsSpellcheckingAutomatic
-' #1 tiToolsThesaurus
-' #1 tiToolsHyphenation
-' #1 tiToolsAutoCorrect
-' #1 tChineseTranslation
-' #1 tiToolsMacro
-' #1 tiToolsGallery
-' #1 tiToolsEyedropper
-' #1 tiToolsOptions
-'\**********************************************************************************
-
-
-testcase tiToolsSpellchecking
-
-    if not gOOO then ' Spellcheck doesn't work in OOo builds.
-        Call hNewDocument
-        WaitSlot (2000)    'sleep 2
-        call hSetSpellHypLanguage
-        Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40)
-        sleep 1
-        ToolsSpellCheck
-        WaitSlot (1000)    'sleep 1
-        Kontext "MessageBox"
-        if MessageBox.exists(2) then
-            qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear."
-            qaerrorlog "Maybe no spellchecking for this languages is available."
-            MessageBox.OK
-        else
-            Kontext "Rechtschreibung"
-            if Rechtschreibung.exists then
-                Call DialogTest ( Rechtschreibung )
-                Rechtschreibung.Close
-            else
-                warnlog " Spellcheck dialog didn't came up :-("
-            end if
-        end if
-        sleep 1
-        Kontext "Messagebox"
-        if Messagebox.exists (5) then
-            warnlog "Shouldn't be any messagebox after pressing close in spellchecker"
-            Messagebox.OK
-            sleep (2)
-            Kontext
-        end if
-        Call hCloseDocument
-    else goto endsub
-    endif
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsSpellcheckingAutomatic
-    Call hNewDocument
-    ToolsSpellcheckAutoSpellcheck
-    Call hTextrahmenErstellen ("What", 10, 10, 30, 40)
-    sleep 2
-    ToolsSpellcheckAutoSpellcheck
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsThesaurus
-    if not gOOO then ' Thesaurus doesn't work in OOo builds.
-
-        dim sFileName as String
-
-        call hSetSpellHypLanguage
-        if (gApplication = "IMPRESS") then
-            sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odp"))
-        else
-            sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg"))
-        end if
-        if FileExists ( sFileName ) = FALSE then
-            warnlog "The language-file was not found or accessible! The test ends."
-            goto endsub
-        end if
-        Call hFileOpen (sFileName)
-        sleep (2)
-
-        hTypeKeys "<TAB><RETURN>"
-        hTypeKeys "<END><SHIFT HOME>"
-
-        '   Call hTextrahmenErstellen ("SimpleTest" + "<Mod1 Shift left>", 10, 10, 30, 40)
-        try
-            ExtrasThesaurusDraw
-            Kontext "Thesaurus"
-            Call DialogTest ( Thesaurus )
-            Sprache.Click
-            Kontext "SpracheAuswaehlen"
-            Call DialogTest ( SpracheAuswaehlen )
-            SpracheAuswaehlen.cancel
-            Kontext "Thesaurus"
-            Nachschlagen.Click
-            kontext
-            if Messagebox.exists (5) then
-                printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'"
-                Messagebox.ok
-            end if
-            sleep 1
-            Kontext "Thesaurus"
-            Thesaurus.Cancel
-        catch
-            warnlog "Thesaurus didn't work :-("
-        endcatch
-        sleep 1
-        Call hCloseDocument
-    else goto endsub
-    endif
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsHyphenation
-    Call hNewDocument
-    ToolsLanguageHyphenationDraw
-    WaitSlot (2000)    'sleep 2
-    ToolsLanguageHyphenationDraw
-    Call hCloseDocument
-endcase
-
-testcase tiToolsAutoCorrect
-    dim iLanguage as integer ' for resetting the language
-    Call hNewDocument
-    WaitSlot (1000)    'sleep 1
-    ToolsAutocorrect
-    WaitSlot (2000)    'sleep 1
-    Kontext
-    Messagebox.SetPage TabErsetzung
-    Kontext "TabErsetzung"
-    Call DialogTest ( TabErsetzung )
-    iLanguage = WelcheSprache.GetSelIndex
-    WelcheSprache.Select 1 ' select language with empty list
-    Kuerzel.SetText "a"
-    ErsetzenDurch.SetText "b"
-    Neu.Click
-    sleep 1
-    Loeschen.Click
-    sleep 1
-    try
-        Loeschen.Click
-    catch
-        printlog "ok was CRASH before" '#
-    endcatch
-    WelcheSprache.select (iLanguage)
-    Kontext
-    Messagebox.SetPage TabAusnahmen
-    Kontext "TabAusnahmen"
-    Call DialogTest ( TabAusnahmen )
-    Abkuerzungen.settext "Lala"
-    AbkuerzungenNeu.click
-    AbkuerzungenLoeschen.click
-    Woerter.settext "LALA"
-    WoerterAutomatisch.Check
-    WoerterNeu.click
-    WoerterLoeschen.click
-    WoerterAutomatisch.UnCheck
-    Kontext
-    Messagebox.SetPage TabOptionen
-    Kontext "TabOptionen"
-    Call DialogTest ( TabOptionen )
-    Kontext
-    Messagebox.SetPage TabLocalizedOptions
-    Kontext "TabLocalizedOptions"  ' 1a
-    SingleQuotesReplace.Check
-    SingleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 1 )
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"  ' 1b
-    SingleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 2 )
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"  ' 1s
-    SingleQuotesDefault.Click
-
-    Kontext "TabLocalizedOptions"  ' 2a
-    DoubleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 3 )
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"  ' 2b
-    DoubleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 4 )
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"  ' 2s
-    DoubleQuotesDefault.Click
-    SingleQuotesReplace.UnCheck
-    TabLocalizedOptions.cancel
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tChineseTranslation
-
-    qaerrorlog( "#i89634# - Chinese Translation dialog does not close" )
-    goto endsub
-
-    dim sFileName   as string
-    dim bSavedAsianSupport as boolean
-
-    if uCase(gApplication) = "IMPRESS" then
-        sFileName = "graphics\required\input\tchinese.odp"
-    else
-        sFileName = "graphics\required\input\tchinese.odg"
-    end if
-
-    Call hNewDocument
-    WaitSlot (2000)    'sleep 1
-    bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE)
-    Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
-    sleep (2)
-    Kontext "Standardbar"
-    if Bearbeiten.GetState(2) <> 1 then
-        Bearbeiten.Click '0 = not pressed. 1 = pressed.
-        Kontext
-        if Active.Exists(1) then
-            Active.Yes
-        else
-            warnlog "No messagebox after making document editable? - Test canceled here"
-            goto endsub
-        end if
-    end if
-    if uCase(gApplication) = "IMPRESS" then
-        Kontext "DocumentImpress"
-    else
-        Kontext "DocumentDraw"
-    end if
-    EditSelectAll
-    hTypeKeys "<RETURN>"
-    hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>"
-    ToolsChineseTranslation
-    WaitSlot (2000)    'sleep 1
-    kontext "ChineseTranslation"
-    Call DialogTest ( ChineseTranslation )
-    EditTerms.Click
-    kontext "ChineseDictionary"
-    Call DialogTest ( ChineseDictionary )
-    ChineseDictionary.Ok
-    kontext "ChineseTranslation"
-    ChineseTranslation.OK
-    kontext
-    if Messagebox.exists (5) then
-        printlog "Messagebox: "+Messagebox.gettext+"'"
-        Messagebox.ok
-    end if
-    ActiveDeactivateAsianSupport(bSavedAsianSupport)
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsMacro
-    Call hNewDocument
-    WaitSlot (2000)    'sleep 2
-    ToolsMacro
-    Kontext "Makro"
-    Call DialogTest ( Makro )
-    Verwalten.Click
-
-    Kontext
-    Messagebox.SetPage TabModule
-    Kontext "TabModule"
-    Call DialogTest ( TabModule )
-
-    Kontext
-    Messagebox.SetPage TabBibliotheken
-    Kontext "TabBibliotheken"
-    Call DialogTest ( TabBibliotheken )
-    Hinzufuegen.Click
-    Kontext "Messagebox"
-    if Messagebox.Exists (5) then
-        if Messagebox.GetRT = 304 then
-            Warnlog Messagebox.Gettext
-            Messagebox.Ok
-        end if
-    end if
-    Kontext "OeffnenDlg"
-    OeffnenDlg.Cancel
-    Kontext "TabBibliotheken"
-    Neu.Click
-    kontext "NeueBibliothek"
-    sleep 1 'Bibliotheksname
-    NeueBibliothek.cancel
-    Kontext "TabBibliotheken"
-    TabBibliotheken.Close
-
-    Kontext "Makro"
-    Makro.Cancel
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsGallery
-    Call hNewDocument
-    ToolsGallery
-    WaitSlot (2000)    'sleep 1
-    ToolsGallery
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsEyedropper
-    Call hNewDocument
-    ToolsEyedropper
-    Kontext "Pipette"
-    Call DialogTest (Pipette)
-    Pipette.Close
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tiToolsOptions
-    Call hNewDocument
-    ToolsOptions
-    WaitSlot (2000)    'sleep 1
-    kontext "OptionenDlg"
-    OptionenDlg.Close
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/id_007.inc b/testautomation/graphics/optional/includes/global/id_007.inc
deleted file mode 100644
index bbc870953f3a..000000000000
--- a/testautomation/graphics/optional/includes/global/id_007.inc
+++ /dev/null
@@ -1,426 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'***********************************************************************************
-' #1 tdModifyFlipVertikal
-' #1 tdModifyFlipHorizontal
-' #1 tdContextConvertIntoCurve
-' #1 tdContextConvertIntoPolygon
-' #1 tdContextConvertIntoContour
-' #1 tdContextConvertInto3D
-' #1 tdContextConvertIntoRotationObject
-' #1 tdContextConvertIntoBitmap
-' #1 tdContextConvertIntoMetaFile
-' #1 tdModifyArrange
-' #1 tdModifyArrangeObjects
-' #1 tdModifyAlignment
-' #1 tdContextDistribution
-' #1 tdContextDescriptionObject
-' #1 tdContextNameObject
-' #1 tdModifyConnectBreak
-' #1 tdModifyShapes
-' #1 tdModifyCombineSplit
-'\**********************************************************************************
-
-testcase tdModifyFlipVertikal
-
-    Call hNewDocument            ' imp: contextmenue same SID!
-    sleep 1
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    try
-        ContextFlipVerticalDraw
-        Printlog "- Flip-vertical is working"
-    catch
-        Warnlog "- Flip-Vertical does not work"
-    endcatch
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyFlipHorizontal
-    Call hNewDocument            ' imp: contextmenue same SID!
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    try
-        ContextFlipHorizontalDraw
-        Printlog "- Flip-horizontal is working"
-    catch
-        Warnlog "- Flip-horizontal does not work"
-    endcatch
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoCurve
-    Call hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    ContextConvertIntoCurve
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoPolygon
-    dim iWaitIndex as integer
-    Call hNewDocument            ' imp: contextmenue same SID!
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    iWaitIndex = 0
-    do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
-        sleep(1)
-        iWaitIndex = iWaitIndex + 1
-    loop
-    if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
-        warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
-        Call hCloseDocument
-        goto endsub
-    end if
-    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
-    Oeffnen.Click
-    sleep 3
-    ContextConvertIntoPolygon
-    Kontext "InPolygonUmwandeln"
-    Call DialogTest (InPolygonUmwandeln)
-    LoecherFuellen.Check
-    Farbanzahl.More
-    Punktreduktion.More
-    Kachelgroesse.More
-    Vorschau.Click
-    sleep 10
-    InPolygonUmwandeln.Cancel
-    sleep (2)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoContour
-    Call hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    ContextConvertIntoContour
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertInto3D
-    Call hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    ContextConvertInto3D
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoRotationObject
-    Call hNewDocument
-    WaitSlot (1000)
-    Call hRechteckErstellen (20,20,50,50)
-    sleep 2
-    ContextConvertInto3DRotationObject
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoBitmap
-    Call hNewDocument
-    WaitSlot (3000)
-    InsertGraphicsFromFile
-    WaitSlot (3000)
-    Kontext "GrafikEinfuegenDlg"
-    sleep 2
-    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
-    sleep 2
-    Oeffnen.Click
-    sleep 2
-    try
-        ContextConvertIntoBitmap
-        Printlog "- Convert into bitmap is working"
-    catch
-        Warnlog "- Convert into bitmap does not work"
-    endcatch
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextConvertIntoMetaFile
-    Call hNewDocument
-    WaitSlot (3000)
-    InsertGraphicsFromFile
-    WaitSlot (1000)
-    kontext "Messagebox"
-    if Messagebox.Exists (5) Then Messagebox.OK
-        sleep 1
-        Kontext "GrafikEinfuegenDlg"
-        sleep 2
-        Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-        sleep 2
-        Preview.Click
-        sleep 3
-        Oeffnen.Click
-        sleep 5
-        try
-            ContextConvertIntoMetafile
-            Printlog "- convert into meta file does work"
-        catch
-            Warnlog "- convert into meta file does not work"
-        endcatch
-        Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyArrange
-    Call hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    hTypeKeys("<escape>")
-    Call hRechteckErstellen ( 30, 30, 50, 60 )
-    FormatArrangeBringToFront
-    WaitSlot (1000)
-    ContextArrangeBringForward
-    WaitSlot (1000)
-    ContextArrangeBringBackward
-    WaitSlot (1000)
-    FormatArrangeSendToBack
-    WaitSlot (1000)
-    EditSelectAll
-    ContextArrangeReverse
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyArrangeObjects
-    Call hNewDocument
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 20, 20, 30, 50 )
-    hTypeKeys("<escape>")
-    Call hRechteckErstellen ( 30,30,50,50 )
-    ContextArrangeInFrontOfObject
-    gMouseClick 11,11
-    ContextArrangeBehindObject
-    gMouseClick 45,45
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyAlignment
-    Call hNewDocument
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 20, 20, 30, 50 )
-    ContextAlignmentLeft
-    WaitSlot (1000)
-    ContextAlignmentCentered
-    WaitSlot (1000)
-    ContextAlignmentRight
-    WaitSlot (1000)
-    ContextAlignmentTop
-    WaitSlot (1000)
-    ContextAlignmentBottom
-    WaitSlot (1000)
-    ContextAlignmentCenter
-    WaitSlot (1000)
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextDistribution
-    Call hNewDocument
-    WaitSlot (3000)
-    Call hRechteckErstellen (20,20,30,30)
-    Call hRechteckErstellen (40,40,50,50)
-    Call hRechteckErstellen (60,60,70,70)
-    sleep 1
-    EditSelectAll
-    sleep 1
-    ContextDistribution
-    Kontext "VerteilenDlg"
-    sleep 1
-    Call DialogTest (VerteilenDlg)
-    sleep 1
-    Links.Check
-    MitteHorizontal.Check
-    AbstandHorizontal.Check
-    Rechts.Check
-    KeineHorizontal.Check
-    Oben.Check
-    MitteVertikal.Check
-    AbstandVertikal.Check
-    Unten.Check
-    KeineVertikal.Check
-    VerteilenDlg.Cancel
-    sleep 2
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextDescriptionObject
-    Call hNewDocument
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    ContextDescriptionObject
-    Kontext "DescriptionObject"
-    Call DialogTest (DescriptionObject)
-    DescriptionObject.Cancel
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdContextNameObject
-    Call hNewDocument
-    WaitSlot (1000)
-    Call hRechteckErstellen ( 20, 20, 30, 50 )
-    hTypeKeys("<escape>")
-    Call hRechteckErstellen ( 30, 40, 50, 60 )
-    sleep 1
-    gMouseMove 1,1,95,95
-    sleep 1
-    FormatGroupGroup
-    WaitSlot (1000)
-    ContextNameObject
-    Kontext "NameDlgObject"
-    Call DialogTest (NameDlgObject)
-    NameDlgObject.Cancel
-    FormatUngroupDraw
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyConnectBreak
-    Call hNewDocument
-    sleep 1
-    Call hRechteckErstellen (10,10,30,30)
-    Call hRechteckErstellen (35,35,50,50)
-    sleep 1
-    EditSelectAll
-    ContextConnect
-    sleep 1
-    try
-        ContextBreak
-    catch
-        Warnlog "- Modify-Break does not work"
-    endcatch
-    sleep 1
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyShapes
-    Call hNewDocument
-    sleep 1
-    gMouseClick 50,50
-    Call hRechteckErstellen (30,30,50,50)
-    Call hRechteckErstellen (60,60,80,80)
-    sleep 1
-    EditSelectAll
-    sleep 1
-    try
-        ModifyShapesMerge         ' 1
-        WaitSlot (1000)    'sleep 1
-        Printlog "- Modify-Shape merge is working"
-    catch
-        Warnlog "- Modify-shape merge is not working"
-    endcatch
-    EditSelectAll
-    sleep 1
-    hTypeKeys "<DELETE>"
-    sleep 1
-    Call hRechteckErstellen (30,30,50,50)
-    Call hRechteckErstellen (60,60,80,80)
-    sleep 1
-    EditSelectAll
-    sleep 1
-    try
-        ModifyShapesSubstract     ' 2
-        Printlog "- Modify-shape-substract is working"
-    catch
-        Warnlog "- Modify-shape substract is not working"
-    endcatch
-    sleep 1
-    EditSelectAll
-    sleep 1
-    hTypeKeys "<DELETE>"
-    sleep 1
-    Call hRechteckErstellen (30,30,50,50)
-    sleep 1
-    Call hRechteckErstellen (60,60,80,80)
-    sleep 1
-    EditSelectall
-    sleep 1
-    try
-        ModifyShapesIntersect      ' 3
-        Printlog "- Modify-shape intersect is working"
-    catch
-        Warnlog "- Modify-Shape intersect is not working"
-    endcatch
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tdModifyCombineSplit
-    Call hNewDocument
-    sleep 1
-    Call hRechteckErstellen (30,30,50,50)
-    Call hRechteckErstellen (60,60,80,80)
-    sleep 1
-    EditSelectAll
-    sleep 1
-    try
-        ContextCombine
-        Printlog "- Modify combine is working"
-        ContextSplit
-        Printlog "- Modify-split is working"
-    catch
-        Warnlog "- Modify-combine and split are not working"
-    endcatch
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/id_008.inc b/testautomation/graphics/optional/includes/global/id_008.inc
deleted file mode 100644
index 654cae0f00df..000000000000
--- a/testautomation/graphics/optional/includes/global/id_008.inc
+++ /dev/null
@@ -1,71 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'******************************************************************
-' #1 tiWindowNewWindow
-' #1 tidWindow123       'wrn:2
-'\*****************************************************************
-
-testcase tiWindowNewWindow
-
-    Call  hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-    WindowNewWindow
-    WaitSlot (2000)
-    Call hCloseDocument
-endcase
-
-testcase tidWindow123
-    goto endsub '' testing TBO: 29.03.2002
-    dim iMenues as integer
-    Call  hNewDocument
-    Call hRechteckErstellen ( 10, 10, 20, 40 )
-
-    Kontext "DocumentImpress"
-    DocumentImpress.UseMenu
-    iMenues = MenuGetItemCount
-    warnlog "---- Number of Main menus: " & iMenues
-    MenuSelect(Menugetitemid(8))
-    sleep 1
-    iMenues = MenuGetItemCount
-    printlog "---- Number of Main menus: " & iMenues
-    '     MenuSelect(Menugetitemid(14))
-    sleep 1
-    i=1
-    printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
-    i=2
-    printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
-    warnlog "Dynamic entries not accessible ? :-((((("
-    '   i=3
-    '   printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
-    Call hCloseDocument
-endcase
-
diff --git a/testautomation/graphics/optional/includes/global/id_009.inc b/testautomation/graphics/optional/includes/global/id_009.inc
deleted file mode 100644
index 7096a1a860a9..000000000000
--- a/testautomation/graphics/optional/includes/global/id_009.inc
+++ /dev/null
@@ -1,243 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description : Testcases to test the Help-Menu.
-'*
-'***********************************************************************************
-' #1 tmHelpHelpAgent
-' #1 tmHelpTips
-' #1 tmHelpExtendedTips
-' #1 tmHelpAboutStarOffice
-' #1 tmHelpContents
-' #1 tCheckIfTheHelpExists
-'\**********************************************************************************
-'
-testcase tmHelpHelpAgent
-
-    Call hNewDocument
-
-    hTBOtypeInDoc
-
-    HelpHelpAgent         ' it's just a switch
-    sleep 2
-    HelpHelpAgent
-
-    Call hCloseDocument
-endcase
-
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
-
-testcase tmHelpTips
-    Call hNewDocument
-    hTBOtypeInDoc
-
-    HelpTips
-    Sleep 2
-    HelpTips
-
-    Call hCloseDocument
-endcase
-
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
-
-testcase tmHelpExtendedTips
-    Call hNewDocument
-    hTBOtypeInDoc
-
-    HelpEntendedHelp
-    Sleep (2)
-    HelpEntendedHelp
-
-    Call hCloseDocument
-endcase
-
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
-
-testcase tmHelpAboutStarOffice
-    Call hNewDocument
-    hTBOtypeInDoc
-
-    HelpAboutStarOffice
-    Kontext "UeberStarMath"
-    DialogTest (UeberStarMath)
-    UeberStarMath.OK
-
-    Call hCloseDocument
-endcase
-
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
-
-testcase tmHelpContents
-    goto endsub '"#i84486# - tmHelpContents outcommented due to crash."
-    dim i as integer
-
-    Call hNewDocument
-    HelpContents
-    sleep(8)
-    kontext "StarOfficeHelp"
-    if Not StarOfficeHelp.Exists then
-        Warnlog "Help is not up!"
-    else
-        Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
-        '################ left half ################
-        TabControl.SetPage ContentPage
-        Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
-        TabControl.SetPage IndexPage
-        Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
-        sleep 5
-        DisplayIndex.Click
-        sleep 5
-        TabControl.SetPage FindPage
-        Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
-        if SearchFind.GetSelText = "" then
-            if FindButton.IsEnabled then
-                warnlog "   The Find-Button should have been inactive, but was active."
-            endif
-        else
-            warnlog "   The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
-        endif
-        SearchFind.SetText "Doobbidedooo"
-        FindButton.Click
-        kontext
-        if (active.exists (2) )then
-            Printlog "active came up: '" + active.gettext + "'"
-            active.ok
-        endif
-        kontext "StarOfficeHelp"
-        FindFullWords.Check
-        FindInHeadingsOnly.Check
-        Printlog "Result: '" + Result.GetItemCount + "'"
-        DisplayFind.Click
-        TabControl.SetPage BookmarksPage
-        Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
-        DisplayBookmarks.Click
-        '################ right half ################
-        '################ toolbar ################
-        Kontext "TB_Help"
-        Index.Click
-        sleep 1
-        Index.Click
-        sleep 1
-        GoToStart.Click
-        sleep 1
-        Backward.Click
-        sleep 1
-        Forward.Click
-        sleep 1
-        PrintButton.Click
-        sleep (1)
-
-        kontext "Active"
-        if Active.Exists( 2 ) then
-            qaerrorlog "No default printer defined: " & Active.GetText
-            Active.Ok
-        end if
-
-        kontext "Printing"
-        if Printing.Exists( 2 ) then
-            Printing.cancel
-        else
-            warnlog "the Print-Dialogue didnt appear."
-        end if
-        Kontext "TB_Help"
-        sleep 1
-        SetBookmarks.Click
-        sleep 1
-        Kontext "AddBookmark"
-        Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
-        AddBookmark.Cancel
-        sleep 1
-        '################ help display ################
-        kontext "HelpContent"
-        HelpContent.OpenContextMenu
-
-        sleep 1
-        Printlog " i: " + hMenuItemGetCount
-        hMenuClose()
-        '################ right scroolbar ################
-        kontext "HelpContent"
-        if HelpContentUP.IsVisible then
-            HelpContentUP.Click
-            sleep 1
-        endif
-        if HelpContentNAVIGATION.IsVisible then
-            HelpContentNAVIGATION.Click
-            sleep 1
-        endif
-        kontext "NavigationsFenster"
-        NavigationsFenster.Close
-        sleep 1
-        kontext "HelpContent"
-        if HelpContentDOWN.IsVisible then
-            HelpContentDOWN.Click
-            sleep 1
-        endif
-        kontext "StarOfficeHelp"
-        Printlog "trying to close the help now"
-        try
-            StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4   supported since bug  #103586#
-        catch
-            Warnlog "failed to close the help window :-("
-        endcatch
-        kontext "StarOfficeHelp"
-        if StarOfficeHelp.Exists then
-            warnlog "Help still up!"
-        endif
-    endif
-    Call hCloseDocument
-endcase
-
-'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
-
-testcase tCheckIfTheHelpExists
-    Call hNewDocument
-    HelpContents
-    kontext "HelpContent"
-    sleep (5)
-    HelpContent.TypeKeys "<MOD1 A>"
-    sleep (1)
-    HelpContent.TypeKeys "<MOD1 C>"
-    if GetClipBoard = "" then
-        Warnlog "   No content in the Help-Content -view."
-    else
-        Printlog "   The Help-Content -view contained content. Good."
-    endif
-    kontext "StarOfficeHelp"
-    try
-        StarOfficeHelp.TypeKeys "<MOD1 F4>"
-    catch
-        Warnlog "   Failed to close the help window :-("
-    endcatch
-    kontext "StarOfficeHelp"
-    if StarOfficeHelp.Exists then
-        warnlog "Help was still visible!"
-    endif
-    hTypeKeys "."
-    Call hCloseDocument
-endcase 'tCheckIfTheHelpExists
diff --git a/testautomation/graphics/optional/includes/global/id_011.inc b/testautomation/graphics/optional/includes/global/id_011.inc
deleted file mode 100644
index b1880d0982e8..000000000000
--- a/testautomation/graphics/optional/includes/global/id_011.inc
+++ /dev/null
@@ -1,995 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'*******************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/******************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\******************************************************************************
-
-testcase tiTextToolbar
-
-    Dim iWaitIndex as integer
-    Dim Zufall as integer
-    Dim i as integer
-
-    Call hNewDocument
-
-    hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80)
-    sleep 2
-    EditSelectAll
-    sleep 2
-    Kontext "TextObjectbar"
-    if TextObjectbar.Exists <> TRUE then  'isVisible
-        ViewToolbarsTextFormatting
-    endif
-    WaitSlot (3000)    'sleep (3)
-    Kontext "TextObjectbar"
-    Printlog "- choose random font"
-    randomize
-    Zufall=((2*Rnd)+1)      ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
-    Schriftart.GetItemcount
-    Schriftart.GetSelText
-    Schriftart.Select (Zufall)
-    Printlog Schriftart.GetSelText + " chosen"
-
-    Kontext "TextObjectbar"
-    sleep 2
-    Printlog "- Change size of font"
-    Schriftgroesse.Select (Zufall)
-    Printlog Schriftgroesse.GetSelText + " chosen"
-
-    Kontext "TextObjectbar"
-    Printlog "- Font attribute bold"
-    Fett.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Font attribute cursive"
-    Kursiv.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Font attribute cursiv"
-    Unterstrichen.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- font attribute color"
-    sleep 3
-    FontColorGraphics.TearOff
-    Kontext "TB_Farbe"
-    TB_Farbe.Move 20, 20
-    Sleep 2
-    TB_Farbe.MouseDoubleClick 50, 50
-    Sleep 2
-    TB_Farbe.Close
-
-    Kontext "TextObjectbar"
-    Printlog "- Allign text left"
-    Linksbuendig.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Allign text centered"
-    Zentriert.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- align text to right"
-    Rechtsbuendig.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Justified"
-    Blocksatz.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    if TextObjectbar.isEnabled <> TRUE then
-        warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
-        ViewToolbarsTextFormatting
-    endif
-    WaitSlot (2000)    'sleep 2
-    Printlog "- Raising Font spacing"
-
-    kontext "TextObjectbar"
-    sleep 1
-    iWaitIndex = 0
-    do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
-        sleep(1)
-        iWaitIndex = iWaitIndex + 1
-    loop
-    if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
-        warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
-        Call hCloseDocument
-        goto endsub
-    endif
-    TextObjectbar.OpenContextMenu
-    sleep 2
-    hMenuselectNr (1)
-    sleep 2
-    hMenuItemCheck (13)
-    sleep 2
-    TextObjectbar.OpenContextMenu
-    sleep 2
-    hMenuselectNr (1)
-    sleep 2
-    hMenuItemCheck (14)
-    sleep 2
-    ZeilenabstandErhoehen.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Decrease Spacing"
-    ZeilenabstandVerringern.Click
-    sleep 2
-
-    Kontext "TextObjectbar"
-    Printlog "- Numbering and Bullets"
-    sleep 2
-    BulletsOnOff.Click
-    sleep 2
-    BulletsOnOff.Click
-
-    Kontext "TextObjectBar"
-    Printlog "- Increase Font /Reduce Font"
-    sleep 2
-    printlog "Click on Increase Font"
-    IncreaseFont.Click
-    sleep 2
-    printlog "Click on Reduce Font"
-    ReduceFont.Click
-
-    Kontext "TextObjectbar"
-    Printlog "- Text direction from left to right"
-    sleep 2
-    Printlog "- click button 'Text direction from left to right
-    try
-        TextdirectionLeftToRight.Click
-        printlog "hor does work :-)"
-        if (NOT gAsianSup) then
-            warnlog " this doesn't have to work if asian lang support is disabled :-)"
-        endif
-    catch
-        if (gAsianSup) then
-            warnlog "hor does NOT work :-("
-        endif
-    endcatch
-    Printlog "- click button 'Text direction from top to bottom"
-    try
-        TextdirectionTopToBottom.Click
-        printlog "ver does work :-)"
-        if (gAsianSup = FALSE) then
-            warnlog " this doesnt have to work if asian lang support is disabled :-)"
-        endif
-    catch
-        if (gAsianSup = TRUE) then
-            warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
-        endif
-    endcatch
-
-    Printlog "- open character dialog"
-    Kontext "TextObjectbar"
-    sleep 2
-    Zeichenformat.Click
-    sleep 2
-
-    Kontext
-    Active.SetPage TabFont
-
-    Kontext "TabFont"
-    sleep 2
-    if TabFont.Exists Then
-        TabFont.Cancel
-        Printlog "- Tabfont exists"
-    else
-        Warnlog "- No dialog exists "
-    endif
-
-    Kontext "TextObjectbar"
-    sleep 2
-    Printlog "- call properties for paragraph using text object toolbar"
-    Absatzformat.Click
-    sleep 2
-
-    Kontext
-    Active.SetPage TabTabulator
-
-    Kontext "TabTabulator"
-    if TabTabulator.Exists Then
-        Printlog "- TabTabulator exists"
-        TabTabulator.Cancel
-    else
-        Warnlog "- TabTabulator does not exist"
-    endif
-
-    if ( gApplication = "IMPRESS" ) then  ' IMPRESS only
-
-        Kontext "TextObjectbar"
-        OutlineBullet.Click
-        kontext
-        if active.exists (5) then
-            messagebox.SetPage TabOptionenNumerierung
-
-            kontext "TabOptionenNumerierung"
-            if (TabOptionenNumerierung.exists (5) ) then
-                Printlog "Numbering/Bullets window came up :-)"
-                TabOptionenNumerierung.cancel
-            else
-                warnlog "no Numbering/Bullets window came up :-("
-            endif
-        else
-            warnlog "no Numbering/Bullets window came up :-( 2"
-        endif
-
-        Printlog "-change order of outline points"
-        sleep 3
-        ViewWorkspaceOutlineView
-        WaitSlot (2000)    'sleep (3)
-
-        Kontext "DocumentImpressOutlineView"
-        sleep 1
-        DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
-        sleep 1
-
-        Kontext "TextObjectbar"
-        HierachieRunter.Click
-        sleep 1
-        Printlog "- Move back down"
-        HierachieHoch.Click
-        sleep 1
-        HierachieHoch.Click
-        sleep 1
-        Printlog "- Move paragraph up"
-        AbsatzHoch.Click
-        sleep 1
-        Printlog "- move paragraph back down and switch to drawing view"
-        AbsatzRunter.Click
-        sleep 1
-
-        Kontext "Vorschau"
-        if Vorschau.Exists then
-            printlog "- - - - preview window is open, hope there is no problem"
-            '    Vorschau.Close
-        endif
-
-    else '      DRAW only
-        Kontext "TextObjectbar"
-        Printlog "- Double"
-        LineSpacing2.Click
-        sleep 2
-
-        Kontext "TextObjectbar"
-        Printlog "- 1.5 lines"
-        LineSpacing15.Click
-        sleep 2
-
-        Kontext "TextObjectbar"
-        Printlog "- Single"
-        LineSpacing1.Click
-        sleep 2
-    endif
-
-    iWaitIndex = 0
-
-    Kontext "TextObjectbar"
-    do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
-        sleep(1)
-        iWaitIndex = iWaitIndex + 1
-    loop
-    if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
-        warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
-        Call hCloseDocument
-        goto endsub
-    endif
-    sleep 2
-
-    Kontext "TextObjectbar"
-    TextObjectbar.OpenContextMenu
-    sleep 2
-    hMenuselectNr (1)
-    sleep 2
-    hMenuItemUnCheck (13)
-    sleep 2
-    TextObjectbar.OpenContextMenu
-    sleep 2
-    hMenuselectNr (1)
-    sleep 2
-    hMenuItemUnCheck (14)
-    sleep 2
-    ViewToolbarsTextFormatting
-    WaitSlot (2000)    'sleep 1
-    if ( gApplication = "IMPRESS" ) then
-        Kontext "DocumentImpressOutlineView"
-        DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
-        hUseAsyncSlot( "EditSelectAll" )
-        DocumentImpressOutlineView.TypeKeys "<DELETE>"
-        sleep (3)
-        ViewWorkspaceDrawingView
-
-        Kontext "DocumentImpress"
-        WaitSlot (2000)    'sleep 1
-        DocumentImpress.TypeKeys "<ESCAPE>"
-        hUseAsyncSlot( "EditSelectAll" )
-        DocumentImpress.TypeKeys "<DELETE>"
-    else
-        Kontext "DocumentDraw"
-        DocumentDraw.TypeKeys "<ESCAPE>"
-        hUseAsyncSlot( "EditSelectAll" )
-        DocumentDraw.TypeKeys "<DELETE>"
-    endif
-    Printlog "Test ended."
-
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
-
-testcase tiDrawObjectBar
-    Dim a as string
-    Dim Zaehler as integer
-    Dim i as integer
-    Dim x as integer
-
-    Call hNewDocument
-
-    Call hRechteckErstellen (20,20,70,70)
-    sleep 1
-    '--------------------------- format line ------------------------
-    Printlog "- call format line using graphic object toolbar"
-    Kontext "DrawingObjectbar"
-    if DrawingObjectbar.Exists = FALSE then
-        ViewToolbarsGraphic
-    endif
-    if DrawingObjectbar.Exists = FALSE then
-        warnlog "Drawing-Objectbar should have been opened, but wasnt"
-        ViewToolbarsGraphic
-    endif
-
-    sleep 3
-    Linie.Click
-    sleep 2
-    Kontext
-    Active.SetPage TabLinie
-    Kontext "TabLinie"
-    if TabLinie.Exists Then
-        TabLinie.Cancel
-        Printlog "- TabLinie exists "
-    else
-        Warnlog "- TabLinie does not exist"
-    endif
-
-    '--------------------------- Linienendenstil --------------------
-    Printlog "- Style of line ends"
-    Kontext "DrawingObjectbar"
-    sleep 1
-    Linienendenstil.TearOff
-    sleep 2
-    Kontext "Linienenden"
-    if Linienenden.Exists Then
-        Printlog "- dialog exists"
-        Linienenden.Close
-    else
-        Warnlog "- Arrowheads does not exist"
-    endif
-
-    '--------------------------- Linienstil -------------------------
-    Printlog "- choose style of lines using graphic object toolbar"
-
-    Kontext "DrawingObjectbar"
-    sleep 1
-    Linienstil.Select 2
-    Printlog Linienstil.GetSelText + " chosen"
-    Linienstil.Select Linienstil.GetItemCount
-    Printlog  Linienstil.GetSelText + " chosen"
-    sleep 2
-
-    '--------------------------- Linienbreite------------------------
-    Printlog "- check style of lines using graphic object toolbar"
-    Kontext "DrawingObjectbar"
-    sleep 1
-    a = Linienbreite.GetText
-    SetClipboard a
-    sleep 1
-    Linienbreite.SetText "0,5"
-    sleep 2
-    if Linienbreite.GetText = a Then
-        Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
-    else
-        Printlog "- Width of lines changed"
-    endif
-
-    '--------------------------- Linienfarbe ------------------------
-    Printlog "- change line color"
-    Kontext "DrawingObjectbar"
-    sleep 1
-    Zaehler = Linienfarbe.GetItemCount
-    randomize
-    i = Int(Zaehler*Rnd+1)
-    Linienfarbe.Select i
-    Printlog Linienfarbe.GetSelText + " chosen"
-
-    '--------------------------- Flaechenformatierung ---------------
-    Printlog "- Call Format area using graphic object toolbar"
-    Kontext "DrawingObjectbar"
-    sleep 1
-    try
-        Flaeche.Click
-    catch
-        printlog "clicking on area took ages :-("
-    endcatch
-    sleep 5
-    Kontext
-    Active.SetPage TabArea
-    Kontext "TabArea"
-    if TabArea.Exists Then
-        Printlog "- TabArea exists "
-        TabArea.Cancel
-    else
-        Warnlog "- TabArea does not exist"
-    endif
-
-    '---
-    sleep 1
-    Kontext "DrawingObjectbar"
-    sleep 1
-    x = AreaStyle.GetItemCount
-    i = 1
-    for i = i to x
-        AreaStyle.Select i
-        Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
-        sleep 1
-        if AreaStyle.GetSelIndex > 1 then
-            Printlog "     Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
-            if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
-                if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
-                    printlog "default item is 0 => means nothing; NO BUG! 100909"
-                endif
-                AreaFilling.Select (AreaFilling.GetItemCount)
-                Printlog "           Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
-            endif
-        endif
-    next i
-
-    '---------------------------- Schatten --------------------------
-    Printlog "- Assign shadow using graphic object toolbar"
-    Kontext "DrawingObjectbar"
-    sleep 1
-    Schatten.Click
-    sleep 1
-    Printlog "- shadow assigned"
-
-    '---------------------------- Praesentationsflyer ---------------
-    if ( gApplication = "IMPRESS" ) then  ' IMPRESS only
-        Printlog "- Call presentation flyer"
-        Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
-        if CommonTaskbar.Exists Then
-            printlog "- flyer is already visible :-)"
-        else
-            printlog "- flyer wasn't visible :-( -will be now!"
-            Kontext "DrawingObjectbar"
-            sleep 1
-            ViewToolbarsPresentation    ' put it up again!
-        endif
-    endif
-    if ((UCase(gApplication)) = "IMPRESS") then    ' IMPRESS only
-        Kontext "DrawingObjectbar"
-        if DrawingObjectbar.isVisible = FALSE then
-            ViewToolbarsGraphic
-        endif
-    endif
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
-
-testcase tiGraphicsObjectBar
-    dim i as integer
-    Call hNewDocument
-
-    hGrafikeinfuegen ConvertPath (gTesttoolPath & "global\input\graf_inp\desp.bmp")
-    sleep 1
-    Kontext "GraphicObjectbar"
-    if ( NOT GraphicObjectbar.Exists() ) then
-        ViewToolbarsPicture
-    endif
-    sleep 1
-    Filter.TearOff
-    sleep 1
-    Kontext "GraphicFilterBar"
-    sleep 1
-    Printlog "invert"
-    Invert.Click
-    sleep 3
-    Printlog "smooth"
-    Smooth.Click
-    sleep 3
-    Printlog "sharpen"
-    Sharpen.Click
-    sleep 3
-    Printlog "remove noise"
-    Remove.Click
-    sleep 3
-    Printlog "solarization"
-    Solarization.Click
-    sleep 3
-    Kontext "Solarization"
-    if Solarization.exists (5) then
-        sleep 1
-        Call Dialogtest ( Solarization )
-        sleep 1
-        Value.More
-        Value.Less
-        Invert.Check
-        Solarization.OK
-    else
-        warnlog "solarization didn't came up :-("
-    endif
-    sleep 1
-    Kontext "GraphicFilterBar"
-    sleep 1
-    Printlog "aging"
-    Aging.Click
-    Kontext "Aging"
-    sleep 1
-    Call Dialogtest ( Aging )
-    AgingDegree.More
-    AgingDegree.Less
-    sleep 1
-    Aging.OK
-    sleep 1
-    Kontext "GraphicFilterBar"
-    sleep 1
-    Printlog "poster"
-    Posterize.Click
-    sleep 1
-    Kontext "Posterize"
-    sleep 1
-    Call Dialogtest ( Posterize )
-    PosterColors.More
-    PosterColors.Less
-    sleep 1
-    Posterize.OK
-    sleep 2
-    kontext "GraphicFilterBar"
-    sleep 1
-    Printlog "pop"
-    Art.Click
-    sleep 3
-    Printlog "charcoal"
-    CharcoalSketch.Click
-    sleep 3
-    Printlog "relief"
-    Relief.Click
-    Kontext "Relief"
-    sleep 1
-    Call Dialogtest ( Relief )
-    LightSource.TypeKeys "<left><up>"
-    Relief.OK
-    sleep 3
-    Kontext "GraphicFilterBar"
-    Printlog "mos"
-    Mosaic.Click
-    sleep 1
-    Kontext "Mosaic"
-    sleep 1
-    Call Dialogtest ( Mosaic )
-    Width.More
-    Width.Less
-    Height.More
-    Height.Less
-    EnhanceEdges.Check
-    Mosaic.OK
-    sleep 3
-    Kontext "GraphicFilterBar"
-    GraphicFilterBar.Close
-
-    Kontext "GraphicObjectbar"
-    if GraphicObjectbar.Exists = FALSE then
-        ViewToolbarsPicture
-    endif
-    sleep 1
-    for i = 1 to Grafikmodus.GetItemCount
-        Grafikmodus.select i
-        sleep 1
-    next i
-
-    ColorSettings.Click
-    Kontext "ColorBar"
-
-    try
-        Rotanteil.More
-        Rotanteil.Less
-    catch
-        warnlog "not working from testtool redvalue "+   rotanteil.GetRT
-    endcatch
-    try
-        Gruenanteil.More
-        Gruenanteil.Less
-    catch
-        warnlog "not working from testtool Greenvalue."
-    endcatch
-    try
-        Blauanteil.More
-        Blauanteil.Less
-    catch
-        warnlog "not working from testtool Bluevalue."
-    endcatch
-    try
-        Helligkeit.More
-        Helligkeit.Less
-    catch
-        warnlog "not working from testtool Brightness."
-    endcatch
-    try
-        Kontrast.More
-        Kontrast.Less
-    catch
-        warnlog "not working from testtool Contrast."
-    endcatch
-    try
-        Gamma.More
-        Gamma.Less
-    catch
-        warnlog "not working from testtool Gamma."
-    endcatch
-
-    ColorBar.Close
-    Kontext "GraphicObjectbar"
-
-    try
-        Transparenz.More
-        Transparenz.Less
-    catch
-        warnlog "Not working from testtool Transparency."
-    endcatch
-
-    Crop.click
-    FormatCropPicture
-
-    kontext "TabZuschneiden"
-    GroesseBeibehalten.Check
-    MassstabBeibehalten.Check
-    Links.More
-    Links.Less
-    Rechts.More
-    Rechts.Less
-    Oben.More
-    Oben.Less
-    Unten.More
-    Unten.Less
-    MassstabBreite.More
-    MassstabBreite.Less
-    MassstabHoehe.More
-    MassstabHoehe.Less
-    GroesseBreite.More
-    GroesseBreite.Less
-    GroesseHoehe.More
-    GroesseHoehe.Less
-    Originalgroesse.Click
-    TabZuschneiden.Cancel
-
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
-
-testcase tiGluepointToolbar
-    Call hNewDocument
-
-    Call hRechteckErstellen 20,20,40,40
-    Call hRechteckErstellen 60,60,80,80
-    sleep 2
-    ViewToolbarsOptionbar
-    sleep 2
-
-    Kontext "Optionsbar"
-    if Optionsbar.Exists = False Then
-        ViewToolbarsOptionbar
-        Kontext "Optionsbar"
-        if Optionsbar.Exists = False Then
-            warnlog "Can't open Optionsbar."
-        endif
-    endif
-    sleep 2
-    Kontext "Toolbar"
-    sleep 1
-    Verbinder.Click
-    gMouseMove 30,30,70,70
-    sleep 3
-    Kontext "Toolbar"
-    GluePoints.Click
-    sleep 1
-    Kontext "Gluepointsobjectbar"
-    if Gluepointsobjectbar.Exists = False Then
-        ViewToolbarsGluepoints
-    endif
-    sleep 3
-    '-------------------------------------- Klebepunkt einfuegen ----
-    try
-        PunkteEinfuegen.Click
-        sleep 2
-        gMouseClick 25,30
-        sleep 1
-        gMouseclick 25,30
-        Printlog "- insert gluepoint works"
-    catch
-        Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
-    endcatch
-    sleep 3
-    Kontext "Gluepointsobjectbar"
-
-    '-------------------------------------- Links -------------------
-    try
-        Links.Click
-        Printlog "- gluepoint left works"
-    catch
-        Warnlog "- gluepoint left does not work"
-    endcatch
-    sleep 1
-    '-------------------------------------- Rechts ------------------
-    try
-        Rechts.Click
-        Printlog "- gluepoint right works"
-    catch
-        Warnlog "- gluepoint right does not work"
-    endcatch
-    sleep 1
-    '-------------------------------------- Oben --------------------
-    try
-        Oben.Click
-        Printlog "- gluepoint top works"
-    catch
-        Warnlog "- gluepoint top does not work"
-    endcatch
-    sleep 1
-    '-------------------------------------- Unten -------------------
-    try
-        Unten.Click
-        Printlog "- gluepoint bottom works"
-    catch
-        Warnlog "- gluepoint bottom does not work"
-    endcatch
-    sleep 1
-    '---------------------- Position an Objekt anpassen -------------
-    try
-        PositionAnObjektAnpassen.Click
-        Printlog "- align position to object works"
-        gMouseClick 25,30      ' if you don't click onto an existing point, the state changes back :-[
-    catch
-        Warnlog "- align position to object does not work"
-    endcatch
-    Kontext "Gluepointsobjectbar"
-    sleep 1
-    '------------------------------------- Horizontal links ---------
-    if PositionAnObjektAnpassen.exists then
-        printlog "PositionAnObjektAnpassen = Exists"
-    endif
-    if PositionAnObjektAnpassen.GetState(2) <> 0 then
-        PositionAnObjektAnpassen.Click ' make unpressed!
-    endif
-    '0 = not pressed. 1 = pressed.
-    sleep 2
-    try
-        Kontext "Gluepointsobjectbar"
-        HorizontalLinks.Click
-        Printlog "- align horizontal left works"
-    catch
-        Warnlog "- align horizontal left does not work"
-        PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
-        for i = 1 to Gluepointsobjectbar.GetItemCount
-            if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
-                printlog "----------------------------------------------------------------------"
-                printlog "helpid  : " + Gluepointsobjectbar.Getstate ( i, 0 ) + "  number in row: " + i
-                printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
-                printlog "state   : " + Gluepointsobjectbar.GetState ( i, 2 )
-                printlog "----------------------------------------------------------------------"
-            endif
-        next i
-    endcatch
-    sleep 2
-    '------------------------------------- Horizontal rechts --------
-    try
-        HorizontalRechts.Click
-        Printlog "- Align horizontal right does work"
-    catch
-        Warnlog "- Align horizontal right does notwork"
-    endcatch
-    sleep 1
-    '------------------------------------- Horizontal zentriert -----
-    try
-        HorizontalZentriert.Click
-        Printlog "- align horizontal center does work"
-    catch
-        Warnlog "- align horizontal center does work"
-    endcatch
-    sleep 1
-    '------------------------------------- Vertikal oben ------------
-    try
-        VertikalOben.Click
-        sleep 1
-        Printlog "- Align vertical top does work"
-    catch
-        Warnlog "- Align vertical top does not work"
-    endcatch
-    '------------------------------------- Vertikal unten -----------
-    try
-        VertikalUnten.Click
-        sleep 1
-        printlog "- Align vertical bottom does work"
-    catch
-        Warnlog "- Align vertical bottom does not work"
-    endcatch
-    '------------------------------------- Vertikal zentriert -------
-    try
-        VertikalZentriert.Click
-        sleep 1
-        Printlog "- Align vertical center does work"
-    catch
-        Warnlog "- Align vertical center does not work"
-    endcatch
-
-    Printlog "- End of testing gluepoints"
-
-    ViewToolbarsOptionbar
-    sleep 2
-    Kontext "Optionsbar"
-    if Optionsbar.Exists Then
-        warnlog "Couldnt close Optionsbar."
-    endif
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
-
-testcase tdBezierToolbar
-    Call hNewDocument
-
-    Call hRechteckErstellen ( 10, 10, 30, 40 )
-    sleep (1)
-
-    Call hOpenContextMenu
-    sleep (1)
-
-    Call hOpenContextMenu
-    sleep (2)
-
-    Kontext "Bezierobjectbar"
-    if Bezierobjectbar.Exists <> TRUE then
-        ViewToolbarsBezier
-        Sleep (2)
-        if Bezierobjectbar.Exists <> TRUE then
-            warnlog "Bezierobjectbar did not show up. Check why."
-        endif
-    endif
-
-    '----------------------------------- Punkte verschieben ------------------------------------
-
-    Kontext "Bezierobjectbar"
-    if Bezierobjectbar.Exists <> TRUE then
-        ViewToolbarsBezier
-        Sleep 2
-    endif
-    if Bezierobjectbar.Exists <> TRUE then
-        Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
-        ViewToolbarsBezier
-        Sleep 2
-    endif
-
-    Kontext "Bezierobjectbar"
-    sleep 1
-    Printlog "- Move points"
-    Verschieben.Click
-    sleep 2
-
-    hTypeKeys "<MOD1 TAB>"
-
-    Printlog "- Insert points"
-    Kontext "Bezierobjectbar"
-    Einfuegen.Click
-    sleep 2
-    Bezierobjectbar.Move 20, 20
-    sleep (1)
-    Printlog "- Delete points"
-
-    gMouseMove 25,25,45,45
-
-
-    sleep 2
-    Kontext "Bezierobjectbar"
-    sleep 2
-    Printlog "- Convert into curve"
-    InKurve.Click
-    sleep 2
-    Printlog "- Place edge point"
-    Ecke.Click
-    sleep 2
-    Printlog "- Smooth transition"
-    Glatt.Click
-    sleep 2
-    Printlog "- Symetric transition"
-    Symmetrisch.Click
-    sleep 2
-
-    Kontext "Bezierobjectbar"
-    PunkteReduzieren.Click
-    sleep 2
-
-    hTypeKeys "<MOD1 TAB>"
-    hTypeKeys "<MOD1 SHIFT SPACE>"
-
-    Kontext "Bezierobjectbar"
-    try
-        Auftrennen.Click
-    catch
-        Warnlog "- 'Break' could not be executed"
-    endcatch
-    sleep 2
-
-    hTypeKeys "<MOD1 TAB>"
-    hTypeKeys "<MOD1 A>"
-
-    Printlog "- Close bezier"
-    Kontext "Bezierobjectbar"
-    try
-        Schliessen.Click
-    catch
-        InKurve.Click
-        sleep 2
-        try
-            Schliessen.Click
-        catch
-            warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
-        endcatch
-    endcatch
-    sleep 2
-
-    hTypeKeys "<MOD1 TAB>"
-    hTypeKeys "<MOD1 A>"
-
-    Kontext "Bezierobjectbar"
-    Printlog "- Break curve"
-    try
-        Loeschen.Click
-        sleep 2
-    catch
-        warnlog "Delete didn't work... why?"
-    endcatch
-
-    Kontext "Toolbar"
-    sleep 2
-    Toolbar.OpenContextMenu   ' Enable forms button in menuebar
-    sleep 2
-    hMenuselectNr (1)
-    sleep 2
-    hMenuItemUnCheck (7)
-    sleep 2
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'