Commits

Anonymous committed f4a7ae0

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

Comments (0)

Files changed (286)

testautomation/chart2/optional/ch2_losa_ods_to_ods.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_ods_to_ots.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_ods_to_sdc.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_ods_to_sxc.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_ods_to_xls.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_sxc_to_ods.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_losa_sxc_to_sdc.bas

 sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
-    gApplication   = "Calc"
+    gApplication   = "CALC"
     Call GetUseFiles
 end sub

testautomation/chart2/optional/ch2_lvl1_wizard.bas

     use "global\system\includes\gvariabl.inc"
     use "global\tools\includes\optional\t_set_standard_controls.inc"
     Call GetUseFiles     
-    gApplication = "Calc"
+    gApplication = "CALC"
 end sub
 

testautomation/chart2/required/ch2_chart_data_dlg_impress.bas

      use "global\system\includes\master.inc"
      use "global\system\includes\gvariabl.inc"
      Call GetUseFiles 
-     gApplication = "Impress"
+     gApplication = "IMPRESS"
 end sub
 

testautomation/chart2/required/ch2_flexible_source_range_selection.bas

         printlog "Updatetest for Flexible Source Range Selection"        
         printlog "----------------------------------------------"            
         printlog "------------ Chart in Spreadsheet ------------"            
-        gApplication = "Calc"    
+        gApplication = "CALC"    
             Call tDataRangeWizardCalc
             Call tDataSeriesWizardCalc
             Call tDataRangeDialogCalc
             Call tDataSeriesDialogCalc    
         printlog "-------------- Chart in Writer ---------------"            
-        gApplication = "Writer"    
+        gApplication = "WRITER"    
             Call tDataRangeWizardWriter
             Call tDataSeriesWizardWriter
             Call tDataRangeDialogWriter
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"          
     Call GetUseFiles
-    gApplication = "Calc"    
+    gApplication = "CALC"    
 end sub

testautomation/chart2/required/ch2_updt_calc.bas

     use "global\system\includes\gvariabl.inc"
     use "global\tools\includes\optional\t_set_standard_controls.inc"
     Call GetUseFiles 
-    gApplication = "Calc"
+    gApplication = "CALC"
 end sub
 

testautomation/chart2/required/includes/ch2_ole.inc

         case ("IMPRESS")        :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odp" )
         case ("DRAW")           :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odg" )
         case ("WRITER")         :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odt" )
-        case ("MASTERDOC")      :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odm" )        
-        case ("HTMLDOKUMENT")   :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".html" )
+        case ("MASTERDOCUMENT")      :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odm" )        
+        case ("HTML")   :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".html" )
         case else               :   warnlog "The modul " & sCurrentApplication & " is not supported in this test case!"
                                     Call hCloseDocument
                                     goto endsub               
         case ("WRITER")         :   call gMouseclick (99,99) 
                                     call gMouseclick (50,50)
                                     Call fSelectFirstOLE
-        case ("MASTERDOC")      :   call gMouseclick (99,99)
-        case ("HTMLDOKUMENT")   :   call gMouseclick (99,99) 
+        case ("MASTERDOCUMENT")      :   call gMouseclick (99,99)
+        case ("HTML")   :   call gMouseclick (99,99) 
                                     call gMouseclick (50,50)
                                     Call fSelectFirstOLE
         case else               :   warnlog "The modul " & sCurrentApplication & " is not supported in this test case!"
     end if            
     '/// Close document
     Call hCloseDocument
-    gApplication = "Calc"    
+    gApplication = "CALC"    
 endcase
 

testautomation/dbaccess/optional/includes/ctrl_Clipboard.inc

     for i = 1 to 3
     '/// paste control from clipboard and open control property browser
         if i = 1 then 
-            gApplication = "Calc"
+            gApplication = "CALC"
                 printlog "-- Text to Calc Clipboard Test --"
                 printlog "open a new Calc document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 2 then 
-            gApplication = "Draw"
+            gApplication = "DRAW"
                 printlog "-- Text to Draw Clipboard Test --"
                 printlog "open a new Draw document"
                 call hNewDocument
                 call hMenuSelectNr(2)
             endif
         if i = 3 then 
