path: root/testautomation/graphics/optional/includes/impress/i_us_present.inc

'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 : Include-file for impress User-Scenario: Presentation.
'*
'\********************************************************************

testcase i_us_presentation1

    dim iPictures as integer
    dim PresentationFile1 as string

    PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )

    printlog "New impress document"
    Call hNewDocument
    Call sSelectEmptyLayout
    WaitSlot (2000)
    kontext "DocumentImpress"

    printlog "Add second Master-Page "
    ViewMasterPage
    kontext "Slides"
    SlidesControl.OpenContextMenu(true)
    sleep (2)
    printlog "New master"
    MenuSelect(MenuGetItemID(1))
    sleep (1)
    printlog "Inserted second Master-Slide"

    printlog "set background to picture(Gallery)"
    Kontext "Gallery"
    if Gallery.Exists(2) then
        warnlog "The Gallery was already visible. Check earlier ran tests for inconsistency."
        sleep (2)
    else
        ToolsGallery
        WaitSlot (2000)
    end if

    if gOOO = TRUE then   'OpenOffice.org
        select case iSprache
        case 01   : iPictures = 1 'English
        case else : iPictures = 1 'Unknown
            warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
        end select

    else  ' StarOffice...
        select case iSprache
        case 01   : iPictures = 21 'English
        case 07   : iPictures = 28 'Russian
        case 31   : iPictures = 04 'Netherlands
        case 33   : iPictures = 22 'French
        case 34   : iPictures = 12 'Spanish
        case 36   : iPictures = 17 'Hungaria
        case 39   : iPictures = 23 'Italian
        case 46   : iPictures = 09 'Swedish
        case 48   : iPictures = 20 'Polish
        case 49   : iPictures = 11 'German
        case 55   : iPictures = 16 'Portuguese
        case 81   : iPictures = 22 'Japanese
        case 82   : iPictures = 04 'Korean
        case 86   : iPictures = 06 'Simplified
        case 88   : iPictures = 17 'Traditional
        case else : iPictures = 21 'Unknown
            warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
        end select
    end if

    kontext "Gallery"
    Gallerys.Select (iPictures)
    View.TypeKeys "<HOME><RIGHT><RIGHT>"
    printlog "OpenContextMenu"
    View.TypeKeys "<SHIFT F10>"
    sleep (2)
    MenuSelect(MenuGetItemID(1))
    sleep (2)
    MenuSelect(MenuGetItemID(1))
    sleep (2)
    printlog "Check that we really got a copy of the object"
    kontext "DocumentImpress"
    DocumentImpress.OpenContextMenu(true)
    sleep (2)
    MenuSelect 27353
    sleep (2)
    Kontext "ExportierenDlg"
    if ExportierenDlg.IsVisible(5) then
        printlog "Gallery-object correctly copied into Slide."
        ExportierenDlg.Close
        WaitSlot (2000)
    end if
    kontext "GraphicObjectbar"
    if GraphicObjectbar.Exists(5) = FALSE then
        kontext "DocumentImpress"
        ViewToolbarsPicture
    end if

    kontext "Gallery"
    Gallerys.Select (iPictures)
    printlog " 50% Transparency"
    WaitSlot (2000)
    kontext "GraphicObjectbar"
    Transparenz.SetText "50"
    sleep (1)
    printlog "Mosaic 16px x 16px"
    Filter.TearOff
    sleep (1)
    kontext "GraphicFilterBar"
    Mosaic.Click
    kontext "Mosaic"
    if ( Mosaic.exists( 2 ) ) then
        Width.SetText "16"
        Height.SetText "16"
        Mosaic.OK
    else
        warnlog( "Dialog <Mosaic> did not open" )
    endif
    kontext "GraphicFilterBar"
    GraphicFilterBar.Close
    ToolsGallery
    WaitSlot (1000)
    kontext "DocumentImpress"
    gMouseClick 50,50
    sleep (1)
    FormatPositionAndSize

    kontext
    if ( Active.exists( 2 ) ) then
        active.setPage(TabPositionAndSize)
        kontext "TabPositionAndSize"
        Width.SetText "15"
        Height.SetText "11"
        SizePosition.TypeKeys "<RIGHT><DOWN>"
        TabPositionAndSize.OK
    else
        warnlog( "Page <TabPositionAndSize> did not open" )
    endif

    printlog "Close Master"
    hUseAsyncSlot( "ViewNormal" )

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile1)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation1

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

