summaryrefslogtreecommitdiffstats
path: root/testautomation/graphics/required/includes/global/id_002.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_002.inc')
-rw-r--r--testautomation/graphics/required/includes/global/id_002.inc571
1 files changed, 571 insertions, 0 deletions
diff --git a/testautomation/graphics/required/includes/global/id_002.inc b/testautomation/graphics/required/includes/global/id_002.inc
new file mode 100644
index 000000000000..5880fc968806
--- /dev/null
+++ b/testautomation/graphics/required/includes/global/id_002.inc
@@ -0,0 +1,571 @@
+'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@sun.com
+'*
+'* short description :
+'*
+'\******************************************************************************
+testcase tiEditUndoRedo
+
+ printlog " open application"
+ printlog " Type a sentence into the document and do :"
+ printlog " Edit / Undo and Edit / Redo"
+ hNewDocument
+ call hTBOtypeInDoc
+
+ EditUndo
+ WaitSlot (2000)
+ EditRedo
+ WaitSlot (2000)
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditUndoRedo
+'---------------------------------------------------------
+testcase tiEditRepeat
+
+ goto endsub 'Quaste, ask FHA
+ printlog " open application"
+ Call hNewDocument
+
+printlog " create 3 rectangles"
+ gMouseClick 50,50
+ Call hRechteckErstellen ( 30, 10, 70, 30 )
+ WaitSlot (1000)
+ Call hRechteckErstellen ( 20, 20, 60, 40 )
+ WaitSlot (1000)
+ Call hRechteckErstellen ( 80, 50, 40, 20 )
+ WaitSlot (1000)
+ printlog " [Modify | ContextMenu]->Arrange->SendBackward"
+ ContextArrangeBringBackward
+ WaitSlot (2000)
+ printlog " Edit->Repeat"
+ try
+ EditRepeat
+ catch
+ Warnlog " Menu entry is disabled #i26129#"
+ endcatch
+
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditRepeat
+'---------------------------------------------------------
+testcase tiEditCutPasteCopySelectall
+
+ printlog " open application"
+ printlog " Type a sentence into the dokument and do : "
+ printlog " edit-> (Cut | Paste | Copy | SelectAll | Cut | Paste | DeleteContents) "
+ Call hNewDocument
+
+ call hTBOtypeInDoc
+
+ hUseAsyncSlot( "EditCut" )
+ hUseAsyncSlot( "EditPaste" )
+ hUseAsyncSlot( "EditCopy" )
+ hUseAsyncSlot( "EditPaste" )
+ hUseAsyncSlot( "EditSelectAll" )
+ hUseAsyncSlot( "EditCut" )
+ hUseAsyncSlot( "EditPaste" )
+ hUseAsyncSlot( "EditDeleteContents" )
+
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditCutPasteCopySelectall
+'---------------------------------------------------------
+testcase tiEditPasteSpecial
+
+ printlog " open application"
+ Call hNewDocument
+
+ printlog " put some words into the clipboard "
+ SetClipboard "This is a Text in the Clipboard"
+
+ printlog " Edit->PasteSpecial"
+ hUseAsyncSlot( "EditPasteSpecial" )
+
+ Kontext "InhaltEinfuegen"
+ if ( InhaltEinfuegen.exists( 2 ) ) then
+ DialogTest ( InhaltEinfuegen )
+
+ printlog " close the dialog without inserting something"
+ hCloseDialog( InhaltEinfuegen, "Cancel" )
+ else
+ warnlog( "Dialog <InhalteEinfuegen> did not open" )
+ endif
+
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditPasteSpecial
+'---------------------------------------------------------
+testcase tiEditSearchAndReplace
+
+ printlog " open application"
+ Call hNewDocument
+
+ try
+ printlog " Edit->Find & Replace"
+ EditSearchAndReplace
+ WaitSlot (1000)
+ Kontext "FindAndReplace"
+ DialogTest ( FindAndReplace )
+
+ printlog " click on More Options"
+ More.Click
+ printlog " check 'similarity search' "
+ SimilaritySearch.Check ' culprint for errors if not resetted !
+ WaitSlot (1000)
+ printlog " click '...' "
+ SimilaritySearchFor.Click
+ Kontext "Aehnlichkeitssuche"
+ DialogTest (Aehnlichkeitssuche )
+ Aehnlichkeitssuche.Cancel
+ printlog " close dialog 'similarity search' "
+ Kontext "FindAndReplace"
+ printlog " UNcheck 'similarity search' "
+ SimilaritySearch.UnCheck
+ printlog " click on More Options"
+ More.Click
+ printlog " close dialog 'Find & Replace'"
+ FindAndReplace.Close
+ catch
+ Warnlog "EditSearchAndReplace caused an error"
+ endcatch
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditSearchAndReplace
+'---------------------------------------------------------
+testcase tiEditDuplicate
+
+ printlog " open application "
+ Call hNewDocument
+ printlog " create a rectangle"
+ call hTBOtypeInDoc
+ printlog " 'Edit->Select All' "
+ EditSelectAll
+ printlog " Edit->Duplicate "
+ EditDuplicate
+
+ Kontext "Duplizieren"
+ Call DialogTest ( Duplizieren )
+ printlog " cancel dialog 'duplicate'"
+ Duplizieren.Cancel
+
+ Call hCloseDocument
+ printlog " close application"
+
+endcase 'tiEditDuplicate
+'---------------------------------------------------------
+testcase tEditPoints
+
+ printlog " open application "
+ Call hNewDocument
+ printlog " create a rectangle"
+ call hTBOtypeInDoc
+ printlog " 'Edit->Points'"
+ FormatEditPoints
+ printlog " 'Edit->Glue Points'"
+ EditGluePoints
+ printlog " close application"
+ Call hCloseDocument
+
+endcase 'tEditPoints
+'---------------------------------------------------------
+testcase tiEditFields
+
+ printlog " open application "
+ Call hNewDocument
+ WaitSlot (2000)
+ printlog " insert something to be able to use this function"
+ printlog "+ Insert->Fields->Date (fixed)"
+ printlog "+ deselect object, select, editmode "
+ InsertFieldsDateFix
+ WaitSlot (1000)
+ gMouseDoubleClick 10,10
+
+ hTypeKeys "<ESCAPE>"
+ printlog "With a Tab we catch always the Object"
+ hTypeKeys "<Tab>",3
+ printlog "Here we enter Edit-Mode and therefore also the right place"
+ hTypeKeys "<F2>"
+ printlog "Here we enter Edit-Mode and therefore also the right place"
+ hTypeKeys "<Home>"
+
+ try
+ printlog " Edit->Fields"
+ EditFieldsDraw
+ Kontext "FeldbefehlBearbeitenDraw"
+ Call DialogTest ( FeldbefehlBearbeitenDraw )
+ printlog " cancel dialog 'Edit->Field' "
+ FeldbefehlBearbeitenDraw.Close
+ catch
+ Warnlog "- Slot could not be accessed"
+ endcatch
+
+printlog " close application"
+ Call hCloseDocument
+
+endcase 'tiEditFields
+'--------------------------------------------------------
+testcase tdEditDeleteSlide
+
+printlog " open application "
+ Call hNewDocument
+printlog " Insert->Slide"
+ InsertSlide
+ WaitSlot (2000)
+ hTypekeys "<Pagedown>"
+ WaitSlot (2000)
+ printlog " check with navigator, if slide is inserted "
+ printlog " check state of navigator ! expected: closed "
+ Kontext "Navigator"
+ sleep (2)
+ if Navigator.exists then
+ printlog "Navigator: open :-)"
+ else
+ printlog "Navigator: NOT available :-( Will be opened now!"
+ ViewNavigator
+ end if
+ WaitSlot (2000)
+ Kontext "NavigatorDraw"
+ if Liste.GetItemCount<>2 Then
+ Warnlog "- No slide inserted"
+ Kontext "Navigator"
+ Navigator.Close
+ Call hCloseDocument
+ goto endsub
+ else
+ Liste.Select 2
+ printlog " Press Return to go to the selected slide"
+ Liste.Typekeys "<RETURN>"
+ Kontext "Navigator"
+ Navigator.Close
+ end if
+ WaitSlot (2000)
+ printlog " Edit->Delete Slide"
+ EditDeleteSlide
+ WaitSlot (2000)
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tdEditDeleteSlide
+'---------------------------------------------------------
+testcase tiEditLinks
+
+ printlog " open application "
+ Call hNewDocument
+
+ printlog " Insert a linked graphic : global\input\graf_inp\stabler.tif"
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ try
+ if Link.Exists then
+ Link.Check
+ else
+ Warnlog "- Link in Insert graphic is not working"
+ end if
+ Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
+ Oeffnen.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists=True Then
+ Warnlog Messagebox.GetText
+ Messagebox.Ok
+ end if
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ Link.Check
+ printlog " Insert a linked graphic : global\input\graf_inp\desp.bmp"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ Oeffnen.Click
+ sleep 2
+ kontext "Messagebox"
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
+ catch
+ Warnlog "Insert graphic caused errors"
+ endcatch
+
+ WaitSlot (2000)
+ try
+ printlog " Edit->Links "
+ EditLinksDraw
+ WaitSlot (2000)
+ Kontext "VerknuepfungenBearbeiten"
+ Call DialogTest ( VerknuepfungenBearbeiten )
+ printlog " close dialog 'Edit Links' "
+ VerknuepfungenBearbeiten.Close
+ WaitSlot (1000)
+ catch
+ Warnlog "- EditLinks could not be executed, could be the graphic was not imported"
+ endcatch
+
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tiEditLinks
+'---------------------------------------------------------
+testcase tiEditImageMap
+
+ printlog " open application "
+ Call hNewDocument
+
+ printlog " Edit->Image Map "
+ EditImageMap
+ Kontext "ImageMapEditor"
+ sleep (1)
+ if ImageMapEditor.Exists (2) then
+ printlog "- ImageMap exists"
+ DialogTest ( ImageMapEditor )
+ try
+ printlog " Close dialog 'Image Map Editor' "
+ ImageMapEditor.Close
+ Printlog "ImageMap closed using the close button"
+ catch
+ EditImageMap
+ Printlog "ImageMap closed using menue 'edit-imagemap'"
+ endcatch
+ else
+ warnlog "ImageMap didn't come up!"
+ end if
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tiEditImageMap
+'---------------------------------------------------------
+testcase tiEditObjectProperties
+
+ dim i as integer
+ printlog " for every object, there are several edit options: "
+ printlog "+ starting with FloatingFrame->Properties "
+ printlog "+ file used for input in frame: global\input\graf_inp\desp.bmp"
+
+ printlog " open application "
+ Call hNewDocument
+
+ printlog " Insert->Floating Frame "
+ InsertFloatingFrame
+ WaitSlot (2000)
+
+ Kontext "TabEigenschaften"
+ FrameName.SetText "Hello"
+ printlog " insert an picture into the frame (embedded into draw application"
+ Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
+ WaitSlot (2000)
+ TabEigenschaften.OK
+ WaitSlot (2000)
+ gMouseDoubleClick 1,1
+
+ printlog " select frame "
+ hTypekeys "<tab>",3
+
+ printlog " Edit->Object->Properties "
+ kontext
+ WaitSlot (2000)
+ EditObjectProperties
+ WaitSlot (1000)
+ Kontext "TabEigenschaften"
+ DialogTest ( TabEigenschaften )
+ printlog " open Contents File Dialog "
+ sleep(1)
+ Oeffnen.Click
+ Kontext "OeffnenDlg"
+ Call DialogTest ( OeffnenDlg )
+ printlog " Cancel 'Select File for Floating Frame'"
+ OeffnenDlg.Cancel
+ Kontext "TabEigenschaften"
+ TabEigenschaften.Cancel
+
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tiEditObjectProperties
+'---------------------------------------------------------
+testcase tiEditObjectEdit
+
+ printlog " OLE: edit & save copy as..."
+ printlog " open application "
+ dim i as integer
+ Call hNewDocument
+
+ printlog " Insert->Object->OLE Object; select the first one in list, usually: 'StarOffice 6.0 Spreadsheet' "
+ InsertObjectOLEObject
+ WaitSlot (1000)
+ Kontext "OLEObjektEinfuegen"
+ ObjektTyp.Select 1
+ OLEObjektEinfuegen.OK
+ WaitSlot (1000)
+
+ gMouseClick 20,1
+
+ printlog " select object "
+ hTypekeys "<tab>",3
+
+ printlog " Edit->Object->Edit "
+ EditObjectEdit
+ printlog "try EditObjectEdit again, to see, if it is in edit mode !"
+ WaitSlot (2000)
+ try
+ ContextNameObject
+ warnlog " Couldn't get into edit mode!"
+ catch
+ printlog "Reached edit mode - ok :-)"
+ printlog " exit edit mode, by clicking outside the object "
+ gMouseClick 20,1
+ endcatch
+
+ printlog " select object "
+ hTypekeys "<tab>",3
+
+ printlog " Edit->Object->Save Copy As "
+ EditObjectSaveCopyAs
+ Kontext "SpeichernDlg"
+ Call DialogTest ( SpeichernDlg )
+ printlog " cancel dialog 'Save As' "
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+ Kontext "Active"
+ if Active.Exists(2) then Active.No
+ printlog " close application "
+ Call hCloseDocument
+
+endcase'tiEditObjectEdit
+'---------------------------------------------------------
+testcase tiEditPlugIn
+
+ printlog " open application "
+ Call hNewDocument
+
+ printlog " Insert->Object->Plugin "
+ InsertObjectPlugin
+ Kontext "PlugInEinfuegen"
+ ' DialogTest ( PlugInEinfuegen)
+ Durchsuchen.click
+ Kontext "OeffnenDlg"
+ ' Call DialogTest ( OeffnenDlg )
+ if OeffnenDlg.exists (5) then
+ OeffnenDlg.Cancel
+ else
+ warnlog "Open file dialog didn't come up"
+ end if
+ WaitSlot (5000)
+ Kontext "PlugInEinfuegen"
+ if PlugInEinfuegen.exists then
+ printlog " insert a '.mov' file : graphics\required\input\sample.mov"
+ DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
+ printlog " Type something into the option field, and delete it "
+
+ Optionen.SetText "Fiddler's Green"
+ Optionen.TypeKeys "<HOME>"
+ Optionen.TypeKeys "<SHIFT><END>"
+ Optionen.TypeKeys "<delete>"
+ PlugInEinfuegen.Ok
+ else
+ warnlog "Insert plugin isn't visible"
+ end if
+ WaitSlot (5000)
+ kontext "Messagebox"
+ if Messagebox.exists (5) then
+ warnlog "Messagebox: " + Messagebox.gettext
+ Messagebox.ok
+ end if
+ printlog " Edit->Plugin "
+ EditPlugIn
+ printlog "Editplugin works!"
+
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tiEditPlugIn
+'---------------------------------------------------------
+testcase tiEditHyperlink
+
+ printlog " open application"
+ hNewDocument
+ Call sSelectEmptyLayout
+ printlog " Insert->Hyperlink"
+ InsertHyperlink
+
+ kontext "HyperlinkDialog"
+ if ( HyperlinkDialog.exists( 2 ) ) then
+
+ Kontext "Hyperlink"
+ Auswahl.MouseDown 50, 5
+ Auswahl.MouseUp 50, 5
+ Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
+ Auswahl.typekeys "<TAB>"
+ sleep 1
+
+ Kontext "TabHyperlinkInternet"
+ printlog "Workaround to get rid of a Focusing-problem..."
+ NameText.Typekeys "alal <RETURN>"
+ NameText.Typekeys "<MOD1 A><DELETE>"
+ TabHyperlinkInternet.Typekeys "<TAB>", 6
+ TabHyperlinkInternet.Typekeys "<LEFT>", 3
+ printlog "End of workaround"
+
+ Internet.Check
+ ZielUrl.SetText( "http://www.liegerad-fahrer.de" )
+
+ Uebernehmen.Click()
+
+ kontext "HyperlinkDialog"
+ HyperlinkDialog.Close()
+ else
+ warnlog( "Failed to open <HyperlinkDialog>" )
+ endif
+ printlog " presupposition to enable edit->hyperlink: <TAB><F2><STRG+a>"
+ hTypeKeys "<TAB>"
+ hTypeKeys "<F2>"
+ hTypeKeys "<MOD1 SHIFT RIGHT>"
+ EditSelectAll
+ try
+ printlog " Edit->Hyperlink "
+ EditHyperlinkDraw
+
+ Kontext "HyperlinkDialog"
+ if ( HyperlinkDialog.Exists( 2 ) ) then
+ printlog " close dialog 'Hyperlink'"
+ HyperlinkDialog.Close()
+ else
+ Warnlog "- Hyperlinkdialog not up"
+ end if
+ catch
+ Warnlog "- Not able to edit Hyperlink!"
+ endcatch
+
+ printlog " close application "
+ Call hCloseDocument
+
+endcase 'tiEditHyperlink
+'---------------------------------------------------------
generated by cgit (git 2.34.1) at 2024-07-11 04:53:34 +0000