CWS-TOOLING: integrate CWS automation_gapplication_unify

2009-03-24 14:40:09 +0100 jsk  r269948 : #i99878# - and another one...
2009-03-24 14:36:22 +0100 jsk  r269946 : #i99878# - another one...
2009-03-23 14:52:17 +0100 jsk  r269873 : #i99878# replace DESKTOP with BACKGROUND
2009-03-23 12:49:08 +0100 jsk  r269868 : #i99878# - special focus on database application
2009-03-23 12:46:13 +0100 jsk  r269867 : #i100474# - fix broken writer update testcase names
2009-03-20 15:44:29 +0100 jsk  r269817 : #i99878 - Step 3: Fixing round three - applications.txt
2009-03-20 15:40:43 +0100 jsk  r269816 : #i99878 - Step 3: Fixing round two - .bas-files
2009-03-20 15:19:04 +0100 jsk  r269813 : #i99878 - Step 3: Fixing round one
2009-03-20 15:01:07 +0100 jsk  r269811 : #i99878 - Step 1: rename, Step 2: Uppercase

1 files changed, 9 insertions, 7 deletions

diff --git a/testautomation/writer/required/includes/w_003_.inc b/testautomation/writer/required/includes/w_003_.inc
index 5beb3ab3062c..2befbcb13c83 100755
--- a/testautomation/writer/required/includes/w_003_.inc
+++ b/testautomation/writer/required/includes/w_003_.inc
@@ -37,7 +37,9 @@
 '*
 '\******************************************************************
 
-sub w_003printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
+sub w_003_
+
+    printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
     gApplication = "WRITER"
 
     Call tViewPrintLayout
@@ -62,7 +64,7 @@ sub w_003printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
     Call tViewZoom
 
     'Writer Web
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     Call tHtmlDocViewZoom
     Call tHtmlDocViewHTMLSource
     gApplication = "WRITER"
@@ -82,7 +84,7 @@ testcase tViewZoom
     Kontext "Massstab"
     DialogTest ( Massstab )
     select case uCASE(gApplication)
-    case "HTMLDOKUMENT" :
+    case "HTML" :
         printlog " check checkbox '100%'"
         Vergroesserung100.check
         printlog " check checkbox 'Variable'"
@@ -335,7 +337,7 @@ testcase tViewToolbars
 
     printlog "- Toolbar 'Formula'"
     printlog "-  open"
-    Call hToolbarSelect("Formula", true)
+    Call hToolbarSelect("MATH", true)
     OL_SW_Rechenleiste.TypeKeys "<Enter>"
 
     printlog " Close active document"
@@ -524,7 +526,7 @@ endcase
 
 testcase tViewHTMLSource
     PrintLog "- View / HTML Source (only in HTML-Document)"
-    if gApplication <> "HTMLDOKUMENT" then goto endsub
+    if gApplication <> "HTML" then goto endsub
     printlog "Open new document"
     Call hNewDocument
     printlog "View / HTML-Source"
@@ -560,7 +562,7 @@ endcase
 '-----------------------------------------------------------
 
 testcase tHtmlDocViewZoom
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     printlog " open application"
     Call hNewDocument
     printlog " type something into the document"
@@ -585,7 +587,7 @@ endcase
 
 testcase tHtmlDocViewHTMLSource
     PrintLog "- View / HTML Source (only in HTML-Document)"
-    gApplication = "HTMLDOKUMENT"
+    gApplication = "HTML"
     printlog "Open new document"
     Call hNewDocument
     printlog "View / HTML-Source"