diff options
Diffstat (limited to 'testautomation/chart2/tools/ch_tools_common.inc')
-rw-r--r-- | testautomation/chart2/tools/ch_tools_common.inc | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/testautomation/chart2/tools/ch_tools_common.inc b/testautomation/chart2/tools/ch_tools_common.inc index 8a2c98772f4f..76915006a130 100644 --- a/testautomation/chart2/tools/ch_tools_common.inc +++ b/testautomation/chart2/tools/ch_tools_common.inc @@ -42,6 +42,7 @@ ' #1 fLoadVerySimpleChartAndSaveLocal ' Load file with a very simple chart and save it loacally ' #1 fConvertChartTo3D ' Function to invoke the 'Insert::Titles...' dialog ' #1 fOpenTestDocumentAndSelectDataRange ' Opens a test document and executes FormatDataRange +' #1 fOpenTestDocumentAndInsertChart ' Opens a test document and selects a data range at a specific position '* '\************************************************************************************************ @@ -180,3 +181,27 @@ function fOpenTestDocumentAndSelectDataRange(sInputFile as string) as BOOLEAN call DialogTest ( TabChartTypeDataRange ) fOpenTestDocumentAndSelectDataRange = TRUE end function +' +'------------------------------------------------------------------------- +' +function fOpenTestDocumentAndInsertChart(sInputFile as string) as BOOLEAN + fOpenTestDocumentAndInsertChart = FALSE + call hFileOpen(sInputFile) + sleep(2) + Call sMakeReadOnlyDocumentEditable() + Kontext "DocumentCalc" + printlog "Type <STRG+HOME>" + DocumentCalc.TypeKeys "<MOD1 HOME>" + printlog "Type twice <RIGHT> cursor key" + DocumentCalc.TypeKeys "<RIGHT>" , 2 + printlog "Type thrice <DOWN> cursor key" + DocumentCalc.TypeKeys "<DOWN>" , 3 + printlog "Menu Insert chart to open chart wizard" + InsertChart + try + WaitSlot() + fOpenTestDocumentAndInsertChart = TRUE + catch + fOpenTestDocumentAndInsertChart = FALSE + endcatch +end function |