testcase i_us_presentation2

    dim PresentationFile1 as string
    dim PresentationFile2 as string

    PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )
    PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )

     if ( FileExists( PresentationFile1 ) ) then 'if file exists...
        hFileOpen (PresentationFile1)
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if
    sleep (2)
    printlog "New Slide"
    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )
    SlidesControl.TypeKeys "<SHIFT F10>"   'OpenContextMenu(true)
    sleep (1)

    MenuSelect(MenuGetItemID(1)) 'New Slide  'No 2
    printlog "   Inserted second normal Slide"
    call sSelectEmptyLayout
    printlog "2. Layouts: Text. Bild: Gallery: Animation - Gif"
    Kontext "Tasks"
    printlog "to get to the very first position"
    LayoutsPreview.TypeKeys "<HOME>"
    printlog "'to get to the right position"
    LayoutsPreview.TypeKeys "<RIGHT>", 9
    LayoutsPreview.TypeKeys "<RETURN>"

    hUseAsyncSlot( "ViewNormal" )

    printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)"
    kontext "Slides"
    SlidesControl.FadeOut
    WaitSlot (1000)

    printlog "4. Restore Pane."
    SlidesControl.FadeIn

    printlog "   Did the 'mistake' to FadeIn/Out the Slidepane"

InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
if GrafikEinfuegenDlg.exists(5) then
printlog "   The Insertgraphics-dialogue showed up correctly."
sleep (5)
else
warnlog "   The Insertgraphics-dialogue didn't show up."
endif

    printlog "Graphics-Import-dialogue. Select i_us_large.jpg"
    Kontext "GrafikEinfuegenDlg"
    if ( GrafikEinfuegenDlg.exists( 2 ) ) then

        Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
        Oeffnen.Click

        Kontext "DocumentImpress"
        printlog "Deselect graphic"
        DocumentImpress.MouseDoubleClick 90,90
        printlog "   Inserted Graphic into the second Slide"

        printlog "Change text on the two text-boxes"
        DocumentImpress.TypeKeys "<TAB>" 'First text.
        DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode.
        DocumentImpress.TypeKeys "The World has just become a bit easier"
        DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
        DocumentImpress.TypeKeys "<TAB><TAB><TAB>"
        DocumentImpress.TypeKeys "<RETURN>"
        DocumentImpress.TypeKeys "100% Recyclable"
        DocumentImpress.TypeKeys "<RETURN>"
        DocumentImpress.TypeKeys "Very durable"
        DocumentImpress.TypeKeys "<RETURN>"
        DocumentImpress.TypeKeys "Priced lower than its predecessor!"
        DocumentImpress.TypeKeys "<RETURN>"
        DocumentImpress.TypeKeys "Sexy"
        DocumentImpress.TypeKeys "<RETURN>"
        DocumentImpress.TypeKeys "Energy-efficient"
        DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
    else
        warnlog( "Failed to open <Insert Graphics> dialog" )
    endif

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile2)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation2

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

testcase i_us_presentation3

    dim PresentationFile2 as string
    dim PresentationFile3 as string

    PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )
    PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )

    if ( FileExists( PresentationFile2 ) ) then 'if file exists...
        hFileOpen( PresentationFile2 )
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if

    printlog "Insert New Slide"
    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )

    kontext "DocumentImpress"
    InsertSlide 'No 3

    printlog "5. Layout. Clip/Text"
    kontext "Tasks"
    LayoutsPreview.TypeKeys "<HOME>"     'to get to the very first position
    LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position
    LayoutsPreview.TypeKeys "<RETURN>"

    hUseAsyncSlot( "ViewNormal" )

    kontext "DocumentImpress"
    Call gMouseClick 50,50
    DocumentImpress.TypeKeys "<TAB><RETURN>"
    DocumentImpress.TypeKeys "A new form"

    printlog "6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit)"
    printlog "insert graphic file (i_us_large.jpg)"
    InsertGraphicsFromFile
    WaitSlot (1000)
    Kontext "GrafikEinfuegenDlg"
    Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
    sleep (2)
    Oeffnen.Click
    WaitSlot (2000)
    Kontext "DocumentImpress"

    printlog "The user corrects the picture"
    DocumentImpress.MouseDown 50,50
    DocumentImpress.MouseUp 50,50
    DocumentImpress.TypeKeys "<DOWN>", 30

    printlog "Deselect graphic"
    DocumentImpress.MouseDoubleClick 90,90

    printlog "   Wrote Text, Inserted Graphic, and moved it in the third Slide"

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile3)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation3

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

