changed structure which will be included into the CWS process.

7 files changed, 836 insertions, 0 deletions

diff --git a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc
new file mode 100755
index 000000000000..d3241b2eed5e
--- /dev/null
+++ b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc
@@ -0,0 +1,108 @@
+'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: c_cell_tools.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:09 $
+'*
+'* 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 : oliver.craemer@sun.com
+'*
+'* short description : tools for working with cells in calc
+'*
+'**************************************************************************************************
+'*
+' #1 fCalcGetCellValue            'Returns the value of a given cell
+' #1 fCalcCompareCellValue        'Compares the value of a given cell with a given result
+' #1 fCalcCompareCellFormular     'Compares the formular of a cell with a given result
+'*
+'\************************************************************************************************
+
+function fCalcGetCellValue ( sCelladdress as string ) as string
+
+    '///<b>The function returns the content of a given cell</b>
+    '///+The cell is selected by fCalcSelectRange which is located in /spreadsheet/tools/includes/c_select_tools.inc
+    '///+The content is copied to the clipboard by slot EditCopy
+    '///+   and read out by GetClipboardText which is located in /global/tools/inc/t_tools1.inc
+    use "spreadsheet\tools\includes\c_select_tools.inc"
+    use "global\tools\includes\required\t_tools1.inc"
+    
+    call fCalcSelectRange (sCelladdress)   'Select the given cell
+    kontext "DocumentCalc"                 'Setting kontext to Calcdocument
+    EditCopy                               'Copy content to clipboard
+    fCalcGetCellValue = GetClipboardText   'Returning clipboard to function    
+
+end function
+
+'-------------------------------------------------------------------------
+
+function fCalcCompareCellValue ( sCelladdress as string, sresult as string ) as boolean
+
+    '///<b>The function compares the value of a cell with a given result</b>
+    '///+The cellvalue is read by fCalcGetCellValue which is located in /spreadsheet/tools/includes/c_cell_tools.inc
+    '///+The value is compared with a given result (input)
+    '///+The function returns true if the comparison is correct and false for incorrect    
+
+    if fCalcGetCellValue ( sCelladdress ) = sresult then
+        printlog "  The cellvalue is correct"
+        fCalcCompareCellValue = true
+    else
+        warnlog "The cellvalue is " & fCalcGetCellValue ( sCelladdress ) & " but should be " & sresult
+        fCalcCompareCellValue = false
+    end if
+
+end function
+
+'-------------------------------------------------------------------------
+
+function fCalcCompareCellFormular ( sCelladdress as string, sresult as string ) as boolean
+
+    '///<b>The function compares the formular of a cell with a given result</b>
+    '///+The value is compared with a given result (input)
+    '///+The function returns true if the comparison is correct and false for incorrect
+    
+    dim sfunctionwithparameter as string
+    
+    call fCalcSelectRange (sCelladdress)
+    kontext ( "RechenleisteCalc" ) 
+    EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
+    editcopy
+    sfunctionwithparameter = GetClipboardText ()
+    '/// Press twice <ESCAPE> to leave the cell
+    'printlog "Press twice <ESCAPE> to leave the cell"
+    kontext ( "DocumentCalc" )
+    DocumentCalc.TypeKeys "<ESCAPE>" , 2
+    if sfunctionwithparameter = sresult then
+        printlog "  The function is correct"
+        fCalcCompareCellFormular = true
+    else
+        warnlog "The function is " & sfunctionwithparameter & " instead of " &  sresult
+        fCalcCompareCellFormular = false
+    end if
+    
+end function
diff --git a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc
new file mode 100755
index 000000000000..bdeb817f2bc8
--- /dev/null
+++ b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc
@@ -0,0 +1,223 @@
+'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: c_l10n_tools.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:09 $
+'*
+'* 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 : oliver.craemer@sun.com
+'*
+'* short description : tools for localisation in calc
+'*
+'**************************************************************************************************
+'*
+' #1 fFunctionname        'Returns the localized name of a given function in the current UI language
+' #1 fError_l10n          'Returns the localized name of a given errorcode in the current UI language
+'*
+'\************************************************************************************************
+
+function fFunctionname ( sFunctionname_en as string ) as string
+
+    '///<b>The function returns the localized name of a given function in the current UI language</b>
+    '///+ -Input is the english name of the function as string
+    '///+ -Output is the localized name of the function as string
+    '///+ -If there is no translation available the fallback is the english name
+    
+    dim sloaddocument as string
+    dim sfunctionstring as string
+    dim scelladress as string
+    
+    use "global/tools/includes/required/t_doc2.inc" 
+    const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
+    
+    sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Functionnames.ods" )
+        
+    '///Load document with all functions <i>gTestToolPath</i>/spreadsheet/tools/input/Functionnames.ods
+    call hFileOpen ( sloaddocument )
+    sleep (2)
+    '///Make sure that the file is editable
+    call sMakeReadOnlyDocumentEditable()
+
+    '///Setting selection to A1 to avoid messagebox in Search and Replace dialog.
+    call fCalcSelectRange ("A1")
+    '///Search for function by Search and Replace dialog
+    kontext "DocumentCalc"
+    EditSearchAndReplace
+    sleep (1)
+    kontext "FindAndReplace"
+    '///Setting dialog to defaults 
+    More.Click
+    SimilaritySearch.UnCheck
+    CurrentSelectionOnly.UnCheck
+    Backwards.UnCheck
+    SearchForStyles.UnCheck
+    SearchIn.Select 1
+    '///Setting search parameter
+    WholeWordsOnly.Check
+    SearchFor.SetText sFunctionname_en
+    SearchNow.click
+    kontext
+    '///If a MsgBox appears the search must have failed => Fallback to english name
+    if active.exists then
+        if active.getRT = 304 then
+            warnlog CFN & "Function not found, falling back to english name"
+            fFunctionname = sFunctionname_en
+            active.OK
+        else
+            '///Throw a warning if a dialog of unexpected resource type appears
+           warnlog CFN & "Unknown message box! " & active.GetText
+           active.Default
+           fFunctionname = sFunctionname_en
+       end if
+       kontext "FindAndReplace"
+       sleep (1)
+       '///Reset dialog to defaultsetting
+       WholeWordsOnly.UnCheck
+       FindAndReplace.Close
+       call hCloseDocument
+       exit function
+    end if 
+    kontext "FindAndReplace"
+    sleep (1)
+    '///Reset dialog to defaultsettings
+    WholeWordsOnly.UnCheck
+    FindAndReplace.Close
+    Kontext "RechenleisteCalc"
+    scelladress = Bereich.GetSelText    
+    if fCalcGetCellValue (scelladress) = sFunctionname_en then
+        '///Get localised string for function by extracting functionname out of next cell 
+        call fCalcSelectRange ( "B" & mid(scelladress,2) )
+        kontext ( "RechenleisteCalc" ) 
+        EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
+        editcopy
+        sfunctionstring = GetClipboardText ()
+        kontext "DocumentCalc"
+        DocumentCalc.TypeKeys ("<ESCAPE>",2)
+        ' DEBUG: printlog sfunctionstring
+        ' DEBUG: printlog len(sfunctionstring)
+        ' DEBUG: printlog instr(sfunctionstring,"(")
+        fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
+        printlog "  The name of the function in this locale (" & iSprache & ") is " & fFunctionname
+    else
+        warnlog CFN & "Function not found, falling back to english version"
+        fFunctionname = sFunctionname_en
+    end if
+    
+    call hCloseDocument
+    
+end function
+
+'
+'----------------------------------------------------------------------------
+'
+
+function fError_l10n ( sError_en as string ) as string
+
+    '///<b>The function returns the localized name of a given error in the current UI language</b>
+    '///+ -Input is the english name of the error as string
+    '///+ -Output is the localized name of the error as string
+    '///+ -If there is no translation available the fallback is the english name
+    
+    dim sloaddocument as string
+    dim sfunctionstring as string
+    dim scelladress as string
+    
+    use "global/tools/includes/required/t_doc2.inc" 
+    const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n "
+    
+    sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Errorcodes.ods" )
+        
+    '///Load document with all errorcodes <i>gTestToolPath</i>/spreadsheet/tools/input/Errorcodes.ods
+    call hFileOpen ( sloaddocument )
+    sleep (2)
+    '///Make sure that the file is editable
+    call sMakeReadOnlyDocumentEditable()
+
+    '///Setting selection to A1 to avoid messagebox in Search and Replace dialog.
+    call fCalcSelectRange ("A1")
+    '///Search for function by Search and Replace dialog
+    kontext "DocumentCalc"
+    EditSearchAndReplace
+    sleep (1)
+    kontext "FindAndReplace"
+    '///Setting dialog to defaults 
+    More.Click
+    SimilaritySearch.UnCheck
+    CurrentSelectionOnly.UnCheck
+    Backwards.UnCheck
+    SearchForStyles.UnCheck
+    SearchIn.Select 1
+    '///Setting search parameter
+    WholeWordsOnly.Check
+    SearchFor.SetText sError_en
+    SearchNow.click
+    kontext
+    '///If a MsgBox appears the search must have failed => Fallback to english name
+    if active.exists then
+        if active.getRT = 304 then
+            warnlog CFN & "Function not found, falling back to english name"
+            fError_l10n = sError_en
+            active.OK
+        else
+            '///Throw a warning if a dialog of unexpected resource type appears
+           warnlog CFN & "Unknown message box! " & active.GetText
+           active.Default
+           fError_l10n = sError_en
+       end if
+       kontext "FindAndReplace"
+       sleep (1)
+       '///Reset dialog to defaultsetting
+       WholeWordsOnly.UnCheck
+       FindAndReplace.Close
+       call hCloseDocument
+       exit function
+    end if 
+    kontext "FindAndReplace"
+    sleep (1)
+    '///Reset dialog to defaultsetting
+    WholeWordsOnly.UnCheck
+    FindAndReplace.Close
+    Kontext "RechenleisteCalc"
+    scelladress = Bereich.GetSelText    
+    if fCalcGetCellValue (scelladress) = sError_en then
+        '///Get localised string for ERR by extracting errorcode out of next cell 
+        call fCalcSelectRange ( "B" & mid(scelladress,2) )
+        kontext "DocumentCalc"
+        editcopy
+        fError_l10n = GetClipboardText ()
+        kontext "DocumentCalc"
+        printlog "  The name for ERR in this locale (" & iSprache & ") is " & fError_l10n
+    else
+        warnlog CFN & "Errorcode not found, falling back to english version"
+        fError_l10n = sError_en
+    end if
+    
+    call hCloseDocument
+    
+end function
diff --git a/testautomation/spreadsheet/tools/includes/c_select_tools.inc b/testautomation/spreadsheet/tools/includes/c_select_tools.inc
new file mode 100755
index 000000000000..46f6a63ccba4
--- /dev/null
+++ b/testautomation/spreadsheet/tools/includes/c_select_tools.inc
@@ -0,0 +1,238 @@
+'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: c_select_tools.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $
+'*
+'* 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 : oliver.craemer@sun.com
+'*
+'* short description : selecting objects in calc
+'*
+'**************************************************************************************************
+'*
+' #1 fCalcSelectRange
+' #1 fCalcNameRange
+' #1 fCalcSelectCell
+' #1 fCalcGetSelectionString
+' #1 fCalcSelectSheet
+' #1 fNavigatorSelectObject
+'*
+'\************************************************************************************************
+
+function fCalcSelectRange ( sSelectThis ) as boolean
+    '///<b>Select a range in calc and check success
+    '///+Valid cell reference and name should work here
+    '///+RETURNS: BOOLEAN</b>
+    fCalcSelectRange = FALSE
+    '///<ul>
+    '///<li>Check if 'formula bar' is visible</li>///
+    Kontext "RechenleisteCalc"
+    if not RechenleisteCalc.isvisible then
+        '///<li>-> Throw warning and Invoke 'formula bar' if invisible</li>///
+        '///<li>-> NOTE: The testcase developer has to take care herself that function is entered correctly</li>///
+        warnlog "Formula bar was expected to be visible"
+        ViewToolbarsFormulaBar
+    end if
+    sleep(2)
+    '///<li>Select the desired range</li>///
+    Kontext "RechenleisteCalc"
+    Bereich.TypeKeys "<MOD1 A>"
+    Bereich.TypeKeys ( sSelectThis )
+    sleep(1)
+    Bereich.TypeKeys "<RETURN>"
+    sleep(2)
+    '///<li>Check if input leads to success</li>///
+    kontext
+    '///<li>If a MsgBox is in the way the selection must have failed</li>///
+    if active.exists then
+       if active.getRT = 304 then
+           '///<li>-> NOTE: Only throw a PrintLog if selection fails because failture may be the desired result!</li>///
+           '///<li>-> FURTHER NOTE: We retrun FALSE to check this in the calling routine</li>///
+           printlog "Selecting the range failed due to known reason, e.g. wrong selection or invalid name"
+           Active.OK
+       else
+           '///<li>Only throw a waring if a dialog of unexpected resource type appears</li>///
+           warnlog "OOPS, don't know what's disturbing now -> CHECK IT OUT!"
+       end if
+    else
+       '///<li>Everything OK? -> TRUE</li>///
+       fCalcSelectRange = TRUE
+    end if
+end function
+'///</ul>
+
+'-------------------------------------------------------------------------
+
+function fCalcNameRange ( sNameThis ) as boolean
+    '///<b>This is just an alias function to avoid confusion -> see 'fCalcSelectRange'<b>
+    '///With the integration of CWS 'rangename' the function 'fCalcSelectRange'
+    '///+could also be used to name a previous selected range
+    fCalcNameRange = fCalcSelectRange ( sNameThis )
+end function
+
+'
+'--------------------------------------------------------------------
+'
+
+function fCalcSelectCell ( sSelectThisCell ) as boolean
+    '///<b>This is just an alias function to avoid confusion -> see 'fCalcSelectRange'<b>
+    fCalcSelectCell = fCalcSelectRange ( sSelectThisCell )
+end function
+
+'
+'--------------------------------------------------------------------
+'
+
+function fCalcGetSelectionString() as String
+   '///<b>Obtain range (e.g. 'A1:E10') or range name in 'formula bar'
+   '///+RETURNS: STRING</b>///
+    '///<ul>
+    '///<li>Check if 'formula bar' is visible</li>///
+    Kontext "RechenleisteCalc"
+    if not RechenleisteCalc.isvisible then
+        '///<li>-> Throw warning and Invoke 'formula bar' if invisible</li>///
+        '///<li>-> NOTE: The testcase developer has to take care herself that function is entered correctly</li>///
+        warnlog "Formula bar was expected to be visible"
+        ViewToolbarsFormulaBar
+    end if
+    sleep(2)
+    '///<li>Get and return string in range selection list box</li>///
+    Kontext "RechenleisteCalc"
+    fCalcGetSelectionString = Bereich.GetSelText
+    '///</ul>
+end function
+
+'
+'--------------------------------------------------------------------
+'
+
+function fCalcSelectSheet ( sSelectThisSheet ) as boolean
+
+   '///<b>Select a sheet by name (STRING) or number (INTEGER)///
+   '///+RETURNS: boolean (success)</u>///
+   fCalcSelectSheet = FALSE
+   '///<ul>
+   try
+        Kontext "DocumentCalc"
+        '///<li>Invoke Edit::Sheet::Select</li>///
+        EditSheetSelect
+        Kontext "SelectSheets"
+        '///<li>Select sheet no. or sheet name in listbox</li>///
+        SheetSelectionBox.Select ( sSelectThisSheet )
+        '///<li>OK</li>///
+        SelectSheets.OK
+        '///<li>Return true</li>///
+        fCalcSelectSheet = TRUE
+   catch
+        warnlog "Something went wrong while selecting a sheet by name"
+        '///<li>In case of failture lookup 'Select sheets' dialog andd close it if exists</li>///
+        Kontext "SelectSheets"
+        if SelectSheets.exists(2) then
+            SelectSheets.Cancel
+        end if
+    endcatch
+    '///</ul>
+end function
+'
+'-------------------------------------------------------------------------
+'
+function fNavigatorSelectObject ( sWhatObject as STRING , iObjectPosition as INTEGER )
+    '///<b>Select any Object in Navigator</b>
+    '///<b>STRING: sWhatObject</b> - A keyword to choose desired obeject category
+    '///+Posible values: sheets, range names, database ranges, linked areas, graphics, ole objects, notes, drawing objects
+    '///<b>INTEGER: iObjectPosition</b> - Position of object (>=1) within 'sWhatObject'
+    '///+<b>NOTE:</b>You're moving within a treelistbox which is quite messy to handle.
+    '///+In case 'iObjectPosition' is larger than the real number of objects in category you're end up in another categories.
+    '///+<b>WITHOUT ANY WARNING!</b>
+    '///<b>RETURNS:</b> BOOLEAN (success)</b>
+    '///-----
+    '///<ul>
+    dim bNavigatorWasVisible as boolean
+        bNavigatorWasVisible = FALSE
+    dim iIndex
+    dim iCategoryPosition as INTEGER
+    
+    fNavigatorSelectObject = FALSE
+    '///<li>Translate 'sWhatObject' to postion number of desired object category</li>///
+    select case lcase ( sWhatObject )
+           case "sheets"           : iCategoryPosition = 1
+           case "range names"      : iCategoryPosition = 2
+           case "database ranges"  : iCategoryPosition = 3
+           case "linked areas"     : iCategoryPosition = 4
+           case "graphics"         : iCategoryPosition = 5
+           case "ole objects"      : iCategoryPosition = 6
+           case "notes"            : iCategoryPosition = 7
+           case "drawing objects"  : iCategoryPosition = 8
+           case else
+                warnlog "Invalid keyword -> Aborting fNavigatorSelectObject()"
+                exit function
+    end select
+    '///<li>Check if Navigator is visible</li>///
+    Kontext "NavigatorCalc"
+    if NavigatorCalc.exists (3) then
+    '///<li>Remember state of visibiliy TRUE/FALSE</li>///
+        bNavigatorWasVisible = TRUE
+    else
+        '///<li>Invoke navigator if not visible</li>///
+        EditNavigator
+    end if
+    
+    try 
+        Kontext "NavigatorCalc"
+        '///<li>Go to Top in Navigator</li>///
+        liste.TypeKeys "<HOME>"
+        '///<li>Travel top to bottom through all categories</li>///
+        for iIndex = 1 to 8
+        '///<li>Make sure all elements in category are hidden, apply '-' key</li>///
+             liste.TypeKeys "-<DOWN>"
+        next iIndex
+        '///<li>Select desired category</li>///
+        liste.select ( iCategoryPosition )
+        '///<li>Unfold elements of selected category</li>///
+        liste.TypeKeys "+"
+        '///<li>Select desired position within category</li>///
+        liste.select ( iCategoryPosition + iObjectPosition )
+        '///<li>Hit 'RETURN' key to select element in document</li>///
+        liste.TypeKeys "<RETURN>"
+        '///<li>Return 'TRUE' for 'fNavigatorSelectObject'</li>///
+        fNavigatorSelectObject = TRUE
+    catch
+        warnlog "Selecting the desired object failed. Perhaps your input wasn't valid"
+    endcatch
+    '///<li>Close navigator if it wasn't visible before entering this function</li>///
+    if bNavigatorWasVisible = TRUE then
+        printlog "Leaving navigator open as initially found"
+    else
+        EditNavigator
+        printlog "Closing navigator as initially found"
+    end if
+    '///</ul>
+end function
+
diff --git a/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc
new file mode 100755
index 000000000000..98d30bd1e0dd
--- /dev/null
+++ b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc
@@ -0,0 +1,166 @@
+'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: c_tool_l10n_mnomics.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $
+'*
+'* 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 : oliver.craemer@sun.com
+'*
+'* short description : Tools for Keyboard Accessibility
+'*
+'************************************************************************
+'*
+' #1 fDataPilotRowSelection
+' #1 fDataPilotColumnSelection
+' #1 fDataPilotDataSelection
+'*
+'\***********************************************************************
+
+function fDataPilotRowSelection()
+
+fDataPilotRowSelection = TRUE
+
+   select case iSprache
+      case 01   :        ' English (USA)
+         DataPilotSelection.typekeys "<MOD2 R>"
+      case 33   :        ' French
+         DataPilotSelection.typekeys "<MOD2 g>"
+      case 34   :        ' Spanish
+         DataPilotSelection.typekeys "<MOD2 l>"
+      case 39   :        ' Italian
+         DataPilotSelection.typekeys "<MOD2 R>"
+      case 46   :        ' Swedish
+         DataPilotSelection.typekeys "<MOD2 d>"
+      case 49   :        ' German
+         DataPilotSelection.typekeys "<MOD2 l>"
+      case 55   :        ' Portuguese
+         DataPilotSelection.typekeys "<MOD2 h>"
+      case 81   :        ' Japanese
+         DataPilotSelection.typekeys "<MOD2 B>"
+      case 82   :        ' Korean
+         DataPilotSelection.typekeys "<MOD2 B>"
+      case 86   :        ' Chinese (simplified)
+         DataPilotSelection.typekeys "<MOD2 B>"
+      case 88   :        ' Chinese (traditional)
+         DataPilotSelection.typekeys "<MOD2 B>"
+      case else :        ' Fallback
+         QAErrorLog "Now, the test does not support for the language " +iSprache
+	 fDataPilotRowSelection = FALSE
+   end select
+
+end function
+
+'----------------------------------------------------
+
+function fDataPilotColumnSelection()
+
+fDataPilotColumnSelection = TRUE
+
+   select case iSprache
+      case 01   :        ' English (USA)
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 33   :        ' French
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 34   :        ' Spanish
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 39   :        ' Italian
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 46   :        ' Swedish
+         DataPilotSelection.typekeys "<MOD2 m>"
+      case 49   :        ' German
+         DataPilotSelection.typekeys "<MOD2 S>"
+      case 55   :        ' Portuguese
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 81   :        ' Japanese
+         DataPilotSelection.typekeys "<MOD2 A>"
+      case 82   :        ' Korean
+         DataPilotSelection.typekeys "<MOD2 A>"
+      case 86   :        ' Chinese (simplified)
+         DataPilotSelection.typekeys "<MOD2 A>"
+      case 88   :        ' Chinese (traditional)
+         DataPilotSelection.typekeys "<MOD2 A>"
+      case else :        ' Fallback
+         QAErrorLog "Now, the test does not support for the language " +iSprache
+	 fDataPilotColumnSelection = FALSE
+   end select
+
+end function
+
+'----------------------------------------------------
+
+function fDataPilotDataSelection()
+
+fDataPilotDataSelection = TRUE
+
+   select case iSprache
+      case 01   :        ' English (USA)
+         DataPilotSelection.typekeys "<MOD2 D>"
+      case 33   :        ' French
+         DataPilotSelection.typekeys "<MOD2 D>"
+      case 34   :        ' Spanish
+         DataPilotSelection.typekeys "<MOD2 t>"
+      case 39   :        ' Italian
+         DataPilotSelection.typekeys "<MOD2 D>"
+      case 46   :        ' Swedish
+         DataPilotSelection.typekeys "<MOD2 t>"
+      case 49   :        ' German
+         DataPilotSelection.typekeys "<MOD2 D>"
+      case 55   :        ' Portuguese
+         DataPilotSelection.typekeys "<MOD2 D>"
+      case 81   :        ' Japanese
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 82   :        ' Korean
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 86   :        ' Chinese (simplified)
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case 88   :        ' Chinese (traditional)
+         DataPilotSelection.typekeys "<MOD2 C>"
+      case else :        ' Fallback
+         QAErrorLog "Now, the test does not support for the language " +iSprache
+	 fDataPilotDataSelection = FALSE
+   end select
+
+end function
+
+'----------------------------------------------------
+
+function fDataPilotPageSelection()
+
+fDataPilotPageSelection = TRUE
+
+   select case iSprache
+      case 01   :        ' English (USA)
+         DataPilotSelection.typekeys "<MOD2 P>"
+      case else :        ' Fallback
+         QAErrorLog "Now, the test does not support for the language " +iSprache
+	 fDataPilotPageSelection = FALSE
+   end select
+
+end function
diff --git a/testautomation/spreadsheet/tools/includes/c_tool_options.inc b/testautomation/spreadsheet/tools/includes/c_tool_options.inc
new file mode 100755
index 000000000000..fcebcb67f74d
--- /dev/null
+++ b/testautomation/spreadsheet/tools/includes/c_tool_options.inc
@@ -0,0 +1,101 @@
+'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: c_tool_options.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $
+'*
+'* 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 : oliver.craemer@sun.com
+'*
+'* short description : Tools for Tools::Options dialog
+'*
+'************************************************************************
+'*
+' #1 subSetConversionMicrosoftOLE
+'*
+'\***********************************************************************
+
+sub subSetConversionMicrosoftOLE ( OPTIONAL sConversionType as STRING )
+'///<u><b>Routine to adjust the behaviour of Tools::Options::Load/Save::Microsoft Office</b></u>///
+'///<b>Possible Keys for 'sConversionType' are:</b>///
+'///<ul>
+'///<li>RESET (or omitted): Uncheck all boxes (default in a freshly installed OOo))</li>///
+'///<li>ALL: Check all boxes</li>/// 
+'///<li>LOAD: Check all boxes for loading MS OLE objects (left side), uncheck all boxes for saving</li>///
+'///<li>SAVE: Check all boxes for saving MS OLE objects (right side), uncheck all boxes for loading</li>///
+'///<li>For other values the subroutine will exit</li>///
+'///</ul>
+'///<b>Action:</b>///
+'///<ul>
+    '///<li>Convert omitted 'sConversionType' to RESET</li>///
+    if IsMissing ( sConversionType ) then
+       sConversionType = "RESET"
+    end if
+    dim iPosInAuswahl as INTEGER
+    dim iExtraToggle as INTEGER
+    
+    '///<li>Determine value of 'iExtraToggle' for known keys</li>///
+    select case sConversionType
+           case "RESET" : iExtraToggle = 1
+           case "ALL"   : iExtraToggle = 2
+           case "LOAD"  : iExtraToggle = 3
+           case "SAVE"  : iExtraToggle = 4
+           case else 
+                warnlog "Unknown keyword for paramter -> Exit the subroutine"
+                qaErrorLog "Valid keywords are RESET, ALL, LOAD and SAVE!"
+                exit sub
+    end select
+    
+    '///<li>Invoke Tools::Options</li>///       
+    ToolsOptions
+    '///<li>Go to tabpage Load/Save::Microsoft Office</li>///
+    call hToolsOptions ( "LOADSAVE" , "MICROSOFTOFFICE" )
+    '///<li>Go to top entry in listbox</li>///
+    Auswahl.TypeKeys( "<PageUp>" )
+    
+    '///<li>Toggle (in a tricky way) to a defined state of checkboxes</li>///
+    for iPosInAuswahl = 1 to 4
+         while NOT Auswahl.IsChecked
+             Auswahl.TypeKeys ( "<Space>" )
+         wend
+         while Auswahl.IsChecked
+             Auswahl.TypeKeys ( "<Space>" )
+         wend
+         '///<li>Toggle to desired state of boxes</li>///
+         Auswahl.TypeKeys ( "<Space>" , iExtraToggle )
+         '///<li>Go one entry down in list box</li>///
+         Auswahl.TypeKeys ( "<Down>" )
+         '///<li>Loop for all lines</li>///
+    next iPosInAuswahl
+    
+    '///<li>Quit dialog</li>///
+    Kontext "OptionenDLG"
+    OptionenDLG.Ok
+    '///</ul>
+end sub
diff --git a/testautomation/spreadsheet/tools/input/Errorcodes.ods b/testautomation/spreadsheet/tools/input/Errorcodes.ods
new file mode 100755
index 000000000000..2c383429e852
--- /dev/null
+++ b/testautomation/spreadsheet/tools/input/Errorcodes.ods
diff --git a/testautomation/spreadsheet/tools/input/Functionnames.ods b/testautomation/spreadsheet/tools/input/Functionnames.ods
new file mode 100755
index 000000000000..e7d59b7e990e
--- /dev/null
+++ b/testautomation/spreadsheet/tools/input/Functionnames.ods