CWS-TOOLING: integrate CWS automation003

2009-04-01 09:25:55 +0200 hde  r270300 : #i100664#
2009-03-31 14:45:05 +0200 jsk  r270280 : #i96838
2009-03-31 14:37:11 +0200 jsk  r270279 : #i96838
2009-03-31 12:47:41 +0200 jsk  r270275 : #i100584
2009-03-31 12:44:46 +0200 jsk  r270272 : #i96838
2009-03-31 11:42:57 +0200 jsk  r270269 : #i100584
2009-03-31 11:37:16 +0200 jsk  r270268 : #i96838
2009-03-31 08:43:06 +0200 jsk  r270260 : #i99713 - continued
2009-03-31 08:38:12 +0200 hde  r270259 : #i100664#
2009-03-31 07:50:01 +0200 jsk  r270257 : #i99713 - continued
2009-03-30 15:40:05 +0200 jsk  r270237 : #i96838
2009-03-30 15:17:58 +0200 jsk  r270236 : #i100584
2009-03-30 15:05:31 +0200 hde  r270235 : #i100664#
2009-03-30 14:56:58 +0200 hde  r270234 : #i100664#
2009-03-30 11:43:04 +0200 oc  r270206 : i100669
2009-03-30 09:54:46 +0200 jsk  r270199 : #i99713 - partly done, needs checking
2009-03-30 09:46:25 +0200 hde  r270198 : #i100664#
2009-03-30 09:46:05 +0200 hde  r270197 : #i100664#
2009-03-30 09:45:09 +0200 hde  r270196 : #i100664#
2009-03-30 08:07:38 +0200 jsk  r270193 : #i99713 - partly done, needs checking
2009-03-27 11:46:19 +0100 jsk  r270143 : #i99713
2009-03-27 07:03:47 +0100 jsk  r270128 : #i100602
2009-03-27 06:59:28 +0100 jsk  r270122 : #i100602
2009-03-26 13:46:17 +0100 jsk  r270077 : #i100584 - graphics tests
2009-03-26 13:07:02 +0100 jsk  r270073 : #i100584 - hToolsOptions()/framework tools
2009-03-26 12:09:37 +0100 jsk  r270065 : #i100581 - Fix outdated gApplication names in config files

1 files changed, 558 insertions, 500 deletions

diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc
index a9f5a2b72550..fe3fb9b23236 100755
--- a/testautomation/global/required/includes/g_option.inc
+++ b/testautomation/global/required/includes/g_option.inc
@@ -1,7 +1,7 @@
 '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
@@ -39,27 +39,26 @@
 global sErrMes as String
 global iSectionNumber as Integer
 
-sub ExtrasOptionenTest
-    Call tToolsOptionsTest
-end sub
+'*******************************************************************************
 
 sub tToolsOptionsTest
-    dim sApplication as string
-    
-    sApplication = gApplication
+
+    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 
+    ' 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 exist with warnlog, if iSectionNumber is 0
+    ' 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
-        end select
+    select case uCase(gApplication)
+    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:
     Call tToolsOptionsStarOffice
@@ -74,235 +73,270 @@ sub tToolsOptionsTest
     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 = sApplication
+    gApplication = sPreviousApplication
 end sub
 
+'*******************************************************************************
+
 testcase tToolsOptionsStarOffice
+
     dim EchteAnzahl as Integer, i as Integer
     dim gefunden as Boolean, bSave as Boolean
     dim iMenuShould as integer
     '/// We have 12 tab pages in this category. If the <i>central configuration</i> feature is being used 13 (<i>Single SignOn</i>)
     '/// <i>Tools</i> / <i>Options</i> / <i>OpenOffice.org</i>
     PrintLog "- Tools/Options/StarOffice  ( Extras/Optionen/StarOffice )"
-    if (0 = iSectionNumber) then 
+    if (0 = iSectionNumber) then
         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
         goto endsub
     endif
-    if gApplication <> "BACKGROUND" then Call hNewDocument
+    
+    if ( gApplication = "BACKGROUND" ) then 
+        ' Do not open any document
+    else
+        Call hNewDocument
+    endif
+    
     ToolsOptions
     ToPosInOptionlist ( 1 )
     Kontext "ExtrasOptionenDlg"
     EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
     iMenuShould = 14
-    
+
     if EchteAnzahl <> iMenuShould then
         if ((gtplatform = "sol") OR (gtplatform = "x86") OR gOOO) AND EchteAnzahl = 12 then
-            printLog "One Tabpage is missing. This is ok for a patched Solaris (sparc and x86) or OOo installation." 
+            printLog "One Tabpage is missing. This is ok for a patched Solaris (sparc and x86) or OOo installation."
         else
             Warnlog "The number of entries is not " + iMenuShould + "! => the current number is " + EchteAnzahl
         endif
-    end if
+    endif
+    
     Kontext "Active"
     try
         if Active.Exists then Active.OK
     catch
         if Active.Exists then Active.No
     endcatch