-            gApplication = "Impress"
+            gApplication = "IMPRESS"
                 printlog "-- Text to Impress Clipboard Test --"
                 printlog "open a new Impress document"
                 call hNewDocument
 
     '/// Open a new document and empty clipboard
         printlog "Open a new document and empty clipboard"
-        gApplication = "Calc"
+        gApplication = "CALC"
 	call hNewDocument
     Kontext "DocumentCalc"    
 	    DocumentCalc.TypeKeys "tt_doc" , true
     for i = 1 to 3
     '/// paste control from clipboard and open control property browser
         if i = 1 then 
-            gApplication = "Writer"
+            gApplication = "WRITER"
                 printlog "-- Calc to Text Clipboard Test --"
                 printlog "open a new Text document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 2 then 
-            gApplication = "Draw"
+            gApplication = "DRAW"
                 printlog "-- Calc to Draw Clipboard Test --"
                 printlog "open a new Draw document"
                 call hNewDocument
                 call hMenuSelectNr(2)
             endif
         if i = 3 then 
-            gApplication = "Impress"
+            gApplication = "IMPRESS"
                 printlog "-- Calc to Impress Clipboard Test --"
                 printlog "open a new Impress document"
                 call hNewDocument
 
     '/// Open a new document and empty clipboard
         printlog "Open a new document and empty clipboard"
-        gApplication = "Draw"
+        gApplication = "DRAW"
 	call hNewDocument
     Kontext "DocumentDraw"    
 	    DocumentDraw.TypeKeys "tt_doc" , true
     for i = 1 to 3
     '/// paste control from clipboard and open control property browser
         if i = 1 then 
-            gApplication = "Writer"
+            gApplication = "WRITER"
                 printlog "-- Draw to Text Clipboard Test --"
                 printlog "open a new Text document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 2 then 
-            gApplication = "Calc"
+            gApplication = "CALC"
                 printlog "-- Draw to Calc Clipboard Test --"
                 printlog "open a new Calc document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 3 then 
-            gApplication = "Impress"
+            gApplication = "IMPRESS"
                 printlog "-- Draw to Impress Clipboard Test --"
                 printlog "open a new Impress document"
                 call hNewDocument
 
     '/// Open a new document and empty clipboard
         printlog "Open a new document and empty clipboard"
-        gApplication = "Impress"
+        gApplication = "IMPRESS"
 	call hNewDocument
     Kontext "DocumentImpress"    
 	    DocumentImpress.TypeKeys "tt_doc" , true
     for i = 1 to 3
     '/// paste control from clipboard and open control property browser
         if i = 1 then 
-            gApplication = "Writer"
+            gApplication = "WRITER"
                 printlog "-- Impress to Text Clipboard Test --"
                 printlog "open a new Text document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 2 then 
-            gApplication = "Calc"
+            gApplication = "CALC"
                 printlog "-- Impress to Calc Clipboard Test --"
                 printlog "open a new Calc document"
                 call hNewDocument
                 call hMenuSelectNr(4)
             endif
         if i = 3 then 
-            gApplication = "Draw"
+            gApplication = "DRAW"
                 printlog "-- Impress to Draw Clipboard Test --"
                 printlog "open a new Draw document"
                 call hNewDocument

testautomation/dbaccess/optional/includes/ctrl_Spreadsheet.inc

     dim i as integer
     printlog "- Formular toolbox: List box element (" & gApplication & ")"
     '/// open a spreadsheet, insert a listbox (the wizard appears)
-    gApplication = "Calc"
+    gApplication = "CALC"
     call hNewDocument
     Kontext "DocumentCalc"
     DocumentCalc.TypeKeys("Value1")
 testcase tTextBox     
     
     '/// Open a new document,
-    gApplication = "Calc"
+    gApplication = "CALC"
     printlog "Open a new document,"
 	call hNewDocument
     Kontext "DocumentCalc"       
             warnlog "the cell bound doesn't work"
         endif
     hCloseDocument
-    gApplication = "Writer"
+    gApplication = "WRITER"
 
 endcase
 '--------------------------------------------------------------------------------------
 testcase tCheckBox     
     
     '/// Open a new document,
-    gApplication = "Calc"
+    gApplication = "CALC"
     printlog "Open a new document,"
 	call hNewDocument
     Kontext "DocumentCalc"	
             warnlog "the cell bound doesn't work"
         endif
     hCloseDocument
