Commits

Anonymous committed f0706e8

CWS-TOOLING: integrate CWS automationdev300m51cat0
2009-07-02 14:14:05 +0200 oc r273649 : #i103276# Dialog closed and reopened
2009-07-02 13:27:41 +0200 wg r273644 : i103272, adding some missing underscores

Comments (0)

Files changed (2)

testautomation/graphics/tools/id_tools_2.inc

 
 '-------------------------------------------------------------------------------
 
-sub im_002
+sub im_002_
     printLog Chr(13) + "--------- im_002_     ---------- $Date: 2008-06-16 10:43:16 $ $Revision: 1.1 $ "
     Call tiEditDeleteSlide
 end sub
 
 '-------------------------------------------------------------------------------
 
-sub im_003
+sub im_003_
     printLog Chr(13) + "--------- im_003_     ----------"
     Call tiViewMasterView
     Call tiViewSlideMaster
 
 '-------------------------------------------------------------------------------
 
-sub im_004
+sub im_004_
     printLog Chr(13) + "---------  im_004_     ----------"
     Call tiInsertSlideExpandSummary
 end sub
 
 '-------------------------------------------------------------------------------
 
-sub im_005
+sub im_005_
     printLog Chr(13) + "---------  im_005_     ---------- "
     Call tiFormatModifyLayout ' impress only
 end sub
 
 '-------------------------------------------------------------------------------
 
-sub im_007
+sub im_007_
     printLog Chr(13) + "---------  im_007_     ---------- "
     Call tSlideShowSlideShow
     Call tSlideShowRehearseTimings
 
 '-------------------------------------------------------------------------------
 
-sub im_011
+sub im_011_
     printLog Chr(13) + "---------  im_011_     ---------- "
     Call tiDiaLeiste    ' only IMPRESS
 end sub
 
 '-------------------------------------------------------------------------------
 
-sub D_002
+sub D_002_
     printLog Chr(13) + "---------  D_002_     ---------- "
     Call tdEditCrossFading
     Call tdEditLayer
 
 '-------------------------------------------------------------------------------
 
-sub D_003
+sub D_003_
     printLog Chr(13) + "---------  D_003_     ---------- "
     call tdViewSlide
     call tdViewPagePane
 
 '-------------------------------------------------------------------------------
 
-sub D_005
+sub D_005_
     printLog Chr(13) + "---------  D_005_     ---------- "
     call tiFormatLayer ' only in draw !!!!!
 end sub

testautomation/spreadsheet/required/includes/c_upd_datamenu.inc

     Datenfeld.Cancel
     sleep 2
     Kontext "Datenpilot"
-    '/// Select second item (Sum – 2001) in 'Data Fields' by 3 <TAB>
-    printlog " Select second item (Sum – 2001) in 'Data Fields' by 3 <TAB>"
-    Datenpilot.TypeKeys "<TAB><TAB><TAB>",TRUE
-    Sleep 3
+	printlog " Close 'DataPilot' dialog with 'Cancel'"
+    Datenpilot.Cancel
+	printlog " Reopen 'DataPilot' dialog by 'Data – Datapilot – Start'"
+    DataDataPilotStart
+    sleep 1
+    Kontext "Datenpilot"
+    '/// Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>
+    printlog " Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>"
+    Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB><TAB><TAB><TAB>",TRUE
+    Sleep 1
     '/// Click on 'Options' button to open 'Data Filed' dialog
     printlog " Click on 'Options' button to open 'Data Filed' dialog"
     If Optionen.IsEnabled Then
         Call hCloseDocument
         goto endsub
     end if
-	sleep 3
+	sleep 1
     Kontext "DataFieldsFunctionDlg"
     '/// Click on 'More' button
     printlog " Click on 'More' button"