+    
     for i=1 to EchteAnzahl
         gefunden = FALSE
         Kontext "OptionenDlg"
         Optionsliste.TypeKeys "<Down>"
         select case i
-        case 1 : Kontext "TabAllgemeines"
-                '///+<ul><li>User data</li>
-                printlog "  - Userdata / Benutzerdaten"
-                if TabAllgemeines.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAllgemeines )
-                end if
-        case 2 : Kontext "TabSonstigesAllgemein"
-                '///+<li>General</li>
-                printlog "  - General / Allgemein"
-                if TabSonstigesAllgemein.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSonstigesAllgemein )
-                end if
-        case 3 : Kontext "TabMemory"
-                '///+<li>Memory</li>
-                printlog "  - Memory / Arbeitsspeicher"
-                if TabMemory.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabMemory )
-                end if
-        case 4 : Kontext "TabAnsichtAllgemein"
-                '///+<li>View</li>
-                printlog "  - View / Ansicht"
-                if TabAnsichtAllgemein.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAnsichtAllgemein )
-                end if
-        case 5 : Kontext "TabPrintStarOffice"
-                '///+<li>Print</li>
-                printlog "  - Print / Drucken"
-                if TabPrintStarOffice.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabPrintStarOffice )
-                end if
-        case 6 : Kontext "TabPfade"
-                '///+<li>Paths 
-                '///+ <ul><li>Click <i>edit</i> to all list entries and then close the file dialog</li></ul></li>
-                printlog "  - Paths / Pfade"
-                if TabPfade.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabPfade )
-                   Call DialogeFuerTypenKontrollieren
-                end if
-        case 7 : Kontext "TabFarben"
-                '///+<li>Colors 
-                '///+<ul><li>Click on <i>Add</i></li>
-                '///+<li>Click <i>OK</i> on message box</li>
-                '///+<li>Click <i>cancel> on <i>Name</i> dialog</li>
-                '///+<li>Click on <i>Edit</i></li>
-                '///+<li>Click on <i>Close</i> in <i>Colors</i> dialog</li></ul></li>
-                printlog "  - Color / Farben"
-                sleep(4)
+        case 1 :
+            Kontext "TabAllgemeines"
+            '///+<ul><li>User data</li>
+            printlog "  - Userdata / Benutzerdaten"
+            if TabAllgemeines.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAllgemeines )
+            endif
+        case 2 :
+            Kontext "TabSonstigesAllgemein"
+            '///+<li>General</li>
+            printlog "  - General / Allgemein"
+            if TabSonstigesAllgemein.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSonstigesAllgemein )
+            endif
+        case 3 :
+            Kontext "TabMemory"
+            '///+<li>Memory</li>
+            printlog "  - Memory / Arbeitsspeicher"
+            if TabMemory.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabMemory )
+            endif
+        case 4 :
+            Kontext "TabAnsichtAllgemein"
+            '///+<li>View</li>
+            printlog "  - View / Ansicht"
+            if TabAnsichtAllgemein.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAnsichtAllgemein )
+            endif
+        case 5 :
+            Kontext "TabPrintStarOffice"
+            '///+<li>Print</li>
+            printlog "  - Print / Drucken"
+            if TabPrintStarOffice.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabPrintStarOffice )
+            endif
+        case 6 :
+            Kontext "TabPfade"
+            '///+<li>Paths
+            '///+ <ul><li>Click <i>edit</i> to all list entries and then close the file dialog</li></ul></li>
+            printlog "  - Paths / Pfade"
+            if TabPfade.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabPfade )
+                Call DialogeFuerTypenKontrollieren
+            endif
+        case 7 :
+            Kontext "TabFarben"
+            '///+<li>Colors
+            '///+<ul><li>Click on <i>Add</i></li>
+            '///+<li>Click <i>OK</i> on message box</li>
+            '///+<li>Click <i>cancel> on <i>Name</i> dialog</li>
+            '///+<li>Click on <i>Edit</i></li>
+            '///+<li>Click on <i>Close</i> in <i>Colors</i> dialog</li></ul></li>
+            printlog "  - Color / Farben"
+            if ( TabFarben.exists( 4 ) ) then
                 if TabFarben.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest (TabFarben)
