CWS-TOOLING: integrate CWS automation006

2009-05-26 13:25:30 +0200 jsk  r272296 : #i102088# - final cosmetic touch
2009-05-25 14:40:06 +0200 jsk  r272244 : #i102202# - quite a chunk.
2009-05-25 05:29:48 +0200 jsk  r272215 : #i102202# - Cleanup, code refactored, indention and headers fixed
2009-05-25 04:55:58 +0200 jsk  r272214 : #i102088# - update .bas-files to load call GetOLEDefaultNames from external file
2009-05-20 12:55:18 +0200 jsk  r272116 : #i102088# Replace old OLE stuff, get it from API, localized

1 files changed, 271 insertions, 302 deletions

diff --git a/testautomation/graphics/optional/includes/global/g_toolbars.inc b/testautomation/graphics/optional/includes/global/g_toolbars.inc
index e9d50483fb83..747956514ae7 100755
--- a/testautomation/graphics/optional/includes/global/g_toolbars.inc
+++ b/testautomation/graphics/optional/includes/global/g_toolbars.inc
@@ -1,7 +1,7 @@
 'encoding UTF-8  Do not remove or change this line!
 '**************************************************************************
 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'* 
+'*
 '* Copyright 2008 by Sun Microsystems, Inc.
 '*
 '* OpenOffice.org - a multi-platform office productivity suite
@@ -46,350 +46,319 @@
 
 testcase Toolboxen_Rechtecke
     Printlog "- Toolbox rectangles"
-Dim i
+    Dim i
 
- Call hNewDocument						'/// New impress document '///
 
-      Printlog "- 1.: Create rectangles, apply shadow and move them around"
+    Printlog "- 1.: Create rectangles, apply shadow and move them around"
 
-   for i = 1 to 4
-       select case i
-      case 1 : Printlog "- Create Rectangle Filled"
-               WL_SD_RechteckVoll				'/// create rectangles using the toolbox  '///
-           sleep 1
-      case 2 : Printlog "- Create Rectangle Round-Filled"
-           WL_SD_RechteckRundVoll
-               sleep 1
-      case 3 : Printlog "- Create Quadrat Filled"
-           WL_SD_QuadratVoll
-               sleep 1
-      case 4 : Printlog "Create Quadrat Round-Filled"
-           WL_SD_QuadratRundVoll
-               sleep 1
-    end select
+    for i = 1 to 4
+        select case i
+        case 1 : Printlog "- Create Rectangle Filled"
+            sleep 1
+        case 2 : Printlog "- Create Rectangle Round-Filled"
+            WL_SD_RechteckRundVoll
+            sleep 1
+        case 3 : Printlog "- Create Quadrat Filled"
+            WL_SD_QuadratVoll
+            sleep 1
+        case 4 : Printlog "Create Quadrat Round-Filled"
+            WL_SD_QuadratRundVoll
+            sleep 1
+        end select
 
-      Kontext "DocumentImpress"
-      gMouseMove (20,20,60,60)					'/// select rectangle '///
-      sleep 2
-      FormatArea						'/// Format Area '///
-      Kontext
-      Active.SetPage TabSchatten				'/// TabSchatten '///
-      Kontext "TabSchatten"
-      Anzeigen.Click						'/// activate shadow '///
-      TabSchatten.OK						'/// close TabSchatten '///
-      sleep 1
-      Kontext "DocumentImpress"
-      gMouseClick 30,30						'/// deselect rectangle '///
-      gMouseMove 30,30,90,90					'/// move rectangle '///
+        Kontext "DocumentImpress"
+        sleep 2
+        Kontext
+        Kontext "TabSchatten"
+        sleep 1
+        Kontext "DocumentImpress"
 
-      gMouseClick 90,90						'/// select rectangle '///
-      gMouseMove 90,90,30,30					'/// move rectangle '///
 
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
+        gMouseClick 30,30
+        gMouseMove 30,30,90,90
 
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
+        gMouseClick 90,90
+        gMouseMove 90,90,30,30
 
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
+        gMouseClick 30,30
+        gMouseMove 30,30,90,90
 
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
+        gMouseClick 90,90
+        gMouseMove 90,90,30,30
 
-      hTypeKeys "<DELETE>"			'/// delete rectangle '///
-      sleep 2
-   next i
-  Call hCloseDocument						'/// close document '///
+        sleep 2
+    next i
 endcase
 
 '**********************************************************************
 testcase Toolboxen_Kreise
     Printlog "- Toolbox Circles"
 
-Dim i
+    Dim i
 