testcase i_us_presentation4

    dim PresentationFile3 as string
    dim PresentationFile4 as string
    dim iAnimations as Integer
    dim iSize as integer

    PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )
    PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )

    select case iSprache
    case 01   : iAnimations = 01 'English
    case 07   : iAnimations = 01 'Russian
    case 31   : iAnimations = 03 'Netherlands
    case 33   : iAnimations = 01 'French
    case 34   : iAnimations = 01 'Spanish
    case 36   : iAnimations = 01 'Hungaria
    case 39   : iAnimations = 01 'Italian
    case 46   : iAnimations = 01 'Swedish
    case 48   : iAnimations = 01 'Polish
    case 49   : iAnimations = 01 'German
    case 55   : iAnimations = 01 'Portuguese
    case 81   : iAnimations = 02 'Japanese
    case 82   : iAnimations = 17 'Korean
    case 86   : iAnimations = 07 'Simplified
    case 88   : iAnimations = 15 'Traditional
    case else : iAnimations = 01 'Unknown
        warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
    end select

    if ( FileExists( PresentationFile3 ) ) then 'if file exists...
        hFileOpen( PresentationFile3 )
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if

    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", 5 )

    kontext "DocumentImpress"
    printlog "insert slide no 4"
    hUseAsyncSlot( "InsertSlide" )

    printlog "Background: picture (Gallery)"
    Kontext "Gallery"
    if ( Not Gallery.Exists() ) then
        ToolsGallery
    end if

    kontext "Gallery"
    if ( Gallery.exists( 2 ) ) then
        Gallerys.Select (iAnimations)

        kontext "Gallery"
        View.TypeKeys "<HOME><RIGHT><RIGHT>"
        wait( 200 )
        View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
        wait( 200 )
        MenuSelect(MenuGetItemID(1))   'Insert
        wait( 200 )
        MenuSelect(MenuGetItemID(1))   'Copy
    else
        warnlog( "Could not access Gallery" )
    endif

    printlog "Check that we really got a copy of the object"
    kontext "DocumentImpress"
    DocumentImpress.OpenContextMenu(true)
    WaitSlot (1000)
    MenuSelect 27353

    Kontext "ExportierenDlg"
    if ( ExportierenDlg.exists( 5 ) ) then
        printlog "   Gallery-object correctly copied into Slide."
        ExportierenDlg.Close
    else
        warnlog "   Doesn't seem like we copied anything from the Gallery... ?"
    end if

    kontext "DocumentImpress"
    DocumentImpress.TypeKeys "<UP>", 82
    DocumentImpress.TypeKeys "<LEFT>", 130

    printlog "Deselect graphic"
    DocumentImpress.MouseDoubleClick 90,90

    printlog "Close the Gallery"
    ToolsGallery

    printlog "Change Text on slide"
    DocumentImpress.TypeKeys "<TAB>"
    DocumentImpress.TypeKeys "<RETURN>"
    DocumentImpress.TypeKeys "The process starts to flourish"
    DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
    gMouseClick 50,50

    ActiveDeactivateCTLSupport (TRUE)

    printlog( "Decrease..." )
    for iSize = 100 to 25 step -25
        CreateTextSetEffectAndAngle
        DocumentImpress.TypeKeys "<DOWN>", 80
        DocumentImpress.TypeKeys "<LEFT>", iSize
        gMouseClick 90,90
    next iSize

    printlog( "Increase..." )
    for iSize = 25 to 100 step 25
        CreateTextSetEffectAndAngle
        DocumentImpress.TypeKeys "<DOWN>", 80
        DocumentImpress.TypeKeys "<LEFT>", iSize
        gMouseClick 90,90
    next iSize

    printlog "   Inserted fourth slide with Gallery-object."

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile4)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation4

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

testcase i_us_presentation5

    dim PresentationFile4 as string
    dim PresentationFile5 as string

    PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )
    PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )

    if ( FileExists( PresentationFile4 ) ) then 'if file exists...
        hFileOpen( PresentationFile4 )
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if

    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", 7 )

    kontext "DocumentImpress"
    printlog "8. New Slide. (Insert Menu) (Duplicate slide)"
    InsertDuplicateSlide 'No 5
    printlog "Change the text in some way. (the user is making a joke with the audience)"
    gMouseClick 90,90
    DocumentImpress.TypeKeys "<TAB>"
    DocumentImpress.TypeKeys "<RETURN>"
    hUseAsyncSlot( "EditSelectAll" )
    DocumentImpress.TypeKeys "And does it with strength..."

    printlog "   Inserted fifth slide with audience-joke."

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile5)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation5

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

