'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

'-------------------------------------------------------------------------------