testautomation/graphics/optional/includes/impress/i_us_present.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: i_us_present.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/**************************************************************************
  33 '*
  34 '* Owner : wolfram.garten@sun.com
  35 '*
  36 '* short description : Include-file for impress User-Scenario: Presentation.
  37 '*
  38 '***************************************************************************
  39 ' #1 i_us_presentation1
  40 ' #1 i_us_presentation2
  41 ' #1 i_us_presentation3
  42 ' #1 i_us_presentation4
  43 ' #1 i_us_presentation5
  44 ' #1 i_us_presentation6
  45 ' #1 i_us_presentation7
  46 '\********************************************************************
  47
  48 testcase i_us_presentation1
  49    dim iPictures as integer
  50    dim PresentationFile1 as string
  51    PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
  52    Call hNewDocument        '/// New impress document ///'
  53    WaitSlot (2000)
  54    kontext "DocumentImpress"
  55    '/// 1. ViewMaster: 2nd master - Background: picture (Gallery) ///'
  56    '///                           - 50% Transparency              ///'
  57    '///                           - Mosaic 16px x 16px            ///'
  58    '///                           - Close Master                  ///'
  59
  60    '/// Add second Master-Page ///'
  61    ViewMasterPage
  62    kontext "Slides"
  63       SlidesControl.OpenContextMenu(true)
  64       sleep (2)
  65       MenuSelect(MenuGetItemID(1)) 'New Master
  66       sleep (1)
  67       printlog "   Inserted second Master-Slide"
  68
  69    '/// - Background: picture (Gallery) ///'
  70    Kontext "Gallery"
  71    if Gallery.Exists(2) then
  72       warnlog "   The Gallery was already visible. Check earlier ran tests for inconsistency."
  73       sleep (2)
  74    else
  75       ToolsGallery
  76       WaitSlot (2000)
  77    end if
  78
  79    if gOOO = TRUE then   'OpenOffice.org
  80       select case iSprache
  81          case 01   : iPictures = 1 'English
  82          case else : iPictures = 1 'Unknown
  83                            warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
  84       end select
  85
  86    else  ' StarOffice...
  87       select case iSprache
  88          case 01   : iPictures = 21 'English
  89          case 07   : iPictures = 28 'Russian
  90          case 31   : iPictures = 04 'Netherlands
  91          case 33   : iPictures = 22 'French
  92          case 34   : iPictures = 12 'Spanish
  93          case 36   : iPictures = 17 'Hungaria
  94          case 39   : iPictures = 23 'Italian
  95          case 46   : iPictures = 09 'Swedish
  96          case 48   : iPictures = 20 'Polish
  97          case 49   : iPictures = 11 'German
  98          case 55   : iPictures = 16 'Portuguese
  99          case 81   : iPictures = 22 'Japanese
 100          case 82   : iPictures = 04 'Korean
 101          case 86   : iPictures = 06 'Simplified
 102          case 88   : iPictures = 17 'Traditional
 103          case else : iPictures = 21 'Unknown
 104                            warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
 105       end select
 106    end if
 107
 108    kontext "Gallery"
 109    Gallerys.Select (iPictures)
 110
 111    View.TypeKeys "<HOME><RIGHT><RIGHT>"
 112    View.TypeKeys "<SHIFT F10>"    'OpenContextMenu(true)
 113    sleep (2)
 114    MenuSelect(MenuGetItemID(1))   'Insert
 115    sleep (2)
 116    MenuSelect(MenuGetItemID(1))   'Copy
 117    sleep (2)
 118    '/// Check that we really got a copy of the object ///'
 119    kontext "DocumentImpress"
 120    DocumentImpress.OpenContextMenu(true)
 121    sleep (2)
 122    MenuSelect 27353
 123    sleep (2)
 124    Kontext "ExportierenDlg"
 125    if ExportierenDlg.IsVisible(5) then
 126       printlog "   Gallery-object correctly copied into Slide."
 127       ExportierenDlg.Close
 128    else
 129       warnlog "   Doesn't seem like we copied anything from the Gallery... ?"
 130    end if
 131    kontext "GraphicObjectbar"
 132       if GraphicObjectbar.Exists(5) = FALSE then
 133          kontext "DocumentImpress"
 134          ViewToolbarsPicture
 135       end if
 136
 137       '/// - 50% Transparency   ///'
 138       WaitSlot (2000)
 139       kontext "GraphicObjectbar" ' the one with Transparency
 140       Transparenz.SetText "50"
 141       sleep (1)
 142
 143       '/// - Mosaic 16px x 16px ///'
 144       Filter.TearOff
 145       sleep (1)
 146       kontext "GraphicFilterBar"
 147       Mosaic.Click
 148       WaitSlot (2000)
 149       kontext "Mosaic"
 150          Width.SetText "16"
 151          Height.SetText "16"
 152          Mosaic.OK
 153
 154       kontext "GraphicFilterBar"
 155       GraphicFilterBar.Close
 156
 157    ToolsGallery
 158    WaitSlot (1000)
 159    kontext "DocumentImpress"
 160    gMouseClick 50,50
 161     sleep (1)
 162 '   DocumentImpress.TypeKeys "<TAB>", 6
 163     FormatPositionAndSize
 164     WaitSlot (1000)
 165     kontext
 166     active.setPage(TabPositionAndSize)
 167     kontext "TabPositionAndSize"
 168     Width.SetText "800"
 169     Height.SetText "600"
 170     SizePosition.TypeKeys "<RIGHT><DOWN>"
 171     TabPositionAndSize.OK
 172
 173    '/// - Close Master ///'
 174     ViewNormal
 175     WaitSlot (1000)
 176
 177    '/// Save Document ///'
 178     call hFileSaveAsKill (PresentationFile1)
 179     printlog "OK   saved at ", PresentationFile1
 180     WaitSlot (1000)
 181
 182     ActiveDeactivateCTLSupport (FALSE)
 183     WaitSlot (2000)
 184     '/// Close Document ///'
 185     Call hCloseDocument
 186 endcase
 187
 188 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 189
 190 testcase i_us_presentation2
 191     dim PresentationFile1 as string
 192     dim PresentationFile2 as string
 193     PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
 194     PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp")))
 195
 196     if Dir(PresentationFile1) <> "" then 'if file exists...
 197       hFileOpen (PresentationFile1)
 198       WaitSlot (10000)
 199     else
 200         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 201         '/// New impress document ///'
 202         Call hNewDocument
 203         WaitSlot (2000)
 204     end if
 205
 206     '/// New Slide ///'
 207     kontext "slides"
 208     SlidesControl.TypeKeys "<PAGEDOWN>"
 209     SlidesControl.TypeKeys "<PAGEDOWN>"
 210     SlidesControl.TypeKeys "<PAGEDOWN>"
 211
 212     SlidesControl.TypeKeys "<SHIFT F10>"   'OpenContextMenu(true)
 213     sleep (1)
 214     MenuSelect(MenuGetItemID(1)) 'New Slide  'No 2
 215     printlog "   Inserted second normal Slide"
 216
 217     '/// 2. Layouts: Text. Bild: Gallery: Animation - Gif          ///'
 218     Kontext "Tasks"
 219     LayoutsPreview.TypeKeys "<HOME>"     'to get to the very first position
 220     LayoutsPreview.TypeKeys "<RIGHT>", 9  'to get to the right position
 221     LayoutsPreview.TypeKeys "<RETURN>"
 222
 223     Sleep (1)
 224     ViewNormal
 225
 226     '/// 3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane) ///'
 227     kontext "Slides"
 228     SlidesControl.FadeOut
 229     WaitSlot (1000)
 230
 231     '/// 4. Restore Pane. ///'
 232     SlidesControl.FadeIn
 233
 234     printlog "   Did the 'mistake' to FadeIn/Out the Slidepane"
 235
 236     '/// Make a Mouse Double-Click on the left part of the Layout, to input a picture ///'
 237     kontext "DocumentImpress"
 238     DocumentImpress.MouseDoubleClick 30,50
 239     sleep (1)
 240
 241     '/// Graphics-Import-dialogue. Select "i_us_large.jpg" ///'
 242     Kontext "GrafikEinfuegenDlg"
 243     sleep (2)
 244     Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
 245     sleep (2)
 246     Oeffnen.Click
 247     WaitSlot (1000)
 248     Kontext "DocumentImpress"
 249
 250     '/// Deselect graphic ///'
 251     DocumentImpress.MouseDoubleClick 90,90
 252     printlog "   Inserted Graphic into the second Slide"
 253
 254     '/// Change text on the two text-boxes ///'
 255     DocumentImpress.TypeKeys "<TAB>" 'First text.
 256     DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode.
 257     DocumentImpress.TypeKeys "The World has just become a bit easier"
 258     DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
 259     DocumentImpress.TypeKeys "<TAB><TAB><TAB>"
 260     DocumentImpress.TypeKeys "<RETURN>"
 261     DocumentImpress.TypeKeys "100% Recyclable"
 262     DocumentImpress.TypeKeys "<RETURN>"
 263     DocumentImpress.TypeKeys "Very durable"
 264     DocumentImpress.TypeKeys "<RETURN>"
 265     DocumentImpress.TypeKeys "Priced lower than its predecessor!"
 266     DocumentImpress.TypeKeys "<RETURN>"
 267     DocumentImpress.TypeKeys "Sexy"
 268     DocumentImpress.TypeKeys "<RETURN>"
 269     DocumentImpress.TypeKeys "Energy-efficient"
 270     DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
 271
 272     '/// Save Document ///'
 273     call hFileSaveAsKill (PresentationFile2)
 274     printlog "OK   saved at ", PresentationFile1
 275     sleep (1)
 276
 277     ActiveDeactivateCTLSupport (FALSE)
 278     sleep (2)
 279     '/// Close Document ///'
 280     Call hCloseDocument
 281 endcase 'i_us_presentation2
 282
 283 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 284
 285 testcase i_us_presentation3
 286     dim PresentationFile2 as string
 287     dim PresentationFile3 as string
 288     PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp")))
 289     PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp")))
 290
 291     if Dir(PresentationFile2) <> "" then 'if file exists...
 292         hFileOpen (PresentationFile2)
 293         WaitSlot (10000)
 294     else
 295         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 296         '/// New impress document ///'
 297         Call hNewDocument
 298         WaitSlot (2000)
 299     end if
 300
 301     '/// Insert New Slide ///'
 302     kontext "slides"
 303     SlidesControl.TypeKeys "<PAGEDOWN>"
 304     SlidesControl.TypeKeys "<PAGEDOWN>"
 305     SlidesControl.TypeKeys "<PAGEDOWN>"
 306
 307     kontext "DocumentImpress"
 308     InsertSlide 'No 3
 309
 310     '/// 5. Layout. Clip/Text ///'
 311     kontext "Tasks"
 312     LayoutsPreview.TypeKeys "<HOME>"     'to get to the very first position
 313     LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position
 314     LayoutsPreview.TypeKeys "<RETURN>"
 315
 316     sleep (1)
 317     ViewNormal
 318
 319     kontext "DocumentImpress"
 320     Call gMouseClick 50,50
 321     DocumentImpress.TypeKeys "<TAB><RETURN>"
 322     DocumentImpress.TypeKeys "A new form"
 323
 324     '/// 6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit) ///'
 325     InsertGraphicsFromFile        '/// insert graphic file (i_us_large.jpg) ///'
 326     WaitSlot (1000)
 327     Kontext "GrafikEinfuegenDlg"
 328         Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
 329         sleep (2)
 330         Oeffnen.Click
 331         WaitSlot (2000)
 332     Kontext "DocumentImpress"
 333
 334     '/// The user corrects the picture ///'
 335     DocumentImpress.MouseDown 50,50
 336     DocumentImpress.MouseUp 50,50
 337     DocumentImpress.TypeKeys "<DOWN>", 30
 338
 339     '/// Deselect graphic ///'
 340     DocumentImpress.MouseDoubleClick 90,90
 341
 342     printlog "   Wrote Text, Inserted Graphic, and moved it in the third Slide"
 343
 344     '/// Save Document ///'
 345     call hFileSaveAsKill (PresentationFile3)
 346     printlog "OK   saved at ", PresentationFile3
 347     sleep (1)
 348
 349     ActiveDeactivateCTLSupport (FALSE)
 350     sleep (2)
 351     '/// Close Document ///'
 352     Call hCloseDocument
 353 endcase 'i_us_presentation3
 354
 355 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 356
 357 testcase i_us_presentation4
 358     dim PresentationFile3 as string
 359     dim PresentationFile4 as string
 360     dim iAnimations as Integer
 361     PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp")))
 362     PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp")))
 363
 364     if Dir(PresentationFile3) <> "" then 'if file exists...
 365         hFileOpen (PresentationFile3)
 366         WaitSlot (10000)
 367     else
 368         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 369         '/// New impress document ///'
 370         Call hNewDocument
 371         WaitSlot (2000)
 372     end if
 373
 374     kontext "slides"
 375     SlidesControl.TypeKeys "<PAGEDOWN>"
 376     SlidesControl.TypeKeys "<PAGEDOWN>"
 377     SlidesControl.TypeKeys "<PAGEDOWN>"
 378     SlidesControl.TypeKeys "<PAGEDOWN>"
 379     SlidesControl.TypeKeys "<PAGEDOWN>"
 380     kontext "DocumentImpress"
 381
 382     InsertSlide 'No 4
 383
 384     '/// - Background: picture (Gallery) ///'
 385     Kontext "Gallery"
 386     if Gallery.Exists(2) then
 387         warnlog "   The Gallery was already visible. Check earlier ran tests for inconsistency."
 388         sleep (2)
 389     else
 390         ToolsGallery
 391         WaitSlot (2000)
 392     end if
 393
 394     select case iSprache
 395         case 01   : iAnimations = 01 'English
 396         case 07   : iAnimations = 01 'Russian
 397         case 31   : iAnimations = 03 'Netherlands
 398         case 33   : iAnimations = 01 'French
 399         case 34   : iAnimations = 01 'Spanish
 400         case 36   : iAnimations = 01 'Hungaria
 401         case 39   : iAnimations = 01 'Italian
 402         case 46   : iAnimations = 01 'Swedish
 403         case 48   : iAnimations = 01 'Polish
 404         case 49   : iAnimations = 01 'German
 405         case 55   : iAnimations = 01 'Portuguese
 406         case 81   : iAnimations = 02 'Japanese
 407         case 82   : iAnimations = 17 'Korean
 408         case 86   : iAnimations = 07 'Simplified
 409         case 88   : iAnimations = 15 'Traditional
 410         case else : iAnimations = 01 'Unknown
 411                             warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
 412         end select
 413
 414     kontext "Gallery"
 415     Gallerys.Select (iAnimations)
 416
 417     kontext "Gallery"
 418         View.TypeKeys "<HOME><RIGHT><RIGHT>"
 419         sleep (1)
 420         View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
 421         sleep (1)
 422         MenuSelect(MenuGetItemID(1))   'Insert
 423         sleep (1)
 424         MenuSelect(MenuGetItemID(1))   'Copy
 425
 426         '/// Check that we really got a copy of the object ///'
 427         kontext "DocumentImpress"
 428         DocumentImpress.OpenContextMenu(true)
 429         WaitSlot (1000)
 430         MenuSelect 27353
 431
 432     Kontext "ExportierenDlg"
 433     if ExportierenDlg.IsVisible(5) then
 434         printlog "   Gallery-object correctly copied into Slide."
 435         ExportierenDlg.Close
 436     else
 437         warnlog "   Doesn't seem like we copied anything from the Gallery... ?"
 438     end if
 439     kontext "DocumentImpress"
 440
 441     DocumentImpress.TypeKeys "<UP>", 82
 442     DocumentImpress.TypeKeys "<LEFT>", 130
 443
 444     '/// Deselect graphic ///'
 445     DocumentImpress.MouseDoubleClick 90,90
 446
 447     '/// Close the Gallery ///'
 448     ToolsGallery
 449
 450     '/// Change Text on slide ///'
 451     DocumentImpress.TypeKeys "<TAB>"
 452     DocumentImpress.TypeKeys "<RETURN>"
 453     DocumentImpress.TypeKeys "The process starts to flourish"
 454     DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
 455     gMouseClick 50,50
 456
 457     ActiveDeactivateCTLSupport (TRUE)
 458
 459     CreateTextSetEffectAndAngle
 460     DocumentImpress.TypeKeys "<DOWN>", 80
 461     DocumentImpress.TypeKeys "<LEFT>", 100
 462     gMouseClick 90,90
 463
 464     CreateTextSetEffectAndAngle
 465     DocumentImpress.TypeKeys "<DOWN>", 80
 466     DocumentImpress.TypeKeys "<LEFT>", 75
 467     gMouseClick 90,90
 468
 469     CreateTextSetEffectAndAngle
 470     DocumentImpress.TypeKeys "<DOWN>", 80
 471     DocumentImpress.TypeKeys "<LEFT>", 50
 472     gMouseClick 90,90
 473
 474     CreateTextSetEffectAndAngle
 475     DocumentImpress.TypeKeys "<DOWN>", 80
 476     DocumentImpress.TypeKeys "<LEFT>", 25
 477     gMouseClick 90,90
 478
 479     CreateTextSetEffectAndAngle
 480     DocumentImpress.TypeKeys "<DOWN>", 80
 481     DocumentImpress.TypeKeys "<RIGHT>", 25
 482     gMouseClick 90,90
 483
 484     CreateTextSetEffectAndAngle
 485     DocumentImpress.TypeKeys "<DOWN>", 80
 486     DocumentImpress.TypeKeys "<RIGHT>", 50
 487     gMouseClick 90,90
 488
 489     CreateTextSetEffectAndAngle
 490     DocumentImpress.TypeKeys "<DOWN>", 80
 491     DocumentImpress.TypeKeys "<RIGHT>", 75
 492     gMouseClick 90,90
 493
 494     CreateTextSetEffectAndAngle
 495     DocumentImpress.TypeKeys "<DOWN>", 80
 496     DocumentImpress.TypeKeys "<RIGHT>", 100
 497     gMouseClick 90,90
 498
 499     printlog "   Inserted fourth slide with Gallery-object."
 500
 501     '/// Save Document ///'
 502     call hFileSaveAsKill (PresentationFile4)
 503     printlog "OK   saved at ", PresentationFile4
 504     sleep (1)
 505
 506     ActiveDeactivateCTLSupport (FALSE)
 507     sleep (2)
 508     '/// Close Document ///'
 509     Call hCloseDocument
 510 endcase 'i_us_presentation4
 511
 512 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 513
 514 testcase i_us_presentation5
 515     dim PresentationFile4 as string
 516     dim PresentationFile5 as string
 517     PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp")))
 518     PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp")))
 519
 520     if Dir(PresentationFile4) <> "" then 'if file exists...
 521         hFileOpen (PresentationFile4)
 522         WaitSlot (10000)
 523     else
 524         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 525         '/// New impress document ///'
 526         Call hNewDocument
 527         WaitSlot (2000)
 528     end if
 529
 530     kontext "slides"
 531     SlidesControl.TypeKeys "<PAGEDOWN>"
 532     SlidesControl.TypeKeys "<PAGEDOWN>"
 533     SlidesControl.TypeKeys "<PAGEDOWN>"
 534     SlidesControl.TypeKeys "<PAGEDOWN>"
 535     SlidesControl.TypeKeys "<PAGEDOWN>"
 536     SlidesControl.TypeKeys "<PAGEDOWN>"
 537     SlidesControl.TypeKeys "<PAGEDOWN>"
 538
 539     kontext "DocumentImpress"
 540     '/// 8. New Slide. (Insert Menu) (Duplicate slide) ///'
 541     InsertDuplicateSlide 'No 5
 542     'Change the text in some way. (the user is making a joke with the audience)
 543     gMouseClick 90,90
 544     DocumentImpress.TypeKeys "<TAB>"
 545     DocumentImpress.TypeKeys "<RETURN>"
 546     EditSelectAll   'DocumentImpress.TypeKeys "<MOD1 A>"
 547     DocumentImpress.TypeKeys "And does it with strength..."
 548
 549     printlog "   Inserted fifth slide with audience-joke."
 550
 551     '/// Save Document ///'
 552     call hFileSaveAsKill (PresentationFile5)
 553     printlog "OK   saved at ", PresentationFile5
 554     sleep (1)
 555
 556     ActiveDeactivateCTLSupport (FALSE)
 557     sleep (2)
 558     '/// Close Document///'
 559     Call hCloseDocument
 560 endcase 'i_us_presentation5
 561
 562 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 563
 564 testcase i_us_presentation6
 565     dim PresentationFile5 as string
 566     dim PresentationFile6 as string
 567     PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp")))
 568     PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp")))
 569
 570     if Dir(PresentationFile5) <> "" then 'if file exists...
 571         hFileOpen (PresentationFile5)
 572         WaitSlot (10000)
 573     else
 574         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 575         '/// New impress document ///'
 576         Call hNewDocument
 577         WaitSlot (2000)
 578     end if
 579
 580     kontext "slides"
 581     SlidesControl.TypeKeys "<PAGEDOWN>"
 582     SlidesControl.TypeKeys "<PAGEDOWN>"
 583     SlidesControl.TypeKeys "<PAGEDOWN>"
 584     SlidesControl.TypeKeys "<PAGEDOWN>"
 585     SlidesControl.TypeKeys "<PAGEDOWN>"
 586     SlidesControl.TypeKeys "<PAGEDOWN>"
 587
 588     kontext "DocumentImpress"
 589     '/// 9. Q&A Slide ///'
 590     InsertSlide 'No 6
 591     WaitSlot (1000)
 592     kontext "DocumentImpress"
 593     DocumentImpress.TypeKeys "<TAB>"
 594     DocumentImpress.TypeKeys "<RETURN>"
 595     DocumentImpress.TypeKeys "Q&A"
 596     WaitSlot (1000)
 597     kontext "DocumentImpress"
 598     DocumentImpress.TypeKeys "<SHIFT HOME>"
 599     Kontext "TextObjectbar"
 600         if TextObjectbar.Exists = FALSE then
 601             ViewToolbarsTextFormatting
 602         end if
 603         WaitSlot (2000)
 604         Printlog "- Change size of font"
 605         Schriftgroesse.Select "26"
 606         Schriftgroesse.TypeKeys "<RETURN>"
 607         Fett.Click
 608     kontext "DocumentImpress"
 609     DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
 610     kontext "Toolbar"
 611         Auswahl.Click
 612     gMouseClick 60,60
 613     EditSelectAll
 614     WaitSlot (1000)
 615     DocumentImpress.TypeKeys "<DOWN>", 50
 616     kontext "DocumentImpress"
 617     printlog "   Inserted sixth slide with Q&A."
 618
 619     '/// Save Document ///'
 620     call hFileSaveAsKill (PresentationFile6)
 621     printlog "OK   saved at ", PresentationFile6
 622     sleep (1)
 623
 624     ActiveDeactivateCTLSupport (FALSE)
 625     WaitSlot (2000)
 626     '/// Close Document ///'
 627     Call hCloseDocument
 628 endcase 'i_us_presentation6
 629
 630 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 631
 632 testcase i_us_presentation7
 633
 634     dim sFilter as string
 635     dim sFileName as string
 636     dim PresentationFile6 as string
 637     dim PresentationFile7 as string
 638     PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp")))
 639     PresentationFile7 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes7.odp")))
 640     sFileName = (ConvertPath (gOfficePath + "user\work\export-test.ppt"))
 641
 642     if Dir(PresentationFile6) <> "" then 'if file exists...
 643         hFileOpen (PresentationFile6)
 644         WaitSlot (10000)
 645     else
 646         warnlog "   This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
 647         '/// New impress document ///'
 648         Call hNewDocument
 649         WaitSlot (2000)
 650     end if
 651
 652     kontext "slides"
 653     SlidesControl.TypeKeys "<PAGEDOWN>"
 654     SlidesControl.TypeKeys "<PAGEDOWN>"
 655     SlidesControl.TypeKeys "<PAGEDOWN>"
 656     SlidesControl.TypeKeys "<PAGEDOWN>"
 657     SlidesControl.TypeKeys "<PAGEDOWN>"
 658     SlidesControl.TypeKeys "<PAGEDOWN>"
 659     SlidesControl.TypeKeys "<PAGEDOWN>"
 660     SlidesControl.TypeKeys "<PAGEDOWN>"
 661
 662     kontext "DocumentImpress"
 663     '/// 10. Ending Slide ///'
 664     InsertSlide 'No 7
 665     DocumentImpress.TypeKeys "Ende"
 666     printlog "   Inserted ending -slide."
 667
 668     Kontext "Gallery"
 669     if Gallery.Exists(2) then
 670         warnlog "   The Gallery was visible. Closed it. Check earlier ran tests for inconsistency."
 671         ToolsGallery
 672         WaitSlot (2000)
 673     end if
 674
 675     kontext "slides"
 676     for i = 1 to 7
 677         sleep 1
 678         SlidesControl.TypeKeys "<PAGEUP>"
 679     next i
 680     SlidesControl.TypeKeys "<RETURN>" 'At the first slide
 681
 682     hTypeKeys "<F5>"
 683     kontext "DocumentPresentation"
 684     sleep (3)
 685     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 686     sleep (2)
 687     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 688     sleep (2)
 689     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 690     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 691     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 692     sleep (10)
 693     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 694     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 695     sleep (2)
 696     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 697     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 698     sleep (2)
 699     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 700     DocumentPresentation.TypeKeys "<PAGEDOWN>"
 701     sleep (2)
 702     DocumentPresentation.TypeKeys "<ESCAPE>"
 703     if DocumentPresentation.Exists(5) then
 704         warnlog "   Presentation should have ended. Please inform Automatic Tester."
 705     end if
 706     kontext "DocumentImpress"
 707
 708     '/// Save Document ///'
 709     call hFileSaveAsKill (PresentationFile7)
 710     printlog "OK   saved at ", PresentationFile7
 711     sleep (1)
 712
 713     '/// Save as Powerpoint-file ///'
 714     FileSaveAs
 715         Kontext "SpeichernDlg"
 716         Dateiname.SetText sFileName
 717         Dateityp.Select 5  ' Powerpoint
 718         printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
 719         Speichern.Click
 720         Kontext "Messagebox"
 721         if Messagebox.Exists(2) then Messagebox.Yes
 722         Kontext "AlienWarning"
 723         if AlienWarning.Exists(2) then AlienWarning.OK
 724         printlog "Saved as: " + sFileName
 725         sleep (3)
 726
 727     '/// Close the office and reload the file ///'
 728     FileClose
 729     Kontext "Messagebox"
 730     if Messagebox.Exists(2) then Messagebox.Yes
 731     sleep (3)
 732     '/// Open the saved file ///'
 733     hFileOpen sFileName
 734     printlog "File opened: " + sFileName
 735     sleep (3)
 736
 737     '/// Close the office-session ///'
 738     ActiveDeactivateCTLSupport (FALSE)
 739     sleep (2)
 740     '/// Close Document ///'
 741     Call hCloseDocument
 742 endcase 'i_us_presentation7
 743
 744 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....