summaryrefslogtreecommitdiff
path: root/testautomation/graphics/required/includes/impress/im_011_.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/required/includes/impress/im_011_.inc')
-rw-r--r--testautomation/graphics/required/includes/impress/im_011_.inc44
1 files changed, 26 insertions, 18 deletions
diff --git a/testautomation/graphics/required/includes/impress/im_011_.inc b/testautomation/graphics/required/includes/impress/im_011_.inc
index 876ca7aa9a56..084be5223b10 100644
--- a/testautomation/graphics/required/includes/impress/im_011_.inc
+++ b/testautomation/graphics/required/includes/impress/im_011_.inc
@@ -31,12 +31,20 @@
'*
'\*****************************************************************
+sub m_011_
+
+ call tiDiaLeiste()
+
+end sub
+
+'*******************************************************************************
+
testcase tiDiaLeiste
-
+
' only in IMPRESS
dim sTemp as string
Dim i,x as integer
-
+
printlog " open application "
Call hNewDocument
sleep 1
@@ -46,7 +54,7 @@ testcase tiDiaLeiste
MitAktuellerSeite.Uncheck
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
-
+
printlog " insert a graphic: global\input\graf_inp\desp.bmp) "
Printlog "- Insert graphic from file so there is something for the slide mode"
hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
@@ -66,19 +74,19 @@ testcase tiDiaLeiste
Printlog "- Test blend effect"
Kontext "SlideViewObjectbar" ' CORRECT
sleep 5
-
+
if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount
printlog " select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar "
Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount)
Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText
-
+
' Printlog Geschwindigkeit.GetRT ' 341 listbox
' Printlog Diawechsel.GetRT ' 341 listbox
' Printlog Zeit.GetRT ' 353 spinfield
' Printlog DiasProReihe.GetRT ' 353 spinfield
' Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button
' Printlog DiaAnzeigen.GetRT doesn't work, but behave as button
-
+
'-------------------------------- Geschwindigkeit -----------------------------------------
Printlog "- Check different speed settings"
Kontext "SlideViewObjectbar"
@@ -116,21 +124,21 @@ testcase tiDiaLeiste
sleep 2
Kontext "DocumentPresentation"
if DocumentPresentation.exists (5) then
- sleep 5
- printlog " wait some seconds and click with mouse "
- DocumentPresentation.MouseDown 50,50
- DocumentPresentation.MouseUp 50,50
- sleep 2
- printlog " wait some seconds and click with mouse "
- DocumentPresentation.MouseDown 50,50
- DocumentPresentation.MouseUp 50,50
- sleep 3
+ sleep 5
+ printlog " wait some seconds and click with mouse "
+ DocumentPresentation.MouseDown 50,50
+ DocumentPresentation.MouseUp 50,50
+ sleep 2
+ printlog " wait some seconds and click with mouse "
+ DocumentPresentation.MouseDown 50,50
+ DocumentPresentation.MouseUp 50,50
+ sleep 3
else
- warnlog "Didn't switch into presentation mode :-("
+ warnlog "Didn't switch into presentation mode :-("
endif
Kontext "DocumentPresentation"
if DocumentPresentation.exists (5) then
- warnlog "We are still in presentation mode :-( WHY!!!!???"
+ warnlog "We are still in presentation mode :-( WHY!!!!???"
endif
'------------------------------- Dia anzeigen ja/nein --------------------------------------
Printlog "- Show slide yes/no"
@@ -168,5 +176,5 @@ testcase tiDiaLeiste
printlog " close application "
Call hCloseDocument
sleep 2
-
+
endcase 'tiDiaLeiste