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--[-rwxr-xr-x]testautomation/graphics/optional/includes/global/g_stylist.inc307
1 files changed, 144 insertions, 163 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index dc8663425e87..fe9a1e28dabb 100755..100644
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -29,18 +29,6 @@
'*
'* short description :
'*
-'*******************************************************************
-'*
-' #1 tFormatStylistFlyer
-' #1 tFormatStylistDocuments
-' #1 tFormatStylistTemplatesUse
-' #1 tFormatStylistTemplateCreate
-' #1 tFormatStylistTemplateSelect
-' #1 tFormatStylistTemplateNew
-' #1 tiFormatStylist
-' #1 tFormatStylist
-' #1 hWalkTheStyles
-'*
'\*******************************************************************
testcase tFormatStylistFlyer
@@ -147,7 +135,7 @@ testcase tFormatStylistFlyer
'/// close stylist ///'
Gestalter.Close
Call hCloseDocument
-
+
endcase 'tFormatStylistFlyer
'--------------------------------------------------------
testcase tFormatStylistDocuments
@@ -169,11 +157,9 @@ testcase tFormatStylistDocuments
endif
printlog " - Close all documents, reopen 1"
- FileClose
- Sleep 2
- FileClose
- Sleep 2
- hNewDocument
+ hFileCloseAll()
+ hNewDocument()
+
Kontext "Gestalter"
if (Gestalter.NotExists) then
warnlog " There is no stylist in the new document"
@@ -190,12 +176,9 @@ testcase tFormatStylistDocuments
endif
printlog " - Close all documents, reopen one and check the docked stylist"
- FileClose
- Sleep 2
- FileClose
- Sleep 2
- Kontext "Gestalter"
- hNewDocument
+ hFileCloseAll()
+ hNewDocument()
+
Kontext "Gestalter"
if NOT Gestalter.IsDocked then
warnlog " In the new document is the stylist not docked"
@@ -215,7 +198,7 @@ testcase tFormatStylistDocuments
Gestalter.Close
end if
Call hCloseDocument
-
+
endcase 'tFormatStylistDocuments
'--------------------------------------------------------
testcase tFormatStylistTemplatesUse
@@ -234,7 +217,7 @@ testcase tFormatStylistTemplatesUse
FormatStylist
endif
printlog " - Presentation-templates"
- if (Lcase (gApplication) = "IMPRESS") then
+ if ( gApplication = "IMPRESS") then
TBGestalter.Click Praesentationsvorlagen
endif
save = Gruppenliste.GetSelIndex
@@ -253,11 +236,11 @@ testcase tFormatStylistTemplatesUse
sleep 1
Gruppenliste.Select save
- Gestalter.Close
+ kontext "Gestalter"
+ hCloseDialog( Gestalter, "Close" )
+
+ hFileCloseAll()
- sleep 3
- Call hCloseDocument
-
endcase 'tFormatStylistTemplatesUse
'--------------------------------------------------------
testcase tFormatStylistTemplateCreate
@@ -299,10 +282,10 @@ testcase tFormatStylistTemplateCreate
zaehler=Ansicht.getItemCount
i=0
do
- inc i
+ inc i
loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
if i>zaehler then
- warnlog " error"
+ warnlog " error"
endif
Ansicht.Select i
sleep 1
@@ -317,10 +300,8 @@ testcase tFormatStylistTemplateCreate
sleep 1
Kontext "DocumentDraw"
gMouseClick 90,90
- sleep 1
- Call hCloseDocument
- sleep 1
-
+ hFileCloseAll()
+
endcase 'tFormatStylistTemplateCreate
'--------------------------------------------------------
testcase tFormatStylistTemplateSelect
@@ -400,7 +381,7 @@ testcase tFormatStylistTemplateSelect
TabArea.OK
sleep 2
hCloseDocument
-
+
endcase 'tFormatStylistTemplateSelect
'---------------------------------------------------------
testcase tFormatStylistTemplateNew
@@ -484,14 +465,14 @@ testcase tFormatStylistTemplateNew
Vorlagenliste.TypeKeys "<End>"
i = 0
do
- inc i
- sTemp = Vorlagenliste.GetText
- Vorlagenliste.TypeKeys "<Up>"
+ inc i
+ sTemp = Vorlagenliste.GetText
+ Vorlagenliste.TypeKeys "<Up>"
loop while (("Testtool" <> sTemp) AND (i<20))
Vorlagenliste.TypeKeys "<Return>"
Kontext "Gestalter"
Gestalter.Close
-
+
Printlog " - check template"
FormatCharacter
Kontext
@@ -677,8 +658,8 @@ testcase tiFormatStylist
sleep 1
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
- Call hCloseDocument
-
+ Call hCloseDocument
+
endcase 'tiFormatStylist
'---------------------------------------------------------
sub hWalkTheStyles (optional a as integer,optional b as integer)
@@ -686,115 +667,115 @@ sub hWalkTheStyles (optional a as integer,optional b as integer)
dim i as integer
if isMissing (a) then a=1
- if isMissing (b) then b=2
- i=1
- if a <= i AND i <= b then
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- Call DialogTest ( TabLinie )
- Kontext
- Messagebox.SetPage TabArea
- kontext "TabArea"
- Call DialogTest ( TabArea, 1 )
- FillOptions.Select 1 ' NoFill.Check
- Call DialogTest ( TabArea, 1 )
- FillOptions.Select 2
- Call DialogTest ( TabArea, 2 )
- FillOptions.Select 3
- Call DialogTest ( TabArea, 3 )
- FillOptions.Select 4
- Call DialogTest ( TabArea, 4 )
- FillOptions.Select 5
- Call DialogTest ( TabArea, 5 )
- Kontext
- Messagebox.SetPage TabSchatten
- kontext "TabSchatten"
- Anzeigen.check
- Call DialogTest ( TabSchatten )
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- KeineTransparenz.Check
- LineareTransparenz.Check
- Transparenzverlauf.Check
- Kontext
- Messagebox.SetPage TabFont
- kontext "TabFont"
- Call DialogTest ( TabFont )
- Kontext
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- Kontext
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- Call DialogTest ( TabEinzuegeUndAbstaende )
- endif
- i=2
- if a <= i AND i <= b then
- Kontext
- Messagebox.SetPage TabVerwalten
- kontext "TabVerwalten"
- Call DialogTest ( TabVerwalten )
- Kontext
- Messagebox.SetPage TabText
- Kontext "TabText"
- Call DialogTest ( TabText )
- Kontext
- Messagebox.SetPage TabLauftext
- Kontext "TabLauftext"
- Call DialogTest ( TabLauftext )
- Kontext
- Messagebox.SetPage TabBemassung
- Kontext "TabBemassung"
- Call DialogTest ( TabBemassung )
- Kontext
- Messagebox.setpage TabVerbinder
- Kontext "TabVerbinder"
- Call Dialogtest ( TabVerbinder )
- Kontext
- Messagebox.setpage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- Links.Check
- Rechts.Check
- Zentriert.Check
- Blocksatz.Check
- Kontext
- Messagebox.setpage TabTabulator
- Kontext "TabTabulator"
- Neu.click
- AlleLoeschen.click
- Neu.click
- Loeschen.click
- endif
- i=3
- if a <= i AND i <= b then
- Kontext
- Messagebox.SetPage TabBullet
- Kontext "TabBullet"
- sleep 1
- Call DialogTest (TabBullet)
- sleep 1
- Kontext
- Messagebox.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- sleep 1
- Call DialogTest (TabNumerierungsart)
- sleep 1
- Kontext
- Messagebox.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Call DialogTest (TabGrafiken)
- sleep 1
- Kontext
- Messagebox.SetPage TabOptionenNumerierung
- Kontext "TabOptionenNumerierung"
- sleep 1
- Call DialogTest (TabOptionenNumerierung)
- sleep 1
- endif
-
+ if isMissing (b) then b=2
+ i=1
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Call DialogTest ( TabLinie )
+ Kontext
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 1 ' NoFill.Check
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 2
+ Call DialogTest ( TabArea, 2 )
+ FillOptions.Select 3
+ Call DialogTest ( TabArea, 3 )
+ FillOptions.Select 4
+ Call DialogTest ( TabArea, 4 )
+ FillOptions.Select 5
+ Call DialogTest ( TabArea, 5 )
+ Kontext
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.check
+ Call DialogTest ( TabSchatten )
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ KeineTransparenz.Check
+ LineareTransparenz.Check
+ Transparenzverlauf.Check
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Call DialogTest ( TabFont )
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ Call DialogTest ( TabEinzuegeUndAbstaende )
+ endif
+ i=2
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabVerwalten
+ kontext "TabVerwalten"
+ Call DialogTest ( TabVerwalten )
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ Call DialogTest ( TabText )
+ Kontext
+ Messagebox.SetPage TabLauftext
+ Kontext "TabLauftext"
+ Call DialogTest ( TabLauftext )
+ Kontext
+ Messagebox.SetPage TabBemassung
+ Kontext "TabBemassung"
+ Call DialogTest ( TabBemassung )
+ Kontext
+ Messagebox.setpage TabVerbinder
+ Kontext "TabVerbinder"
+ Call Dialogtest ( TabVerbinder )
+ Kontext
+ Messagebox.setpage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ Links.Check
+ Rechts.Check
+ Zentriert.Check
+ Blocksatz.Check
+ Kontext
+ Messagebox.setpage TabTabulator
+ Kontext "TabTabulator"
+ Neu.click
+ AlleLoeschen.click
+ Neu.click
+ Loeschen.click
+ endif
+ i=3
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Call DialogTest (TabBullet)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Call DialogTest (TabNumerierungsart)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Call DialogTest (TabGrafiken)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ Call DialogTest (TabOptionenNumerierung)
+ sleep 1
+ endif
+
end sub 'hWalkTheStyles
'---------------------------------------------------------
testcase tFormatStylist
@@ -889,7 +870,7 @@ testcase tFormatStylist
endif
endif
Call hCloseDocument
-
+
endcase 'tFormatStylist
'--------------------------------------------------------
function hSelectInList (window, sEntry as String) as Boolean
@@ -901,16 +882,16 @@ function hSelectInList (window, sEntry as String) as Boolean
window.TypeKeys "<End>"
sTemp = ""
do
- sLastTemp = sTemp
- sTemp = window.GetText
- window.TypeKeys "<Up>"
-loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
-if (sEntry = sTemp) then
- window.TypeKeys "<Return>"
- hSelectInList = TRUE
-else
- hSelectInList = FALSE
-endif
+ sLastTemp = sTemp
+ sTemp = window.GetText
+ window.TypeKeys "<Up>"
+ loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
+ if (sEntry = sTemp) then
+ window.TypeKeys "<Return>"
+ hSelectInList = TRUE
+ else
+ hSelectInList = FALSE
+ endif
end function 'hSelectInList
'---------------------------------------------------------
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-20 01:35:45 +0000