1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 '* Copyright 2008 by Sun Microsystems, Inc.
7 '* OpenOffice.org - a multi-platform office productivity suite
9 '* $RCSfile: im_011_.inc,v $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/************************************************************************
34 '* Owner : wolfram.garten@sun.com
36 '* short description : Impress Required Test Library (11)
38 '\*****************************************************************
46 '/// open application ///'
49 '/// Change options so the presentation won't start from the current, but the first slide. ///'
51 hToolsOptions ( "IMPRESS", "General" )
52 MitAktuellerSeite.Uncheck
53 Kontext "ExtrasOptionenDlg"
56 '/// insert a graphic: "global\input\graf_inp\desp.bmp") ///'
57 Printlog "- Insert graphic from file so there is something for the slide mode"
58 hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
60 '///+ Insert->Slide ///'
63 hTypekeys "<Pagedown>"
65 '///+ insert a graphic: "global\input\graf_inp\desp.bmp") ///'
66 hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
68 '///+ View->Master View->Slides View ///'
69 ViewWorkspaceSlidesView
71 '-------------------------------- Ueberblendeffekt ----------------------------------------
72 Printlog "- Test blend effect"
73 Kontext "SlideViewObjectbar" ' CORRECT
76 if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount
77 '/// select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar ///'
78 Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount)
79 Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText
81 ' Printlog Geschwindigkeit.GetRT ' 341 listbox
82 ' Printlog Diawechsel.GetRT ' 341 listbox
83 ' Printlog Zeit.GetRT ' 353 spinfield
84 ' Printlog DiasProReihe.GetRT ' 353 spinfield
85 ' Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button
86 ' Printlog DiaAnzeigen.GetRT doesn't work, but behave as button
88 '-------------------------------- Geschwindigkeit -----------------------------------------
89 Printlog "- Check different speed settings"
90 Kontext "SlideViewObjectbar"
91 '/// select every item in list 'Transition Speed' ///'
92 x = Geschwindigkeit.GetItemCount
94 Geschwindigkeit.Select i
95 Printlog " changed to: " + Geschwindigkeit.GetSelText
97 '-------------------------------- Diawechsel ----------------------------------------------
98 Printlog "- Style of slide change"
99 Kontext "SlideViewObjectbar"
100 '/// select every item in list 'Auto Transition' ///'
101 x = Diawechsel.GetItemCount
104 Printlog " Changed to: " + Diawechsel.GetSelText + "; is time enabled ?: "+Zeit.IsEnabled
106 '-------------------------------- Diawechsel Zeitintervall --------------------------------
107 Printlog "- Zeitintervall testen"
108 Kontext "SlideViewObjectbar"
109 '/// select last entry 'Automatic' in listbox 'Auto Transition' ///'
110 Diawechsel.Select (Diawechsel.GetItemCount) ' automatic is usually the last one
112 if (Zeit.IsEnabled = FALSE) Then Warnlog "- Time should be editable, if automatic is chosen"
113 '/// type "15" into the field 'Time' ///'
116 Printlog " Time set to: " + Zeit.GetText
117 '-------------------------------- Praesentation mit Zeitnahme ------------------------------
118 Printlog "- Presentation with rehearsed timings"
119 Kontext "SlideViewObjectbar"
120 '/// click button 'Rehearse Timings' ///'
121 PraesentationMitZeitnahme.Click
123 Kontext "DocumentPresentation"
124 if DocumentPresentation.exists (5) then
126 '/// wait some seconds and click with mouse ///'
127 DocumentPresentation.MouseDown 50,50
128 DocumentPresentation.MouseUp 50,50
130 '/// wait some seconds and click with mouse ///'
131 DocumentPresentation.MouseDown 50,50
132 DocumentPresentation.MouseUp 50,50
135 warnlog "Didn't switch into presentation mode :-("
137 Kontext "DocumentPresentation"
138 if DocumentPresentation.exists (5) then
139 warnlog "We are still in presentation mode :-( WHY!!!!???"
141 '------------------------------- Dia anzeigen ja/nein --------------------------------------
142 Printlog "- Show slide yes/no"
143 Kontext "SlideViewObjectbar"
144 '/// click button 'Show/Hide Slide' ///'
147 '/// click button 'Show/Hide Slide' ///'
149 '------------------------------- Dias pro Reihe --------------------------------------------
150 Printlog "- Presentation with rehearsed timings"
151 Kontext "SlideViewObjectbar"
152 sTemp = DiasProReihe.GetText
153 '/// press button 'less' in field 'Slides Per Row' ///'
155 if sTemp = DiasProReihe.GetText then warnlog " nothing changed (less)"
156 sTemp = DiasProReihe.GetText
157 '/// press button 'more' in field 'Slides Per Row' ///'
159 if sTemp = DiasProReihe.GetText then warnlog " nothing changed (more 1)"
160 sTemp = DiasProReihe.GetText
161 '/// press button 'more' in field 'Slides Per Row' ///'
163 if sTemp = DiasProReihe.GetText then warnlog " nothing changed (more 2)"
165 if active.exists then
166 warnlog "active (1): '"+active.gettext+"'"
168 '/// Restore default settings in ToolsOptions ///'
170 hToolsOptions ( "IMPRESS", "General" )
171 MitAktuellerSeite.Check
172 Kontext "ExtrasOptionenDlg"
174 '/// close application ///'