diff options
Diffstat (limited to 'testautomation/global/tools/includes/required/t_doc1.inc')
| -rw-r--r-- | testautomation/global/tools/includes/required/t_doc1.inc | 549 |
1 files changed, 549 insertions, 0 deletions
diff --git a/testautomation/global/tools/includes/required/t_doc1.inc b/testautomation/global/tools/includes/required/t_doc1.inc new file mode 100644 index 000000000000..d8af032955cd --- /dev/null +++ b/testautomation/global/tools/includes/required/t_doc1.inc @@ -0,0 +1,549 @@ +'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 : thorsten.bosbach@sun.com +'* +'* short description : Global Routines for Document Handling +'* +'\************************************************************************************* + +sub hNewDocument ( optional bANewDoc ) + '/// hNewDocument : open a new document dependent on 'gApplication' ///' + dim sTemp as string + gApplication = gApplication + + if IsMissing ( bANewDoc ) <> TRUE then + if bANewDoc = TRUE then + gNoNewDoc = FALSE + else + gNoNewDoc = TRUE + end if + end if + + select case gApplication + case "WRITER" + Kontext "DocumentWriter" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/swriter", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/swriter", "FrameName", "_default", "SynchronMode", TRUE + end if + if ( DocumentWriter.IsMax() = false ) then + DocumentWriter.Maximize() + Wait( 2000 ) + end if + case "CALC" + Kontext "DocumentCalc" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/scalc", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/scalc", "FrameName", "_default", "SynchronMode", TRUE + end if + if ( DocumentCalc.IsMax() = false ) then + DocumentCalc.Maximize() + Wait( 2000 ) + end if + case "IMPRESS" + Kontext "DocumentImpress" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/simpress", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/simpress", "FrameName", "_default", "SynchronMode", TRUE + Kontext "AutoPilotPraesentation1" + if AutoPilotPraesentation1.Exists (2) then + Printlog "------------------------------The Impress-Autopilot was active------------------" + Startwithwizard.Check ' opposite of the checkboxs' title + AutoPilotPraesentation1.OK + Sleep 2 + Kontext "SeitenLayout" + SeitenLayout.Cancel + end if + Kontext "DocumentImpress" + Sleep 2 + if ( DocumentImpress.IsMax() = false ) then + DocumentImpress.Maximize() + Wait( 2000 ) + end if + end if + case "DRAW" + Kontext "DocumentDraw" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/sdraw", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/sdraw", "FrameName", "_default", "SynchronMode", TRUE + end if + if ( DocumentDraw.IsMax() = false ) then + DocumentDraw.Maximize() + Wait( 2000 ) + end if + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/swriter/GlobalDocument", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/swriter/GlobalDocument", "FrameName", "_default", "SynchronMode", TRUE + end if + Kontext "Navigator" + sleep (1) + if Navigator.Exists(5) then Navigator.Close + Kontext "DocumentMasterDoc" + if ( DocumentMasterDoc.IsMax() = false ) then + DocumentMasterDoc.Maximize() + Wait( 2000 ) + end if + case "MATH" + Kontext "DocumentMath" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/smath", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/smath", "FrameName", "_default", "SynchronMode", TRUE + end if + Kontext "DocumentMath" + if ( DocumentMath.IsMax() = false ) then + DocumentMath.Maximize() + Wait( 2000 ) + end if + case "HTML" + Kontext "DocumentWriterWeb" + if gNoNewDoc = TRUE then + FileOpen "FileName", "private:factory/swriter/web", "SynchronMode", TRUE + else + FileOpen "FileName", "private:factory/swriter/web", "FrameName", "_default", "SynchronMode", TRUE + end if + Kontext "DocumentWriterWeb" + if ( DocumentWriterWeb.IsMax() = false ) then + DocumentWriterWeb.Maximize() + Wait( 2000 ) + end if + case "DATABASE" + FileOpen "FileName", "private:factory/sdatabase?Interactive", "FrameName", "_default", "SynchronMode", TRUE + Kontext "DatabaseWizard" + if DatabaseWizard.exists(5) then + FinishBtn.click + kontext "SpeichernDlg" + if SpeichernDlg.exists(5) then + if (Dateiname.getSelText = "") then + sTemp = convertPath(gOfficePath + "user/work/hNewDocument.odb") + if fileExists(sTemp) then + app.kill(sTemp) + endif + qaErrorlog "## lost default filename" + Dateiname.setText "hNewDocument" + endif + Speichern.click + Kontext "DATABASE" + else + warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 2" + endif + else + warnlog "t_doc1.inc::hNewDocument():: Can't create Database Document 1" + endif + case "BASIC" + ToolsMacroMacro + kontext "makro" + if makro.exists(5) then + MakroAus.typeKeys "<home>" + sTemp = "" + while (NOT bearbeiten.isEnabled) AND (sTemp <> MakroAus.getSelText) + sTemp = MakroAus.getSelText + MakroAus.typeKeys "<down>+" + wend + if (bearbeiten.isEnabled) then + bearbeiten.click + else + qaErrorlog "Can't edit document." + endif + else + warnlog "Can't open Basic IDE." + endif + case else : WarnLog "hNewDocument: No Applikation named '" + gApplication + "' exists in this routine!" + end select + Sleep 2 + +end sub +' +'------------------------------------------------------------------------------- +' +function hCreateLabels() as Boolean + '/// hCreateLabels : open the tab-dialog for making a new lable (file/new/lable) ///' + FileOpen "FileName", "private:factory/swriter?slot=21051", "FrameName", "_default", "SynchronMode", TRUE + Sleep (2) + Kontext + Active.Setpage TabEtiketten + Kontext "TabEtiketten" + if Not TabEtiketten.Exists then + Warnlog "Dialog for Labels is not up!" + hCreateLabels = False + else + hCreateLabels = True + endif + Sleep (2) +end function +' +'------------------------------------------------------------------------------- +' +function hCreateBusinessCards() as Boolean + '/// hCreateBusinessCards : open the tab-dialog for making a new business card (file/new/business cards) ///' + FileOpen "FileName", "private:factory/swriter?slot=21052", "FrameName", "_default", "SynchronMode", TRUE + Sleep (2) + Kontext + Active.Setpage TabEtikettenMedium + Kontext "TabEtikettenMedium" + if Not TabEtikettenMedium.Exists then + Warnlog "Dialog for BusinessCards is not up!" + hCreateBusinessCards = False + else + hCreateBusinessCards = True + endif + Sleep (2) +end function +' +'------------------------------------------------------------------------------- +' +sub hCloseDocument ( optional bANewDoc ) + '/// hCloseDocument : close a document without saving ///' + '///+ all documents will be closed without saving ///' + Dim sFehler$ + + if IsMissing ( bANewDoc ) <> TRUE then + if bANewDoc = TRUE then + gNoNewDoc = FALSE + else + gNoNewDoc = TRUE + end if + end if + + ' if no new document was created, it isn't closed + if gNoNewDoc = TRUE then + exit sub + end if + + Sleep 3 + try + FileClose + catch + Exceptlog + exit sub + endcatch + + Sleep 1 + Kontext "Active" + if Active.Exists(2) then + try + Active.No + catch + Active.Click ( 202 ) + endcatch + end if + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseClick ( X%, Y%, optional mb% ) + '/// gMouseClick ( x_Position, y-Position ) : make a mouseclick on the document (dependent on 'gApplication') ///' + '/// default left mousebutton will be used otherwise you can optionally give the mousebutton to press + '/// 1 = left mouse button + '/// 2 = left mouse button + '/// 3 = left mouse button + + gApplication = gApplication + + if IsMissing(mb%) then mb% = 1 + + select case gApplication + case "BACKGROUND" + Kontext "BACKGROUND" + autoexecute = false + Desktop.MouseDown ( X%, Y%, mb% ) + Desktop.MouseUp ( X%, Y%, mb% ) + autoexecute = true + case "CALC" + Kontext "DocumentCalc" + autoexecute = false + DocumentCalc.MouseDown ( X%, Y%, mb% ) + DocumentCalc.MouseUp ( X%, Y%, mb% ) + autoexecute = true + case "DRAW" + Kontext "DocumentDraw" + autoexecute=false + DocumentDraw.MouseDown ( X%, Y%, mb% ) + DocumentDraw.MouseUp ( X%, Y%, mb% ) + autoexecute=true + case "WRITER" + Kontext "DocumentWriter" + autoexecute=false + DocumentWriter.MouseDown ( X%, Y%, mb% ) + DocumentWriter.MouseUp ( X%, Y%, mb% ) + autoexecute=true + case "HTML" + Kontext "DocumentWriterWeb" + autoexecute=false + DocumentWriterWeb.MouseDown ( X%, Y%, mb% ) + DocumentWriterWeb.MouseUp ( X%, Y%, mb% ) + autoexecute=true + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + autoexecute=false + DocumentMasterDoc.MouseDown ( X%, Y%, mb% ) + DocumentMasterDoc.MouseUp ( X%, Y%, mb% ) + autoexecute=true + case "IMPRESS" + Kontext "DocumentImpress" + autoexecute=false + DocumentImpress.MouseDown ( X%, Y%, mb% ) + DocumentImpress.MouseUp ( X%, Y%, mb% ) + autoexecute=true + case "MATH" + Kontext "DocumentMath" + autoexecute=false + DocumentMath.MouseDown ( X%, Y%, mb% ) + DocumentMath.MouseDown ( X%, Y%, mb% ) + autoexecute=true + case "CHART" + Kontext "DocumentChart" + autoexecute=false + DocumentChart.MouseDown ( X%, Y%, mb% ) + DocumentChart.MouseUp ( X%, Y%, mb% ) + autoexecute=true + end select + sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseDoubleClick ( X%, Y% ) + '/// gMouseDoubleClick ( x_Position, y-Position ) : make a mouse-doubleclick on the document ( dependent on 'gApplication' ) ///' + gApplication = gApplication + + select case gApplication + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.MouseDoubleClick ( X%, Y% ) + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.MouseDoubleClick ( X%, Y% ) + case "BACKGROUND" + Kontext "BACKGROUND" + Desktop.MouseDoubleClick ( X%, Y% ) + case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.MouseDoubleClick ( X%, Y% ) + case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.MouseDoubleClick ( X%, Y% ) + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.MouseDoubleClick ( X%, Y% ) + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.MouseDoubleClick ( X%, Y% ) + case "MATH" + Kontext "DocumentMath" + DocumentMath.MouseDoubleClick ( X%, Y% ) + end select + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseMove ( BeginX%, BeginY%, EndX%, EndY% ) + '/// gMouseMove ( BeginX, BeginY, EndX, EndY ) : make a mousemove trom Bx,By to Ex,Ey on the document ( dependent on 'gApplication' ) ///' + gApplication = gApplication + + select case gApplication + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.MouseDown ( BeginX%, BeginY% ) + DocumentCalc.MouseMove ( EndX%, EndY%) + DocumentCalc.MouseUp ( EndX%, EndY% ) + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.MouseDown ( BeginX%, BeginY% ) + DocumentDraw.MouseMove ( EndX%, EndY% ) + DocumentDraw.MouseUp ( EndX%, EndY% ) + case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.MouseDown ( BeginX%, BeginY% ) + DocumentWriter.MouseMove ( EndX%, EndY%) + DocumentWriter.MouseUp ( EndX%, EndY% ) + case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.MouseDown ( BeginX%, BeginY% ) + DocumentWriterWeb.MouseMove ( EndX%, EndY%) + DocumentWriterWeb.MouseUp ( EndX%, EndY% ) + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.MouseDown ( BeginX%, BeginY% ) + DocumentMasterDoc.MouseMove ( EndX%, EndY%) + DocumentMasterDoc.MouseUp ( EndX%, EndY% ) + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.MouseDown ( BeginX%, BeginY% ) + DocumentImpress.MouseMove ( EndX%, EndY%) + DocumentImpress.MouseUp ( EndX%, EndY% ) + case "MATH" + Kontext "DocumentMath" + DocumentMath.MouseDown ( BeginX%, BeginY% ) + DocumentMath.MouseMove ( EndX%, EndY%) + DocumentMath.MouseDown ( EndX%, EndY% ) + end select + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseDown ( BeginX%, BeginY% ) + '/// gMouseDown ( x_Position, y-Position ) : make a mousedown on the document (dependent on 'gApplication') ///' + '///+ DON'T FORGETT to call gMouseUp ! ///' + gApplication = gApplication + + select case gApplication + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.MouseDown ( BeginX%, BeginY% ) + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.MouseDown ( BeginX%, BeginY% ) + case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.MouseDown ( BeginX%, BeginY% ) + case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.MouseDown ( BeginX%, BeginY% ) + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.MouseDown ( BeginX%, BeginY% ) + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.MouseDown ( BeginX%, BeginY% ) + case "MATH" + Kontext "DocumentMath" + DocumentMath.MouseDown ( BeginX%, BeginY% ) + end select + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseMove2 ( EndX%, EndY% ) + '/// gMouseMove2 ( x_Position, y-Position ) : move the pointer to position on the document (dependent on 'gApplication') ///' + gApplication = gApplication + + select case gApplication + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.MouseMove ( EndX%, EndY%) + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.MouseMove ( EndX%, EndY% ) + case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.MouseMove ( EndX%, EndY%) + case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.MouseMove ( EndX%, EndY%) + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.MouseMove ( EndX%, EndY%) + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.MouseMove ( EndX%, EndY%) + case "MATH" + Kontext "DocumentMath" + DocumentMath.MouseMove ( EndX%, EndY%) + end select + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub gMouseUp ( EndX%, EndY% ) + '/// gMouseUp ( x_Position, y-Position ) : make a release button on the document (dependent on 'gApplication') ///' + gApplication = gApplication + + select case gApplication + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.MouseUp ( EndX%, EndY% ) + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.MouseUp ( EndX%, EndY% ) + case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.MouseUp ( EndX%, EndY% ) + case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.MouseUp ( EndX%, EndY% ) + case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.MouseUp ( EndX%, EndY% ) + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.MouseUp ( EndX%, EndY% ) + case "MATH" + Kontext "DocumentMath" + DocumentMath.MouseUp ( EndX%, EndY% ) + end select + Sleep (2) +end sub +' +'------------------------------------------------------------------------------- +' +sub hTypeKeys ( OutputText , optional iLoop as Integer ) + '/// hTypeKeys ( OutputText , optional iLoop as Integer ): type the keys in 'outputtext' 'iLoop' times ///' + Dim i as integer + + If IsMissing(iLoop) = True then iLoop = 1 + For i = 1 to iLoop + Select Case Ucase(gApplication) + Case "WRITER" + Kontext "DocumentWriter" + DocumentWriter.TypeKeys OutputText + Case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + DocumentMasterDoc.TypeKeys OutputText + Case "HTML" + Kontext "DocumentWriterWeb" + DocumentWriterWeb.TypeKeys OutputText + case "CALC" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys OutputText + case "DRAW" + Kontext "DocumentDraw" + DocumentDraw.TypeKeys OutputText + case "IMPRESS" + Kontext "DocumentImpress" + DocumentImpress.TypeKeys OutputText + case "MATH" + Kontext "DocumentMath" + DocumentMath.TypeKeys OutputText + end select + wait 500 + next i +end sub + |