summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/impress/i_view.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/i_view.inc')
-rw-r--r--testautomation/graphics/optional/includes/impress/i_view.inc318
1 files changed, 318 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/impress/i_view.inc b/testautomation/graphics/optional/includes/impress/i_view.inc
new file mode 100644
index 000000000000..56c5654315bf
--- /dev/null
+++ b/testautomation/graphics/optional/includes/impress/i_view.inc
@@ -0,0 +1,318 @@
+'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 :
+'*
+'*********************************************************************
+' #1 tAnsichtHintergrundNotizen
+' #1 tViewWorkspaceHandoutView
+' #1 tViewWorkspaceOutlineView
+' #1 tViewWorkspaceDrawingView
+' #1 tAnsichtEbene
+'\********************************************************************
+
+'Datei$ = ConvertPath (gOfficePath + "user\work\test.sxi")
+
+testcase tAnsichtHintergrundNotizen
+ Printlog "- View background notes"
+ Call hNewDocument '/// new document ///'
+ try
+ ViewNotes '/// view background notes ///'
+ sleep 3
+ catch
+ Warnlog "View-Notes could not be accessed"
+ endcatch
+ ViewWorkspaceDrawingView
+ sleep 1
+ Call hCloseDocument '/// close document ///'
+ sleep 1
+endcase
+
+'-------------------------------------------------------------------------------
+
+testcase tViewWorkspaceHandoutView
+ Printlog "- View background handout"
+ Call hNewDocument '/// new document ///'
+ sleep 2
+ Kontext "DocumentImpress"
+ if NOT documentImpress.Exists then
+ hNewDocument
+ sleep 1
+ end if
+ sleep 2
+ Printlog " ViewWorkspaceHandoutView"
+ ViewWorkspaceHandoutView '/// view background handout ///'
+ sleep 2
+ Kontext "Tasks"
+ sleep 2
+ if LayoutsPreview.GetItemCount <> 6 Then
+ Warnlog " this doesn't seem to be a handout ?: should be: 6 layouts in the Preview window, but are: " + LayoutsPreview.GetItemCount
+ else
+ Printlog " ViewWorkspaceHandoutView works"
+ end if
+ Printlog "ViewWorkspaceHandoutView closed"
+ ViewWorkspaceDrawingView '/// back to view background drawing ///'
+ Call hCloseDocument '/// close document ///'
+endcase
+
+'-------------------------------------------------------------------------------
+
+testcase tViewWorkspaceOutlineView
+ qaerrorlog "Outcommenting tViewWorkspaceOutlineView due to unreability. - FHA"
+ goto endsub
+ dim sFile as string
+ dim i as integer
+
+ '/// load a document with heading styles in writer and use the function 'writer:'File->Send->Outline to presentation' to get it into the presentation ///'
+ ' all 'heading 1' are new slides
+
+ '/// document used : "graphics\\required\\input\\outlinefromwriter.sxw" -> you get into writer ///'
+ sFile = ConvertPath (gTesttoolPath + "graphics\required\input\outlinefromwriter.sxw")
+ hDateiOeffnen (sFile)
+ sleep 10
+ '///+ with 'File->Send->Outline to presentation' you get into impress ///'
+ FileSendOutlineToPresentation
+ sleep 10
+ Printlog "'/// View->Workspace->Outline View ///'"
+ ViewWorkspaceOutlineView
+ sleep 1
+ '/// go to the line with the 'I' (via 'search & replace' function) ///'
+ hTypeKeys "<STRG HOME>"
+ EditSelectAll
+ hFindeImDokument ("I")
+
+ '///<b> expected level/style: 'Outline 8' </b>///'
+ '/// get last character from selected style in stylist (expect a number of the outline(heading level) ///'
+ fGetPresentationStyle ("8")
+
+ '/// type keys [home] [tab] to go one level down ///'
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys "<Home><Tab>"
+
+ '///<b> expected level/style: 'Outline 9' </b>///'
+ fGetPresentationStyle ("9")
+
+ Kontext "DocumentImpressOutlineView"
+ '/// Edit - "Select All" to go select the whole text ///'
+ EditSelectAll
+ '/// type keys [shift]+[tab] eight times, to get all lines to the highest, except the one with the 'I' ///'
+ DocumentImpressOutlineView.TypeKeys ("<Shift Tab>", 8)
+
+hPrepareSearchBUG
+ hTypeKeys "<STRG HOME>"
+ EditSelectAll
+ hFindeImDokument ("I")
+ '///<b> expected level/style: 'Outline 1' </b>///'
+ fGetPresentationStyle ("1")
+
+ '/// type keys [shift]+[tab] to get the last line to the highest level, too ///'
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys ("<Shift Tab>", 1)
+ '///<b> expected level/style: 'Title' </b>///'
+ fGetPresentationStyle (0)
+
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys ("<escape>", 1)
+ Printlog "'///<b> call 'Edit->Undo' nine times </b>///'"
+ for i = 1 to 9
+ editundo
+ next i
+
+hPrepareSearchBUG
+ hFindeImDokument ("I")
+ '///<b> expected level/style: 'Outline 9' </b>///'
+ fGetPresentationStyle (9)
+
+ Printlog "'///<b> call 'Edit->Redo' nine times </b>///'"
+ for i = 1 to 9
+ editredo
+ next i
+ try
+ editredo
+ Warnlog "NOT OK :-("
+ catch
+ Printlog "OK"
+ endcatch
+
+hPrepareSearchBUG
+ hTypeKeys "<STRG HOME>"
+ EditSelectAll
+ hFindeImDokument ("I")
+ '///<b> expected level/style: 'Title' </b>///'
+ fGetPresentationStyle (0)
+
+ Printlog "'///<b> call 'Edit->Undo' nine times </b>///'"
+ for i = 1 to 9
+ editundo
+ next i
+
+hPrepareSearchBUG
+ hTypeKeys "<STRG HOME>"
+ EditSelectAll
+ hFindeImDokument ("I")
+ '///<b> expected level/style: 'Outline 9' </b>///'
+ fGetPresentationStyle (9)
+
+ '/// type keys [strg]+[A] ///'
+ Kontext "DocumentImpressOutlineView"
+ EditSelectAll
+ '/// type keys [strg]+[X] ///'
+ DocumentImpressOutlineView.TypeKeys "<mod1 X>"
+
+ kontext
+ if messagebox.exists (5) then
+ Printlog "active about deleting pages with graphic objects: '" + messagebox.GetText + "'"
+ Messagebox.ok
+ else
+ Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
+ endif
+
+ '/// 'Edit->Undo' ///'
+ editundo
+ '/// 'Edit->Redo' ///'
+ editredo
+ '/// 'Edit->Undo' ///'
+ editundo
+
+ '/// type keys [strg]+[A] ///'
+ Kontext "DocumentImpressOutlineView"
+ EditSelectAll
+ '/// type keys [strg]+[X] ///'
+ DocumentImpressOutlineView.TypeKeys "<mod1 X>"
+
+ kontext
+ if messagebox.exists (5) then
+ Printlog "active about deleting pages with graphic objects: '" + messagebox.GetText + "'"
+ Messagebox.ok
+ else
+ Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
+ endif
+
+ '/// type keys [strg]+[V] ///'
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys "<mod1 V>"
+
+ '/// 'Edit->Undo' ///'
+ editundo
+ '/// 'Edit->Redo' ///'
+ editredo
+
+ '/// type keys [strg]+[End] ///'
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys "<mod1 End>"
+ '/// type keys [strg]+[V] ///'
+ DocumentImpressOutlineView.TypeKeys "<mod1 V>"
+ '/// type keys [strg]+[A] ///'
+ EditSelectAll
+ '/// type keys [delete] ///'
+ DocumentImpressOutlineView.TypeKeys "<delete>"
+
+ kontext
+ if messagebox.exists (5) then
+ Printlog "active-box about deleting pages with graphic objects: '" + messagebox.GetText + "'"
+ Printlog "SAY CANCEL TO DIALOG!"
+ Messagebox.Cancel
+ else
+ Warnlog "messagebox missing ! (about deleting pages with graphic objects:)"
+ endif
+
+ '/// type keys [strg]+[A] ///'
+ Kontext "DocumentImpressOutlineView"
+ EditSelectAll
+ try
+ editcopy
+ Printlog "OK"
+ catch
+ Warnlog "error 4711 TBO :-("
+ endcatch
+
+ '/// type keys [delete] ///'
+ Kontext "DocumentImpressOutlineView"
+ DocumentImpressOutlineView.TypeKeys "<delete>"
+
+ kontext
+ if messagebox.exists (5) then
+ Printlog "Active-box about deleting pages with graphic objects: '" + messagebox.GetText + "'"
+ Messagebox.ok
+ else
+ Warnlog "Messagebox missing ! (about deleting pages with graphic objects:)"
+ endif
+
+ Kontext "DocumentImpressOutlineView"
+ EditSelectAll
+ try
+ editcopy
+ Warnlog "Didn't work!"
+ Printlog "'" + getclipboard() + "'"
+ catch
+ Printlog "OK"
+ endcatch
+
+ ViewWorkspaceDrawingView
+ Call hCloseDocument '/// close document ///'
+ Call hCloseDocument '/// close document ///'
+endcase
+
+'-------------------------------------------------------------------------------
+
+testcase tViewWorkspaceDrawingView
+ Printlog "- View/Background-drawing"
+ Call hNewDocument '/// new document ///'
+ sleep 2
+ ViewDrawing '/// view background drawing ///'
+ try
+ hRechteckErstellen ( 20,20,40,40 ) '/// create rectangle ///'
+ sleep 1
+ Printlog " - rectangle created"
+ catch
+ Warnlog " Rectangle could not be created"
+ endcatch
+ Call hCloseDocument '/// close document ///'
+endcase
+
+'-------------------------------------------------------------------------------
+
+testcase tAnsichtEbene
+ printLog "- View/Layer" '/// view layer ///'
+
+
+ FileAutopilotPresentation '/// new document-autopilot ///'
+ Kontext "AutopilotPraesentation1"
+ sleep 5
+ AutopilotPraesentation1.Ok
+ sleep 2
+ sleep 2
+ ViewSlide '/// back to view slide ///'
+ Sleep 2
+
+ Call hCloseDocument '/// close document ///'
+
+endcase
+
+'-------------------------------------------------------------------------------
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-13 15:23:05 +0000