From ac5d01db85bc2b2bd3f793aa9147c237f0cfcfbf Mon Sep 17 00:00:00 2001
From: Vladimir Glazounov <vg@openoffice.org>
Date: Wed, 1 Oct 2008 14:59:18 +0000
Subject: CWS-TOOLING: integrate CWS qaerrorlogfixes1_DEV300

---
 testautomation/chart2/tools/ch_tools_common.inc | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'testautomation/chart2/tools')

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
-- 
cgit