merge with m61

3 files changed, 795 insertions, 786 deletions

diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc
index fe3fb9b23236..7e35c7b53256 100755
--- a/testautomation/global/required/includes/g_option.inc
+++ b/testautomation/global/required/includes/g_option.inc
@@ -36,28 +36,18 @@
 '* short description : update and resouce test for all option pages (at tools/options)
 '*
 '\***********************************************************************
+
 global sErrMes as String
 global iSectionNumber as Integer
 
-'*******************************************************************************
-
 sub tToolsOptionsTest
-
-    dim sPreviousApplication as string
-
-    sPreviousApplication = gApplication
-    ' Document- and database related options are placed in the g_option2.inc library
-    use "global\required\includes\g_option2.inc"
-    ' subs and functions has been placed there
-    use "global/tools/includes/required/t_option2.inc"
-
     ' To prevent users from running just a subsection from this file, without THIS
     ' subroutine, in every subsection the value of 'iSectionNumber' is checked.
     ' The test will exit with warnlog, if iSectionNumber is 0
     sErrMes = ""
     select case uCase(gApplication)
-    case "WRITER","MASTERDOCUMENT","HTML"   : iSectionNumber = 8
-    case "IMPRESS","DRAW","MATH","CALC"     : iSectionNumber = 7
+       case "WRITER","MASTERDOCUMENT","HTML"   : iSectionNumber = 8
+       case "IMPRESS","DRAW","MATH","CALC"     : iSectionNumber = 7
     end select
     ' common testcases are placed in this library
     ' these tab-sets are always available:
@@ -68,35 +58,9 @@ sub tToolsOptionsTest
     Call tToolsOptionsChart
     Call tToolsOptionsInternet
     Call tToolsOptionsImprovementProgram
-
-    ' these tabpages only exist in the respective application
-    gApplication = "WRITER"
-    iSectionNumber = 8
-    Call tToolsOptionsTextdocument
-
-    gApplication = "HTML"
-    Call tToolsOptionsHTMLDocument
-
-    gApplication = "CALC"
-    iSectionNumber = 7
-    Call tToolsOptionsSpreadsheet
-
-    gApplication = "IMPRESS"
-    iSectionNumber = 7
-    Call tToolsOptionsPresentation
-
-    gApplication = "DRAW"
-    iSectionNumber = 7
-    Call tToolsOptionsDrawing
-
-    gApplication = "MATH"
-    iSectionNumber = 7
-    Call tToolsOptionsFormula
-
-    gApplication = sPreviousApplication
 end sub
 
-'*******************************************************************************
+'-------------------------------------------------------------------------
 
 testcase tToolsOptionsStarOffice
 
@@ -736,56 +700,145 @@ testcase tToolsOptionsImprovementProgram
     printlog( "Update test for the tools/options dialog of the OOo Improvement Program" )
 
     dim cLogFile as string
-    cLogFile = gOfficePath & "user\temp\feedback\Current.csv"
-    cLogFile = convertpath( cLogFile )
+        cLogFile = gOfficePath & "user\temp\feedback\Current.csv"
+        cLogFile = convertpath( cLogFile )
 
     if ( hDeleteFile( cLogFile ) ) then
+    
         printlog( "Test environment is clean, no logfile present (anymore)" )
-    endif
 
-    ToolsOptions
-    hToolsOptions( "StarOffice", "Improvement" )
-    printlog( "Improvement Program tabpage" )
+        ToolsOptions
+        hToolsOptions( "StarOffice", "Improvement" )
+        printlog( "Improvement Program tabpage" )
 
-    call DialogTest( TabOOoImprovement )
+        call DialogTest( TabOOoImprovement )
 
-    ParticipateNo.check()
-    ParticipateYes.check()
+        ParticipateNo.check()
+        ParticipateYes.check()
 
-    if ( ShowData.isEnabled() ) then
+        if ( ShowData.isEnabled() ) then
 
-        ShowData.click()
+            ShowData.click()
 
-        Kontext "TextImport"
-        if ( TextImport.exists( 1 ) ) then
-            printlog( "Text import dialog" )
+            Kontext "FilterAuswahl"
+            if ( FilterAuswahl.exists( 1 ) ) then
+                printlog( "Text import dialog/FilterAuswahl" )
 