- Call hNewDocument						'/// New document '///
 
 
-  Printlog "- Create circles and ellipses"
-  for i = 1 to 7
-       select case i						'/// create all possible circles and ellipses from toolbar '///
-      case 1 : WL_SD_Ellipsen
-           sleep 1
-           Kontext "DocumentImpress"
-           gMouseMove 20,20,60,60
-      case 2 : WL_SD_EllipseVoll
-               sleep 1
-               Kontext "DocumentImpress"
-               gMouseMove 20,20,60,60
-      case 3 : WL_SD_EllipsensegmentVoll
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-               gMouseClick 20,30
-               gMouseClick 20,28
-      case 4 : WL_SD_EllipsenabschnittVoll
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-               gMouseClick 20,30
-               gMouseClick 20,28
-      case 5 : WL_SD_KreisVoll
-           sleep 1
-           kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 6 : WL_SD_KreissegmentVoll
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-               gMouseClick 20,30
-               gMouseClick 20,28
-      case 7 : WL_SD_KreisabschnittVoll
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-               gMouseClick 20,30
-               gMouseClick 20,28
-       end select
+    Printlog "- Create circles and ellipses"
+    for i = 1 to 7
+    case 1 : WL_SD_Ellipsen
+        sleep 1
+        Kontext "DocumentImpress"
+        gMouseMove 20,20,60,60
+    case 2 : WL_SD_EllipseVoll
+        sleep 1
+        Kontext "DocumentImpress"
+        gMouseMove 20,20,60,60
+    case 3 : WL_SD_EllipsensegmentVoll
+        sleep 1
+        kontext "DocumentImpress"
+        gMouseMove 20,20,40,40
+        gMouseClick 20,30
+        gMouseClick 20,28
+    case 4 : WL_SD_EllipsenabschnittVoll
+        sleep 1
+        kontext "DocumentImpress"
+        gMouseMove 20,20,40,40
+        gMouseClick 20,30
+        gMouseClick 20,28
+    case 5 : WL_SD_KreisVoll
+        sleep 1
+        kontext "DocumentImpress"
+        gMouseMove 20,20,40,40
+    case 6 : WL_SD_KreissegmentVoll
+        sleep 1
+        kontext "DocumentImpress"
+        gMouseMove 20,20,40,40
+        gMouseClick 20,30
+        gMouseClick 20,28
+    case 7 : WL_SD_KreisabschnittVoll
+        sleep 1
+        kontext "DocumentImpress"
+        gMouseMove 20,20,40,40
+        gMouseClick 20,30
+        gMouseClick 20,28
+    end select
 
-      FormatArea
-      Kontext
-      Active.SetPage TabSchatten				'/// Activate shadow for the object '///
-      Kontext "TabSchatten"
-      Anzeigen.Click
-      TabSchatten.OK
-      sleep 1
-      Kontext "DocumentImpress"
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90					'/// move the object over document '///
+    FormatArea
+    Kontext
+    Kontext "TabSchatten"
+    Anzeigen.Click
+    TabSchatten.OK
+    sleep 1
+    Kontext "DocumentImpress"
+    gMouseClick 30,30
 
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
+    gMouseClick 90,90
+    gMouseMove 90,90,30,30
 
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
+    gMouseClick 30,30
+    gMouseMove 30,30,90,90
 
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
+    gMouseClick 90,90
+    gMouseMove 90,90,30,30
 
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
+    gMouseClick 30,30
+    gMouseMove 30,30,90,90
 
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
+    gMouseClick 90,90
+    gMouseMove 90,90,30,30
 
-      hTypeKeys "<DELETE>"			'/// delete object '///
-      sleep 2
-   next i
- Call hCloseDocument						'/// close document '///
+    sleep 2
+next i
 endcase
 '***********************************************************************************
 testcase Toolboxen_3dObjekte
     Printlog "- Toolbox 3D objects"
-Dim i
+    Dim i
 
- Call hNewDocument 						'/// New document '///
 
