From ca1a4a31acf9cd360c820fd3683cb176d120daa5 Mon Sep 17 00:00:00 2001
From: Oliver Craemer <oc@openoffice.org>
Date: Tue, 12 Jan 2010 14:39:50 +0100
Subject: #i108260# get independent from OLE sequenz

---
 testautomation/chart2/tools/ch_tools_common.inc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'testautomation/chart2/tools/ch_tools_common.inc')

diff --git a/testautomation/chart2/tools/ch_tools_common.inc b/testautomation/chart2/tools/ch_tools_common.inc
index 3385960456b3..b9568d0edb38 100644
--- a/testautomation/chart2/tools/ch_tools_common.inc
+++ b/testautomation/chart2/tools/ch_tools_common.inc
@@ -48,6 +48,8 @@
 
 sub fInsertOLE as BOOLEAN
 'Insert Chart OLE in Document
+	'Get localised OLE names
+	call GetOleDefaultNames()
     fInsertOLE = FALSE
     '/// Insert / Object / OLE
     InsertObjectOLEObject
@@ -57,9 +59,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)
-- 
cgit