summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_arrangealign.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_arrangealign.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/g_arrangealign.inc130
1 files changed, 69 insertions, 61 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc
index 29557214638b..1023ab88fd0a 100644
--- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc
+++ b/testautomation/graphics/optional/includes/global/g_arrangealign.inc
@@ -35,8 +35,9 @@ testcase tiDatei_Fuer_Anordnen_Erstellen
dim sTemp as string
dim i as integer
dim zaehler as integer
- '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///'
- '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ ///
+ printlog "This function creates the document, that will be used as reference and working object inthe following cases :-)"
+ 'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_
+ printlog "new document "
call hNewDocument
if gApplication = "DRAW" then
kontext "DocumentDraw"
@@ -49,22 +50,27 @@ testcase tiDatei_Fuer_Anordnen_Erstellen
hMenuSelectNr(4)
hMenuSelectNr(13)
call sSelectEmptyLayout '/// new document ///'
- if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
- for Zaehler = 1 to 3 '/// create 3 overlapping objects ///'
+ if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
+ printlog "create 3 overlapping objects "
+ for Zaehler = 1 to 3
Kontext
Select Case Zaehler
Case 1: WL_SD_Wuerfel
- gMouseMove (20,5, 80,60) '/// cubicel 20,5, 80,60 ///
+ printlog "cubicel 20,5, 80,60"
+ gMouseMove (20,5, 80,60)
Printlog " Object start ---------------------- "+ Zaehler +" cubicel "
Case 2: WL_SD_RechteckVoll
- gMouseMove (40,35, 90,90) '/// rectangel 40,35, 90,90 ///
- Printlog " Object start ---------------------- "+ Zaehler +" rectangel "
+ printlog "rectangel 40,35, 90,90"
+ gMouseMove (40,35, 90,90)
+ Printlog " Object start ---------------------- "+ Zaehler +" rectangel "
Case 3: WL_SD_Torus
- gMouseMove (1,35, 60,95) '/// donut ;-) 1,35, 60,95 ///
+ printlog "donut 1,35, 60,95 "
+ gMouseMove (1,35, 60,95)
Printlog " Object start ---------------------- "+ Zaehler +" donut "
End Select
sleep (1)
- FormatArea '/// assign different area properties for created objects (use rnd function)///'
+ printlog "assign different area properties for created objects (use rnd function)"
+ FormatArea
sleep (1)
kontext
Select Case Zaehler
@@ -85,12 +91,13 @@ testcase tiDatei_Fuer_Anordnen_Erstellen
TabFarben.OK
End Select
sleep 1
- ContextPositionAndSize '/// save position and size values into varialbes ///'
+ printlog "save position and size values into varialbes "
+ ContextPositionAndSize
sleep (1)
kontext
active.SetPage TabPositionAndSize
kontext "TabPositionAndSize"
- '/// the variables : Ueber_Text_[1-3] get set here ! with x position of object///
+ printlog "the variables : Ueber_Text_[1-3] get set here ! with x position of object"
Select Case Zaehler
Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
@@ -100,41 +107,43 @@ testcase tiDatei_Fuer_Anordnen_Erstellen
gMouseClick 96,5
next Zaehler
sleep 1
- call hFileSaveAsKill (Datei) '/// save document ///'
+ printlog "save document "
+ call hFileSaveAsKill (Datei)
printlog "OK saved at ", Datei
sleep 1
- '/// select in default order and take Position X in mind ;-) ///'
- '///+ has to be from bottom to top: cubicel, rectangel, donut ///'
+ printlog "select in default order and take Position X in mind ;-)"
+ printlog "+ has to be from bottom to top: cubicel, rectangel, donut"
sPrintCheckOrder (TRUE)
- call hCloseDocument '/// close document ///'
+ printlog "close document "
+ call hCloseDocument
endcase 'tiDatei_Fuer_Anordnen_Erstellen
'-------------------------------------------------------------------------------
testcase tdContextSendBackward
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: rectangle, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
- '/// Send Backward / [Strg]+[-] -> one level more to the back ///'
+ printlog "Send Backward / [Strg]+[-] -> one level more to the back"
WL_TB_ANORDNUNG_WeiterNachHinten
- '///+ has to be from bottom to top: rectangel cubicel donut ///'
+ printlog "+ has to be from bottom to top: rectangel cubicel donut"
sleep 2
sPrintCheckOrder
- '/// deselect all ///'
+ printlog "deselect all"
hTypeKeys ("<escape><escape>")
sleep 2
- '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: cubical, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
sleep 2
sTemp = fGetPositionX
if sTemp <> Ueber_Text_1 then
warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
end if
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
sleep 2
@@ -144,18 +153,18 @@ endcase 'tdContextSendBackward
testcase tdContextBringForward
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: rectangle, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
- '/// Bring Forward / [Strg]+[+] -> one level more to the front ///'
+ printlog "Bring Forward / [Strg]+[+] -> one level more to the front"
WL_TB_ANORDNUNG_WeiterNachVorn
- '/// has to be from bottom to top: cubicel donut rectangel ///'
+ printlog "has to be from bottom to top: cubicel donut rectangel"
sleep 1
sPrintCheckOrder
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: donut, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
sleep 2
sTemp = fGetPositionX
@@ -163,7 +172,7 @@ testcase tdContextBringForward
warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
end if
sleep 1
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
@@ -172,18 +181,18 @@ endcase 'tdContextBringForward
testcase tdContextSendToBack
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ printlog "select the top object: donut, with keys: [TAB],[TAB],[TAB]"
hTypeKeys ("<TAB><TAB><TAB>")
- '/// Send to Back / [Strg]+[Shift]+[-] -> backmost object ///'
+ printlog "Send to Back / [Strg]+[Shift]+[-] -> backmost object"
OL_DRAW_GanzNachHinten
- '/// has to be from bottom to top: rectangel cubicel donut ///'
+ printlog "has to be from bottom to top: rectangel cubicel donut"
sleep 3
sPrintCheckOrder
- '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: cubical, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
sleep 1
sTemp = fGetPositionX
@@ -191,7 +200,7 @@ testcase tdContextSendToBack
warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
end if
sleep 3
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
@@ -200,17 +209,17 @@ endcase 'tdContextSendToBack
testcase tdContextBringToFront
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the bottom object: cubical, with keys: [TAB] ///'
+ printlog "select the bottom object: cubical, with keys: [TAB]"
hTypeKeys ("<TAB>")
- '/// Bring to Front / [Strg]+[Shift]+[+] -> frontmost object ///'
+ printlog "Bring to Front / [Strg]+[Shift]+[+] -> frontmost object"
OL_DRAW_GanzNachVorn
- '/// has to be from bottom to top: rectangel, donut, cubicel ///'
+ printlog "has to be from bottom to top: rectangel, donut, cubicel"
sPrintCheckOrder
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: donut, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
sleep 1
sTemp = fGetPositionX
@@ -218,7 +227,7 @@ testcase tdContextBringToFront
warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
end if
sleep 3
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
@@ -227,26 +236,26 @@ endcase 'tdContextBringToFront
testcase tdContextInFrontOfObject
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ printlog "select the top object: donut, with keys: [TAB],[TAB],[TAB]"
hTypeKeys ("<TAB><TAB><TAB>")
- '/// In Front of object ///'
+ printlog "In Front of object"
OL_DRAW_VorDasObjekt
- '/// left click the cubicel with the mouse ///'
+ printlog "left click the cubicel with the mouse"
gMouseClick 50,5
- '/// has to be from bottom to top: cubicel, donut, rectangel ///'
+ printlog "has to be from bottom to top: cubicel, donut, rectangel"
sPrintCheckOrder
sleep 1
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ printlog "select the middle object: donut, with keys: [TAB],[TAB]"
hTypeKeys ("<TAB><TAB>")
sTemp = fGetPositionX
if sTemp <> Ueber_Text_3 then
printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
end if
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
@@ -255,27 +264,27 @@ endcase 'tdContextInFrontOfObject
testcase tdContextBehindObject
dim sTemp as string
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ printlog "select the top object: donut, with keys: [TAB],[TAB],[TAB]"
hTypeKeys ("<TAB><TAB><TAB>")
- '/// Behind object ///'
+ printlog "Behind object"
OL_DRAW_HinterDasObjekt
sleep 1
- '/// left click the cubicel with the mouse ///'
+ printlog "left click the cubicel with the mouse"
gMouseClick 50,5
- '/// has to be from bottom to top: donut, cubicel, rectangel ///'
+ printlog "has to be from bottom to top: donut, cubicel, rectangel"
sPrintCheckOrder
sleep 1
- '/// select the bottom object: donut, with keys: [TAB] ///'
+ printlog "select the bottom object: donut, with keys: [TAB]"
hTypeKeys ("<TAB>")
sTemp = fGetPositionX
if sTemp <> Ueber_Text_3 then
printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
end if
- '/// close document ///'
+ printlog "close document"
Call hCloseDocument
endif
@@ -286,17 +295,17 @@ testcase tdContextReverse
dim sTemp as string
dim sTemp2 as string
dim i as integer
- '/// open created document 'with 3 figures' ///'
+ printlog "open created document 'with 3 figures'"
if (hFileOpen (Datei)) then
sleep 10
sPrintCheckOrder (TRUE)
- '/// Edit->Select All ///'
+ printlog "Edit->Select All"
EditSelectAll
sleep 3
- '/// Reverse ///'
+ printlog "Reverse"
WL_TB_ANORDNUNG_Vertauschen
sPrintCheckOrder
- '/// select in default order and take Position X in mind ;-) ///'
+ printlog "select in default order and take Position X in mind ;-)"
hTypeKeys ("<escape><escape>")
for i = 1 to 3
hTypeKeys ("<TAB>")
@@ -310,10 +319,9 @@ testcase tdContextReverse
warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
end if
next i
- '/// close document ///'
- Call hCloseDocument '/// close document ///'
+ printlog "close document"
+ Call hCloseDocument
endif
endcase 'tdContextReverse
'-------------------------------------------------------------------------------
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-16 20:58:54 +0000