merged in DEV300_m57

testautomation/chart2/optional/ch2_lvl1_wizard.bas

@@ -49,11 +49,13 @@ sub main
     use "chart2\tools\ch_tools_tab_pages.inc"
     use "chart2\tools\ch_tools_select.inc"    
     use "chart2\optional\includes\wizard\ch2_lvl1_wizard.inc"
+	use "chart2\optional\includes\wizard\ch2_lvl1_wizard2.inc"
     
     Call hStatusIn ( "Chart2", "ch2_lvl1_wizard.bas" )
     Call tCreateNew3DChart
     Call tCreateNewLineChart
 	Call tCreateNewBubbleChart
+	Call tCreateNewFilledNetChart
     Call hStatusOut		
 	
 end sub

testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard2.inc

@@ -0,0 +1,130 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: ch2_lvl1_wizard2.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: obo $ $Date: 2008-07-22 10:36:56 $
+'*
+'* 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 : New chart types
+'*
+'************************************************************************
+'*
+' #1 tCreateNewFilledNetChart      ' Create a new filled netchart and check the preserved values
+'*
+'\************************************************************************
+
+testcase tCreateNewFilledNetChart
+    Dim sInputFile as STRING
+    Dim sOutputFile as STRING
+    Dim sControlString as STRING
+    Dim iChartVariant as integer
+    Dim iChartVariantText as string
+    
+   
+    sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/randomData.ods" )
+    sOutputFile = convertpath ( gOfficePath & "user/work/tCreateNewFilledChart.ods" )
+	
+	    
+    printlog "Load test document TesttoolPath/chart2/optional/input/randomData.ods"
+    call hFileOpen(sInputFile)
+    sleep(2)    
+    printlog "Save document as OfficePath/user/work/tCreateNewFilledNetChart.ods"
+    if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
+        warnlog "Saving test document localy failed -> Aborting"
+        call hCloseDocument
+        goto endsub
+    endif    
+    printlog "Insert / Chart"
+    InsertChart
+    sleep(5)        
+    Kontext "ChartType"
+	if NOT ChartType.Exists(5) then
+		warnlog "Chart Wizard was not visible. EXITING!"
+        goto endsub
+    else
+        printlog "Chart Wizard visible."
+    end if
+    printlog "Choose the Chart type net (should be the eights in the top-down list)"
+    if fSetChartType( "net" ) > 0 then
+        warnlog "Something went wrong setting chart type to BAR."
+    endif    
+    printlog "Select 4th chart variant from left (filled)"
+    if fSetChartTypeVariant( 4 ) > 0 then
+        warnlog "Something went wrong setting chart type VARIANT."
+    endif
+	printlog "Create Chart by clicking Finish-button"
+    Kontext "ChartWizard"
+    ChartWizard.OK    
+    sleep(2)    
+    printlog "File / Save"
+    FileSave
+    Kontext "DocumentCalc"
+    printlog "Press twice <ESCAPE>-key"
+    DocumentCalc.TypeKeys "<Escape>" , 2                
+    printlog "File / Close document"
+    Call hCloseDocument
+    sleep(2)    
+    printlog "Open saved file again"
+    call hFileOpen(sOutputFile)
+    sleep(2)    
+    printlog "Open the Navigator (F5)"    
+    printlog "Select the first OLE object in the Navigator"
+    call fSelectFirstOLE    
+    printlog "Edit / Object / Edit to enter Inplace Mode"
+    EditObjectEdit    
+    printlog "Format / Chart Type"    
+    FormatChartType
+    Kontext "ChartType"
+    if ChartType.Exists(2) then        
+        printlog "Check if chart type is NET CHART"
+        if ChooseType.GetSelIndex <> 8 then
+            warnlog "Selected chart type wasn't preserved after save and reload."
+        endif        
+        printlog "Check if chart variant is Filled Net CHART (4th variant in non-CTL versions from the left)"
+        if Variant.GetSelIndex <> 4 then
+            warnlog "Selected chart type variant wasn't preserved after save and reload."
+        end if            
+        printlog "Leave Chart Type dialog with Cancel"
+        Kontext "ChartType"
+        if ChartType.Exists(2) then
+	        ChartType.Cancel
+	    else
+	        warnlog "ChartType dialog was not visible!?"
+	    end if        
+    else
+        warnlog "Chart Type dialog was not up!"
+    end if
+	printlog "Press ESCAPE button (deselecting the OLE object)"
+    Kontext "DocumentCalc"
+    DocumentCalc.TypeKeys "<Escape>"    
+    printlog "Close document"
+    Call hCloseDocument
+endcase

testautomation/chart2/required/includes/ch2_insert_ctl.inc

@@ -318,8 +318,15 @@ testcase tEquationTextDirection
     printlog "Leave the dialog with OK"
     InsertTrendlinesDialog.OK
     Kontext "DocumentChart"
-    printlog "Type thrice in the Chart document <TAB> to select the equation"
+	printlog "Leave Chart by ESC and reenter Chart"
-    DocumentChart.TypeKeys "<TAB>" , 3
+	DocumentChart.TypeKeys "<ESC>" , 2
+	call fSelectFirstOLE
+	EditObjectEdit
+	Kontext "DocumentChart"
+	printlog "Type <TAB> thrice in the Chart document, press F3 and <TAB> to select the equation"
+	DocumentChart.TypeKeys "<TAB>" , 3
+	DocumentChart.TypeKeys "<F3>" 
+    DocumentChart.TypeKeys "<TAB>"
     printlog "Format / Object properties"
     FormatObjectProperties
     Kontext 

testautomation/chart2/tools/ch_tools_chart_type.inc

@@ -254,8 +254,8 @@ function fSetChartTypeVariant ( iChartTypeVariant as INTEGER ) as INTEGER
                                 iMaximumVariant = 3
                             endif
 		case 7          :   iMaximumVariant = 1							
-        case 4, 8       :   iMaximumVariant = 3
+        case 4       :   iMaximumVariant = 3
-        case 3, 5, 6, 9 :   iMaximumVariant = 4
+        case 3, 5, 6, 8 ,9 :   iMaximumVariant = 4
         case 10         :   iMaximumVariant = 2
     end select
 

testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc

@@ -172,11 +172,20 @@ testcase tOpenNoneDatabaseDocument
         
     Kontext "DocumentCalc"
     if (DocumentCalc.exists()) then
-        printlog "the spreadsheet is loaded"
+		warnlog "the spreadsheet should not appear"
-        printlog "close spreadsheet again"
         call hCloseDocument()
     else
-        warnlog "the spreadsheet is not loaded"
+        Kontext "MessageBox"
+        if(MessageBox.exists(1)) then
+        	printlog "messagebox appear ->> OK"
+        	MessageBox.OK
+            Kontext "DatabaseWizard"	
+    	        DatabaseWizard.Cancel
+        else
+        	warnlog "there should be a message box about the fact that this is no database"
+        	Kontext "DatabaseWizard"	
+	            DatabaseWizard.Cancel
+        endif
     endif
     
 endcase

testautomation/extensions/optional/includes/fileopen.inc

@@ -70,12 +70,16 @@ testcase tExtensionFileOpen
     
     printlog( "Reopen Extension Manager UI, click Add.. and check the directory" )
     ToolsPackageManager
+    
     kontext "PackageManager"
     if ( PackageManager.exists( 3 ) ) then
         Add.click()
+        
         Kontext "OeffnenDlg"
         if ( OeffnenDlg.exists( 2 ) ) then
-            DateiAuswahl.select( DateiAuswahl.getItemCount() ) 
+
+            printlog( "Select the last item in the list which should be the extension" )            
+            DateiAuswahl.select( Dateiauswahl.getItemCount() )
             cString = DateiAuswahl.getSelText()
             if ( cString <> EXTENSION_NAME ) then
                 warnlog( "Incorrect extension listed. Please check path and filename" )
@@ -85,11 +89,13 @@ testcase tExtensionFileOpen
             else
                 printlog( "Found correct extension, the dialog remembers the path" )
             endif
+
             kontext "OeffnenDlg"
             OeffnenDlg.cancel()
         else
             warnlog( "Could not access Add Extensions Dialog" )
         endif
+        
         kontext "PackageManager"
         PackageManager.close()
     else

testautomation/framework/optional/includes/basic_eventbinding.inc

@@ -234,9 +234,14 @@ endcase
 testcase tAssignComponentFunction
     dim x,i,a as integer
     dim sTemp as string
+    dim sPath as string
+        sPath = gTesttoolPath & "framework\optional\input/eventbinding/"
+    dim sExtension as string
+        sExtension = "DialogComponent.oxt"
     
     sExtensionCLI("list","")
-    sExtensionCLI("add","DialogComponent.oxt",convertPath(gTestToolPath + "framework\optional\input/eventbinding/") )
+    'sExtensionCLI("add","DialogComponent.oxt",convertPath(gTestToolPath + "framework\optional\input/eventbinding/") )
+    hExtensionAddGUI( sPath & sExtension, "" )
     hFileOpen(convertPath(gTestToolPath + "framework\optional\input/eventbinding/DialogComponent.odt"))
     kontext "SecurityWarning"
     if SecurityWarning.exists(5) then
@@ -312,5 +317,6 @@ testcase tAssignComponentFunction
    ' vnd.sun.star.UNO:copyText
     
     sExtensionCLI("remove","DialogComponent.oxt" )
+    'hExtension RemoveGUI( sExtension )
     hCloseDocument()
 endcase

testautomation/framework/optional/includes/basic_formcontrols.inc

@@ -39,10 +39,7 @@
 
 testcase tAllControlsOnDialog( cMajor as string )
 
-    '///<h1>Basic test for macro controls</h1>
+    printlog( "Insert all available controls into a BASIC dialog and verify that changed settings persist a save/load cycle" )
-    '///<i>This test opens the applications and creates a basic dialog.
-    '///+On this dialog all control are inserted, the document is saved and reloaded
-    '///+to see if the dialog and the controls still exist.</i><br><br>
 
     dim iApplication as Integer ' numeric expression for gApplication
     dim cApplication as string  ' Name of the current application
@@ -64,29 +61,21 @@ testcase tAllControlsOnDialog( cMajor as string )
     
     const CMODULE = "tacod" ' abbreviation for tAllControlsOnDialog
 
-
+    printlog( "Perform the test for one application only: WRITER" )
-    '///<b>save/load-test for controls on a basic-dialog in all applications</b>
-    '///<ul>
-    '///+<li>open a new doc (for Writer only)</li>
-
-    ' If you want to test all applications, make iApplication = 1 to 6
     for iApplication = 1 to 1
     
-        ' switch documenttype (writer, calc, impress, draw ...)
+        printlog( "Set document type" )
         cApplication = hNumericDoctype( iApplication )
 
-        ' get the name of the workfile dependent on gApplication
+        printlog( "Build the filename" )
-        '///+<li>Build a path and a filename (path from UNO, Suffix from global-module)</li>
         sFile = hGetWorkPath() & "basic" & hGetSuffix( cMajor )
         sFile = ConvertPath( sFile )
         printlog( "Using file: " & sFile )
         
-        ' delete the file if it exists, the outcome has no influence on the test
+        printlog( "Delete the file, if it exists" )
-        ' so the returnvalue is ignored
         hDeleteFile( sFile )
                 
-        ' open a new document to work with (2 open AFTER this)
+        printlog( "Open a second document" )
-        '///+<li>Open a new document to work with</li>
         printlog( "" )
         printlog( cApplication )
         brc = hCreateDocument()
@@ -95,9 +84,9 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
 
-        '///+<li>Create a new module for the new document</li>
+        printlog( "Create a new module for the new document" )
-        '///+<li>Create a new dialog in BasicIDE</li>
+        printlog( "Create a new dialog in BasicIDE" )
-        '///+<li>Open the macro controls float</li>
+        printlog( "Open the macro controls float" )
         bOpen = hInitFormControls( CMODULE )
         if ( not bOpen ) then
             printlog( "Aborting due to previous errors" )
@@ -118,7 +107,7 @@ testcase tAllControlsOnDialog( cMajor as string )
         
 
         Kontext "BASICIDE"
-        '///+<li>close the BASIC-IDE</li>
+        printlog( "close the BASIC-IDE" )
         hCloseBasicIde()
         
         
@@ -144,7 +133,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
             
-        '///+<li>Click 'Edit' to edit the module</li>
+        printlog( "Click 'Edit' to edit the module" )
         printlog( "Edit the module" )
         Bearbeiten.Click()
         if ( WaitSlot <> WSFinished ) then
@@ -152,7 +141,7 @@ testcase tAllControlsOnDialog( cMajor as string )
         endif
 
         kontext "BasicIDE"
-        '///+<li>Find the dialog we created before</li>
+        printlog( "Find the dialog we created before" )
         ' try to find our dialog again by stepping through the tabbar
         bOpen = hFindFirstDialog()
         if ( not bOpen ) then
@@ -162,7 +151,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
 
-        '///+<li>Open the macro controls float</li>
+        printlog( "Open the macro controls float" )
         ' if the dialog is open, open the macro controls toolbar as well,
         ' we need access to the "properties" button
         bOpen = hShowMacroControls()
@@ -173,7 +162,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
         
-        '///+<li>Select every control, open its properties and verify its name, close properties</li>
+        printlog( "Select every control, open its properties and verify its name, close properties" )
         for iCurrentControl = 1 to ICONTROLCOUNT
 
             if ( instr( gtSysName, "Solaris" ) > 0 ) then
@@ -191,7 +180,7 @@ testcase tAllControlsOnDialog( cMajor as string )
         ' we need to delete the list-content otherwise we run into index-problems
         ListAllDelete( lsControlNames() )
        
-        '///+<li>Cleanup: Close the BASIC-IDE</li>
+        printlog( "Cleanup: Close the BASIC-IDE" )
         printlog( "Close the BASIC IDE" )
         hCloseBasicIde()        
         
@@ -200,25 +189,22 @@ testcase tAllControlsOnDialog( cMajor as string )
         endif 
 
         printlog "Save the document"
-        '///+<li>save the document</li>
+        printlog( "save the document" )
         Call hFileSaveAsKill( sFile )
 
         printlog "Close it"
-        '///+<li>close the document</li>
+        printlog( "close the document" )
-        '///</ul>
         brc = hDestroyDocument()
 
         printlog( "" ) 
         printlog( "Test case 2: Verify that all items keep their names after close and reload of the document" )
         
-        '///<b>check all controls in the saved document</b>
+        printlog( "Open the file again" )
-        printlog "Open the file again"
+        printlog( "Open the document" )
-        '///<ul>
-        '///+<li>open the document</li>
         hFileOpen( sFile )
 
         printlog "Open tools/macro and select the last module for the current document"
-        '///+<li>open the basic-IDE of this document, open controls, activate 'Select-mode' and open the properties</li>
+        printlog( "open the basic-IDE of this document, open controls, activate 'Select-mode' and open the properties" )
         ToolsMacro_uno
         kontext "Makro"
         irc = hSelectNodeByName( MakroAus , CMODULE )
@@ -238,7 +224,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
             
-        '///+<li>Click 'Edit' to edit the module</li>
+        printlog( "Click 'Edit' to edit the module" )
         printlog( "Edit the module" )
         Bearbeiten.Click()
         if ( WaitSlot <> WSFinished ) then
@@ -246,7 +232,7 @@ testcase tAllControlsOnDialog( cMajor as string )
         endif
 
         kontext "BasicIDE"
-        '///+<li>Find the dialog we created before</li>
+        printlog( "Find the dialog we created before" )
         ' try to find our dialog again by stepping through the tabbar
         bOpen = hFindFirstDialog()
         if ( not bOpen ) then
@@ -256,7 +242,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
 
-        '///+<li>Open the macro controls float</li>
+        printlog( "Open the macro controls float" )
         ' if the dialog is open, open the macro controls toolbar as well,
         ' we need access to the "properties" button
         bOpen = hShowMacroControls()
@@ -267,7 +253,7 @@ testcase tAllControlsOnDialog( cMajor as string )
             goto endsub
         endif
         
-        '///+<li>Select every control, open its properties and verify its name, close properties</li>
+        printlog( "Select every control, open its properties and verify its name, close properties" )
         for iCurrentControl = 1 to ICONTROLCOUNT
 
             if ( instr( gtSysName, "Solaris" ) > 0 ) then
@@ -285,19 +271,18 @@ testcase tAllControlsOnDialog( cMajor as string )
         ' we need to delete the list-content otherwise we run into index-problems
         ListAllDelete( lsControlNames() )
        
-        '///+<li>Cleanup: Close the BASIC-IDE</li>
+        printlog( "Cleanup: Close the BASIC-IDE" )
         printlog( "Close the BASIC IDE" )
         hCloseBasicIde()
         
-        '///+<li>Cleanup: Close the document</li>
+        printlog( "Cleanup: Close the document" )
         printlog( "Close the document" )
         brc = hDestroyDocument()
         
-        '///+<li>Cleanup: Delete the file we created</li>
+        printlog( "Cleanup: Delete the file we created" )
         hDeleteFile( sFile )
         
-        '///+<li>Repeat this for every application</li>
+        printlog( "Repeat this for every application" )
-        '///</ul>
         
     next iApplication
 

testautomation/framework/optional/includes/basic_library_export.inc

@@ -163,15 +163,20 @@ testcase tBasicLibraryExport
         
     printlog( "Close the macro/libraries organizer" )
     kontext "TabBibliotheken"
-    TabBibliotheken.cancel()
+    if ( TabBibliotheken.exists( 1 ) ) then
-    
+        TabBibliotheken.cancel()
-    printlog( "Cancel macro organizer" )
+        
-    kontext "Makro"
+        printlog( "Cancel macro organizer" )
-    Makro.cancel()
+        kontext "Makro"
-    
+        Makro.cancel()
-    while( getDocumentCount > 0 ) 
+        
-        hDestroyDocument()
+        while( getDocumentCount > 0 ) 
-    wend
+            hDestroyDocument()
+        wend
+    else
+        warnlog( "Dialog <TabBibliotheken> could not be accessed" )
+        call exitRestartTheOffice()
+    endif
     
 endcase
 

testautomation/framework/optional/includes/options_ooo_view.inc

