'encoding UTF-8  Do not remove or change this line!
'*************************************************************************
'
'  Licensed to the Apache Software Foundation (ASF) under one
'  or more contributor license agreements.  See the NOTICE file
'  distributed with this work for additional information
'  regarding copyright ownership.  The ASF licenses this file
'  to you under the Apache License, Version 2.0 (the
'  "License"); you may not use this file except in compliance
'  with the License.  You may obtain a copy of the License at
'  
'    http://www.apache.org/licenses/LICENSE-2.0
'  
'  Unless required by applicable law or agreed to in writing,
'  software distributed under the License is distributed on an
'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
'  KIND, either express or implied.  See the License for the
'  specific language governing permissions and limitations
'  under the License.
'
'*************************************************************************
'*
'* short description :
'*
'*********************************************************************
' #1 tExtrasAnimation
'\********************************************************************

'    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")

testcase tExtrasAnimation

    Dim i
    Dim Zaehler
    Dim ZaehlerAnpassung


    Printlog "- Tools/Animation"
    printlog "New impress document "
    Call hNewDocument
    Call sSelectEmptyLayout
    sleep 2
    printlog "insert graphic file (sample.bmp) "
    InsertGraphicsFromFile
    sleep 1
    Kontext "GrafikEinfuegenDlg"
    sleep 2

    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
    sleep 2
    Oeffnen.Click
    sleep 2
    Kontext "DocumentImpress"
    printlog "Deselect graphic "
    DocumentImpress.MouseDoubleClick 90,90
    sleep 1
    InsertGraphicsFromFile
    sleep 2
    Kontext "GrafikEinfuegenDlg"
    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")
    sleep 2
    Oeffnen.Click
    sleep 2
    Opl_SD_EffekteZulassen
    Kontext "Animation"

    printlog "add selected picture 10 times into the animation "
    for i=1 to 10
        BildAufnehmen.Click
    next i
    sleep 1
    printlog "compare frame number in animation dialog "
    if AnzahlBilder.GetText <> "10" Then
        WarnLog "  - Adding graphics did not work"
    else
        printlog "Pictures added"
    end if

    printlog "test if Add all is eneabled (shouldn't be because of only 1 object selected) "
    if AlleAufnehmen.IsEnabled Then WarnLog "  - Add all should not be enabled, there is only 1 graphic selected"
    Kontext "DocumentImpress"
    printlog "Select both pictures "
    EditSelectAll
    Kontext "Animation"
    printlog "Add all (5 times) "
    for i=1 to 5
        AlleAufnehmen.Click
    next i
    sleep 1
    printlog "check if number of frames is now 20 "
    if AnzahlBilder.GetText <> "20" Then
        WarnLog "  - Adding pics did not work"
    else
        printlog "All pics added"
    end if

    printlog "Click First Picture  "
    ErstesBild.Click

    printlog "Control if we are at frame 1 "
    if AnzahlBilder.GetText <> "1" Then
        WarnLog "  - Jump back to start did not work"
    else
        printlog "Jumped back to first picture"
    end if

    printlog "Go to last picture "
    LetztesBild.Click

    printlog "Control frame number "
    if AnzahlBilder.GetText <> "20" Then
        WarnLog "  - Jump to end did not work"
    else
        printlog "Jump to end did work"
    end if

    printlog "Play animation "
    Abspielen.Click
    sleep 3
    Kontext "DocumentImpress"
    printlog "Select all in document "
    EditSelectAll
    printlog "Delete content "
    DocumentImpress.TypeKeys "<DELETE>"

    Kontext "Animation"
    printlog "Create animation"
    Erstellen.Click
    sleep 10

    Kontext "DocumentImpress"
    try
        printlog "Try to copy ccreated animation into clipboard "
        EditCopy
        printlog "animation created"
    catch
        WarnLog "  - Animation not created"
    endcatch

    Kontext "Animation"

    if AnimationsgruppeGruppenobjekt.IsChecked=True Then
        try
            printlog "Try setting duration per frame "
            AnzeigedauerProBild.SetText "1"
            WarnLog "  - Edit field should be disabled"
        catch
            printlog "Edit field not enabled because groupobject status is = " + AnimationsgruppeGruppenobjekt.IsChecked
        endcatch
    end if


    printlog "check animation group object "
    AnimationsgruppeBitmapobjekt.Check

    printlog "Set duration per frame to 3"
    AnzeigedauerProBild.SetText "3"
    SetClipboard AnzeigedauerProBild.GetText
    printlog "Raise value for duration "
    AnzeigedauerProBild.More
    if AnzeigedauerProBild.GetText <> GetClipboardText Then
        printlog "Time per pic could be edited"
    else
        WarnLog "  - Time per pic could be edited"
    end if

    Zaehler = AnzahlDurchlaeufe.GetItemCount
    printlog "Change number of plays "
    for i=1 to Zaehler
    AnzahlDurchlaeufe.Select i
    next i
    printlog "Number of loops checked"

    printlog "change ZaehlerAnpassung "
    ZaehlerAnpassung=Anpassung.GetItemCount
    for i=1 to ZaehlerAnpassung
        Anpassung.Select i
    next i
    printlog "Loop count changed"

    printlog "Delete 1 frame "
    BildLoeschen.Click
    if AnzahlBilder = "20" Then
        WarnLog "  - Delete pictures from animation did not work"
    else
        printlog "Picture No20 deleted"
    end if

    printlog "Delete all frames "
    AlleLoeschen.Click
    Kontext "Active"
    Active.Yes
    sleep 3

    Kontext "Animation"
    if Abspielen.IsEnabled=true Then
        WarnLog "  - Not all pics could be deleted"
    else
        printlog "all pics deleted"
    end if
    sleep 2
    Animation.Close
    sleep 2
    printlog "close document"
    Call hCloseDocument
endcase