-                      Farbe.Select(1)
-                      Hinzufuegen.Click
-                        Kontext "Active"
-                        Active.OK
-                        Kontext "NameDlg"
-                        Call DialogTest (NameDlg)
-                        NameDlg.Cancel
-                      Kontext "TabFarben"
-                      Bearbeiten.Click
-                        sleep(3)
-                        Kontext "FarbeDlg"
-                        FarbeDlg.Cancel
-                end if
-        case 8 : Kontext "TabSchriftErsetzung"
-                '///+<li>Font replacement</li>
-                printlog "  - Font Replacement / Schriftersetzung"
-                if TabSchriftErsetzung.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSchriftErsetzung )
-                end if
-        case 9: Kontext "TabSecurity"
-                '///+<li>Security</li>
-                printlog "  - Security / Sicherheit"
-                if TabSecurity.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSecurity )
-                   MacroSecurity.click()
-                   
-                   kontext "TabSecurityLevel"
-                   if ( TabSecurityLevel.exists( 2 ) ) then                            
-                       call DialogTest( TabSecurityLevel )
-                       kontext
-                       active.setpage TabTrustedSources
-                       kontext "TabTrustedSources"
-                       call DialogTest( TabTrustedSources )
-                       TabTrustedSources.cancel
-                   else
-                       warnlog( "Macro Security Options dialog is missing" )
-                       qaerrorlog( "#i45295# or office built without mozilla support" )
-                   endif
-                   
-                   Kontext "TabSecurity"
-                   if Protect.isEnabled then
-                       Protect.click()
-                       Kontext "PasswordDLG"
-                       call DialogTest( PasswordDLG )
-                       PasswordDLG.cancel()
-                   else
-                       select case uCase(gApplication)
-                           case "WRITER","MASTERDOCUMENT"                          :WarnLog "Protect-Button is disabled."
-                           case "MATH","IMPRESS","DRAW","HTML","CALC" :PrintLog "Protect-Button is disabled."
-                       end select
-                   endif
-                   sleep(1)
-                   Kontext "TabSecurity"
-                   Options.click
-                       Kontext "TabSecurityOptionsAndWarnings"
-                       Call DialogTest(TabSecurityOptionsAndWarnings)
-                       TabSecurityOptionsAndWarnings.cancel
-                   sleep(1)
-                end if
-        case 10: Kontext "TabAppearance"
-                '///+<li>Appearance</li>
-                printlog "  - Appearance / Aussehen"
-                if TabAppearance.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAppearance )
-                end if
-        case 11: Kontext "TabAccessibility"
-                '///+<li>Accessibility</li>
-                printlog "  - Accessibility"
-                if TabAccessibility.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAccessibility )
-                end if
-        case 12: Kontext "TabJava"
-                '///+<li>Java</li></ul>
-                printlog "  - Java"
-                if TabJava.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabJava )
-                end if
-                if useJava.isChecked then
-                    Add.click
-                        Kontext "OeffnenDlg"
-                        Sleep (1)
-                        OeffnenDlg.Cancel
-                    Kontext "TabJava"
-                    Parameters.click
-                        Kontext "JavaStartParameter"
-                        Call DialogTest ( JavaStartParameter )
-                        JavaStartParameter.cancel
-                    Kontext "TabJava"
-                    ClassPath.click
-                        Kontext "JavaClassPath"
-                        Call DialogTest ( JavaClassPath )
-                        JavaClassPath.cancel
+                    gefunden = TRUE
+                    Call DialogTest (TabFarben)
+                    Farbe.Select(1)
+                    Hinzufuegen.Click
+                    Kontext "Active"
+                    Active.OK
+                    Kontext "NameDlg"
+                    Call DialogTest (NameDlg)
+                    NameDlg.Cancel
+                    Kontext "TabFarben"
+                    Bearbeiten.Click
+                    WaitSlot( 3000 )
+                    Kontext "FarbeDlg"
+                    FarbeDlg.Cancel
+                endif
+            endif
+        case 8 :
+            Kontext "TabSchriftErsetzung"
+            '///+<li>Font replacement</li>
+            printlog "  - Font Replacement / Schriftersetzung"
+            if TabSchriftErsetzung.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSchriftErsetzung )
+            endif
+        case 9:
+            Kontext "TabSecurity"
+            '///+<li>Security</li>
+            printlog "  - Security / Sicherheit"
+            if TabSecurity.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSecurity )
+                MacroSecurity.click()
+
+                kontext "TabSecurityLevel"
+                if ( TabSecurityLevel.exists( 2 ) ) then
+                    call DialogTest( TabSecurityLevel )
+                    kontext
+                    active.setpage TabTrustedSources
+                    kontext "TabTrustedSources"
+                    call DialogTest( TabTrustedSources )
+                    TabTrustedSources.cancel
+                else
+                    warnlog( "Macro Security Options dialog is missing" )
+                    qaerrorlog( "#i45295# or office built without mozilla support" )
+                endif
+
+                Kontext "TabSecurity"
+                if Protect.isEnabled then
+                    Protect.click()
+                    Kontext "PasswordDLG"
+                    call DialogTest( PasswordDLG )
+                    PasswordDLG.cancel()
+                else
+                    select case uCase(gApplication)
+                    case "WRITER","MASTERDOCUMENT"
+                        WarnLog "Protect-Button is disabled."
+                    case "MATH","IMPRESS","DRAW","HTML","CALC"
+                        PrintLog "Protect-Button is disabled."
+                    end select
+                endif
+                
+                Kontext "TabSecurity"
+                if ( TabSecurity.exists( 1 ) ) then
+                    Options.click
+                    Kontext "TabSecurityOptionsAndWarnings"
+                    Call DialogTest(TabSecurityOptionsAndWarnings)
+                    TabSecurityOptionsAndWarnings.cancel
                 else