-    gApplication = "Writer"
+    gApplication = "WRITER"
 
 endcase
 '-------------------------------------------------------------------------

testautomation/dbaccess/optional/includes/ctrl_TextControl.inc

     
     '/// Open a new document,
     printlog "Open a new document,"
-	gApplication = "Draw"
+	gApplication = "DRAW"
     call hNewDocument
     Kontext "DocumentDraw"       
 	DocumentDraw.TypeKeys "tt_doc" , true

testautomation/dbaccess/optional/includes/db_Query.inc

         sType = UCase(sType)
         printlog sType
         select case sType
-            case "TEXT", "SPREADSHEET"
+            case "TEXT", "CALC"
                 sType = "1"
             case "ODBC", "JDBC"
                 sType = "2"

testautomation/dbaccess/optional/includes/db_Spreadsheet.inc

     dbok = fCreateSpreadsheetDatasource(sFileName, gOfficePath + ConvertPath(sDBURL),"tt_spreadsheet")
     if dbok = true then
             
-        call db_Query(sFileName, "spreadsheet")
+        call db_Query(sFileName, "CALC")
         
         'outcomment because of several bugs inside forms
         'use "dbaccess/optional/includes/b_lvl1_Forms.inc"

testautomation/dbaccess/optional/includes/db_Text.inc

 
 	'/// open the properties dialog of the open database
     printlog "open the properties dialog of the open database"            
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(1)
 '-------------------------------------------------------------------------
 testcase tOpenUTF8File(sFilename as string)
     
-    '/// copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_database.txt" to your local wotk directory
-    printlog "copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_database.txt to your local wotk directory"
-    app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/text_datasource/text_database.txt"),gOfficePath + ConvertPath("user/work/text_database.txt")
+    '/// copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_Database.txt" to your local wotk directory
+    printlog "copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_Database.txt to your local wotk directory"
+    app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/text_datasource/text_Database.txt"),gOfficePath + ConvertPath("user/work/text_Database.txt")
 
     '/// open the text database create in the bas file
     call fOpendatabase(sFileName)
     
     '/// open the properties dialog of the open database
     printlog "open the properties dialog of the open database"
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(1)

testautomation/dbaccess/optional/includes/db_hsqldb.inc

     fFindTable("TT_1")
     
     printlog "rename the selected table"
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         call hMenuSelectNr(2)
         call hMenuSelectNr(7)
 
 
     '/// rename the selcted table
     printlog "rename the selcted table"
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         call hMenuSelectNr(2)
         call hMenuSelectNr(7)
 

testautomation/dbaccess/optional/includes/frm_Forms.inc

 
     '/// insert a new folder via INSERT/FOLDER menu
     printlog "insert a new folder via INSERT/FOLDER menu"
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(8)
 
 
     '/// insert a new folder via INSERT/FOLDER menu
     printlog "insert a new folder via INSERT/FOLDER menu"
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(8)
 
     '/// insert a new folder under the first folder
     printlog "insert a new folder under the first folder"   
     
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(4)
         hMenuSelectNr(8)
 
 
     '/// rename the firt folder
     printlog "rename the firt folder"    
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(2)
         hMenuSelectNr(7)
 

testautomation/dbaccess/optional/includes/wiz_CopyTableWizard.inc

 
     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
         sleep(1)
-        Insight.typeKeys("<MOD1 V>",true)
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
     '/// the copy table dialog appear
     
     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
         sleep(1)
-        Insight.typeKeys("<MOD1 V>",true)
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
 
     
     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
         sleep(1)
-        Insight.typeKeys("<MOD1 V>",true)
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
     '/// the copy table dialog appear
 
     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
         sleep(1)
-        Insight.typeKeys("<MOD1 V>",true)
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
     '/// the copy table dialog appear
     call fFindtable("biblio")
 
     '/// press CTRL + V to paste the table
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 V>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
     '/// the copy table dialog appear
 
     '/// open a new calc document
     printlog "open a calc new document"
-	gApplication = "Calc"
+	gApplication = "CALC"
     call hNewDocument    
 
     '/// insert some data
     call fFindtable("biblio2")
 
     '/// press CTRL + V to paste the table again
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 V>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 V>",true)
         sleep(1)
 
     '/// the copy table dialog appear
     printlog "close the spreadsheet document"    
     call hCloseDocument
 
