path: root/testautomation/writer/optional/includes/undo/w_undo_history_3.inc

'encoding UTF-8  Do not remove or change this line!
'**************************************************************************
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'* 
'* Copyright 2008 by Sun Microsystems, Inc.
'*
'* OpenOffice.org - a multi-platform office productivity suite
'*
'* $RCSfile: w_undo_history_3.inc,v $
'*
'* $Revision: 1.3 $
'*
'* last change: $Author: rt $ $Date: 2008-09-04 09:20:44 $
'*
'* 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 : fredrik.haegg@sun.com
'*
'* short description : Writer Undo-History - Test
'*
'\***********************************************************************

sub w_undo_history_3

	Call tUndoSection			' Section (Insert/Modify/Delete)
	Call tUndoHyperlink			' Hyperlink (Insert as Text/as URL button)
	Call tUndoFootnote			' Footnote (Insert/Modify/Delete)
	Call tUndoCaption			' Insert Caption
	Call tUndoAutoText			' Insert Autotext	
	Call tUndoBookmark			' Bookmark (Insert/Rename/Delete)
	Call tUndoNote			' Note (Insert/Delete)
	Call tUndoScript			' Script (Insert/Delete)
	Call tUndoIndexes			' Index/Bibliography entrys (Insert/Delete)
	Call tUndoFrames			' Frames (Insert/Rename/Delete)
	Call tUndoTableGeneral			' Tables Part 1
	Call tUndoTableOptionsMerge			' Tables Part 2
	Call tUndoTableConvertSort			' Tables Part 3
	Call tUndoTableSplitDelete			' Tables Part 4
	Call tUndoHorizontalRuler			' Horizontal ruler
	Call tUndoGraphics			' Graphics (Insert/Replace/Delete)
	
end sub