-                    printlog "Use Java is disabled."
-                end if
-        case 13: kontext "TabOnlineUpdate"
-                '///+<li>Online update</li>
-                printlog "  - Online update"
-                if TabOnlineUpdate.isVisible then
-                   gefunden = TRUE
-                   Call DialogTest( TabOnlineUpdate )
+                    warnlog( "Tabsecurity did not open" )
                 endif
-                'CheckNow.click
-        case 14: Kontext "TabOOoImprovement"
-                 printlog( "  - OpenOffice.org Improvement Program" )
-                 if ( TabOOoImprovement.isVisible() ) then
-                     gefunden = TRUE
-                     Call DialogTest( TabOOoImprovement )
-                 endif
+                
+            endif
+        case 10:
+            Kontext "TabAppearance"
+            '///+<li>Appearance</li>
+            printlog "  - Appearance / Aussehen"
+            if TabAppearance.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAppearance )
+            endif
+        case 11:
+            Kontext "TabAccessibility"
+            '///+<li>Accessibility</li>
+            printlog "  - Accessibility"
+            if TabAccessibility.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAccessibility )
+            endif
+        case 12:
+            Kontext "TabJava"
+            '///+<li>Java</li></ul>
+            printlog "  - Java"
+            if TabJava.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabJava )
+            endif
+            if useJava.isChecked then
+                Add.click
+                Kontext "OeffnenDlg"
+                if ( OeffnenDlg.exists( 1 ) ) then
+                    OeffnenDlg.Cancel
+                else
+                    warnlog( "OeffnenDlg is missing" )
+                endif
+                Kontext "TabJava"
+                Parameters.click
+                Kontext "JavaStartParameter"
+                Call DialogTest ( JavaStartParameter )
+                JavaStartParameter.cancel
+                Kontext "TabJava"
+                ClassPath.click
+                Kontext "JavaClassPath"
+                Call DialogTest ( JavaClassPath )
+                JavaClassPath.cancel
+            else
+                printlog "Use Java is disabled."
+            endif
+        case 13:
+            kontext "TabOnlineUpdate"
+            '///+<li>Online update</li>
+            printlog "  - Online update"
+            if TabOnlineUpdate.isVisible then
+                gefunden = TRUE
+                Call DialogTest( TabOnlineUpdate )
+            endif
+            'CheckNow.click
+        case 14:
+            Kontext "TabOOoImprovement"
+            printlog( "  - OpenOffice.org Improvement Program" )
+            if ( TabOOoImprovement.isVisible() ) then
+                gefunden = TRUE
+                Call DialogTest( TabOOoImprovement )
+            endif
         end select
         if ( NOT gefunden ) then
             Warnlog "Error with the " & i & ".page, perhaps this page has been deleted or changed its position"
@@ -311,265 +345,287 @@ testcase tToolsOptionsStarOffice
                 i=10
             else
                 i=1-1
-            end if
-        end if
+            endif
+        endif
     next i
-'/// Close the options dialog
-   Kontext "OptionenDlg"
-   OptionenDlg.Cancel
-'/// Close the document 
-   if gApplication <> "BACKGROUND" then 
-    Call hCloseDocument
-   end if
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    if ( OptionenDlg.exists( 1 ) ) then
+        OptionenDlg.Cancel
+    else
+        warnlog( "Options Dialog not ready" )
+    endif
+    '/// Close the document
+    if ( gApplication = "BACKGROUND" ) then
+        ' We should be on the backing window
+    else
+        Call hCloseDocument()
+    endif
+    
 endcase
 
 '-------------------------------------------------------------------------
 
 testcase tToolsOptionsLoadSave
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-   PrintLog "- Tools/Options/Load Save  ( Extras/Optionen/Laden Speichern )"
-    if (0 = iSectionNumber) then 
+
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+    PrintLog "- Tools/Options/Load Save  ( Extras/Optionen/Laden Speichern )"
+    if (0 = iSectionNumber) then
         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
         goto endsub
     endif
