testautomation/graphics/required/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:43: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 : 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 testcase tiViewPanes
  45
  46     goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test
  47     dim bState as boolean
  48     printlog "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     printlog "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         printlog "View->Task Pane "
  87         ViewTaskPane
  88         sleep 1
  89         if (Tasks.exists) then
  90             warnlog "View->Task Panel failed"
  91             ViewTaskPane
  92         endif
  93         printlog "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         printlog "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     printlog "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
 130 endcase 'tiViewPanes
 131 '---------------------------------------------------------
 132 testcase tiViewMasterView
 133
 134     printlog "open application"
 135     Call hNewDocument
 136     printlog "View->Master View->Drawing View"
 137     sleep 1
 138     ViewWorkspaceDrawingView
 139      sleep 5
 140     printlog "View->Master View->Outline View "
 141     ViewWorkspaceOutlineView
 142      sleep 1
 143     printlog "View->Master View->Slides View "
 144     ViewWorkspaceSlidesView
 145      sleep 1
 146     printlog "View->Master View->Notes View "
 147     ViewWorkspaceNotesView
 148       sleep 1
 149     printlog "View->Master View->Handout View "
 150     ViewWorkspaceHandoutView
 151       sleep 1
 152     printlog "View->Master View->Drawing View "
 153     ViewWorkspaceDrawingView
 154     printlog "close application "
 155       sleep 1
 156     Call hCloseDocument
 157
 158 endcase 'tiViewMasterView
 159 '---------------------------------------------------------
 160 testcase tiViewSlideMaster
 161
 162     printlog "open application with : File->Autopilot->Presentation; OK; OK "
 163     FileAutopilotPresentation                ' to get a title :-)
 164     sleep 2
 165     Kontext "AutopilotPraesentation1"
 166     AutopilotPraesentation1.Ok
 167     sleep 1
 168     Kontext "Seitenlayout"  ' aka: Modify Slide
 169     if Seitenlayout.exists(5) then
 170         warnlog "Slidelayout has to vanish; moved to sidebar"
 171         Seitenlayout.OK
 172     endif
 173     kontext "DocumentImpress"
 174     sleep 1
 175     printlog "View->Slide "
 176     ViewSlide
 177     Sleep 1
 178     printlog "View->Master->Drawing "
 179     ViewDrawing
 180     Sleep 1
 181     printlog "View->Slide "
 182     ViewSlide
 183     Sleep 1
 184     printlog "View->Master->Title "
 185     try
 186     ViewTitle
 187     Errorlog "View - Master - Title Slide Master should NOT be accessable"
 188     catch
 189     printlog "View - Master - Title Slide Master not accessable - good"
 190     endcatch
 191     Sleep 1
 192     printlog "View->Slide "
 193     ViewSlide
 194     Sleep 1
 195     printlog "View->Master->Handout "
 196     ViewHandout
 197     Sleep 1
 198     '   ViewSlide
 199     Sleep 1
 200     printlog "View->Master->Notes "
 201     ViewNotes
 202     kontext "DocumentImpress"
 203     Sleep 1
 204     printlog "View->Slide "
 205     ViewSlide
 206     Sleep 1
 207     printlog "close application "
 208     Call  hCloseDocument
 209
 210 endcase 'tiViewSlideMaster
 211 '--------------------------------------------------------
 212 testcase tiViewToolbar_1
 213
 214     Dim Zaehler as integer
 215     Dim i as integer
 216
 217     printlog "open application "
 218     Call hNewDocument
 219     sleep 2
 220     printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp "
 221     InsertGraphicsFromFile
 222     sleep 2
 223     Kontext "GrafikEinfuegenDlg"
 224     sleep 1
 225     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
 226     sleep 1
 227     Oeffnen.Click
 228     sleep 3
 229     Kontext "Messagebox"
 230     if Messagebox.Exists then
 231         Warnlog Messagebox.GetText
 232         Messagebox.OK
 233     end if
 234     Kontext "DocumentImpress"
 235     printlog "select graphic "
 236     EditSelectAll
 237     sleep 2
 238     Kontext "GraphicObjectbar"
 239     sleep 1
 240     printlog "The Graphics Toolbar has to be visible now; If not -> ERROR "
 241     if GraphicObjectbar.Exists Then
 242         Printlog "- graphic object toolbar exists"
 243         Zaehler=Grafikmodus.GetItemCount
 244         for i = 1 to Zaehler
 245             Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")"
 246             Grafikmodus.Select i
 247             sleep 3
 248         next i
 249         sleep 3
 250     else
 251         Warnlog "- No graphic function toolbar visible"
 252     end if
 253     printlog "close application "
 254     Call hCloseDocument
 255
 256 endcase 'tiViewToolbar_1