diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_002.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/id_002.inc | 440 |
1 files changed, 0 insertions, 440 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_002.inc b/testautomation/graphics/optional/includes/global/id_002.inc deleted file mode 100644 index c199ab998524..000000000000 --- a/testautomation/graphics/optional/includes/global/id_002.inc +++ /dev/null @@ -1,440 +0,0 @@ -'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 : -'* -'\********************************************************************************** - -testcase tiEditUndoRedo - - hNewDocument - call hTBOtypeInDoc - - EditUndo - WaitSlot (2000) - EditRedo - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditRepeat - goto endsub 'Quaste, ask FHA - Call hNewDocument - - 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) - ContextArrangeBringBackward - WaitSlot (2000) - try - EditRepeat - catch - Warnlog " Menu entry is disabled #i26129#" - endcatch - - Call hCloseDocument -endcase - -testcase tiEditCutPasteCopySelectall - Call hNewDocument - - call hTBOtypeInDoc - - EditCut - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditCopy - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditSelectAll - WaitSlot (2000) - EditCut - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditDeleteContents - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditPasteSpecial - Call hNewDocument - - SetClipboard "This is a Text in the Clipboard" - - EditPasteSpecial - WaitSlot (1000) - Kontext "InhaltEinfuegen" - DialogTest ( InhaltEinfuegen ) - - InhaltEinfuegen.Cancel - WaitSlot (1000) - Call hCloseDocument -endcase - -testcase tiEditSearchAndReplace - Call hNewDocument - - try - EditSearchAndReplace - WaitSlot (1000) - Kontext "FindAndReplace" - DialogTest ( FindAndReplace ) - - More.Click - SimilaritySearch.Check ' culprint for errors if not resetted ! - WaitSlot (1000) - SimilaritySearchFor.Click - Kontext "Aehnlichkeitssuche" - DialogTest (Aehnlichkeitssuche ) - Aehnlichkeitssuche.Cancel - Kontext "FindAndReplace" - SimilaritySearch.UnCheck - More.Click - FindAndReplace.Close - catch - Warnlog "EditSearchAndReplace caused an error" - endcatch - Call hCloseDocument -endcase - -testcase tiEditDuplicate - Call hNewDocument - call hTBOtypeInDoc - EditSelectAll - EditDuplicate - - Kontext "Duplizieren" - Call DialogTest ( Duplizieren ) - Duplizieren.Cancel - - Call hCloseDocument -endcase - -testcase tEditPoints - Call hNewDocument - call hTBOtypeInDoc - FormatEditPoints - EditGluePoints - Call hCloseDocument -endcase - -testcase tiEditFields - Call hNewDocument - WaitSlot (2000) - InsertFieldsDateFix - WaitSlot (1000) - gMouseDoubleClick 10,10 - - hTypeKeys "<ESCAPE>" - hTypeKeys "<Tab>" ' With a Tab catches we always the Object - hTypeKeys "<F2>" ' Here we enter Edit-Mode and therefore also the right place - hTypeKeys "<Home>" ' Here we enter Edit-Mode and therefore also the right place - - try - EditFieldsDraw - Kontext "FeldbefehlBearbeitenDraw" - Call DialogTest ( FeldbefehlBearbeitenDraw ) - FeldbefehlBearbeitenDraw.Close - catch - Warnlog "- Slot could not be accessed" - endcatch - - Call hCloseDocument -endcase - -testcase tdEditDeleteSlide - Call hNewDocument - InsertSlide - WaitSlot (2000) - hTypekeys "<Pagedown>" - WaitSlot (2000) - 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 - Kontext "Navigator" - Navigator.Close - end if - WaitSlot (2000) - EditDeleteSlide - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditLinks - Call hNewDocument - - 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 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - Oeffnen.Click - - kontext "Messagebox" - if Messagebox.Exists( 2 ) then - Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 - end if - catch - Warnlog "Insert graphic caused errors" - endcatch - - WaitSlot (2000) - try - EditLinksDraw - WaitSlot (2000) - Kontext "VerknuepfungenBearbeiten" - Call DialogTest ( VerknuepfungenBearbeiten ) - VerknuepfungenBearbeiten.Close - WaitSlot (1000) - catch - Warnlog "- EditLinks could not be executed, could be the graphic was not imported" - endcatch - - Call hCloseDocument -endcase - -testcase tiEditImageMap - Call hNewDocument - - EditImageMap - - Kontext "ImageMapEditor" - if ImageMapEditor.Exists( 5 ) then - printlog "- ImageMap exists" - DialogTest ( ImageMapEditor ) - try - 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 - Call hCloseDocument -endcase - -testcase tiEditObjectProperties - dim i as integer - - Call hNewDocument - - InsertFloatingFrame - WaitSlot (2000) - - Kontext "TabEigenschaften" - FrameName.SetText "Hello" - Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" ) - WaitSlot (2000) - TabEigenschaften.OK - WaitSlot (2000) - gMouseDoubleClick 1,1 - - hTypekeys "<tab>" - - kontext - WaitSlot (2000) - EditObjectProperties - WaitSlot (1000) - Kontext "TabEigenschaften" - DialogTest ( TabEigenschaften ) - Oeffnen.Click - Kontext "OeffnenDlg" - Call DialogTest ( OeffnenDlg ) - OeffnenDlg.Cancel - Kontext "TabEigenschaften" - TabEigenschaften.Cancel - - Call hCloseDocument -endcase - -testcase tiEditObjectEdit - dim i as integer - Call hNewDocument - - InsertObjectOLEObject - WaitSlot (1000) - Kontext "OLEObjektEinfuegen" - ObjektTyp.Select 1 - OLEObjektEinfuegen.OK - WaitSlot (1000) - - gMouseClick 20,1 - - hTypekeys "<tab>" - - EditObjectEdit - ' 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 :-)" - gMouseClick 20,1 - endcatch - - EditSelectAll - - EditObjectSaveCopyAs - Kontext "SpeichernDlg" - Call DialogTest ( SpeichernDlg ) - SpeichernDlg.Cancel - WaitSlot (2000) - Kontext "Active" - if Active.Exists(2) then Active.No - Call hCloseDocument -endcase - -testcase tiEditPlugIn - Call hNewDocument - - 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 - DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" )) - - 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 - EditPlugIn - printlog "Editplugin works!" - - Call hCloseDocument -endcase - -testcase tiEditHyperlink - hNewDocument - 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" - - '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 - 'End of workaround... - - Internet.Check 'Just to make sure the radio-button is addressable. - ZielUrl.Settext "http://www.liegerad-fahrer.de" - - Uebernehmen.Click() - - kontext "HyperlinkDialog" - HyperlinkDialog.Close() - - hTypeKeys "<TAB><F2>" - EditSelectAll - try - EditHyperlinkDraw - Kontext "HyperlinkDialog" - if ( HyperlinkDialog.Exists( 1 ) ) then - HyperlinkDialog.Close() - else - Warnlog "- Hyperlinkdialog not up" - end if - catch - Warnlog "- Not able to edit Hyperlink!" - endcatch - else - warnlog( "Failed to open <HyperlinkDialog>" ) - endif - - Call hCloseDocument -endcase |