@@ -136,11 +136,27 @@ sub checkPage( sFile as string , bDisabled as boolean, optional iMiddleMouseButt
             iTemp = 2 ' Automatic scrolling
         endif
         if Itemp = iMiddleMouseButton then
-            printlog "      * Middle mouse button: OK"
+            printlog "     * Middle mouse button: ok"
         else
-            warnlog "Middle mouse button: expected: '" + iTemp + "' '" + MausAktion.getItemText(iTemp) + "'; is: '" + iMiddleMouseButton + "' '" + MausAktion.getItemText(iMiddleMouseButton) + "'"
+            warnlog "Middle mouse button: expected: '" + iTemp + "' '" _
+                    + MausAktion.getItemText(iTemp) + "'; is: '" _
+                    + iMiddleMouseButton + "' '" _
+                    + MausAktion.getItemText(iMiddleMouseButton) + "'"
         endif
     endif
+    
+    if ( Transparency.isEnabled() ) then
+        if ( Transparency.isChecked() ) then
+            checkCheckBox( sFile , "*" , transparency )
+            checkEntryField( sFile , "*", selectionopacity )
+        else
+            Transparency.check()
+            checkEntryField( sFile , "*", selectionopacity, "i104150" )
+            Transparency.unCheck()
+        endif
+    else
+        printlog( "Transparency is not available on this system" )
+    endif
 
     Kontext "OptionenDLG"
     OptionenDLG.OK
@@ -205,6 +221,18 @@ sub changePage( sFile as string , bInverted as boolean, optional iMiddleMouseBut
             MausAktion.select(2) ' Automatic scrolling
         endif
     endif
+    
+    if ( Transparency.isEnabled() ) then
+        if ( Transparency.isChecked() ) then
+            setEntryField( sFile , "*", selectionopacity )
+            setCheckBox( sFile , "*" , transparency )
+        else
+            setCheckBox( sFile , "*" , transparency )
+            setEntryField( sFile , "*", selectionopacity )
+        endif        
+    else
+        printlog( "Transparency is not available on this system" )
+    endif
 
     Kontext "OptionenDLG"
     OptionenDLG.OK

testautomation/framework/optional/input/options/ooo_view_changed.ref

@@ -15,4 +15,6 @@ UseHardwareAcceleration=checked
 useantialiasing=unchecked
 mousepositioning=2
 mausaktion=1
+transparency=unchecked
+selectionopacity=10%
 

testautomation/framework/optional/input/options/ooo_view_defaults.ref

@@ -14,4 +14,6 @@ useantialiasing=checked
 usehardwareacceleration=disabled
 mousepositioning=3
 mausaktion=2
+transparency=checked
+selectionopacity=75%
 

testautomation/framework/required/f_tools_customize.bas

@@ -39,6 +39,8 @@
 
 sub main
 
+    GLOBAL_USE_NEW_SLEEP = TRUE
+
     use "framework\required\includes\tools_customize.inc"
     
     dim cApp as string

testautomation/framework/required/includes/tools_customize.inc

@@ -39,41 +39,24 @@
 
 testcase tUpdtCustomize( cApp as string )
 
-	'///<h1>Update test for the Tools/Customize Dialog</h1>
+    printlog( "Tools/Customize dialog" )
-	'///<ul>
+    const CLOSE_METHOD = 1 ' 1 = Cancel button
-    const CANCEL_BUTTON = 1
+
-    dim brc as boolean
+    if ( hCreateDocument() ) then    
-    
+        if ( hToolsCustomizeOpen() ) then
-    '///+<li>Open a new document (abort test on failure)</li>
+            hUpdtToolsCustomizeKeyboard()
-    brc = hCreateDocument()
+            hUpdtToolsCustomizeMenu()
-    if ( not brc ) then
+            hUpdtToolsCustomizeToolbars()
-        warnlog( "Abort: Failed to create requested document: " & gApplication )
+            hUpdtToolsCustomizeEvents()
-        goto endsub
+            hToolsCustomizeClose( CLOSE_METHOD )
+        else
+            warnlog( "Tools/Customize dialog did not open" )
+        endif
+        hDestroyDocument
+    else
+        warnlog( "Failed to create initial document" )
     endif
     
-    '///+<li>Open Tools Customize</li>
-    brc = hToolsCustomizeOpen()
-    
-    '///+<li>Look at the Keyboard-Tabpage</li>
-    hUpdtToolsCustomizeKeyboard()
-    
-    '///+<li>Look at the Menu-Tabpage</li>
-    hUpdtToolsCustomizeMenu()
-    
-    '///+<li>Look at the Toolbars-Tabpage</li>
-    hUpdtToolsCustomizeToolbars()
-    
-    '///+<li>Look at the Events-Tabpage</li>
-    hUpdtToolsCustomizeEvents()
-    
-    '///+<li>Close Tools Customize</li>
-    brc = hToolsCustomizeClose( CANCEL_BUTTON )
-    
-    '///+<li>Close the document</li>
-    brc = hDestroyDocument
-    
-    '///</ul>
-    
 endcase
 
 '*******************************************************************************
@@ -142,7 +125,7 @@ function hUpdtToolsCustomizeMenu()
     '///+<li>Click the Menu List-Button</li>
     printlog( CFN & "Click the menu listbutton" )
     kontext "TabCustomizeMenu"
-    MenuBtn.click()
+    hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
     
     '///+<li>Select the first entry (Move...) to open the Menu Organiser</li>
     printlog( CFN & "Select Move..." )
@@ -165,7 +148,7 @@ function hUpdtToolsCustomizeMenu()
     '///+<li>Click the Menu List-Button</li>
     printlog( CFN & "Click the menu listbutton" )
     kontext "TabCustomizeMenu"
-    MenuBtn.click()
+    hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
     
     '///+<li>Select the second entry (Rename...) to open the Rename dialog</li>
     printlog( CFN & "Select Rename..." )
@@ -179,7 +162,7 @@ function hUpdtToolsCustomizeMenu()
     '///+<li>Click the Menu List-Button</li>
     printlog( CFN & "Click the menu listbutton" )
     kontext "TabCustomizeMenu"
-    MenuBtn.click()
+    hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
     
     '///+<li>Select the third entry (Delete) to delete the new menu<br>
     '///+Note that there will be no warning as the menu is empty</li>
@@ -361,8 +344,9 @@ function hUpdtToolsCustomizeToolbars()
     '///+<li>Access the &quot;Toolbar&quot;-Button and rename the toolbar</li>
     printlog( CFN & "Rename the toolbar via Toolbar-Button" )
     kontext "TabCustomizeToolbars"
-    MenuBtn.click()
+    hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
-    waitslot
+    
+    printlog( "Select rename" )
     hMenuSelectNr( 1 )
     
     '///+<li>Cancel the renaming-dialog</li>
@@ -379,8 +363,9 @@ function hUpdtToolsCustomizeToolbars()
     '///+Note that there will be no deletion warning</li>
     printlog( CFN & "Delete the toolbar via Toolbar-Button" )
     kontext "TabCustomizeToolbars"
-    MenuBtn.click()
+    hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
-    waitslot
+    
+    printlog( "Select delete" )
     hMenuSelectNr( 2 )
        
     '///+<li>Click the &quot;Add Commands...&quot; button</li>
@@ -399,7 +384,6 @@ function hUpdtToolsCustomizeToolbars()
     endif
     
     '///+<li>Click &quot;Down&quot;</li>
-    WaitSlot()
     printlog( CFN & "Down..." )
     if ( BtnDown.isEnabled() ) then
         BtnDown.click()
@@ -846,4 +830,91 @@ function hToolsCustomizeTestSaveIn( iItems as integer ) as boolean
 
 end function
 
+'*******************************************************************************
 
+function hOpenMenuButton( oControl as object ) as integer
+
+    ' This function is very evil.
+    ' It was written to hopefully workaround the infamous menubutton which is a button 
+    ' that - when clicked - opens a menu. This feature is shaky and depends on 
+    ' a lot of factors. There is a simple working implemantation in t_menu.inc 
+    ' which has the drawback of being absolutely slow, costing the tools_customize
+    ' test a lot of time waiting for the control (30% of testtime spent waiting).
+    ' This approach tries to be dynamic: Machines that can do it the fast way
+    ' use it automatically, machines that are too slow get two retries with the 
+    ' slower approach.
+    ' The menubutton is one of the last remaining places where none of the
+    ' speed optmizations and enhancements apply, so neither WaitSlot() nor 
+    ' synchronous slot execution help here.
+
+    dim iClick as integer
+    dim bUseSlowMethod as boolean : bUseSlowMethod = false
+    
+    const CFN = "hOpenMenuButton: "
+    
+    hOpenMenuButton() = -1 ' this is the general failure returnvalue
+    
+    for iClick = 1 to 3
+    
+        if ( bUseSlowMethod ) then 
+            wait( 1000 )
+            oControl.OpenMenu()
+            wait( 3000 )
+        else
+            oControl.click()
+        endif
+            
+        try
+            hOpenMenuButton() = MenuGetItemCount
+            printlog( CFN & "Success on " & iClick & ". attempt" )
+            exit function
+        catch
+            qaerrorlog( CFN & "#i96753 - Failed to retrieve itemcount from Menu-/Command-button" )
+            bUseSlowMethod = true
+        endcatch
+        
+    next iClick
+    
+end function
+
+'*******************************************************************************
+
+function hClickCommandButton( iItemToClick as integer ) as boolean
+
+    const CFN = "hClickCommandButton::"
+    printlog( CFN & "Enter" )
+    
+    dim brc as boolean 'a multi purpose boolean returnvalue
+    dim iMenuItems as integer
+
+    iMenuItems = hOpenMenuButton( Command )
+    
+    ' exit on error
+    if ( iMenuItems < 0 ) then
+        warnlog( CFN & "Menu apparently not open, giving up." )
+    	hClickCommandButton() = false
+    	exit function
+    endif        
+    
+    hMenuSelectNr( iItemToClick ) 
+    wait( 500 )
+    ' check for the rename dialog (menu)
+    kontext "CustomizeMenuReName"
+    if ( CustomizeMenuReName.exists() ) then
+    	printlog( CFN & "Opened dialog: Rename Menu" )
+    	hClickCommandButton() = true
+    	exit function
+    endif
+    
+    ' check for the rename dialog (toolbar)    
+    kontext "CustomizeToolbarsRename"
+    if ( CustomizeToolbarsRename.exists() ) then
+    	printlog( CFN & "Opened dialog: Rename Toolbar" )
+    	hClickCommandButton() = true
+    	exit function
+    endif
+
+    printlog( CFN & "Exit" )
+    hClickCommandButton() = true
+
+end function

testautomation/framework/required/includes/window_functions.inc

@@ -39,180 +39,114 @@
 
 testcase tWindowFunctions
 
+    printlog( "Update test for window functions" )
+
     if ( gtSysName = "Mac OS X" ) then
         printlog( "No testing for Mac as some Window attributes do not exist" )
         goto endsub
     endif
 
-    '///<h1>Update test for window functionality</h1>
-    '///<ul>
-    dim brc as boolean
     
-    '///+<li>Verify that we have one initial document open</li>
     printlog( "Create initial document" )
     gApplication = "WRITER"
     hInitSingleDoc()
     hInitWriteDocIdentifier( "F_updt_windowfuncs.bas" )
     
-    '///+<li>Create a new document</li>
     printlog( "New document" )
-    hCreateDocument()
+    hNewDocument()
     if ( getDocumentCount <> 2 ) then
         warnlog( "Two open documents were expected, found " & getDocumentCount )
     endif    
 
-    DocumentWriter.restore()
+    kontext "DocumentWriter"
-
-    '///+<li>Use .close()-method to close document</li>
-    kontext "documentwriter"
     printlog( "Close document" )
     DocumentWriter.close()
 
-    '///+<li>Verify that the document is closed</li>
     if ( getDocumentCount <> 1 ) then
         warnlog( "One open document was expected, found " & getDocumentCount )
     endif
 
-    '///+<li>Create a new document</li>
     printlog( "New document" )
-    hCreateDocument()
+    hNewDocument()
     if ( getDocumentCount <> 2) then
         warnlog( "Two open documents were expected, found " & getDocumentCount )
     endif    
 
-    '///+<li>Write some text into the second writer document</li>
-    '///+<li>Use .close()-method to close document</li>
     printlog( "Enter some text into the second writer document" )
-    kontext "documentwriter"
+    kontext "DocumentWriter"
     DocumentWriter.TypeKeys( "test" )
     DocumentWriter.close()
 
-    '///+<li>Close the message (Document changed)</li>
     kontext "active"
     if ( Active.exists() ) then
+        printlog( "Close messagebox with Cancel (leaves the document open)" )
         Active.Cancel()
-        printlog( "Close messagebox" )
     else
         warnlog( "No warning that data will be lost on close of this document" )
     endif
     
-    '///+<li>Verify that exactly two documents are open</li>
+    kontext "DocumentWriter"    
     if ( getDocumentCount = 2 ) then
-        printlog( "One document open. Good." )
+        printlog( "Two documents open. Good." )
     else
         warnlog( "Incorrect document count. Expected two, found " & getDocumentCount )
     endif
 
-    '///+<li>Close the document using FileClose</li>
+    kontext "DocumentWriter"
-    hDestroyDocument() ' note tha hCloseDoc/hDestroyDocument use FileClose
+    printlog( "Close the document" )
+    FileClose()
     
-    '///+<li>Verify that exactly one document is open</li>
+    kontext "Active"
+    if ( Active.exists() ) then  
+        printlog( "Do not save the document" )
+        Active.No()
+    else
+        warnlog( "Warning: No data loss warning" )
+    endif
+    
+    kontext "DocumentWriter"
     if ( getDocumentCount = 1 ) then
         printlog( "One document open. Good." )
     else
         warnlog( "Incorrect document count. Expected one, found " & getDocumentCount )
     endif    
 
-    '///+<li>Create a new document</li>
+    Kontext "DocumentWriter"
-    printlog( "New document" )
-    brc = hCreateDocument()
-    if ( not brc ) then
-        warnlog( "Two open documents were expected, found " & getDocumentCount() )
-    endif    
-
-
-    kontext "documentwriter"
-    '///+<li>Maximize Window</li>
-    '///<ul>
-    printlog( "Maximize window" )
-    DocumentWriter.Maximize()
-    sleep( 2 )
-    
-    '///+<li>Verify state: Maximized (true)</li>
-    if ( DocumentWriter.IsMax() ) then
-        printlog( " * Window is maximized" )
-    else
-        warnlog( " * Window not maximized" )
-    endif
-
-
-    '///+<li>Verify state: Minimized (false)</li>
-    if ( DocumentWriter.IsMin() ) then
-        warnlog( " * Window is minimized" )
-    else
-        printlog( " * Window not minimized" )
-    endif
-
-    '///+<li>Verify state: Restored (false)</li>
-    if ( DocumentWriter.IsRestore() ) then
-        warnlog( " * Window is Restored" )
-    else
-        printlog( " * Window not Restored" )
-    endif
-    '///</ul>
-
-    '///<li>Minimize Window</li>
-    '///<ul>
     printlog( "Minimize window" )
     DocumentWriter.Minimize()
-    sleep( 2 )
+    Wait( 2000 )
 
-    '///+<li>Verify state: Minimized (true)</li>
+    kontext "DocumentWriter"
     if ( DocumentWriter.IsMin() ) then
-        printlog( " * Window is minimized" )
+        printlog( "Window is minimized" )
     else
         qaerrorlog( "#i32672# Window not minimized" )
     endif
 
-    '///+<li>Verify state: Maximized (false)</li>
+    kontext "DocumentWriter"
-    if ( DocumentWriter.IsMax() ) then
-        warnlog( " * Window is maximized" )
-    else
-        printlog( " * Window not maximized" )
-    endif
-
-    '///+<li>Verify state: Restored (false)</li>
-    if ( DocumentWriter.IsRestore() ) then
-        qaerrorlog( "#i32672# Window is Restored" )
-    else
-        printlog( " * Window not Restored" )
-    endif
-    '///</ul>
-
-    '///<li>Restore Window</li>
-    '///<ul>
     printlog( "Restore window" )
     DocumentWriter.Restore()
-    sleep( 2 )
+    Wait( 2000 )
 
-    '///+<li>Verify state: Restored (true)</li>
     if ( DocumentWriter.IsRestore() ) then
-        printlog( " * Window is Restored" )
+        printlog( "Window is Restored" )
     else
         warnlog( " * Window not Restored" )
     endif
 
-    '///+<li>Verify state: Maximized (false)</li>
+    kontext "DocumentWriter"
-    if ( DocumentWriter.IsMax() ) then
+    printlog( "Maximize window" )
-        warnlog( " * Window is maximized" )
+    DocumentWriter.Maximize()
-    else
+    Wait( 2000 )
-        printlog( " * Window not maximized" )
-    endif
-
-    '///+<li>Verify state: Minimized (false)</li>
-    if ( DocumentWriter.IsMin() ) then
-        warnlog( " * Window is minimized" )
-    else
-        printlog( " * Window not minimized" )
-    endif
-
-    '///</ul>
     
-    '///+<li>Close the documents</li>
+    kontext "DocumentWriter"
-    brc = hDestroyDocument()
+    if ( DocumentWriter.IsMax() ) then
-    brc = hDestroyDocument()
+        printlog( "Window is maximized" )
+    else
+        warnlog( " * Window not maximized" )
+    endif
 
-    '///</ul>
+    hDestroyDocument()
 
 endcase
 

testautomation/framework/tools/includes/customize_tools.inc

@@ -316,24 +316,29 @@ function hDeselectSeparator() as integer
     const CFN = "hDeselectSeparator::"
     
     kontext "ToolsCustomizeToolbars"
-    iCurrentItem = ToolbarContents.getSelIndex()
+    if ( ToolbarContents.getItemCount > 0 ) then
-    cString = ToolbarContents.getSelText()
     
-    '///+<li>Check whether the selected item contains a number of minus-chars (---)</li>
+        iCurrentItem = ToolbarContents.getSelIndex()
-    if ( instr( cString , "----" ) ) then
+        cString = ToolbarContents.getSelText()
-    
-        '///+<li>If we are at the beginning of the list: Move up</li>
-        if ( iCurrentItem = 1 ) then
-            irc = 2
-            ToolbarContents.select( irc )
-            printlog( CFN & " Moved away from separator (up)" )
-        else
-        '///+<li>If we are somewhere else in the list, move down</li>
-            irc = iCurrentItem - 1
-            ToolbarContents.select( irc )
-            printlog( CFN & " Moved away from separator (down)" )
-        endif
         
+        '///+<li>Check whether the selected item contains a number of minus-chars (---)</li>
+        if ( instr( cString , "----" ) ) then
+        
+            '///+<li>If we are at the beginning of the list: Move up</li>
+            if ( iCurrentItem = 1 ) then
+                irc = 2
+                ToolbarContents.select( irc )
+                printlog( CFN & " Moved away from separator (up)" )
+            else
+            '///+<li>If we are somewhere else in the list, move down</li>
+                irc = iCurrentItem - 1
+                ToolbarContents.select( irc )
+                printlog( CFN & " Moved away from separator (down)" )
+            endif
+            
+        endif
+    else
+        irc = 0
     endif
     
     hDeselectSeparator() = irc
@@ -341,85 +346,5 @@ function hDeselectSeparator() as integer
     
 end function
 
-
 '*******************************************************************************
 
-function hClickCommandButton( iItemToClick as integer ) as boolean
-
-
-    '///<h3>Click a given entry on the command button</h3><br>
-
-    '///<u>Parameter(s):</u><br>
-    '///<ol>
-
-    '///+<li>Position of the item to click (Integer)</li>
-    '///<ul>
-    '///+<li>Only active items are selectable</li>
-    '///+<li>Position must be &gt; than 0 and &le; number of active items in menu</li>
-    '///+<li>Set context (kontext) before calling this function</li>
-    '///</ul>
-
-    '///</ol>
-
-
-    '///<u>Returns:</u><br>
-    '///<ol>
-    '///+<li>Success or failure (Boolean)</li>
-    '///<ul>
-    '///+<li>TRUE on success</li>
-    '///+<li>FALSE on failure or unknown status</li>
-    '///</ul>
-    '///</ol>
-
-    const CFN = "hClickCommandButton::"
-    printlog( CFN & "Enter" )
-    
-    dim brc as boolean 'a multi purpose boolean returnvalue
-    dim iMenuItems as integer
-
-    '///<u>Description:</u>
-    '///<ul>
-    '///+<li>Click the command button</li>
-    command.click()
-    
-    '///+<li>Verify that the menu is open</li>
-    try
-	    iMenuItems = hMenuItemGetCount()
-	catch
-		qaerrorlog( CFN & "Menu not open" )
-		hClickCommandButton() = false
-		exit function
-    endcatch
-    
-    '///+<li>Verify that the selected menuitem is valid</li>
-    printlog( CFN & "Found items: " & iMenuItems )
-    if ( iItemToClick > iMenuItems ) then
-    	warnlog( CFN & "#i90134# Selected item is not available: " & iItemToClick )
-		hClickCommandButton() = false
-		exit function
-    endif
-    
-    '///+<li>Now click on the requested item</li>
-    hMenuSelectNr( iItemToClick )
-    
-    '///+<li>Look for the Menu renaming dialog</li>
-    kontext "CustomizeMenuReName"
-    if ( CustomizeMenuReName.exists( 1 ) ) then
-    	printlog( CFN & "Opened dialog: Rename Menu" )
-    	hClickCommandButton() = true
-    	exit function
-    endif
-    
-    '///+<li>Look for the Toolbar renaming dialog</li>
-    kontext "CustomizeToolbarsRename"
-    if ( CustomizeToolbarsRename.exists() ) then
-    	printlog( CFN & "Opened dialog: Rename Toolbar" )
-    	hClickCommandButton() = true
-    	exit function
-    endif
-    '///</ul>
-
-    printlog( CFN & "Exit" )
-    hClickCommandButton() = true
-
-end function

testautomation/framework/tools/includes/pbrowser_tools.inc

@@ -69,28 +69,34 @@ function hOpenPropertyBrowser() as boolean
     const CFN = "hOpenPropertyBrowser::"
     
     '///+<li>Open the property browser (call slot)</li>
-    ContextProperties
+    try
-    
+        ContextProperties
-    '///+<li>Verify that the property browser is open</li>
-    kontext "ControlPropertiesTabControl"
-    if ( ControlPropertiesTabControl.exists( 2 ) ) then
         
-        '///+<li>Activate General-tabpage</li>
+        '///+<li>Verify that the property browser is open</li>
-        ControlPropertiesTabControl.setPage( TabGeneralControl )
+        kontext "ControlPropertiesTabControl"
-    
+        if ( ControlPropertiesTabControl.exists( 2 ) ) then
-        '///+<li>Verify that the General-tabpage is visible</li>
+            
-        kontext "TabGeneralControl"
+            '///+<li>Activate General-tabpage</li>
-        if ( TabGeneralControl.isVisible() ) then
+            ControlPropertiesTabControl.setPage( TabGeneralControl )
-            printlog( CFN & "ok" )
+        
-            hOpenPropertyBrowser() = true
+            '///+<li>Verify that the General-tabpage is visible</li>
+            kontext "TabGeneralControl"
+            if ( TabGeneralControl.isVisible() ) then
+                printlog( CFN & "ok" )
+                hOpenPropertyBrowser() = true
+            else
+                printlog( CFN & "General-tab is not visible." )
+                hOpenPropertyBrowser() = false
+            endif   
         else
-            printlog( CFN & "General-tab is not visible." )
+            printlog( CFN & "Could not open property browser" )
-            hOpenPropertyBrowser() = false
+            hOpenPropertyBrowser() = false    
-        endif   
+        endif
-    else
+    catch
-        printlog( CFN & "Could not open property browser" )
+        hOpenPropertyBrowser() = false
-        hOpenPropertyBrowser() = false    
+        printlog( CFN & "Slot <ContextProperties> not available" )
-    endif
+    endcatch
+    
     '///</ul>
     
 end function
@@ -127,7 +133,7 @@ function hClosePropertyBrowser() as boolean
 
     '///+<li>Verify that the property browser is open</li>
     kontext "ControlPropertiesTabControl"
-    if ( ControlPropertiesTabControl.exists() ) then
+    if ( ControlPropertiesTabControl.exists( 1 ) ) then
     
         '///+<li>Execute the ContextProperties slot</li>
         ContextProperties
@@ -183,9 +189,10 @@ function hPBSetControlName( cControl as string ) as boolean
         '///+<li>Set the new name</li>
         WaitSlot()
         
+        ' Name the control and append some Spaces which should be truncated.
         printlog( CFN & "Naming control: " & cControl )
         NameText.setText( cControl )
-        TabGeneralControl.typeKeys( "<RETURN>" )
+        TabGeneralControl.typeKeys( "   <RETURN>" )
         WaitSlot()
         
         printlog( CFN & "Verifying rename..." )

testautomation/global/input/macros.txt

@@ -218,3 +218,4 @@ MsgBox ("Value : " & CDbl(v))
 End Sub
 
 # ---------------------------------------------------------------------------- #
+

testautomation/global/required/includes/g_option.inc

@@ -36,18 +36,15 @@
 '* short description : update and resouce test for all option pages (at tools/options)
 '*
 '\***********************************************************************
+
 global sErrMes as String
 global iSectionNumber as Integer
 
-'*******************************************************************************
-
 sub tToolsOptionsTest
 
     dim sPreviousApplication as string
 
     sPreviousApplication = gApplication
-    ' Document- and database related options are placed in the g_option2.inc library
-    use "global\required\includes\g_option2.inc"
     ' subs and functions has been placed there
     use "global/tools/includes/required/t_option2.inc"
 
@@ -70,33 +67,19 @@ sub tToolsOptionsTest
     Call tToolsOptionsImprovementProgram
 
     ' these tabpages only exist in the respective application
-    gApplication = "WRITER"
+    select case uCase(gApplication)
-    iSectionNumber = 8
+    case "WRITER"  : Call tToolsOptionsTextdocument
-    Call tToolsOptionsTextdocument
+    case "HTML"    : Call tToolsOptionsHTMLDocument
-
+    case "CALC"    : Call tToolsOptionsSpreadsheet
-    gApplication = "HTML"
+    case "IMPRESS" : Call tToolsOptionsPresentation
-    Call tToolsOptionsHTMLDocument
+    case "DRAW"    : Call tToolsOptionsDrawing
-
+    case "MATH"    : Call tToolsOptionsFormula
-    gApplication = "CALC"
+    end select
-    iSectionNumber = 7
-    Call tToolsOptionsSpreadsheet
-
-    gApplication = "IMPRESS"
-    iSectionNumber = 7
-    Call tToolsOptionsPresentation
-
-    gApplication = "DRAW"
-    iSectionNumber = 7
-    Call tToolsOptionsDrawing
-
-    gApplication = "MATH"
-    iSectionNumber = 7
-    Call tToolsOptionsFormula
 
     gApplication = sPreviousApplication
 end sub
 
-'*******************************************************************************
+'-------------------------------------------------------------------------
 
 testcase tToolsOptionsStarOffice
 
@@ -788,4 +771,669 @@ testcase tToolsOptionsImprovementProgram
 
 endcase
 
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsTextdocument
+  dim EchteAnzahl as Integer, i as Integer
+  dim gefunden as Boolean
+    
+     PrintLog "- Tools/Options/Text document  ( Extras/Optionen/Textdokument )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+'/// Create a new document    
+    if gApplication <> "BACKGROUND" then   
+        Call hNewDocument
+    end if
+ '/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
+   ToolsOptions
+   Kontext "Active"
+   if Active.Exists (3) then
+      if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
+      Active.OK
+   end if
+   ToPosInOptionlist ( 4 )
+   EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
+   if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
+      Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
+   else
+      printlog "Asian support and CTL support are not activated ( on languages-page )!"
+   end if
+   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
+   if gAsianSup     = FALSE then EchteAnzahl = EchteAnzahl + 1
+   if gCTLSup       = FALSE then EchteAnzahl = EchteAnzahl + 1
+   for i=1 to EchteAnzahl
+      gefunden = FALSE
+      Kontext "OptionenDlg"
+      Optionsliste.TypeKeys "<Down>"
+      if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
+      if gAsianSup = FALSE AND gCTLSup = TRUE  AND i=6 then i=i+1
+      if gAsianSup = TRUE  AND gCTLSup = FALSE AND i=7 then i=i+1
+      select case i
+       case 1 : Kontext "TabLaden"
+                '///+<ul><li>General</li>
+                printlog "  - General / Allgemein"
+                if TabLaden.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabLaden )
+                end if
+       case 2 : Kontext "TabInhalteWriter"
+                '///+<li>View</li>
+                printlog "  - View / Ansicht"
+                if TabInhalteWriter.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabInhalteWriter )
+                end if
+       case 3 : Kontext "TabDirektCursor"
+                '///+<li>Formating aids</li>
+                printlog "  - Formating aids / Formatierungshilfen"
+                if TabDirektCursor.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDirektCursor )
+                end if
+       case 4 : Kontext "TabRaster"
+                '///+<li>Grid</li>
+                printlog "  - Grid / Raster"
+                if TabRaster.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabRaster )
+                end if
+       case 5 : Kontext "TabGrundschriften"
+                '///+<li>Default fonts</li>
+                printlog "  - Default Fonts / Grundschriften"
+                if TabGrundschriften.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabGrundschriften )
+                end if
+       case 6 : Kontext "TabGrundschriftenAsian"
+                '///+<li>Default fonts asian</li>
+                printlog "  - Default Fonts Asian / Grundschriften Asiatisch"
+                if TabGrundschriftenAsian.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabGrundschriftenAsian )
+                end if
+       case 7 : Kontext "TabGrundschriftenCTL"
+                '///+<li>Default fonts CTL</li>
+                printlog "  - Default Fonts CTL / Grundschriften CTL"
+                if TabGrundschriftenCTL.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabGrundschriftenCTL )
+                end if
+       case 8 : Kontext "TabDruckenWriter"
+                '///+<li>Print</li>
+                printlog "  - Print / Drucken"
+                if TabDruckenWriter.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDruckenWriter )
+                end if
+       case 9 : Kontext "TabTabelleOptionen"
+                '///+<li>Table</li>
+                printlog "  - Table / Tabellen"
+                if TabTabelleOptionen.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabTabelleOptionen )
+                end if
+       case 10: Kontext "TabAenderungenWriter"
+                '///+<li>Changes</li>
+                printlog "  - Changes / Aenderungen"
+                if TabAenderungenWriter.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabAenderungenWriter )
+                end if
+       case 11: Kontext "TabCompatibility"
+                '///+<li>Compatibility</li>
+                printlog "  - Compatibility"
+                if TabCompatibility.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabCompatibility )
+                end if
+       case 12: Kontext "TabAutoCaption"
+                '///+<li>AutoCaption</li>
+                printlog "  - AutoCaption"
+                if TabAutoCaption.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabAutoCaption )
+                end if
+       case 13: Kontext "TabMailMergeEMail"
+                '///+<li>Mail Merge E-mail</li></ul>
+                printlog "  - Mail Merge E-mail"
+                if TabMailMergeEMail.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabMailMergeEMail )
+                   ServerAuthentication.click
+                   kontext "ServerAuthentication"
+                   Call DialogTest ( ServerAuthentication )
+                   ServerAuthentication.cancel
+                   Kontext "TabMailMergeEMail"
+                   TestSettings.click
+                   
+                   ' in case java is not enabled
+                   sleep( 2 )
+                   try   
+                       Kontext "Messagebox"
+                       if ( MessageBox.exists()) then            
+                           sleep(2)                
+                           warnlog(Messagebox.GetText())                
+                           try
+                   Messagebox.Cancel()
+                               sleep( 2 )
+               catch
+                           Messagebox.OK() ' if "OK" works, we are in an undefined state
+                   warnlog( "" )
+                           endcatch                
+                       end if             
+           catch
+               warnlog( "A messagebox was displayed but coul not be closed." )
+                   endcatch
+                   
+                   Kontext "TestaccountSettings"
+                   Call DialogTest ( TestaccountSettings )
+                   TestaccountSettings.cancel
+                end if
+      end select
+      if gefunden=FALSE then
+         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+         EchteAnzahl = EchteAnzahl - 1
+         if EchteAnzahl < 12 then
+            i=13
+         else
+            i=1-1
+         end if
+      end if
+   next i
+'/// Close the options dialog
+   Kontext "OptionenDlg"
+   OptionenDlg.Cancel
+'/// Close the document  
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsHTMLDocument
+  dim EchteAnzahl as Integer, i as Integer
+  dim gefunden as Boolean
+    
+   PrintLog "- Tools/Options/HTML-Document  ( Extras/Optionen/HTML-Dokument )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+'/// Create a new document    
+    if gApplication <> "BACKGROUND" then    
+        Call hNewDocument
+    end if
+ '/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
+   ToolsOptions
+   ToPosInOptionlist ( 5 )
+   i = 6
+   if bDebugVersion = TRUE  then i = i + 1  ' here exists the special debug-tabpage, too
+   EchteAnzahl = OptionTabPageZaehler (i)
+   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
+   for i=1 to EchteAnzahl
+      gefunden = FALSE
+      Kontext "OptionenDlg"
+      Optionsliste.TypeKeys "<Down>"
+      select case i
+       case 1 : Kontext "TabInhalteHTML"
+                '/// View
+                printlog "  - View / Ansicht"
+                if TabInhalteHTML.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabInhalteHTML )
+                end if
+       case 2 : Kontext "TabDirektCursor"
+                '/// Formating aids
+                printlog "  - Formatting aids / Formatierungshilfen"
+                if TabDirektCursor.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDirektCursor )
+                end if
+       case 3 : Kontext "TabRaster"
+                '/// Grid
+                printlog "  - Grid / Raster"
+                if TabRaster.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabRaster )
+                end if
+       case 4 : Kontext "TabDruckenHTML"
+                '/// Print
+                printlog "  - Print / Drucken"
+                if TabDruckenHTML.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDruckenHTML )
+                end if
+       case 5 : Kontext "TabTabelleOptionen"
+                '/// Table
+                printlog "  - Table / Tabelle"
+                if TabTabelleOptionen.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabTabelleOptionen )
+                end if
+       case 6 : Kontext "TabHintergrund"
+                '/// Background
+                printlog "  - Background / Hintergrund"
+                Sleep 1
+                if TabHintergrund.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabHintergrund )
+                end if
+      end select
+      if gefunden=FALSE then
+         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+         EchteAnzahl = EchteAnzahl - 1
+         if EchteAnzahl < 6 then
+            i=11
+         else
+            i=1-1
+         end if
+      end if
+   next i
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+'/// Close the document    
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsSpreadsheet
+  dim EchteAnzahl as Integer, i as Integer
+  dim gefunden as Boolean
+    
+    PrintLog "- Tools/Options/Spreadsheet  ( Extras/Optionen/Tabellendokument )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+'/// Create a new document
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+ '/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
+   ToolsOptions
+   ToPosInOptionlist ( 4 )
+   EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
+   for i=1 to EchteAnzahl
+      gefunden = FALSE
+      Kontext "OptionenDlg"
+      Optionsliste.TypeKeys "<Down>"
+      select case i
+       case 1 : Kontext "TabLayoutCalc"
+                '/// General
+                printlog "  - General / Allgemein"
+                if TabLayoutCalc.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabLayoutCalc )
+                end if
+       case 2 : Kontext "TabInhaltCalc"
+                '/// View
+                printlog "  - View / Ansicht"
+                if TabInhaltCalc.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabInhaltCalc )
+                end if
+       case 3 : Kontext "TabBerechnen"
+                '/// Calculate
+                printlog "  - Calculate / Berechnen"
+                if TabBerechnen.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabBerechnen )
+                end if
+       case 4 : Kontext "TabSortierlisten"
+                '/// Sort lists
+                printlog "  - Sort Lists / Sortierliste"
+                if TabSortierlisten.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabSortierlisten )
+                end if
+       case 5 : Kontext "TabAenderungenCalc"
+                '/// Changes
+                printlog "  - Changes / Aenderungen"
+                if TabAenderungenCalc.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabAenderungenCalc )
+                end if
+       case 6 : Kontext "TabRaster"
+                '/// Grid
+                printlog "  - Grid / Raster"
+                if TabRaster.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabRaster )
+                end if
+       case 7 : Kontext "TabPrintCalcOptions"
+                '/// Print
+                printlog "  - Print / Drucken"
+                if TabPrintCalcOptions.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabPrintCalcOptions )
+                end if
+      end select
+      if gefunden=FALSE then
+         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+         EchteAnzahl = EchteAnzahl - 1
+         if EchteAnzahl < 7 then
+            i=11
+         else
+            i=1-1
+         end if
+      end if
+   next i
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+'/// Close the document
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsPresentation
+  dim EchteAnzahl as Integer, i as Integer
+  dim gefunden as Boolean
+  dim iTemp as integer
+    
+   PrintLog "- Tools/Options/Presentation  ( Extras/Optionen/Praesentation )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+'/// Create a new document
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+   kontext "DocumentImpress"
+   if DocumentImpress.exists(5) then
+       printlog "  - An application of type Presentation is available."
+       '--- workaround #i48383#
+       DocumentImpress.MouseDown (10,10)
+       DocumentImpress.MouseUp (10,10)
+   else
+       qaErrorLog "  - No application of type Presentation is available"
+   end if
+ '/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
+   ToolsOptions
+   ToPosInOptionlist ( 4 )
+   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
+   for i=1 to EchteAnzahl
+      gefunden = FALSE
+      Kontext "OptionenDlg"
+      Optionsliste.TypeKeys "<Down>"
+      select case i
+       case 1 : Kontext "TabSonstigesDraw"
+                '/// General
+                printlog "  - General / Allgemein"
+                if TabSonstigesDraw.exists then
+                    if TabSonstigesDraw.IsVisible then
+                       gefunden = TRUE
+                       Call DialogTest ( TabSonstigesDraw )
+                    end if
+                else
+                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
+                    Kontext "OptionenDlg"
+                    OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
+                    qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
+                    for iTemp = 1 to Optionsliste.getItemCount
+                        qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
+                    next iTemp
+                    gefunden = TRUE
+                end if
+       case 2 : Kontext "TabInhalteDraw"
+                '/// View
+                printlog "  - View / Ansicht"
+                if TabInhalteDraw.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabInhalteDraw )
+                end if
+       case 3 : Kontext "TabRaster"
+                '/// Grid
+                printlog "  - Grid / Raster"
+                if TabRaster.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabRaster )
+                end if
+       case 4 : Kontext "TabDruckenDraw"
+                '/// Print
+                printlog "  - Print / Drucken"
+                if TabDruckenDraw.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDruckenDraw )
+                end if
+      end select
+      if gefunden=FALSE then
+         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+         EchteAnzahl = EchteAnzahl - 1
+         if EchteAnzahl < 4 then
+            i=11
+         else
+            i=1-1
+         end if
+      end if
+   next i
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+'/// Close the document    
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsDrawing
+  Dim EchteAnzahl as Integer, i as Integer
+  Dim gefunden as Boolean
+    
+   PrintLog "- Tools/Options/Drawing  ( Extras/Optionen/Zeichnung )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    end if
+'/// Create a new document
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+   Kontext "DocumentDraw"
+   if DocumentDraw.exists(5) then
+       printlog "  - An application of type Draw is available."
+       '--- workaround #i48383#
+       DocumentDraw.MouseDown (10,10)
+       DocumentDraw.MouseUp (10,10)
+   else
+       qaErrorLog "  - No application of type Draw is available"
+   end if
+'/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
+   ToolsOptions
+   ToPosInOptionlist ( 4 )
+   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
+   for i=1 to EchteAnzahl
+      gefunden = FALSE
+      Kontext "OptionenDlg"
+      Optionsliste.TypeKeys "<Down>"
+      select case i
+       case 1 : Kontext "TabSonstigesDraw"
+                '/// General
+                printlog "  - General / Allgemein"
+                if TabSonstigesDraw.exists then
+                    if TabSonstigesDraw.IsVisible then
+                       gefunden = TRUE
+                       Call DialogTest ( TabSonstigesDraw )
+                    end if
+                else
+                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
+                    Kontext "OptionenDlg"
+                    qaErrorLog "#i48383# wrong focus on opening options"
+                    gefunden = TRUE
+                end if
+       case 2 : Kontext "TabInhalteDraw"
+                '/// View
+                printlog "  - View / Ansicht"
+                if TabInhalteDraw.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabInhalteDraw )
+                end if
+       case 3 : Kontext "Active"
+                if Active.Exists then
+                   Warnlog "A messagebox exists => BUG  : " + Active.GetText
+                   try
+                      Active.No
+                   catch
+                      Active.OK
+                   endcatch
+                end if
+                Kontext "TabRaster"
+                '/// Grid
+                printlog "  - Grid / Raster"
+                if TabRaster.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabRaster )
+                end if
+       case 4 : Kontext "TabDruckenDraw"
+                '/// Print
+                printlog "  - Print / Drucken"
+                if TabDruckenDraw.IsVisible then
+                   gefunden = TRUE
+                   Call DialogTest ( TabDruckenDraw )
+                end if
+      end select
+      if gefunden=FALSE then
+         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
+         EchteAnzahl = EchteAnzahl - 1
+         if EchteAnzahl < 4 then
+            i=11
+         else
+            i=1-1
+         end if
+      end if
+   next i
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+     OptionenDlg.Cancel
+'/// Close the document
+     if gApplication <> "BACKGROUND" then 
+    Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsFormula
+  dim EchteAnzahl as Integer, i as Integer
+    
+   PrintLog "- Tools/Options/Formula  ( Extras/Optionen/Formel )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif
+'/// Create a new document
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+'/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>    
+   ToolsOptions
+   ToPosInOptionlist ( 4 )
+   EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
+   Kontext "OptionenDlg"
+   '/// Print
+   Optionsliste.TypeKeys "<Down>"
+   printlog "  - Print / Drucken"
+   Kontext "TabDruckenMath"
+   Call DialogTest ( TabDruckenMath )
+'/// Close the options dialog
+   Kontext "OptionenDlg"
+   OptionenDlg.Cancel
+'/// Close the document   
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsChart
+    Dim EchteAnzahl as Integer, i as Integer
+
+    PrintLog "- Tools/Options/Chart  ( Extras/Optionen/Diagramme )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif    
+'/// Create a new document    
+    if gApplication <> "BACKGROUND" then 
+        Call hNewDocument
+    end if
+'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>    
+    ToolsOptions
+    ToPosInOptionlist ( iSectionNumber -1 )
+    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+'/// Default colors
+    printlog "  - Default Colors / Grundfarben"
+    Kontext "TabGrundfarben"
+    Call DialogTest ( TabGrundfarben )
+'/// Close the options dialog
+    Kontext "OptionenDlg"
+    OptionenDlg.Cancel
+    if gApplication <> "BACKGROUND" then
+'/// Close bthe document    
+        Call hCloseDocument
+    end if
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tToolsOptionsDataSources
+   Dim EchteAnzahl as Integer, i as Integer
+
+   PrintLog "- Tools/Options/Data Sources  ( Extras/Optionen/Datenbank )"
+    if (0 = iSectionNumber) then 
+        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
+        goto endsub
+    endif   
+    '/// Create a new document
+    if gApplication <> "BACKGROUND" then    
+        Call hNewDocument
+    end if
+    '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
+    ToolsOptions
+    ToPosInOptionlist ( iSectionNumber -2)
+    EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+    printlog "  - Connections / Verbindungen"
+    Kontext "TabConnections"
+    '/// Connections
+    Call DialogTest ( TabConnections )
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<Down>"
+    printlog "  - Databases / Datenbanken"   
+    Kontext "TabRegisteredDatabase"
+    '/// Databases
+    Call DialogTest ( TabRegisteredDatabase )
+    NewBtn.click
+    Kontext "CreateDatabaseLink"
+    call DialogTest( CreateDatabaseLink )
+    Browse.click
+    Kontext "OeffnenDlg"
+    OeffnenDlg.cancel
+    Kontext "CreateDatabaseLink"
+    CreateDatabaseLink.cancel
+    Kontext "OptionenDlg"
+    '/// Close the options dialog
+    OptionenDlg.Cancel
+    '/// Close the document
+    if gApplication <> "BACKGROUND" then 
+        Call hCloseDocument
+    end if
+endcase
 