-            call DialogTest( TextImport )
-            TextImport.cancel()
-        else
-            qaerrorlog( "#i97340# Show Data button enabled but no logged data found" )
-        endif
+                call DialogTest( FilterAuswahl )
+                FilterAuswahl.cancel()
+            else
+                qaerrorlog( "#i97340# Show Data button enabled but no logged data found" )
+            endif
+
+            Kontext "Active"
+            if ( Active.exists( 1 ) ) then
+                printlog( "Messagebox: " & Active.getText() )
+                Active.ok()
+            else
+                warnlog( "No warning for missing file: " & cLogFile )
+            endif
 
-        Kontext "Active"
-        if ( Active.exists( 1 ) ) then
-            printlog( "Messagebox: " & Active.getText() )
-            Active.ok()
+            Kontext "Active"
+            if ( Active.exists( 1 ) ) then
+                warnlog( "#97342# Second message for missing " & cLogFile )
+                Active.ok()
+            endif
         else
-            warnlog( "No warning for missing file: " & cLogFile )
+            printlog( "Show data is disabled" )
         endif
 
-        Kontext "Active"
-        if ( Active.exists( 1 ) ) then
-            warnlog( "#97342# Second message for missing " & cLogFile )
-            Active.ok()
-        endif
+        Kontext "OptionenDlg"
+        OptionenDlg.cancel()
+        
     else
-        printlog( "Show data is disabled" )
+        ' hDeleteFile() returns FALSE if the file is still present for some weird reason
+        ' We should warn about this because the test breaks at a later point then.
+        warnlog( "Logfile present, it could not be deleted. Please check path and accessrights" )
+        printlog( "Path: " & cLogFile )
     endif
 
-    Kontext "OptionenDlg"
-    OptionenDlg.cancel()
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsChart
+    Dim EchteAnzahl as Integer, i as Integer
 
+    PrintLog "- Tools/Options/Chart  ( Extras/Optionen/Diagramme )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif    
+'/// Create a new document    
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>    
+    ToolsOptions
+    ToPosInOptionlist ( iSectionNumber -1 )
+    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+'/// Default colors
+    printlog "  - Default Colors / Grundfarben"
+    Kontext "TabGrundfarben"
+    Call DialogTest ( TabGrundfarben )
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    if gApplication <> "BACKGROUND" then
+'/// Close bthe document    
+        Call hCloseDocument
+    end if
 endcase
 
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsDataSources
+   qaerrorlog "#i104508# crashes on quit or reload if this is run."
+   goto endsub
+   
+   Dim EchteAnzahl as Integer, i as Integer
+
+   PrintLog "- Tools/Options/Data Sources  ( Extras/Optionen/Datenbank )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif   
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then    
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
+    ToolsOptions
+    ToPosInOptionlist ( iSectionNumber -2)
+    EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+    printlog "  - Connections / Verbindungen"
+    Kontext "TabConnections"
+    '/// Connections
+    Call DialogTest ( TabConnections )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+    printlog "  - Databases / Datenbanken"   
+    Kontext "TabRegisteredDatabase"
+    '/// Databases
+    Call DialogTest ( TabRegisteredDatabase )
+    NewBtn.click
+    Kontext "CreateDatabaseLink"
+    call DialogTest( CreateDatabaseLink )
+    Browse.click
+    Kontext "OeffnenDlg"
+    OeffnenDlg.cancel
+    Kontext "CreateDatabaseLink"
+    CreateDatabaseLink.cancel
+    Kontext "OptionenDlg"
+    '/// Close the options dialog
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
 