-    gApplication = "Writer"
+    gApplication = "WRITER"
 
 endcase
 '--------------------------------------------------------------------
 
     '/// press CTRL + C to copy the table
     printlog "press CTRL + C to copy the table"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
 
     '/// open the bibliography database
     printlog "open the bibliography database"
     call fFindTable("biblio")
     
     '/// press CTRL + V to paste the table
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 V>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 V>",true)
 
     '/// the copy table dialog appear
     printlog "the copy table dialog appear"	
 
     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
-    Kontext "Insight"
-        Insight.typeKeys("<MOD1 C>",true)
+    Kontext "DATABASE"
+        Database.typeKeys("<MOD1 C>",true)
         sleep(1) 
-        Insight.UseMenu
+        Database.UseMenu
         hMenuSelectNr(2)
         hMenuSelectNr(5)                
         sleep(1)

testautomation/dbaccess/optional/includes/wiz_FormWizard.inc

 
     ViewForms
 
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     StartFormWizard
 
     ViewForms
 
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     StartFormWizard
 
     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
 
     '/// select the table biblio

testautomation/dbaccess/optional/includes/wiz_ReportWizard.inc

 
     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
     ViewReports
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     StartReportWizard

testautomation/dbaccess/required/includes/DatabaseTypes.inc

 
     ViewForms
     
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
     
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
     
     Kontext "TabGeneral"    
         call DialogTest(TabGeneral)
-        DataBaseType.select(getIdForDatabaseType("Spreadsheet"))    
+        DataBaseType.select(getIdForDatabaseType("CALC"))    
         
     Kontext "ConnectionType"        
         NextBtn.Click
         sleep(1)        
-        call fCheckConnectionTabPage("Spreadsheet")
+        call fCheckConnectionTabPage("CALC")
     
     Kontext "ConnectionType"        
         ConnectionType.Cancel
         
-    'call fCheckAdvancedDialog("Spreadsheet")
+    'call fCheckAdvancedDialog("CALC")
         
     call fCloseDatabase()  
     
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
 
     ViewForms    
             
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(2)
     
     printlog "+Check the Advanced Settings for the datasource type " + sType
     
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(3)    
             'call fcheckControl(BooleanComparison)
             'call fcheckControl(AppendAlias)
         
-        elseif sType = "Spreadsheet" OR sType = "Mozilla" OR sType = "Evolution" OR sType = "LDAP" then            
+        elseif sType = "CALC" OR sType = "Mozilla" OR sType = "Evolution" OR sType = "LDAP" then            
            ' call fcheckControl(BooleanComparison)
            ' call fcheckControl(AppendAlias)    
         
         call fcheckControl(SelectPath)
         call fcheckControl(TestConnection)
     
-    elseif sType = "Spreadsheet" then        
+    elseif sType = "CALC" then        
         call fcheckControl(SpreadsheetPath)
         call fcheckControl(SelectPath)
         call fcheckControl(TestConnection)

testautomation/dbaccess/required/includes/Forms.inc

     printlog "open biblio database"    
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
 
     '/// view forms

testautomation/dbaccess/required/includes/MainApp.inc

     
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     TableFilters
     sleep(1)
    
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
 
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
         
-    if not InsightSwapIconView.exists(1) then        
+    if not DatabaseSwapIconView.exists(1) then        
         warnlog "InsightSwapIconView doesn't exists"
         goto endsub
     end if
     
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
 
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     
-    Kontext "Insight"
-    if Insight.exists() then
+    Kontext "DATABASE"
+    if Database.exists() then
         printlog "Insight appear"
     else
         warnlog "Insight doesn't appear"
         goto endsub
     end if
     
-    if InsightSwapView.exists() then
+    if DatabaseSwapView.exists() then
         printlog "InsightSwapView appear"        
     else
         warnlog "InsightSwapView doesn't appear"
     '/// display Tables View
     printlog "display Tables View"
     ViewTables    
-    if InsightTablesView.exists(1) then
+    if DatabaseTablesView.exists(1) then
         printlog "InsightTablesView appear"        
     else
         warnlog "InsightTablesView doesn't appear"
     '/// display Queries View
     printlog "display Queries View"
     ViewQueries    