testautomation/global/required/includes/g_option2.inc

@@ -1,714 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: g_option2.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-13 10:27:04 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org.  If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'* owner : thorsten.bosbach@sun.com
-'*
-'* short description : update and resouce test for all option pages (at tools/options)
-'*
-'************************************************************************
-'*
-' #1  tToolsOptionsTextdocument
-' #1  tToolsOptionsHTMLDocument
-' #1  tToolsOptionsSpreadsheet
-' #1  tToolsOptionsPresentation
-' #1  tToolsOptionsDrawing
-' #1  tToolsOptionsFormula
-' #1  tToolsOptionsChart
-' #1  tToolsOptionsDataSources
-'*
-'\***********************************************************************
-
-testcase tToolsOptionsTextdocument
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-     PrintLog "- Tools/Options/Text document  ( Extras/Optionen/Textdokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then   
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
-   ToolsOptions
-   Kontext "Active"
-   if Active.Exists (3) then
-      if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
-      Active.OK
-   end if
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
-   if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
-      Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
-   else
-      printlog "Asian support and CTL support are not activated ( on languages-page )!"
-   end if
-   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
-   if gAsianSup     = FALSE then EchteAnzahl = EchteAnzahl + 1
-   if gCTLSup       = FALSE then EchteAnzahl = EchteAnzahl + 1
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
-      if gAsianSup = FALSE AND gCTLSup = TRUE  AND i=6 then i=i+1
-      if gAsianSup = TRUE  AND gCTLSup = FALSE AND i=7 then i=i+1
-      select case i
-       case 1 : Kontext "TabLaden"
-                '///+<ul><li>General</li>
-                printlog "  - General / Allgemein"
-                if TabLaden.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabLaden )
-                end if
-       case 2 : Kontext "TabInhalteWriter"
-                '///+<li>View</li>
-                printlog "  - View / Ansicht"
-                if TabInhalteWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteWriter )
-                end if
-       case 3 : Kontext "TabDirektCursor"
-                '///+<li>Formating aids</li>
-                printlog "  - Formating aids / Formatierungshilfen"
-                if TabDirektCursor.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDirektCursor )
-                end if
-       case 4 : Kontext "TabRaster"
-                '///+<li>Grid</li>
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 5 : Kontext "TabGrundschriften"
-                '///+<li>Default fonts</li>
-                printlog "  - Default Fonts / Grundschriften"
-                if TabGrundschriften.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriften )
-                end if
-       case 6 : Kontext "TabGrundschriftenAsian"
-                '///+<li>Default fonts asian</li>
-                printlog "  - Default Fonts Asian / Grundschriften Asiatisch"
-                if TabGrundschriftenAsian.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriftenAsian )
-                end if
-       case 7 : Kontext "TabGrundschriftenCTL"
-                '///+<li>Default fonts CTL</li>
-                printlog "  - Default Fonts CTL / Grundschriften CTL"
-                if TabGrundschriftenCTL.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabGrundschriftenCTL )
-                end if
-       case 8 : Kontext "TabDruckenWriter"
-                '///+<li>Print</li>
-                printlog "  - Print / Drucken"
-                if TabDruckenWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenWriter )
-                end if
-       case 9 : Kontext "TabTabelleOptionen"
-                '///+<li>Table</li>
-                printlog "  - Table / Tabellen"
-                if TabTabelleOptionen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabTabelleOptionen )
-                end if
-       case 10: Kontext "TabAenderungenWriter"
-                '///+<li>Changes</li>
-                printlog "  - Changes / Aenderungen"
-                if TabAenderungenWriter.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAenderungenWriter )
-                end if
-       case 11: Kontext "TabCompatibility"
-                '///+<li>Compatibility</li>
-                printlog "  - Compatibility"
-                if TabCompatibility.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabCompatibility )
-                end if
-       case 12: Kontext "TabAutoCaption"
-                '///+<li>AutoCaption</li>
-                printlog "  - AutoCaption"
-                if TabAutoCaption.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAutoCaption )
-                end if
-       case 13: Kontext "TabMailMergeEMail"
-                '///+<li>Mail Merge E-mail</li></ul>
-                printlog "  - Mail Merge E-mail"
-                if TabMailMergeEMail.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabMailMergeEMail )
-                   ServerAuthentication.click
-                   kontext "ServerAuthentication"
-                   Call DialogTest ( ServerAuthentication )
-                   ServerAuthentication.cancel
-                   Kontext "TabMailMergeEMail"
-                   TestSettings.click
-                   
-                   ' in case java is not enabled
-                   sleep( 2 )
-                   try   
-                       Kontext "Messagebox"
-                       if ( MessageBox.exists()) then            
-                           sleep(2)                
-                           warnlog(Messagebox.GetText())                
-                           try
-                   Messagebox.Cancel()
-                               sleep( 2 )
-               catch
-                           Messagebox.OK() ' if "OK" works, we are in an undefined state
-                   warnlog( "" )
-                           endcatch                
-                       end if             
-           catch
-               warnlog( "A messagebox was displayed but coul not be closed." )
-                   endcatch
-                   
-                   Kontext "TestaccountSettings"
-                   Call DialogTest ( TestaccountSettings )
-                   TestaccountSettings.cancel
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 12 then
-            i=13
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-   Kontext "OptionenDlg"
-   OptionenDlg.Cancel
-'/// Close the document  
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsHTMLDocument
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-   PrintLog "- Tools/Options/HTML-Document  ( Extras/Optionen/HTML-Dokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then    
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
-   ToolsOptions
-   ToPosInOptionlist ( 5 )
-   i = 6
-   if bDebugVersion = TRUE  then i = i + 1  ' here exists the special debug-tabpage, too
-   EchteAnzahl = OptionTabPageZaehler (i)
-   if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabInhalteHTML"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteHTML.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteHTML )
-                end if
-       case 2 : Kontext "TabDirektCursor"
-                '/// Formating aids
-                printlog "  - Formatting aids / Formatierungshilfen"
-                if TabDirektCursor.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDirektCursor )
-                end if
-       case 3 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenHTML"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenHTML.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenHTML )
-                end if
-       case 5 : Kontext "TabTabelleOptionen"
-                '/// Table
-                printlog "  - Table / Tabelle"
-                if TabTabelleOptionen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabTabelleOptionen )
-                end if
-       case 6 : Kontext "TabHintergrund"
-                '/// Background
-                printlog "  - Background / Hintergrund"
-                Sleep 1
-                if TabHintergrund.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabHintergrund )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 6 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document    
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsSpreadsheet
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-    
-    PrintLog "- Tools/Options/Spreadsheet  ( Extras/Optionen/Tabellendokument )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabLayoutCalc"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabLayoutCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabLayoutCalc )
-                end if
-       case 2 : Kontext "TabInhaltCalc"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhaltCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhaltCalc )
-                end if
-       case 3 : Kontext "TabBerechnen"
-                '/// Calculate
-                printlog "  - Calculate / Berechnen"
-                if TabBerechnen.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabBerechnen )
-                end if
-       case 4 : Kontext "TabSortierlisten"
-                '/// Sort lists
-                printlog "  - Sort Lists / Sortierliste"
-                if TabSortierlisten.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabSortierlisten )
-                end if
-       case 5 : Kontext "TabAenderungenCalc"
-                '/// Changes
-                printlog "  - Changes / Aenderungen"
-                if TabAenderungenCalc.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabAenderungenCalc )
-                end if
-       case 6 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 7 : Kontext "TabPrintCalcOptions"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabPrintCalcOptions.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabPrintCalcOptions )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 7 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsPresentation
-  dim EchteAnzahl as Integer, i as Integer
-  dim gefunden as Boolean
-  dim iTemp as integer
-    
-   PrintLog "- Tools/Options/Presentation  ( Extras/Optionen/Praesentation )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-   kontext "DocumentImpress"
-   if DocumentImpress.exists(5) then
-       printlog "  - An application of type Presentation is available."
-       '--- workaround #i48383#
-       DocumentImpress.MouseDown (10,10)
-       DocumentImpress.MouseUp (10,10)
-   else
-       qaErrorLog "  - No application of type Presentation is available"
-   end if
- '/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSonstigesDraw"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabSonstigesDraw.exists then
-                    if TabSonstigesDraw.IsVisible then
-                       gefunden = TRUE
-                       Call DialogTest ( TabSonstigesDraw )
-                    end if
-                else
-                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
-                    Kontext "OptionenDlg"
-                    OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
-                    qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
-                    for iTemp = 1 to Optionsliste.getItemCount
-                        qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
-                    next iTemp
-                    gefunden = TRUE
-                end if
-       case 2 : Kontext "TabInhalteDraw"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteDraw )
-                end if
-       case 3 : Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenDraw"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenDraw )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 4 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-'/// Close the document    
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsDrawing
-  Dim EchteAnzahl as Integer, i as Integer
-  Dim gefunden as Boolean
-    
-   PrintLog "- Tools/Options/Drawing  ( Extras/Optionen/Zeichnung )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    end if
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-   Kontext "DocumentDraw"
-   if DocumentDraw.exists(5) then
-       printlog "  - An application of type Draw is available."
-       '--- workaround #i48383#
-       DocumentDraw.MouseDown (10,10)
-       DocumentDraw.MouseUp (10,10)
-   else
-       qaErrorLog "  - No application of type Draw is available"
-   end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
-   for i=1 to EchteAnzahl
-      gefunden = FALSE
-      Kontext "OptionenDlg"
-      Optionsliste.TypeKeys "<Down>"
-      select case i
-       case 1 : Kontext "TabSonstigesDraw"
-                '/// General
-                printlog "  - General / Allgemein"
-                if TabSonstigesDraw.exists then
-                    if TabSonstigesDraw.IsVisible then
-                       gefunden = TRUE
-                       Call DialogTest ( TabSonstigesDraw )
-                    end if
-                else
-                    ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
-                    Kontext "OptionenDlg"
-                    qaErrorLog "#i48383# wrong focus on opening options"
-                    gefunden = TRUE
-                end if
-       case 2 : Kontext "TabInhalteDraw"
-                '/// View
-                printlog "  - View / Ansicht"
-                if TabInhalteDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabInhalteDraw )
-                end if
-       case 3 : Kontext "Active"
-                if Active.Exists then
-                   Warnlog "A messagebox exists => BUG  : " + Active.GetText
-                   try
-                      Active.No
-                   catch
-                      Active.OK
-                   endcatch
-                end if
-                Kontext "TabRaster"
-                '/// Grid
-                printlog "  - Grid / Raster"
-                if TabRaster.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabRaster )
-                end if
-       case 4 : Kontext "TabDruckenDraw"
-                '/// Print
-                printlog "  - Print / Drucken"
-                if TabDruckenDraw.IsVisible then
-                   gefunden = TRUE
-                   Call DialogTest ( TabDruckenDraw )
-                end if
-      end select
-      if gefunden=FALSE then
-         Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
-         EchteAnzahl = EchteAnzahl - 1
-         if EchteAnzahl < 4 then
-            i=11
-         else
-            i=1-1
-         end if
-      end if
-   next i
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-     OptionenDlg.Cancel
-'/// Close the document
-     if gApplication <> "BACKGROUND" then 
-    Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsFormula
-  dim EchteAnzahl as Integer, i as Integer
-    
-   PrintLog "- Tools/Options/Formula  ( Extras/Optionen/Formel )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif
-'/// Create a new document
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>    
-   ToolsOptions
-   ToPosInOptionlist ( 4 )
-   EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
-   Kontext "OptionenDlg"
-   '/// Print
-   Optionsliste.TypeKeys "<Down>"
-   printlog "  - Print / Drucken"
-   Kontext "TabDruckenMath"
-   Call DialogTest ( TabDruckenMath )
-'/// Close the options dialog
-   Kontext "OptionenDlg"
-   OptionenDlg.Cancel
-'/// Close the document   
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-'-------------------------------------------------------------------------
-testcase tToolsOptionsChart
-    Dim EchteAnzahl as Integer, i as Integer
-
-    PrintLog "- Tools/Options/Chart  ( Extras/Optionen/Diagramme )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif    
-'/// Create a new document    
-    if gApplication <> "BACKGROUND" then 
-        Call hNewDocument
-    end if
-'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>    
-    ToolsOptions
-    ToPosInOptionlist ( iSectionNumber -1 )
-    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-'/// Default colors
-    printlog "  - Default Colors / Grundfarben"
-    Kontext "TabGrundfarben"
-    Call DialogTest ( TabGrundfarben )
-'/// Close the options dialog
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-    if gApplication <> "BACKGROUND" then
-'/// Close bthe document    
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsOptionsDataSources
-   Dim EchteAnzahl as Integer, i as Integer
-
-   PrintLog "- Tools/Options/Data Sources  ( Extras/Optionen/Datenbank )"
-    if (0 = iSectionNumber) then 
-        warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
-        goto endsub
-    endif   
-    '/// Create a new document
-    if gApplication <> "BACKGROUND" then    
-        Call hNewDocument
-    end if
-    '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
-    ToolsOptions
-    ToPosInOptionlist ( iSectionNumber -2)
-    EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-    printlog "  - Connections / Verbindungen"
-    Kontext "TabConnections"
-    '/// Connections
-    Call DialogTest ( TabConnections )
-    Kontext "OptionenDlg"
-    Optionsliste.TypeKeys "<Down>"
-    printlog "  - Databases / Datenbanken"   
-    Kontext "TabRegisteredDatabase"
-    '/// Databases
-    Call DialogTest ( TabRegisteredDatabase )
-    NewBtn.click
-    Kontext "CreateDatabaseLink"
-    call DialogTest( CreateDatabaseLink )
-    Browse.click
-    Kontext "OeffnenDlg"
-    OeffnenDlg.cancel
-    Kontext "CreateDatabaseLink"
-    CreateDatabaseLink.cancel
-    Kontext "OptionenDlg"
-    '/// Close the options dialog
-    OptionenDlg.Cancel
-    '/// Close the document
-    if gApplication <> "BACKGROUND" then 
-        Call hCloseDocument
-    end if
-endcase
-
-'-------------------------------------------------------------------------
-