testcase i_us_presentation6

    dim PresentationFile5 as string
    dim PresentationFile6 as string

    PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )
    PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )

    if ( FileExists( PresentationFile5 ) ) then 'if file exists...
        hFileOpen( PresentationFile5 )
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if

    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", 6 )

    kontext "DocumentImpress"
    printlog "9. Q&A Slide"
    InsertSlide
    WaitSlot (1000)
    kontext "DocumentImpress"
    DocumentImpress.TypeKeys "<TAB>"
    DocumentImpress.TypeKeys "<RETURN>"
    DocumentImpress.TypeKeys "Q&A"
    DocumentImpress.TypeKeys "<SHIFT HOME>"
    wait( 500 )

    Kontext "TextObjectbar"
    if ( not TextObjectbar.Exists() ) then
        ViewToolbarsTextFormatting
    end if

    Kontext "TextObjectbar"
    wait( 500 )
    Printlog "- Change size of font"
    Schriftgroesse.Select "26"
    Schriftgroesse.TypeKeys "<RETURN>"
    Fett.Click
    kontext "DocumentImpress"
    DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
    kontext "Toolbar"
    Auswahl.Click
    gMouseClick 60,60
    hUseAsyncSlot( "EditSelectAll" )

    DocumentImpress.TypeKeys "<DOWN>", 50
    kontext "DocumentImpress"
    printlog "   Inserted sixth slide with Q&A."

    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile6)

    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Document"
    hFileCloseAll()

endcase 'i_us_presentation6

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

testcase i_us_presentation7

    const KEY_STROKE_REPEAT = 8

    dim sFilter as string
    dim sFileName as string
    dim PresentationFile6 as string
    dim PresentationFile7 as string
    dim iKeyStroke as integer

    PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )
    PresentationFile7 = ConvertPath( gOfficePath + "user\work\PowerPes7.odp" )
    sFileName         = ConvertPath( gOfficePath + "user\work\export-test.ppt" )

    if ( FileExists( PresentationFile6 ) ) then 'if file exists...
        hFileOpen( PresentationFile6 )
    else
        warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
        goto endsub
    end if

    kontext "slides"
    SlidesControl.TypeKeys( "<PAGEDOWN>", KEY_STROKE_REPEAT )

    kontext "DocumentImpress"
    printlog " inserting Ending Slide"
    InsertSlide 'No 7
    DocumentImpress.TypeKeys "Ende"
    printlog "   Inserted ending -slide."

    Kontext "Gallery"
    if Gallery.Exists(2) then
        warnlog "   The Gallery was visible. Closed it. Check earlier ran tests for inconsistency."
        ToolsGallery
        WaitSlot (2000)
    end if

    kontext "slides"
    for i = 1 to 7
        sleep 1
        SlidesControl.TypeKeys "<PAGEUP>"
    next i
    SlidesControl.TypeKeys "<RETURN>" 'At the first slide

    hTypeKeys "<F5>"

    kontext "DocumentPresentation"
    for iKeyStroke = 1 to KEY_STROKE_REPEAT
        wait( 3000 )
        DocumentPresentation.TypeKeys "<PAGEDOWN>"
        wait( 2000 )
    next iKeyStroke

    kontext "DocumentPresentation"
    if ( DocumentPresentation.notExists( 5 ) ) then
        printlog( "Presentation closed. Good." )
    else
        warnlog "   Presentation not finished, fullscreen view still open."
        DocumentPresentation.typeKeys "<ESC>"

        kontext "DocumentPresentation"
        if ( DocumentPresentation.notExists( 3 ) ) then
            printlog( "Recovery attempt successful" )
        else
            goto endsub
        endif
    end if

    kontext "DocumentImpress"
    printlog "Save Document"
    call hFileSaveAsKill (PresentationFile7)

    printlog( "Save as Powerpoint-file (Using filter at pos. 5 in the filter list)" )
    FileSaveAs

    Kontext "SpeichernDlg"
    if ( SpeichernDlg.exists( 2 ) ) then

        Dateiname.SetText sFileName
        Dateityp.Select 5  ' Powerpoint (possibly)
        printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
        Speichern.Click

        Kontext "Messagebox"
        hCloseDialog( Messagebox, "Yes, optional" )

        Kontext "AlienWarning"
        hCloseDialog( AlienWarning, "ok, optional" )
    else
        warnlog( "<FileSaveAs> dialog did not open" )
    endif

    printlog "Close all open documents"
    hFileCloseAll()

    printlog( "Reload file: " & sFileName )
    hFileOpen sFileName
    sleep( 3 )

    printlog "Close the office-session"
    ActiveDeactivateCTLSupport (FALSE)

    printlog "Close Documents"
    hFileCloseAll()

endcase 'i_us_presentation7