-    if InsightQueriesView.exists(1) then
+    if DatabaseQueriesView.exists(1) then
         printlog "InsightQueriesView appear"        
     else
         warnlog "InsightQueriesView doesn't appear"
         warnlog "InsightFormsView doesn't appear"
         goto endsub
     end if
-    Kontext "Insight"
+    Kontext "DATABASE"
     '/// count the items in the CreationList
     printlog "count the items in the CreationList"
     iCount = CreationList.getItemCount() 
     '/// display Reports View
     printlog "display Reports View"
     ViewReports    
-    if InsightReportsView.exists(1) then
+    if DatabaseReportsView.exists(1) then
         printlog "InsightReportsView appear"        
     else
         warnlog "InsightReportsView doesn't appear"
 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
 
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)    
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)    
     
     ViewTables
     
     Kontext "ContainerView"        
         TableTree.select 1
     
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(3)
         hMenuSelectNr(4)
         hMenuSelectNr(3)
             printlog "preview displayed"
         endif    
         
-    Kontext "Insight"
-        Insight.UseMenu
+    Kontext "DATABASE"
+        Database.UseMenu
         hMenuSelectNr(3)
         hMenuSelectNr(4)
         hMenuSelectNr(1)
     
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
     
-    Kontext "Insight"
-        Insight.UseMenu        
+    Kontext "DATABASE"
+        Database.UseMenu        
         '/// check if there are 11 items in the file menu.
         printlog "check if there are 11 items in the file menu."
         '/// + there different count related to the file pick list.                
         
         '/// check the FILE/AUTOPILOTS
         printlog "check the FILE/AUTOPILOTS"
-        Insight.UseMenu        
+        Database.UseMenu        
         hMenuSelectNr(1) ' the file menu
         hMenuSelectNr(4) ' the autopilots menu        
         iCount = hMenuItemGetCount()
         
         '/// check if there are 15 items in the edit menu.
         printlog "check if there are 15 items in the edit menu."
-        Insight.UseMenu 
+        Database.UseMenu 
         hMenuSelectNr(2)        
         iCount = hMenuItemGetCount()
         if (iCount <> 15) then
 
         '/// check if there are 6 items in the view menu.
         printlog "check if there are 6 items in the view menu."
-        Insight.UseMenu 
+        Database.UseMenu 
         hMenuSelectNr(3)        
         iCount = hMenuItemGetCount()
         if (iCount <> 6) then
 
         '/// check the VIEW/DATABASE OBJECTS
         printlog "check the VIEW/DATABASE OBJECTS"
-        Insight.UseMenu
+        Database.UseMenu
         hMenuSelectNr(3)
         hMenuSelectNr(1)                
         iCount = hMenuItemGetCount()        
 
         '/// check the VIEW/SORT OBJECTS
         printlog "check the VIEW/SORT OBJECTS"
-        Insight.UseMenu
+        Database.UseMenu
         hMenuSelectNr(3)
         hMenuSelectNr(5)                
         iCount = hMenuItemGetCount()        
 
         '/// check the VIEW/PREVIEW
         printlog "check the VIEW/PREVIEW"
-        Insight.UseMenu
+        Database.UseMenu
         hMenuSelectNr(3)
         hMenuSelectNr(4 )                
         iCount = hMenuItemGetCount()        
         
         '/// check if there are 8 items in the insert menu.
         printlog "check if there are 8 items in the insert menu."
-        Insight.UseMenu 
+        Database.UseMenu 
         hMenuSelectNr(4)       
         iCount = hMenuItemGetCount()
         if (iCount <> 8) then
 
         '/// check if there are 10 items in the tools menu.
         printlog "check if there are 10 items in the tools menu."        
-        Insight.UseMenu 
+        Database.UseMenu 
         hMenuSelectNr(5)        
         iCount = hMenuItemGetCount()
         if ( lcase( gPlatform ) = "osx" ) then
         
         '/// check if there are 4 items in the TOOLS/MACRO menu.
         printlog "check if there are 4 items in the TOOLS/MACRO menu."        