testautomation/global/tools/includes/required/t_dir.inc

@@ -180,23 +180,27 @@ function GetDirList ( sPath$, sMatch$ ,lsFile() as String ) as integer
     '/// Get Subdirectories from a directory and append them to a list (<b>with</b> path)
     '/// <u>Input</u>: Directory with complete path; Search Pattern, e.g *; List
     '/// <u>Return</u>: count of appended entries; updated list
-    Dim Count%
+    Dim iFolderCount as integer
-    Dim i as Integer
+    Dim Folder as String
-    Dim Verzeichnis as String
     ' at the end of the string has to be teh path seperator, else the dir-command doesn't work
     if right ( sPath$, 1 ) <> gPathSigne then sPath$ = sPath$ + gPathSigne
-    Verzeichnis = app.Dir( sPath$ + sMatch$ , 16)
+    Folder = app.Dir( sPath$ + sMatch$ , 16)
-    Count% = 0
+    iFolderCount = 0
 
-    do until Len(Verzeichnis) = 0
+    do until Len( Folder ) = 0
-        if Verzeichnis <> "." AND Verzeichnis <> ".." AND Lcase(Verzeichnis) <> ".svn" then
+        select case ( lcase( Folder ) )
+        case "."
+        case ".."
+        case ".svn"
+        case ".hg"
+        case else
             lsFile(0) = Val(lsFile(0)) + 1
-            lsFile( lsFile(0) ) = sPath$  + Verzeichnis + gPathSigne
+            lsFile( lsFile(0) ) = sPath$  + Folder + gPathSigne
-            Count% = Count% + 1
+            iFolderCount = iFolderCount + 1
-        end if
+        end select
-        Verzeichnis = app.Dir
+        Folder = app.Dir
     loop
-    GetDirList = Count%
+    GetDirList = iFolderCount
 end function
 '
 '-------------------------------------------------------------------------------

testautomation/global/tools/includes/required/t_files.inc

@@ -442,7 +442,7 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
             endif
             '/// click on the button 'Export...' ///'
             if (bExecute) then
-                Export.Click
+                speichern.Click
                 kontext "AlienWarning"
                 if AlienWarning.exists(5) then
                     warnlog "#i41983# Alien Warning on export not allowed."
@@ -567,8 +567,8 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
         end if
     end if
     ' only if the type is 1 OR 3 then the File Save dialog appear
+    kontext "ExportierenDLG"
     if (iTypeOfCall = 1 OR iTypeOfCall = 3) then
-        kontext "ExportierenDLG"
         if ExportierenDLG.exists(5) then
             try
                 Dateityp.Select sPDF
@@ -610,7 +610,11 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
                 wEnd
             endif
         else
+            try
             ExportierenDLG.Cancel
+            catch
+            printlog "export not there"
+            endcatch
         end if
 
         ' if file exists, there is a message...

testautomation/global/win/dial_d_h.win

@@ -253,14 +253,14 @@ PopuplisteRechts sfx2:ListBox:DLG_ORGANIZE:LB_RIGHT_TYP
 AddressBook sfx2:PushButton:DLG_ORGANIZE:BTN_ADDRESSTEMPLATE
 
 *EinfuegenSpalten FN_TABLE_INSERT_COL_DLG
-Anzahl sw:NumericField:DLG_INS_ROW_COL:ED_COUNT
+Anzahl svx:NumericField:DLG_INS_ROW_COL:ED_COUNT
-Davor sw:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
+Davor svx:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
-Dahinter sw:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
+Dahinter svx:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
 
 *EinfuegenZeilen FN_TABLE_INSERT_ROW_DLG