-  Printlog "- Create 3D objects"
-   for i = 1 to 8
-      printlog "doing now: "+i
-       select case i
-      case 1 : WL_SD_Wuerfel				'/// create all 3d objects from toolbox '///
-           sleep 1
-           Kontext "DocumentImpress"
-           gMouseMove 20,20,60,60
-      case 2 : WL_SD_Kugel
-               sleep 1
-               Kontext "DocumentImpress"
-               gMouseMove 20,20,60,60
-      case 3 : WL_SD_Zylinder
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 4 : WL_SD_Kegel
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 5 : WL_SD_Pyramide
-           sleep 1
-           kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 6 : WL_SD_Torus
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 7 : WL_SD_Schale
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 8 : WL_SD_Halbkugel
-       end select
-      sleep 2
-      FormatArea
-      sleep 2
-      Kontext
-      Active.SetPage TabSchatten					'/// apply shadow to 3d objects '///
-      Kontext "TabSchatten"
-      Anzeigen.Click
-      TabSchatten.OK
-      sleep 1
-      Kontext "DocumentImpress"
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90						'/// move objects in document around '///
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
-      gMouseClick 30,30
-      gMouseMove 30,30,90,90
-      gMouseClick 90,90
-      gMouseMove 90,90,30,30
-      hTypeKeys "<DELETE>"				'/// delete 3d objects '///
-      sleep 2
-   next i
-      gMouseClick 99,99
-      sleep 1
-   Printlog "- 3D-body created"
-  Call hCloseDocument							'/// close document '///
+    Printlog "- Create 3D objects"
+    for i = 1 to 8
+        printlog "doing now: "+i
+        select case i
+            sleep 1
+            Kontext "DocumentImpress"
+            gMouseMove 20,20,60,60
+        case 2 : WL_SD_Kugel
+            sleep 1
+            Kontext "DocumentImpress"
+            gMouseMove 20,20,60,60
+        case 3 : WL_SD_Zylinder
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 4 : WL_SD_Kegel
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 5 : WL_SD_Pyramide
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 6 : WL_SD_Torus
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 7 : WL_SD_Schale
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 8 : WL_SD_Halbkugel
+        end select
+        sleep 2
+        FormatArea
+        sleep 2
+        Kontext
+        Kontext "TabSchatten"
+        Anzeigen.Click
+        TabSchatten.OK
+        sleep 1
+        Kontext "DocumentImpress"
+        gMouseClick 30,30
+        gMouseClick 90,90
+        gMouseMove 90,90,30,30
+        gMouseClick 30,30
+        gMouseMove 30,30,90,90
+        gMouseClick 90,90
+        gMouseMove 90,90,30,30
+        gMouseClick 30,30
+        gMouseMove 30,30,90,90
+        gMouseClick 90,90
+        gMouseMove 90,90,30,30
+        sleep 2
+    next i
+    gMouseClick 99,99
+    sleep 1
+    Printlog "- 3D-body created"
 endcase
 '******************************************************************************
 testcase Toolboxen_Linien
     Printlog "- Toolbox Lines "
-Dim i
- Call hNewDocument							'/// New document '///
-  Printlog "- Create lines and arrows"
-   for i = 1 to 10
-       select case i
-      case 1 : WL_SD_LinieZeichnen					'/// create all kind of lines '///
-           sleep 1
-           Kontext "DocumentImpress"
-           gMouseMove 20,20,60,60
-      case 2 : WL_SD_LinieMitPfeilende
-               sleep 1
-               Kontext "DocumentImpress"
-               gMouseMove 20,20,60,60
-      case 3 : WL_SD_LinieMitPfeilKreisende
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 4 : WL_SD_LiniemitPfeilQuadratende
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 5 : WL_SD_Liniewinkel
-           sleep 1
-           kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 6 : WL_SD_LinieMitPfeilanfang
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 7 : WL_SD_LinieMitKreisPfeilende
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 8 : WL_SD_LiniemitPfeilKreisende
+    Dim i
+    Printlog "- Create lines and arrows"
+    for i = 1 to 10
+        select case i
+            sleep 1
+            Kontext "DocumentImpress"
+            gMouseMove 20,20,60,60
+        case 2 : WL_SD_LinieMitPfeilende
+            sleep 1
+            Kontext "DocumentImpress"
+            gMouseMove 20,20,60,60
+        case 3 : WL_SD_LinieMitPfeilKreisende
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 4 : WL_SD_LiniemitPfeilQuadratende
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 5 : WL_SD_Liniewinkel
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 6 : WL_SD_LinieMitPfeilanfang
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 7 : WL_SD_LinieMitKreisPfeilende
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 8 : WL_SD_LiniemitPfeilKreisende
 
-      case 9 : WL_SD_Masslinie
-               sleep 1
-               kontext "DocumentImpress"
-               gMouseMove 20,20,40,40
-      case 10 : WL_SD_LinieMitPfeilenden
+        case 9 : WL_SD_Masslinie
+            sleep 1
+            kontext "DocumentImpress"
+            gMouseMove 20,20,40,40
+        case 10 : WL_SD_LinieMitPfeilenden
 
