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