-Anzahl sw:NumericField:DLG_INS_ROW_COL:ED_COUNT
+Anzahl svx:NumericField:DLG_INS_ROW_COL:ED_COUNT
-Davor sw:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
+Davor svx:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
-Dahinter sw:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
+Dahinter svx:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
 
 *EbeneEinfuegenDlg SID_INSERTLAYER
 EbenenName sd:Edit:DLG_INSERT_LAYER:EDT_NAME

testautomation/global/win/edia_i_o.win

@@ -303,3 +303,8 @@ OleDatei svx:EDIT:MD_INSERT_OLEOBJECT:ED_FILEPATH
 Verknuepfen svx:CHECKBOX:MD_INSERT_OLEOBJECT:CB_FILELINK
 Durchsuchen svx:PUSHBUTTON:MD_INSERT_OLEOBJECT:BTN_FILEPATH
 
+*InsertTableImpress svx:ModalDialog:RID_SVX_NEWTABLE_DLG
+NumberOfColumns svx:NumericField:RID_SVX_NEWTABLE_DLG:NF_COLUMNS
+NumberOfRows svx:NumericField:RID_SVX_NEWTABLE_DLG:NF_ROWS
+
+*TableDesign sd:ModalDialog:DLG_TABLEDESIGNPANE

testautomation/global/win/edia_p_s.win

@@ -41,7 +41,7 @@ TransitionEffects filter:CheckBox:RID_PDF_TAB_GENER:CB_EXPORTBOOKMARKS
 FormsFormat filter:ListBox:RID_PDF_TAB_GENER:LB_FORMSFORMAT
 ExportBlankPages filter:CheckBox:RID_PDF_TAB_GENER:CB_EXPORTEMPTYPAGES
 
-*PDFOptionsInitialView PDF1TBO
+*PDFOptionsInitialView HID_FILTER_PDF_INITIAL_VIEW
 PageOnly filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_PAGEONLY
 BookmarksAndPage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_OUTLINE
 ThumbnailsAndPage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_THUMBS
@@ -54,7 +54,7 @@ SinglePage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_SINGPG
 Continuous filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_CONT
 ContinuousFacing filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_CONTFAC
 
-*PDFOptionsUserInterface PDF2TBO
+*PDFOptionsUserInterface HID_FILTER_PDF_USER_INTERFACE
 ResizeWindow filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_RESINIT
 CenterWindow filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_CNTRWIN
 OpenInFullscreen filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_OPNFULL
@@ -71,15 +71,6 @@ Currency HID_DLGDEPOT_LSTMARKETS
 OKButton HID_DLGDEPOT_0_CMDGOON_HISTORY
 CancelButton HID_DLGDEPOT_0_CMDCANCEL_HISTORY
 
-*PurchaseStarOffice HID_LICENSING_DIALOG
-TabPurchase HID_TP_PURCHASE
-getSerialNumber tab:PushButton:TP_PURCHASE:PB_PURCHASE_GET
-TabUnlockStarOffice HID_TP_UNLOCK
-SerialNumberA tab:Edit:TP_UNLOCK:ED_UNLOCK_A
-SerialNumberB tab:Edit:TP_UNLOCK:ED_UNLOCK_B
-SerialNumberC tab:Edit:TP_UNLOCK:ED_UNLOCK_C
-TabSummary HID_TP_SUMMARY
-
 *QueryEditWindow HID_CTL_QRYSQLEDIT
 
 *QueryDesignTable HID_CTL_QRYDGNTAB
@@ -393,6 +384,10 @@ SolverSettingsEdit  sc:PushButton:RID_SCDLG_SOLVEROPTIONS:BTN_EDIT
 *SolverEditSetting   HID_SC_SOLVER_INTEGER
 SolverNumeric sc:NumericField:RID_SCDLG_SOLVER_INTEGER:NF_VALUE
 
+*SolvingResult HID_SC_SOLVER_SUCCESS
+
+*NoSolution HID_SC_SOLVER_NOSOLUTION
+
 *SortOrder HID_DLG_ORDERCRIT
 Fieldname1 dbaccess:ListBox:DLG_ORDERCRIT:LB_ORDERFIELD1
 Order1 dbaccess:ListBox:DLG_ORDERCRIT:LB_ORDERVALUE1

testautomation/global/win/etab_a_d.win

@@ -405,7 +405,7 @@ DataSource HID_PROP_DATASOURCE
 ContentType HID_PROP_CURSORSOURCETYPE
 Content HID_PROP_CURSORSOURCE
 AnalyzeSQLCommand HID_PROP_ESCAPE_PROCESSING
-Filter HID_PROP_FILTER_CRITERIA
+Filter HID_PROP_FILTER
 FilterDLGButton UID_PROP_DLG_FILTER
 Sort HID_PROP_SORT_CRITERIA
 AllowAdditions HID_PROP_ALLOW_ADDITIONS

testautomation/global/win/reportdesigner.win

@@ -71,7 +71,7 @@ ContentType                 HID_PROP_CURSORSOURCETYPE
 Content                     HID_PROP_CURSORSOURCE
 OpenQueryDesign             UID_PROP_DLG_SQLCOMMAND
 AnalyzeSQLCommand           HID_PROP_ESCAPE_PROCESSING
-Filter                      HID_PROP_FILTER_CRITERIA
+Filter                      HID_PROP_FILTER
 FilterDLGButton             UID_PROP_DLG_FILTER
 DataField                   HID_RPT_PROP_DATAFIELD
 OpenFormularWizard           UID_RPT_PROP_FORMULA

testautomation/global/win/tab_a_d.win

@@ -58,6 +58,8 @@ IconsInMenueAnzeigen svx:ListBox:OFA_TP_VIEW:LB_MENU_ICONS
 MausAktion svx:ListBox:OFA_TP_VIEW:LB_MOUSEMIDDLE
 MousePositioning svx:ListBox:OFA_TP_VIEW:LB_MOUSEPOS
 UseSystemFont svx:CheckBox:OFA_TP_VIEW:CB_SYSTEM_FONT
+Transparency svx:CheckBox:OFA_TP_VIEW:CB_SELECTION
+SelectionOpacity svx:MetricField:OFA_TP_VIEW:MF_SELECTION
 
 *TabAusnahmen HID_OFAPAGE_AUTOCORR_EXCEPT
 Abkuerzungen svx:Edit:RID_OFAPAGE_AUTOCORR_EXCEPT:ED_ABBREV

testautomation/graphics/optional/g_tables.bas

@@ -54,7 +54,7 @@ sub main
     PrintLog "-------------------------" + gApplication + "-------------------"
 
     call tiInsertTableUsingMenu
-    call tiInsertTableUsingButton
+    call tiInsertTableUsingToolbarbutton
     call tiTableObjectBar
 
     call hStatusOut

testautomation/graphics/optional/gallery.bas

@@ -43,7 +43,7 @@ sub main
     call hStatusIn ( "Graphics", "gallery.bas")
 
     use "graphics\tools\id_tools_2.inc"
-    use "graphics\required\includes\global\gallery.inc"
+    use "graphics\optional\includes\global\gallery.inc"
 
     printlog "------------------------ F u n c t i o n a l i t y ----------------------"
     call tGallery_DialogTest                           ' open gallery, pin - unpin, dock - undock, close gallery

testautomation/graphics/optional/gallery2.bas

@@ -43,7 +43,7 @@ sub main
 
     use "graphics\tools\id_tools.inc"
     use "graphics\tools\id_tools_2.inc"
-    use "graphics\required\includes\global\gallery2.inc"
+    use "graphics\optional\includes\global\gallery2.inc"
 
     printlog "------------------------------- T h e m e s -----------------------------"
     call tSettingsToCM

testautomation/graphics/optional/includes/global/g_export_html.inc

@@ -50,7 +50,7 @@ testcase tHtmlExport
     dim sTemp as string
     dim sFile as string
 
-   '/// open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' ///'
+   printlog "open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' "
    ToolsOptions
    hToolsOptions ("STAROFFICE","USERDATA")
    VorName.SetText "Garfield"
@@ -59,7 +59,7 @@ testcase tHtmlExport
    Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.OK
 
-   '/// create directory if not exists and delete the content, if exists user\\work\\html\\ ///'
+   printlog "create directory if not exists and delete the content, if exists user\\work\\html\\ "
    app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
    Liste(0) = 0
    GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
@@ -69,43 +69,43 @@ testcase tHtmlExport
       next i
    endif
 
-   '/// open application ///'
+   printlog "open application "
    Call hNewDocument
    WaitSlot (3000)
-'---------------------------------- simple document -----------------------------------------------
+'------------------ simple document --------------------
-   '/// create a rectrangle ///'
+   printlog "create a rectrangle "
    hTextrahmenErstellen ("This is a test text",10,10,40,20)
    WaitSlot (2000)
-   '/// create another rectrangle ///'
+   printlog "create another rectrangle "
    hRechteckErstellen (50,50,70,70)
    WaitSlot (3000)
-'###################################################################################################
+'####################################
-   Printlog "'///<b> test if no file is created, if dialog is canceld </b>///'"
+   Printlog "test if no file is created, if dialog is canceld"
-   '/// call 'File->Export'///'
+   printlog "call 'File->Export'"
    FileExport
    Kontext "ExportierenDlg"
    WaitSlot (1000)
    gHTMLFilter = Dateityp.GetItemText(1)
    Dateityp.Select(gHTMLFilter)
-   '/// set Filename to 'user\\work\\html\\expo0.html' ///'
+   printlog "set Filename to 'user\\work\\html\\expo0.html' "
    sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
    Dateiname.SetText sFile
    WaitSlot (2000)
-   '/// click button 'Save' ///'
+   printlog "click button 'Save' "
    Speichern.Click
    WaitSlot (3000)
    Kontext "Active"
       if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
+'---------------------------------------------------------
-   '/// now we are on the dialog -1- 'Assign design' ///'
+   printlog "now we are on the dialog -1- 'Assign design' "
    Kontext "HTMLExport1"
-   '/// click button 'Cancel' ///'
+   printlog "click button 'Cancel' "
    HTMLExport1.Cancel
    WaitSlot (5000)
    Liste(0) = 0
    GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
    WaitSlot (1000)
-   Printlog "used file name: '" + sFile + "'"
+   Printlog "used file name: " + sFile
    if (ListCount (Liste()) > 0) then
       warnlog "dialog for export was canceled, but file was created :-("
       for i = 1 to ListCount (Liste())
@@ -113,88 +113,89 @@ testcase tHtmlExport
       next i
       KillFileList (Liste())
    end if
-'###################################################################################################
+'####################################
-   Printlog "'///<b> test if files are created </b>///'"
+   Printlog "'test if files are created"
-   '/// call 'File->Export'///'
+   printlog "call 'File->Export'"
    FileExport
    Kontext "ExportierenDlg"
    WaitSlot (1000)
    try
-      '/// select Filetype 'HTML...' aka 'WebPage' ///'
+      printlog "select Filetype 'HTML...' aka 'WebPage' "
       Dateityp.Select gHTMLFilter
    catch
       errorlog  " Filter not available :-( : '"+gHTMLFilter+"'"
-      Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
+      Dateityp.Select 1 
+      printlog "Selects the first entry - which should be html "
    endcatch
    WaitSlot (1000)
-   '/// set Filename to 'user\\work\\html\\expo.html' ///'
+   printlog "set Filename to 'user\\work\\html\\expo.html' "
    sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
    Dateiname.SetText sFile
    WaitSlot (2000)
-   '/// click button 'Save' ///'
+   printlog "click button 'Save' "
    Speichern.Click
    WaitSlot (3000)
    Kontext "Active"
       if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
+'---------------------------------------------------------
-   Printlog "'/// now we are on the dialog -1- 'Assign design' ///'"
+   Printlog  "now we are on the dialog -1- 'Assign design' "
    Kontext "HTMLExport1"
-   '/// 'New design' should be checked ///'
+   printlog "'New design' should be checked "
    if (NeuesDesign.IsEnabled <> TRUE) then
       warnlog "NewDesign is not enabled by default :-("
    endif
-   '/// click button 'Next >>' ///'
+   printlog "click button 'Next >>' "
    Weiter.Click
    WaitSlot (1000)
-   Printlog "'/// now we are on the dialog -2- 'Publication Type & Options' ///'"
+   Printlog "now we are on the dialog -2- 'Publication Type & Options' "
    Kontext "HTMLExport2"
-   '/// checkbox 'Standard HTML Format' is checked by default ///'
+   printlog "checkbox 'Standard HTML Format' is checked by default "
    if (Standard.IsChecked <> TRUE) then
       warnlog "Standard is not enabled by default :-("
       Standard.Check
    end if
-   '/// checkbox 'Title Page' is checked by default ///'
+   printlog "checkbox 'Title Page' is checked by default "
    if Not TitelseiteErzeugen.IsChecked Then
        TitelSeiteErzeugen.Check
        Warnlog  "- 'create Titlepage' should be checked as default :-("
    end if
    if (gApplication = "IMPRESS") then
-      '/// if applcation is impress: the checkbox 'Show notes' is enabled by default///'
+      printlog "if application is impress: the checkbox 'Show notes' is enabled by default"
       If (Notizenanzeigen.IsChecked <> TRUE) Then
           warnlog "- 'Show notes' checked as default :-("
           Notizenanzeigen.Check
       end if
    end if
-   '/// click button 'Next >>' ///'
+   printlog "click button 'Next >>' "
    Weiter.Click
-   Printlog "'/// now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' ///'"
+   Printlog "now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' "
    Kontext "HTMLExport3"
-   '/// checkbox 'PNG' is checked by default ///'
+   printlog "checkbox 'PNG' is checked by default "
    if (PNG.isChecked <> TRUE) then
       warnlog "Save Graphic as 'PNG' is not checked as default :-("
       PNG.Check
    end if
-   '/// Listbox compression '75%' is selected by default ///'
+   printlog "Listbox compression '75%' is selected by default "
    if (Kompressionswert.GetSelText <> "75%") then
       warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
       Kompressionswert.Select "75%"
    end if
-   '/// checkbox 'low monitor resolution' is checked by default ///'
+   printlog "checkbox 'low monitor resolution' is checked by default "
    if (NiedrigeAufloesung.IsChecked <> TRUE)Then
       warnlog "Monitor resolution 'low' is not selected as default :-("
       NiedrigeAufloesung.Check
    end if
-   '/// checkbox 'export sounds' is checked by default ///'
+   printlog "checkbox 'export sounds' is checked by default "
    if (KlaengeExportieren.IsChecked <> true) then
       warnlog "'Export Sounds' is not checked as default :-("
       KlaengeExportieren.Check
    end if
-   '/// click button 'Next >>' ///'
+   printlog "click button 'Next >>' "
    Weiter.Click
    WaitSlot (1000)
-   Printlog "'/// now we are on the dialog -4- 'Information for the title page' ///'"
+   Printlog "now we are on the dialog -4- 'Information for the title page' "
    Kontext "HTMLExport4"
-   '/// the names you entered in the options have to appeare here! ///'
+   printlog "the names you entered in the options have to appeare here! "
    sTemp = Autor.GetText
    Autor1=Autor.GetText
    if (sTemp <> "Garfield Peanuts") then
@@ -205,24 +206,24 @@ testcase tHtmlExport
    if (sTemp <> "recumbent@sun.com") then
       warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'"
    end if
-   '/// set text in field 'your homepage' ///'
+   printlog "set text in field 'your homepage' "
    Homepage.SetText "mahler"
    AdditionalInformation.SetText "QualityApprooved"
-   '/// click button 'Next >>' ///'
+   printlog "click button 'Next >>' "
    Weiter.Click
    WaitSlot (2000)
-   Printlog "'/// now we are on the dialog -5- 'select button style' ///'"
+   Printlog "now we are on the dialog -5- 'select button style' "
    Kontext "HTMLExport5"
    WaitSlot (5000)
-   '/// checkbox 'Text only' should be checked by default ///'
+   printlog "checkbox 'Text only' should be checked by default "
    if (NurText.ischecked <> TRUE) then
       warnlog "'Text only' is not checked by default :-("
       NurText.check
    end if
-   '/// click button 'Next >>' ///'
+   printlog "click button 'Next >>' "
    Weiter.Click
    WaitSlot (1000)
-   Printlog "'/// now we are on the dialog -6- 'select color scheme' ///'"
+   printlog "now we are on the dialog -6- 'select color scheme' "
    Kontext "HTMLExport6"
    WaitSlot (2000)
    ' maybe check if colour dialog comes up ?! TBO
@@ -231,16 +232,16 @@ testcase tHtmlExport
    'AktiverLink
    'GesichteterLink
    'Hintergrund
-   '/// 'Apply color schemes from document' should be checked per default :-) ///'
+   printlog "'Apply color schemes from document' should be checked per default :-) "
    if (FarbenAusDok.IsChecked <> TRUE) Then
       warnlog "'Apply color schemes from document' should be checked per default :-("
       FarbenAusDok.Check
    end if
    WaitSlot (2000)
-   '/// click button 'Create' ///'
+   printlog "click button 'Create' "
    HTMLExport6.OK
    WaitSlot (5000)
-   Printlog "'/// now we are on the dialog -7- 'Name HTML Design' ///'"
+   Printlog "now we are on the dialog -7- 'Name HTML Design' "
    Kontext "HTMLDesign"
    WaitSlot (1000)
    Designname.SetText "Lem's Standard"
@@ -248,17 +249,15 @@ testcase tHtmlExport
    WaitSlot (3000)
     Kontext "active"
     if active.exists (5) then
-      printlog " the name for this design already exists : '" + active.GetText+ "'"
+        printlog " the name for this design already exists : '" + active.GetText+ "'"
-        printlog " SAY YES!------------------"
         active.yes
     end if
-   '/// check number and names of created files ///'
+   printlog "check number and names of created files "
    Printlog "used file name: '" + sFile + "'"
    Liste(0) = 0
    GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
    WaitSlot (1000)
    x =  ListCount(Liste())
-'   Printlog "gApplication is: " + gApplication   ' For debugging - FHA
    if gApplication = "DRAW" then
       if (x <> "3") then
          Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
@@ -274,7 +273,7 @@ testcase tHtmlExport
             next
       end if
    end if
-   '/// check if fileextension is common - .htm or .html for all files the same ///'
+   printlog "check if fileextension is common - .htm or .html for all files the same "
    Liste(0) = 0
    GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
    WaitSlot (1000)
@@ -288,36 +287,36 @@ testcase tHtmlExport
       Warnlog " htm : " + x
       Warnlog " html: " + i
    end if
-'------------------------------------------------------------------------------------------------------------------------------
+'--------------------------------------------------------
-   Printlog "'///<b> check if design is created in dialog </b>///'"
+   Printlog "check if design is created in dialog"
    WaitSlot (3000)
-   '/// File->Export ///'
+   printlog "File->Export "
    FileExport
    Kontext "ExportierenDlg"
-   '/// Set Filename to "user\\work\\html\\expo.html" ///'
+   printlog "Set Filename to user\\work\\html\\expo.html "
    Dateiname.SetText sFile
    try
-      '/// select Filetype 'HTML...' aka 'WebPage' ///'
+      printlog "select Filetype 'HTML...' aka 'WebPage' "
       Dateityp.Select gHTMLFilter
    catch
       errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
    endcatch
    WaitSlot (1000)
-   '/// click button 'save' ///'
+   printlog "click button 'save' "
    Speichern.Click
    WaitSlot (1000)
       Kontext "Active"
       ' active about overwriting existing file
       if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
+'---------------------------------------------------------
    WaitSlot (1000)
       Kontext "HTMLExport1"
    WaitSlot (1000)
       try
-         '/// now 'existing design' is checkable -> check it ///'
+         printlog "now 'existing design' is checkable -> check it "
          ExistierendesDesign.Check
          WaitSlot (3000)
-         '/// there has to be 1 design in the list, select and delete it ///'
+         printlog "there has to be 1 design in the list, select and delete it "
          x = Designliste.GetItemCount
          if (x <> 1) then
             warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
@@ -344,9 +343,11 @@ testcase tHtmlExport
    Call hCloseDocument
    Printlog "used file name: '" + sFile + "'"
    ' TBOTODO CHECK files contenet !
