diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/i_slideshow2.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/impress/i_slideshow2.inc | 1011 |
1 files changed, 1011 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc new file mode 100644 index 000000000000..1b88116f1b5a --- /dev/null +++ b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc @@ -0,0 +1,1011 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/************************************************************************ +'* +'* Owner : wolfram.garten@sun.com +'* +'* short description : +'* +'******************************************************************* +'* +' #1 tPraesentationAnimation +' #1 tPraesentationEffekt +' #1 tSlideShowInteraction +' #1 tAendernObjektBenennen +' #1 tSlideshowBackgroundAllSlides +' #1 tSlideshowBackgroundSelectedSlide +'* +'\****************************************************************** + +testcase tPraesentationAnimation + Dim i + Printlog "- Slideshow/Animation" + + Call hNewDocument + Call sSelectEmptyLayout '/// new document ///' + sleep 2 + InsertGraphicsFromFile '/// insert graphic ///' + Kontext "OeffnenDlg" + Dateiname.SetText ConvertPath (gTesttoolPath + "global/input/graf_inp/desp.bmp") + sleep 2 + Oeffnen.Click + sleep 2 + + gMouseClick 90,90 '/// deselect graphic ///' + + InsertGraphicsFromFile '/// insert 2nd graphic ///' + Kontext "OeffnenDlg" + Dateiname.SetText ConvertPath (gTesttoolPath + "global/input/graf_inp/borabora.jpg") + sleep 2 + Oeffnen.Click + sleep 2 + + Call hTypekeys "<TAB>" + + Opl_SD_EffekteZulassen '/// open animation dialogue ///' + Kontext "Animation" + + for i=1 to 10 + BildAufnehmen.Click '/// add graphic 10 times ///' + next i + + sleep 1 + if AnzahlBilder.GetText <> "10" Then '/// get number of frames (should be 10) ///' + WarnLog " - Adding pictures did not work" + else + PrintLog " Pictures added" + end if + + if AlleAufnehmen.IsEnabled Then WarnLog " - Add all should not be enabled because only 1 object is selected" + + Kontext "DocumentImpress" + EditSelectAll '/// select both graphics in document ///' + + Kontext "Animation" + + for i=1 to 5 + printlog i + AlleAufnehmen.Click '/// add them 5 times (10 frames) ///' + next i + + sleep 1 + if AnzahlBilder.GetText <> "20" Then '/// compare total numbers of frame ///' + WarnLog " - Adding pics does not work" + else + PrintLog " all pics added" + end if + + ErstesBild.Click '/// jump to 1st frame ///' + + if AnzahlBilder.GetText <> "1" Then '/// get number index of selected frame ///' + WarnLog " - Jump back to beginning does not work" + else + PrintLog " Jump back to beginning works" + end if + + LetztesBild.Click '/// jump to last frame ///' + + if AnzahlBilder.GetText <> "20" Then '/// control number index of selected frame ///' + WarnLog " - Jump to end does not work" + else + PrintLog " Jumped to end" + end if + sleep 1 + Abspielen.Click '/// play animation ///' + sleep 10 + Kontext "DocumentImpress" + EditSelectAll '/// delete graphics in document ///' + DocumentImpress.TypeKeys "<DELETE>" + sleep 2 + Kontext "Animation" + Erstellen.Click '/// create animation ///' + sleep 10 + + Kontext "DocumentImpress" + try + EditCopy '/// try to copy created animation to make sure it is created ///' + PrintLog " Animation created" + catch + WarnLog " - Animation not created" + endcatch + + Kontext "Animation" + + if AnimationsgruppeGruppenobjekt.IsChecked = True Then '/// set duration time of frames ///' + try + AnzeigedauerProBild.SetText "1" + WarnLog " - Control should be disabled" + catch + PrintLog " Control disabled because Groupobjekt = " + AnimationsgruppeGruppenobjekt.IsChecked + endcatch + end if + + AnimationsgruppeBitmapobjekt.Check '/// check group object ///' + + AnzeigedauerProBild.SetText "3" '/// set frame visibility time to 3 ///' + SetClipboard AnzeigedauerProBild.GetText + AnzeigedauerProBild.More '/// raise value for frame time ///' + if AnzeigedauerProBild.GetText<> GetClipboardText Then + PrintLog " Duration per frame works" + else + WarnLog " - Duration could not be changed" + end if + + Dim Zaehler + Zaehler = AnzahlDurchlaeufe.GetItemCount '/// test different settings for pass amount ///' + for i=1 to Zaehler + AnzahlDurchlaeufe.Select i + next i + PrintLog " Number of loops is set" + + Dim ZaehlerAnpassung + ZaehlerAnpassung=Anpassung.GetItemCount + for i=1 to ZaehlerAnpassung + Anpassung.Select i + next i + + BildLoeschen.Click '/// delete 1 frame ///' + if AnzahlBilder = "20" Then + WarnLog " - Deleting pictures does not work" + else + PrintLog " Picture No.20 deleted" + end if + + AlleLoeschen.Click '/// delete all frames ///' + Kontext "Active" + Active.Yes + sleep 3 + + Kontext "Animation" + if Abspielen.IsEnabled = true Then '/// check if play button is still active ///' + WarnLog " - Not all pics are deleted" + else + PrintLog " All pics deleted" + end if + sleep 2 + Animation.Close '/// close animation flyer ///' + sleep 2 + Call hCloseDocument '/// close document ///' +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tPraesentationEffekt + qaerrorlog "Test not yet ready." + goto endsub + Printlog "- Slideshow/Effect" + Dim i + Dim j + Dim k + Dim l + Dim m + Dim n + Dim Zaehler + Dim ZaehlerKmh + Dim ZaehlerText + Dim ZaehlerTon + Dim Zufall + Call hNewDocument '/// new document ///' + '/// check state of navigator ! expected: closed ///' + Kontext "Navigator" + if Navigator.exists then + '///+ close navigator ! ///' + Navigator.Close + Warnlog "Navigator was open. Check earlier tests. Now closed." + else + printlog "Navigator: NOT available. Good." + endif + sleep 2 + kontext "DocumentImpress" + gMouseClick 50,50 + hRechteckErstellen (20,20,50,50) '/// create rectangle ///' + sleep 3 + Kontext "Effekt" + Printlog " - Test effects" + gMouseClick 90,90 '/// deselect rectangle ///' + sleep 1 + DocumentImpress.TypeKeys "<TAB>" '/// select rectangle ///' + sleep 1 + DocumentImpress.TypeKeys "<F2>" '/// go into text edit mode (F2) ///' + sleep 1 + DocumentImpress.TypeKeys "test text to test text effects" '/// type text into the rectangle ///' + sleep 1 + DocumentImpress.TypeKeys "<ESCAPE>" + sleep 2 + DocumentImpress.TypeKeys "<TAB>" + sleep 1 + SlideShowEffects + Kontext "Effekt" + sleep 3 + Effekte.Click + Zaehler=Effekteliste.GetItemCount + for i=2 to Zaehler '/// Start from the second entry since the first one is "No effect" ///' + Effekteliste.Select i + SetClipboard Effekteliste.GetSelText + Effekt.TypeKeys "<TAB>" + Effekteauswahl.TypeKeys "<RIGHT>" ,2 + sleep 1 + Zuweisen.Click + sleep 1 + Effekt.Close + sleep 1 + PraesentationEffekt + Kontext "Effekt" + sleep 1 + if GetClipboardText<>Effekteliste.GetSelText Then Warnlog " - Invisible color not changed" + sleep 1 + next i + sleep 1 + Printlog " - Test speed setting" + sleep 1 + Texteffekte.Click + + sleep 1 + ZaehlerKmh=Geschwindigkeit.GetItemCount + for j=1 to ZaehlerKmh + Geschwindigkeit.Select j + SetClipboard Geschwindigkeit.GetSelText + Zuweisen.Click + Effekt.Close + sleep 1 + SlideShowEffects + Kontext "Effekt" + sleep 1 + if GetClipboardText <> Geschwindigkeit.GetSelText Then Warnlog " - Speed setting did not change" + next j + Printlog " - Test text effects" + Texteffekte.Click + sleep 1 + ZaehlerText=TexteffekteListe.GetItemCount + for k=1 to ZaehlerText + TexteffekteListe.Select k + SetClipboard TexteffekteListe.GetSelText + Effekt.TypeKeys "<TAB>" + Texteffektauswahl.TypeKeys "<RIGHT>" ,2 + Zuweisen.Click + sleep 1 + Effekt.Close + gMouseClick 90,90 + sleep 2 + gmouseClick 40,40 + PraesentationEffekt + Kontext "Effekt" + sleep 1 + Texteffekte.Click + sleep 1 + next k + Printlog " - Test invisible color" + Effekte.Click + Effekteliste.Select 1 + Effekteauswahl.TypeKeys "<RIGHT>" ,2 + Zuweisen.Click + sleep 2 + try + Extras.Click + catch + Warnlog "- Extras Button not active" + endcatch + sleep 1 + randomize + Zufall=((2*Rnd)+1) + for l=1 to 5 + if (NOT Abblendfarbe.IsEnabled) then + MitFarbeAbblenden.Click + endif + sleep 1 + if Abblendfarbe.IsEnabled = False Then Warnlog " - Control should not be enabled" + sleep 1 + Zuweisen.Click + Effekt.Close + SlideShowEffects + Kontext "Effekt" + sleep 1 + Effekte.Click + Effekteliste.Select 1 + Effekteauswahl.TypeKeys "<RIGHT>" ,3 + try + Zuweisen.Click + catch + Effekteauswahl.TypeKeys "<RIGHT>" + Zuweisen.Click + endcatch + sleep 2 + Extras.Click + next l + Printlog " - Test blend with color" + MitFarbeAbblenden.Click + try + for m=1 to 5 + sleep 2 + Abblendfarbe.Select Zufall + SetClipboard Abblendfarbe.GetSelText + Zuweisen.Click + next m + catch + MitFarbeAbblenden.Click + for m=1 to 5 + sleep 2 + Abblendfarbe.Select Zufall + SetClipboard Abblendfarbe.GetSelText + Zuweisen.Click + next m + endcatch + Printlog " - Test order" + Effekte.Click + Effekteliste.Select 2 + Zuweisen.Click + Reihenfolge.Click + sleep 1 + Printlog " - Test preview" + Vorschaufenster.Click + sleep 1 + Kontext "Vorschau" + if Vorschau.Exists = False Then Warnlog " - Preview window does not exist" + Vorschau.Close + Kontext "Effekt" + Effekte.Click + UseBindings + sleep 1 + Extras.Click + sleep 1 + if NOT klang.Exists then + warnlog "- Control Sound does not exist" + end if + if Klangliste.Exists = false Then Klang.Click + sleep 1 + ZaehlerTon = Klangliste.GetItemCount + for n=1 to ZaehlerTon + + Klangliste.Select n + SetClipboard Klangliste.GetSelText + VollstaendigAbspielen.Click + Effekt.Close + sleep 1 + Kontext "DocumentImpress" + gMouseClick 40,40 + sleep 1 + PraesentationEffekt + Kontext "Effekt" + sleep 1 + Effekte.Click + sleep 1 + Extras.Click + if Klangliste.IsVisible = False Then Klang.Click + next n + Effekt.Close + sleep 1 + Call hCloseDocument +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tSlideShowInteraction + Dim Datei$ + Dim i as integer + Dim Zaehler as integer + dim b115364 as boolean + + Datei$ = ConvertPath (gOfficePath + "user\work\interac.odp") + + '/// open application ///' + Call hNewDocument + Call sSelectEmptyLayout + sleep 5 + setStartCurrentPage(TRUE) '/// Set "start with current page to ON ///' + + '/// call 'Insert->Slide' three times and name the slides 2, 3, 4 and create a rectangl� on it ///' + '///+ we now have 4 slides ?! :-) ///' + Kontext "DocumentImpress" + for i = 2 to 4 + InsertSlide + sleep 2 + hTypekeys "<Pagedown>" , 10 ' workaround for issue i56267. Has to be removed when cws impress73 has be integrated + sleep 2 + Kontext "DocumentImpress" + gMouseClick 50,50 + Call hRechteckErstellen (i*10,i*10,i*20,i*20) + sleep 2 + next i + + '/// check state of navigator ! expected: closed -> open navigator ///' + Kontext "Navigator" + if Navigator.exists then + qaerrorlog "Navigator: already open :-(" + else + printlog "Navigator: NOT available :-) will be opened now." + Kontext "DocumentImpress" + DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" +' ViewNavigator + endif + sleep 3 + + '/// Slide Show->Interaction ///' + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + if AktionBeiMausklick.GetItemCount = 11 Then + Printlog "- List is complete" + else + Warnlog "- Number of possible actions is wrong. It should be: 11, but it is: " + AktionBeiMausklick.GetItemCount + end if + sleep 1 + + AktionBeiMausklick.Select 1 'Keine Aktion bei Mausclick + Printlog (AktionBeiMausklick.GetSelText + " chosen") + If Durchsuchen.IsVisible then Warnlog "- Control should be invisible because AktionBeiMausklick = " + AktionBeiMausKlick.GetSelText + sleep 1 + + Kontext "TabInteraktion" + AktionBeiMausklick.Select 2 'Go to previous Slide + Printlog (AktionBeiMausklick.GetSelText + " chosen") + if Durchsuchen.IsVisible Then Warnlog "- Control should be invisible, beacause Action = " + AktionBeiMausKlick.GetSelText + TabInteraktion.OK + sleep 2 + Kontext "DocumentImpress" + gMouseClick 90,90 + sleep 1 + gMouseClick 50,50 + sleep 2 + + Kontext "NavigatorDraw" + sleep 2 + if Not Liste.GetSelIndex = 3 Then + Warnlog "- jumped to wrong slide" + else + Printlog "- jumped to correct slide" + end if + sleep 1 + + Kontext "DocumentImpress" + EditSelectAll + sleep 1 + + SlideShowInteraction + sleep 2 + Kontext "TabInteraktion" + AktionBeiMausklick.select 3 'Go to next Slide + Printlog (AktionBeiMausKlick.GetSelText + " chosen") + TabInteraktion.OK + sleep 1 + Kontext "DocumentImpress" + gMouseClick 90,90 + sleep 1 + gMouseClick 50,50 + sleep 2 + gMouseClick 90,90 + Kontext "NavigatorDraw" + if Liste.GetSelIndex <> 4 Then + Warnlog "- Jumped to wrong slide. Jumped to " + Liste.GetSelIndex + " instead of 4." + else + Printlog " Jumped to correct slide" + end if + sleep 1 + kontext "DocumentImpress" + EditSelectAll + sleep 1 + + SlideShowInteraction + sleep 1 + Kontext "TabInteraktion" + AktionBeiMausklick.select 4 'Go to first Slide + Printlog AktionBeiMausKlick.GetSelText + sleep 1 + TabInteraktion.OK + sleep 1 + Kontext "DocumentImpress" + gMouseClick 90,90 + sleep 1 + gMouseClick 50,50 + sleep 1 + gMouseClick 90,90 + Kontext "NavigatorDraw" + if Liste.GetSelIndex <> 1 Then Warnlog "- jumped to wrong slide. Jumped to " + Liste.GetSelIndex + " instead of 1." + Letzte.Click 'Liste.Select 4 + Kontext "DocumentImpress" + EditSelectAll + sleep 2 + + try + SlideShowInteraction + catch + warnlog "SlideshowInteraction diasabled :-(" + endcatch + Kontext "TabInteraktion" + AktionBeiMausklick.select 5 'Go to last page + printlog AktionBeiMausKlick.GetSelText + TabInteraktion.OK + sleep 1 + Kontext "NavigatorDraw" + if Not Liste.GetSelIndex = 1 Then Warnlog "- jumped to wrong slide" + + kontext "DocumentImpress" + gMouseClick 90,90 + sleep 1 + hMouseClick DocumentImpress,50,50 + Call hRechteckErstellen 20,20,50,50 + sleep 1 + EditSelectAll + sleep 1 + try + FormatGroupGroup + catch + warnlog "GROUP?" + endcatch + sleep 1 + + SlideShowInteraction + Kontext "TabInteraktion" + AktionBeiMausklick.select 6 'Sprung zu Seite oder Objekt + printlog AktionBeiMausKlick.GetSelText + sleep 2 + if Not ListeSprungZuSeiteObjekt.IsVisible Then Warnlog " list seems to be invisible" + Seite.SetText S2 + Suchen.Click + if ListeSprungZuSeiteObjekt.GetSelIndex <> 3 Then + Warnlog " Search does not work. Current slide is: " + ListeSprungZuSeiteObjekt.GetSelText + endif + TabInteraktion.OK + sleep 1 + + Kontext "DocumentImpress" + gMouseClick 90,90 + sleep 1 + gMouseClick 25,25 + sleep 2 + Kontext "NavigatorDraw" + if Liste.GetSelIndex <> 2 Then + Warnlog "- Jumped to wrong destination" + printlog Liste.GetSelIndex + Liste.Select 4 + Liste.TypeKeys "<RETURN>" + endif + Kontext "DocumentImpress" + EditSelectAll + sleep 1 + + Kontext "DocumentImpress" + EditSelectAll + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + AktionBeiMausKlick.Select 7 'Go to Document + Printlog AktionBeiMausKlick.GetSelText + " chosen" + try + Durchsuchen.Click + sleep 1 + Kontext "OeffnenDlg" + sleep 1 + Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\recht_49.odp") + Oeffnen.Click + sleep 10 + Kontext "TabInteraktion" + sleep 1 + TabInteraktion.OK + sleep 3 + Kontext "DocumentImpress" + catch + Warnlog "- Search button could not be accessed" + endcatch + sleep 1 + DocumentImpress.MouseDown 90,90 + DocumentImpress.MouseUp 90,90 + sleep 2 + Kontext "DocumentImpress" + DocumentImpress.Mousedown 30,30 + kontext + b115364 = false + if messagebox.exists then + printlog "baeh: '" + messagebox.gettext + "'" + try + messagebox.ok ' was default in so7 + catch + warnlog "behaviour changed #115364# mother document gets closed :-(" + if fileExists(ConvertPath (gOfficePath + "user\work\bug115364.odp")) then + kill ConvertPath (gOfficePath + "user\work\bug115364.odp") + endif + messagebox.yes ' don't save changes, before going on! + b115364 = true + kontext "SpeichernDlg" + Dateiname.setText ConvertPath (gOfficePath + "user\work\bug115364.odp") + Speichern.click + sleep 10 + endcatch + else + printlog "OK :-)" + endif + Kontext "DocumentImpress" + DocumentImpress.MouseUp 30,30 + sleep 2 + try + ViewDrawing + sleep 1 + Kontext "DocumentImpress" + DocumentImpress.MouseDown 25,25 + DocumentImpress.MouseUp 25,25 + catch + Warnlog "- Jump to document did not work or preview window did not appear" + endcatch + sleep 2 + if (not b115364) then + Call hCloseDocument + else + Call hCloseDocument + hFileOpen (ConvertPath (gOfficePath + "user\work\bug115364.odp")) + endif + sleep 6 + + '/// Do Page down + Page up due to focusing-problems ///' + kontext "Slides" + hTypeKeys "<PAGEDOWN>" + hTypeKeys "<PAGEUP>" + Kontext "NavigatorDraw" + if NavigatorDraw.Exists = FALSE then + qaerrorlog "Navigator: NOT available :-( will be opened now!" + Kontext "DocumentImpress" + DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" + else + printlog "Navigator: already open :-)" + endif + Kontext "NavigatorDraw" + sleep 1 + if Naechste.IsEnabled then + Naechste.Click + else + warnlog "'Next' wasn't visible. Clicking 'First' + Two 'Next'." + Erste.Click + sleep 2 + Naechste.Click + Naechste.Click + sleep 2 + endif + + Kontext "DocumentImpress" + EditSelectAll + sleep 1 + + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + AktionBeiMausKlick.Select 8 + Printlog AktionBeiMausKlick.GetSelText + " chosen" + sleep 1 + Tabinteraktion.OK + sleep 2 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + if not AktionBeiMausKlick.GetSelIndex = 8 Then Warnlog "- Not the right action chosen" + sleep 1 + AktionBeiMausKlick.Select 8 'Play sound + Printlog AktionBeiMausKlick.GetSelText + "- chosen" + sleep 1 + Tabinteraktion.OK + sleep 2 + Kontext "NavigatorDraw" + sleep 1 + Liste.Select 2 + Kontext "DocumentImpress" + EditSelectAll + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + Durchsuchen.Click + sleep 1 + Kontext "OeffnenDlg" + sleep 1 + Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\blip.wav") + sleep 1 + Oeffnen.Click + sleep 1 + Kontext "Active" + if Active.Exists Then + Warnlog Active.GetText + " Gallery might be empty" + Active.OK + sleep 1 + Kontext "OeffnenDlg" + OeffnenDlg.Cancel + sleep 1 + end if + Kontext "TabInteraktion" + SetClipboard Klangwahl.GetText + TabInteraktion.OK + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + if Klangwahl.GetText <> GetClipboardText then Warnlog "- Not the right sound chosen" + TabInteraktion.OK + sleep 1 + InsertGraphicsFromFile + sleep 1 + Kontext "GrafikeinfuegenDlg" + sleep 1 + if Verknuepfen.IsChecked then Verknuepfen.UnCheck + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") + Oeffnen.Click + sleep 3 + Kontext "NavigatorDraw" + sleep 1 + Liste.Select 4 + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + AktionBeiMausKlick.Select 9 'Objektaktion ausfuehren + Printlog AktionBeiMausKlick.GetSelText + " chosen" + sleep 1 + Zaehler=Effekt.GetItemCount + for i=1 to Zaehler + Effekt.Select i + Printlog Effekt.GetSelText + " chosen" + + TabInteraktion.OK + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + next i + TabInteraktion.OK + sleep 1 + SlideShowInteraction + Kontext "TabInteraktion" + sleep 1 + AktionBeiMausKlick.Select 11 'Macro + Printlog AktionBeiMausKlick.GetSelText + " chosen" + sleep 2 + Durchsuchen.Click + sleep 5 + Kontext "ScriptSelector" + sleep 5 + ScriptSelector.Cancel + sleep 2 + Kontext "TabInteraktion" + sleep 1 + TabInteraktion.OK + sleep 3 + + SlideShowInteraction + Kontext "TabInteraktion" + sleep 2 + if not AktionBeiMausKlick.GetSelIndex = 11 Then Warnlog "- Wrong action used" + sleep 1 + AktionBeiMausKlick.Select 12 'End Presentation + Printlog AktionBeiMausKlick.GetSelText + Tabinteraktion.OK + sleep 1 + + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + if not Fenster.IsChecked Then Fenster.Check + BildschirmPraesentation.OK + sleep 2 + Kontext "DocumentImpress" + DocumentImpress.TypeKeys "<F5>" + sleep 5 + Kontext "DocumentPresentation" + sleep 2 + DocumentPresentation.MouseDown 50,50 + DocumentPresentation.MouseUp 50,50 + sleep 3 + if DocumentPresentation.Exists then + qaerrorlog "#i51418# Sound played instead of ending presentation" + DocumentPresentation.TypeKeys "<ESCAPE>" + sleep 3 + endif + try + Kontext "DocumentImpress" + EditSelectAll + Printlog "- Slideshow ended at right point" + catch + Warnlog "- Program is still in slideshow mode" + Kontext "DocumentPresentation" + DocumentPresentation.TypeKeys "<ESCAPE>" + endcatch + + Kontext "DocumentImpress" + '/// Close the Navigator ///' + DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" + sleep 3 + '/// Set "start with current page to ON = Default ///' + setStartCurrentPage(TRUE) + Call hCloseDocument +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tAendernObjektBenennen + Printlog "- Context/Name object" + Call hNewDocument + Call sSelectEmptyLayout '/// new document ///' + + sleep 1 + Kontext "DocumentImpress" + if NOT DocumentImpress.Exists then + Warnlog "- Due to Bug 91799 the document disappeared right after loading" + Call hNewDocument + sleep 1 + end if + sleep 1 + hRechteckErstellen (20,20,30,30) + sleep 1 + hRechteckErstellen (60,60,80,80) + + gMouseMove (10,10,90,90) + Printlog " - check if menu entry is disabled for normal objects" + try + ContextNameObject + Warnlog " function should be only enabled for graphics, ole objects and groups" + catch + Printlog " Function disabled" + endcatch + EditSelectAll + Kontext "DocumentImpress" + FormatGroupGroup + sleep 2 + gMouseClick 25,25 + ContextNameObject + sleep (2) + Kontext "NameDlgObject" + NameField.SetText "Test" + NameDlgObject.OK + sleep 1 + Printlog " - Name object worked" + Kontext "DocumentImpress" + EditSelectAll + DocumentImpress.TypeKeys "<DEL>" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") + sleep 3 + Preview.Check + sleep 1 + Oeffnen.Click + sleep 1 + printlog " - Name a graphic file" + try + ContextNameObject + Kontext "NameDlgObject" + Namefield.SetText "Grafik" + NameDlgObject.OK + sleep 1 + Printlog " - Name a graphic object did work" + catch + Warnlog " - Function should have been enabled" + endcatch + sleep 2 + Call hCloseDocument + sleep 2 +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tSlideshowBackgroundAllSlides + Dim Datei$ as string + Dim Background$ as string + Dim i as integer + Dim Zaehler as integer + Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif") + Datei$ = ConvertPath (gOfficePath + "user\work\background.odp") + + '/// Create a new document ///' + Printlog "- SlideshowBackground" + Call hNewDocument + + '/// Insert a new Slide ///' + Kontext "DocumentImpress" + InsertSlide + + '/// Open the Contextmenu ///' + DocumentImpress.OpenContextMenu + + '/// Select the entry "Slide" ///' + hMenuFindSelect (".uno:PageMenu", true, 1, true) + '/// Select the entry "Background" ///' + hMenuSelectNr (4) + + '/// In the open-file dialogue, choose and open a graphic-file you wish to have as a background ///' + kontext "GrafikEinfuegenDlg" + If GrafikEinfuegenDlg.Exists Then + DateiName.SetText (Background$) + Oeffnen.Click + Else + warnlog "GrafikEinfuegenDlg not existent... check why." + End if + + '/// If an "active"-message shows up, press "yes" to apply this background to all slides. ///' + kontext "Active" + if Active.Exists then + Active.Yes + else + QaErrorLog "No dialogue considering if we wish to apply the background to all slides." + end if + + '/// Save the document ///' + Call hFileSaveAsKill (Datei$) + '/// Close the document ///' + Call hCloseDocument + '/// Open the document ///' + Call hFileOpen (Datei$) + '/// Close the document ///' + Call hCloseDocument +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tSlideshowBackgroundSelectedSlide + Dim Datei$ as string + Dim Background$ as string + Dim i as integer + Dim Zaehler as integer + Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif") + Datei$ = ConvertPath (gOfficePath + "user\work\background.odp") + + '/// Create a new document ///' + Printlog "- SlideshowBackground" + Call hNewDocument + + '/// Insert a new Slide ///' + Kontext "DocumentImpress" + InsertSlide + + '/// Open the Contextmenu ///' + DocumentImpress.OpenContextMenu + + '/// Select the entry "Slide" ///' + hMenuFindSelect (".uno:PageMenu", true, 1, true) + '/// Select the entry "Background" ///' + hMenuSelectNr (4) + + '/// In the open-file dialogue, choose and open a graphic-file you wish to have as a background ///' + kontext "GrafikEinfuegenDlg" + If GrafikEinfuegenDlg.Exists Then + DateiName.SetText (Background$) + Oeffnen.Click + Else + warnlog "GrafikEinfuegenDlg not existent... check why." + End if + + '/// If an "active"-message shows up, press "No" to only apply this background to the selected slide. ///' + kontext "Active" + if Active.Exists then + Active.No + else + QaErrorLog "No dialogue considering if we wish to apply the background to all slides." + end if + + '/// Save the document ///' + Call hFileSaveAsKill (Datei$) + '/// Close the document ///' + Call hCloseDocument + '/// Open the document ///' + Call hFileOpen (Datei$) + '/// Close the document ///' + Call hCloseDocument +endcase + +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |