Commits

ihi  committed 708f65f

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

  • Participants
  • Parent commits 1978508

Comments (0)

Files changed (51)

File testautomation/chart2/required/ch2_updt_calc.bas

-'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: ch2_updt_calc.bas,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
-'*
-'* 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 : helge.delfs@sun.com
-'*
-'* short description : Resource Test for all chart specific menues
-'*
-'\************************************************************************************************
-
-sub main
-    use "chart2\tools\ch_tools_common.inc"
-    use "chart2\tools\ch_tools_chart_type.inc"
-    use "chart2\tools\ch_tools_titles.inc"
-    use "chart2\tools\ch_tools_axes.inc"
-    use "chart2\tools\ch_tools_grids.inc"
-    use "chart2\tools\ch_tools_legend.inc"
-    use "chart2\tools\ch_tools_data_labels.inc"
-    use "chart2\tools\ch_tools_statistics.inc"
-    use "chart2\tools\ch_tools_tab_pages.inc"
-    use "chart2\tools\ch_tools_select.inc"
-    use "chart2\required\includes\ch2_wizard.inc"
-    use "chart2\required\includes\ch2_file.inc"
-    use "chart2\required\includes\ch2_view.inc"
-    use "chart2\required\includes\ch2_insert_ctl.inc"
-    use "chart2\required\includes\ch2_insert.inc"
-    use "chart2\required\includes\ch2_format.inc"
-    use "chart2\required\includes\ch2_format1.inc"
-    use "chart2\required\includes\ch2_window.inc"
-    use "chart2\required\includes\ch2_toolbars.inc"
-    use "chart2\required\includes\ch2_menu.inc"
-    use "chart2\required\includes\ch2_ole.inc"
-
-    Call hStatusIn("Chart2", "ch2_updt_calc.bas")
-
-        printlog "----------------------------------------"
-        printlog "C h a r t 2   i n  S p r e a d s h e e t"
-        printlog "           U p d a t e t e s t"
-        printlog "----------------------------------------"
-        printLog Chr(13) + "-----------  Chart2 Wizard  ------------"
-        Call tCreateNewChart
-        printLog Chr(13) + "-----------  Chart2 Menu  ------------"
-        call tMainMenu        
-        printLog Chr(13) + "----------  Chart2 File Menu  ----------"
-        call tFileClose
-        call tFileSaveAsOTS
-        call tFileSaveAsSXC
-        call tFileSaveAsSTC
-        call tFileSaveAsXLS
-        call tFileSaveAsXLT
-        call tFileSaveAsSDC
-        call tFileSaveAsVOR
-        call tFileReload                
-        printLog Chr(13) + "----------  Chart2 View Menu -----------"
-        Call tViewToolbars
-        Call tViewToolbarsCustomize
-        Call tViewFullScreen              
-        printLog Chr(13) + "--------  Chart2 Insert Menu  ----------"
-        call tInsertTitle
-        call tInsertAxes
-        call tInsertGrids
-        call tInsertLegend
-        call tInsertDataLabels
-        call tInsertTrendLines
-        call tInsertMeanValueLines
-        call tInsertYErrorBars
-        call tInsertSpecialCharacter
-        printLog Chr(13) + "-------- Chart2 CTL Features  ----------"
-        call tTitleTextDirection
-        call tLegendTextDirection
-        call tXAxisTextDirection
-        call tDataSeriesTextDirection
-        call tEquationTextDirection
-        call tDataPointTextDirection
-        printlog Chr(13) + "---------  Chart2 Format Menu  ---------"
-        call tFormatObjectProperties
-        call tFormatObjectPropertiesPieChart
-        call tFormatPositonAndSize
-        call tFormatArrangement
-        Call tFormatTitleMaintitle
-        Call tFormatTitleSubtitle
-        Call tFormatTitleXAxistitle
-        Call tFormatTitleYAxistitle
-        Call tFormatTitleZAxistitle
-        Call tFormatTitleAllTitles
-        Call tFormatAxisXAxis
-        Call tFormatAxisYAxis
-        Call tFormatAxisZAxis
-        Call tFormatAxisSecondaryXAxis
-        Call tFormatAxisSecondaryYAxis
-        Call tFormatAxisAllAxes
-        Call tFormatXAxisMainGrid
-        Call tFormatYAxisMainGrid
-        Call tFormatZAxisMainGrid
-        call tFormatXAxisMinorGrid
-        Call tFormatYAxisMinorGrid
-        Call tFormatAllAxesGrids
-        Call tFormatLegend
-        Call tFormatChartWall
-        Call tFormatChartFloor
-        Call tFormatChartArea
-        Call tFormatChartType
-        call tFormatDataRanges
-        Call tFormat3DView                
-        printlog Chr(13) + "---------  Chart2 Window Menu  ---------"
-        Call tWindowNewWindowAndClose
-        printLog Chr(13) + "----------  Chart2 Toolbars  -----------"      
-        Call tdummyToolbar
-        printLog Chr(13) + "--------- Chart2 as OLE object ---------"
-        Call tChartOLE("WRITER")
-        Call tChartOLE("CALC")
-        Call tChartOLE("IMPRESS")
-        Call tChartOLE("DRAW")
-        Call tChartOLE("HTMLDOKUMENT")
-        Call tChartOLE("MASTERDOC")       
-   Call hStatusOut  
-end sub
-'
-'-------------------------------------------------------------------------------
-'
-sub LoadIncludeFiles             
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_set_standard_controls.inc"
-    Call GetUseFiles 
-    gApplication = "CALC"
-end sub
-
+'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: ch2_updt_calc.bas,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
+'*
+'* 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 : helge.delfs@sun.com
+'*
+'* short description : Resource Test for all chart specific menues
+'*
+'\************************************************************************************************
+
+sub main
+    use "chart2\tools\ch_tools_common.inc"
+    use "chart2\tools\ch_tools_chart_type.inc"
+    use "chart2\tools\ch_tools_titles.inc"
+    use "chart2\tools\ch_tools_axes.inc"
+    use "chart2\tools\ch_tools_grids.inc"
+    use "chart2\tools\ch_tools_legend.inc"
+    use "chart2\tools\ch_tools_data_labels.inc"
+    use "chart2\tools\ch_tools_statistics.inc"
+    use "chart2\tools\ch_tools_tab_pages.inc"
+    use "chart2\tools\ch_tools_select.inc"
+    use "chart2\required\includes\ch2_wizard.inc"
+    use "chart2\required\includes\ch2_file.inc"
+    use "chart2\required\includes\ch2_view.inc"
+    use "chart2\required\includes\ch2_insert_ctl.inc"
+    use "chart2\required\includes\ch2_insert.inc"
+    use "chart2\required\includes\ch2_format.inc"
+    use "chart2\required\includes\ch2_format1.inc"
+    use "chart2\required\includes\ch2_window.inc"
+    use "chart2\required\includes\ch2_toolbars.inc"
+    use "chart2\required\includes\ch2_menu.inc"
+    use "chart2\required\includes\ch2_ole.inc"
+
+    Call hStatusIn("Chart2", "ch2_updt_calc.bas")
+
+    printlog "----------------------------------------"
+    printlog "C h a r t 2   i n  S p r e a d s h e e t"
+    printlog "           U p d a t e t e s t"
+    printlog "----------------------------------------"
+    printLog Chr(13) + "-----------  Chart2 Wizard  ------------"
+    Call tCreateNewChart
+    printLog Chr(13) + "-----------  Chart2 Menu  ------------"
+    call tMainMenu        
+    printLog Chr(13) + "----------  Chart2 File Menu  ----------"
+    call tFileClose
+    call tFileSaveAsOTS
+    call tFileSaveAsSXC
+    call tFileSaveAsSTC
+    call tFileSaveAsXLS
+    call tFileSaveAsXLT
+    call tFileSaveAsSDC
+    call tFileSaveAsVOR
+    call tFileReload                
+    printLog Chr(13) + "----------  Chart2 View Menu -----------"
+    Call tViewToolbars
+    Call tViewToolbarsCustomize
+    Call tViewFullScreen              
+    printLog Chr(13) + "--------  Chart2 Insert Menu  ----------"
+    call tInsertTitle
+    call tInsertAxes
+    call tInsertGrids
+    call tInsertLegend
+    call tInsertDataLabels
+    call tInsertTrendLines
+    call tInsertMeanValueLines
+    call tInsertYErrorBars
+    call tInsertSpecialCharacter
+    printLog Chr(13) + "-------- Chart2 CTL Features  ----------"
+    call tTitleTextDirection
+    call tLegendTextDirection
+    call tXAxisTextDirection
+    call tDataSeriesTextDirection
+    call tEquationTextDirection
+    call tDataPointTextDirection
+    printlog Chr(13) + "---------  Chart2 Format Menu  ---------"
+    call tFormatObjectProperties
+    call tFormatObjectPropertiesPieChart
+    call tFormatPositonAndSize
+    call tFormatArrangement
+    Call tFormatTitleMaintitle
+    Call tFormatTitleSubtitle
+    Call tFormatTitleXAxistitle
+    Call tFormatTitleYAxistitle
+    Call tFormatTitleZAxistitle
+    Call tFormatTitleAllTitles
+    Call tFormatAxisXAxis
+    Call tFormatAxisYAxis
+    Call tFormatAxisZAxis
+    Call tFormatAxisSecondaryXAxis
+    Call tFormatAxisSecondaryYAxis
+    Call tFormatAxisAllAxes
+    Call tFormatXAxisMainGrid
+    Call tFormatYAxisMainGrid
+    Call tFormatZAxisMainGrid
+    call tFormatXAxisMinorGrid
+    Call tFormatYAxisMinorGrid
+    Call tFormatAllAxesGrids
+    Call tFormatLegend
+    Call tFormatChartWall
+    Call tFormatChartFloor
+    Call tFormatChartArea
+    Call tFormatChartType
+    call tFormatDataRanges
+    Call tFormat3DView                
+    printlog Chr(13) + "---------  Chart2 Window Menu  ---------"
+    Call tWindowNewWindowAndClose
+    printLog Chr(13) + "----------  Chart2 Toolbars  -----------"      
+    Call tdummyToolbar
+    printLog Chr(13) + "--------- Chart2 as OLE object ---------"
+    Call tChartOLE("WRITER")
+    Call tChartOLE("CALC")
+    Call tChartOLE("IMPRESS")
+    Call tChartOLE("DRAW")
+    Call tChartOLE("HTML")
+    Call tChartOLE("MASTERDOCUMENT")       
+    Call hStatusOut
+    
+end sub
+'
+'-------------------------------------------------------------------------------
+'
+sub LoadIncludeFiles             
+    use "global\system\includes\master.inc"
+    use "global\system\includes\gvariabl.inc"
+    use "global\tools\includes\optional\t_set_standard_controls.inc"
+    Call GetUseFiles 
+    gApplication = "CALC"
+end sub
+