-   if gApplication <> "BACKGROUND" then Call hNewDocument
-'/// <i>Tools</i> / <i>Options</i> / <i>Load/Save</i>
-   ToolsOptions
-   ToPosInOptionlist (2)
-   EchteAnzahl = OptionTabPageZaehler (4, FALSE)
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSpeichern"
-                '///+<ul><li>General</li>
-                printlog "  - General / Save"
-                if TabSpeichern.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSpeichern )
-                end if
-       case 2 : Kontext "TabMicrosoftOffice97"
-                '///+<li>VBA settings</li>
-                printlog "  - VBA Settings / VBA Eigenschaften"
-                if TabMicrosoftOffice97.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabMicrosoftOffice97 )
-                end if
-       case 3 : Kontext "TabMicrosoftOffice2"
-                '///+<li>Microsoft Office</li>
-                printlog "  - Microsoft Office"
-                if TabMicrosoftOffice2.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabMicrosoftOffice2 )
-                end if
-       case 4 : Kontext "TabHTML"
-                '///+<li>HTML Compatibility</li></ul>
-                printlog "  - HTML Compatibility / HTML Kompatibilitaet"
-                if TabHTML.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabHTML )
-                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 < 5 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
+    if gApplication <> "BACKGROUND" then Call hNewDocument
+    '/// <i>Tools</i> / <i>Options</i> / <i>Load/Save</i>
+    ToolsOptions
+    ToPosInOptionlist (2)
+    EchteAnzahl = OptionTabPageZaehler (4, FALSE)
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 :
+            Kontext "TabSpeichern"
+            '///+<ul><li>General</li>
+            printlog "  - General / Save"
+            if TabSpeichern.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSpeichern )
+            endif
+        case 2 :
+            Kontext "TabMicrosoftOffice97"
+            '///+<li>VBA settings</li>
+            printlog "  - VBA Settings / VBA Eigenschaften"
+            if TabMicrosoftOffice97.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabMicrosoftOffice97 )
+            endif
+        case 3 :
+            Kontext "TabMicrosoftOffice2"
+            '///+<li>Microsoft Office</li>
+            printlog "  - Microsoft Office"
+            if TabMicrosoftOffice2.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabMicrosoftOffice2 )
+            endif
+        case 4 :
+            Kontext "TabHTML"
+            '///+<li>HTML Compatibility</li></ul>
+            printlog "  - HTML Compatibility / HTML Kompatibilitaet"
+            if TabHTML.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabHTML )
+            endif
+        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 < 5 then
+                i=11
+            else
+                i=1-1
+            endif
+        endif
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    endif
 endcase
 
 '-------------------------------------------------------------------------
 
 testcase tToolsOptionsLanguageSettings
-  dim EchteAnzahl as Integer, i as Integer, j as Integer
-  dim gefunden as Boolean
-  dim bAsianSup as Boolean
 
-   PrintLog "- Tools/Options/Language Settings  ( Extras/Optionen/Spracheinstellungen )"
-    if (0 = iSectionNumber) then 
+    dim EchteAnzahl as Integer, i as Integer, j as Integer
+    dim gefunden as Boolean
+    dim bAsianSup as Boolean
+
+    PrintLog "- Tools/Options/Language Settings  ( Extras/Optionen/Spracheinstellungen )"
+    if (0 = iSectionNumber) then
         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
         goto endsub
     endif
-   if gApplication <> "BACKGROUND" then Call hNewDocument
- '/// <i>Tools</i> / <i>Options</i> / <i>Language settings</i>
-   ToolsOptions
+    if gApplication <> "BACKGROUND" then Call hNewDocument
+    '/// <i>Tools</i> / <i>Options</i> / <i>Language settings</i>
+    ToolsOptions
     ToPosInOptionlist ( 3 )
-   EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
-   '/// We only have two tab pages in this section:
-   '///+ <ul><li><i>Languages</i> and <i>Writing Aids</i></li>
-   '///+<ol><li>In asian languages we have two additional tab pages: 
-   '///+ <ul><li><i>Japanese Find</i> and <i>Asian Layout</i></li></ul></li>
-   '///+<li>In languages with CTL (<i>Complex Text Layout</i>) there is also one more:
-   '///+<ul><li><i>Complex Text Layout</i></li></ul></li></ol></li></ul>
-   select case (EchteAnzahl)
-      case 2: printlog "Asian or Complex Text Layout support is not activated (on languages-page)!"
-      case 3: printlog "Complex Text Layout support is activated (on languages-page)!"
-      case 4: printlog "Asian support is activated (on languages-page)!"
-      case 5: if (gAsianSup AND gCTLSup) then
-                  printlog "Asian and Complex Text Layout support is activated (on languages-page)!"
-              else
-                  Warnlog "There are more than 4 pages!"
-              endif
-      case else
-         Warnlog "There are more than 5 pages!"
-   end select
-   Kontext "Active"
-   try
-      if Active.Exists then Active.OK
-   catch
-      if Active.Exists then Active.No
-   endcatch
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSprachen"
-                'Languages
-                printlog "  - Languages / Sprachen"
-                if TabSprachen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSprachen )
-                end if
-       case 2 : Kontext "TabLinguistik"
-                printlog "  - Writing Aids / Linguistik"
-                if TabLinguistik.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabLinguistik )
+    EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
+    '/// We only have two tab pages in this section:
+    '///+ <ul><li><i>Languages</i> and <i>Writing Aids</i></li>
+    '///+<ol><li>In asian languages we have two additional tab pages:
+    '///+ <ul><li><i>Japanese Find</i> and <i>Asian Layout</i></li></ul></li>
+    '///+<li>In languages with CTL (<i>Complex Text Layout</i>) there is also one more:
+    '///+<ul><li><i>Complex Text Layout</i></li></ul></li></ol></li></ul>
+    select case (EchteAnzahl)
+    case 2:
+        printlog "Asian or Complex Text Layout support is not activated (on languages-page)!"
+    case 3:
+        printlog "Complex Text Layout support is activated (on languages-page)!"
+    case 4:
+        printlog "Asian support is activated (on languages-page)!"
+    case 5:
+        if (gAsianSup AND gCTLSup) then
+            printlog "Asian and Complex Text Layout support is activated (on languages-page)!"
+        else
+            Warnlog "There are more than 4 pages!"
+        endif
+    case else
+        Warnlog "There are more than 5 pages!"
+    end select
+    Kontext "Active"
+    try
+        if Active.Exists then Active.OK
+    catch
+        if Active.Exists then Active.No
+    endcatch
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        select case i
+        case 1 :
+            Kontext "TabSprachen"
+            'Languages
+            printlog "  - Languages / Sprachen"
+            if TabSprachen.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSprachen )
+            endif
+        case 2 :
+            Kontext "TabLinguistik"
+            printlog "  - Writing Aids / Linguistik"
+            if TabLinguistik.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabLinguistik )
                 '/// In <i>Writing aids</i>
                 '///+<ul><li> On <i>modules<i> click <i>edit</i></li>
