summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_stylist.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_stylist.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/g_stylist.inc89
1 files changed, 62 insertions, 27 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index fab547eb5d3b..71d05f7d704c 100644
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -38,17 +38,18 @@ testcase tFormatStylistFlyer
Dim ySize%
printlog " - Format/Stylist : using all possible things to manipulate the flyer"
- '/// open application ///'
+ printlog "open application"
Call hNewDocument
Kontext "Gestalter"
- '/// Check if stylist is there. Expected: not there ///'
+ printlog "Check if stylist is there. Expected: not there"
if Gestalter.NotExists = false Then
- qaErrorLog " - Expected Stylist to be closed; But is Open. Check tests."
+ qaErrorLog "Expected Stylist to be closed; But is Open. Check tests."
else
if lcase(gPlatform) = "osx" then
hTypekeys "<mod1 t>"
else
- hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
+ printlog "open stylist by pressing key [F11]"
+ hTypekeys "<F11>"
end if
sleep 1
end if
@@ -57,51 +58,51 @@ testcase tFormatStylistFlyer
Warnlog " No stylist popped up using F11; opening now via slotID"
FormatStylist
end if
- '///+ save stylist position and size ///'
+ printlog "save stylist position and size"
xPos% = Gestalter.GetPosX
yPos% = Gestalter.GetPosY
xSize% = Gestalter.GetSizeX
ySize% = Gestalter.GetSizeY
- '///+ if Stylist is docked; undock ///'
+ printlog " if Stylist is docked; undock"
if Gestalter.IsDocked then Gestalter.UnDock
- printlog " - '///move stylist ///"
- '///+ move stylist to 10,10 ///'
+ printlog " move stylist"
+ printlog "move stylist to 10,10"
Gestalter.Move 10, 10
Sleep 1
- '///+ move stylist to 300,400 ///'
+ printlog "move stylist to 300,400"
Gestalter.Move 300, 400
Sleep 1
- '///+ move stylist to 590,790 ///'
+ printlog "move stylist to 590,790"
Gestalter.Move 590, 790
Sleep 1
- '///+ move stylist back to saved start position ///'
+ printlog " move stylist back to saved start position"
Gestalter.Move xPos%, yPos%
Sleep 1
- printlog " - '///size stylist ///"
- '///+ change size to 200,200 ///'
+ printlog "size stylist"
+ printlog "change size to 200,200"
Gestalter.Size 200, 200
Sleep 1
- '///+ change size to 300,400 ///'
+ printlog "change size to 300,400"
Gestalter.Size 300, 400
Sleep 1
- '///+ change size to 150,250 ///'
+ printlog "change size to 150,250"
Gestalter.Size 150, 250
Sleep 1
- '///+ change size back to saved size ///'
+ printlog "change size back to saved size"
Gestalter.Size xSize%, ySize%
Sleep 1
- printlog " - Close stylist reopen stylist, check if appearence is same as before"
- '/// save stylist position and size ///'
+ printlog "Close stylist reopen stylist, check if appearence is same as before"
+ printlog "save stylist position and size"
xPos% = Gestalter.GetPosX
yPos% = Gestalter.GetPosY
xSize% = Gestalter.GetSizeX
ySize% = Gestalter.GetSizeY
- '/// close stylist Format->Stylist ///'
+ printlog "close stylist Format->Stylist"
FormatStylist
Sleep 1
- '/// open stylist Format->Stylist ///'
+ printlog "open stylist Format->Stylist"
FormatStylist
sleep (1)
if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
@@ -110,29 +111,29 @@ testcase tFormatStylistFlyer
if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
printlog " - dock stylist"
- '/// dock stylist ///'
+ printlog "dock stylist"
Gestalter.Dock
Sleep 1
if (NOT Gestalter.IsDocked) then
warnlog " stylist not docked but should"
endif
- '/// UNdock stylist ///'
+ printlog "UNdock stylist"
if (Gestalter.IsDocked) Then
Gestalter.UnDock
endif
Sleep 1
printlog " - maximize/minimize stylist"
- '/// minimize stylist ///'
+ printlog "minimize stylist"
Gestalter.Minimize
Sleep 1
- '/// maximize stylist ///'
+ printlog "maximize stylist"
Gestalter.Maximize
Sleep 1
if (NOT Gestalter.IsMax) then
warnlog " The stylist did not return to maximized state"
endif
- '/// close stylist ///'
+ printlog "close stylist"
Gestalter.Close
Call hCloseDocument
@@ -518,8 +519,10 @@ testcase tiFormatStylist
goto endsub
end select
+ printlog "Open new doc"
Call hNewDocument
sleep 2
+ printlog "call the navigator"
Kontext "Gestalter"
if Gestalter.Exists Then
Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
@@ -529,11 +532,14 @@ testcase tiFormatStylist
FormatStylist
Kontext "Gestalter"
+ printlog "opening graphics styles"
Grafikvorlagen.Click
sleep 1
+ printlog "Select number 1"
Vorlagenliste.Select Num1 ' num1
sleep 1
Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+ printlog "Opening context menu"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (2)
@@ -543,6 +549,7 @@ testcase tiFormatStylist
Messagebox.SetPage TabText
Kontext "TabText"
sleep 1
+ printlog "Canceling dialog"
TabText.Cancel
sleep 1
@@ -550,18 +557,21 @@ testcase tiFormatStylist
Kontext "Gestalter"
Printlog "- presentation templates"
sleep 1
+ printlog "presentation styles"
Praesentationsvorlagen.Click
Vorlagenliste.Select Num2
sleep 1
+ printlog "opening context menu"
Vorlagenliste.OpenContextMenu
sleep 1
+ printlog "selecting modify"
hMenuSelectNr (1)
sleep 1
Kontext
if Messagebox.exists (5) then
try
- ' Messagebox.SetPage TabArea
+ printlog "Messagebox.SetPage TabArea"
Kontext "TabArea"
if TabArea.Exists = false then
warnlog "Where is TabArea?"
@@ -578,86 +588,111 @@ testcase tiFormatStylist
Kontext "Gestalter"
sleep 1
+ printlog "Select number 3"
Vorlagenliste.Select Num3
sleep 1
+ printlog "opening context menu of number 3"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
+ printlog "Check the styles..."
call hWalkTheStyles (1,1)
Kontext
+ printlog "setting tabpage indents and spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
sleep 1
+ printlog "Canceling tabpage"
TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
+ printlog "Select number 4"
Vorlagenliste.Select Num4
sleep 1
+ printlog "opening context menu of number 4"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
Kontext
+ printlog "setting tabpage TabFont"
Messagebox.SetPage TabFont
kontext "TabFont"
Kontext
+ printlog "setting tabpage TabFontEffects"
Messagebox.SetPage TabFontEffects
kontext "TabFontEffects"
Kontext
+ printlog "setting tabpage TabIndents and Spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
kontext "TabEinzuegeUndAbstaende"
sleep 1
+ printlog "canceling TabIndents and Spacing"
TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
+ printlog "opening context menu of number 5"
Vorlagenliste.Select Num5
sleep 1
+ printlog "opening context menu of number 5"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
Kontext
+ printlog "setting tabpage Tab Font"
Messagebox.SetPage TabFont
kontext "TabFont"
Kontext
+ printlog "setting tabpage Tab FontEffects"
Messagebox.SetPage TabFontEffects
kontext "TabFontEffects"
Kontext
+ printlog "setting tabpage TabIndents and Spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
kontext "TabEinzuegeUndAbstaende"
sleep 1
Kontext
+ printlog "setting tabpage Tab Bullets"
Messagebox.SetPage TabBullet
Kontext "TabBullet"
sleep 1
Kontext
+ printlog "setting tabpage Tab Numbering Type"
Messagebox.SetPage TabNumerierungsart
Kontext "TabNumerierungsart"
sleep 1
Kontext
+ printlog "setting tabpage Tab Graphics"
Messagebox.SetPage TabGrafiken
Kontext "TabGrafiken"
sleep 1
Kontext
+ printlog "setting tabpage Tab Numbering options"
Messagebox.SetPage TabOptionenNumerierung
Kontext "TabOptionenNumerierung"
sleep 1
+ printlog "Canceling..."
TabOptionenNumerierung.Cancel
sleep 1
endif
+ kontext "DocumentImpress"
+ printlog "Closing Stylist"
if lcase(gPlatform) = "osx" then
hTypekeys "<mod1 t>"
else
- hTypeKeys "<F11>"
+ Kontext "Gestalter"
+ Gestalter.Close
end if
sleep 1
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
+ printlog "Closing doc."
Call hCloseDocument
endcase 'tiFormatStylist
generated by cgit (git 2.34.1) at 2024-07-13 04:17:33 +0000