-   
+  
 endcase 'tHtmlExport
-'-------------------------------------------------------------------------------
+
+'---------------------------------------------------------
+
 testcase tHtmlExport_Webcast
 
     Dim iWaitIndex as integer
@@ -356,7 +357,7 @@ testcase tHtmlExport_Webcast
     dim Liste ( 200 ) as String
     dim sFile as string
 
-   '/// create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ ///'
+   printlog "create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ "
    app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
    app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
    Liste(0) = 0
@@ -376,8 +377,8 @@ testcase tHtmlExport_Webcast
       next i
    end if
 
-   '/// File->Autopillot->Presentation... ///'----------------------------------
+   printlog "File->Autopillot->Presentation... " '---------
-    FileAutopilotPresentation
+   FileAutopilotPresentation
     Kontext "Active"
     if Active.Exists(1) then
         WarnlogActive.GetText
@@ -388,18 +389,18 @@ testcase tHtmlExport_Webcast
         endcatch
         goto endsub
     end if
-    '/// Page 1 of autopilot///'
+    printlog "Page 1 of autopilot"
     Kontext "AutopilotPraesentation1"
-    '/// uncheck 'preview' ///'
+    printlog "uncheck 'preview' "
     Preview.Uncheck
-    '/// click on button 'create' ///'
+    printlog "click on button 'create' "
     AutopilotPraesentation1.OK
     WaitSlot (3000)
-    '************************************************************ Page 1
+    '************************************ Page 1
-    Printlog "'///<b> create a presentation and save it for further references </b>///'"
+    Printlog "create a presentation and save it for further references"
-    '/// start creating the presentation now ///'-------------------------------
+    printlog "start creating the presentation now "'------------------------------
     Printlog "- Create presentation"
-    '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
+    printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
     hTypeKeys "<TAB><F2>"
     WaitSlot (2000)
     Select Case Ucase(gApplication)
@@ -407,32 +408,39 @@ testcase tHtmlExport_Webcast
         case "IMPRESS"      : hMouseClick DocumentImpress,50,50
     end select
     WaitSlot (3000)
-    '/// Type 'This is a test text', select it. ///'
+    printlog "Type 'This is a test text', select it. "
     hTextrahmenErstellen ("This is a test text",10,10,40,20)
     EditSelectAll
+    
     Kontext "TextObjectbar"
-    '/// click 'bold text' in object toolbar ///'
+    
+    if TextObjectbar.Exists <> TRUE then 
+        ViewToolbarsTextFormatting
+    end if
+    WaitSlot (3000) 
+    Kontext "TextObjectbar"
+    printlog "click 'bold text' in object toolbar "
     Fett.Click
     WaitSlot (2000)
-    '/// press [esacpe][tab] to get out of edit mode and select the next placeholder ///'
+    printlog "press [esacpe][tab] to get out of edit mode and select the next placeholder "
     hTypeKeys "<escape><TAB>"
     WaitSlot (1000)
-    '/// SlideShow->Effects ///'
+    printlog "SlideShow->Effects "
     SlideShowCustomAnimation
     WaitSlot (1000)
     Kontext "Tasks"
     WaitSlot (1000)
     EffectAdd.Click
-    '/// Dialog 'Custom Animation' comes up ///'
+    printlog "Dialog 'Custom Animation' comes up "
     kontext
-    '/// Switch to TabPage: Entrance ///'
+    printlog "Switch to TabPage: Entrance "
     active.setPage(TabEntrance)
     Kontext "TabEntrance"
     if TabEntrance.Exists (5) then
           WaitSlot (1000)
-          '/// select effect 'ABC v' :-) ///'
+          printlog "select effect 'ABC v' :-) "
           Effects.Select(5)
-          '/// select speed 'slow' -> first item in list ///'
+          printlog "select speed 'slow' -> first item in list "
           Speed.Select 1
           try
               TabEntrance.Ok
@@ -447,43 +455,41 @@ testcase tHtmlExport_Webcast
           end if
           kontext "Tasks"
       end if
-   WaitSlot (3000)
+    WaitSlot (3000)
-   '/// activate grafik insert dialog by typing [return] ///'
+    printlog "activate grafik insert dialog by typing [return] "
-'Doesnt work, will work when accessability works better - FHA.
 
-'   hTypeKEys "<return>"  ' i love accessability feartures .-)))))))))))))))))
+    InsertGraphicsFromFile
-      InsertGraphicsFromFile
+    Kontext "GrafikEinfuegenDlg"
-      Kontext "GrafikEinfuegenDlg"
+    if GrafikEinfuegenDlg.Exists <> TRUE then
-      if GrafikEinfuegenDlg.Exists <> TRUE then
+        WaitSlot (1000)
-          WaitSlot (1000)
       end if
-      '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
+      printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
       Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
       WaitSlot (3000)
       Oeffnen.Click
    WaitSlot (2000)
-   '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
+   printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
    hTypeKeys "<TAB><F2>"
-   '/// insert text and select the words by typing [strg a] ///'
+   printlog "insert text and select the words by typing [strg a] "
    hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
    EditSelectAll
    WaitSlot (1000)
-   '/// format->character ///'
+   printlog "format->character "
    FormatCharacter
       WaitSlot (2000)
       Kontext
       Active.SetPage TabFont
       Kontext "TabFont"
-      '/// set font size to '18' on tabpage 'font' ///'
+      printlog "set font size to '18' on tabpage 'font' "
       try
          SizeWest.SetText "18"
       catch
          Size.SetText "18"
       endcatch
-   '/// click button OK ///'
+   printlog "click button OK "
    TabFont.OK
    WaitSlot (1000)
-   '/// click 'bold text' in object toolbar ///'
+   printlog "click 'bold text' in object toolbar "
    Kontext "TextObjectbar"
    try
        usebindings
@@ -504,14 +510,14 @@ testcase tHtmlExport_Webcast
        endcatch
    endcatch
    WaitSlot (2000)
-   '/// SlideShow-> CustomAnimation ///'
+   printlog "SlideShow-> CustomAnimation "
    SlideShowCustomAnimation
        WaitSlot (1000)
        Kontext "Tasks"
        WaitSlot (1000)
        EffectChange.Click
        kontext
-       '/// Switch to TabPage: Entrance ///'
+       printlog "Switch to TabPage: Entrance "
        active.setPage(TabEntrance)
        kontext "TabEntrance"
        Effects.TypeKeys "<DOWN>",8
@@ -521,37 +527,37 @@ testcase tHtmlExport_Webcast
        catch
            warnlog "select another effect, assign is not possible"
        endcatch
-'************************************************************ Page 2 Merkur
+'******************************** Page 2 Merkur
-   '/// create a 2nd slide with: insert->slide ///'
+   printlog "create a 2nd slide with: insert->slide "
    InsertSlide
    WaitSlot (2000)
    hTypekeys "<Pagedown>"
    WaitSlot (2000)
-   '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
+   printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
    hTypeKeys "<TAB><F2>"
    WaitSlot (2000)
-   '/// Type 'MERKUR', select it via Edit-Select All///'
+   printlog "Type 'MERKUR', select it via Edit-Select All"
    hTextrahmenErstellen ("MERKUR",10,10,60,30)
    EditSelectAll
    WaitSlot (2000)
-   '/// click 'bold text' in object toolbar ///'
+   printlog "click 'bold text' in object toolbar "
    Kontext "TextObjectbar"
    Fett.Click
    WaitSlot (1000)
-   '/// press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog ///'
+   printlog "press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog "
 '   hTypeKeys "<escape><tab><return>"
    hTypeKeys "<escape><tab>"
    InsertGraphicsFromFile
       WaitSlot (4000)
-      '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
+      printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
       Kontext "GrafikEinfuegenDlg"
       Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
       WaitSlot (3000)
    Oeffnen.Click
    WaitSlot (2000)
-   '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
+   printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
    hTypeKeys "<TAB><F2>"
-   '/// insert text and select the words by typing [strg a] ///'
+   printlog "insert text and select the words by typing [strg a] "
    WaitSlot (1000)
    hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
    hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
@@ -560,22 +566,22 @@ testcase tHtmlExport_Webcast
    hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
    EditSelectAll
    WaitSlot (1000)
-   '/// format->character ///'
+   printlog "format->character "
    FormatCharacter
       WaitSlot (2000)
       Kontext
       Active.SetPage TabFont
       Kontext "TabFont"
-      '/// set font size to '18' on tabpage 'font' ///'
+      printlog "set font size to '18' on tabpage 'font' "
       try
          SizeWest.SetText "16"
       catch
          Size.SetText "16"
       endcatch
-   '/// click button OK ///'
+   printlog "click button OK "
    TabFont.OK
    WaitSlot (2000)
-   '/// click 'bold text' in object toolbar ///'
+   printlog "click 'bold text' in object toolbar "
    Kontext "TextObjectbar"
    try
       Fett.Click 'culprint
@@ -594,65 +600,66 @@ testcase tHtmlExport_Webcast
       endcatch
    endcatch
    WaitSlot (2000)
-   '/// save file with impress filter :  "user\\work\\webcast.odp" ///'
+   printlog "save file with impress filter :  user\\work\\webcast.odp "
    sFile = ConvertPath (gOfficePath + "user\work\webcast")
    if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
    WaitSlot (2000)
    hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
-   Printlog "saved presentation: '" + sFile + ".odp"
+   Printlog "saved presentation: " + sFile + ".odp"
-'----------------------------------- Exportieren als ASP Web-Cast
+'------------------------- Exportieren als ASP Web-Cast
-   Printlog "'///<b> export as webcast ASP </b>///'"
+   Printlog "'export as webcast ASP"
-   '/// File->SaveAs ///'
+   printlog "File->SaveAs "
    FileExport
       WaitSlot (2000)
       Kontext "ExportierenDlg"
       try
-        '/// select Filetype 'HTML...' aka 'WebPage' ///'
+        printlog "select Filetype 'HTML...' aka 'WebPage' "
         gHTMLFilter = Dateityp.GetItemText(1)
         Dateityp.Select(gHTMLFilter)
       catch
          errorlog  " Filter not available :-( : '"+gHTMLFilter+"'"
-         Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
+         Dateityp.Select 1 
+         printlog "Selects the first entry - which should be html "
       endcatch
-      '/// Set Filename to "user\\work\\webcst_asp.html" ///'
+      printlog "Set Filename to user\\work\\webcst_asp.html "
       sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
       Dateiname.SetText sFile
-      '/// click button 'save' ///'
+      printlog "click button 'save' "
       Speichern.Click
       WaitSlot (5000)
       Kontext "Active"' ????????? TBO
          if Active.Exists (5) Then Active.Yes
       WaitSlot (3000)
-      '/// now we are on the dialog -1- 'Assign design' ///'
+      printlog "now we are on the dialog -1- 'Assign design' "
       Kontext "HTMLExport1"
       WaitSlot (2000)
-      '/// click button 'Next >>' ///'
+      printlog "click button 'Next >>' "
       Weiter.Click
       WaitSlot (2000)
-      '/// now we are on the dialog -2- 'Publication Type & Options' ///'
+      printlog "now we are on the dialog -2- 'Publication Type & Options' "
       Kontext "HTMLExport2"
       WaitSlot (2000)
-      Printlog "'/// check 'WebCast' ///"
+      Printlog "check 'WebCast'"
       WebCast.Check
       WaitSlot (2000)
-      Printlog "'/// check 'Active Server Pages (ASP)'  ///"
+      Printlog "check 'Active Server Pages (ASP)'"
       ASP.Check
-      '/// click button 'Next >>' ///'
+      printlog "click button 'Next >>' "
       Weiter.Click
-      '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
+      printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
       Kontext "HTMLExport3"
       WaitSlot (2000)
-      '/// check Save graphics as 'GIF' ///'
+      printlog "check Save graphics as 'GIF' "
       Gif.Check
-      '/// check 'Medium (monitor) Resolution' ///'
+      printlog "check 'Medium (monitor) Resolution' "
       MittlereAufloesung.Check
       WaitSlot (1000)
-      '/// click button 'Create' ///'
+      printlog "click button 'Create' "
       HTMLExport3.OK
       WaitSlot (2000)
-      '/// now we are on the dialog -7- 'Name HTML Design' ///'
+      printlog "now we are on the dialog -7- 'Name HTML Design' "
       Kontext "HTMLDesign"
-      '/// click button 'Do Not Save' ///'
+      printlog "click button 'Do Not Save' "
    if HTMLDesign.Exists Then HTMLDesign.Cancel
    iWaitIndex = 0
    do while HTMLDesign.Exists AND iWaitIndex < 30
@@ -671,15 +678,15 @@ testcase tHtmlExport_Webcast
          printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
       next
    end if
-'----------------------------------- Exportieren als ASP Web-Cast
+'------------------------- Exportieren als ASP Web-Cast
-   Printlog "'///<b> export as webcast PERL </b>///'"
+   Printlog "export as webcast PERL"
    Kontext "DocumentImpress"
    WaitSlot (2000)
-   '/// File->export ///'
+   printlog "File->export "
    FileExport
       WaitSlot (2000)
       Kontext "ExportierenDlg"
-         '/// select Filetype 'HTML...' aka 'WebPage' ///'
+         printlog "select Filetype 'HTML...' aka 'WebPage' "
       try
          Dateityp.Select gHTMLFilter
       catch
@@ -688,51 +695,52 @@ testcase tHtmlExport_Webcast
          printlog "Selected " + Dateityp.GetSelText + " manually."
       endcatch
       WaitSlot (1000)
-      '/// Set Filename to "user\\work\\wbcst_p.html" ///'
+      printlog "Set Filename to user\\work\\wbcst_p.html "
       sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
       Dateiname.SetText sFile
-      '/// click button 'save' ///'
+      printlog "click button 'save' "
       Speichern.Click
       WaitSlot (2000)
-      Kontext "Active"      '/// click button 'save' ///'
+      Kontext "Active"      
+      printlog "click button 'save' "
          if Active.Exists Then Active.Yes
       WaitSlot (2000)
-      '/// now we are on the dialog -1- 'Assign design' ///'
+      printlog "now we are on the dialog -1- 'Assign design' "
       Kontext "HTMLExport1"
       WaitSlot (2000)
-      '/// click button 'Next >>' ///'
+      printlog "click button 'Next >>' "
       Weiter.Click
       WaitSlot (2000)
-      '/// now we are on the dialog -2- 'Publication Type & Options' ///'
+      printlog "now we are on the dialog -2- 'Publication Type & Options' "
       Kontext "HTMLExport2"
       WaitSlot (2000)
-      Printlog "'/// check 'WebCast' ///"
+      Printlog "check 'WebCast'"
       WebCast.Check
       WaitSlot (2000)
-      Printlog "'/// check 'Perl'  ///"
+      Printlog "check 'Perl'"
       PERL.Check
       WaitSlot (1000)
-      '/// 'URL for listeners' ///'
+      printlog "'URL for listeners' "
-    printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
+    printlog "URL for listeners compare to to TBO: "+BeamerURL.GetText
-      '/// set 'URL for presentation' to 'wbcst_prl.html' ///'
+      printlog "set 'URL for presentation' to 'wbcst_prl.html' "
       PraesentationURL.SetText "wbcst_prl"
       WaitSlot (1000)
-      '/// set 'URL for perl scrips' to '/WebCast/cgi-bin/' ///'
+      printlog "set 'URL for perl scrips' to '/WebCast/cgi-bin/' "
       ScriptURL.SetText "/WebCast/cgi-bin/"
     printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
       WaitSlot (1000)           
-      '/// click button 'Next >>' ///'
+      printlog "click button 'Next >>' "
       Weiter.Click
       WaitSlot (1000)
-      '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
+      printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
       Kontext "HTMLExport3"
       WaitSlot (1000)
-      '/// check Save graphics as 'GIF' ///'
+      printlog "check Save graphics as 'GIF' "
       Gif.Check
-      '/// check 'Medium (monitor) Resolution' ///'
+      printlog "check 'Medium (monitor) Resolution' "
       MittlereAufloesung.Check
       WaitSlot (3000)
-      '/// click button 'Create' ///'
+      printlog "click button 'Create' "
    HTMLExport3.OK
    WaitSlot (3000)
    Kontext "HTMLDesign"

testautomation/graphics/optional/includes/global/g_line.inc

@@ -473,10 +473,15 @@ testcase tLineConnect
     '/// Go through the different Corner-styles ///'
     
     hOpenContextMenu
+    sleep 1
     hMenuSelectNr(2) 'Choose "Line"
     
     Kontext "TabLinie"
-    cfirst = CornerStyle.GetSelIndex
+    if TabLinie.Exists(2) then
+        cfirst = CornerStyle.GetSelIndex
+    else
+        sleep 1
+    endif
     
     For i = 1 to CornerStyle.GetItemCount
       Kontext "TabLinie"

testautomation/graphics/optional/includes/global/g_tables.inc

@@ -55,9 +55,17 @@ testcase tiInsertTableUsingMenu
 
     printlog "Inserting table into doc using the menu."
     Call hNewDocument
-    DocumentImpress.UseMenu
+    printlog "Switching between Draw/Impress"
-    hMenuSelectNr(4)
+    if (UCase(gApplication)) = "IMPRESS" then
-    hMenuSelectNr(13)
+        DocumentImpress.UseMenu
+        hMenuSelectNr(4)
+        hMenuSelectNr(13)
+    else
+        DocumentDraw.UseMenu
+        hMenuSelectNr(4)
+        hMenuSelectNr(10)
+    endif
+
 
     printlog "Checking if insert Table dialog comes up."
     Kontext "InsertTableImpress"
@@ -208,23 +216,32 @@ endcase 'tiInsertTableUsingToolbarbutton
 testcase tiTableObjectBar
 
     printlog "Testing TableObjectBar."
+    printlog "Inserting table into doc using the menu."
     Call hNewDocument
-    kontext "Standardbar"
+    printlog "Switching between Draw/Impress"
-
+    if (UCase(gApplication)) = "IMPRESS" then
-    printlog "Checking if button is available."
+        DocumentImpress.UseMenu
-    try
+        hMenuSelectNr(4)
-        Table.Click
+        hMenuSelectNr(13)
-    catch
+    else
-        warnlog "Table button in standardbar is not available!"
+        DocumentDraw.UseMenu
-    endcatch
+        hMenuSelectNr(4)
+        hMenuSelectNr(10)
+    endif
 
     Kontext "InsertTableImpress"
     printlog "Inserting table."
     InsertTableImpress.OK
 
-    Kontext "DocumentImpress"
     printlog "Selecting table for geeting the TableObjectBar."
-    DocumentImpress.TypeKeys "<MOD1 A>"
+    printlog "Switching between Draw/Impress"
+    if (UCase(gApplication)) = "IMPRESS" then
+        Kontext "DocumentImpress"
+        DocumentImpress.TypeKeys "<MOD1 A>"
+    else
+        Kontext "DocumentDraw"
+        DocumentDraw.TypeKeys "<MOD1 A>"
+    endif
 
     printlog " Checking Table button."
     Kontext "TableObjectBar"
@@ -247,7 +264,11 @@ testcase tiTableObjectBar
     Kontext "TableObjectBar"
 
     TableObjectBar.Close
-    Kontext "DocumentImpress"
+    if (UCase(gApplication)) = "IMPRESS" then
+        Kontext "DocumentImpress"
+    else
+        Kontext "DocumentDraw"
+    endif
     Call hToolbarSelect ("Table", true)
     Kontext "TableObjectBar"
 
@@ -263,7 +284,11 @@ testcase tiTableObjectBar
     endif
     Kontext "TableObjectBar"
     TableObjectBar.Close
-    Kontext "DocumentImpress"
+    if (UCase(gApplication)) = "IMPRESS" then
+        Kontext "DocumentImpress"
+    else
+        Kontext "DocumentDraw"
+    endif
     Call hToolbarSelect ("Table", true)
     Kontext "TableObjectBar"
 
@@ -276,12 +301,21 @@ testcase tiTableObjectBar
     else
         warnlog "BordersTB is not up!"
     endif
