'encoding UTF-8  Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org.  If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* owner : oliver.craemer@sun.com
'*
'* short description : Chart2 functional tests
'*
'\************************************************************************

sub ch2_lvl1a

    Call tPlotOptions
    Call tChartShapes

end sub


testcase tPlotOptions
	
	Dim sOutputFile as string
	sOutputFile = convertpath(gOfficepath & "user\work\hiddenCells.ods")

	printlog "Load simple chart document"
	if fLoadVerySimpleChartAndSaveLocal() > 0 then
		warnlog "Loading test document seems to have failed -> Check this out!"
		goto endsub
	endif    
	printlog "Select chart using navigator"
	if fSelectFirstOLE = -1 then
		warnlog "It was not possible to select the chart object!"
		Call hCloseDocument
		goto endsub
	endif	

	printlog "Edit / Object / Edit"
	EditObjectEdit        

    printlog "Select DataSeries A by toolbar selectorbox"
	Kontext "DocumentChart"
	call fChartSelectElement (8)        

	printlog "Invoke Format::ObjectProperties"
	Kontext "Toolbar"
	FormatSelection.Click        

	printlog "Select tab page Options"
	Kontext
	Active.SetPage TabDataSeriesOptions
	Kontext "TabDataSeriesOptions"
	printlog "activate checkbox 'Include values from hidden cells'"
	try
		IncludeHiddenCells.Check
	catch
		Warnlog "checkbox hidden or disabled"
		Call hCloseDocument
		goto endsub
	endcatch
		
	printlog "Close and reopen data series dialog - checkbox should be still activated"
	TabDataSeriesOptions.Ok
	Kontext "DocumentChart"
	FormatSelection
	printlog "Select tab page Options"
	Kontext
	Active.SetPage TabDataSeriesOptions
	Kontext "TabDataSeriesOptions"
	if Not IncludeHiddenCells.IsChecked then
		Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore"
		TabDataSeriesOptions.Cancel
		Kontext "DocumentCalc"
		DocumentCalc.TypeKeys "<Escape>"		
		call hCloseDocument
		goto endsub		
	endif

	TabDataSeriesOptions.Ok
	
	printlog "save and reopen file - checkbox still must be checked"
	if NOT hFileSaveAsKill (sOutputFile) then
		warnlog "Saving test document failed -> Aborting"
		Kontext "DocumentCalc"
		DocumentCalc.TypeKeys "<Escape>"		
		call hCloseDocument
		goto endsub
	endif    		
	Call hCloseDocument
	
    Call hFileOpen(sOutputFile)
	if fSelectFirstOLE = -1 then
		warnlog "It was not possible to select the chart object!"
		Call hCloseDocument
		goto endsub
	endif	

	EditObjectEdit        

    printlog "Select DataSeries A by toolbar selectorbox"
	call fChartSelectElement (8)        

	printlog "Invoke Format::ObjectProperties"
	Kontext "Toolbar"
	FormatSelection.Click    	
	Kontext
	Active.SetPage TabDataSeriesOptions
	Kontext "TabDataSeriesOptions"
	if Not IncludeHiddenCells.IsChecked then
		Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore"
		TabDataSeriesOptions.Cancel
		Kontext "DocumentCalc"
		DocumentCalc.TypeKeys "<Escape>"		
		call hCloseDocument
		goto endsub		
	endif
	
	'/// Close dialog with Cancel-button
	TabDataSeriesOptions.Cancel
	'/// Close document
	Kontext "DocumentCalc"
	DocumentCalc.TypeKeys "<Escape>"

	Call hCloseDocument
endcase

