diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2008-10-01 14:59:18 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2008-10-01 14:59:18 +0000 |
| commit | ac5d01db85bc2b2bd3f793aa9147c237f0cfcfbf (patch) | |
| tree | e9e3077a7602a786bce1340a1d90d8bca989ee8c /testautomation/chart2/tools | |
| parent | 1577d17d8faaf2e29bf2a9526288578a9acf0a0d (diff) | |
CWS-TOOLING: integrate CWS qaerrorlogfixes1_DEV300
Diffstat (limited to 'testautomation/chart2/tools')
| -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 |