testautomation/graphics/optional/includes/impress/i_view.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: i_view.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '*********************************************************************
  39 ' #1 tAnsichtHintergrundNotizen
  40 ' #1 tViewWorkspaceHandoutView
  41 ' #1 tViewWorkspaceOutlineView
  42 ' #1 tViewWorkspaceDrawingView
  43 ' #1 tAnsichtEbene
  44 '\********************************************************************
  45
  46 'Datei$ = ConvertPath (gOfficePath + "user\work\test.sxi")
  47
  48 testcase tAnsichtHintergrundNotizen
  49     Printlog "- View background notes"
  50     Call hNewDocument                                           '/// new document ///'
  51     try
  52         ViewNotes                                       '/// view background notes ///'
  53         sleep 3
  54     catch
  55         Warnlog  "View-Notes could not be accessed"
  56     endcatch
  57     ViewWorkspaceDrawingView
  58     sleep 1
  59     Call hCloseDocument                                         '/// close document ///'
  60     sleep 1
  61 endcase
  62
  63 '-------------------------------------------------------------------------------
  64
  65 testcase tViewWorkspaceHandoutView
  66     Printlog "- View background handout"
  67     Call hNewDocument                                           '/// new document ///'
  68     sleep 2
  69     Kontext "DocumentImpress"
  70     if NOT documentImpress.Exists then
  71         hNewDocument
  72         sleep 1
  73     end if
  74     sleep 2
  75     Printlog "  ViewWorkspaceHandoutView"
  76     ViewWorkspaceHandoutView                                            '/// view background handout ///'
  77     sleep 2
  78     Kontext "Tasks"
  79     sleep 2
  80     if LayoutsPreview.GetItemCount <> 6 Then
  81         Warnlog "  this doesn't seem to be a handout ?: should be: 6 layouts in the Preview window, but are: " + LayoutsPreview.GetItemCount
  82     else
  83         Printlog "  ViewWorkspaceHandoutView works"
  84     end if
  85     Printlog "ViewWorkspaceHandoutView closed"
  86     ViewWorkspaceDrawingView                                            '/// back to view background drawing ///'
  87     Call hCloseDocument                                         '/// close document ///'
  88 endcase
  89
  90 '-------------------------------------------------------------------------------
  91
  92 testcase tViewWorkspaceOutlineView
  93     qaerrorlog "Outcommenting tViewWorkspaceOutlineView due to unreability. - FHA"
  94     goto endsub
  95    dim sFile as string
  96    dim i as integer
  97
  98    '/// load a document with heading styles in writer and use the function 'writer:'File->Send->Outline to presentation' to get it into the presentation ///'
  99    ' all 'heading 1' are new slides
 100
 101    '/// document used : "graphics\\required\\input\\outlinefromwriter.sxw" -> you get into writer ///'
 102    sFile = ConvertPath (gTesttoolPath + "graphics\required\input\outlinefromwriter.sxw")
 103    hDateiOeffnen (sFile)
 104    sleep 10
 105    '///+ with 'File->Send->Outline to presentation' you get into impress ///'
 106    FileSendOutlineToPresentation
 107    sleep 10
 108    Printlog "'/// View->Workspace->Outline View ///'"
 109    ViewWorkspaceOutlineView
 110    sleep 1
 111    '/// go to the line with the 'I' (via 'search & replace' function) ///'
 112    hTypeKeys "<STRG HOME>"
 113    EditSelectAll
 114    hFindeImDokument ("I")
 115
 116    '///<b> expected level/style: 'Outline 8' </b>///'
 117    '/// get last character from selected style in stylist (expect a number of the outline(heading level) ///'
 118    fGetPresentationStyle ("8")
 119
 120    '/// type keys [home] [tab] to go one level down ///'
 121    Kontext "DocumentImpressOutlineView"
 122    DocumentImpressOutlineView.TypeKeys "<Home><Tab>"
 123
 124    '///<b> expected level/style: 'Outline 9' </b>///'
 125    fGetPresentationStyle ("9")
 126
 127    Kontext "DocumentImpressOutlineView"
 128    '/// Edit - "Select All" to go select the whole text ///'
 129    EditSelectAll
 130    '/// type keys [shift]+[tab] eight times, to get all lines to the highest, except the one with the 'I' ///'
 131    DocumentImpressOutlineView.TypeKeys ("<Shift Tab>", 8)
 132
 133 hPrepareSearchBUG
 134     hTypeKeys "<STRG HOME>"
 135     EditSelectAll
 136     hFindeImDokument ("I")
 137     '///<b> expected level/style: 'Outline 1' </b>///'
 138     fGetPresentationStyle ("1")
 139
 140     '/// type keys [shift]+[tab] to get the last line to the highest level, too ///'
 141     Kontext "DocumentImpressOutlineView"
 142     DocumentImpressOutlineView.TypeKeys ("<Shift Tab>", 1)
 143     '///<b> expected level/style: 'Title' </b>///'
 144     fGetPresentationStyle (0)
 145
 146     Kontext "DocumentImpressOutlineView"
 147     DocumentImpressOutlineView.TypeKeys ("<escape>", 1)
 148     Printlog "'///<b> call 'Edit->Undo' nine times </b>///'"
 149     for i = 1 to 9
 150       editundo
 151     next i
 152
 153 hPrepareSearchBUG
 154     hFindeImDokument ("I")
 155     '///<b> expected level/style: 'Outline 9' </b>///'
 156     fGetPresentationStyle (9)
 157
 158     Printlog "'///<b> call 'Edit->Redo' nine times </b>///'"
 159     for i = 1 to 9
 160       editredo
 161     next i
 162     try
 163       editredo
 164       Warnlog "NOT OK :-("
 165     catch
 166       Printlog "OK"
 167     endcatch
 168
 169 hPrepareSearchBUG
 170     hTypeKeys "<STRG HOME>"
 171     EditSelectAll
 172     hFindeImDokument ("I")
 173     '///<b> expected level/style: 'Title' </b>///'
 174     fGetPresentationStyle (0)
 175
 176     Printlog "'///<b> call 'Edit->Undo' nine times </b>///'"
 177     for i = 1 to 9
 178         editundo
 179     next i
 180
 181 hPrepareSearchBUG
 182     hTypeKeys "<STRG HOME>"
 183     EditSelectAll
 184     hFindeImDokument ("I")
 185     '///<b> expected level/style: 'Outline 9' </b>///'
 186     fGetPresentationStyle (9)
 187
 188     '/// type keys [strg]+[A] ///'
 189     Kontext "DocumentImpressOutlineView"
 190     EditSelectAll
 191     '/// type keys [strg]+[X] ///'
 192     DocumentImpressOutlineView.TypeKeys "<mod1 X>"
 193
 194     kontext
 195     if messagebox.exists (5) then
 196         Printlog "active about deleting pages with graphic objects: '" + messagebox.GetText + "'"
 197         Messagebox.ok
 198     else
 199         Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
 200     endif
 201
 202    '/// 'Edit->Undo' ///'
 203     editundo
 204    '/// 'Edit->Redo' ///'
 205     editredo
 206    '/// 'Edit->Undo' ///'
 207     editundo
 208
 209    '/// type keys [strg]+[A] ///'
 210    Kontext "DocumentImpressOutlineView"
 211    EditSelectAll
 212    '/// type keys [strg]+[X] ///'
 213    DocumentImpressOutlineView.TypeKeys "<mod1 X>"
 214
 215     kontext
 216     if messagebox.exists (5) then
 217         Printlog "active about deleting pages with graphic objects: '" + messagebox.GetText + "'"
 218         Messagebox.ok
 219     else
 220         Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
 221     endif
 222
 223     '/// type keys [strg]+[V] ///'
 224     Kontext "DocumentImpressOutlineView"
 225     DocumentImpressOutlineView.TypeKeys "<mod1 V>"
 226
 227     '/// 'Edit->Undo' ///'
 228     editundo
 229     '/// 'Edit->Redo' ///'
 230     editredo
 231
 232     '/// type keys [strg]+[End] ///'
 233     Kontext "DocumentImpressOutlineView"
 234     DocumentImpressOutlineView.TypeKeys "<mod1 End>"
 235     '/// type keys [strg]+[V] ///'
 236     DocumentImpressOutlineView.TypeKeys "<mod1 V>"
 237     '/// type keys [strg]+[A] ///'
 238     EditSelectAll
 239     '/// type keys [delete] ///'
 240     DocumentImpressOutlineView.TypeKeys "<delete>"
 241
 242     kontext
 243     if messagebox.exists (5) then
 244         Printlog "active-box about deleting pages with graphic objects: '" + messagebox.GetText + "'"
 245         Printlog "SAY CANCEL TO DIALOG!"
 246         Messagebox.Cancel
 247     else
 248         Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
 249         endif
 250
 251     '/// type keys [strg]+[A] ///'
 252     Kontext "DocumentImpressOutlineView"
 253     EditSelectAll
 254     try
 255         editcopy
 256         Printlog "OK"
 257     catch
 258         Warnlog "error 4711 TBO :-("
 259     endcatch
 260
 261     '/// type keys [delete] ///'
 262     Kontext "DocumentImpressOutlineView"
 263     DocumentImpressOutlineView.TypeKeys "<delete>"
 264
 265     kontext
 266     if messagebox.exists (5) then
 267       Printlog "Active-box about deleting pages with graphic objects: '" + messagebox.GetText + "'"
 268       Messagebox.ok
 269     else
 270       Warnlog "Messagebox missing ! (about deleting pages with graphic objects:)"
 271     endif
 272
 273     Kontext "DocumentImpressOutlineView"
 274     EditSelectAll
 275     try
 276       editcopy
 277       Warnlog "Didn't work!"
 278       Printlog "'" + getclipboard() + "'"
 279     catch
 280       Printlog "OK"
 281     endcatch
 282
 283     ViewWorkspaceDrawingView
 284     Call  hCloseDocument                                                '/// close document ///'
 285     Call  hCloseDocument                                                '/// close document ///'
 286 endcase
 287
 288 '-------------------------------------------------------------------------------
 289
 290 testcase tViewWorkspaceDrawingView
 291     Printlog "- View/Background-drawing"
 292     Call hNewDocument                                           '/// new document ///'
 293     sleep 2
 294     ViewDrawing                                         '/// view background drawing ///'
 295     try
 296         hRechteckErstellen ( 20,20,40,40 )                      '/// create rectangle ///'
 297         sleep 1
 298         Printlog "  - rectangle created"
 299     catch
 300         Warnlog "  Rectangle could not be created"
 301     endcatch
 302     Call hCloseDocument                                         '/// close document ///'
 303 endcase
 304
 305 '-------------------------------------------------------------------------------
 306
 307 testcase tAnsichtEbene
 308     printLog "- View/Layer"                                                     '/// view layer ///'
 309
 310
 311     FileAutopilotPresentation                                   '/// new document-autopilot ///'
 312     Kontext "AutopilotPraesentation1"
 313     sleep 5
 314     AutopilotPraesentation1.Ok
 315     sleep 2
 316     sleep 2
 317     ViewSlide                                                   '/// back to view slide ///'
 318     Sleep 2
 319
 320     Call  hCloseDocument                                                '/// close document ///'
 321
 322 endcase
 323
 324 '-------------------------------------------------------------------------------