testautomation/global/tools/includes/required/t_doc2.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: t_doc2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: obo $ $Date: 2008-07-21 12:08:27 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Global Routines for Document Handling; Part two
  37 '*
  38 '\***********************************************************************
  39
  40 private const VERBOSE = TRUE
  41
  42 sub hTabelleEinfuegen
  43     '/// <b>WRITER only </b>///'
  44     '///  hTabelleEinfuegen hInsertTable ///'
  45     '/// insert a dummy table in writer/writerweb/masterdocument ///'
  46     TableInsertTable
  47     sleep(2)
  48     Kontext "TabelleEinfuegenWriter"
  49     wait 500
  50     TabelleEinfuegenWriter.OK
  51     sleep(1)
  52
  53     Kontext "TableObjectbar"
  54     sleep(1)
  55     if TableObjectbar.NotExists then
  56         Kontext "TextObjectbar"
  57         TextObjectbar.SetNextToolBox
  58     end if
  59
  60     select case uCASE(gApplication)
  61     Case "WRITER"
  62         Kontext "DocumentWriter"
  63     Case "MASTERDOCUMENT"
  64         Kontext "DocumentMasterDoc"
  65     Case "HTML"
  66         Kontext "DocumentWriterWeb"
  67     end select
  68     sleep(1)
  69 end sub
  70 '
  71 '-------------------------------------------------------------------------------
  72 '
  73 sub ZellenMarkieren ( Down%, Right% )
  74     '/// <b>CALC only</b> ///'
  75     '/// ZellenMarkieren ( Down%, Right% ) : mark the cells ///'
  76     Dim Anzahl as Integer
  77
  78     Kontext "DocumentCalc"
  79     Anzahl = Right% - 1
  80     DocumentCalc.TypeKeys "<Shift Right>", Anzahl
  81     Anzahl = Down% - 1
  82     DocumentCalc.TypeKeys "<Shift Down>", Anzahl
  83 end sub
  84 '
  85 '-------------------------------------------------------------------------------
  86 '
  87 sub hRechteckErstellen ( BeginX%, BeginY%, EndX%, EndY% )
  88     '/// <b>IMPRESS/DRAW only</b> ///'
  89     '/// hRechteckErstellen ( BeginX, BeginY, EndX, EndY ) : create a rectangle ///'
  90     WL_DRAW_Rechteck
  91     gMouseMove ( BeginX%, BeginY%, EndX%, EndY% )
  92 end sub
  93 '
  94 '-------------------------------------------------------------------------------
  95 '
  96 sub hTextrahmenErstellen ( TextEingabe$, BeginX%, BeginY%, EndX%, EndY% )
  97     '/// <b>IMPRESS/DRAW only</b> ///'
  98     '/// hTextrahmenErstellen ( String, BeginX, BeginY, EndX, EndY ) : create a textbox with a textstring ///'
  99     WL_SD_TextEinfuegenDraw
 100     gMouseMove ( BeginX%, BeginY%, EndX%, EndY% )
 101     hTypeKeys TextEingabe$
 102 end sub
 103 '
 104 '-------------------------------------------------------------------------------
 105 '
 106 sub SchreibenInMathdok ( Eingabe as String )
 107     '/// <b>MATH only</b> ///'
 108     '/// SchreibenInMathDok ( String ) : write text in a mathdocument ( with clipboard ) ///'
 109     if Eingabe <> "Unsinn" then
 110         SetClipboard Eingabe
 111     else
 112         SetClipboard "NROOT <?> <?><over b==<?>"
 113     endif
 114     if (GetClipboard() <> Eingabe) then
 115         warnlog "--No Clipboard available :-(--"
 116         printlog "---ClipTest--- should: "+Eingabe +", is: "+GetClipboard
 117     endif
 118     EditPaste
 119     sleep(3)
 120 end sub
 121 '
 122 '-------------------------------------------------------------------------------
 123 '
 124 function sMakeReadOnlyDocumentEditable() as boolean
 125
 126     ' Function returns TRUE if document has been made editable and FALSE if
 127     ' no action was required (that is: Document was not read-only)
 128
 129     dim iTry as integer
 130     dim rc as integer
 131     const CFN = "sMakeReadOnlyDocumentEditable::"
 132
 133     if ( VERBOSE ) then printlog( CFN & "Making document editable (create a copy) if it is readonly" )
 134
 135     Kontext "Standardbar"
 136     if ( Bearbeiten.IsEnabled() ) then
 137
 138         if ( Bearbeiten.getState( 2 ) = 0 ) then
 139
 140                         rc = hUseAsyncSlot("editdoc")
 141
 142             if ( rc >= 0 ) then
 143                 for iTry = 1 to 2
 144
 145
 146                     Kontext "Active"
 147                     if ( Active.exists( 5 ) ) then
 148
 149                         printlog( CFN & "Messagebox: " & Active.getText() )
 150
 151                         try
 152                             if ( VERBOSE ) then printlog( CFN & "Document was read-only. A copy will be used." )
 153                             Active.Yes()
 154                             if ( VERBOSE ) then printlog( CFN & "Closed 'use copy' message" )
 155                         catch
 156                             if ( VERBOSE ) then printlog( CFN & "Probing for unexpected messagebox..." )
 157                             active.ok()
 158                             qaerrorlog( "#i100701 - Object not found message" )
 159                         endcatch
 160                     else
 161                         printlog( CFN & "No messagebox informing about a copy being used" )
 162                     endif
 163                     sMakeReadOnlyDocumentEditable() = TRUE
 164                 next iTry
 165             else
 166                 printlog( CFN & "Document appears to be editable" )
 167             endif
 168         else
 169             if ( VERBOSE ) then printlog( CFN & "Button <Bearbeiten> is pressed, document is editable" )
 170             sMakeReadOnlyDocumentEditable() = FALSE
 171         endif
 172     else
 173         if ( VERBOSE ) then printlog( CFN & "Control <Bearbeiten> is not enabled" )
 174     endif
 175
 176 end function
 177 '
 178 '-------------------------------------------------------------------------------
 179 '
 180 function fSelectFirstOLE() as integer
 181     'Select first visible OLE object using Navigator
 182     'Returns error-code:
 183     '+ 0 := Sucess
 184     '- 1 := unknown application
 185
 186     dim bNavigatorWasVisible as boolean
 187     bNavigatorWasVisible = FALSE
 188     dim iIndex
 189
 190     fSelectFirstOLE = -1
 191
 192     select case uCASE(gApplication)
 193     case "CALC"                     :   Kontext "NavigatorCalc"
 194         'First check if Navigator is visible and remember result
 195         if NavigatorCalc.exists (10) then
 196             bNavigatorWasVisible = TRUE
 197         else
 198             try
 199                 'Invoke Navigator if not visible
 200                 ViewNavigator
 201             catch
 202                 'If inside chart or elsewhere the call
 203                 'will fail. Again trying the slot after
 204                 'switching to the document.
 205                 Kontext "DocumentCalc"
 206                 DocumentCalc.TypeKeys "<Escape>"
 207                 ViewNavigator
 208             endcatch
 209         end if
 210         Kontext "NavigatorCalc"
 211         if NavigatorCalc.exists (10) then
 212             'Select first OLE in list
 213             Liste.TypeKeys "<HOME>"
 214             for iIndex = 1 to 8
 215                 Liste.TypeKeys "-"
 216                 wait 500
 217                 Liste.TypeKeys "<DOWN>"
 218                 wait 500
 219             next iIndex
 220             Liste.select(6)
 221             Liste.TypeKeys "+"
 222             Liste.TypeKeys "<DOWN><RETURN>"
 223             fSelectFirstOLE = 0
 224         else
 225             QAErrorLog "Navigator couldn't be opened!"
 226         end if
 227     case "DRAW" , "IMPRESS"         :   Kontext "NavigatorDraw"
 228         if NavigatorDraw.Exists(10) then
 229             bNavigatorWasVisible = TRUE
 230         else
 231             try
 232                 'Invoke Navigator if not visible
 233                 ViewNavigator
 234             catch
 235                 'If inside chart or elsewhere the call
 236                 'will fail. Again trying the slot after
 237                 'switching to the document.
 238                 Kontext "DocumentDraw"
 239                 DocumentDraw.TypeKeys "<Escape>"
 240                 ViewNavigator
 241             endcatch
 242             Kontext "NavigatorDraw"
 243             if NavigatorDraw.exists(10) then
 244                 'Select first OLE in list
 245                 Liste.TypeKeys "<HOME>"
 246                 Liste.select(1)
 247                 Liste.TypeKeys "+<DOWN><RETURN>"
 248                 fSelectFirstOLE = 0
 249             else
 250                 QAErrorLog "Navigator did not occoured!"
 251             end if
 252         end if
 253
 254     case "WRITER" , "HTML" , "MASTERDOCUMENT" :
 255         select case uCASE(gApplication)
 256         case "MASTERDOCUMENT"    :   Kontext "NavigatorGlobalDoc"
 257             if NavigatorGlobalDoc.Exists(10) then
 258                 bNavigatorWasVisible = TRUE
 259             else
 260                 ViewNavigator
 261             end if
 262             wait 500
 263             Kontext "NavigatorGlobalDoc"
 264             if Liste.IsVisible then
 265                 Kontext "GlobaldokumentToolbox"
 266                 Umschalten.Click
 267             endif
 268         case else           :   Kontext "NavigatorWriter"
 269             'First check if Navigator is visible and remember result
 270             if NavigatorWriter.Exists (10) then
 271                 bNavigatorWasVisible = TRUE
 272             else
 273                 try
 274                     'Invoke Navigator if not visible
 275                     ViewNavigator
 276                 catch
 277                     'If inside chart or elsewhere the call
 278                     'will fail. Again trying the slot after
 279                     'switching to the document.
 280                     Kontext "DocumentWriter"
 281                     call gMouseclick (99,99)
 282                     call gMouseclick (50,50)
 283                     ViewNavigator
 284                 endcatch
 285             end if
 286         end select
 287         Kontext "NavigatorWriter"
 288         if NavigatorWriter.Exists(10) then
 289                         ' Check if all content is visible
 290                         if Auswahlliste.GetItemCount < 2 then
 291                                 Inhaltsansicht.Click
 292                         end if
 293             'Select first OLE in list
 294             Auswahlliste.TypeKeys "<HOME>"
 295             for iIndex = 1 to 13
 296                 Auswahlliste.TypeKeys "-<DOWN>"
 297             next iIndex
 298             Auswahlliste.select(5)
 299             Auswahlliste.TypeKeys "+<DOWN><RETURN>"
 300             fSelectFirstOLE = 0
 301         else
 302             QAErrorLog "Navigator did not occoured!"
 303         end if
 304     case else                       :   QAErrorLog "Application not supported"
 305     end select
 306
 307     'Close navigator if it was invisible by entering the routine
 308     if bNavigatorWasVisible = TRUE then
 309         printlog "Leaving navigator open as initially found"
 310     else
 311         if fSelectFirstOLE = 0 then
 312             ViewNavigator
 313             printlog "Closing navigator as initially found"
 314         else
 315             printlog "Closing navigator not needed. It was not possible to open it."
 316         end if
 317     end if
 318 end function