File testautomation/framework/required/includes/standard_toolbar_3.inc

     '///+<li>Click on Paste</li>
     printlog( "Paste" )
     Kontext "Standardbar"
-    hWaitForObject( Einfuegen , 8000 )
+    sleep( 3 ) ' No better solution found yet.
     Einfuegen.Click()
 
     Kontext "DocumentCalc"

File testautomation/global/input/filters/build_to_filter.txt

 IMPRESS=StarImpress 5.0
 DRAW=StarDraw 5.0
 MATH=StarMath 5.0
-MASTERDOC=StarWriter 5.0/GlobalDocument
-INSIGHT=
+MASTERDOCUMENT=StarWriter 5.0/GlobalDocument
+DATABASE=
 CHART=StarChart 5.0
 HTML=HTML
 
 IMPRESS=StarOffice XML (Impress)
 DRAW=StarOffice XML (Draw)
 MATH=StarOffice XML (Math)
-MASTERDOC=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
-INSIGHT=
+MASTERDOCUMENT=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
+DATABASE=
 CHART=StarOffice XML (Chart)
 HTML=Text (StarWriter/Web)
 
 IMPRESS=StarOffice XML (Impress)
 DRAW=StarOffice XML (Draw)
 MATH=StarOffice XML (Math)
-MASTERDOC=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
-INSIGHT=
+MASTERDOCUMENT=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
+DATABASE=
 CHART=StarOffice XML (Chart)
 HTML=HTML
 
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
-INSIGHT=
+MASTERDOCUMENT=writerglobal8
+DATABASE=
 CHART=chart8
 HTML=HTML
 
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
-INSIGHT=
+MASTERDOCUMENT=writerglobal8
+DATABASE=
 CHART=chart8
 HTML=HTML
 
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
-INSIGHT=
+MASTERDOCUMENT=writerglobal8
+DATABASE=
 CHART=chart8
 HTML=HTML