diff --git a/testautomation/global/required/includes/g_option2.inc b/testautomation/global/required/includes/g_option2.inc
deleted file mode 100644
index 83d666e1adfd..000000000000
--- a/testautomation/global/required/includes/g_option2.inc
+++ /dev/null
@@ -1,714 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: g_option2.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-13 10:27:04 $
-'*
-'* 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 : thorsten.bosbach@sun.com
-'*
-'* short description : update and resouce test for all option pages (at tools/options)
-'*
-'************************************************************************
-'*
-' #1  tToolsOptionsTextdocument
-' #1  tToolsOptionsHTMLDocument
-' #1  tToolsOptionsSpreadsheet
-' #1  tToolsOptionsPresentation
-' #1  tToolsOptionsDrawing
-' #1  tToolsOptionsFormula
-' #1  tToolsOptionsChart
-' #1  tToolsOptionsDataSources
-'*
-'\***********************************************************************
-
-testcase tToolsOptionsTextdocument
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-     PrintLog "- Tools/Options/Text document  ( Extras/Optionen/Textdokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then   
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
-   ToolsOptions
-   Kontext "Active"
-   if Active.Exists (3) then
-      if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
-      Active.OK
-   end if
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
-   if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
-      Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
-   else
-      printlog "Asian support and CTL support are not activated ( on languages-page )!"
-   end if
-   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
-   if gAsianSup     = FALSE then EchteAnzahl = EchteAnzahl + 1
-   if gCTLSup       = FALSE then EchteAnzahl = EchteAnzahl + 1
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
-      if gAsianSup = FALSE AND gCTLSup = TRUE  AND i=6 then i=i+1
-      if gAsianSup = TRUE  AND gCTLSup = FALSE AND i=7 then i=i+1
-      select case i
-       case 1 : Kontext "TabLaden"
-                '///+<ul><li>General</li>
-                printlog "  - General / Allgemein"
-                if TabLaden.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabLaden )
-                end if
-       case 2 : Kontext "TabInhalteWriter"
-                '///+<li>View</li>
-                printlog "  - View / Ansicht"
-                if TabInhalteWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteWriter )
-                end if
-       case 3 : Kontext "TabDirektCursor"
-                '///+<li>Formating aids</li>
-                printlog "  - Formating aids / Formatierungshilfen"
-                if TabDirektCursor.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDirektCursor )
-                end if
-       case 4 : Kontext "TabRaster"
-                '///+<li>Grid</li>
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 5 : Kontext "TabGrundschriften"
-                '///+<li>Default fonts</li>
-                printlog "  - Default Fonts / Grundschriften"
-                if TabGrundschriften.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriften )
-                end if
-       case 6 : Kontext "TabGrundschriftenAsian"
-                '///+<li>Default fonts asian</li>
-                printlog "  - Default Fonts Asian / Grundschriften Asiatisch"
-                if TabGrundschriftenAsian.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriftenAsian )
-                end if
-       case 7 : Kontext "TabGrundschriftenCTL"
-                '///+<li>Default fonts CTL</li>
-                printlog "  - Default Fonts CTL / Grundschriften CTL"
-                if TabGrundschriftenCTL.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriftenCTL )
-                end if
-       case 8 : Kontext "TabDruckenWriter"
-                '///+<li>Print</li>
-                printlog "  - Print / Drucken"
-                if TabDruckenWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenWriter )
-                end if
-       case 9 : Kontext "TabTabelleOptionen"
-                '///+<li>Table</li>
-                printlog "  - Table / Tabellen"
-                if TabTabelleOptionen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabTabelleOptionen )
-                end if
-       case 10: Kontext "TabAenderungenWriter"
-                '///+<li>Changes</li>
-                printlog "  - Changes / Aenderungen"
-                if TabAenderungenWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAenderungenWriter )
-                end if
-       case 11: Kontext "TabCompatibility"
-                '///+<li>Compatibility</li>
-                printlog "  - Compatibility"
-                if TabCompatibility.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabCompatibility )
-                end if
-       case 12: Kontext "TabAutoCaption"
-                '///+<li>AutoCaption</li>
-                printlog "  - AutoCaption"
-                if TabAutoCaption.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAutoCaption )
-                end if
-       case 13: Kontext "TabMailMergeEMail"
-                '///+<li>Mail Merge E-mail</li></ul>
-                printlog "  - Mail Merge E-mail"
-                if TabMailMergeEMail.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabMailMergeEMail )
-                   ServerAuthentication.click
-                   kontext "ServerAuthentication"
-                   Call DialogTest ( ServerAuthentication )
-                   ServerAuthentication.cancel
-                   Kontext "TabMailMergeEMail"
-                   TestSettings.click
-                   
-                   ' in case java is not enabled
-                   sleep( 2 )
-                   try   
-                       Kontext "Messagebox"
-                       if ( MessageBox.exists()) then            
-                           sleep(2)                
-                           warnlog(Messagebox.GetText())                
-                           try
-                   Messagebox.Cancel()
-                               sleep( 2 )
-               catch
-                           Messagebox.OK() ' if "OK" works, we are in an undefined state
-                   warnlog( "" )
-                           endcatch                
-                       end if             
-           catch
-               warnlog( "A messagebox was displayed but coul not be closed." )
-                   endcatch
-                   
-                   Kontext "TestaccountSettings"
-                   Call DialogTest ( TestaccountSettings )
-                   TestaccountSettings.cancel
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 12 then
-            i=13
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-   Kontext "OptionenDlg"
-   OptionenDlg.Cancel
-'/// Close the document  
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsHTMLDocument
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-   PrintLog "- Tools/Options/HTML-Document  ( Extras/Optionen/HTML-Dokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then    
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
-   ToolsOptions
-   ToPosInOptionlist ( 5 )
-   i = 6
-   if bDebugVersion = TRUE  then i = i + 1  ' here exists the special debug-tabpage, too
-   EchteAnzahl = OptionTabPageZaehler (i)
-   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabInhalteHTML"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteHTML.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteHTML )
-                end if
-       case 2 : Kontext "TabDirektCursor"
-                '/// Formating aids
-                printlog "  - Formatting aids / Formatierungshilfen"
-                if TabDirektCursor.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDirektCursor )
-                end if
-       case 3 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenHTML"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenHTML.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenHTML )
-                end if
-       case 5 : Kontext "TabTabelleOptionen"
-                '/// Table
-                printlog "  - Table / Tabelle"
-                if TabTabelleOptionen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabTabelleOptionen )
-                end if
-       case 6 : Kontext "TabHintergrund"
-                '/// Background
-                printlog "  - Background / Hintergrund"
-                Sleep 1
-                if TabHintergrund.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabHintergrund )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 6 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document    
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsSpreadsheet
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-    PrintLog "- Tools/Options/Spreadsheet  ( Extras/Optionen/Tabellendokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabLayoutCalc"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabLayoutCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabLayoutCalc )
-                end if
-       case 2 : Kontext "TabInhaltCalc"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhaltCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhaltCalc )
-                end if
-       case 3 : Kontext "TabBerechnen"
-                '/// Calculate
-                printlog "  - Calculate / Berechnen"
-                if TabBerechnen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabBerechnen )
-                end if
-       case 4 : Kontext "TabSortierlisten"
-                '/// Sort lists
-                printlog "  - Sort Lists / Sortierliste"
-                if TabSortierlisten.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSortierlisten )
-                end if
-       case 5 : Kontext "TabAenderungenCalc"
-                '/// Changes
-                printlog "  - Changes / Aenderungen"
-                if TabAenderungenCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAenderungenCalc )
-                end if
-       case 6 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 7 : Kontext "TabPrintCalcOptions"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabPrintCalcOptions.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabPrintCalcOptions )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 7 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsPresentation
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-  dim iTemp as integer
-    
-   PrintLog "- Tools/Options/Presentation  ( Extras/Optionen/Praesentation )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-   kontext "DocumentImpress"
-   if DocumentImpress.exists(5) then
-       printlog "  - An application of type Presentation is available."
-       '--- workaround #i48383#
-       DocumentImpress.MouseDown (10,10)
-       DocumentImpress.MouseUp (10,10)
-   else
-       qaErrorLog "  - No application of type Presentation is available"
-   end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSonstigesDraw"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabSonstigesDraw.exists then
-                    if TabSonstigesDraw.IsVisible then
-                       gefunden = TRUE
-                       Call DialogTest ( TabSonstigesDraw )
-                    end if
-                else
-                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
-                    Kontext "OptionenDlg"
-                    OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
-                    qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
-                    for iTemp = 1 to Optionsliste.getItemCount
-                        qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
-                    next iTemp
-                    gefunden = TRUE
-                end if
-       case 2 : Kontext "TabInhalteDraw"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteDraw )
-                end if
-       case 3 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenDraw"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenDraw )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 4 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document    
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsDrawing
-  Dim EchteAnzahl as Integer, i as Integer
-  Dim gefunden as Boolean
-    
-   PrintLog "- Tools/Options/Drawing  ( Extras/Optionen/Zeichnung )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    end if
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-   Kontext "DocumentDraw"
-   if DocumentDraw.exists(5) then
-       printlog "  - An application of type Draw is available."
-       '--- workaround #i48383#
-       DocumentDraw.MouseDown (10,10)
-       DocumentDraw.MouseUp (10,10)
-   else
-       qaErrorLog "  - No application of type Draw is available"
-   end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSonstigesDraw"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabSonstigesDraw.exists then
-                    if TabSonstigesDraw.IsVisible then
-                       gefunden = TRUE
-                       Call DialogTest ( TabSonstigesDraw )
-                    end if
-                else
-                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
-                    Kontext "OptionenDlg"
-                    qaErrorLog "#i48383# wrong focus on opening options"
-                    gefunden = TRUE
-                end if
-       case 2 : Kontext "TabInhalteDraw"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteDraw )
-                end if
-       case 3 : Kontext "Active"
-                if Active.Exists then
-                   Warnlog "A messagebox exists => BUG  : " + Active.GetText
-                   try
-                      Active.No
-                   catch
-                      Active.OK
-                   endcatch
-                end if
-                Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenDraw"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenDraw )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 4 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-     OptionenDlg.Cancel
-'/// Close the document
-     if gApplication <> "BACKGROUND" then 
-    Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsFormula
-  dim EchteAnzahl as Integer, i as Integer
-    
-   PrintLog "- Tools/Options/Formula  ( Extras/Optionen/Formel )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>    
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
-   Kontext "OptionenDlg"
-   '/// Print
-   Optionsliste.TypeKeys "<Down>"
-   printlog "  - Print / Drucken"
-   Kontext "TabDruckenMath"
-   Call DialogTest ( TabDruckenMath )
-'/// Close the options dialog
-   Kontext "OptionenDlg"
-   OptionenDlg.Cancel
-'/// Close the document   
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-'-------------------------------------------------------------------------
-testcase tToolsOptionsChart
-    Dim EchteAnzahl as Integer, i as Integer
-
-    PrintLog "- Tools/Options/Chart  ( Extras/Optionen/Diagramme )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif    
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>    
-    ToolsOptions
-    ToPosInOptionlist ( iSectionNumber -1 )
-    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-'/// Default colors
-    printlog "  - Default Colors / Grundfarben"
-    Kontext "TabGrundfarben"
-    Call DialogTest ( TabGrundfarben )
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-    if gApplication <> "BACKGROUND" then
-'/// Close bthe document    
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsDataSources
-   Dim EchteAnzahl as Integer, i as Integer
-
-   PrintLog "- Tools/Options/Data Sources  ( Extras/Optionen/Datenbank )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif   
-    '/// Create a new document
-    if gApplication <> "BACKGROUND" then    
-        Call hNewDocument
-    end if
-    '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
-    ToolsOptions
-    ToPosInOptionlist ( iSectionNumber -2)
-    EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-    printlog "  - Connections / Verbindungen"
-    Kontext "TabConnections"
-    '/// Connections
-    Call DialogTest ( TabConnections )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-    printlog "  - Databases / Datenbanken"   
-    Kontext "TabRegisteredDatabase"
-    '/// Databases
-    Call DialogTest ( TabRegisteredDatabase )
-    NewBtn.click
-    Kontext "CreateDatabaseLink"
-    call DialogTest( CreateDatabaseLink )
-    Browse.click
-    Kontext "OeffnenDlg"
-    OeffnenDlg.cancel
-    Kontext "CreateDatabaseLink"
-    CreateDatabaseLink.cancel
-    Kontext "OptionenDlg"
-    '/// Close the options dialog
-    OptionenDlg.Cancel
-    '/// Close the document
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
diff --git a/testautomation/global/required/includes/g_option_application.inc b/testautomation/global/required/includes/g_option_application.inc
new file mode 100644
index 000000000000..1791e623d744
--- /dev/null
+++ b/testautomation/global/required/includes/g_option_application.inc
@@ -0,0 +1,670 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'*
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: g_option.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: rt $ $Date: 2008-07-31 19:25:49 $
+'*
+'* 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 : thorsten.bosbach@sun.com
+'*
+'* short description : update and resouce test for all option pages (at tools/options)
+'*
+'\***********************************************************************
+
+global sErrMes as String
+global iSectionNumber as Integer
+
+sub tToolsOptionsTestFirst
+    dim sPreviousApplication as string
+
+    sPreviousApplication = gApplication
+
+    ' To prevent users from running just a subsection from this file, without THIS
+    ' subroutine, in every subsection the value of 'iSectionNumber' is checked.
+    ' The test will exit with warnlog, if iSectionNumber is 0
+    sErrMes = ""
+    select case gApplication
+    case "WRITER","MASTERDOCUMENT","HTML"   : iSectionNumber = 8
+    case "IMPRESS","DRAW","MATH","CALC"     : iSectionNumber = 7
+    end select
+
+    ' these tabpages only exist in the respective application
+    gApplication = "WRITER"
+    iSectionNumber = 8
+    Call tToolsOptionsTextDocument
+
+    gApplication = "HTML"
+    iSectionNumber = 8
+    Call tToolsOptionsHTMLDocument
+
+    gApplication = "CALC"
+    iSectionNumber = 7
+    Call tToolsOptionsSpreadsheet
+
+    gApplication = "IMPRESS"
+    iSectionNumber = 7
+    Call tToolsOptionsPresentation
+
+    gApplication = "DRAW"
+    iSectionNumber = 7
+    Call tToolsOptionsDrawing
+
+    gApplication = "MATH"
+    iSectionNumber = 7
+    Call tToolsOptionsFormula
+
+    gApplication = sPreviousApplication
+end sub
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsTextdocument
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+
+    PrintLog "- Tools/Options/Text document  ( Extras/Optionen/Textdokument )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
+    ToolsOptions
+    Kontext "Active"
+    if Active.Exists (3) then
+        if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
+        Active.OK
+    end if
+    ToPosInOptionlist ( 4 )
+    EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
+    if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
+        Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
+    else
+        printlog "Asian support and CTL support are not activated ( on languages-page )!"
+    end if
+    if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
+    if gAsianSup     = FALSE then EchteAnzahl = EchteAnzahl + 1
+    if gCTLSup       = FALSE then EchteAnzahl = EchteAnzahl + 1
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
+        if gAsianSup = FALSE AND gCTLSup = TRUE  AND i=6 then i=i+1
+        if gAsianSup = TRUE  AND gCTLSup = FALSE AND i=7 then i=i+1
+        select case i
+        case 1 : Kontext "TabLaden"
+            '///+<ul><li>General</li>
+            printlog "  - General / Allgemein"
+            if TabLaden.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabLaden )
+            end if
+        case 2 : Kontext "TabInhalteWriter"
+            '///+<li>View</li>
+            printlog "  - View / Ansicht"
+            if TabInhalteWriter.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabInhalteWriter )
+            end if
+        case 3 : Kontext "TabDirektCursor"
+            '///+<li>Formating aids</li>
+            printlog "  - Formating aids / Formatierungshilfen"
+            if TabDirektCursor.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDirektCursor )
+            end if
+        case 4 : Kontext "TabRaster"
+            '///+<li>Grid</li>
+            printlog "  - Grid / Raster"
+            if TabRaster.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabRaster )
+            end if
+        case 5 : Kontext "TabGrundschriften"
+            '///+<li>Default fonts</li>
+            printlog "  - Default Fonts / Grundschriften"
+            if TabGrundschriften.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabGrundschriften )
+            end if
+        case 6 : Kontext "TabGrundschriftenAsian"
+            '///+<li>Default fonts asian</li>
+            printlog "  - Default Fonts Asian / Grundschriften Asiatisch"
+            if TabGrundschriftenAsian.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabGrundschriftenAsian )
+            end if
+        case 7 : Kontext "TabGrundschriftenCTL"
+            '///+<li>Default fonts CTL</li>
+            printlog "  - Default Fonts CTL / Grundschriften CTL"
+            if TabGrundschriftenCTL.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabGrundschriftenCTL )
+            end if
+        case 8 : Kontext "TabDruckenWriter"
+            '///+<li>Print</li>
+            printlog "  - Print / Drucken"
+            if TabDruckenWriter.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDruckenWriter )
+            end if
+        case 9 : Kontext "TabTabelleOptionen"
+            '///+<li>Table</li>
+            printlog "  - Table / Tabellen"
+            if TabTabelleOptionen.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabTabelleOptionen )
+            end if
+        case 10: Kontext "TabAenderungenWriter"
+            '///+<li>Changes</li>
+            printlog "  - Changes / Aenderungen"
+            if TabAenderungenWriter.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAenderungenWriter )
+            end if
+        case 11: Kontext "TabCompatibility"
+            '///+<li>Compatibility</li>
+            printlog "  - Compatibility"
+            if TabCompatibility.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabCompatibility )
+            end if
+        case 12: Kontext "TabAutoCaption"
+            '///+<li>AutoCaption</li>
+            printlog "  - AutoCaption"
+            if TabAutoCaption.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAutoCaption )
+            end if
+        case 13: Kontext "TabMailMergeEMail"
+            '///+<li>Mail Merge E-mail</li></ul>
+            printlog "  - Mail Merge E-mail"
+            if TabMailMergeEMail.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabMailMergeEMail )
+                ServerAuthentication.click
+                kontext "ServerAuthentication"
+                Call DialogTest ( ServerAuthentication )
+                ServerAuthentication.cancel
+                Kontext "TabMailMergeEMail"
+                TestSettings.click
+
+                ' in case java is not enabled
+                sleep( 2 )
+                try
+                    Kontext "Messagebox"
+                    if ( MessageBox.exists()) then
+                        sleep(2)
+                        warnlog(Messagebox.GetText())
+                        try
+                            Messagebox.Cancel()
+                            sleep( 2 )
+                        catch
+                            Messagebox.OK() ' if "OK" works, we are in an undefined state
+                            warnlog( "" )
+                        endcatch
+                    end if
+                catch
+                    warnlog( "A messagebox was displayed but coul not be closed." )
+                endcatch
+
+                Kontext "TestaccountSettings"
+                Call DialogTest ( TestaccountSettings )
+                TestaccountSettings.cancel
+            end if
+        end select
+        if gefunden=FALSE then
+            Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 12 then
+                i=13
+            else
+                i=1-1
+            end if
+        end if
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsHTMLDocument
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+
+    PrintLog "- Tools/Options/HTML-Document  ( Extras/Optionen/HTML-Dokument )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
+    ToolsOptions
+    ToPosInOptionlist ( 5 )
+    i = 6
+    if bDebugVersion = TRUE  then i = i + 1  ' here exists the special debug-tabpage, too
+    EchteAnzahl = OptionTabPageZaehler (i)
+    if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 : Kontext "TabInhalteHTML"
+            '/// View
+            printlog "  - View / Ansicht"
+            if TabInhalteHTML.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabInhalteHTML )
+            end if
+        case 2 : Kontext "TabDirektCursor"
+            '/// Formating aids
+            printlog "  - Formatting aids / Formatierungshilfen"
+            if TabDirektCursor.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDirektCursor )
+            end if
+        case 3 : Kontext "TabRaster"
+            '/// Grid
+            printlog "  - Grid / Raster"
+            if TabRaster.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabRaster )
+            end if
+        case 4 : Kontext "TabDruckenHTML"
+            '/// Print
+            printlog "  - Print / Drucken"
+            if TabDruckenHTML.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDruckenHTML )
+            end if
+        case 5 : Kontext "TabTabelleOptionen"
+            '/// Table
+            printlog "  - Table / Tabelle"
+            if TabTabelleOptionen.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabTabelleOptionen )
+            end if
+        case 6 : Kontext "TabHintergrund"
+            '/// Background
+            printlog "  - Background / Hintergrund"
+            Sleep 1
+            if TabHintergrund.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabHintergrund )
+            end if
+        end select
+        if gefunden=FALSE then
+            Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 6 then
+                i=11
+            else
+                i=1-1
+            end if
+        end if
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsSpreadsheet
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+
+    PrintLog "- Tools/Options/Spreadsheet  ( Extras/Optionen/Tabellendokument )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
+    ToolsOptions
+    ToPosInOptionlist ( 4 )
+    EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 : Kontext "TabLayoutCalc"
+            '/// General
+            printlog "  - General / Allgemein"
+            if TabLayoutCalc.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabLayoutCalc )
+            end if
+        case 2 : Kontext "TabInhaltCalc"
+            '/// View
+            printlog "  - View / Ansicht"
+            if TabInhaltCalc.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabInhaltCalc )
+            end if
+        case 3 : Kontext "TabBerechnen"
+            '/// Calculate
+            printlog "  - Calculate / Berechnen"
+            if TabBerechnen.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabBerechnen )
+            end if
+        case 4 : Kontext "TabSortierlisten"
+            '/// Sort lists
+            printlog "  - Sort Lists / Sortierliste"
+            if TabSortierlisten.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSortierlisten )
+            end if
+        case 5 : Kontext "TabAenderungenCalc"
+            '/// Changes
+            printlog "  - Changes / Aenderungen"
+            if TabAenderungenCalc.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAenderungenCalc )
+            end if
+        case 6 : Kontext "TabRaster"
+            '/// Grid
+            printlog "  - Grid / Raster"
+            if TabRaster.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabRaster )
+            end if
+        case 7 : Kontext "TabPrintCalcOptions"
+            '/// Print
+            printlog "  - Print / Drucken"
+            if TabPrintCalcOptions.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabPrintCalcOptions )
+            end if
+        end select
+        if gefunden=FALSE then
+            Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 7 then
+                i=11
+            else
+                i=1-1
+            end if
+        end if
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsPresentation
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+    dim iTemp as integer
+
+    PrintLog "- Tools/Options/Presentation  ( Extras/Optionen/Praesentation )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    kontext "DocumentImpress"
+    if DocumentImpress.exists(5) then
+        printlog "  - An application of type Presentation is available."
+        '--- workaround #i48383#
+        DocumentImpress.MouseDown (10,10)
+        DocumentImpress.MouseUp (10,10)
+    else
+        qaErrorLog "  - No application of type Presentation is available"
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
+    ToolsOptions
+    ToPosInOptionlist ( 4 )
+    EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 : Kontext "TabSonstigesDraw"
+            '/// General
+            printlog "  - General / Allgemein"
+            if TabSonstigesDraw.exists then
+                if TabSonstigesDraw.IsVisible then
+                    gefunden = TRUE
+                    Call DialogTest ( TabSonstigesDraw )
+                end if
+            else
+                ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
+                Kontext "OptionenDlg"
+                OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
+                qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
+                for iTemp = 1 to Optionsliste.getItemCount
+                    qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
+                next iTemp
+                gefunden = TRUE
+            end if
+        case 2 : Kontext "TabInhalteDraw"
+            '/// View
+            printlog "  - View / Ansicht"
+            if TabInhalteDraw.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabInhalteDraw )
+            end if
+        case 3 : Kontext "TabRaster"
+            '/// Grid
+            printlog "  - Grid / Raster"
+            if TabRaster.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabRaster )
+            end if
+        case 4 : Kontext "TabDruckenDraw"
+            '/// Print
+            printlog "  - Print / Drucken"
+            if TabDruckenDraw.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDruckenDraw )
+            end if
+        end select
+        if gefunden=FALSE then
+            Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 4 then
+                i=11
+            else
+                i=1-1
+            end if
+        end if
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsDrawing
+    Dim EchteAnzahl as Integer, i as Integer
+    Dim gefunden as Boolean
+
+    PrintLog "- Tools/Options/Drawing  ( Extras/Optionen/Zeichnung )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    end if
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    Kontext "DocumentDraw"
+    if DocumentDraw.exists(5) then
+        printlog "  - An application of type Draw is available."
+        '--- workaround #i48383#
+        DocumentDraw.MouseDown (10,10)
+        DocumentDraw.MouseUp (10,10)
+    else
+        qaErrorLog "  - No application of type Draw is available"
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
+    ToolsOptions
+    ToPosInOptionlist ( 4 )
+    EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 : Kontext "TabSonstigesDraw"
+            '/// General
+            printlog "  - General / Allgemein"
+            if TabSonstigesDraw.exists then
+                if TabSonstigesDraw.IsVisible then
+                    gefunden = TRUE
+                    Call DialogTest ( TabSonstigesDraw )
+                end if
+            else
+                ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
+                Kontext "OptionenDlg"
+                qaErrorLog "#i48383# wrong focus on opening options"
+                gefunden = TRUE
+            end if
+        case 2 : Kontext "TabInhalteDraw"
+            '/// View
+            printlog "  - View / Ansicht"
+            if TabInhalteDraw.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabInhalteDraw )
+            end if
+        case 3 : Kontext "Active"
+            if Active.Exists then
+                Warnlog "A messagebox exists => BUG  : " + Active.GetText
+                try
+                    Active.No
+                catch
+                    Active.OK
+                endcatch
+            end if
+            Kontext "TabRaster"
+            '/// Grid
+            printlog "  - Grid / Raster"
+            if TabRaster.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabRaster )
+            end if
+        case 4 : Kontext "TabDruckenDraw"
+            '/// Print
+            printlog "  - Print / Drucken"
+            if TabDruckenDraw.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabDruckenDraw )
+            end if
+        end select
+        if gefunden=FALSE then
+            Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 4 then
+                i=11
+            else
+                i=1-1
+            end if
+        end if
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsFormula
+    dim EchteAnzahl as Integer, i as Integer
+
+    PrintLog "- Tools/Options/Formula  ( Extras/Optionen/Formel )"
+    if (0 = iSectionNumber) then
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>
+    ToolsOptions
+    ToPosInOptionlist ( 4 )
+    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
+    Kontext "OptionenDlg"
+    '/// Print
+    Optionsliste.TypeKeys "<Down>"
+    printlog "  - Print / Drucken"
+    Kontext "TabDruckenMath"
+    Call DialogTest ( TabDruckenMath )
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    end if
+endcase
+