-   end select
-    Kontext "DocumentImpress"
-    gMouseClick 25,25
-    sleep 1
-    gMouseMove 25,25,80,80							'/// move created lines around '///
-    sleep 1
-    gMouseMove 80,80,25,25
-    sleep 1
-    gMouseMove 25,25,90,90
-    sleep 1
-    gMouseClick 90,90,25,25
-    sleep 1
-    gMouseClick 99,99
-    sleep 1
-  next i
- Call hCloseDocument
+        end select
+        Kontext "DocumentImpress"
+        gMouseClick 25,25
+        sleep 1
+        sleep 1
+        gMouseMove 80,80,25,25
+        sleep 1
+        gMouseMove 25,25,90,90
+        sleep 1
+        gMouseClick 90,90,25,25
+        sleep 1
+        gMouseClick 99,99
+        sleep 1
+    next i
+    Call hCloseDocument
 endcase
 '********************************************************************
 testcase Toolboxen_Kurven
     Printlog "- Toolbox curves"
-Dim i
-  Call hNewDocument
-  sleep 1
-   for i = 1 to 8
-      select case i
-      case 1 : WL_SD_KurveVoll
-           sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseMove 70,70,30,30
-           gMouseDoubleClick 30,30
-      case 2 : WL_SD_KurveLeer
-               sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseMove 70,70,30,30
-           gMouseDoubleClick 30,30
-      case 3 : WL_SD_PolygonVoll
-               sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseClick 10,10
-           gMouseClick 90,90
-           gMouseClick 50,50
-           gMouseDoubleClick 50,50
-      case 4 : WL_SD_Polygon
-               sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseClick 10,10
-           gMouseClick 90,90
-           gMouseClick 50,50
-           gMouseDoubleClick 50,50
-      case 5 : WL_SD_PolygonWinkelVoll
-           sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseClick 10,10
-           gMouseClick 90,90
-           gMouseClick 50,50
-           gMouseDoubleClick 50,50
-      case 6 : WL_SD_PolygonWinkel
-               sleep 1
-           gMouseMove 20,20,60,60
-           gMouseClick 70,70
-           gMouseClick 10,10
-           gMouseClick 90,90
-           gMouseClick 50,50
-           gMouseDoubleClick 50,50
-      case 7 : WL_SD_FreihandlinieVoll
-               sleep 1
-           gMouseMove 10,10,70,70
-           gMouseMove 20,20,30,80
-      case 8 : WL_SD_FreihandlinieLeer
-           sleep 1
-           gMouseMove 10,10,70,70
-           gMouseMove2 70,70,20,20
-           gMouseMove 20,20,30,80
-   end select
-    Kontext "DocumentImpress"
-    sleep 1
-    EditSelectAll						'/// select lines '///
-    sleep 1
-     try
-        EditCut									'/// try to cut them out '///
-     catch
-        Warnlog "- Nothing in the document to cut out"
-     endcatch
+    Dim i
+    Call hNewDocument
     sleep 1
-  next i
- Call hCloseDocument								'/// close document '///
+    for i = 1 to 8
+        select case i
+        case 1 : WL_SD_KurveVoll
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseMove 70,70,30,30
+            gMouseDoubleClick 30,30
+        case 2 : WL_SD_KurveLeer
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseMove 70,70,30,30
+            gMouseDoubleClick 30,30
+        case 3 : WL_SD_PolygonVoll
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseClick 10,10
+            gMouseClick 90,90
+            gMouseClick 50,50
+            gMouseDoubleClick 50,50
+        case 4 : WL_SD_Polygon
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseClick 10,10
+            gMouseClick 90,90
+            gMouseClick 50,50
+            gMouseDoubleClick 50,50
+        case 5 : WL_SD_PolygonWinkelVoll
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseClick 10,10
+            gMouseClick 90,90
+            gMouseClick 50,50
+            gMouseDoubleClick 50,50
+        case 6 : WL_SD_PolygonWinkel
+            sleep 1
+            gMouseMove 20,20,60,60
+            gMouseClick 70,70
+            gMouseClick 10,10
+            gMouseClick 90,90
+            gMouseClick 50,50
+            gMouseDoubleClick 50,50
+        case 7 : WL_SD_FreihandlinieVoll
+            sleep 1
+            gMouseMove 10,10,70,70
+            gMouseMove 20,20,30,80
+        case 8 : WL_SD_FreihandlinieLeer
+            sleep 1
+            gMouseMove 10,10,70,70
+            gMouseMove2 70,70,20,20
+            gMouseMove 20,20,30,80
+        end select
+        Kontext "DocumentImpress"
+        sleep 1
+        sleep 1
+        try
+        catch
+            Warnlog "- Nothing in the document to cut out"
+        endcatch
+        sleep 1
+    next i
 endcase