'
'-------------------------------------------------------------------------
'
testcase tChartShapes

	Dim sLocalFile as string
	Dim sLocalFileXLS as string
	Dim sFormatXLS as string
	sLocalFile = convertpath(gOfficepath & "user\work\chartshapes.ods")
	sLocalFileXLS = convertpath(gOfficepath & "user\work\chartshapes.xls")
	sFormatXLS = "MS Excel 97"
	
	printlog " Load simple chart document"
    if fLoadVerySimpleChartAndSaveLocal() > 0 then
        warnlog "Loading test document seems to have failed -> Check this out!"
        goto endsub
    endif
    printlog " Select chart using navigator"
    call fSelectFirstOLE
    printlog " Invoke Edit::Object::Edit to enter Inplace Mode"
    EditObjectEdit
    printlog " Verify that the drawbar is visible"
    Kontext "DrawBar"
    
    qaerrorlog "#i107003# disabled because of bug in toolbars"
'    if Not DrawBar.Exists then 
'    	Call hToolbarSelect("Drawing", true)
'    endif

    printlog " Insert a shape to the chart by <STRG-RETURN>"
    Kontext "DocumentChart"
    DocumentChart.TypeKeys "<F6>",4
    Kontext "DrawBar"
    sleep (1)
    DrawBar.typekeys "<TAB>",TRUE
    DrawBar.typekeys "<TAB>",TRUE
    DrawBar.typekeys "<TAB>",TRUE
    DrawBar.typekeys "<TAB>",TRUE
    DrawBar.typekeys "<MOD1 RETURN>",TRUE
    printlog " Rename inserted shape"
    Kontext "DocumentChart"
    sleep (1)
    DocumentChart.OpenContextMenu
    sleep (1)
    hMenuSelectNr (6)
    Kontext "NameDlgObject"
    NameField.SetText "ChartShape1"
    NameDlgObject.OK
    printlog " Leave Chart"
    Kontext "DocumentCalc"
    DocumentCalc.TypeKeys "<Escape>"
    printlog "Select chart using navigator"
    call fSelectFirstOLE   
    printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
    EditObjectEdit
    printlog " Check if shape is still there"
    Kontext "DocumentChart"
    DocumentChart.typekeys "<SHIFT TAB>"
    Sleep (1)
    Kontext "Toolbar"
    if ChartElementSelector.GetSelText <> "ChartShape1" then
    	warnlog "Something is wrong with the shape"
    endif
    printlog " Leave Chart"
    Kontext "DocumentCalc"
    DocumentCalc.TypeKeys "<Escape>"
    printlog " Save document with the default calc filter"
    call hFileSaveAsKill ( sLocalFile )
    printlog " Save document to xls"
    if NOT hFileSaveAsWithFilterKill ( sLocalFileXLS , sFormatXLS ) then
        warnlog "Saving test document localy failed -> Aborting"
        call hCloseDocument
        goto endsub
    end if
	printlog " Close document"
    call hCloseDocument
    printlog " Open document"
    call hFileOpen ( sLocalFile )
	printlog "Select chart using navigator"
    call fSelectFirstOLE   
    printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
    EditObjectEdit
    printlog " Check if shape is still there"
    Kontext "DocumentChart"
    DocumentChart.typekeys "<SHIFT TAB>"
    Sleep (1)
    Kontext "Toolbar"
    if ChartElementSelector.GetSelText <> "ChartShape1" then
    	warnlog "Something is wrong with the shape"
    endif
    printlog " Leave Chart"
    Kontext "DocumentCalc"
    DocumentCalc.TypeKeys "<Escape>"
    printlog " Close document"
    Call hCloseDocument
	call hFileOpen ( sLocalFileXLS )
	printlog "Select chart using navigator"
    call fSelectFirstOLE   
    printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
    EditObjectEdit
    printlog " Check if shape is still there"
    Kontext "DocumentChart"
    DocumentChart.typekeys "<SHIFT TAB>"
    Sleep (1)
    Kontext "Toolbar"
    if ChartElementSelector.GetSelText <> "ChartShape1" then
    	warnlog "Something is wrong with the shape"
    endif
    printlog " Leave Chart"
    Kontext "DocumentCalc"
    DocumentCalc.TypeKeys "<Escape>"
    printlog " Close document"
    Call hCloseDocument
    
endcase