'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 ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* owner : oliver.craemer@oracle.com '* '* short description : Chart resource test - Menu INSERT '* '************************************************************************ '* ' #1 tInsertTitle ' #1 tInsertAxes ' #1 tInsertGrids ' #1 tInsertLegend ' #1 tInsertDataLabels ' #1 tInsertTrendLines ' #1 tInsertMeanValueLines ' #1 tInsertYErrorBars ' #1 tInsertSpecialCharacter '* '\************************************************************************ testcase tInsertTitle '///Dialog test after invoking Insert::Title '/// Load simple chart document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Convert chart to 3D (this will enable all controls in Titles dialog) if NOT fConvertChartTo3D() then warnlog "Conversion of chart to 3D failed -> Quit testcase" Call hCloseDocument goto endsub endif '/// Invoke Insert::Titles if fInvokeTitlesDialog() > 0 then warnlog "Something went wrong trying to invoke Titles dialog -> Check this out! (Previous log may help you)" Call hCloseDocument goto endsub endif '/// Check existence of dialog Kontext "InsertTitleDialog" Call DialogTest ( InsertTitleDialog ) '/// Quit dialog using Cancel button InsertTitleDialog.Cancel '/// Close document Kontext "DocumentCalc" DocumentCalc.TypeKeys "" Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertAxes '///Dialog test after invocation of Insert::Axes '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Invoke Insert::Axes if fInvokeAxesDialog() > 0 then warnlog "Something went wrong trying to invoke Axes dialog -> Check this out! (Previous log may help you)" Call hCloseDocument goto endsub endif '/// Check existence of dialog Kontext "InsertAxesDialog" Call DialogTest ( InsertAxesDialog ) '/// Quit dialog using Cancel button InsertAxesDialog.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertGrids '///Dialog test after invocation of Insert::Grids '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Invoke Insert::Grids if fInvokeGridsDialog() > 0 then warnlog "Something went wrong trying to invoke Grids dialog -> Check this out! (Previous log may help you)" Call hCloseDocument goto endsub endif '/// Check existence of dialog Kontext "InsertGridsDialog" Call DialogTest ( InsertGridsDialog ) '/// Quit dialog using Cancel button InsertGridsDialog.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertLegend '///Dialog test after invocation of Insert::Legend '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Invoke Insert::Legend if fInvokeLegendDialog() > 0 then warnlog "Something went wrong trying to invoke Legend dialog -> Check this out! (Previous log may help you)" Call hCloseDocument goto endsub endif '/// Check existence of dialog Kontext "InsertLegendDialog" Call DialogTest ( InsertLegendDialog ) '/// Quit dialog using Cancel button InsertLegendDialog.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertDataLabels '///Dialog test after invocation of Insert::Data Labels '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Invoke Insert::Data Labels if fInvokeDataLabelsDialog() > 0 then warnlog "Something went wrong trying to invoke Labels dialog -> Check this out!" Call hCloseDocument goto endsub endif '/// Check 'Show Value' to enable all controls Kontext "InsertLabelsDialog" if fSetShowValue ( TRUE ) > 0 then warnlog "Something went wrong trying to check 'Show Value' -> Check this out!" endif '/// Check existence of dialog Call DialogTest ( InsertLabelsDialog ) '/// Quit dialog using Cancel button InsertLabelsDialog.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertTrendLines '///Dialog test after invocation of Insert::TrendLines '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit Kontext "DocumentChart" printlog "Insert TrendLines" InsertTrendlines '/// Check existence of dialog Kontext "InsertTrendlinesDialog" Call DialogTest ( InsertTrendlinesDialog ) '/// Quit dialog using Cancel button InsertTrendlinesDialog.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertMeanValueLines '///Testing Insert::MeanValueLines '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Insert::MeanValueLines if fInsertMeanValueLines() > 0 then warnlog "Something went wrong trying to insert mean value lines -> Check this out!" Call hCloseDocument goto endsub endif Kontext "DocumentChart" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------------------- ' testcase tInsertYErrorBars '///Dialog test after invocation of Insert::YErrorBars '/// Load simple test document if fLoadVerySimpleChartAndSaveLocal() > 0 then warnlog "Loading test document seems to have failed -> Check this out!" goto endsub endif '/// Select chart using navigator call fSelectFirstOLE '/// Invoke Edit::Object::Edit to enter Inplace Mode EditObjectEdit '/// Invoke Insert::TrendLines if fInvokeInsertYErrorBarsDialog() > 0 then warnlog "Something went wrong trying to invoke YErrorBars Lines dialog -> Check this out!" Call hCloseDocument goto endsub endif '/// Check existence of dialog Kontext "InsertYErrorBarsDLG" Call DialogTest ( InsertYErrorBarsDLG ) '/// Quit dialog using Cancel button InsertYErrorBarsDLG.Cancel Kontext "DocumentCalc" DocumentCalc.TypeKeys "" '/// Close document Call hCloseDocument endcase ' '------------------------------------------------------------- ' testcase tInsertSpecialCharacter 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 "Invoke Insert::Titles" if fInvokeTitlesDialog() > 0 then warnlog "Something went wrong trying to invoke Titles dialog -> Check this out! (Previous log may help you)" Call hCloseDocument goto endsub endif Kontext "InsertTitleDialog" if fSetTitle(MainTitle , "Test title") = 0 then Kontext "InsertTitleDialog" InsertTitleDialog.OK Kontext "DocumentChart" printlog "Type to select the title" DocumentChart.TypeKeys "" , TRUE DocumentChart.UseMenu printlog "Select menu 'Insert'" hMenuSelectNr(4) 'INSERT printlog "Select menu item 'Special Character'." hMenuSelectNr(9) 'SPECIAL CHARACTER printlog "Close the 'Insert Special Character'-dialog." Kontext "Sonderzeichen" Call Dialogtest( Sonderzeichen ) Sonderzeichen.CANCEL else warnlog "It was not possible to set the title. Test aborted!" Kontext "InsertTitleDialog" InsertTitleDialog.Cancel endif Call hCloseDocument endcase