diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_arrangealign.inc')
| -rw-r--r-- | testautomation/graphics/optional/includes/global/g_arrangealign.inc | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc index 48c6599efa72..29557214638b 100644 --- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc +++ b/testautomation/graphics/optional/includes/global/g_arrangealign.inc @@ -32,12 +32,22 @@ '\****************************************************************************** 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_ /// - call hNewDocument + 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_ /// + call hNewDocument + if gApplication = "DRAW" then + kontext "DocumentDraw" + DocumentDraw.UseMenu + else + kontext "DocumentImpress" + DocumentImpress.UseMenu + end if + + 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 ///' |