-                   SprachmoduleBearbeiten.Click
-                    Kontext "ModuleBearbeiten"
-                    Call DialogTest ( ModuleBearbeiten )
-                    ModuleBearbeiten.Close
-                    '///+<li> close dialog</li></ul>
-                   Kontext "TabLinguistik"
+                SprachmoduleBearbeiten.Click
+                Kontext "ModuleBearbeiten"
+                Call DialogTest ( ModuleBearbeiten )
+                ModuleBearbeiten.Close
+                '///+<li> close dialog</li></ul>
+                Kontext "TabLinguistik"
                 '///+<ul><li>On <i>dictionaries</i> click <i>new</i></li>
                 '///+<li>close dialog</li></ul>
-                   Neu.Click
-                    Kontext "BenutzerwoerterbuchAnlegen"
-                    Call DialogTest ( BenutzerwoerterbuchAnlegen )
-                    BenutzerwoerterbuchAnlegen.Cancel
+                Neu.Click
+                Kontext "BenutzerwoerterbuchAnlegen"
+                Call DialogTest ( BenutzerwoerterbuchAnlegen )
+                BenutzerwoerterbuchAnlegen.Cancel
 
                 '///+<ul><li>On <i>dictionaries</i> click <i>edit</i></li>
                 '///+<li>close dialog</li></ul>
-                   Kontext "TabLinguistik"
-                   for j=1 to 5
-                      if Bearbeiten.IsEnabled then
-                         Bearbeiten.Click
-                         j=6
-                      else
-                         Benutzerwoerterbuch.TypeKeys "<Down>"
-                      end if
-                   next j
-                   Kontext "BenutzerwoerterbuchBearbeiten"
-                   if BenutzerwoerterbuchBearbeiten.Exists then
-                      Call DialogTest ( BenutzerwoerterbuchBearbeiten )
-                      BenutzerwoerterbuchBearbeiten.Close
-                   else
-                        warnlog "Edit the 'user-defined dictionary' is not possible => Bug?"
-                   end if
-                '/// <i>Options</i> 
+                Kontext "TabLinguistik"
+                for j=1 to 5
+                    if Bearbeiten.IsEnabled then
+                        Bearbeiten.Click
+                        j=6
+                    else
+                        Benutzerwoerterbuch.TypeKeys "<Down>"
+                    endif
+                next j
+                Kontext "BenutzerwoerterbuchBearbeiten"
+                if BenutzerwoerterbuchBearbeiten.Exists then
+                    Call DialogTest ( BenutzerwoerterbuchBearbeiten )
+                    BenutzerwoerterbuchBearbeiten.Close
+                else
+                    warnlog "Edit the 'user-defined dictionary' is not possible => Bug?"
+                endif
+                '/// <i>Options</i>
                 '///+<ul><li>On 9th, 10th and 11th entry click <i>edit</i></li>
                 '///+<li>close dialog</li></ul>
