testautomation/graphics/optional/includes/impress/i_slidecopy.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_slidecopy.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:17:52 $
  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: includefile for Slidecopy-testing
  37 '*
  38 '*******************************************************************************
  39 ' #1 tiSlideCopyNewPresentation
  40 ' #1 tiSlideCopyDuplicate
  41 ' #1 tiSlideCopyPasteSpecial
  42 ' #1 tiSlideCopyInSlideSorter
  43 '\******************************************************************************
  44
  45 testcase tiSlideCopyNewPresentation
  46     Dim value1 as string
  47     Dim value2 as string
  48     Dim value12 as string
  49     Dim value13 as string
  50      printlog "This test copies one slide from one presentation to another."
  51      printlog "Make new presentation"
  52      Call  hNewDocument
  53      printlog "Insert three objects: Connector, Door-plate, and Smiley."
  54
  55      printlog "First we Insert a Connector."
  56      kontext "Toolbar"
  57      sleep 1
  58      try
  59         Verbinder.TearOff
  60      catch
  61         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
  62      endcatch
  63      kontext "Connectorsbar"
  64      sleep 2
  65      Verbinder.click
  66      sleep 5
  67      gMouseDown (10,10)
  68      gMouseMove (10,10,30,30)
  69      gMouseUp (30,30)
  70      kontext "Connectorsbar"
  71      Connectorsbar.Close
  72      hTypeKeys "<ESCAPE>"
  73      hTypeKeys "<TAB>", 1
  74      printlog "We rename the object via the contextmenu."
  75      sleep (1)
  76      DocumentImpress.TypeKeys "<SHIFT F10>"
  77      sleep (2)
  78      printlog "then Choose rename."
  79      if hMenuFindSelect(27027, true, 14) = false then
  80         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
  81         Call hCloseDocument
  82         Goto Endsub
  83      endif
  84      sleep 2
  85      kontext "NameDlgObject"
  86      NameField.SetText "First"
  87      NameDlgObject.OK
  88      kontext "DocumentImpress"
  89      hMouseClick DocumentImpress, 90, 90
  90 '----------------------------------------------------------------------------1
  91      printlog "Then we insert the second object: a Door-plate."
  92      kontext "Toolbar"
  93      sleep 2
  94      try
  95         StarShapes.TearOff
  96      catch
  97         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
  98      endcatch
  99      sleep 2
 100      kontext "StarShapes"
 101      StarShapesDoorplate.click
 102      sleep (3)
 103      gMouseDown (40,40)
 104      gMouseMove (40,40,60,60)
 105      gMouseUp (60,60)
 106     kontext "StarShapes"
 107      StarShapes.Close
 108      hTypeKeys "<ESCAPE>"
 109      hTypeKeys "<TAB>", 2
 110      printlog "And then we rename the object."
 111      sleep (1)
 112      DocumentImpress.TypeKeys "<SHIFT F10>"
 113      sleep 2
 114      if hMenuFindSelect(27027, true, 15) = false then
 115         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 116         Call hCloseDocument
 117         Goto Endsub
 118      endif
 119      kontext "NameDlgObject"
 120      NameField.SetText "Second"
 121      NameDlgObject.OK
 122      kontext "DocumentImpress"
 123      hMouseClick DocumentImpress, 90, 90
 124 '----------------------------------------------------------------------------2
 125      printlog "Then we insert the thrid object: a Smiley."
 126      kontext "Toolbar"
 127      sleep 1
 128      try
 129         SymbolShapes.TearOff
 130      catch
 131         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 132      endcatch
 133      kontext "SymbolShapes"
 134      sleep 1
 135      SymbolShapesSmiley.Click
 136      sleep 2
 137      gMouseDown (70,70)
 138      gMouseMove  (70,70,89,89)
 139      gMouseUp (89,89)
 140      kontext "SymbolShapes"
 141      SymbolShapes.Close
 142      hTypeKeys "<ESCAPE>"
 143      hTypeKeys "<TAB>", 3
 144      printlog "We rename the object via the Context-menu."
 145      DocumentImpress.TypeKeys "<SHIFT F10>"
 146      sleep (2)
 147      'Choose rename.
 148      if hMenuFindSelect(27027, true, 15) = false then
 149         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 150         Call hCloseDocument
 151         Goto Endsub
 152      endif
 153      kontext "NameDlgObject"
 154      NameField.SetText "Third"
 155      NameDlgObject.OK
 156      kontext "DocumentImpress"
 157      hMouseClick DocumentImpress, 90, 90
 158 '---------------------------------------------------------------------------3
 159      '/// Copy the slide to the clipboard ///'
 160      kontext "Slides"
 161      SlidesControl.TypeKeys "<PAGEUP>"
 162      sleep (1)
 163      SlidesControl.TypeKeys "<SHIFT F10>"
 164      sleep 2
 165      printlog "We copy the object via the Context-menu."
 166
 167      if hMenuFindSelect(5711, true, 10) = false then
 168         Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends."
 169         Call hCloseDocument
 170      Goto Endsub
 171      endif
 172      '/// Close the presentation-window ///'
 173      Call hCloseDocument
 174      '/// Open a new presentation ///'
 175      Call  hNewDocument
 176      '/// Paste the slide from the clipboard ///'
 177      kontext "Slides"
 178      EditPaste
 179      '/// Delete the first slide ///'
 180      EditDeleteSlide
 181      '/// Check if all three objects exists, and has the right values ///'
 182      kontext "DocumentImpress"
 183      hTypeKeys "<ESCAPE>"
 184      hTypeKeys "<TAB>", 1 'Select the first object.
 185      'Bring up the kontext-menu for the object
 186      sleep (1)
 187      DocumentImpress.TypeKeys "<SHIFT F10>"
 188      sleep 2
 189      printlog "We rename the object via the Context-menu."
 190      if hMenuFindSelect(27027, true, 14) = false then
 191         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 192         Call hCloseDocument
 193         Goto Endsub
 194      endif
 195      printlog "Read out what the name is, and checks if it's correct."
 196      kontext "NameDlgObject"
 197      value1 = NameField.GetText
 198      NameDlgObject.OK
 199      if value1 = "First" then
 200         printlog "First object was found correctly"
 201      else
 202         Warnlog "Wrong object or object-name! The name found was: " + value1
 203      endif
 204      kontext "DocumentImpress"
 205      hMouseClick DocumentImpress, 90, 90
 206      DocumentImpress.TypeKeys "<TAB TAB>" 'Select the second object.
 207      'Bring up the kontext-menu for the object
 208      sleep (1)
 209      DocumentImpress.TypeKeys "<SHIFT F10>"
 210      sleep 2
 211      printlog "We rename the object via the Context-menu."
 212      if hMenuFindSelect(27027, true, 15) = false then
 213         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 214         Call hCloseDocument
 215         Goto Endsub
 216      endif
 217      printlog "Read out what the name is, and check if it's correct."
 218      sleep 1
 219      kontext "NameDlgObject"
 220      value12 = NameField.GetText
 221      NameDlgObject.OK
 222
 223      if value12 = "Second" then
 224         printlog "Second object was found correctly"
 225      else
 226         Warnlog "Wrong object or object-name! The name found was: " + value12
 227      endif
 228
 229      kontext "DocumentImpress"
 230      hMouseClick DocumentImpress, 90, 90
 231      DocumentImpress.TypeKeys "<TAB TAB TAB>" 'Select the third object.
 232      'Bring up the kontext-menu for the object
 233      sleep (2)
 234      DocumentImpress.TypeKeys "<SHIFT F10>"
 235      sleep 2
 236      printlog "We rename the object via the Context-menu."
 237      if hMenuFindSelect(27027, true, 15) = false then
 238         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 239         Call hCloseDocument
 240         Goto Endsub
 241      endif
 242      printlog "Read out what the name is, and check if it's correct."
 243      kontext "NameDlgObject"
 244      value13 = NameField.GetText
 245      NameDlgObject.OK
 246
 247      if value13 = "Third" then
 248         printlog "Third object was found correctly"
 249      else
 250         Warnlog "Wrong object or object-name! The name found was: " + value13
 251      endif
 252
 253      '/// Close the bars we opened before. ///'
 254      kontext "Connectorsbar"
 255      if Connectorsbar.Exists then Connectorsbar.Close
 256      kontext "SymbolShapes"
 257      if SymbolShapes.Exists then SymbolShapes.Close
 258      kontext "StarShapes"
 259      if StarShapes.Exists then StarShapes.Close
 260
 261      '/// Close Presentation. End testcase ///'
 262      Call hCloseDocument
 263 endcase 'tiSlideCopyNewPresentation
 264
 265 '-------------------------------------------------------------------------
 266
 267 testcase tiSlideCopyDuplicate
 268     Dim value1 as string
 269     Dim value2 as string
 270     Dim value12 as string
 271     Dim value13 as string
 272     dim i as integer
 273      '/// Make a duplicate of a slide. In the same presentation ///'
 274      '/// Make new presentation ///'
 275      Call  hNewDocument
 276      '/// Insert three objects: Connector, Door-plate, and Smiley ///'
 277      '1 Insert Connector.
 278      kontext "Toolbar"
 279      sleep 1
 280      try
 281         Verbinder.TearOff  ' insert connector
 282      catch
 283         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 284      endcatch
 285      kontext "Connectorsbar"
 286      sleep 1
 287      Verbinder.click
 288      sleep 1
 289      kontext "DocumentImpress"
 290      gMouseDown (10,10)
 291      gMouseMove (10,10,30,30)
 292      gMouseUp (30,30)
 293
 294      hTypeKeys "<ESCAPE>"
 295      hTypeKeys "<TAB>", 1
 296      sleep (1)
 297
 298      'rename object
 299      DocumentImpress.TypeKeys "<SHIFT F10>"
 300      sleep 1
 301
 302      'Choose rename.
 303      if hMenuFindSelect(27027, true, 14) = false then
 304         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 305         Call hCloseDocument
 306         Goto Endsub
 307      endif
 308      kontext "NameDlgObject"
 309      NameField.SetText "First"
 310      NameDlgObject.OK
 311      sleep 1
 312
 313      kontext "DocumentImpress"
 314      hMouseClick DocumentImpress, 90, 90
 315
 316      '2 Insert Door-plate.
 317      kontext "Toolbar"
 318      sleep 1
 319      try
 320         StarShapes.TearOff  ' insert connector
 321      catch
 322         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 323      endcatch
 324      kontext "StarShapes"
 325      sleep 1
 326      StarShapesDoorplate.click
 327      sleep 1
 328      kontext "DocumentImpress"
 329      gMouseDown (40,40)
 330      gMouseMove (40,40,60,60)
 331      gMouseUp (60,60)
 332
 333      hTypeKeys "<ESCAPE>"
 334      hTypeKeys "<TAB>", 2
 335      sleep (1)
 336
 337      'Rename object
 338      kontext "DocumentImpress"
 339      DocumentImpress.TypeKeys "<SHIFT F10>"
 340      sleep (1)
 341      'Choose rename.
 342      if hMenuFindSelect(27027, true, 15) = false then
 343         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 344         Call hCloseDocument
 345         Goto Endsub
 346      endif
 347      kontext "NameDlgObject"
 348      NameField.SetText "Second"
 349      NameDlgObject.OK
 350      sleep 1
 351
 352      kontext "DocumentImpress"
 353      hMouseClick DocumentImpress, 90, 90
 354
 355      '3 Insert Smiley.
 356      kontext "Toolbar"
 357      sleep 1
 358      try
 359         SymbolShapes.TearOff  ' insert connector
 360      catch
 361         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 362      endcatch
 363      kontext "SymbolShapes"
 364      sleep 1
 365      SymbolShapesSmiley.Click
 366      sleep 1
 367      gMouseDown (70,70)
 368      gMouseMove  (70,70,89,89)
 369      gMouseUp (89,89)
 370
 371      hTypeKeys "<ESCAPE>"
 372      hTypeKeys "<TAB>", 3
 373      sleep (1)
 374
 375      'rename object
 376      DocumentImpress.TypeKeys "<SHIFT F10>"
 377      sleep (1)
 378      'Choose rename.
 379      if hMenuFindSelect(27027, true, 15) = false then
 380         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 381         Call hCloseDocument
 382         Goto Endsub
 383      endif
 384      kontext "NameDlgObject"
 385      NameField.SetText "Third"
 386      NameDlgObject.OK
 387      sleep 1
 388
 389      kontext "DocumentImpress"
 390      hMouseClick DocumentImpress, 90, 90
 391
 392      '/// Close the bars we opened before. ///'
 393      kontext "Connectorsbar"
 394      if Connectorsbar.Exists then Connectorsbar.Close
 395      kontext "SymbolShapes"
 396      if SymbolShapes.Exists then SymbolShapes.Close
 397      kontext "StarShapes"
 398      if StarShapes.Exists then StarShapes.Close
 399
 400      '/// Copy the slide to the clipboard ///'
 401      kontext "Slides"
 402      SlidesControl.TypeKeys "<PAGEUP>"
 403      sleep (1)
 404      SlidesControl.TypeKeys "<SHIFT F10>"
 405      sleep (1)
 406      'Choose `Copy`
 407      if hMenuFindSelect(5711, true, 10) = false then
 408         Warnlog "Context-Menu-entry `Copy` was not found.Therefore the test ends."
 409         Call hCloseDocument
 410         Goto Endsub
 411      endif
 412
 413      '/// Paste the content from the Clipboard ///'
 414      kontext "Slides"
 415      'open context-menu choose 'paste'
 416
 417      EditPaste
 418
 419      kontext "InsertPaste"
 420      if InsertPaste.Exists(1) then
 421         After.Check
 422         InsertPaste.OK
 423      endif
 424      sleep (2)
 425      '/// Check if we have two slides, and that the objects exists, and has the right values ///'
 426
 427      kontext "Slides"
 428      SlidesControl.TypeKeys "<PAGEUP>"
 429
 430      for i = 1 to 2   ' we have two slides, so we do this two times to check everything.
 431         Printlog "Checking objects the " + i + " + time."
 432         kontext "DocumentImpress"
 433         hMouseClick DocumentImpress, 90, 90
 434         DocumentImpress.TypeKeys "<TAB>" 'Select the first object.
 435         sleep (1)
 436         'Bring up the kontext-menu for the object
 437         DocumentImpress.TypeKeys "<SHIFT F10>"
 438         sleep 1
 439         'Choose rename.
 440         if hMenuFindSelect(27027, true, 14) = false then
 441            Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 442            Call hCloseDocument
 443            Goto Endsub
 444         endif
 445
 446         'Read out what the name is, and check if its correct.
 447         kontext "NameDlgObject"  '"LinieName"  "NameDlgPage"
 448         value1 = NameField.GetText
 449         NameDlgObject.OK 'TypeKeys "<Enter>"
 450
 451         if value1 = "First" then
 452            printlog "First object was found correctly"
 453         else
 454            Warnlog "Wrong object or object-name! The name found was: " + value1
 455         endif
 456
 457         hTypeKeys "<ESCAPE>"
 458         DocumentImpress.TypeKeys "<TAB>", 2
 459      sleep (1)
 460         DocumentImpress.TypeKeys "<SHIFT F10>"
 461
 462         'Choose rename.
 463         if hMenuFindSelect(27027, true, 15) = false then
 464            Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 465            Call hCloseDocument
 466            Goto Endsub
 467         endif
 468
 469         'Read out what the name is, and check if its correct.
 470         kontext "NameDlgObject"
 471         value12 = NameField.GetText
 472         NameDlgObject.OK
 473
 474         if value12 = "Second" then
 475            printlog "Second object was found correctly"
 476         else
 477            Warnlog "Wrong object or object-name! The name found was: " + value12
 478         endif
 479
 480         hTypeKeys "<ESCAPE>"
 481         hTypeKeys "<TAB>", 3 'Select the third object.
 482         sleep (1)
 483
 484         'Bring up the kontext-menu for the object
 485         DocumentImpress.TypeKeys "<SHIFT F10>"
 486         sleep 1
 487         'Choose rename.
 488         if hMenuFindSelect(27027, true, 15) = false then
 489            Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 490            Call hCloseDocument
 491            Goto Endsub
 492         endif
 493
 494         'Read out what the name is, and check if its correct.
 495         kontext "NameDlgObject"
 496         value13 = NameField.GetText
 497         NameDlgObject.OK
 498
 499         if value13 = "Third" then
 500            printlog "Third object was found correctly"
 501         else
 502            Warnlog "Wrong object or object-name! The name found was: " + value13
 503         endif
 504         kontext "Slides"
 505         SlidesControl.TypeKeys "<DOWN>"
 506      next i
 507
 508      '/// Close Presentation. End testcase ///'
 509      Call hCloseDocument
 510 endcase 'tiSlidecopyDuplicate
 511
 512 '-----------------------------------------------------------------------
 513
 514 testcase tiSlideCopyPasteSpecial
 515 qaerrorlog "#i93377#: Paste special dialog does not come up with kontext on slide pane"
 516 goto endsub
 517
 518     Dim value1 as string
 519     Dim value2 as string
 520     Dim value3 as string
 521      '/// Copies slide, and pastes it with "Paste Special", ///'
 522      '/// just to see if the office can handle it ///'
 523      '/// Make new presentation ///'
 524      Call  hNewDocument
 525      '/// Insert three objects: Connector, Door-plate, and Smiley ///'
 526
 527      '1 Insert Connector.
 528      kontext "Toolbar"
 529      sleep 1
 530      try
 531         Verbinder.TearOff  ' insert connector
 532      catch
 533         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 534      endcatch
 535      kontext "Connectorsbar"
 536      sleep 1
 537      Verbinder.click
 538      sleep 1
 539      gMouseDown (10,10)
 540      gMouseMove (10,10,30,30)
 541      gMouseUp (30,30)
 542
 543      kontext "DocumentImpress"
 544      hMouseClick DocumentImpress, 90, 90
 545
 546      '2 Insert Door-plate.
 547      kontext "Toolbar"
 548      sleep 1
 549      try
 550         StarShapes.TearOff  ' insert connector
 551      catch
 552         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 553      endcatch
 554      kontext "StarShapes"
 555      sleep 1
 556      StarShapesDoorplate.click
 557      sleep 1
 558      gMouseDown (40,40)
 559      gMouseMove (40,40,60,60)
 560      gMouseUp (60,60)
 561
 562      kontext "DocumentImpress"
 563      hMouseClick DocumentImpress, 90, 90
 564
 565      '3 Insert Smiley.
 566      kontext "Toolbar"
 567      sleep 1
 568      try
 569         SymbolShapes.TearOff  ' insert connector
 570      catch
 571         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 572      endcatch
 573      kontext "SymbolShapes"
 574      sleep 1
 575      SymbolShapesSmiley.Click
 576      sleep 1
 577      gMouseDown (70,70)
 578      gMouseMove  (70,70,89,89)
 579      gMouseUp (89,89)
 580
 581      '/// Copy the slide to the clipboard ///'
 582      kontext "Slides"
 583      SlidesControl.TypeKeys "<PAGEUP>"
 584      SlidesControl.TypeKeys "<SHIFT F10>"
 585      sleep 1
 586      'Choose `Copy`
 587      if hMenuFindSelect(5711, true, 10) = false then
 588         Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends."
 589         Call hCloseDocument
 590         Goto Endsub
 591      endif
 592
 593      '/// Try to paste special. And check that the office still stays alive ///'
 594      EditPasteSpecial
 595      kontext "InhaltEinfuegen"
 596      InhaltEinfuegen.OK
 597
 598      '/// Close the bars we opened before. ///'
 599      kontext "Connectorsbar"
 600      if Connectorsbar.Exists then Connectorsbar.Close
 601      kontext "SymbolShapes"
 602      if SymbolShapes.Exists then SymbolShapes.Close
 603      kontext "StarShapes"
 604      if StarShapes.Exists then StarShapes.Close
 605
 606      sleep 1
 607      kontext "DocumentImpress"
 608      '/// Close Presentation. End testcase ///'
 609
 610      Call hCloseDocument
 611 endcase 'tiSlideCopyPasteSpecial
 612
 613 '-----------------------------------------------------------------------
 614 testcase tiSlideCopyInSlideSorter
 615 qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position"
 616 goto endsub
 617
 618     Dim value1 as string
 619     Dim value2 as string
 620     Dim value3 as string
 621      '/// Copies slides within the slidesorter, and makes sure they are pasted on the correct position ///'
 622      '/// Make new presentation ///'
 623      Call  hNewDocument
 624      '/// Insert an object: Connector, on the first slide ///'
 625      kontext "Toolbar"
 626      sleep 1
 627      try
 628         Verbinder.TearOff
 629      catch
 630         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 631      endcatch
 632      kontext "Connectorsbar"
 633      sleep 1
 634      Verbinder.click
 635      Verbinder.click
 636      Verbinder.click
 637      sleep 1
 638      kontext "DocumentImpress"
 639      gMouseDown (10,10)
 640      gMouseMove (10,10,30,30)
 641      gMouseUp (30,30)
 642      Printlog "   Inserted a Connector-object."
 643      'Rename object
 644      hTypeKeys "<ESCAPE>"
 645      hTypeKeys "<TAB>", 1
 646      DocumentImpress.TypeKeys "<SHIFT F10>"
 647
 648      'Rename
 649      if hMenuFindSelect(27027, true, 14) = false then
 650         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 651         Call hCloseDocument
 652         Goto Endsub
 653      endif
 654      kontext "NameDlgObject"
 655      NameField.SetText "First"
 656      NameDlgObject.OK
 657      sleep 1
 658      Printlog "   Renamed a the object to 'First'"
 659
 660      sleep 3
 661      '/// Rename slide to "1" ///'
 662      kontext "Slides"
 663      SlidesControl.TypeKeys "<PAGEUP>"
 664      SlidesControl.TypeKeys "<SHIFT F10>"
 665      sleep 3
 666      'Rename
 667      if hMenuFindSelect(27268, true, 2) = false then
 668         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 669         Call hCloseDocument
 670         Goto Endsub
 671      endif
 672
 673      kontext "NameDlgPage"
 674      NameField.SetText "1"
 675      NameDlgPage.OK
 676      sleep 1
 677      Printlog "   Renamed the Slide to '1'"
 678
 679      kontext "DocumentImpress"
 680      hMouseClick DocumentImpress, 90, 90
 681      sleep 3
 682
 683      '/// Insert a new slide ///'
 684      kontext "Slides"
 685      SlidesControl.TypeKeys "<TAB><PAGEDOWN>"
 686      SlidesControl.OpenContextMenu
 687      sleep 3
 688      'Insert slide
 689      if hMenuFindSelect(27014, true, 1) = false then
 690         Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends."
 691         Call hCloseDocument
 692         Goto Endsub
 693      endif
 694      Printlog "   Inserted a new slide."
 695      '/// Insert an object: Door-plate, on the second slide ///'
 696      kontext "Toolbar"
 697      sleep 1
 698      try
 699         StarShapes.TearOff
 700      catch
 701         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 702      endcatch
 703      kontext "StarShapes"
 704      sleep 1
 705      StarShapesDoorplate.click
 706      sleep 1
 707      kontext "DocumentImpress"
 708      gMouseDown (40,40)
 709      gMouseMove (40,40,60,60)
 710      gMouseUp (60,60)
 711      Printlog "   Inserted a Door-Plate-object."
 712
 713      hTypeKeys "<ESCAPE>"
 714      hTypeKeys "<TAB>", 2
 715      hTypeKeys "<SHIFT F10>"
 716
 717      ' Rename
 718      if hMenuFindSelect(27027, true, 15) = false then
 719         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 720         Call hCloseDocument
 721         Goto Endsub
 722      endif
 723
 724      kontext "NameDlgObject"
 725      NameField.SetText "Second"
 726      NameDlgObject.OK
 727      sleep 1
 728      Printlog "   Renamed a the object to 'Second'"
 729
 730      kontext "DocumentImpress"
 731      hMouseClick DocumentImpress, 90, 90
 732      sleep 2
 733      '/// Rename slide to "2" ///'
 734      kontext "Slides"
 735      SlidesControl.OpenContextMenu
 736      sleep 3
 737      ' Rename
 738      if hMenuFindSelect(27268, true, 3) = false then
 739         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 740         Call hCloseDocument
 741         Goto Endsub
 742      endif
 743      kontext "NameDlgPage"
 744      NameField.SetText "2"
 745      NameDlgPage.OK
 746      sleep 1
 747      Printlog "   Renamed the slide '2'"
 748
 749      '/// Insert a new slide ///'
 750      kontext "Slides"
 751      Slidescontrol.TypeKeys "<PAGEDOWN>", 2
 752      Slidescontrol.TypeKeys "<SHIFT F10>"
 753      sleep 3
 754      'Insert slide
 755      if hMenuFindSelect(27014, true, 1) = false then
 756         Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends."
 757         Call hCloseDocument
 758         Goto Endsub
 759      endif
 760      Printlog "   Inserted a new slide."
 761
 762      '/// Insert an object: Smiley, on the second slide ///'
 763      kontext "Toolbar"
 764      sleep 1
 765      try
 766         SymbolShapes.TearOff
 767      catch
 768         warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 769      endcatch
 770      kontext "SymbolShapes"
 771      sleep 1
 772      SymbolShapesSmiley.Click
 773      sleep 1
 774      gMouseDown (70,70)
 775      gMouseMove  (70,70,89,89)
 776      gMouseUp (89,89)
 777      Printlog "   Inserted a Smiley-object."
 778
 779      'Rename object
 780      hTypeKeys "<ESCAPE>"
 781      hTypeKeys "<TAB>", 2
 782      hTypeKeys "<SHIFT F10>"
 783
 784      'Choose rename.
 785      if hMenuFindSelect(27027, true, 15) = false then
 786         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 787         Call hCloseDocument
 788         Goto Endsub
 789      endif
 790      kontext "NameDlgObject"
 791      NameField.SetText "Third"
 792      NameDlgObject.OK
 793      Printlog "   Renamed a the object to 'Third'"
 794
 795      '/// Rename slide to "3" ///'
 796      kontext "Slides"
 797      Slidescontrol.TypeKeys "<PAGEDOWN>", 2
 798      SlidesControl.OpenContextMenu
 799      sleep 3
 800      ' Rename
 801      if hMenuFindSelect(27268, true, 3) = false then
 802         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 803         Call hCloseDocument
 804         Goto Endsub
 805      endif
 806
 807      kontext "NameDlgPage"
 808      NameField.SetText "3"
 809      NameDlgPage.OK
 810      sleep 1
 811      Printlog "   Renamed the slide '3'"
 812
 813      '/// Close the bars we opened before. ///'
 814      kontext "Connectorsbar"
 815      if Connectorsbar.Exists then Connectorsbar.Close
 816      kontext "SymbolShapes"
 817      if SymbolShapes.Exists then SymbolShapes.Close
 818      kontext "StarShapes"
 819      if StarShapes.Exists then StarShapes.Close
 820
 821      '/// Change to Slidesorter ///'
 822      kontext "DocumentImpress"
 823      ViewSlideSorter
 824
 825      '/// Now we have changed view to the slidesorter ///'
 826
 827      kontext "Slides"
 828      Printlog "   Changed view to 'SlideSorter'"
 829      '/// Make sure the last slide is selcted ///'
 830      SlidesControl.TypeKeys "<TAB>"
 831      SlidesControl.TypeKeys "<PAGEDOWN>", 3
 832
 833      '/// Cut the last slide ///'
 834      SlidesControl.TypeKeys "<MOD1 X>"
 835
 836      '/// Make sure the first slide is selected ///'
 837      SlidesControl.TypeKeys "<TAB>"
 838      SlidesControl.TypeKeys "<PAGEUP>", 2
 839      sleep 1
 840
 841      '/// Paste the Slide ///'
 842      kontext "Slides"
 843      SlidesControl.TypeKeys "<MOD1 V>"
 844
 845      '/// choose "Before" as specification for where
 846      Kontext "InsertPaste"
 847      if InsertPaste.Exists(3) then
 848         Before.Check
 849         InsertPaste.OK
 850         Printlog "   Pasted slide 'Before'"
 851      else
 852         warnlog "   Problem when copying/pasting slide."
 853      endif
 854
 855      '/// Check where the slide ended up ///'
 856      kontext "Slides"
 857      SlidesControl.TypeKeys "<TAB>"
 858      SlidesControl.TypeKeys "<PAGEUP>", 3 'to get to the first slide
 859      SlidesControl.TypeKeys "<SHIFT F10>"
 860      sleep 3
 861      ' Rename
 862      if hMenuFindSelect(27268, true, 3) = false then
 863         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 864         Call hCloseDocument
 865         Goto Endsub
 866      endif
 867
 868      kontext "NameDlgPage"
 869      if NameField.GetText <> "3" then
 870         Warnlog "Wrong slide found! Expected nr 3, but found " + NameField.GetText + "."
 871      else
 872         Printlog "   Slide nr 3 was found correctly."
 873      endif
 874      NameDlgPage.OK
 875      sleep 1
 876
 877      kontext "Slides"
 878      '/// Choose the slide in the middle (named "1") ///'
 879      SlidesControl.TypeKeys "<TAB>"
 880      SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide
 881      SlidesControl.TypeKeys "<PAGEUP>" 'to go back one step
 882      SlidesControl.OpenContextMenu (true)
 883      ' Check the name of that slide (via Rename)
 884      if hMenuFindSelect(27268, true, 3) = false then
 885         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 886         Call hCloseDocument
 887         Goto Endsub
 888      endif
 889
 890      kontext "NameDlgPage"
 891      if NameField.GetText <> "1" then
 892         Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "."
 893      else
 894         Printlog "   Slide nr 1 was found correctly in the middle position."
 895      endif
 896      NameDlgPage.OK
 897      sleep 1
 898      kontext "Slides"
 899
 900      '/// Cut the slide ///'
 901      SlidesControl.TypeKeys "<SHIFT F10>"
 902      sleep 3
 903      if hMenuFindSelect(5710, true, 10) = false then
 904         Warnlog "Context-Menu-entry `Cut` was not found. Therefore the test ends."
 905         Call hCloseDocument
 906         Goto Endsub
 907      endif
 908
 909      '/// Make sure we have selected the last slide ///'
 910      SlidesControl.TypeKeys "<TAB>"
 911      SlidesControl.TypeKeys "<PAGEDOWN>", 2
 912
 913      '/// Place the mousepointer to the left of the first slide ///'
 914      sleep 1
 915      kontext "Slides"
 916      SlidesControl.MouseMove 2, 3
 917      SlidesControl.OpenContextMenu true
 918      sleep 3
 919
 920      '/// Paste the Slide ///'
 921      if hMenuFindSelect(5712, true, 12) = false then
 922         Warnlog "Context-Menu-entry `Paste` were not found. Therefore the test ends."
 923         Call hCloseDocument
 924         Goto Endsub
 925      endif
 926      sleep 1
 927
 928      '/// Choose "After" as specification for where ///'
 929      Kontext "InsertPaste"
 930      if InsertPaste.Exists(3) then
 931         After.Check
 932         InsertPaste.OK
 933         Printlog "   Pasted slide 'After'"
 934      else
 935         warnlog "   Problem when copying/pasting slide."
 936      endif
 937
 938      '/// Check where the slide ended up. Should have showed up at the last position ///'
 939      kontext "Slides"
 940      SlidesControl.TypeKeys "<TAB>"
 941      SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide
 942      SlidesControl.TypeKeys "<SHIFT F10>" '= open context menu
 943      sleep 3
 944      ' Rename
 945      if hMenuFindSelect(27268, true, 3) = false then
 946         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 947         Call hCloseDocument
 948         Goto Endsub
 949      endif
 950
 951      kontext "NameDlgPage"
 952      if NameField.GetText <> "1" then
 953         Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "."
 954      else
 955         Printlog "   Slide nr 1 was found correctly."
 956      endif
 957      NameDlgPage.OK
 958      sleep 1
 959
 960      '/// Close Presentation. End testcase ///'
 961      Call hCloseDocument
 962 endcase 'tiSlideCopyInSlideSorter
 963
 964 '------------------------------------------------------------------------
 965
 966 'TODO FHA - Check the objects after pasting them.