-        Insight.UseMenu 
+        Database.UseMenu 
         hMenuSelectNr(5)
         hMenuSelectNr(6)        
         iCount = hMenuItemGetCount()
     
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
     
-    Kontext "Insight"        
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
+    Kontext "DATABASE"        
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
     
-    Kontext "Insight"    
-        Insight.UseMenu    
+    Kontext "DATABASE"    
+        Database.UseMenu    
         hMenuSelectNr(2)
         hMenuSelectNr(15)
         hMenuSelectNr(1)
     Kontext "TabRegisteredDatabase"
         call DialogTest( TabRegisteredDatabase )    
         if (RegisteredDatabases.getItemCount() = 0 ) then
-            warnlog "there are no registered databases. There should be at least a  registered 'Bibliography' database."
+            warnlog "there are no registered databases. There should be at least a  registered 'Bibliography' Database."
             Kontext "OptionenDlg"
                 OptionenDlg.Cancel
             call hCloseDocument
     hMenuSelectNr(1)
     WaitSlot(1)
     
-    Kontext "Insight"
-    If Insight.exists(10) then
+    Kontext "DATABASE"
+    If Database.exists(10) then
         printlog "database open -> OK"
         printlog "close the open database"
         call fCloseDatabase

testautomation/dbaccess/required/includes/Query.inc

 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     
     sleep(1)
     
     NewQueryDesign
         
-    ' if not InsightSwapIconView.exists(1) then        
+    ' if not DatabaseSwapIconView.exists(1) then        
         ' warnlog "InsightSwapIconView doesn't exists"
         ' exit sub
     ' end if
     ' '/// display Queries View
     ' printlog "display Queries View"
     ' ViewQueries    
-    ' if InsightQueriesView.exists(1) then
+    ' if DatabaseQueriesView.exists(1) then
         ' printlog "InsightQueriesView appear"        
     ' else
         ' warnlog "InsightQueriesView doesn't appear"
         ' exit sub
     ' end if
     ' 
-    ' Kontext "Insight"
+    ' Kontext "DATABASE"
         ' CreationList.select(1)
         ' sleep(1)
-        ' Insight.TypeKeys "<TAB>" , true
-        ' Insight.TypeKeys "<RETURN>" , true
+        ' Database.TypeKeys "<TAB>" , true
+        ' Database.TypeKeys "<RETURN>" , true
         ' sleep(1)
 end sub    

testautomation/dbaccess/required/includes/ReportBuilder01.inc

     
     call hFileOpen(gOfficePath + ConvertPath("user/database/biblio.odb"))
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     '/// open the report designer

testautomation/dbaccess/required/includes/Table.inc

     
     hFileOpen( gOfficePath & "user/database/biblio.odb" )    
     
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     
     sleep(1)
     

testautomation/dbaccess/required/includes/TableDesign.inc

 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
     
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     
     sleep(1)
     

testautomation/dbaccess/required/includes/Wizards.inc

 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     call fStartQueryWizard
 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     StartReportWizard
 
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
 
     ViewTables
         
     hFileOpen( gOfficePath & "user/database/biblio.odb" )
         
-    Kontext "Insight"
+    Kontext "DATABASE"
     
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50)
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50)
     sleep(1)
     
     StartFormWizard

testautomation/dbaccess/tools/controltools.inc

                 
     '/// open a new document
     printlog "open a new document"
-    gApplication = "Writer"
+    gApplication = "WRITER"
 	call hNewDocument
     Kontext "DocumentWriter"       
 	DocumentWriter.TypeKeys "tt_doc" , true
                             DocumentWriter.MouseMove ( iEndX, iEndY )
                             DocumentWriter.MouseUp ( iEndX, iEndY )
 
-      case "HTMLDOKUMENT": Kontext "DocumentWriterWeb"
+      case "HTML": Kontext "DocumentWriterWeb"
                             DocumentWriterWeb.MouseDown ( iStartX, iStartY )
                             DocumentWriterWeb.MouseMove ( iEndX, iEndY )
                             DocumentWriterWeb.MouseUp ( iEndX, iEndY )
 
-      case "GLOBALDOC"   : Kontext "DocumentMasterDoc"
+      case "MASTERDOCUMENT"   : Kontext "DocumentMasterDoc"
                             DocumentMasterDoc.MouseDown ( iStartX, iStartY )
                             DocumentMasterDoc.MouseMove ( iEndX, iEndY )
                             DocumentMasterDoc.MouseUp ( iEndX, iEndY )