File testautomation/global/input/filters/build_to_suffix.txt

 IMPRESS=impress_StarImpress_50
 DRAW=draw_StarDraw_50
 MATH=math_StarMath_50
-MASTERDOC=writer_globaldocument_StarWriter_50GlobalDocument
+MASTERDOCUMENT=writer_globaldocument_StarWriter_50GlobalDocument
 INSIGHT=
 CHART=chart_StarChart_50
 HTML=HTML
 IMPRESS=impress_StarOffice_XML_Impress
 DRAW=draw_StarOffice_XML_Draw
 MATH=math_StarOffice_XML_Math
-MASTERDOC=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
+MASTERDOCUMENT=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
 INSIGHT=
 CHART=chart_StarOffice_XML_Chart
 HTML=writer_web_HTML
 IMPRESS=impress_StarOffice_XML_Impress
 DRAW=draw_StarOffice_XML_Draw
 MATH=math_StarOffice_XML_Math
-MASTERDOC=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
+MASTERDOCUMENT=writer_globaldocument_StarOffice_XML_Writer_GlobalDocument
 INSIGHT=
 CHART=chart_StarOffice_XML_Chart
 HTML=writer_web_HTML
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
+MASTERDOCUMENT=writerglobal8
 INSIGHT=
 CHART=chart8
 HTML=writer_web_HTML
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
+MASTERDOCUMENT=writerglobal8
 INSIGHT=
 CHART=chart8
 HTML=writer_web_HTML
 IMPRESS=impress8
 DRAW=draw8
 MATH=math8
