Remove unused inc files

6 files changed, 0 insertions, 2204 deletions

diff --git a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc b/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc
deleted file mode 100644
index 2dd9f6228455..000000000000
--- a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc
+++ /dev/null
@@ -1,105 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'*******************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/******************************************************************************
-'*
-'*  owner : joerg.skottke@oracle.com
-'*
-'*  short description : Test VBA compatibility switches
-'*
-'\******************************************************************************
-
-testcase tBasicVBACompatSecurityCheck()
-
-    printlog( "Test VBA Security feature" )
-    printlog( "VBA macros may not ignore global macro security setting" )
-    
-    ' This test case is based on the use cases provided in issue #i109699
-    
-    const IMPORT_EXCEL_MACROS = TRUE
-    const EXEC_EXCEL_MACROS   = TRUE
-
-    const MACRO_IDENTIFICATION_MESSAGE = "Clicked"
-    const MACRO_NAME = "CommandButton1_Click"
-
-    const WORK_FILE = "framework/optional/input/vba-compat/Book1.xls"
-
-    dim cTestFile as string : cTestFile = gTesttoolPath & WORK_FILE
-    dim iSecurityLevel as integer
-
-
-    printlog( "Set VBA macro handling to import and execute" )
-    hSetExcelBasicImportMode( IMPORT_EXCEL_MACROS, EXEC_EXCEL_MACROS )
-
-    for iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM to GC_MACRO_SECURITY_LEVEL_VERYHIGH
-
-        printlog( "Adjust security level" )
-        hSetMacroSecurityAPI( iSecurityLevel )
-
-        printlog( "Load the test file" )
-        hFileOpen( cTestFile )
-
-        printlog( "Deny macro execution or close macros blocked message" )
-        if ( iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM ) then
-            hDenyMacroExecution()
-        else
-            kontext "Active"
-            Active.ok()
-        endif
-
-        printlog( "Try to execute macro via macro organizer" )
-        hMacroOrganizerRunMacro( MACRO_NAME )
-
-        printlog( "Probe for warning message (or macro)" )
-        kontext "Active"
-        if ( Active.exists( 2 ) ) then
-            if ( Active.getText() = MACRO_IDENTIFICATION_MESSAGE ) then
-                warnlog( "Macro was executed though macro execution has been denied" )
-                Active.ok()
-            else
-                printlog( "Macro execution blocked - warning is displayed." )
-                Active.ok()
-            endif
-        else
-            warnlog( "No warning message for blocked macro execution" )
-        endif
-
-        ' recover silently, the warnings above should say it all.
-        kontext "Makro"
-        if ( Makro.exists() ) then Makro.cancel()
-
-        printlog( "Close file" )
-        hDestroyDocument()
-
-    next iSecurityLevel
-
-    printlog( "Reset VBA import options to default" )
-    hSetExcelImportModeDefault()
-
-    printlog( "Reset macro security level to default" )
-    hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
-
-endcase
-
diff --git a/testautomation/framework/optional/includes/filedlg_cjk_folders.inc b/testautomation/framework/optional/includes/filedlg_cjk_folders.inc
deleted file mode 100755
index cdeb2f922c98..000000000000
--- a/testautomation/framework/optional/includes/filedlg_cjk_folders.inc
+++ /dev/null
@@ -1,86 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : joerg.skottke@oracle.com
-'*
-'* short description : check the internal file dialog ( extended tests )
-'*
-'\******************************************************************************
-
-testcase tCJKFolders()
-
-    
-    if ( not hTestLocale() ) then
-        warnlog( "Test requires UTF-8 locale" )
-        goto endsub
-    endif
-    
-    
-    
-    dim cStrangeFolder as string
-    dim cStrangeFile as string
-    dim iCounter as integer ' iterator
-    dim iRandom  as long    ' random number.(needs long for cjk chars)
-    dim brc as boolean
-    
-    printlog( CHR$(13) )
-    printlog( "Check if CJK-files/folders are handled ok" )
-    printlog( CHR$(13) )
-    
-    printlog( "Open a new document" )
-    brc = hCreateDocument()
-    
-    printlog( CHR$(13) + "Names with CJK-chars" )
-    printlog( "" )
-    
-    call randomize()
-    
-    for iCounter = 1 to 3
-        
-        iRandom = int( 19968 + ( 20911 * rnd ) )
-        printlog( " * Using decimal char: " & iRandom )
-        
-        cStrangeFolder = hNameGen_append( iRandom )
-        brc = hCreateDirctoryExpectSuccess( cStrangeFolder )
-        
-        cStrangeFile = hNameGen_append( iRandom )
-        cStrangeFile = convertpath( cStrangeFolder & "\" & cStrangeFile )
-        brc = hSaveLoadDelSuccess( cStrangeFile , TRUE )
-        
-        cStrangeFile = hNameGen_lead( iRandom , true )
-        cStrangeFile = convertpath( cStrangeFolder & "\" & cStrangeFile )
-        brc = hSaveLoadDelSuccess( cStrangeName , true )
-        
-        brc = hDeleteFileExpectSuccess( cStrangeFolder )
-        
-    next iCounter
-    
-    printlog( "Close the document" )
-    brc = hDestroyDocument()
-    
-endcase
-
diff --git a/testautomation/framework/optional/includes/options_asia.inc b/testautomation/framework/optional/includes/options_asia.inc
deleted file mode 100755
index 76e990ca69fa..000000000000
--- a/testautomation/framework/optional/includes/options_asia.inc
+++ /dev/null
@@ -1,641 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : functionality test for language/settings
-'*
-'\*****************************************************************
-
-testcase func_LanguageSettings_Language
-  Dim bSave as Boolean
-
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
-   bSave = Aktivieren.IsChecked
- Printlog "asian support = TRUE"
-   if Aktivieren.isEnabled then
-       Aktivieren.unCheck
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hTestAsianForWriter    ( TRUE )
-   hTestAsianForCalc      ( TRUE )
-   hTestAsianForImpress   ( TRUE )
-   hTestAsianForDraw      ( TRUE )
-
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
- Printlog Chr(13) + "asian support = FALSE"
-   Aktivieren.Uncheck
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hTestAsianForWriter    ( FALSE )
-   hTestAsianForCalc      ( FALSE )
-   hTestAsianForImpress   ( FALSE )
-   hTestAsianForDraw      ( FALSE )
-
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
- Printlog Chr(13) + "asian support = TRUE"
-   if Aktivieren.isEnabled then
-       Aktivieren.unCheck
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hTestAsianForWriter    ( TRUE )
-   hTestAsianForCalc      ( TRUE )
-   hTestAsianForImpress   ( TRUE )
-   hTestAsianForDraw      ( TRUE )
-
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
-   if bSave = TRUE then Aktivieren.Check else Aktivieren.UnCheck
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-endcase
-
-' *********************************************
-' **
-' **
-sub hTestAsianForWriter ( bAsianTrue as Boolean )
-  Dim iTabCounter as Integer
-
-   gApplication = "WRITER"
-   hNewDocument
- Printlog "- test in writer"
-
-   FormatCharacter
-
-   if bAsianTrue = TRUE then
-      Kontext
-      iTabCounter = active.GetPageCount
-      if iTabCounter <> 6 then Warnlog "There are not 6 pages on the dialog, there are " + iTabCounter + "!"
-   else
-      Kontext
-      iTabCounter = active.GetPageCount
-      if iTabCounter <> 5 then Warnlog "There are not 5 pages on the dialog, there are " + iTabCounter + "!"
-   end if
-
- printlog "  - check tab-dialog for FormatCharacter"
-   Kontext
-   active.SetPage TabFont
-   Kontext "TabFont"
-   if bAsianTrue = TRUE then
-      if FontWest.Exists then
-         if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
-      else
-         Warnlog "'Western Font' does not exists!"
-      end if
-      if StyleWest.Exists then
-         if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
-      else
-         Warnlog "'Western Style' does not exists!"
-      end if
-      if SizeWest.Exists then
-         if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
-      else
-         Warnlog "'Western Size' does not exists!"
-      end if
-      if LanguageWest.Exists then
-         if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
-      else
-         Warnlog "'Western Language' does not exists=> Bug!"
-      end if
-      if FontEast.Exists then
-         if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
-      else
-         Warnlog "'Eastern Font' does not exists!"
-      end if
-      if StyleEast.Exists then
-         if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
-      else
-         Warnlog "'Eastern Style' does not exists!"
-      end if
-      if SizeEast.Exists then
-         if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
-      else
-         Warnlog "'Eastern Size' does not exists!"
-      end if
-      if LanguageEast.Exists then
-         if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
-      else
-         Warnlog "'Eastern Language' does not exists!"
-      end if
-   else
-      if FontEast.Exists then
-         if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
-      end if
-      if StyleEast.Exists then
-         if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
-      end if
-      if SizeEast.Exists then
-         if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
-      end if
-      if LanguageEast.Exists then
-         if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
-      end if
-      if FontWest.Exists then
-         if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
-      end if
-      if StyleWest.Exists then
-         if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
-      end if
-      if SizeWest.Exists then
-         if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
-      end if
-      if LanguageWest.Exists then
-         if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
-      end if
-   end if
-
-   Kontext
-   active.SetPage TabFontEffects
-   Kontext "TabFontEffects"
-   if bAsianTrue = TRUE then
-      if Emphasis.Exists then
-         if Emphasis.IsVisible = FALSE then
-            Warnlog "'Emphasis mark' is not visible!"
-         else
-            Emphasis.Select 2
-         end if
-      else
-         Warnlog "'Emphasis mark' does not exists!"
-      end if
-      if Position.Exists then
-         if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
-      else
-         Warnlog "'Position' does not exists!"
-      end if
-   else
-      if Emphasis.Exists then
-         if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
-      end if
-      if Position.Exists then
-         if Position.IsVisible then Warnlog "'Position' is visible!"
-      end if
-   end if
-
-   Kontext
-   Active.SetPage TabFontPosition
-
-   if bAsianTrue = TRUE then
-      try
-         Kontext
-         Active.SetPage TabAsianLayout
-      catch
-         Warnlog "The tabpage 'Asian Layout' does not exists!"
-      endcatch
-   else
-      try
-         Kontext
-         Active.SetPage TabAsianLayout
-         Warnlog "The tabpage 'Asian Layout' exists!"
-      catch
-      endcatch
-   end if
-
-   Kontext
-   active.SetPage TabHyperlinkZeichen
-
-   Kontext
-   active.SetPage TabHintergrund
-   kontext "TabHintergrund"
-   TabHintergrund.Close
-
- printlog "  - check ruby-dialog"
-   if bAsianTrue = TRUE then
-      try
-         FormatRuby
-         Kontext "RubyDialog"
-         RubyDialog.Close
-      catch
-         Warnlog "Ruby-Dialog can't be opened!"
-      endcatch
-   else
-      try
-         FormatRuby
-         Kontext "RubyDialog"
-         RubyDialog.Close
-         Warnlog "Ruby-Dialog can be opened!"
-      catch
-      endcatch
-   end if
-
- printlog "  - check menu items for format/change case"
-   if bAsianTrue = TRUE then
-      try
-         FormatChangeCaseHalfWidth
-         Wait 500
-      catch
-         Warnlog "Format/Case/Half width is not active!"
-      endcatch
-
-      try
-         FormatChangeCaseFullWidth
-         Wait 500
-      catch
-         Warnlog "Format/Case/Full width is not active!"
-      endcatch
-
-      try
-         FormatChangeCaseHiragana
-         Wait 500
-      catch
-         Warnlog "Format/Case/Hiragana is not active!"
-      endcatch
-
-      try
-         FormatChangeCaseKatagana
-         Wait 500
-      catch
-         Warnlog "Format/Case/Katagana is not active!"
-      endcatch
-   else
-      try
-         FormatChangeCaseHalfWidth
-         Wait 500
-         Warnlog "Format/Case/Half width is active!"
-      catch
-      endcatch
-
-      try
-         FormatChangeCaseFullWidth
-         Wait 500
-         Warnlog "Format/Case/Full width is active!"
-      catch
-      endcatch
-
-      try
-         FormatChangeCaseHiragana
-         Wait 500
-         Warnlog "Format/Case/Hiragana is active!"
-      catch
-      endcatch
-
-      try
-         FormatChangeCaseKatagana
-         Wait 500
-         Warnlog "Format/Case/Katagana is active!"
-      catch
-      endcatch
-   end if
-
- printlog "  - check find&replace-dialog"
-   EditSearchAndReplace
-   Kontext "SuchenUndErsetzenWriter"
-   if bAsianTrue = TRUE then
-      if HalbNormalbreiteFormen.Exists then
-         if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
-      else
-         Warnlog "'Match half-/full-width forms' does not exists!"
-      end if
-      if AehnlicheSchreibweise.Exists then
-         if AehnlicheSchreibweise.IsVisible = FALSE then
-            Warnlog "'Sounds like (Japanese)' is not visible!"
-         else
-            AehnlicheSchreibweise.Check
-         end if
-      else
-         Warnlog "'Sounds like (Japanese)' does not exists!"
-      end if
-      if AehnlicheSchreibweiseOptionen.Exists then
-         if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
-      else
-         Warnlog "'Options for 'Sounds like' does not exists!"
-      end if
-   else
-      if HalbNormalbreiteFormen.Exists then
-         if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
-      end if
-      if AehnlicheSchreibweise.Exists then
-         if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
-      end if
-      if AehnlicheSchreibweiseOptionen.Exists then
-         if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
-      end if
-   end if
-   SuchenUndErsetzenWriter.Close
-
-   Call hCloseDocument
-
-end sub
-
-' *********************************************
-' **
-' **
-sub hTestAsianForCalc ( bAsianTrue as Boolean )
-  Dim iTabCounter as Integer
-
- Printlog "- test in calc"
-   gApplication = "CALC"
-   hNewDocument
-
-   FormatCells
-
-   if bAsianTrue = TRUE then
-      Kontext
-      iTabCounter = active.GetPageCount
-      if iTabCounter <> 8 then Warnlog "There are not 8 pages on the dialog, there are " + iTabCounter + "!"
-   else
-      Kontext
-      iTabCounter = active.GetPageCount
-      if iTabCounter <> 7 then Warnlog "There are not 7 pages on the dialog, there are " + iTabCounter + "!"
-   end if
-
- printlog "  - check tab-dialog for Format/Cell"
-   Kontext
-   active.SetPage TabZahlen
-
-   Kontext
-   active.SetPage TabFont
-   Kontext "TabFont"
-   if bAsianTrue = TRUE then
-      if FontWest.Exists then
-         if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
-      else
-         Warnlog "'Western Font' does not exists!"
-      end if
-      if StyleWest.Exists then
-         if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
-      else
-         Warnlog "'Western Style' does not exists!"
-      end if
-      if SizeWest.Exists then
-         if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
-      else
-         Warnlog "'Western Size' does not exists!"
-      end if
-      if LanguageWest.Exists then
-         if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
-      else
-         Warnlog "'Western Language' does not exists=> Bug!"
-      end if
-      if FontEast.Exists then
-         if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
-      else
-         Warnlog "'Eastern Font' does not exists!"
-      end if
-      if StyleEast.Exists then
-         if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
-      else
-         Warnlog "'Eastern Style' does not exists!"
-      end if
-      if SizeEast.Exists then
-         if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
-      else
-         Warnlog "'Eastern Size' does not exists!"
-      end if
-      if LanguageEast.Exists then
-         if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
-      else
-         Warnlog "'Eastern Language' does not exists!"
-      end if
-   else
-      if FontEast.Exists then
-         if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
-      end if
-      if StyleEast.Exists then
-         if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
-      end if
-      if SizeEast.Exists then
-         if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
-      end if
-      if LanguageEast.Exists then
-         if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
-      end if
-      if FontWest.Exists then
-         if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
-      end if
-      if StyleWest.Exists then
-         if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
-      end if
-      if SizeWest.Exists then
-         if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
-      end if
-      if LanguageWest.Exists then
-         if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
-      end if
-   end if
-
-   Kontext
-   active.SetPage TabFontEffects
-   Kontext "TabFontEffects"
-   if bAsianTrue = TRUE then
-      if Emphasis.Exists then
-         if Emphasis.IsVisible = FALSE then
-            Warnlog "'Emphasis mark' is not visible!"
-         else
-            Emphasis.Select 2
-         end if
-      else
-         Warnlog "'Emphasis mark' does not exists!"
-      end if
-      if Position.Exists then
-         if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
-      else
-         Warnlog "'Position' does not exists!"
-      end if
-   else
-      if Emphasis.Exists then
-         if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
-      end if
-      if Position.Exists then
-         if Position.IsVisible then Warnlog "'Position' is visible!"
-      end if
-   end if
-
-   if bAsianTrue = TRUE then
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-      catch
-         Warnlog "The tabpage 'Asian Typography' does not exists!"
-      endcatch
-   else
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-         Warnlog "The tabpage 'Asian Typography' exists!"
-      catch
-      endcatch
-   end if
-
-    Kontext
-    active.SetPage TabAusrichtung
-
-    Kontext
-    active.SetPage TabUmrandung
-
-    Kontext
-    active.SetPage TabHintergrund
-
-    Kontext
-    active.SetPage TabZellschutz
-    Kontext "TabZellschutz"
-    TabZellschutz.Cancel
-
- printlog "  - check find&replace-dialog"
-   EditSearchAndReplace
-   Kontext "SuchenUndErsetzenCalc"
-   if bAsianTrue = TRUE then
-      if HalbNormalbreiteFormen.Exists then
-         if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
-      else
-         Warnlog "'Match half-/full-width forms' does not exists!"
-      end if
-      if AehnlicheSchreibweise.Exists then
-         if AehnlicheSchreibweise.IsVisible = FALSE then
-            Warnlog "'Sounds like (Japanese)' is not visible!"
-         else
-            AehnlicheSchreibweise.Check
-         end if
-      else
-         Warnlog "'Sounds like (Japanese)' does not exists!"
-      end if
-      if AehnlicheSchreibweiseOptionen.Exists then
-         if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
-      else
-         Warnlog "'Options for 'Sounds like' does not exists!"
-      end if
-   else
-      if HalbNormalbreiteFormen.Exists then
-         if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
-      end if
-      if AehnlicheSchreibweise.Exists then
-         if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
-      end if
-      if AehnlicheSchreibweiseOptionen.Exists then
-         if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
-      end if
-   end if
-   SuchenUndErsetzenCalc.Close
-
-   Call hCloseDocument
-
-end sub
-
-' *********************************************
-' **
-' **
-sub hTestAsianForImpress ( bAsianTrue as Boolean )
-  Dim iTabCounter as Integer
-
- Printlog "- test in impress"
-   gApplication = "IMPRESS"
-   hNewDocument
-
- printlog "  - check 'asian typography' at Format/Paragraph"
-   FormatParagraph
-   Kontext
-   active.SetPage TabEinzuegeUndAbstaende
-
-   if bAsianTrue = TRUE then
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-      catch
-         Warnlog "The tabpage 'Asian Typography' does not exists!"
-      endcatch
-   else
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-         Warnlog "The tabpage 'Asian Typography' exists!"
-      catch
-      endcatch
-   end if
-
-   Kontext
-   active.SetPage TabAusrichtungAbsatz
-
-   Kontext
-   active.SetPage TabTabulator
-   kontext "TabTabulator"
-   TabTabulator.Cancel
-
-   hCloseDocument
-end sub
-
-' *********************************************
-' **
-' **
-sub hTestAsianForDraw ( bAsianTrue as Boolean )
-  Dim iTabCounter as Integer
-
- Printlog "- test in draw"
-   gApplication = "DRAW"
-   hNewDocument
-
- printlog "  - check 'asian typography' at Format/Paragraph"
-   FormatParagraph
-   Kontext
-   active.SetPage TabEinzuegeUndAbstaende
-
-   if bAsianTrue = TRUE then
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-      catch
-         Warnlog "The tabpage 'Asian Typography' does not exists!"
-      endcatch
-   else
-      try
-         Kontext
-         Active.SetPage TabAsianTypography
-         Warnlog "The tabpage 'Asian Typography' exists!"
-      catch
-      endcatch
-   end if
-
-   Kontext
-   active.SetPage TabAusrichtungAbsatz
-
-   Kontext
-   active.SetPage TabTabulator
-   kontext "TabTabulator"
-   TabTabulator.Cancel
-
-   hCloseDocument
-end sub
-
diff --git a/testautomation/framework/optional/includes/options_data.inc b/testautomation/framework/optional/includes/options_data.inc
deleted file mode 100755
index 4b60f9c99942..000000000000
--- a/testautomation/framework/optional/includes/options_data.inc
+++ /dev/null
@@ -1,192 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : general option test ( datasource - group )
-'*
-'\******************************************************************************
-
-testcase tDatasourceConnections
-  Dim lsTimeout ( 20 ) as String
-  Dim lbPool ( 20 ) as Boolean
-  Dim i as Integer, iCounter as Integer
-  Dim bSave as Boolean
-  Dim sDiv as String
-  Dim iDummy as Single
-
-   iCounter = 9          ' sorry only hard coded the number of entries, it gives no way to get the real count ( GetText crashes )
-qaerrorLog "GetTextCrasjhes??? TBO"
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "Datasources", "Connections" )
-
- printlog " - save raw data"
-   bSave = ConnectionPoolingEnabled.IsChecked
-   ConnectionPoolingEnabled.Check
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      lbPool (i) = EnablePoolingForThisDriver.IsChecked
-      if lbPool (i) = TRUE then
-         lsTimeout (i) = Timeout.GetText
-      else
-         EnablePoolingForThisDriver.Check
-         lsTimeout (i) = Timeout.GetText
-      end if
-   next i
-
- printlog " - change all settings"
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      sDiv = str ( i/2 )
-      if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
-         EnablePoolingForThisDriver.Check
-         Timeout.SetText "4" + i
-      else
-         EnablePoolingForThisDriver.Uncheck
-      end if
-      Sleep (1)
-   next i
-   if bSave = TRUE then ConnectionPoolingEnabled.UnCheck
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-   hCloseDocument
-
- printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
- printlog " - check all changes"
-   ToolsOptions
-   hToolsOptions ( "Datasources", "Connections" )
-
-   if ConnectionPoolingEnabled.IsChecked = bSave then Warnlog "Connection pooling enabled => changes not saved!"
-   ConnectionPoolingEnabled.Check
-
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      sDiv = str ( i/2 )
-      if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
-         if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
-         EnablePoolingForThisDriver.Check
-         if Timeout.GetText <> "4" + i then Warnlog "Entry " + i + " : timeout => changes not saved!"
-      else
-         if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
-      end if
-      Sleep (1)
-   next i
-
- printlog " - make second changes"
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      sDiv = str ( i/2 )
-      if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
-         EnablePoolingForThisDriver.Uncheck
-      else
-         EnablePoolingForThisDriver.Check
-         if i<>10 then
-            Timeout.SetText "6" + i
-         else
-            Timeout.SetText "540"
-         end if
-      end if
-      Sleep (1)
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check all changes"
-   ToolsOptions
-   hToolsOptions ( "Datasources", "Connections" )
-
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      sDiv = str ( i/2 )
-      if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
-         if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
-      else
-         if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
-         EnablePoolingForThisDriver.Check
-         if i<>10 then
-            if Timeout.GetText <> "6" + i then Warnlog "Entry " + i + " : timeout => changes not saved!"
-         else
-            if Timeout.GetText <> "540" then Warnlog "Entry " + i + " : timeout => changes not saved!"
-         end if
-
-      end if
-      Sleep (1)
-   next i
-
- printlog " - reset all settings"
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      EnablePoolingForThisDriver.Check
-      Timeout.SetText lsTimeout (i)
-      if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck
-   next i
-   if bSave = TRUE then ConnectionPoolingEnabled.Check else ConnectionPoolingEnabled.UnCheck
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check the raw data"
-   ToolsOptions
-   hToolsOptions ( "Datasources", "Connections" )
-
-   ConnectionPoolingEnabled.check
-   DriverList.TypeKeys "<Up>", 20
-   for i=1 to iCounter
-      if i <> 1 then DriverList.TypeKeys "<Down>"
-      if EnablePoolingForThisDriver.IsChecked <> lbPool (i) then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
-      EnablePoolingForThisDriver.Check
-      if Timeout.GetText <> lsTimeout (i) then Warnlog "Entry " + i + " : timeout => changes not saved!"
-      if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck
-      Sleep (1)
-   next i
-   ConnectionPoolingEnabled.unCheck
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-endcase
-
-
-
-
diff --git a/testautomation/framework/optional/includes/options_int1.inc b/testautomation/framework/optional/includes/options_int1.inc
deleted file mode 100755
index 9c79a79a7d97..000000000000
--- a/testautomation/framework/optional/includes/options_int1.inc
+++ /dev/null
@@ -1,286 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : general options test (test for internet-group)
-'*
-'\******************************************************************************
-
-testcase tInternetProxy
-   Dim iSave as Integer
-   Dim lsSave ( 9 ) as String
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "Internet", "Proxy" )
-
- printlog " - save settings"
-   iSave = ProxyServer.GetSelIndex
-   ProxyServer.Select ( ProxyServer.GetItemCount )
-   if ProxyServer.GetItemCount > 2 then Warnlog "More than 2 entries are available for ProxyServer-Setting => Bug 88387"
-
-   lsSave (1) = HTTPProxy.GetText
-   lsSave (2) = HTTPPort.GetText
-   lsSave (3) = FTPProxy.GetText
-   lsSave (4) = FTPPort.GetText
-   lsSave (7) = NoProxy.GetText
-
- printlog " - change settings"
-   HTTPProxy.SetText  "staroffice-news.germany.sun.com.test"
-   HTTPPort.SetText   "1508"
-   FTPProxy.SetText   "staroffice-news.germany.sun.com.test"
-   FTPPort.SetText    "1509"
-   NoProxy.SetText  "staroffice;stardivision;starstarstar"
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hCloseDocument
-
-  printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "Internet", "Proxy" )
-
-   if ProxyServer.GetSelIndex <> ProxyServer.GetItemCount then
-      Warnlog "Proxy Server => changes not saved ( should be the last entry )!"
-      ProxyServer.Select ( ProxyServer.GetItemCount )
-   end if
-
-   if HTTPProxy.GetText  <> "staroffice-news.germany.sun.com.test" then warnlog "HTTP Proxy => changes not saved!"
-   if FTPProxy.GetText   <> "staroffice-news.germany.sun.com.test" then warnlog "FTP Proxy => changes not saved!"
-   if NoProxy.GetText    <> "staroffice;stardivision;starstarstar" then warnlog "No Proxy => changes not saved!"
-   if HTTPPort.GetText   <> "1508" then warnlog "HTTP Port => changes not saved!"
-   if FTPPort.GetText    <> "1509" then warnlog "FTP Port => changes not saved!"
-
-   if gPlatgroup = "w95" then
-    printlog " - change settings ( only windows )"
-      ProxyServer.Select 2
-
-      Kontext "ExtrasOptionenDlg"
-      ExtrasOptionenDlg.OK
-      Sleep (3)
-
-    printlog " - check changes"
-      ToolsOptions
-      hToolsOptions ( "Internet", "Proxy" )
-
-      if ProxyServer.GetSelIndex <> 2 then Warnlog "Proxy Server => changes not saved ( should be the 2nd entry )!"
-   end if
-
- printlog " - reset settings"
-   ProxyServer.Select(3) ' manual
-   HTTPProxy.SetText lsSave (1)
-   HTTPPort.SetText lsSave (2)
-   FTPProxy.SetText lsSave (3)
-   FTPPort.SetText lsSave (4)
-   NoProxy.SetText lsSave (7)
-   ProxyServer.Select iSave
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check default"
-   ToolsOptions
-   hToolsOptions ( "Internet", "Proxy" )
-   if ProxyServer.GetSelIndex <> iSave then Warnlog "Proxy Server => changes not saved!"
-   if HTTPProxy.GetText  <> lsSave (1) then warnlog "HTTP Proxy => changes not saved!"
-   if FTPProxy.GetText   <> lsSave (3) then warnlog "FTP Proxy => changes not saved!"
-   if NoProxy.GetText    <> lsSave (7) then warnlog "No Proxy => changes not saved!"
-   if FTPPort.GetText    <> lsSave (4) AND FTPPort.GetText   <> "0" then warnlog "FTP Port => changes not saved!"
-   if HTTPPort.GetText   <> lsSave (2) AND HTTPPort.GetText  <> "0" then warnlog "HTTP Port => changes not saved!"
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-endcase
-
-testcase tInternetSearch
-   Dim iSave, iInterim, i as Integer
-   Dim lbSave ( 3, 10 ) as boolean
-   Dim lsSave ( 6, 10 ) as String
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "Internet", "Search" )
-
- printlog " - save settings"
-   iSave = SuchenIn.GetItemCount
-   if iSave > 8 then
-      Warnlog "Please change the index for this test, there are too many entries in the Search-List!"
-      iSave = 8
-   end if
-
-   for i=1 to iSave
-      SuchenIn.Select i
-      lsSave (1, i) = DienstName.GetText
-      lsSave (2, i) = Praefix.GetText
-      lsSave (3, i) = Suffix.GetText
-      lsSave (4, i) = Trenner.GetText
-      lsSave (5, i) = Schreibstil.GetSelText
-
-      lbSave (1, i) = Und.IsChecked
-      lbSave (2, i) = Oder.IsChecked
-      lbSave (3, i) = Exakt.IsChecked
-   next i
-
- printlog " - change/insert settings"
-   if iSave > 0 then
-      SuchenIn.Select 1
-      DienstName.SetText "AAAA_TT_Changes_Name"
-      Und.Check
-      Praefix.SetText "TT_Changes_Prefix"
-      Suffix.SetText "TT_Changes_Suffix"
-      Trenner.SetText ";;;;"
-      Schreibstil.Select 3
-      Sleep (1)
-      Aendern.Click
-   end if
-
-   Neu.Click
-   Sleep (1)
-   DienstName.SetText "ZZZZ_TT_New_Name"
-   Oder.Check
-   Praefix.SetText "TT_New_Prefix"
-   Suffix.SetText "TT_New_Suffix"
-   Trenner.SetText ":::::"
-   Schreibstil.Select 2
-   Hinzufuegen.Click
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hCloseDocument
-
-  printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "Internet", "Search" )
-
-   iInterim = SuchenIn.GetItemCount
-   if iInterim = 0 then
-      Warnlog "No entrie in Search-List, entries are not saved! The test ends here! => BugID: 82922"
-   else
-      if iInterim <> ( iSave + 1 ) then
-         Warnlog "Not all entries in the Search-List are saved! => BugID: 82922"
-      else
-         for i=1 to iInterim
-            if i=1 then
-               SuchenIn.Select "AAAA_TT_Changes_Name"
-               if DienstName.GetText <> "AAAA_TT_Changes_Name" then Warnlog  "AAAA_TT_Changes_Name : Name => changes not saved"
-               Und.Check
-               if Praefix.GetText <> "TT_Changes_Prefix" then Warnlog "AAAA_TT_Changes_Name : Prefix => changes not saved!"
-               if Suffix.GetText  <> "TT_Changes_Suffix" then Warnlog "AAAA_TT_Changes_Name : Suffix => changes not saved!"
-               if Trenner.GetText <> ";;;;"              then Warnlog "AAAA_TT_Changes_Name : Seperator => changes not saved!"
-               if Schreibstil.GetSelIndex <> 3           then Warnlog "AAAA_TT_Changes_Name : Case match => changes not saved! BugID:86660"
-            else
-               if i <> ( iSave + 1 ) then
-                  SuchenIn.Select i
-                  if DienstName.GetText <> lsSave (1, i) then Warnlog  lsSave (1, i) +  " : Name => old entry not saved correctly!"
-                  if Und.IsChecked   <> lbSave (1, i) then Warnlog  lsSave (1, i) +  " : Und => old entry not saved correctly!"
-                  if Oder.IsChecked  <> lbSave (2, i) then Warnlog  lsSave (1, i) +  " : Oder => old entry not saved correctly!"
-                  if Exakt.IsChecked <> lbSave (3, i) then Warnlog  lsSave (1, i) +  " : Exakt => old entry not saved correctly!"
-                  if Praefix.GetText <> lsSave (2, i) then Warnlog  lsSave (1, i) +  " : Prefix => old entry not saved correctly!"
-                  if Suffix.GetText  <> lsSave (3, i) then Warnlog  lsSave (1, i) +  " : Suffix => old entry not saved correctly!"
-                  if Trenner.GetText <> lsSave (4, i) then Warnlog  lsSave (1, i) +  " : Seperator => old entry not saved correctly!"
-                  if Schreibstil.GetSelText <> lsSave (5, i) then Warnlog  lsSave (1, i) +  " : Case match => old entry not saved correctly!"
-               else
-                  SuchenIn.Select "ZZZZ_TT_New_Name"
-                  if DienstName.GetText <> "ZZZZ_TT_New_Name" then Warnlog  "ZZZZ_TT_New_Name : Name => new entry not saved correctly!"
-                  Oder.Check
-                  if Praefix.GetText <> "TT_New_Prefix" then Warnlog  "ZZZZ_TT_New_Name : Prefix => new entry not saved correctly!"
-                  if Suffix.GetText  <> "TT_New_Suffix" then Warnlog  "ZZZZ_TT_New_Name : Suffix => new entry not saved correctly!"
-                  if Trenner.GetText <> ":::::"         then Warnlog  "ZZZZ_TT_New_Name : Seperator => new entry not saved correctly!"
-                  if Schreibstil.GetSelIndex <> 2       then Warnlog  "ZZZZ_TT_New_Name : Case match => new entry not saved correctly!  BugID:86660"
-               end if
-            end if
-         next i
-      end if
-
- printlog " - reset settings"
-      SuchenIn.Select "AAAA_TT_Changes_Name"
-      DienstName.SetText lsSave (1, 1)
-      if lbSave(1, 1) = TRUE then Und.Check
-      if lbSave(2, 1) = TRUE then Oder.Check
-      if lbSave(3, 1) = TRUE then Exakt.Check
-      Praefix.SetText lsSave (2, 1)
-      Suffix.SetText lsSave (3, 1)
-      Trenner.SetText lsSave (4, 1)
-      Schreibstil.Select lsSave (5, 1)
-      Sleep (1)
-      Aendern.Click
-      Sleep (1)
-
-      SuchenIn.Select "ZZZZ_TT_New_Name"
-      Sleep (1)
-      Loeschen.Click
-      Sleep (1)
-
-      Kontext "ExtrasOptionenDlg"
-      ExtrasOptionenDlg.OK
-      Sleep (3)
-
- printlog " - check the reset"
-      ToolsOptions
-      hToolsOptions ( "Internet", "Search" )
-
-      iInterim = SuchenIn.GetItemCount
-      if iInterim <> iSave then
-         Warnlog "The default can't be reached!"
-      else
-         for i=1 to iInterim
-            SuchenIn.Select lsSave (1, i)
-            if DienstName.GetText <> lsSave (1, i) then Warnlog lsSave (1, i) +  " : Name => old entry not saved correctly!"
-            if Und.IsChecked <> lbSave (1, i)      then Warnlog lsSave (1, i) +  " : Und => old entry not saved correctly!"
-            if Oder.IsChecked <> lbSave (2, i)     then Warnlog lsSave (1, i) +  " : Oder => old entry not saved correctly!"
-            if Exakt.IsChecked <> lbSave (3, i)    then Warnlog lsSave (1, i) +  " : Exakt => old entry not saved correctly!"
-            if Praefix.GetText <> lsSave (2, i)    then Warnlog lsSave (1, i) +  " : Prefix => old entry not saved correctly!"
-            if Suffix.GetText <> lsSave (3, i)     then Warnlog lsSave (1, i) +  " : Suffix => old entry not saved correctly!"
-            if Trenner.GetText <> lsSave (4, i)    then Warnlog lsSave (1, i) +  " : Seperator => old entry not saved correctly!"
-            if Schreibstil.GetSelText <> lsSave (5, i) then Warnlog lsSave (1, i) +  " : Case match => old entry not saved correctly!"
-         next i
-      end if
-   end if
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-endcase
-
-
diff --git a/testautomation/framework/optional/includes/options_lan1.inc b/testautomation/framework/optional/includes/options_lan1.inc
deleted file mode 100755
index ac7f70d18de2..000000000000
--- a/testautomation/framework/optional/includes/options_lan1.inc
+++ /dev/null
@@ -1,894 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : general option test (test for language-group)
-'*
-'\******************************************************************************
-
-sub opt_lan1
-  Dim bOld as Boolean
-
-   bOld = ActiveDeactivateAsianSupport ( FALSE )
-
-   Call tLanguageSettingsLanguages
-   Call tLanguageSettingsWritingAids
-
-   printlog "++ activate the asian support in StarOffice ++"
-   ActiveDeactivateAsianSupport ( TRUE )
-   Call tLanguageSettingsJapaneseFind
-   Call tLanguageSettingsAsianLayout
-
-   printlog "++ reset asian support in StarOffice to default ++"
-   if bOld = TRUE then
-      ActiveDeactivateAsianSupport ( TRUE )
-   else
-      ActiveDeactivateAsianSupport ( FALSE )
-   end if
-
-end sub
-
-'*******************************************************************************
-
-testcase tLanguageSettingsLanguages
-
-   Dim lsSave ( 5 ) as String, lsSave2 (3) as String
-   Dim bChanged as Boolean, bSave as Boolean, bSave2 as Boolean
-
-   bChanged = FALSE
-
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
-
-   printlog "- check dependences in this dialog"
-   printlog "    - asian support"
-   if Aktivieren.IsChecked() = FALSE then
-      if Asiatisch.IsEnabled() = TRUE then
-         Warnlog "Asian support is not active, the listbox is in wrong state:"
-         printlog "...the language for asian is active => Perhaps #108220#"
-         end if
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-      if Asiatisch.IsEnabled() <> TRUE then
-         Warnlog "Asian support is active, the listbox is in wrong state:"
-         printlog "...language for asian is not active => BUG!"
-         end if
-   if Aktivieren.isEnabled then
-       Aktivieren.unCheck
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   else
-      if Asiatisch.IsEnabled() <> TRUE then
-         Warnlog "Asian support is not active, the listbox is in wrong state:"
-         printlog "...language for asian is not active => BUG!"
-         end if
-   if Aktivieren.isEnabled then
-       Aktivieren.unCheck
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-      if Asiatisch.IsEnabled() = TRUE then
-         Warnlog "Asian support is active, the listbox is in wrong state:"
-         printlog "...language for asian is active => BUG!"
-         end if
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   end if
-
-   printlog "    - CTL support"
-   if ComplexScriptEnabled.IsChecked() = FALSE then
-      if LanguageComplexScript.IsEnabled() = TRUE then
-         Warnlog "CTL support is not active, the listbox is in wrong state:"
-         printlog "...language for CTL is active => BUG!"
-      end if
-      ComplexScriptEnabled.Check()
-      if LanguageComplexScript.IsEnabled() <> TRUE then
-         Warnlog "CTL support is active, the listbox is in wrong state:"
-         printlog "...language for CTL is not active => BUG!"
-      end if
-      ComplexScriptEnabled.UnCheck()
-   else
-      if LanguageComplexScript.IsEnabled() <> TRUE then
-         Warnlog "CTL support is active, the listbox is in wrong state:"
-         printlog "...language for CTL is not active => BUG!"
-      end if
-      ComplexScriptEnabled.UnCheck()
-      if LanguageComplexScript.IsEnabled() = TRUE then
-         Warnlog "CTL support is not active, the listbox is in wrong state:"
-         printlog "...the language for CTL is active => BUG!"
-      end if
-      ComplexScriptEnabled.Check()
-   end if
-
-   printlog "- save raw data"
-   lsSave (1) = Gebietsschema.GetSelText()
-   lsSave (2) = StandardWaehrung.GetSelText()
-   lsSave (3) = Westlich.GetSelText()
-   bSave = Aktivieren.IsChecked()
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   lsSave (4) = Asiatisch.GetSelText()
-
-   if lsSave (4) = "" then
-      Warnlog "Empty entry is selected for 'Asian'! => Bug 102046"
-      endif
-
-   bSave2 = ComplexScriptEnabled.IsChecked()
-   ComplexScriptEnabled.Check()
-   lsSave (5) = LanguageComplexScript.GetSelText()
-
-   if lsSave (5) = "" then
-      Warnlog "Empty entry is selected for 'Complex script'! => Bug 102046"
-      endif
-
-   printlog "- change settings"
-   select case iSprache
-      case 34   : Gebietsschema.Select( 40 )
-      case 39   : Gebietsschema.Select( 17 )
-      case 81   : Gebietsschema.Select( 22 )
-      case 88   : Gebietsschema.Select( 19 )
-      case else : Gebietsschema.Select( 15 )
-   end select
-   StandardWaehrung.Select( 20 )
-   Westlich.Select( 10 )
-   lsSave2(1) = Westlich.GetSelText()
-
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   Asiatisch.Select( 5 )
-   lsSave2(2) = Asiatisch.GetSelText()
-   AktuellesDokument.Uncheck()
-
-   ComplexScriptEnabled.Check
-   LanguageComplexScript.Select( 7 )
-   lsSave2 (3) = LanguageComplexScript.GetSelText()
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK()
-   Sleep ( 3 )
-
-   hCloseDocument
-
-   printlog "- exit/restart StarOffice"
-   ExitRestartTheOffice
-   hNewDocument
-   printlog "- check changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
-
-   select case iSprache
-      case 34   : if Gebietsschema.GetSelIndex <> 40 then
-                  Warnlog "locale settings => changes not saved!"
-                     endif
-      case 39   : if Gebietsschema.GetSelIndex <> 17 then
-                  Warnlog "locale settings => changes not saved!"
-                     endif
-      case 81   : if Gebietsschema.GetSelIndex <> 22 then
-                  Warnlog "locale settings => changes not saved!"
-                     endif
-      case 88   : if Gebietsschema.GetSelIndex <> 19 then
-                  Warnlog "locale settings => changes not saved!"
-                     endif
-      case else : if Gebietsschema.GetSelIndex <> 15 then
-                  Warnlog "locale settings => changes not saved!"
-                     endif
-   end select
-
-   if StandardWaehrung.GetSelIndex <> 20 then
-      Warnlog "default currency => changes not saved!"
-      endif
-
-   if Westlich.GetSelText <> lsSave2(1) then
-      Warnlog "western => changes not saved! "
-      endif
-
-   if Aktivieren.IsChecked <> TRUE then
-      Warnlog "Enabled asian support => changes not saved!"
-      endif
-
-   if Asiatisch.GetSelText <> lsSave2(2) then
-      Warnlog  "asian => changes not saved! "
-      endif
-
-   if ComplexScriptEnabled.IsChecked <> TRUE then
-      Warnlog "CTL support => changes not saved!"
-      endif
-
-   if LanguageComplexScript.GetSelText <> lsSave2 (3) then
-      Warnlog  "CTL language => changes not saved! "
-      endif
-
-   printlog "- set to default"
-   Gebietsschema.Select lsSave(1)
-   StandardWaehrung.Select lsSave (2)
-   Westlich.Select lsSave (3)
-   AktuellesDokument.Uncheck()
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-
-   if lsSave (4) <> "" then
-      Asiatisch.Select lsSave (4)
-   else
-      Asiatisch.Select 1
-   end if
-
-   if Aktivieren.isEnabled then
-   if bSave = TRUE then 
-       Aktivieren.Check
-   else 
-       Aktivieren.Uncheck
-   endif
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   ComplexScriptEnabled.Check()
-
-   if lsSave (5) <> "" then
-      LanguageComplexScript.Select( lsSave(5) )
-   else
-      LanguageComplexScript.Select( 1 )
-   end if
-
-   if bSave2 = TRUE then
-      ComplexScriptEnabled.Check()
-   else
-      ComplexScriptEnabled.Uncheck()
-   endif
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK()
-   Sleep (3)
-
-   printlog "- check the data"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "Languages" )
-
-   if Gebietsschema.GetSelText() <> lsSave(1) then
-      Warnlog "locale settings => changes not saved! => BugID : 87977"
-      endif
-
-   if StandardWaehrung.GetSelText() <> lsSave(2) then
-      Warnlog "default currency => changes not saved!"
-      endif
-
-   if Westlich.GetSelText() <> lsSave (3) then
-      Warnlog  "western => changes not saved!"
-      endif
-
-   if Aktivieren.IsChecked() <> bSave then
-      Warnlog "Enabled asian support => changes not saved!"
-      endif
-
-   if Aktivieren.isEnabled then
-       Aktivieren.Check
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   if lsSave (4) <> "" then
-      if Asiatisch.GetSelText() <> lsSave (4) then
-         Warnlog "asian => changes not saved!"
-      endif
-   end if
-
-   if ComplexScriptEnabled.IsChecked() <> bSave2 then
-      Warnlog "CTL support => changes not saved!"
-      endif
-
-   ComplexScriptEnabled.Check()
-
-   if lsSave (5) <> "" then
-      if LanguageComplexScript.GetSelText() <> lsSave (5) then
-      Warnlog  "CTL language => changes not saved! "
-      endif
-   end if
-   if Aktivieren.isEnabled then
-   if bSave = TRUE then 
-       Aktivieren.Check
-   else 
-       Aktivieren.Uncheck
-   endif
-   else
-       qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
-       printlog Aktivieren.isEnabled 
-   endif
-   if bSave2 = TRUE then
-      ComplexScriptEnabled.Check()
-   else
-      ComplexScriptEnabled.Uncheck()
-   endif
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK()
-   Sleep (3)
-   hclosedocument
-endcase
-
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-testcase tLanguageSettingsWritingAids
-
-   Dim lbSave1 ( 5 ) as Boolean
-   Dim lbSave2 ( 5 ) as Boolean
-   Dim lbSave3 ( 15 ) as Boolean
-   dim iCounter as Integer
-   Dim i as Integer, iCounter1 as Integer, iCounter2 as Integer, iCounter3 as Integer
-
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "WritingAids" )
-
-   printlog " - save raw data / and inverted settings"
-   iCounter1 = Sprachmodule.GetItemCount
-   Sprachmodule.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter1
-      lbSave1 (i) = Sprachmodule.IsChecked
-      if lbSave1 (i) = TRUE then Sprachmodule.Uncheck else Sprachmodule.Check
-      Sprachmodule.TypeKeys "<Down>"
-   next i
-
-   iCounter2 = Benutzerwoerterbuch.GetItemCount
-   Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter2 - 1
-      lbSave2 (i) = Benutzerwoerterbuch.IsChecked
-      if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Uncheck else Benutzerwoerterbuch.Check
-      Benutzerwoerterbuch.TypeKeys "<Down>"
-   next i
-
-   if Benutzerwoerterbuch.IsChecked <> TRUE then
-      Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!"
-      endif
-
-   iCounter3 = Optionen.GetItemCount
-   Optionen.TypeKeys "<PageUp>", 6
-   for i=1 to iCounter3
-      if i<>9 AND i<>10 AND i<>11 then
-         lbSave3 (i) = Optionen.IsChecked
-         if lbSave3 (i) = TRUE then Optionen.Uncheck else Optionen.Check
-      end if
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-   hCloseDocument
-
-   printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
-   printlog " - check changes"
-
-   hNewDocument
-
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "WritingAids" )
-   printlog "    'available language modules'"
-   Sprachmodule.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter1
-      if Sprachmodule.Ischecked =  lbSave1 (i) then
-          Warnlog "entry no. " + i + " => changes not saved!  perhaps #i15841!"
-      end if
-      Sprachmodule.TypeKeys "<Down>"
-   next i
-
-   printlog "    'user-definded dictonaries'"
-   Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter2 - 1
-      if Benutzerwoerterbuch.Ischecked = lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!"
-      Benutzerwoerterbuch.TypeKeys "<Down>"
-   next i
-
-   if Benutzerwoerterbuch.IsChecked <> TRUE then
-      Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!"
-      endif
-
-   printlog "    'options'"
-   Optionen.TypeKeys "<PageUp>", 6
-   for i=1 to iCounter3
-      if i<>9 AND i<>10 AND i<>11 then
-         if Optionen.IsChecked = lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!"
-         end if
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   printlog " - make second changes"
-   Optionen.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter3
-      if i=1 then Optionen.Uncheck
-      if i=3 then Optionen.Check
-      if i=5 then Optionen.Uncheck
-      if i=6 then Optionen.Check
-      if i=7 then Optionen.Uncheck
-      if i=12 then Optionen.Check
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   hCloseDocument
-
-   printlog " - check second changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "WritingAids" )
-   Optionen.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter
-      select case i
-         case 1  : if Optionen.IsChecked <> FALSE then
-                      Warnlog "entry no. 1  => changes not saved!"
-                      endif
-         case 3  : if Optionen.IsChecked <> TRUE  then
-                      Warnlog "entry no. 3  => changes not saved!"
-                      endif
-         case 5  : if Optionen.IsChecked <> FALSE then
-                      Warnlog "entry no. 5  => changes not saved!"
-                      endif
-         case 6  : if Optionen.IsChecked <> TRUE  then
-                      Warnlog "entry no. 6  => changes not saved!"
-                      endif
-         case 7  : if Optionen.IsChecked <> FALSE then
-                      printlog "entry no. 7  => not saved! => it is only for documents"
-                      endif
-         case 12 : if Optionen.IsChecked <> TRUE  then
-                      Warnlog "entry no. 12  => changes not saved!"
-                      endif
-      end select
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   printlog " - reset settings"
-   Sprachmodule.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter1
-      if lbSave1 (i) = TRUE then Sprachmodule.Check else Sprachmodule.UnCheck
-      Sprachmodule.TypeKeys "<Down>"
-   next i
-
-   Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter2 - 1
-      if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Check else Benutzerwoerterbuch.UnCheck
-      Benutzerwoerterbuch.TypeKeys "<Down>"
-   next i
-
-   Optionen.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter3
-      if i<>9 AND i<>10 AND i<>11 then
-         if lbSave3 (i) = TRUE then Optionen.Check else Optionen.UnCheck
-      end if
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-   printlog " - check raw data"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "WritingAids" )
-
-   printlog "    'available language modules'"
-   Sprachmodule.TypeKeys "<PageUp>", 6
-
-   for i=1 to iCounter1
-      if Sprachmodule.Ischecked <> lbSave1 (i) then Warnlog "entry no. " + i + " => changes not saved!"
-      Sprachmodule.TypeKeys "<Down>"
-   next i
-
-   printlog "    'user-definded dictonaries'"
-   Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
-   for i=1 to iCounter2 - 1
-      if Benutzerwoerterbuch.Ischecked <> lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!"
-      Benutzerwoerterbuch.TypeKeys "<Down>"
-   next i
-
-   printlog "    'options'"
-   Optionen.TypeKeys "<PageUp>", 6
-   for i=1 to iCounter3
-      if i<>9 AND i<>10 AND i<>11 then
-         if Optionen.IsChecked <> lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!"
-      end if
-      Optionen.TypeKeys "<Down>"
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-endcase
-
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-testcase tLanguageSettingsJapaneseFind
- Dim bSave ( 20 ) as Boolean
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
-
- printlog " - save data"
-   bSave (1 ) = MatchCase.IsChecked
-   bSave (2 ) = MatchFullHalf.IsChecked
-   bSave (3 ) = MatchHiraganaKatakana.IsChecked
-   bSave (4 ) = MatchContractions.IsChecked
-   bSave (5 ) = MatchMinusDashChoOn.IsChecked
-   bSave (6 ) = MatchRepeatcharacterMarks.IsChecked
-   bSave (7 ) = MatchVariantFormKanji.IsChecked
-   bSave (8 ) = MatchOldKanaForms.IsChecked
-   bSave (9 ) = MatchDiZiDuZu.IsChecked
-   bSave (10) = MatchBaVaHaFa.IsChecked
-   bSave (11) = MatchTsiThiChiDhiZi.IsChecked
-   bSave (12) = MatchHyuFyuByuVyu.IsChecked
-   bSave (13) = MatchDeSheZeJe.IsChecked
-   bSave (14) = MatchIaIya.IsChecked
-   bSave (15) = MatchKiKu.IsChecked
-   bSave (16) = PunctuationCharacters.IsChecked
-   bSave (17) = WhitespaceCharacters.IsChecked
-   bSave (18) = ProlongedSoundmarks.IsChecked
-   bSave (19) = MiddleDots.IsChecked
-
- printlog " - invert data"
-   if bSave (1 ) = TRUE then MatchCase.Uncheck                 else MatchCase.Check
-   if bSave (2 ) = TRUE then MatchFullHalf.Uncheck             else MatchFullHalf.Check
-   if bSave (3 ) = TRUE then MatchHiraganaKatakana.Uncheck     else MatchHiraganaKatakana.Check
-   if bSave (4 ) = TRUE then MatchContractions.Uncheck         else MatchContractions.Check
-   if bSave (5 ) = TRUE then MatchMinusDashChoOn.Uncheck       else MatchMinusDashChoOn.Check
-   if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Uncheck else MatchRepeatcharacterMarks.Check
-   if bSave (7 ) = TRUE then MatchVariantFormKanji.Uncheck     else MatchVariantFormKanji.Check
-   if bSave (8 ) = TRUE then MatchOldKanaForms.Uncheck         else MatchOldKanaForms.Check
-   if bSave (9 ) = TRUE then MatchDiZiDuZu.Uncheck             else MatchDiZiDuZu.Check
-   if bSave (10) = TRUE then MatchBaVaHaFa.Uncheck             else MatchBaVaHaFa.Check
-   if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Uncheck       else MatchTsiThiChiDhiZi.Check
-   if bSave (12) = TRUE then MatchHyuFyuByuVyu.Uncheck         else MatchHyuFyuByuVyu.Check
-   if bSave (13) = TRUE then MatchDeSheZeJe.Uncheck            else MatchDeSheZeJe.Check
-   if bSave (14) = TRUE then MatchIaIya.Uncheck                else MatchIaIya.Check
-   if bSave (15) = TRUE then MatchKiKu.Uncheck                 else MatchKiKu.Check
-   if bSave (16) = TRUE then PunctuationCharacters.Uncheck     else PunctuationCharacters.Check
-   if bSave (17) = TRUE then WhitespaceCharacters.Uncheck      else WhitespaceCharacters.Check
-   if bSave (18) = TRUE then ProlongedSoundmarks.Uncheck       else ProlongedSoundmarks.Check
-   if bSave (19) = TRUE then MiddleDots.Uncheck                else MiddleDots.Check
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-   hCloseDocument
-
- printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
-
-   if MatchCase.IsChecked                 = bSave (1 ) then Warnlog "Match Case => changes not saved!"
-   if MatchFullHalf.IsChecked             = bSave (2 ) then Warnlog "Match Full Half => changes not saved!"
-   if MatchHiraganaKatakana.IsChecked     = bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!"
-   if MatchContractions.IsChecked         = bSave (4 ) then Warnlog "Match Contractions => changes not saved!"
-   if MatchMinusDashChoOn.IsChecked       = bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!"
-   if MatchRepeatcharacterMarks.IsChecked = bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!"
-   if MatchVariantFormKanji.IsChecked     = bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!"
-   if MatchOldKanaForms.IsChecked         = bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!"
-   if MatchDiZiDuZu.IsChecked             = bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!"
-   if MatchBaVaHaFa.IsChecked             = bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!"
-   if MatchTsiThiChiDhiZi.IsChecked       = bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
-   if MatchHyuFyuByuVyu.IsChecked         = bSave (12) then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!"
-   if MatchDeSheZeJe.IsChecked            = bSave (13) then Warnlog "Match De She Ze Je => changes not saved!"
-   if MatchIaIya.IsChecked                = bSave (14) then Warnlog "Match Ia Iya => changes not saved!"
-   if MatchKiKu.IsChecked                 = bSave (15) then Warnlog "Match Ki Ku => changes not saved!"
-   if PunctuationCharacters.IsChecked     = bSave (16) then Warnlog "Punctuation Characters => changes not saved!"
-   if WhitespaceCharacters.IsChecked      = bSave (17) then Warnlog "Whitespace Characters => changes not saved!"
-   if ProlongedSoundmarks.IsChecked       = bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!"
-   if MiddleDots.IsChecked                = bSave (19) then Warnlog "Middle Dots => changes not saved!"
-
- printlog " - second changes"
-   MatchCase.Check
-   MatchFullHalf.Uncheck
-   MatchHiraganaKatakana.Check
-   MatchContractions.Check
-   MatchMinusDashChoOn.Uncheck
-   MatchRepeatcharacterMarks.Uncheck
-   MatchVariantFormKanji.Check
-   MatchOldKanaForms.Check
-   MatchDiZiDuZu.Uncheck
-   MatchBaVaHaFa.Check
-   MatchTsiThiChiDhiZi.Uncheck
-   MatchHyuFyuByuVyu.Check
-   MatchDeSheZeJe.Uncheck
-   MatchIaIya.Check
-   MatchKiKu.Uncheck
-   PunctuationCharacters.Uncheck
-   WhitespaceCharacters.Uncheck
-   ProlongedSoundmarks.Uncheck
-   MiddleDots.Check
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
-
-   if MatchCase.IsChecked                 <> TRUE  then Warnlog "Match Case => changes not saved!"
-   if MatchFullHalf.IsChecked             <> FALSE then Warnlog "Match Full Half => changes not saved!"
-   if MatchHiraganaKatakana.IsChecked     <> TRUE  then Warnlog "Match Hiragana Katakana => changes not saved!"
-   if MatchContractions.IsChecked         <> TRUE  then Warnlog "Match Contractions => changes not saved!"
-   if MatchMinusDashChoOn.IsChecked       <> FALSE then Warnlog "Match Minus Dash Cho On => changes not saved!"
-   if MatchRepeatcharacterMarks.IsChecked <> FALSE then Warnlog "Match Repeatcharacter Marks => changes not saved!"
-   if MatchVariantFormKanji.IsChecked     <> TRUE  then Warnlog "Match Variant Form Kanji => changes not saved!"
-   if MatchOldKanaForms.IsChecked         <> TRUE  then Warnlog "Match Old Kana Forms => changes not saved!"
-   if MatchDiZiDuZu.IsChecked             <> FALSE then Warnlog "Match Di Zi Du Zu => changes not saved!"
-   if MatchBaVaHaFa.IsChecked             <> TRUE  then Warnlog "Match Ba Va Ha Fa => changes not saved!"
-   if MatchTsiThiChiDhiZi.IsChecked       <> FALSE then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
-   if MatchHyuFyuByuVyu.IsChecked         <> TRUE  then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!"
-   if MatchDeSheZeJe.IsChecked            <> FALSE then Warnlog "Match De She Ze Je => changes not saved!"
-   if MatchIaIya.IsChecked                <> TRUE  then Warnlog "Match Ia Iya => changes not saved!"
-   if MatchKiKu.IsChecked                 <> FALSE then Warnlog "Match Ki Ku => changes not saved!"
-   if PunctuationCharacters.IsChecked     <> FALSE then Warnlog "Punctuation Characters => changes not saved!"
-   if WhitespaceCharacters.IsChecked      <> FALSE then Warnlog "Whitespace Characters => changes not saved!"
-   if ProlongedSoundmarks.IsChecked       <> FALSE then Warnlog "Prolonged Soundmarks => changes not saved!"
-   if MiddleDots.IsChecked                <> TRUE  then Warnlog "Middle Dots => changes not saved!"
-
- printlog " - reset to saved data"
-   if bSave (1 ) = TRUE then MatchCase.Check                 else MatchCase.UnCheck
-   if bSave (2 ) = TRUE then MatchFullHalf.Check             else MatchFullHalf.UnCheck
-   if bSave (3 ) = TRUE then MatchHiraganaKatakana.Check     else MatchHiraganaKatakana.UnCheck
-   if bSave (4 ) = TRUE then MatchContractions.Check         else MatchContractions.UnCheck
-   if bSave (5 ) = TRUE then MatchMinusDashChoOn.Check       else MatchMinusDashChoOn.UnCheck
-   if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Check else MatchRepeatcharacterMarks.UnCheck
-   if bSave (7 ) = TRUE then MatchVariantFormKanji.Check     else MatchVariantFormKanji.UnCheck
-   if bSave (8 ) = TRUE then MatchOldKanaForms.Check         else MatchOldKanaForms.UnCheck
-   if bSave (9 ) = TRUE then MatchDiZiDuZu.Check             else MatchDiZiDuZu.UnCheck
-   if bSave (10) = TRUE then MatchBaVaHaFa.Check             else MatchBaVaHaFa.UnCheck
-   if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Check       else MatchTsiThiChiDhiZi.UnCheck
-   if bSave (12) = TRUE then MatchHyuFyuByuVyu.Check         else MatchHyuFyuByuVyu.UnCheck
-   if bSave (13) = TRUE then MatchDeSheZeJe.Check            else MatchDeSheZeJe.UnCheck
-   if bSave (14) = TRUE then MatchIaIya.Check                else MatchIaIya.UnCheck
-   if bSave (15) = TRUE then MatchKiKu.Check                 else MatchKiKu.UnCheck
-   if bSave (16) = TRUE then PunctuationCharacters.Check     else PunctuationCharacters.UnCheck
-   if bSave (17) = TRUE then WhitespaceCharacters.Check      else WhitespaceCharacters.UnCheck
-   if bSave (18) = TRUE then ProlongedSoundmarks.Check       else ProlongedSoundmarks.UnCheck
-   if bSave (19) = TRUE then MiddleDots.Check                else MiddleDots.UnCheck
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check saved data"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
-
-   if MatchCase.IsChecked                 <> bSave (1 ) then Warnlog "Match Case => changes not saved!"
-   if MatchFullHalf.IsChecked             <> bSave (2 ) then Warnlog "Match Full Half => changes not saved!"
-   if MatchHiraganaKatakana.IsChecked     <> bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!"
-   if MatchContractions.IsChecked         <> bSave (4 ) then Warnlog "Match Contractions => changes not saved!"
-   if MatchMinusDashChoOn.IsChecked       <> bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!"
-   if MatchRepeatcharacterMarks.IsChecked <> bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!"
-   if MatchVariantFormKanji.IsChecked     <> bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!"
-   if MatchOldKanaForms.IsChecked         <> bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!"
-   if MatchDiZiDuZu.IsChecked             <> bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!"
-   if MatchBaVaHaFa.IsChecked             <> bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!"
-   if MatchTsiThiChiDhiZi.IsChecked       <> bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
-   if MatchHyuFyuByuVyu.IsChecked         <> bSave (12) then Warnlog "Match Hyu Fyu Byu Vyu => changes not saved!"
-   if MatchDeSheZeJe.IsChecked            <> bSave (13) then Warnlog "Match De She Ze Je => changes not saved!"
-   if MatchIaIya.IsChecked                <> bSave (14) then Warnlog "Match Ia Iya => changes not saved!"
-   if MatchKiKu.IsChecked                 <> bSave (15) then Warnlog "Match Ki Ku => changes not saved!"
-   if PunctuationCharacters.IsChecked     <> bSave (16) then Warnlog "Punctuation Characters => changes not saved!"
-   if WhitespaceCharacters.IsChecked      <> bSave (17) then Warnlog "Whitespace Characters => changes not saved!"
-   if ProlongedSoundmarks.IsChecked       <> bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!"
-   if MiddleDots.IsChecked                <> bSave (19) then Warnlog "Middle Dots => changes not saved!"
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
-endcase
-
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
-testcase tLanguageSettingsAsianLayout
- Dim bSave ( 20 ) as Boolean
- Dim sSave ( 20 ) as String
- Dim i as Integer, iLan as Integer
-
-
-   hNewDocument
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "AsianLayout" )
-
- printlog " - save raw data"
-   bSave ( 1 ) = WesternCharactersOnly.IsChecked
-   bSave ( 2 ) = WesternTextAndPunctuation.IsChecked
-   bSave ( 3 ) = NoCompression.IsChecked
-   bSave ( 4 ) = CompressPunctuationOnly.IsChecked
-   bSave ( 5 ) = CompressPunctuationAndJapaneseKana.IsChecked
-
-   iLan = Language.GetItemCount
-   if iLan > 4 then
-      Warnlog "There are more than 4 languages in the list. The test break here, because it can't work with more than 4 entries. Bug?!?"
-      Kontext "ExtrasOptionenDlg"
-      ExtrasOptionenDlg.OK
-      hclosedocument
-      goto endsub
-   end if
-
-   for i=1 to iLan
-      Language.Select i
-      sSave ( i ) = Language.GetSelText
-      bSave ( 5+i ) = Standard.IsChecked
-      Standard.Uncheck
-      sSave ( 5+i  ) = NoStartOfLine.GetText
-      sSave ( 10+i ) = NoEndOfLine.GetText
-      if bSave ( 5+1 ) = TRUE then
-         Standard.Check
-      else
-         Standard.Uncheck
-      end if
-   next i
-
- printlog " - change data"
-   WesternTextAndPunctuation.Check
-   CompressPunctuationOnly.Check
-   for i=1 to Language.GetItemCount
-      Language.Select i
-      Standard.UnCheck
-      select case i
-        case 1 : NoStartOfLine.SetText "avc" : NoEndOfLine.SetText "vca"
-        case 2 : NoStartOfLine.SetText ">" : NoEndOfLine.SetText "<"
-        case 3 : NoStartOfLine.SetText "!d?$" : NoEndOfLine.SetText "!d?$"
-        case 4 : NoStartOfLine.SetText "aS$%6" : NoEndOfLine.SetText "aS$$6"
-      end select
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-   hCloseDocument
-
- printlog " - exit/restart StarOffice"
-   ExitRestartTheOffice
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "AsianLayout" )
-
-   if WesternTextAndPunctuation.IsChecked <> TRUE then Warnlog "Western Text And Punctuation => changes not saved!"
-   if CompressPunctuationOnly.IsChecked <> TRUE then Warnlog "Compress Punctuation Only => changes not saved!"
-   for i=1 to iLan
-      Language.Select i
-      if Language.GetSelText <> sSave (i) then Warnlog "The language-entries are changed!"
-      if Standard.IsChecked then
-         Warnlog sSave(i) + " :  Standard is not unchecked"
-         Standard.Uncheck
-      end if
-      select case i
-        case 1 : if NoStartOfLine.GetText <> "avc"   then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
-                 if NoEndOfLine.GetText   <> "vca"   then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
-        case 2 : if NoStartOfLine.GetText <> ">"     then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
-                 if NoEndOfLine.GetText   <> "<"     then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
-        case 3 : if NoStartOfLine.GetText <> "!d?$"  then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
-                 if NoEndOfLine.GetText   <> "!d?$"  then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
-        case 4 : if NoStartOfLine.GetText <> "aS$%6" then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
-                 if NoEndOfLine.GetText   <> "aS$$6" then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
-      end select
-   next i
-
- printlog " - second changes"
-   WesternCharactersOnly.Check
-   CompressPunctuationAndJapaneseKana.Check
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check changes"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "AsianLayout" )
-
-   if WesternCharactersOnly.IsChecked <> TRUE then Warnlog "Western Characters Only => changes not saved!"
-   if CompressPunctuationAndJapaneseKana.IsChecked <> TRUE then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!"
-
- printlog " - reset to saved data"
-   if bSave ( 1 ) = TRUE then WesternCharactersOnly.Check
-   if bSave ( 2 ) = TRUE then WesternTextAndPunctuation.Check
-   if bSave ( 3 ) = TRUE then NoCompression.Check
-   if bSave ( 4 ) = TRUE then CompressPunctuationOnly.Check
-   if bSave ( 5 ) = TRUE then CompressPunctuationAndJapaneseKana.Check
-
-   for i=1 to iLan
-      Language.Select sSave(i)
-      Standard.Uncheck
-      NoStartOfLine.SetText sSave ( 5+i )
-      NoEndOfLine.SetText sSave ( 10+i )
-      if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-
- printlog " - check reset"
-   ToolsOptions
-   hToolsOptions ( "LanguageSettings", "AsianLayout" )
-
-   if WesternCharactersOnly.IsChecked              <> bSave ( 1 ) then Warnlog "Western Characters Only => changes not saved!"
-   if WesternTextAndPunctuation.IsChecked          <> bSave ( 2 ) then Warnlog "Western Text And Punctuation => changes not saved!"
-   if NoCompression.IsChecked                      <> bSave ( 3 ) then Warnlog "No Compression => changes not saved!"
-   if CompressPunctuationOnly.IsChecked            <> bSave ( 4 ) then Warnlog "Compress Punctuation Only => changes not saved!"
-   if CompressPunctuationAndJapaneseKana.IsChecked <> bSave ( 5 ) then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!"
-   for i=1 to iLan
-      Language.Select sSave(i)
-      if Standard.IsChecked <> bSave ( 5+i ) then Warnlog sSave(i) + " : Standard -> changes not saved"
-      Standard.Uncheck
-      if NoStartOfLine.GetText <> sSave ( 5+i ) then Warnlog sSave(i) + " : NoStartOfLine -> changes not saved"
-      if NoEndOfLine.GetText <> sSave ( 10+i )  then Warnlog sSave(i) + " : NoEndOfLine -> changes not saved"
-      if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck
-   next i
-
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep (3)
-endcase