summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_edit.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_edit.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/g_edit.inc332
1 files changed, 332 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_edit.inc b/testautomation/graphics/optional/includes/global/g_edit.inc
new file mode 100644
index 000000000000..59cf4e3a404a
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_edit.inc
@@ -0,0 +1,332 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/************************************************************************
+'*
+'* Owner : wolfram.garten@oracle.com
+'*
+'* short description :
+'*
+'**************************************************************************************
+' #1 tEditDuplicate
+' #1 tEditFields
+' #1 tEditDeleteSlide
+' #1 tEditLinks
+' #1 tdEditDeleteLayer
+' #1 tEditObjectEdit
+'\*************************************************************************************
+
+' sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
+' sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
+' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+
+testcase tEditDuplicate
+
+ dim Ueber_Text_1
+ dim Zaehler
+
+ printlog " New Impress document"
+ Call hNewDocument
+ printlog " Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
+ printlog " Select rectangle"
+ EditSelectAll
+ printlog " Edit-duplicate"
+ EditDuplicate
+ Kontext "Duplizieren"
+ Ueber_Text_1 = AnzahlAnKopien.GetText
+ printlog " Set number of copies to 50"
+ AnzahlAnKopien.SetText "50"
+ printlog " Cancel Edit Duplicate"
+ Duplizieren.Cancel
+ sleep 1
+ For Zaehler = 1 to 8
+ printlog " Edit Duplicate"
+ EditDuplicate
+ sleep 1
+ Kontext "Duplizieren"
+ printlog " Number of copies = 30"
+ AnzahlAnKopien.SetText "30"
+ printlog " Setting values for axis and angles"
+ Select Case Zaehler
+ Case 1: XAchse.SetText "0,0"
+ YAchse.SetText "0,45"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "-0,1"
+ Drehwinkel.SetText "3"
+ Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
+ Case 2,6: XAchse.SetText "0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,15"
+ Breite.SetText "0,01"
+ Drehwinkel.SetText "353"
+ Case 3,7: XAchse.SetText "0,0"
+ YAchse.SetText "-0,4"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "0,06"
+ Drehwinkel.SetText "11"
+ Case 4,8: XAchse.SetText "-0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,05"
+ Breite.SetText "-0,08"
+ Drehwinkel.SetText "347"
+ Case 5: XAchse.SetText "0,1"
+ YAchse.SetText "0,48"
+ Hoehe.SetText "-0,05"
+ Breite.SetText "-0,05"
+ Drehwinkel.SetText "355"
+ End Select
+ Ende.Select Int((Ende.GetItemCount * Rnd)+1)
+ printlog " Execute Duplicate"
+ Duplizieren.OK
+ sleep 1
+ Next Zaehler
+ sleep 2
+ printlog " Close document"
+ Call hCloseDocument
+
+endcase 'tEditDuplicate
+'-------------------------------------------------------------------------------
+testcase tEditFields
+
+ Call hNewDocument
+ Call sSelectEmptyLayout
+ sleep 3
+ printlog "insert date-fix"
+ InsertFieldsDateFix
+ printlog "select inserted field"
+ EditSelectAll
+ sleep 1
+ printlog "go into edit mode"
+ hTypeKeys "<F2>"
+ sleep 2
+ printlog "select date"
+ EditSelectAll
+ sleep 2
+ printlog "edit fields"
+ EditfieldsDraw
+ Kontext "FeldbefehlBearbeitenDraw"
+ sleep 2
+ printlog "check field type fix"
+ FeldtypFix.Check
+ If FeldtypFix.Ischecked then
+ Printlog "OK FieldtypeFix checkable"
+ else
+ warnlog "FieldtypeFix not checkable"
+ end if
+ printlog "check field type variable 1"
+ FeldtypVariabel.Check
+ sleep 1
+ If FeldtypVariabel.Ischecked then
+ Printlog "OK FieldtypeVariabel enabled"
+ else
+ warnlog "FieldtypeVariabel not enabled"
+ end if
+ ' For Zaehler = 1 to FeldtypFormat.GetItemCount
+ ' FeldTypFormat.Select Zaehler
+ ' printlog "OK Format ", Zaehler, " = ", FeldtypFormat.GetSelText
+ ' Next Zaehler
+ printlog "close edit fields dialog"
+ FeldbefehlBearbeitenDraw.OK
+ sleep 2
+ printlog "Close Document"
+ Call hCloseDocument
+ sleep 2
+
+endcase 'tEditFields
+'--------------------------------------------------------
+testcase tEditDeleteSlide
+
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+
+ printlog " New impress document"
+ Call hNewDocument
+ sleep 3
+ printlog " create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ sleep 1
+ printlog " open Position and Size dialog"
+ ContextPositionAndSize
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ printlog " get position values for rectangle"
+ Ueber_Text_1 = PositionX.GetText
+ TabPositionAndSize.OK
+ printlog " insert slide"
+ InsertSlide
+ sleep 2
+ hTypekeys "<Pagedown>"
+ sleep 2
+ printlog " create rectangle"
+ Call hRechteckErstellen ( 40, 40, 60, 60 )
+ sleep 1
+ printlog " Delete slide"
+ EditDeleteSlide
+ sleep 1
+ Ueber_Text_2 = "OK Page was closed"
+ Ueber_Text_3 = "Page was not closed"
+ printlog " compare position of rectange"
+ call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ sleep 1
+ printlog " close document"
+ Call hCloseDocument
+
+endcase 'tEditDeleteSlide
+'--------------------------------------------------------
+testcase tEditLinks
+
+ printlog " New document"
+ Call hNewDocument
+ printlog " insert graphic (sample.bmp)"
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ printlog " check link"
+ Link.Check
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
+ printlog " edit links"
+ EditLinksDraw
+ Kontext "VerknuepfungenBearbeiten"
+ printlog " refresh"
+ Aktualisieren.Click
+ sleep 1
+ Loesen.Click
+ sleep 1
+ Kontext
+ Messagebox.Yes
+ printlog " close dialog"
+ VerknuepfungenBearbeiten.Close
+ sleep 1
+ try
+ printlog " check if last changes remain in the dialog"
+ EditLinksDraw
+ Kontext "VerknuepfungenBearbeiten"
+ Loesen.Click
+ sleep 1
+ Kontext
+ Messagebox.Yes
+ VerknuepfungenBearbeiten.Close
+ warnlog "Break link does not work"
+ catch
+ printlog "OK Link broken"
+ endcatch
+ printlog " close document"
+ Call hCloseDocument
+
+endcase 'tEditLinks
+'---------------------------------------------------------
+testcase tdEditDeleteLayer
+
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+
+ printlog " new document"
+ Call hNewDocument
+ sleep 2
+ printlog " create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ sleep 1
+ printlog " View->Layer"
+ ViewLayer
+ printlog " get position values for rectangle"
+ ContextPositionAndSize
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ Ueber_Text_1 = PositionX.GetText
+ TabPositionAndSize.OK
+ printlog " insert layer"
+ InsertLayer
+ Kontext "EbeneEinfuegenDlg"
+ EbeneEinfuegenDlg.OK
+ printlog " create rectangle on created layer"
+ Call hRechteckErstellen ( 10, 40, 90, 60 )
+ sleep 1
+ printlog " delete layer"
+ EditDeleteLayer
+ sleep 1
+ Kontext
+ Active.Yes
+ sleep 1
+ Ueber_Text_2 = "OK Layer was deleted"
+ Ueber_Text_3 = "Layer was not deleted"
+ printlog " compare position of selected rectangle with position of created rectangle in deteted layer"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ sleep 1
+ printlog " close document"
+ Call hCloseDocument
+
+endcase 'tdEditDeleteLayer
+'--------------------------------------------------------
+testcase tEditObjectEdit
+
+ Dim Schrieb as string
+
+ Schrieb = gOLEWriter
+ if Schrieb = "" then
+ warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
+ else
+ printlog " new document"
+ Call hNewDocument
+ call sSelectEmptyLayout
+ sleep 1
+ printlog " insert writer ole object"
+ InsertObjectOLEObject
+ Kontext "OLEObjektEinfuegen"
+ sleep 3
+ if ObjektTyp.GetItemCount = 0 Then
+ Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
+ sleep 1
+ OleObjektEinfuegen.Cancel
+ sleep 1
+ else
+ ObjektTyp.Select Schrieb
+ sleep 1
+ OLEObjektEinfuegen.OK
+ sleep 3
+ gMouseMove 10,10,90,90
+ sleep 1
+ EditSelectAll
+
+ try
+ EditObjectEdit
+ sleep 2
+ catch
+ Warnlog "- The EditObjectEdit did not work"
+ endcatch
+
+
+ gMouseClick 90,90
+ end if
+ sleep 1
+ printlog " close document"
+ Call hCloseDocument
+ endif
+endcase 'tEditObjectEdit \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-07-16 19:11:06 +0000