-                   Kontext "TabLinguistik"
-                   Optionen.TypeKeys "<PageUp>", 3
-                   Sleep 1
-                   Optionen.TypeKeys "<Down>", 6
-                   Sleep 1
-                   OptionenBearbeiten.Click
-                    Kontext "SilbentrennungOptionen"
-                    Call DialogTest ( SilbentrennungOptionen )
-                    SilbentrennungOptionen.Cancel
-                   Kontext "TabLinguistik"
-                   Optionen.TypeKeys "<Down>"
-                   OptionenBearbeiten.Click
-                    Kontext "SilbentrennungOptionen"
-                    Call DialogTest ( SilbentrennungOptionen )
-                    SilbentrennungOptionen.Cancel
-                   Kontext "TabLinguistik"
-                   Optionen.TypeKeys "<Down>"
-                   OptionenBearbeiten.Click
-                    Kontext "SilbentrennungOptionen"
-                    Call DialogTest ( SilbentrennungOptionen )
-                    SilbentrennungOptionen.Cancel
-                end if
-       case 3,5 : try
-                   Kontext "TabJapaneseFind"
-                   'Japanese find
-                   if TabJapaneseFind.IsVisible then
-                      printlog "  - Japanese Find / Japanische Suche"
-                      gefunden = TRUE
-                      Call DialogTest ( TabJapaneseFind )
-                   end if
-                catch
-                endcatch
-                try
-                   Kontext "TabComplexTextLayout"
-                   'Complex Text Layout
-                   if TabComplexTextLayout.IsVisible then
-                      printlog "  - Complex Text Layout"
-                      gefunden = TRUE
-                      Call DialogTest ( TabComplexTextLayout )
-                   end if
-                catch
-                endcatch
-       case 4 : Kontext "TabAsianLayoutOptions"
-                'Asian layout
-                printlog "  - Asian Layout / Asiatisches Layout"
-                if TabAsianLayoutOptions.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAsianLayoutOptions )
-                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 < 5 then
-            i=5
-         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
+                Kontext "TabLinguistik"
+                Optionen.TypeKeys "<PageUp>", 3
+                WaitSlot() ' similar effect as a NOOP
+                Optionen.TypeKeys "<Down>", 6
+                WaitSlot() ' similar effect as a NOOP
+                OptionenBearbeiten.Click
+                Kontext "SilbentrennungOptionen"
+                Call DialogTest ( SilbentrennungOptionen )
+                SilbentrennungOptionen.Cancel
+                Kontext "TabLinguistik"
+                Optionen.TypeKeys "<Down>"
+                OptionenBearbeiten.Click
+                Kontext "SilbentrennungOptionen"
+                Call DialogTest ( SilbentrennungOptionen )
+                SilbentrennungOptionen.Cancel
+                Kontext "TabLinguistik"
+                Optionen.TypeKeys "<Down>"
+                OptionenBearbeiten.Click
+                Kontext "SilbentrennungOptionen"
+                Call DialogTest ( SilbentrennungOptionen )
+                SilbentrennungOptionen.Cancel
+            endif
+        case 3,5 :
+            try
+                Kontext "TabJapaneseFind"
+                'Japanese find
+                if TabJapaneseFind.IsVisible then
+                    printlog "  - Japanese Find / Japanische Suche"
+                    gefunden = TRUE
+                    Call DialogTest ( TabJapaneseFind )
+                endif
+            catch
+            endcatch
+            try
+                Kontext "TabComplexTextLayout"
+                'Complex Text Layout
+                if TabComplexTextLayout.IsVisible then
+                    printlog "  - Complex Text Layout"
+                    gefunden = TRUE
+                    Call DialogTest ( TabComplexTextLayout )
+                endif
+            catch
+            endcatch
+        case 4 :
+            Kontext "TabAsianLayoutOptions"
+            'Asian layout
+            printlog "  - Asian Layout / Asiatisches Layout"
+            if TabAsianLayoutOptions.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabAsianLayoutOptions )
+            endif
+        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 < 5 then
+                i=5
+            else
+                i=1-1
+            endif
+        endif
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    endif
 endcase
 
 '-------------------------------------------------------------------------
 
 testcase tToolsOptionsInternet
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
 
-  PrintLog "- Tools/Options/Internet  ( Extras/Optionen/Internet )"
-    if (0 = iSectionNumber) then 
+    dim EchteAnzahl as Integer, i as Integer
+    dim gefunden as Boolean
+
+    PrintLog "- Tools/Options/Internet  ( Extras/Optionen/Internet )"
+    if (0 = iSectionNumber) then
         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
         goto endsub
     endif
-   if gApplication <> "BACKGROUND" then Call hNewDocument
- '/// <i>Tools</i> / <i>Options</i> / <i>Internet</i>
-   ToolsOptions
-   '/// (The last section in Tools / Options is <i>Internet</i>)
-   ToPosInOptionlist ( iSectionNumber)
+    if gApplication <> "BACKGROUND" then Call hNewDocument
+    '/// <i>Tools</i> / <i>Options</i> / <i>Internet</i>
+    ToolsOptions
+    '/// (The last section in Tools / Options is <i>Internet</i>)
+    ToPosInOptionlist ( iSectionNumber)
 
     if gPlatgroup = "w95" OR gPlatform = lcase("osx") then
         '/// On MacOS X systems this section includes the tab pages:
@@ -588,87 +644,89 @@ testcase tToolsOptionsInternet
         '///+<li>E-Mail</li>
         '///+<li>Mozilla Plugin</li></ol>
         EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE )
