diff options
author | Ivo Hinkelmann <ihi@openoffice.org> | 2010-03-02 18:43:33 +0100 |
---|---|---|
committer | Ivo Hinkelmann <ihi@openoffice.org> | 2010-03-02 18:43:33 +0100 |
commit | 77944290c8246c1743395f5ed2b647e5c8a69e42 (patch) | |
tree | 5ee204416610f643d5eb3e3a9c31a125c539fa8b /testautomation/chart2/tools/ch_tools_common.inc | |
parent | 4c258f10f0cd41138caf0df5fdb91b7f6d6e4a5a (diff) | |
parent | be6db479ddf376bd6276da5314c895f0034134bd (diff) |
CWS-TOOLING: integrate CWS sb111
Diffstat (limited to 'testautomation/chart2/tools/ch_tools_common.inc')
-rw-r--r-- | testautomation/chart2/tools/ch_tools_common.inc | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/testautomation/chart2/tools/ch_tools_common.inc b/testautomation/chart2/tools/ch_tools_common.inc index 67f67d3e3f23..311e8c354f74 100644 --- a/testautomation/chart2/tools/ch_tools_common.inc +++ b/testautomation/chart2/tools/ch_tools_common.inc @@ -42,6 +42,8 @@ sub fInsertOLE as BOOLEAN 'Insert Chart OLE in Document + 'Get localised OLE names + call GetOleDefaultNames() fInsertOLE = FALSE '/// Insert / Object / OLE InsertObjectOLEObject @@ -51,9 +53,8 @@ sub fInsertOLE as BOOLEAN if Objekttyp.getItemcount < 1 then warnlog "There are no OLE-Objects in the listbox" endif - '/// Select 3rd entry in listbox (which should be the chart) - Objekttyp.TypeKeys "<HOME>" - Objekttyp.TypeKeys "<Down>", 2 + '/// Select chart in listbox + Objekttyp.Select gOLEChart '/// Quit dialog using OK OLEObjektEinfuegen.OK sleep(2) |