-    Kontext "DocumentImpress"
+    if (UCase(gApplication)) = "IMPRESS" then
+        Kontext "DocumentImpress"
+    else
+        Kontext "DocumentDraw"
+    endif
 
     printlog "Checking merge cells."
     printlog "Inserting something into cell and select."
-    DocumentImpress.TypeKeys ("a")
+    if (UCase(gApplication)) = "IMPRESS" then
-    DocumentImpress.TypeKeys "<SHIFT RIGHT>"
+        DocumentImpress.TypeKeys ("a")
+        DocumentImpress.TypeKeys "<SHIFT RIGHT>"
+    else
+        DocumentDraw.TypeKeys ("a")
+        DocumentDraw.TypeKeys "<SHIFT RIGHT>"
+    endif
     Kontext "TableObjectBar"
     ZellenVerbinden.Click
     printlog "Cells merged."
@@ -289,23 +323,23 @@ testcase tiTableObjectBar
     printlog "Checking split cells."
     ZelleTeilen.Click
     printlog "Cells split."
-    Kontext "SplitCells"
+    Kontext "ZellenTeilen"
     WaitSlot(1000)
     printlog "SplitCells dialog open."
-    SplitCellInto.ToMax
+    Anzahl.ToMax
-    printlog "Maximum SplitCellCount is " & SplitCellInto.GetText & "."
+    printlog "Maximum SplitCellCount is " & Anzahl.GetText & "."
-    SplitCellInto.ToMin
+    Anzahl.ToMin
-    printlog "Minimum SplitCellCount is " & SplitCellInto.GetText & "."
+    printlog "Minimum SplitCellCount is " & Anzahl.GetText & "."
-    if CellsHorizontally.IsChecked = TRUE then
+    if Horizontal.IsChecked = TRUE then
         printlog "Horizontally is clicked."
     else
         warnlog "Horizontally should be clicked by default!"
     endif
-    SplitEqual.Check
+    GleichmaessigTeilen.Check
     printlog "Split Equal checked."
-    CellsVertically.Check
+    Vertikal.Check
     printlog "Cells vertically checked."
-    SplitCells.OK
+    ZellenTeilen.OK
     printlog " Checking optimize button   'ToDo: button not working"
     'Kontext "TableObjectBar"
     'Optimieren.TearOff
@@ -333,14 +367,26 @@ testcase tiTableObjectBar
 
     printlog "Checking table design button 'ToDo:needs some further examination here!"
     tabledesign.Click
-    kontext "Tasks"
+    
-    if (NOT Tasks.exists) then
+    printlog "Checking for Table Design in Impress TaskBar or for Dialog in Draw."
-        warnlog "Tasks Panel not visible. Opening now."
+    if (UCase(gApplication)) = "IMPRESS" then
-        ViewTaskPane
+        kontext "Tasks"
+        if (NOT Tasks.exists) then
+            warnlog "Tasks Panel not visible. Opening now."
+            ViewTaskPane
+        else
+            printlog "Task Pane visible."
+        endif
     else
-        printlog "Task Pane visible."
+         kontext "TableDesign"
-    endif
+         if TableDesign.exists then
-
+            printlog "Table Design Dialog is up."
+            TableDesign.Close
+        else
+            warnlog "TableDesign Dialog for Draw is missing."
+        endif
+    endif  
+    
     printlog "Checking Properties button."
     Kontext "TableObjectBar"
     TableProperties.Click

testautomation/graphics/optional/includes/impress/i_pengine2.inc

@@ -592,7 +592,7 @@ Function TestAnimations
    Effects.TypeKeys "<HOME>"
    For e = 1 to i
        If e <> p Then
-           if AutomaticPreview.isChecked = TRUE then sleep 2
+           if AutomaticPreview.isChecked = TRUE then sleep 1
            Printlog "Effect has position Nr: " + Effects.GetSelIndex + ". Name of effect: " + Effects.GetSelText
            '/// Select the next entry ///'
            Effects.TypeKeys "<DOWN>"

testautomation/graphics/required/i_updt_1.bas

@@ -74,7 +74,6 @@ sub LoadIncludeFiles
    use "global\system\includes\master.inc"
    use "global\system\includes\gvariabl.inc"
    use "global\required\includes\g_option.inc"
-   use "global\required\includes\g_option2.inc"
    use "global\required\includes\g_customize.inc"
     gApplication   = "IMPRESS"
     Call GetUseFiles()

testautomation/graphics/required/includes/global/id_opt_2.inc

@@ -45,35 +45,15 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
     dim iCount2 as integer
     dim sUnitOptions as string
     dim sUnitDialog as string
-    dim gApplicationTemp as string
+   
-
-    gApplicationTemp = gApplication
-    gApplication = "WRITER"
-    printlog "Take Measurement Units from Writer "
-    hNewDocument
-    ToolsOptions
-    ' Take General Measurement units from writer, there are only 5!
-    hToolsOptions ("WRITER","General")
-
-    iCount2 = Masseinheit.GetItemCount
-    for i=1 to iCount2
-        Masseinheit.select i
-        printlog "(" + i + "/" + iCount2 + "): '" + Masseinheit.getSelText + "' - " + GetMeasUnit(Tabulatorenabstand.getText)
-    next i
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    hCloseDocument()
-    gApplication = gApplicationTemp
-
-	sleep 1
     hNewDocument
 	sleep 1
     ToolsOptions
     hToolsOptions (sApplication,"General")
+    iCount2 = Masseinheit.GetSelIndex
+    printlog "current measurement unit is: " & iCount2
     iCount = Masseinheit.GetItemCount
-    if (iCount <> iCount2) then
+   
-        'warnlog "Inconsistence between Writer: '" + iCount2 + "' and " + sApplication + ": '" + iCount + "'"
-    endif
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     printlog "----------------------"
@@ -149,6 +129,13 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
         TabEinzuegeUndAbstaende.cancel
 
     next i
+    
+    printlog "Setting back measurement to " & iCount2
+    ToolsOptions
+    hToolsOptions (sApplication,"General")
+    Masseinheit.Select(iCount2)
+    Kontext "ExtrasOptionenDlg"
+    ExtrasOptionenDlg.OK
 
     hCloseDocument
 endcase 'tToolsOptionsMeasurementUnit 

testautomation/math/optional/includes/m_105.inc

@@ -389,6 +389,7 @@ testcase tToolsCatalog
                 catch
                     qaErrorLog "Can not leave object selection"
                     ' somehow not triggerable on macos
+                    call hCloseDocument
                     goto endsub
                 endcatch
                 Kontext "DocumentMath"

testautomation/spreadsheet/optional/c_solver.bas

@@ -0,0 +1,68 @@
+'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_solver.bas,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: oc $ $Date: 2009/08/03 08:05:48 $
+'*
+'* 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 : Functionality Test - Solver in Spreadsheet
+'*
+'\***********************************************************************
+
+
+sub main       
+    use "spreadsheet/optional/includes/solver/c_solver.inc"
+    use "spreadsheet/tools/includes/c_select_tools.inc"
+    use "spreadsheet/tools/includes/c_cell_tools.inc"
+    use "spreadsheet/tools/includes/c_l10n_tools.inc"
+    
+    Printlog "--------------------------------------------------"
+    Printlog "---  Test for Solver in calc    ---"
+    Printlog "--------------------------------------------------"
+    
+    Call hStatusIn("spreadsheet", "c_solver.bas")                
+    
+    Call tExampleCalculation
+	Call tExampleCalculation2
+        
+    Call hStatusOut
+end sub
+'
+'-------------------------------------------------------------------------------
+'
+sub LoadIncludeFiles
+    use "global/system/includes/master.inc"
+    use "global/system/includes/gvariabl.inc"
+    use "global/tools/includes/optional/t_spreadsheet_tools1.inc"
+    gApplication   = "CALC"
+    call getusefiles
+    
+end sub

testautomation/spreadsheet/optional/includes/solver/c_solver.inc

@@ -0,0 +1,231 @@
+'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_solver.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: oc $ $Date: 2008/09/04 09:18:19 $
+'*
+'* 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 : Functionality Test - Solver
+'*
+'************************************************************************
+'*
+' #1 tExampleCalculation
+' #1 tExampleCalculation2
+'*
+'\***********************************************************************
+
+testcase tExampleCalculation
+
+	dim sdecimalseperator as string
+	
+	sDecimalseperator = GetDecimalSeperator
+
+    printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\Solver_testdoc01.ods'"
+    Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\Solver_testdoc01.ods" ))
+    printlog " If the file is not editable, click the edit button on standardbar"
+    Call sMakeReadOnlyDocumentEditable
+	printlog " Tools - Solver"
+	ToolsSolver
+	Kontext "Solver"
+	printlog " Set target cell to $E$15"
+	TargetCell.SetText "$E$15"
+	printlog " Set Optimize result to Minimum"
+	OptimizeMinimum.Check
+	printlog " Set 'By changing cells' to $G$13:$G$14"
+	ChangingCells.SetText "$G$13:$G$14"
+	printlog " Set the first cell reference under 'Limiting conditions' to $C$15, the first Operator to '<=' and the first Value to 4"
+	CellReference1.SetText "$C$15"
+	Operator1.Select 1
+	Value1.SetText "4"
+	printlog " Set the second cell reference under 'Limiting conditions' to $D$15, the second Operator to '>=' and the second Value to 10"
+	CellReference2.SetText "$D$15"
+	Operator2.Select 3
+	Value2.SetText "10"
+	printlog " Set the third cell reference under 'Limiting conditions' to $G$15, the third Operator to '=' and the third Value to 300."
+	CellReference3.SetText "$G$15"
+	Operator3.Select 2
+	Value3.SetText "300"
+	printlog " Click on Solve"
+	Solve.Click
+	printlog " A new dialog opens informing you that a result was found."
+	Kontext "SolvingResult"
+	if not SolvingResult.exists then
+        warnlog "Normally there should be a Success dialog, but there is none"
+		Kontext "NoSolution"
+		if NoSolution.exists then
+			NoSolution.OK
+			Kontext "Solver"
+			Solver.Cancel
+			Call hCloseDocument
+			goto endsub
+		else 
+			Kontext "Solver"
+			Solver.Cancel
+			Call hCloseDocument
+			goto endsub
+		end if
+    end if
+	printlog " Click on the 'Restore Previous' Button. The Solver dialog is shown again."
+	SolvingResult.Cancel
+	Kontext "Solver"
+	printlog " Press ALT+S . The Solved dialog opens again. Press the Enter key."
+	Solve.Click
+	Kontext "SolvingResult"
+	SolvingResult.OK
+	Kontext "DocumentCalc"
+	printlog " C15 must show 4.0000 mg, D15 must show 18.0000 mg, E15 must show 22.0000 ct, G13 is set to 120, G14 shows 180 and therefore G15 300."
+	call fCalcCompareCellValue ("C15","4" & sDecimalseperator & "0000 mg")
+	call fCalcCompareCellValue ("D15","18" & sDecimalseperator & "0000 mg")
+	call fCalcCompareCellValue ("E15","22" & sDecimalseperator & "0000 ct")
+	call fCalcCompareCellValue ("G13","120")
+	call fCalcCompareCellValue ("G14","180")
+	call fCalcCompareCellValue ("G15","300")
+	printlog " Tools - Solver"
+	ToolsSolver
+	Kontext "Solver"
+	printlog " Change limitatation value 3 from 300 to 500"
+	Value3.SetText "500"
+	printlog " Press ALT+S to solve the problem and keep the results."
+	Solve.Click
+	Kontext "SolvingResult"
+	SolvingResult.OK
+	Kontext "DocumentCalc"
+	printlog " The results should be :C15 must show 4.0000 mg, D15 must show 51.3333 mg, E15 must show 68.6667 ct, G13 is set to 520, G14 shows -20 and therefore G15 500"
+	call fCalcCompareCellValue ("C15","4" & sDecimalseperator & "0000 mg")
+	call fCalcCompareCellValue ("D15","51" & sDecimalseperator & "3333 mg")
+	call fCalcCompareCellValue ("E15","68" & sDecimalseperator & "6667 ct")
+	call fCalcCompareCellValue ("G13","520")
+	call fCalcCompareCellValue ("G14","-20")
+	call fCalcCompareCellValue ("G15","500")
+	printlog " So the solution found is correct but not usefull. Let's limit the lemonade to positive values by adding a new limitation."
+	printlog " Tools - Solver"
+	ToolsSolver
+	kontext "Solver"
+	printlog " Set the fourth cell reference under 'Limiting conditions' to $G$14, the fourth Operator to '>=' and the fourth Value to 0."
+	CellReference4.SetText "$G$14"
+	Operator4.Select 3
+	Value4.SetText "0"
+	printlog " Click on Solve."
+	Solve.Click
+	printlog " The No Solution dialog opens, telling you that the model is not solvable with the given limiting conditions."
+	Kontext "NoSolution"
+	if not NoSolution.exists then
+		warnlog "Normally the NoSolution dialog appears, but there is none"
+	end if
+	printlog " Click on Ok at this dialog, the Solver dialog should be shown."
+	NoSolution.OK
+	Kontext "Solver"
+	Solver.Close
+	printlog " Close document"
+    Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------
+
+testcase tExampleCalculation2
+	
+    printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\stest_large.ods'"
+    Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\stest_large.ods" ))
+    printlog " If the file is not editable, click the edit button on standardbar"
+    Call sMakeReadOnlyDocumentEditable
+	printlog " Tools - Solver"
+	ToolsSolver
+	Kontext "Solver"
+	printlog " Target Cell: $Y$2"
+	TargetCell.SetText "$Y$2"
+	printlog " Optimize to: Maximum"
+	OptimizeMaximum.Check
+	printlog " Changing cells: $B$5:$B$134"
+	ChangingCells.SetText "$B$5:$B$134"
+	printlog " Limiting Conditions: Cell reference: $D$2:$W$2 Operator : <= Value: $D$3:$W$3"
+	CellReference1.SetText "$D$2:$W$2"
+	Operator1.Select 1
+	Value1.SetText "$D$3:$W$3"
+	printlog " Copy the following String to the second cell reference input line: $D$2:$W$2 <= $D$3:$W$3"
+	CellReference2.SetText "$D$2:$W$2"
+	Operator1.Select 2
+	Value2.SetText "$D$3:$W$3"
+	printlog " Click on Solve"
+	Solve.Click
+	printlog " You get a new Warning dialog talking about Invalid condition."
+	Kontext "NoSolution"
+	if not NoSolution.exists then
+		warnlog "Normally there should be a No Solution dialog"
+	end if
+	NoSolution.OK
+	Kontext "Solver"
+	printlog " Click on the remove Button next to the second Value field to remove the faulty condition."
+	Remove2.Click
+	if Value2 = "$D$3:$W$3" then
+		warnlog "The condition was not removed"
+	end if
+	printlog " Click on Options button, the Options dialog opens"
+	Options.Click
+	Kontext "SolverOptions"
+	if not SolverOptions.exists then
+		warnlog "The Options dialog is not open"
+	end if
+	printlog " Tag 'Assume variables as integer'"
+	SolverSettings.Select (1)
+	SolverSettings.TypeKeys "<SPACE>"
+	printlog " Tag 'Assume variables not negative'"
+	SolverSettings.Select (2)
+	SolverSettings.TypeKeys "<SPACE>"
+	printlog " Select SolvingTime"
+	SolverSettings.Select (5)
+	printlog " Click on Edit button to open the Editdialog"
+	SolverSettingsEdit.Click
+	Kontext "SolverEditSetting"
+	printlog " Set time to 10 and close editdialog by OK"
+	SolverNumeric.SetText "10"
+	SolverEditSetting.OK
+	Kontext "SolverOptions"
+	printlog " Click OK on SolverOptionsdialog"
+	SolverOptions.OK
+	Kontext "Solver"
+	printlog " Click on Solve"
+	Solve.Click
+	printlog " A new dialog named Solving... opens telling you about the time limit"
+	sleep (15)
+	printlog " After that a new dialog pops up saying 'No Solution was found. The time limit was reached.'"
+	Kontext "NoSolution"
+	printlog " Click the Ok button to close the No Solution dialog."
+	NoSolution.OK
+	printlog " Click close to leave the Solver dialog."
+	Kontext "Solver"
+	Solver.Close
+    printlog " Close document"
+    Call hCloseDocument
+
+endcase
+
+

testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc

@@ -0,0 +1,305 @@
+'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: w_alternative_text.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: hde $ $Date: 2008-08-18 12:30:39 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : helge.delfs@sun.com
+'*
+'* short description : Test Alternative Text for objects in writer
+'*
+'\************************************************************************
+
+sub w_alternative_text
+
+	Call tPictureAlternativeText
+	Call tFrameAlternativeText
+	Call tOLEAlternativeText	
+
+
+end sub
+
+'-------------------------------------------------------------------------
+
+testcase tPictureAlternativeText
+
+	printlog "- New writer document"	
+	Call hNewDocument
+    
+	printlog "- Insert a picture"	
+	InsertGraphicsFromFile
+	Kontext "GrafikEinfuegenDlg"
+	Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\alternative_text\jolink.jpg")
+	Sleep 1
+	Oeffnen.Click
+	Sleep 2
+
+    printlog "- Context menu on the picture, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems picture is not selected => Description Object could not be opened"
+	endcatch	
+	
+    printlog "- Type 'TitleText' in the Title field"
+	Kontext "DescriptionObject"
+	DescriptionTitle.Settext "TitleText"	
+	
+    printlog "- Type 'This Is A Description'"
+	DescriptionText.Settext "This Is A Description"	
+	
+    printlog "- Close the dialog"
+	DescriptionObject.Ok
+
+    printlog "- Context menu on the picture, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems picture is not selected => Description Object could not be opened"
+	endcatch	
+
+	printlog "Check that the Title and Description fields have been saved correctly"
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel	
+	
+    printlog "- Format - Picture"
+	FormatGraphics
+	
+	printlog "The 'Alternative' field must be filled with the content of the Title field (='TitleText')"
+	Kontext
+	Active.Setpage TabZusaetze
+	Kontext "TabZusaetze"
+	if Alternativtext.Gettext <> "TitleText" then
+		Warnlog "Alternatice text in pictures options is not set"
+	endif
+	TabZusaetze.Cancel
+	
+    printlog "- Save the document"
+	Call hFileSaveAsKill ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
+	Call hCloseDocument
+	
+    printlog "- Reload"
+	Call hFileOpen ( gOfficePath + "user\work\tPictureAlternativeText.odt" )		
+	' select graphic
+	Call wTypeKeys ("<SHIFT F4>")
+	
+	printlog "Check that the Title and Description fields have been saved correctly"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems picture is not selected => Description Object could not be opened"
+	endcatch	
+
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel
+	
+    printlog "- Format - Picture"
+	FormatGraphics
+	Kontext
+	Active.Setpage TabZusaetze
+	Kontext "TabZusaetze"
+	if Alternativtext.Gettext <> "TitleText" then
+		Warnlog "Alternatice text in pictures options is not set after save and reload"
+	endif
+	TabZusaetze.Cancel
+
+	printlog "- close document"
+ 	Call hCloseDocument
+
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tFrameAlternativeText
+
+	printlog "- New writer document"	
+	Call hNewDocument
+    
+	printlog "- Insert a frame"	
+	Call wInsertFrame
+	
+    printlog "- Context menu on the frame, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems Frame is not selected => Description Object could not be opened"
+	endcatch	
+	
+    printlog "- Type 'TitleText' in the Title field"
+	Kontext "DescriptionObject"
+	DescriptionTitle.Settext "TitleText"	
+	
+    printlog "- Type 'This Is A Description'"
+	DescriptionText.Settext "This Is A Description"	
+	
+    printlog "- Close the dialog"
+	DescriptionObject.Ok
+
+    printlog "- Context menu on the frame, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems frame is not selected => Description Object could not be opened"
+	endcatch	
+
+	printlog "Check that the Title and Description fields have been saved correctly"
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel		
+	
+    printlog "- Save the document"
+	Call hFileSaveAsKill ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
+	Call hCloseDocument
+	
+    printlog "- Reload"
+	Call hFileOpen ( gOfficePath + "user\work\tFrameAlternativeText.odt" )		
+	' select frame
+	Call wTypeKeys ("<SHIFT F4>")
+	
+	printlog "Check that the Title and Description fields have been saved correctly"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems frame is not selected => Description Object could not be opened"
+	endcatch	
+
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel
+	
+	printlog "- close document"
+ 	Call hCloseDocument
+
+
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tOLEAlternativeText
+
+	printlog "- New writer document"	
+	Call hNewDocument
+    
+	printlog "- Insert a OLE"	
+    InsertObjectOLEObject
+    Kontext "OLEObjektEinfuegen"
+    NeuErstellen.Check
+    OLEObjektEinfuegen.Ok
+	Sleep 2	
+	Call gMouseClick (10,10)	
+	Call wTypeKeys "<SHIFT F4>"
+	
+    printlog "- Context menu on the OLE, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems OLE is not selected => Description Object could not be opened"
+	endcatch	
+	
+    printlog "- Type 'TitleText' in the Title field"
+	Kontext "DescriptionObject"
+	DescriptionTitle.Settext "TitleText"	
+	
+    printlog "- Type 'This Is A Description'"
+	DescriptionText.Settext "This Is A Description"	
+	
+    printlog "- Close the dialog"
+	DescriptionObject.Ok
+
+    printlog "- Context menu on the OLE, choose 'Description'"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems OLE is not selected => Description Object could not be opened"
+	endcatch	
+
+	printlog "Check that the Title and Description fields have been saved correctly"
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel		
+	
+    printlog "- Save the document"
+	Call hFileSaveAsKill ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
+	Call hCloseDocument
+	
+    printlog "- Reload"
+	Call hFileOpen ( gOfficePath + "user\work\tOLEAlternativeText.odt" )		
+	' select OLE
+	Call wTypeKeys ("<SHIFT F4>")
+	
+	printlog "Check that the Title and Description fields have been saved correctly"
+	try
+		ContextDescriptionObject
+	catch
+		Warnlog "Seems OLE is not selected => Description Object could not be opened"
+	endcatch	
+
+	Kontext "DescriptionObject"
+	if DescriptionTitle.Gettext <> "TitleText" then
+		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
+	endif	
+	if DescriptionText.Gettext <> "This Is A Description" then
+		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
+	endif
+	DescriptionObject.Cancel
+	
+	printlog "- close document"
+ 	Call hCloseDocument
+	
+	
+
+endcase

testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc

@@ -77,7 +77,7 @@ testcase tDefaultSetting_1
 
     printlog " 'Simplified Chinese to Traditional Chinese' should be Checked by default"
      if NOT SChineseToTChinese.IsChecked then
-         Warnlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
+         QAErrorlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
      end if
    ChineseTranslation.Cancel
 

testautomation/writer/optional/includes/fields/w_fields6.inc

@@ -788,10 +788,8 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tFunctions_13
-Warnlog "#i102752# - tFunctions_13 outcommented due to bug."
-goto endsub
 
-    Dim sCombineCharacter as String
+	Dim sCombineCharacter as String
     Dim sTestFile as String
 
     sCombineCharacter = "ABC"

testautomation/writer/optional/includes/formatpage/w_formatpage1.inc

@@ -591,8 +591,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tFormatPage_11
-Warnlog "#i102752# - tFormatPage_11 outcommented due to bug."
-goto endsub
 
     Dim sTestFile    as String
     Dim sMarginsLeft as String
@@ -652,8 +650,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tFormatPage_12
-Warnlog "#i102752# - tFormatPage_12 outcommented due to bug."
-goto endsub
 
     Dim sTestFile    as String
     Dim sMarginsLeft as String
@@ -716,8 +712,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tFormatPage_13
-Warnlog "#i102752# - tFormatPage_13 outcommented due to bug."
-goto endsub
 
     Dim sTestFile as String
     Dim sPage1 as String

testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc

@@ -896,9 +896,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphIndent13
-Warnlog "#i102752# - tParagraphIndent13 outcommented due to bug."
-goto endsub
-
 
   Dim sTestFile  as String
   Dim sAtLeast   as String
@@ -968,8 +965,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphIndent14
-Warnlog "#i102752# - tParagraphIndent14 outcommented due to bug."
-goto endsub
 
   Dim sTestFile  as String
   Dim sAtLeast   as String
@@ -1104,9 +1099,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphIndent16
-Warnlog "#i102752# - tParagraphIndent16 outcommented due to bug."
-goto endsub
-
 
   Dim sTestFile    as String
   Dim sPositionX as String

testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc

@@ -63,9 +63,6 @@
 '\***********************************************************************
 
 testcase tParagraphAlignment1
-Warnlog "#i102752# - tParagraphAlignment1 outcommented due to bug."
-goto endsub
-
 
   Dim sTestFile as String
   Dim sPositionX as String
@@ -114,8 +111,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphAlignment2
-Warnlog "#i102752# - tParagraphAlignment2 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
   Dim sPositionX as String
@@ -155,12 +150,10 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphAlignment3
-Warnlog "#i102752# - tParagraphAlignment3 outcommented due to bug."
-goto endsub
 
-  Dim sTestFile as String
+	Dim sTestFile as String
 
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
+	sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
 
   PrintLog "- Test 'Center' alignment"
   '/// Test 'Center' alignment
@@ -194,8 +187,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphAlignment4
-Warnlog "#i102752# - tParagraphAlignment4 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
   Dim sPositionX1 as String
@@ -267,8 +258,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphAlignment5
-Warnlog "#i102752# - tParagraphAlignment5 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
 
@@ -308,8 +297,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphAlignment6
-Warnlog "#i102752# - tParagraphAlignment6 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
   Dim sPositionX1 as String
@@ -380,8 +367,6 @@ endcase
 '--------------------------------------------------------------------------
 
 testcase tParagraphAlignment7
-Warnlog "#i102752# - tParagraphAlignment7 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
   Dim sPositionX as String
@@ -442,8 +427,6 @@ endcase
 '--------------------------------------------------------------------------
 
 testcase tParagraphAlignment8
-Warnlog "#i102752# - tParagraphAlignment8 outcommented due to bug."
-goto endsub
 
   Dim bAsianLanguage as Boolean
   Dim sTestFile as String
@@ -515,8 +498,6 @@ endcase
 '--------------------------------------------------------------------------
 
 testcase tParagraphAlignment9
-Warnlog "#i102752# - tParagraphAlignment9 outcommented due to bug."
-goto endsub
 
   Dim bAsianLanguage as Boolean
   Dim sTestFile as String

testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc

@@ -63,8 +63,6 @@
 '\***********************************************************************
 
 testcase tParagraphTabs1
-Warnlog "#i102752# - tParagraphTabs1 outcommented due to bug."
-goto endsub
 
   Dim sTestFile as String
   Dim sTabs      as String
@@ -111,8 +109,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphTabs2
-Warnlog "#i102752# - tParagraphTabs2 outcommented due to bug."
-goto endsub
 
   Dim sTestFile  as String
   Dim sTabs       as String
@@ -159,8 +155,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphTabs3
-Warnlog "#i102752# - tParagraphTabs3 outcommented due to bug."
-goto endsub
 
   Dim sTestFile    as String
   Dim sTabs        as String
@@ -207,9 +201,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphTabs4
-Warnlog "#i102752# - tParagraphTabs4 outcommented due to bug."
-goto endsub
-
 
   Dim sTestFile    as String
   Dim sTabs        as String
@@ -350,8 +341,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps1
-Warnlog "#i102752# - tParagraphDropCaps1 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sPositionX    as String
@@ -404,8 +393,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps2
-Warnlog "#i102752# - tParagraphDropCaps2 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sPositionX    as String
@@ -460,8 +447,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps3
-Warnlog "#i102752# - tParagraphDropCaps3 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sPositionX    as String
@@ -516,8 +501,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps4
-Warnlog "#i102752# - tParagraphDropCaps4 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sPositionX    as String
@@ -567,8 +550,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps5
-Warnlog "#i102752# - tParagraphDropCaps5 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sSpace        as String
@@ -657,8 +638,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tParagraphDropCaps7
-Warnlog "#i102752# - tParagraphDropCaps7 outcommented due to bug."
-goto endsub
 
   Dim sTestFile     as String
   Dim sTestText     as String

testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc

@@ -51,8 +51,6 @@
 '\***********************************************************************
 
 testcase tInsertGraphic_21
-Warnlog "#i102752# - tInsertGraphic_21 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight as Integer  , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -152,8 +150,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_22
-Warnlog "#i102752# - tInsertGraphic_22 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -253,8 +249,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_23
-Warnlog "#i102752# - tInsertGraphic_23 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -354,8 +348,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_24
-Warnlog "#i102752# - tInsertGraphic_24 outcommented due to bug."
-goto endsub
 
   Dim iTop as Integer  , iBottom as Integer , iCenterVertical as Integer
 
@@ -416,8 +408,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_25
-Warnlog "#i102752# - tInsertGraphic_25 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -538,8 +528,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_26
-Warnlog "#i102752# - tInsertGraphic_26 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -660,8 +648,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_27
-Warnlog "#i102752# - tInsertGraphic_27 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
@@ -782,8 +768,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_28
-Warnlog "#i102752# - tInsertGraphic_28 outcommented due to bug."
-goto endsub
 
   Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
 

testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc

@@ -53,8 +53,6 @@
 '\***********************************************************************
 
 testcase tInsertGraphic_31
-Warnlog "#i102752# - tInsertGraphic_31 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer
   Dim iRight as Integer
@@ -181,8 +179,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_32
-Warnlog "#i102752# - tInsertGraphic_32 outcommented due to bug."
-goto endsub
 
   Dim iLeft as Integer
   Dim iRight as Integer
@@ -299,8 +295,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_33
-Warnlog "#i102752# - tInsertGraphic_33 outcommented due to bug."
-goto endsub
 
     Dim iLeft as Integer
     Dim iRight as Integer
@@ -427,8 +421,6 @@ endcase
 '-------------------------------------------------------------------------------------------
 
 testcase tInsertGraphic_34
-Warnlog "#i102752# - tInsertGraphic_34 outcommented due to bug."
-goto endsub
 
   Dim iTop as Integer
   Dim iBottom as Integer

testautomation/writer/optional/includes/navigator/w_navigator.inc

@@ -217,7 +217,7 @@ endcase
 ' **********************************************************************
 
 testcase tViewNavigator3
-    QaErrorLog "#i94614 + i102752# - tViewNavigator3 outcommented"
+    WarnLog "#i94614# - tViewNavigator3 outcommented"
     goto endsub
 
     Dim NavigationTearOff as boolean

testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc

@@ -46,6 +46,7 @@ sub w_issuezilla_regression
     Call i75027
     Call i76637
     Call i88656
+	Call i103265
 
 end sub
 
@@ -441,3 +442,79 @@ testcase i88656
 endcase
 
 '--------------------------------------------------------------------------
+
+testcase i103265
+
+	Dim i as integer
+
+	printlog "ODF Hyperlinks in TOCs"
+	Call hNewDocument
+    printlog "- Open test document"
+	Call hFileOpen ( gTesttoolPath + "writer\optional\input\regression\issuezilla\i103265.odt" )
+    printlog "- Update TOC"
+	ToolsUpdateAllIndexes
+	
+	printlog "Check that every hyperlink jumps correctly to its target"
+	For i = 1 to 3
+		' point cursor to beginning of document
+		Call wTypeKeys "<MOD1 HOME>"
+		' point cursor to index entry
+		Call wTypeKeys "<DOWN>", 4 + i
+		'execute Hyperlink
+		ContextOpenHyperlink
+		' check if it jumps to correct target
+		Call wTypeKeys "<SHIFT END>"
+		EditCopy
+		Select Case i
+			Case 1:
+				if GetClipboardText <> "# 1 Test" then
+					Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
+				end if
+			Case 2:
+				if GetClipboardText <> "1. Test" then
+					Warnlog "First hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
+				end if
+			Case 3:
+				if GetClipboardText <> "Test " then
+					Warnlog "First hyperlink not correctly jumped to. Not 'Test' but " & GetClipboardtext
+				end if
+		end select
+	next i
+
+	printlog "- Save as HTML"
+	gApplication = "HTML"	
+	Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html", "HTML" )
+    Call hCloseDocument
+	
+    printlog "- Reload"
+	Call hFileOpen ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html" )		
+	printlog "Check that every hyperlink jumps correctly to its target"
+	For i = 1 to 3
+		' point cursor to beginning of document
+		Call wTypeKeys "<MOD1 HOME>"
+		' point cursor to index entry
+		Call wTypeKeys "<DOWN>", 5 + i
+		'execute Hyperlink
+		ContextOpenHyperlink
+		' check if it jumps to correct target
+		Call wTypeKeys "<SHIFT END>"
+		EditCopy
+		Select Case i
+			Case 1:
+				if GetClipboardText <> "# 1 Test" then
+					Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
+				end if
+			Case 2:
+				if GetClipboardText <> "1. Test" then
+					Warnlog "First hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
+				end if
+			Case 3:
+				if GetClipboardText <> "1Test " then
+					Warnlog "First hyperlink not correctly jumped to. Not 'Test ' but " & GetClipboardtext
+				end if
+		end select
+	next i
+	
+	Call hCloseDocument
+
+endcase

testautomation/writer/optional/includes/textframes/w_textframes4.inc

@@ -364,8 +364,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_57
-Warnlog "#i102752# - tTextframes_57 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -445,8 +443,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_58
-Warnlog "#i102752# - tTextframes_58 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -525,8 +521,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_59
-Warnlog "#i102752# - tTextframes_57 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim sPositionY1 as String
@@ -613,8 +607,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_60
-Warnlog "#i102752# - tTextframes_60 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim sPositionY1 as String
@@ -707,8 +699,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_61
-Warnlog "#i102752# - tTextframes_61 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -787,8 +777,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_62
-Warnlog "#i102752# - tTextframes_62 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -867,8 +855,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_63
-Warnlog "#i102752# - tTextframes_63 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -959,8 +945,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_64
-Warnlog "#i102752# - tTextframes_64 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -1051,10 +1035,8 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_65
-Warnlog "#i102752# - tTextframes_65 outcommented due to bug."
-goto endsub
 
-    Dim sTestFile     as String
+	Dim sTestFile     as String
     Dim iHorizontal   as Integer
     Dim sHorizontalBy as String
     Dim sPositionX1   as String
@@ -1132,8 +1114,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_66
-Warnlog "#i102752# - tTextframes_66 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -1213,8 +1193,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_67
-Warnlog "#i102752# - tTextframes_67 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -1305,8 +1283,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_68
-Warnlog "#i102752# - tTextframes_68 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -1397,8 +1373,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_69
-Warnlog "#i102752# - tTextframes_69 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer
@@ -1478,8 +1452,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_70
-Warnlog "#i102752# - tTextframes_70 outcommented due to bug."
-goto endsub
 
     Dim sTestFile     as String
     Dim iHorizontal   as Integer

testautomation/writer/optional/includes/textframes/w_textframes5.inc

@@ -113,8 +113,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_72
-Warnlog "#i102752# - tTextframes_72 outcommented due to bug."
-goto endsub
 
     printlog "- 'Vertical to' when anchor is inside frame"
     '/// 'Vertical to' when anchor is inside frame
@@ -153,8 +151,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_73
-Warnlog "#i102752# - tTextframes_73 outcommented due to bug."
-goto endsub
 
     printlog "- 'Vertical to' when anchor is inside document body"
     '/// 'Vertical to' when anchor is inside document body
@@ -370,8 +366,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_80
-Warnlog "#i102752# - tTextframes_80 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -428,8 +422,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_81
-Warnlog "#i102752# - tTextframes_81 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -486,8 +478,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_82
-Warnlog "#i102752# - tTextframes_82 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -544,8 +534,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_83
-Warnlog "#i102752# - tTextframes_83 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -612,8 +600,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_84
-Warnlog "#i102752# - tTextframes_84 outcommented due to bug."
-goto endsub
 
     Dim sTestFile   as String
     Dim iVertical   as Integer
@@ -680,8 +666,6 @@ endcase
 '-----------------------------------------------------------------
 
 testcase tTextframes_85
-Warnlog "#i102752# - tTextframes_85 outcommented due to bug."
-goto endsub
 
     Dim sTestFile       as String
     Dim iVerticalTop    as Integer

testautomation/writer/optional/w_alternative_text.bas

@@ -0,0 +1,65 @@
+'**************************************************************************
+'* 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: w_alternative_text.bas,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: hde $ $Date: 2008-06-18 09:11:25 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : helge.delfs@sun.com
+'*
+'* short description : Alternative Texts For Writer Objects
+'*
+'\***********************************************************************
+
+sub main
+    Dim StartTime
+    StartTime = Now()
+
+    use "writer\tools\includes\w_tools.inc"
+
+    use "writer\optional\includes\alternative_text\w_alternative_text.inc"
+
+    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
+    printlog Chr(13) + "******* Writer - Alternative Text - Test *******"
+
+    Call hStatusIn ( "writer", "w_alternative_text.bas" )
+    Call w_alternative_text
+    Call hStatusOut
+
+    Printlog Chr(13) + "End of Autotest:"
+    Printlog "Duration: "+ WieLange ( StartTime )
+    Printlog "Date: " +  Date + "    Time: " + Time
+
+end sub
+
+sub LoadIncludeFiles
+    use "global\system\includes\master.inc"
+    use "global\system\includes\gvariabl.inc"
+    Call GetUseFiles
+    gApplication = "WRITER"
+end sub

testautomation/writer/required/includes/w_005_.inc

@@ -760,14 +760,9 @@ endcase
 '-----------------------------------------------------------
 
 testcase tFormatAnchor
-Warnlog "#i102752# - tFormatAnchor outcommented due to bug."
-goto endsub
 
     PrintLog "- Format / Anchor"
 	
-	Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
-	goto endsub
-	
     printlog " Open new document"
     Call hNewDocument
     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
@@ -901,9 +896,6 @@ endcase
 
 testcase tFormatAnchorArea
 
-	Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
-	goto endsub
-
     PrintLog "- Format / Anchor drawing objects"
     if gApplication = "HTML" then
         printlog "Not in WriterWeb!"

testautomation/writer/required/includes/w_005b_.inc

@@ -218,8 +218,6 @@ endcase
 '-----------------------------------------------------------
 
 testcase tFormatAlignment
-Warnlog "#i102752# - tFormatAlignment outcommented due to bug."
-goto endsub
 
     PrintLog "- Format / Alignment"
 
@@ -416,8 +414,6 @@ endcase
 '-----------------------------------------------------------
 
 testcase tFormatAnchorObject
-Warnlog "#i102752# - tFormatAnchorObject outcommented due to bug."
-goto endsub
 
     PrintLog "- Format / Anchor Frame"
 
@@ -887,9 +883,6 @@ endcase
 
 testcase tFormatAlignmentArea
 
-	Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
-	goto endsub
-
     PrintLog "- Format / Alignment drawing objects"
     if gApplication = "HTML" then
         printlog "Not in WriterWeb!"
@@ -1418,10 +1411,8 @@ endcase
 '-----------------------------------------------------------
 
 testcase tHtmlDocFormatAlignment
-Warnlog "#i102752# - tHtmlDocFormatAlignment outcommented due to bug."
-goto endsub
 
-    gApplication = "HTML"
+	gApplication = "HTML"
     PrintLog "- Format / Alignment"
 
     printlog " Open new document"

testautomation/writer/required/includes/w_010_1.inc

@@ -628,8 +628,6 @@ endcase
 '-----------------------------------------------------------
 
 testcase tGraphicAnchor
-Warnlog "#i102752# - tGraphicAnchor outcommented due to bug."
-goto endsub
 
     printlog "- Graphic-(Frame)-Objectbar: Anchor"
     printlog " Open new document"

testautomation/writer/required/includes/w_011_.inc

@@ -447,9 +447,6 @@ endcase
 
 testcase tZORest
 
-	Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
-	goto endsub
-
     printlog "- Draw Functions-Objectbar: Rest"
     if gApplication = "HTML" then
         printlog "This test does not apply to HTML documents"