-    end if
-
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      Kontext "ProxyWarnung"
-      if ProxyWarnung.Exists(1) then
-         NichtMehrAnzeigen.Check
-         ProxyWarnung.OK
-      end if
-
-      select case i
-       case 1 : Kontext "TabProxyServer"
-                'Proxy
-                printlog "  - Proxy / Proxy"
-                if TabProxyServer.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabProxyServer )
-                end if
-       case 2 : Kontext "Active"
-                'Search
-                printlog "  - Search / Suche"
-                if Active.Exists then
-                   sErrMes = Active.GetText
-                   Warnlog "A messagebox exists => BUG  : " + sErrMes
-                   Active.OK
-                end if
-                Kontext "TabSuche"
-                if TabSuche.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSuche )
-                end if
-       case 3 :
-                if gPlatgroup = "unx" then
-                    Kontext "TabEmail"
-                    'E-mail
-                    printlog "  - E-mail"
-                    if TabEmail.IsVisible then
-                        gefunden = TRUE
-                        Call DialogTest ( TabEmail )
-                    end if
-                end if
-                if gPlatgroup = "w95" then
-                    Kontext "TabMozillaPlugin"
-                    'Mozilla Plug-in (On Win32)
-                    printlog "  - Mozilla Plug-in"
-                    if TabMozillaPlugin.IsVisible then
-                        gefunden = TRUE
-                        Call DialogTest ( TabMozillaPlugin )
-                    end if
-                end if
-       case 4 :
-                if gPlatgroup = "w95" then
-                    warnlog "On Win32 platform there should be only 3 tab pages in section 'Internet'!?"
-                else
-                    Kontext "TabMozillaPlugin"                    
-                    printlog "  - Mozilla Plug-in"
-                    if TabMozillaPlugin.IsVisible then
-                        gefunden = TRUE
-                        Call DialogTest ( TabMozillaPlugin )
-                    end if
-                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 document
-   if gApplication <> "BACKGROUND" then 
-    Call hCloseDocument
-   end if
+    endif
+
+    for i=1 to EchteAnzahl
+        gefunden = FALSE
+        Kontext "OptionenDlg"
+        Optionsliste.TypeKeys "<Down>"
+        Kontext "ProxyWarnung"
+        if ProxyWarnung.Exists(1) then
+            NichtMehrAnzeigen.Check
+            ProxyWarnung.OK
+        endif
+
+        select case i
+        case 1 :
+            Kontext "TabProxyServer"
+            'Proxy
+            printlog "  - Proxy / Proxy"
+            if TabProxyServer.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabProxyServer )
+            endif
+        case 2 :
+            Kontext "Active"
+            'Search
+            printlog "  - Search / Suche"
+            if Active.Exists then
+                sErrMes = Active.GetText
+                Warnlog "A messagebox exists => BUG  : " + sErrMes
+                Active.OK
+            endif
+            Kontext "TabSuche"
+            if TabSuche.IsVisible then
+                gefunden = TRUE
+                Call DialogTest ( TabSuche )
+            endif
+        case 3 :
+            if gPlatgroup = "unx" then
+                Kontext "TabEmail"
+                'E-mail
+                printlog "  - E-mail"
+                if TabEmail.IsVisible then
+                    gefunden = TRUE
+                    Call DialogTest ( TabEmail )
+                endif
+            endif
+            if gPlatgroup = "w95" then
+                Kontext "TabMozillaPlugin"
+                'Mozilla Plug-in (On Win32)
+                printlog "  - Mozilla Plug-in"
+                if TabMozillaPlugin.IsVisible then
+                    gefunden = TRUE
+                    Call DialogTest ( TabMozillaPlugin )
+                endif
+            endif
+        case 4 :
+            if gPlatgroup = "w95" then
+                warnlog "On Win32 platform there should be only 3 tab pages in section 'Internet'!?"
+            else
+                Kontext "TabMozillaPlugin"
+                printlog "  - Mozilla Plug-in"
+                if TabMozillaPlugin.IsVisible then
+                    gefunden = TRUE
+                    Call DialogTest ( TabMozillaPlugin )
+                endif
+            endif
+        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
+            endif
+        endif
+    next i
+    '/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    '/// Close document
+    if gApplication <> "BACKGROUND" then
+        Call hCloseDocument
+    endif
 endcase
 
 '-------------------------------------------------------------------------
@@ -676,10 +734,10 @@ endcase
 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)" )
@@ -693,15 +751,15 @@ testcase tToolsOptionsImprovementProgram
 
     ParticipateNo.check()
     ParticipateYes.check()
-  
-    if ( ShowData.isEnabled() ) then 
+
+    if ( ShowData.isEnabled() ) then
 
         ShowData.click()
 
         Kontext "TextImport"
         if ( TextImport.exists( 1 ) ) then
             printlog( "Text import dialog" )
-                
+
             call DialogTest( TextImport )
             TextImport.cancel()
         else