testautomation/chart2/required/includes/ch2_ole.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Chart resource test - section FILE
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tChartOLE
  35 '*
  36 '\************************************************************************
  37
  38 testcase tChartOLE ( sCurrentApplication as STRING )
  39 '///<u><b>Chart as OLE in all applicable applications</b></u>
  40     dim sOutputFile as STRING
  41     dim bCommitDialog as boolean
  42     dim bStatusOfAgent as boolean
  43
  44     bStatusOfAgent = FALSE
  45
  46     select case sCurrentApplication
  47         case ("CALC") : bCommitDialog = TRUE
  48         case else     : bCommitDialog = FALSE
  49     end select
  50     printlog("Chart as OLE in " & sCurrentApplication)
  51     gApplication = sCurrentApplication
  52
  53     '/// Open new document
  54     Call hNewDocument
  55     '/// Disabling the Help Agent if enabled.
  56     ToolsOptions
  57     hToolsOptions ( "StarOffice", "General" )
  58     Kontext "TabSonstigesAllgemein"
  59     if Aktivieren.IsChecked then
  60         bStatusOfAgent = TRUE
  61         printlog "HelpAgent was enabled. Disabling"
  62         Aktivieren.Uncheck
  63     else
  64         printlog "HelpAgent wasn't enabled."
  65     end if
  66     Kontext "ToolsOptionsDlg"
  67     ToolsOptionsDlg.OK
  68     '/// Insert default chart
  69     InsertChart
  70     sleep(2)
  71     if bCommitDialog then
  72         Kontext "ChartWizard"
  73         ChartWizard.OK
  74         sleep(2)
  75     endif
  76     '/// Save file
  77     select case ucase(sCurrentApplication)
  78         case ("CALC")           :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".ods" )
  79         case ("IMPRESS")        :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odp" )
  80         case ("DRAW")           :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odg" )
  81         case ("WRITER")         :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odt" )
  82         case ("MASTERDOCUMENT")      :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odm" )
  83         case ("HTML")   :   sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".html" )
  84         case else               :   warnlog "The modul " & sCurrentApplication & " is not supported in this test case!"
  85                                     Call hCloseDocument
  86                                     goto endsub
  87     end select
  88     if hFileSaveAsKill(sOutputFile) then
  89         printlog "OK, successfully saved the test document!"
  90     else
  91         warnlog "Saving the test document failed!"
  92     endif
  93     sleep(2)
  94     '/// Leave implace mode in Spreadsheet, Draw and Impress ...
  95     '/// ... and then select Chart OLE (Green handles)
  96     select case ucase(sCurrentApplication)
  97         case ("CALC")           :   Kontext "DocumentCalc"
  98                                     DocumentCalc.TypeKeys "<Escape>"
  99                                     Call fSelectFirstOLE
 100         case ("IMPRESS")        :   call gMouseclick (99,99)
 101                                     call gMouseclick (50,50)
 102         case ("DRAW")           :   call gMouseclick (99,99)
 103                                     call gMouseclick (50,50)
 104         case ("WRITER")         :   call gMouseclick (99,99)
 105                                     call gMouseclick (50,50)
 106                                     Call fSelectFirstOLE
 107         case ("MASTERDOCUMENT")      :   call gMouseclick (99,99)
 108         case ("HTML")   :   call gMouseclick (99,99)
 109                                     call gMouseclick (50,50)
 110                                     Call fSelectFirstOLE
 111         case else               :   warnlog "The modul " & sCurrentApplication & " is not supported in this test case!"
 112                                     Call hCloseDocument
 113                                     goto endsub
 114     end select
 115     '/// Try if Edit::Object:Edit works for chart OLE
 116     try
 117         EditObjectEdit
 118         sleep(2)
 119         printlog "Edit::Object::Edit seems to work"
 120     catch
 121         warnlog "Edit::Object::Edit seems to fail."
 122     endcatch
 123
 124     if bStatusOfAgent then
 125         '/// Enabling the HelpAgent if it was enabled at the beginning.
 126         ToolsOptions
 127         hToolsOptions ( "StarOffice", "General" )
 128         Kontext "TabSonstigesAllgemein"
 129         Aktivieren.Check
 130         Kontext "ToolsOptionsDlg"
 131         ToolsOptionsDlg.OK
 132     end if
 133     '/// Close document
 134     Call hCloseDocument
 135     gApplication = "CALC"
 136 endcase
 137