-MASTERDOC=writerglobal8
+MASTERDOCUMENT=writerglobal8
 INSIGHT=
 CHART=chart8
 HTML=writer_web_HTML

File testautomation/global/input/filters/native_suffixes.dat

 DRAW=.sda
 MATH=.smf
 HTML=.htm
-MASTERDOC=.sgl
+MASTERDOCUMENT=.sgl
 
 [641]
 #StarOffice 6.x
 DRAW=.sxd
 MATH=.sxm
 HTML=.htm
-MASTERDOC=.sxg
+MASTERDOCUMENT=.sxg
 
 [645]
 #OpenOffice.org 1.x / StarOffice 7 / StarSuite 7
 DRAW=.sxd
 MATH=.sxm
 HTML=.htm
-MASTERDOC=.sxg
+MASTERDOCUMENT=.sxg
 
 [680]
 #OpenOffice.org 2.0 / StarOffice 8 / StarSuite 8
 DRAW=.odg
 MATH=.odf
 HTML=.htm
-MASTERDOC=.odm
+MASTERDOCUMENT=.odm
 
 [current]
 #the current build is 680
 DRAW=.odg
 MATH=.odf
 HTML=.htm
-MASTERDOC=.odm
+MASTERDOCUMENT=.odm

File testautomation/global/required/includes/g_option.inc

 '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
 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
     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 )
+            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
+                    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
+                    warnlog( "Tabsecurity did not open" )
+                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"
+            EchteAnzahl = EchteAnzahl - 1
+            if EchteAnzahl < 13 then
+                i=10
+            else
+                i=1-1
+            endif
+        endif
+    next i
+    '/// 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
+        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 )
+            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
+        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
+    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
         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)
-                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
-                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 )
-                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"
-            EchteAnzahl = EchteAnzahl - 1
-            if EchteAnzahl < 13 then
-                i=10
-            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 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 
-        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
-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 
-        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
-    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 )
+        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:
         '///+<li>E-Mail</li>
         '///+<li>Mozilla Plugin</li></ol>
         EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE )
-    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
-      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
+        endif
 
-      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
+        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
 
 '-------------------------------------------------------------------------
 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)" )
 
     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

File testautomation/global/system/includes/master.inc

             printlog    "**  'Temporary files'-path        : " & sTempPath             
         end if
         '///Check which 'Macro Security Level' is set and put it into <i>gMacroSecurityLevel</i> variable. 
-        gMacroSecurityLevel = fGetSetMacroSecurityUNO()
+        gMacroSecurityLevel = hSetMacroSecurityAPI( 2 )
 
 
     catch

File testautomation/global/tools/includes/optional/t_docfuncs.inc

 
     '///+<li>Open Tools/Options, go to Presentataion/General page</li>
     ToolsOptions
-    hToolsOptions( "IMPRESS" , "General" )
+    hToolsOptions( gApplication , "General" )
 
     '///+<li>Check or uncheck to start with autopilot</li>
     Kontext "TabSonstigesDraw"
-    if ( mitAutopilotStarten.exists() ) then
+    if ( mitAutopilotStarten.exists( 2 ) ) then
 
         if ( bEnable ) then
             mitAutopilotStarten.check()
             printlog( CFN & "Disable Impress Autopilot" )
         endif
 
+        '///+<li>Return Status of Checkbox (checked=TRUE)</li>
+        hUseImpressAutopilot() = mitAutopilotStarten.isChecked()
+
     else
 
         warnlog( CFN & "Cannot find Autopilot Checkbox" )
 
     endif
-   
-    '///+<li>Return Status of Checkbox (checked=TRUE)</li>
-    hUseImpressAutopilot() = mitAutopilotStarten.isChecked()
 
     '///+<li>Close Tools/Options</li>
     Kontext "OptionenDlg"

File testautomation/global/tools/includes/optional/t_xml_filter1.inc

 '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.
 '* <http://www.openoffice.org/license.html>
 '* for a copy of the LGPLv3 License.
 '*
-'/************************************************************************
+'/******************************************************************************
 '*
 '* owner : helge.delfs@sun.com
 '*
 '* short description : Tools / XML Filter Settings Resource Test
 '*
-'************************************************************************
-'*
-' #1 tToolsXMLFilterSettings   'Resource test for 'Tools' / 'XML Filter Settings'
-' #1 fInitialXMLSetting        'Checks the availibility of the Excel XML import filter
-' #0 sRemoveXSLTFilter
-'*
-'\***********************************************************************
+'\******************************************************************************