testautomation/graphics/optional/includes/impress/im_003_.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: im_003_.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 : Impress Resource Test: View Menu
  37 '*
  38 '***********************************************************************************
  39 ' #1 tiViewPanes
  40 ' #1 tiViewMasterView
  41 ' #1 tiViewSlideMaster
  42 ' #1 tiViewToolbar_1
  43 '\**********************************************************************************
  44
  45 testcase tiViewPanes
  46     goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test
  47     dim bState as boolean
  48     '/// open application ///'
  49     Call hCloseDocument
  50     Call hNewDocument
  51     sleep 1
  52     kontext "Tasks"
  53     if (NOT Tasks.exists) then
  54         warnlog "Tasks Panel not visible on opening application. Opening now."
  55         ViewTaskPane
  56     endif
  57     kontext "Slides"
  58     if (NOT Slides.exists) then
  59         warnlog "Slides Panel not visible on opening application. Opening now."
  60         ViewTaskSlide
  61     endif
  62     kontext "Tasks"
  63     '/// Deactivate all but "masterpages" ///'
  64     View.OpenMenu
  65     hMenuSelectNr (2)
  66     View.OpenMenu
  67     hMenuSelectNr (3)
  68     View.OpenMenu
  69     hMenuSelectNr (4)
  70
  71     sleep 1
  72
  73     Tasks.TypeKeys ("<RIGHT><RIGHT><RIGHT>")
  74
  75     try
  76         kontext "recentlyUsed"
  77         printlog "Toggeling Master Pages now with <space>"
  78         kontext "MasterPages"
  79         MasterPages.typeKeys "<space>"
  80         kontext "recentlyUsed"
  81         if (recentlyUsed.IsVisible = FALSE) then   'exists = FALSE) then
  82             warnlog "View-menu didn't work"
  83         endif
  84         kontext "Tasks"
  85         sleep 1
  86         '/// View->Task Pane ///'
  87         ViewTaskPane
  88         sleep 1
  89         if (Tasks.exists) then
  90             warnlog "View->Task Panel failed"
  91             ViewTaskPane
  92         endif
  93         '/// View->Task Pane ///'
  94         ViewTaskPane
  95         sleep 1
  96         if (NOT Tasks.exists) then
  97             warnlog "View->Task Panel failed"
  98             ViewTaskPane
  99         endif
 100     catch
 101         warnlog "View->Task Pane couldn't get executed"
 102     endcatch
 103     kontext "Slides"
 104     try
 105         ViewTaskSlide
 106         if (Slides.exists) then
 107             warnlog "View->Slide Panel failed."
 108             ViewTaskSlide
 109         endif
 110         '/// View->Slide Pane ///'
 111         ViewTaskSlide
 112         sleep 1
 113         if (NOT Slides.exists) then
 114             warnlog "View->Slide Panel failed."
 115             ViewTaskSlide
 116         endif
 117     catch
 118         warnlog "View->Slide Pane couldn't get executed"
 119     endcatch
 120
 121     '/// Reactivate all pages in the Task-panel ///'
 122     kontext "Tasks"
 123     View.OpenMenu
 124     hMenuSelectNr (2)
 125     View.OpenMenu
 126     hMenuSelectNr (3)
 127     View.OpenMenu
 128     hMenuSelectNr (4)
 129 endcase
 130
 131 testcase tiViewMasterView
 132 '/// open application ///'
 133    Call hNewDocument
 134 '/// View->Master View->Drawing View ///'
 135    sleep 1
 136    ViewWorkspaceDrawingView
 137 '     Kontext "DocumentImpress"
 138 '     gMouseClick 70,70
 139      sleep 5
 140 '/// View->Master View->Outline View ///'
 141    ViewWorkspaceOutlineView
 142 '     Kontext "DocumentImpressOutlineView"
 143 '     DocumentImpressOutlineView.MouseDown 70,70
 144 '     DocumentImpressOutlineView.MouseUp 70,70
 145      sleep 1
 146 '/// View->Master View->Slides View ///'
 147    ViewWorkspaceSlidesView
 148 '     Kontext "DocumentImpressSlideView"
 149 '     DocumentImpressSlideView.MouseDown 70,70
 150 '     DocumentImpressSlideView.MouseUp 70,70
 151      sleep 1
 152 '/// View->Master View->Notes View ///'
 153    ViewWorkspaceNotesView
 154       sleep 1
 155 '/// View->Master View->Handout View ///'
 156    ViewWorkspaceHandoutView
 157       sleep 1
 158 '/// View->Master View->Drawing View ///'
 159    ViewWorkspaceDrawingView
 160 '/// close application ///'
 161       sleep 1
 162    Call hCloseDocument
 163 endcase
 164
 165 testcase tiViewSlideMaster
 166 '/// open application with : File->Autopilot->Presentation; OK; OK ///'
 167 '   Call  hNewDocument
 168       FileAutopilotPresentation                ' to get a title :-)
 169       sleep 2
 170       Kontext "AutopilotPraesentation1"
 171       AutopilotPraesentation1.Ok
 172       sleep 1
 173       Kontext "Seitenlayout"  ' aka: Modify Slide
 174       if Seitenlayout.exists(5) then
 175            warnlog "Slidelayout has to vanish; moved to sidebar"
 176            Seitenlayout.OK
 177       endif
 178    kontext "DocumentImpress"
 179    sleep 1
 180 '/// View->Slide ///'
 181    ViewSlide
 182    Sleep 1
 183 '/// View->Master->Drawing ///'
 184    ViewDrawing
 185    Sleep 1
 186 '/// View->Slide ///'
 187    ViewSlide
 188    Sleep 1
 189 '/// View->Master->Title ///'
 190    try
 191       ViewTitle
 192       Errorlog "View - Master - Title Slide Master should NOT be accessable"
 193    catch
 194       printlog "View - Master - Title Slide Master not accessable - good"
 195    endcatch
 196    Sleep 1
 197 '/// View->Slide ///'
 198    ViewSlide
 199    Sleep 1
 200 '/// View->Master->Handout ///'
 201    ViewHandout
 202    Sleep 1
 203 '   ViewSlide
 204    Sleep 1
 205 '/// View->Master->Notes ///'
 206    ViewNotes
 207    kontext "DocumentImpress"
 208    Sleep 1
 209 '/// View->Slide ///'
 210    ViewSlide
 211    Sleep 1
 212 '/// close application ///'
 213    Call  hCloseDocument
 214 endcase
 215
 216 testcase tiViewToolbar_1
 217   Dim Zaehler as integer
 218   Dim i as integer
 219
 220 '/// open application ///'
 221  Call hNewDocument
 222   sleep 2
 223 '/// Insert->Graphic... : "global\input\graf_inp\desp.bmp" ///'
 224   InsertGraphicsFromFile
 225   sleep 2
 226    Kontext "GrafikEinfuegenDlg"
 227    sleep 1
 228    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
 229    sleep 1
 230    Oeffnen.Click
 231    sleep 3
 232    Kontext "Messagebox"
 233     if Messagebox.Exists then
 234       Warnlog Messagebox.GetText
 235       Messagebox.OK
 236     end if
 237    Kontext "DocumentImpress"
 238 '/// select graphic ///'
 239    EditSelectAll
 240    sleep 2
 241    Kontext "GraphicObjectbar"
 242     sleep 1
 243 '/// The Graphics Toolbar has to be visible now; If not -> ERROR ///'
 244     if GraphicObjectbar.Exists Then
 245        Printlog "- graphic object toolbar exists"
 246        Zaehler=Grafikmodus.GetItemCount
 247        for i = 1 to Zaehler
 248            Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")"
 249            Grafikmodus.Select i
 250            sleep 3
 251        next i
 252        sleep 3
 253     else
 254        Warnlog "- No graphic function toolbar visible"
 255     end if
 256 '/// close application ///'
 257   Call hCloseDocument
 258 endcase
 259
 260