testautomation/dbaccess/tools/dbcreatetools.inc

     Kontext "DatabaseWizard"    
         ConnectToDatabase.Check
         sleep(1)        
-        DatabaseType.Select (getIdForDatabaseType("Spreadsheet", DatabaseType) - 1) ' -1 because in the wizard there is on datasource less because of mysql
+        DatabaseType.Select (getIdForDatabaseType("CALC", DatabaseType) - 1) ' -1 because in the wizard there is on datasource less because of mysql
         sleep(1)
         NextBtn.Click
         sleep(1)
         endif
     elseif (sType = "OracleJDBC") then        
         ii = 3                    
-    elseif (sType = "Spreadsheet") then
+    elseif (sType = "CALC") then        
         if gPlatform = "osx" then        
          ii = 4
         else

testautomation/dbaccess/tools/dbtools.inc

     
     dim iRem as integer
 	iRem = 0
-    Kontext "Insight"
-        Insight.useMenu
+    Kontext "DATABASE"
+        Database.useMenu
         hMenuSelectNr 5
         hMenuSelectNr 3
     
     sleep (3)
     
     'click on the main window to get the focus
-    Kontext "Insight"    
-    Insight.MouseDown(50,50)
-    Insight.MouseUp(50,50) 
+    Kontext "DATABASE"    
+    Database.MouseDown(50,50)
+    Database.MouseUp(50,50) 
     
     ViewTables
     sleep(1)
     
-    Kontext "Insight"
+    Kontext "DATABASE"
     '/// if the password is given add the password    
     if ( Not IsMissing(sPassword) ) then
         printlog "set password : " + sPassword
     '/// <u>parameter:</u>
     '/// <b><i>optional</i>bSave:</b> if true the the database is saved if false then the changes are lost
     sleep(1)
- 	Kontext "Insight"
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
-        Insight.useMenu
+ 	Kontext "DATABASE"
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
+        Database.useMenu
         hMenuSelectNr 1
         hMenuSelectNr 5    
         

testautomation/dbaccess/tools/formtools.inc

     '/// open a a new form design from an open database
     '/// <u>parameter:</u>
           
-    Kontext "Insight"    
-	    if ( Insight.NotExists(3) ) then
+    Kontext "DATABASE"    
+	    if ( Database.NotExists(3) ) then
 	        fOpenNewFormDesign = false
 	        exit function
 	    end if
 
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
     
     sleep(1)
     

testautomation/dbaccess/tools/querytools.inc

     '/// open a new query design 
     '/// <u>parameter:</u>    
     
-    Kontext "Insight"    
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
+    Kontext "DATABASE"    
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
     
-    if ( Insight.NotExists(3) ) then
+    if ( Database.NotExists(3) ) then
         fOpenNewQueryDesign = false
         warnlog "The database windows doesn't exists"
         exit function
     '/// open a new query design in SQL mode 
     '/// <u>parameter:</u>    
     
-    Kontext "Insight"    
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
+    Kontext "DATABASE"    
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
     
-    if ( Insight.NotExists(3) ) then
+    if ( Database.NotExists(3) ) then
         fOpenNewSQLQueryDesign = false
         warnlog "The database windows doesn't exists"
         exit function
     '/// start the query wizard 
     '/// <u>parameter:</u>    
 
-    Kontext "Insight"    
-	    if ( Insight.NotExists(3) ) then
+    Kontext "DATABASE"    
+	    if ( Database.NotExists(3) ) then
 	        fStartQueryWizard = false
 	        exit function
 	    end if
 
-        Insight.MouseDown(50,50)
-        Insight.MouseUp(50,50)
+        Database.MouseDown(50,50)
+        Database.MouseUp(50,50)
     
     sleep(1)
     
     if ( fFindQuery(sQueryName) = true ) then
         printlog "Query " + sQueryName + " found -> open in sql design"    
         
-        Kontext "Insight"
-        Insight.UseMenu        
+        Kontext "DATABASE"
+        Database.UseMenu        
         
         hMenuSelectNr(2)
         hMenuSelectNr(9)