testcase tUndoSection

	'/// <B>Section (Insert/Modify/Delete)</B>
	printlog "Section (Insert)"
	'/// new document
	Call hNewDocument
	'/// Insert a section
	InsertSection
	Kontext
	Active.Setpage TabBereiche
	Kontext "TabBereiche"
	TabBereiche.Ok
	'///  string in Undo-list has to be: "Insert section")
	Call CheckUndoStringInUndoList ( 10, "InsertSection" )

	printlog "Section (Modify)"
	'/// Open navigator and select section
	Call wNavigatorAuswahl ( 7, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Edit'
	Auswahlliste.OpenContextMenu
	wait 500
	Call hMenuSelectNr(4)
	
	'/// Change Background-Color
	Kontext "BereicheBearbeiten"
	Optionen.Click
	Kontext
	Active.Setpage TabHintergrund
	Kontext "TabHintergrund"
	Hintergrundfarbe.TypeKeys "<Down>", 5
	TabHintergrund.Ok
	
	Kontext "BereicheBearbeiten"
	BereicheBearbeiten.Ok
	'///  string in Undo-list has to be: "Modify section") 
	Call CheckUndoStringInUndoList ( 10, "ModifySection" )
	
	printlog "Section (Delete)"
	'/// Open navigator and select section
	Call wNavigatorAuswahl ( 7, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Edit'
	Auswahlliste.OpenContextMenu
	wait 500
	Call hMenuSelectNr(4)
	'/// In 'Edit sections' dialog choose 'remove'
	Kontext "BereicheBearbeiten"
	Aufheben.Click
	BereicheBearbeiten.Ok
	'///  string in Undo-list has to be: "Delete section") 
	Call CheckUndoStringInUndoList ( 10, "DeleteSection" )
	
	'/// Close Document
	Call hCloseDocument

endcase


testcase tUndoHyperlink

	'///<B>Hyperlink (Insert as Text/as URL button)</B>
	printlog "- Insert hyperlink as text"
	'/// new document
	Call hNewDocument
	'/// Insert / Hyperlink as Text
	InsertHyperlink
	Call wEinfuegenHyperlink(1)
	ZielURL.Settext "www.sun.com"
	Form.Select 1
	Kontext "Hyperlink"
	Uebernehmen.Click
	Hyperlink.Close
	'///  string in Undo-list has to be: "Insert Hyperlink") 
	Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" )

	Call wTypeKeys "<Return>"

	'/// Insert / Hyperlink as Button
	printlog "- Insert hyperlink as Button"
	InsertHyperlink
	Call wEinfuegenHyperlink(1)
	ZielURL.Settext "www.sun.com"
	Form.Select 2
	Kontext "Hyperlink"
	Uebernehmen.Click
	Hyperlink.Close
	
	'///  string in Undo-list has to be: "insert URL Button") 
	Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" )
	
	'/// Close Document
	Call hCloseDocument
	
endcase	


testcase tUndoFootnote

	'/// <B>Footnote (Insert/Modify/Delete)</B>
	printlog "- Footnote (Insert)"
	'/// new document
	Call hNewDocument
	'/// Insert / Footnote
	InsertFootnote	
	Kontext "FussnoteEinfuegen"
	FussnoteEinfuegen.Ok
	'///  string in Undo-list has to be: "Insert footnote") 
	Call CheckUndoStringInUndoList ( 10, "InsertFootnote" )

	printlog "- Footnote (Modify)"
	'/// Tools/Footnote
	ToolsFootnote
	Kontext
	Active.Setpage TabFussnoten
	Kontext "TabFussnoten"
	
	'/// Change any option in footnote dialog
	if Seitenende.IsChecked then
		Dokumentende.Check
	else
		Seitenende.Check
	end if
	'/// Close dialog
	TabFussnoten.Ok
	'///  string in Undo-list has to be: "Modify footnote options") 
	Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" )

	printlog "- Footnote (Delete)"
	'/// Point cursor directly to the footnote anchor
	Call wTypeKeys "<Mod1 Home>"
	'/// press 'delete' to remove footnote
	Call wTypeKeys "<Delete>"
	'///  string in Undo-list has to be: "Delete footnote options") 
	Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoCaption

	'/// <B>Insert a caption</B>
	printlog "- Insert Caption"
	'/// new document
	Call hNewDocument
	'/// Insert a graphic
	Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )	
	'/// Insert / Caption
	InsertCaption
	Kontext "Beschriftung"
	'/// Insert a caption more than 20 characters long
	Beschriftungstext.Settext "This caption has more than 20 characters"
	Beschriftung.Ok
	
	'///  string in Undo-list has to be: "Insert Caption: This capt...aracters") 
	Call CheckUndoStringInUndoList ( 10, "InsertCaption" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoAutoText

	'/// <B>Insert autotext</B>
	printlog "- Insert autotext"
	'/// new document
	Call hNewDocument
	'/// Insert dummy text
	Call wBlindtextEinfuegen
	
	'///  string in Undo-list has to be: "Insert Auto Text") 
	Call CheckUndoStringInUndoList ( 10, "InsertAutotext" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoBookmark

Warnlog "#i102310# - tUndoBookmark outcommented due to bug."
goto endsub


	'/// <B>Bookmark (Insert/Rename/Delete)</B>
	printlog "- Insert Bookmark"
	'/// new document
	Call hNewDocument
	'/// Insert / Bookmark
	InsertBookmark
	Kontext "TextmarkeEinfuegen"
	Textmarken.Settext "I'm a bookmark"
	TextmarkeEinfuegen.Ok
	'///  string in Undo-list has to be: "Insert Bookmark: I'm a bookmark") 
	Call CheckUndoStringInUndoList ( 10, "InsertBookmark" )

	printlog "- Rename Bookmark"
	'/// Open navigator and select bookmark
	Call wNavigatorAuswahl ( 6, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Edit'
	Auswahlliste.OpenContextMenu
	wait 500
	Call hMenuSelectNr(4)
	wait 500
	Call hMenuSelectNr(3)	
	wait 500
	Kontext "ObjekteUmbenennen"
	Objektname.Settext "a book"
	ObjekteUmbenennen.Ok	
	'///  string in Undo-list has to be: "Rename Bookmark: a book") 
	Call CheckUndoStringInUndoList ( 10, "RenameBookmark" )

	printlog "- Delete Bookmark"
	'/// Open navigator and select bookmark
	Call wNavigatorAuswahl ( 6, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Edit'
	Auswahlliste.OpenContextMenu
	wait 500
	Call hMenuSelectNr(4)
	wait 500
	Call hMenuSelectNr(2)	
	wait 500
	'///  string in Undo-list has to be: "Rename Bookmark: a book") 
	Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoNote

	'/// <B>Note (Insert/Delete)</B>
	printlog "- Insert Note"
	'/// new document
	Call hNewDocument
	'/// Insert / Note
	InsertNoteWriter
	'///  string in Undo-list has to be: "Insert note") 
	Call CheckUndoStringInUndoList ( 10, "InsertNote" )
    printlog "- Delete Note"
    '/// Bring up the Navigator, find the entry "Notes", expand it, and select the expanded section.
    Call wNavigatorAuswahl( 11, 1 )
	'/// Enter 'Delete'      'Backspace'
    kontext "Navigator"
    Navigator.TypeKeys "<DELETE>"
    '/// Close the Navigator
    ViewNavigator
    '///  string in Undo-list has to be: "Delete: 'This is a note'") 
	Call CheckUndoStringInUndoList ( 10, "DeleteNote" )

	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoScript
	
	'/// <B>Script (Insert/Delete)</B>
	printlog "- Insert Script"
	'/// new document
	Call hNewDocument
	'/// Insert / Script
	InsertScript
	Kontext "ScriptEinfuegen"
	ScriptEinfuegen.Ok
	'///  string in Undo-list has to be: "Insert script") 
	Call CheckUndoStringInUndoList ( 10, "InsertScript" )

	'/// Point cursor directly to the script
	Call wTypeKeys "<Mod1 Home>"
	'/// press 'delete' to remove script
	Call wTypeKeys "<Delete>"
	'///  string in Undo-list has to be: "Delete script")
	Call CheckUndoStringInUndoList ( 10, "DeleteScript" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoIndexes

	'/// <B>Indexes (Insert/Delete)</B>
	printlog "- Insert Index entry"
	'/// new document
	Call hNewDocument
	'/// Type a word
	Call wTypeKeys "IndexEntry"
	Call wTypeKeys "<Shift Home>"
	'/// Insert / Indexes and Tables / Entry
	InsertIndexesEntry
	Kontext "VerzeichnisEintragEinfuegen"
	EintragOk.Click
	VerzeichnisEintragEinfuegen.Close
	'///  string in Undo-list has to be: "Insert index entry")
	Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" )

	printlog "delete index entry with 'Backspace'"
	Call wTypeKeys ( "<Backspace>"
	'///  string in Undo-list has to be: "Delete index entry")
	Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" )

	'/// Type a word
	Call wTypeKeys "BibliographyEntry"
	Call wTypeKeys "<Shift Home>"
	printlog "- Insert Bibliography entry"
	printlog "Insert / Index / Bibliography entry"
	InsertIndexesBibliographyEntry
	Kontext "LiteratureintragEinfuegen"
	EintragEinfuegen.Click
	LiteratureintragEinfuegen.Close
	'///  string in Undo-list has to be: "Insert bibliography entry")
	Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" )

	Printlog "delete bibliography entry with 'Backspace'"
	Call wTypeKeys ( "<Backspace>"
	'///  string in Undo-list has to be: "Delete bibliography entry")
	Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoFrames

	'/// <B>Frames (Insert/Rename/Delete)</B>
	printlog "- Insert Frame"
	'/// new document
	Call hNewDocument
	'/// Insert / Frame
	InsertFrame
	Kontext
	Active.Setpage TabZusaetze
	Kontext "TabZusaetze"
	ObjektName.Settext "MyFrame"
	TabZusaetze.Ok
	'///  string in Undo-list has to be: "Insert frame: MyFrame")
	Call CheckUndoStringInUndoList ( 10, "InsertFrame" )

	printlog "- Rename Frame"
	'/// Open navigator and select frame
	Call wNavigatorAuswahl ( 3, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Edit'
	Auswahlliste.OpenContextMenu
	Call hMenuSelectNr(4)
	Call hMenuSelectNr(3)	
	Kontext "ObjekteUmbenennen"
	Objektname.Settext "MyRenamedFrame"
	ObjekteUmbenennen.Ok
	'///  string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'") 
	Call CheckUndoStringInUndoList ( 10, "RenameFrame" )
	printlog "- Delete Frame"
	'/// Type 'Del' to delete the frame
	Call wTypeKeys "<Delete>"
	'///  string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'") 
	Call CheckUndoStringInUndoList ( 10, "DeleteFrame" )
	
	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoTableGeneral
	Dim sTableName as string

	'/// <B>Tables Part 1</B>
	printlog "- insert table"
	'/// new document
	Call hNewDocument
	'/// Insert a table
	InsertTableWriter
	Kontext "TabelleEinfuegenWriter"
	sTableName = "MyTable"
	Tabellenname.Settext sTableName
	TabelleEinfuegenWriter.Ok
	'///  string in Undo-list has to be: "Insert table")
	Call CheckUndoStringInUndoList ( 10, "InsertTable" )
	printlog "- Insert a row"
	'/// <B>Insert a row</B>
	Call hToolbarSelect("Table", true)
	ZeileEinfuegen.Click
	'///  string in Undo-list has to be: "Insert row")
	Call CheckUndoStringInUndoList ( 10, "InsertRow" )
	printlog "- Insert a column"
	'/// <B>Insert a column</B>
	Call hToolbarSelect("Table", true)
	SpalteEinfuegen.Click
	'///  string in Undo-list has to be: "Insert column")
	Call CheckUndoStringInUndoList ( 10, "InsertColumn" )
	printlog "- Delete a row"
	'/// <B>Delete a row</B>
	Call hToolbarSelect("Table", true)
	ZeileLoeschen.Click
	'///  string in Undo-list has to be: "Delete row")
	Call CheckUndoStringInUndoList ( 10, "DeleteRow" )
	printlog "- Delete a column"
	'/// <B>Delete a column</B>
	Call hToolbarSelect("Table", true)
	SpalteLoeschen.Click
	'///  string in Undo-list has to be: "Delete column")
	Call CheckUndoStringInUndoList ( 10, "DeleteColumn" )
	printlog "- format a cell"
	'/// <B>Format cell (enable number recognition form that)</B>
    ToolsOptions
    Call hToolsOptions ("WRITER","Table")
    if Not AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.Check
    Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.Cancel

	'/// type '1' in a cell
	Call wTypeKeys ( "1" )
	Call wTypeKeys ( "<Right>" )
	'///  string in Undo-list has to be: "Format cell")
	Call CheckUndoStringInUndoList ( 10, "FormatCell" )
	
    ToolsOptions
    Call hToolsOptions ("WRITER","Table")
    if AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.UnCheck
    Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.Cancel

	'/// CloseDocument
	Call hCloseDocument
endcase


testcase tUndoTableOptionsMerge

	'/// <B>Tables Part 2</B>
	printlog "- apply table attributes"
	'/// new document
	Call hNewDocument
	'/// Insert a table
	InsertTableWriter
	Kontext "TabelleEinfuegenWriter"
	TabelleEinfuegenWriter.Ok
	
	printlog "- apply attributes"
	'/// Format / Table
	FormatTable
	'/// change some table options
	Kontext
	Active.Setpage TabTextflussTabelle
	Kontext "TabTextflussTabelle"
	if Umbruch.IsChecked then
		Umbruch.Uncheck
	else
		Umbruch.Check
	end if
	TabTextflussTabelle.Ok
	'///  string in Undo-list has to be: "Apply table attributes") 
	Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" )

	printlog "- merge tables"
	'/// <B>Merge tables</B>
	Call wTypeKeys ( "<Down>" ,2 )
	'/// Insert a second table
	InsertTableWriter
	Kontext "TabelleEinfuegenWriter"
	TabelleEinfuegenWriter.Ok
	'/// Format / Merge  / Tables
	FormatMergeTables	
	'///  string in Undo-list has to be: "Merge table") 
	Call CheckUndoStringInUndoList ( 10, "MergeTable" )

	'/// close Document
	Call hCloseDocument
endcase


testcase tUndoTableConvertSort

	'/// <B>Tables Part 3</B>
	printlog "- Convert to text"
	'/// new document
	Call hNewDocument
	'/// Insert text "This<Return>is a<Return>table to text<Return>text"
	Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text")
	'/// select all
	Call wTypeKeys ( "<Mod1 A>" )
	'/// Format / Text <-> Table
	ToolsTextInTable
    Kontext "TextInTabelleUmwandeln"
    TextInTabelleUmwandeln.OK
	'///  string in Undo-list has to be: "Convert table -> text")
	Call CheckUndoStringInUndoList ( 10, "ConvertTable" )

	printlog "- Sort table"
	'/// <B>Sort table</B>	
	Call wTypeKeys ( "<Mod1 A>", 2 )
	'/// Select all -> Tools / Sort
	ToolsSort
	Kontext "Sortieren"
	Sortieren.Ok
	'///  string in Undo-list has to be: "Sort table") 
	Call CheckUndoStringInUndoList ( 10, "SortTable" )

	'/// Close Document
	Call hCloseDocument
endcase


testcase tUndoTableSplitDelete

	'/// <B>Tables Part 4</B>
	printlog "- Split tables"
	'/// new document
	Call hNewDocument
	'/// Insert 2 tables
	InsertTableWriter
	Kontext  "TabelleEinfuegenWriter"
	TabelleEinfuegenWriter.Ok
	Call wTypeKeys ( "<Down>", 3 )
	InsertTableWriter
	Kontext  "TabelleEinfuegenWriter"
	TabellenName.Settext "AnotherTable"
	TabelleEinfuegenWriter.Ok
	'/// MergeTables
	FormatMergeTables
	wait 500
	'/// Split tables
	FormatSplitTable
	Kontext "TabelleAuftrennen"
	TabelleAuftrennen.Ok
	'///  string in Undo-list has to be: "Split table") 
	Call CheckUndoStringInUndoList ( 10, "SplitTable" )

	'/// <B>Delete table</B>
	printlog "- Delete table"
	'/// Open navigator and select table
	Call wNavigatorAuswahl ( 2, 1, true )
	Kontext "NavigatorWriter"
	'/// Open contextmenu and choose 'Delete'
	Auswahlliste.OpenContextMenu
	Call hMenuSelectNr(4)
	Call hMenuSelectNr(2)
	'///  string in Undo-list has to be: "Delete table: 'AnotherTable'") 
	Call CheckUndoStringInUndoList ( 10, "DeleteTable" )

	'/// Close document
	Call hCloseDocument
endcase


testcase tUndoHorizontalRuler

	'/// <B>HorizontalRuler</B>
	printlog "- Horizontal ruler"
	'/// new document
	Call hNewDocument
	'/// Insert / Horizontal Line
	InsertHorizontalLine
    '/// Select one line
	Kontext "HorizontaleLinieEinfuegen"
	Auswahl.TypeKeys "<Down>", 4
	HorizontaleLinieEinfuegen.Ok
	'///  string in Undo-list has to be: "Insert horizontal ruler")
	Call CheckUndoStringInUndoList ( 10, "InsertRuler" )

	'/// close document
	Call hCloseDocument
endcase


testcase tUndoGraphics

	'/// <B>Graphics (Insert/Delete/Replace)</B>
	printlog "- Insert graphics from file"
	'/// new document
	Call hNewDocument
	'/// Insert a graphic from file
	Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
	'///  string in Undo-list has to be: "Insert graphics") 
	Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )

    '/// <B>Delete graphic</B>
	printlog "- delete graphic"
	'/// press 'delete' to remove graphic
	Call wTypeKeys "<Delete>"
	'///  string in Undo-list has to be: "Delete graphics") 
	Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" )

	'/// <B>Insert graphic from gallery</B>
	printlog "- insert graphic from gallery"
	Kontext "Gallery"
    if Gallery.NotExists(2) then ToolsGallery
    Sleep (2)

	View.OpenContextMenu
	Call hMenuSelectNr(1)
	Call hMenuSelectNr(1)
	'///  string in Undo-list has to be: "Insert graphics") 
	Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
    Sleep (1)

	'/// <B>Replace graphic</B>
	printlog "- replace graphic"
	'/// Insert another graphics from gallery
	Kontext "Gallery"
	View.OpenContextMenu
	Call hMenuSelectNr(1)
	Call hMenuSelectNr(1)
	'///  string in Undo-list has to be: "Replace graphics") 
	Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" )
	
	'/// Close gallery
	Kontext "Gallery"
	if Gallery.Exists then ToolsGallery
	
	'/// Close document
	Call hCloseDocument
endcase