testautomation/writer/required/includes/w_002_.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*                                                                            **
  28 '* owner : helge.delfs@oracle.com                                                **
  29 '*                                                                            **
  30 '* short description :                                                        **
  31 '*                                                                            **
  32 '\******************************************************************************
  33
  34 sub w_002_
  35
  36     printLog Chr(13) + "--------- Edit Menu ( w_002_.inc ) ----------"
  37     gApplication = "WRITER"
  38
  39     Call tEditUndoRedo
  40     Call tEditRepeat
  41
  42     Call tEditPaste
  43     Call tEditPasteSpecial
  44     Call tEditSelectionMode
  45
  46     Call tEditChanges
  47     Call tEditCompareDocument
  48     Call tEditFindAndReplace
  49     Call tViewNavigator
  50     Call tEditAutoText
  51     Call tEditHyperlink
  52
  53     Call tEditFields
  54     Call tEditFieldsInputList
  55     Call tEditFootnote
  56     Call tEditIndexEntry
  57
  58     Call tEditLinks
  59     Call tEditPlugIn
  60     Call tEditImageMap
  61     Call tEditObjectEdit
  62
  63     'Writer Master Document
  64     gApplication = "MASTERDOCUMENT"
  65     Call tMasterDocEditNavigator
  66
  67     gApplication "HTML"
  68     Call tEditFields
  69
  70     gApplication = "WRITER"
  71
  72 end sub
  73
  74 '-----------------------------------------------------------
  75
  76 testcase tEditUndoRedo
  77     PrintLog "- Edit/Undo - Redo"
  78
  79     PrintLog "Open new document"
  80     hNewDocument()
  81
  82     PrintLog "Insert table"
  83     Call hTabelleEinfuegen
  84
  85     PrintLog "Edit / Undo"
  86     hUseAsyncSlot( "EditUndo" )
  87
  88     PrintLog "Undo / Redo"
  89     hUseAsyncSlot( "EditRedo" )
  90
  91     PrintLog "Edit / Undo"
  92     hUseAsyncSlot( "EditUndo" )
  93
  94     PrintLog "File / Close"
  95     hUseAsyncSlot( "FileClose" )
  96
  97     Kontext "Active"
  98     if ( Active.Exists( 1 ) ) then
  99         warnlog( "No messagebox was expected upon file close" )
 100         printlog( Active.getText )
 101         Active.no()
 102     end if
 103
 104 endcase
 105
 106 '----------------------------------------------------
 107
 108 testcase tEditRepeat
 109     PrintLog "- Edit/Repeat"
 110
 111     PrintLog "Open new document"
 112     Call hNewDocument
 113
 114     PrintLog "Insert table"
 115     Call hTabelleEinfuegen
 116
 117     PrintLog "Move cursor out of table"
 118     Call wTypeKeys("<Down><Down>")
 119
 120     PrintLog "Edit / Repeat"
 121     hUseAsyncSlot( "EditRepeat" )
 122
 123     PrintLog "Close active document"
 124     Call hCloseDocument
 125 endcase
 126
 127 '----------------------------------------------------
 128
 129 testcase tEditPaste
 130     PrintLog "- Edit/Paste"
 131
 132     PrintLog "Open new document"
 133     Call hNewDocument
 134
 135     PrintLog "Insert some text in document"
 136     Call wTypeKeys("What a beatiful day !")
 137
 138     PrintLog "Edit / Select All"
 139     hUseAsyncSlot( "EditSelectAll" )
 140
 141     PrintLog "Edit / Cut"
 142     hUseAsyncSlot( "EditCut" )
 143
 144     PrintLog "Edit / Paste"
 145     hUseAsyncSlot( "EditPaste" )
 146
 147     PrintLog "Type <Shift Home >"
 148     Call wTypeKeys("<Shift Home>")
 149
 150     PrintLog "Edit / Copy"
 151     hUseAsyncSlot( "EditCopy" )
 152
 153     PrintLog "Enter 2 Line breaks"
 154     Call wTypeKeys("<Return>", 2)
 155
 156     PrintLog "Edit / Paste"
 157     hUseAsyncSlot( "EditPaste" )
 158
 159     PrintLog "Edit / Select All"
 160     hUseAsyncSlot( "EditSelectAll" )
 161
 162     PrintLog "Edit / Cut"
 163     hUseAsyncSlot( "EditCut" )
 164
 165     PrintLog "Close active document"
 166     Call hCloseDocument
 167 endcase
 168
 169 '----------------------------------------------------
 170
 171 testcase tEditPasteSpecial
 172     PrintLog "- Edit/Paste Special"
 173     PrintLog "Open new document"
 174     Call hNewDocument
 175
 176     PrintLog "  - External Clipboard"
 177     PrintLog "Enter some text in external clipboard"
 178     SetClipboard "Text from external clipboard!"
 179
 180     PrintLog "Paste from external clipboard with Edit / Paste in Office"
 181     hUseAsyncSlot( "EditPaste" )
 182
 183     Call wTypeKeys("<Mod1 A>")
 184     Wait(200)
 185     hUseAsyncSlot( "EditCopy" )
 186
 187     if GetClipboardText <> "Text from external clipboard!" then
 188         Warnlog "External Clipboard not available!"
 189         Warnlog "Is: " & GetClipboardText
 190     end if
 191     Call wTypeKeys("<End><Return>")
 192     SetClipboard ""
 193     SetClipboard "2nd Text from external clipboard!"
 194     try
 195         PrintLog "Edit / Paste / Special"
 196         hUseAsyncSlot( "EditPasteSpecialWriter" )
 197
 198         Kontext "InhaltEinfuegen"
 199         if ( InhaltEinfuegen.Exists( 2 ) ) then
 200             try
 201                 Auswahl.Select 1
 202             catch
 203                 Warnlog "Unable to select entry in format list !"
 204                 InhaltEinfuegen.Close
 205                 Call hCloseDocument
 206                 goto endsub
 207             endcatch
 208             InhaltEinfuegen.OK
 209             Wait(200)
 210             Kontext "Active"
 211             if Active.Exists then
 212                 if Active.GetRT = 304 then
 213                     Warnlog "Maybe Bug#109331"
 214                     Warnlog Active.Gettext
 215                     try
 216                         Active.Ok
 217                     catch
 218                         Active.No
 219                     endcatch
 220                 end if
 221             else
 222                 Call wTypeKeys("<Home><Shift End>")
 223                 hUseAsyncSlot( "EditCopy" )
 224                 if GetClipboardText <> "2nd Text from external clipboard!" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText
 225             end if
 226         else
 227             Warnlog "Dialog 'Paste Special' is not up!"
 228         end if
 229     catch
 230         Exceptlog
 231     endcatch
 232
 233     PrintLog "  - Internal Clipboard with StarOffice Writer-Text"
 234     PrintLog "Enter some text in writer and copy it"
 235     Call wTypeKeys("<Return>Text from internal clipboard<Shift Home>")
 236     hUseAsyncSlot( "EditCopy" )
 237     Call wTypeKeys("<End><Return>")
 238     hUseAsyncSlot( "EditPasteSpecialWriter" )
 239
 240     PrintLog "Edit / Paste / Special"
 241     Kontext "InhaltEinfuegen"
 242     if ( InhaltEinfuegen.Exists( 2 ) ) then
 243         DialogTest ( InhaltEinfuegen )
 244         Auswahl.Select 1
 245         InhaltEinfuegen.OK
 246         Call wTypeKeys "<Home><Shift End>"
 247         hUseAsyncSlot( "EditCopy" )
 248         if GetClipboardText <> "Text from internal clipboard" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText
 249     else
 250         Warnlog "Dialog 'Paste Special' is not up!"
 251     end if
 252
 253     Call hCloseDocument
 254     PrintLog "Close active document"
 255
 256 endcase
 257
 258 '----------------------------------------------------
 259
 260 testcase tEditSelectionMode
 261
 262     PrintLog "    - Edit - Selection Mode"
 263     PrintLog "    Open new writer document"
 264     Call hNewDocument
 265
 266     PrintLog "    Try to switch to / activate the Block-selectionmode."
 267     if ( hUseAsyncSlot( "EditSelectionModeBlock" ) = -1 ) then
 268         warnlog "    Could not activate Blockmode via Edit-menu."
 269     endif
 270
 271     PrintLog "    Try to switch to / activate the Standard-selectionmode."
 272     if ( hUseAsyncSlot( "EditSelectionModeStandard" ) = -1 ) then
 273         warnlog "    Could not activate Blockmode via Edit-menu."
 274     endif
 275
 276     PrintLog "    Close active document."
 277     Call hCloseDocument
 278
 279 endcase 'tEditSelectionMode
 280
 281 '----------------------------------------------------
 282
 283 testcase tEditChanges
 284
 285     PrintLog "- Edit/Changes"
 286     if gApplication = "HTML" then
 287         printlog "Not in WriterWeb!"
 288         goto endsub
 289     end if
 290
 291     PrintLog "Open new document"
 292     Call hNewDocument
 293
 294     PrintLog "Enter some text in document"
 295     Call wTypeKeys("Hallo<Return><Return>")
 296
 297     PrintLog "Select Edit / Changes / Record"
 298     hUseAsyncSlot( "EditChangesRecord" )
 299
 300     PrintLog "Enter some more text in document"
 301     Call wTypeKeys("Aenderung 1<Return><Up><Up><End>")
 302     Call wTypeKeys("<Backspace>", 4)
 303
 304     PrintLog "Select Edit / Changes / Record"
 305     hUseAsyncSlot( "EditChangesRecord" )
 306
 307     PrintLog "Select Edit / Changes / Show"
 308     hUseAsyncSlot( "EditChangesShow" )
 309
 310     PrintLog "Select Edit / Changes / Show"
 311     hUseAsyncSlot( "EditChangesShow" )
 312
 313     PrintLog "Select Edit / Changes / Protect Trace"
 314     hUseAsyncSlot( "EditChangesProtectTrace" )
 315
 316     PrintLog "Passwort-dialog has to come up, cancel it"
 317     Kontext "Passwort"
 318     hCloseDialog( Passwort, "close" )
 319
 320     PrintLog "Edit / Changes / Accept or Reject"
 321     EditChangesAcceptOrReject
 322
 323     PrintLog "Dialog 'Accept or reject changes' has to come up"
 324     Kontext "Redlining"
 325     if Redlining.Exists then
 326         PrintLog "Step through all Tabpages"
 327         TabControl.SetPage TabListe
 328         Call DialogTest ( Redlining )
 329         TabControl.SetPage TabFilter
 330         Call DialogTest ( Redlining )
 331         Redlining.Close
 332         PrintLog "Close dialog"
 333     else
 334         Warnlog "Dialog 'Redlining' not opened!"
 335     end if
 336
 337     Call wTypeKeys("<Down><Right>")
 338
 339     PrintLog "Point cursor into a changed text in document"
 340     PrintLog "Edit / Changes / Comment"
 341     if ( hUseAsyncSlot( "EditChangesComment" ) = -1 ) then
 342         Call wTypeKeys("<Up>")
 343         if ( hUseAsyncSlot( "EditChangesComment" ) = -1 ) then
 344             Warnlog "Unable to execute 'Edit / Changes / Comment!"
 345         endif
 346     endif
 347
 348     Kontext "Kommentar"
 349     PrintLog "Dialog to comment a change has to come up"
 350     if ( Kommentar.Exists( 5 ) ) then
 351         Call DialogTest ( Kommentar )
 352         Kommentar.Cancel
 353     else
 354         Warnlog "Dialog 'Comment' not opened!"
 355         PrintLog "Close dialog 'Comment'"
 356     end if
 357
 358     PrintLog "Close active document"
 359     Call hCloseDocument
 360
 361 endcase
 362
 363 '----------------------------------------------------
 364
 365 testcase tEditCompareDocument
 366
 367     PrintLog "- Edit/Compare Document"
 368
 369     dim sFile as string
 370         sFile = gTesttoolPath & "writer\required\input\bt.sxw"
 371
 372     if ( gApplication <> "WRITER" ) then
 373         printlog( "Test only designed for WRITER, skipping" )
 374         goto endsub
 375     endif
 376
 377     call hNewDocument()
 378
 379     printlog( "Open test document")
 380     EditCompareDocumentCalc
 381
 382     Kontext "OeffnenDlg"
 383     printlog( "File Open dialog" )
 384     if ( OeffnenDlg.exists( 2 ) ) then
 385
 386         printlog( "Load file: " & sFile )
 387         Dateiname.SetText ConvertPath ( sFile )
 388         Oeffnen.Click()
 389
 390         Kontext "FilterAuswahl"
 391         printlog( "Check for filterselection dialog (comes up e.g. if file is broken)" )
 392         if Filterauswahl.Exists( 2 ) then
 393             warnlog( "Dialog <Filterauswahl> was not expected at this point" )
 394             Filterauswahl.OK()
 395         else
 396             printlog( "No dialog <Filterauswahl>, good" )
 397         endif
 398
 399         Kontext "Active"
 400         if Active.Exists( 1 ) then
 401             warnlog( "Unexpected messagebox displayed:" )
 402             printlog( Active.getText() )
 403             Active.Ok()
 404         else
 405             printlog( "No unexpected messageboxes, good." )
 406         endif
 407
 408         Kontext "Redlining"
 409         PrintLog "Dialog 'Accept and Reject changes' has to come up"
 410         if Redlining.Exists( 1 ) then
 411             TabControl.SetPage TabListe
 412             wait 200
 413             Kontext "Redlining"
 414             TabControl.SetPage TabFilter
 415             Kontext "Redlining"
 416             hCloseDialog( Redlining, "close" )
 417         else
 418             Warnlog "- Dialog 'Redlining' does not exist!"
 419         endif
 420     else
 421         warnlog( "Dialog <FileOpen> did not open")
 422     endif
 423
 424     PrintLog "Close active document"
 425     Call hCloseDocument
 426
 427 endcase
 428
 429 '----------------------------------------------------
 430
 431 testcase tEditFindAndReplace
 432     PrintLog "- Edit/Find & Replace"
 433
 434     PrintLog "Open new document"
 435     Call  hNewDocument
 436     EditSearchAndReplace
 437     PrintLog "Edit / Find and Replace"
 438     Kontext "FindAndReplace"
 439     if Attributes.IsVisible = False then
 440         More.Click
 441     end if
 442
 443     Attributes.Click
 444     PrintLog "in 'Find&Replace' dialog click 'Attributess'"
 445     Kontext "Attribute"
 446     Call DialogTest ( Attribute )
 447     PrintLog "Cancel dialog 'Attributess'"
 448     Attribute.Cancel
 449
 450     Kontext "FindAndReplace"
 451     Call DialogTest ( FindAndReplace )
 452     PrintLog "In Find&Replace dialog uncheck 'Match case'"
 453     SimilaritySearch.UnCheck
 454     PrintLog "Click 'Format'"
 455     Formats.Click
 456     PrintLog "In dialog 'Text format' step throug all tabpages"
 457
 458     Kontext
 459     active.SetPage TabFont
 460     kontext "TabFont"
 461     Call DialogTest ( TabFont )
 462     Kontext
 463     active.SetPage TabFontEffects
 464     kontext "TabFontEffects"
 465     Call DialogTest ( TabFontEffects )
 466
 467     Kontext
 468     active.SetPage TabEinzuegeUndAbstaende
 469     kontext "TabEinzuegeUndAbstaende"
 470     Call DialogTest ( TabEinzuegeUndAbstaende )
 471
 472     Kontext
 473     Active.SetPage TabAusrichtungAbsatz
 474     Kontext "TabAusrichtungAbsatz"
 475     Call DialogTest ( TabAusrichtungAbsatz )
 476
 477     Kontext
 478     active.SetPage TabTextfluss
 479     kontext "TabTextfluss"
 480     Call DialogTest ( TabTextfluss )
 481
 482     Kontext
 483     active.SetPage TabHintergrund
 484     kontext "TabHintergrund"
 485     Call DialogTest ( TabHintergrund )
 486     TabHintergrund.Cancel
 487     PrintLog "Close 'Text Format' dialog with cancel"
 488     Wait 300
 489
 490     Kontext "FindAndReplace"
 491     PrintLog "In Find&Replace' select 'Similarity Search'"
 492     SimilaritySearch.Check
 493     PrintLog "The Searchbutton should be enabled, click it"
 494     SimilaritySearchFor.Click
 495     wait 300
 496
 497     Kontext "Aehnlichkeitssuche"
 498     DialogTest ( Aehnlichkeitssuche )
 499     Aehnlichkeitssuche.Cancel
 500
 501     wait 300
 502     PrintLog "Close 'Similarity Search' button with cancel"
 503     Kontext "FindAndReplace"
 504     SimilaritySearch.Uncheck
 505     More.Click
 506     FindAndReplace.Close
 507
 508     Call hCloseDocument
 509     PrintLog "Close active document"
 510 endcase
 511
 512 '----------------------------------------------------
 513
 514 testcase tViewNavigator
 515     printlog "- Edit/Navigator"
 516     Dim ToolboxOk as boolean
 517
 518     Call hNewDocument
 519     PrintLog "Open new document"
 520
 521     if gApplication = "MASTERDOCUMENT" then
 522         Kontext "NavigatorGlobalDoc"
 523         if Not NavigatorGlobalDoc.Exists then ViewNavigator
 524         Kontext "NavigatorGlobalDoc"
 525         Call DialogTest ( NavigatorGlobalDoc )
 526
 527         printlog " - Umschalten"
 528         GlobaldokumentToolbox.Click Umschalten
 529         Sleep 5
 530         kontext "NavigatorWriter"
 531
 532         try
 533             Toolbox.TearOff Navigation
 534             Kontext "NavigationsFenster"
 535             NavigationsFenster.Close
 536         catch
 537             Warnlog "Unable to Tear off Navigation Toolbox!"
 538         endcatch
 539
 540         Kontext "NavigatorWriter"
 541         Umschalten.Click
 542
 543         Kontext "NavigatorGlobalDoc"
 544         printlog( "Click <Edit>" )
 545         if ( hClickButton( Bearbeiten ) = -1 ) then
 546             warnlog( "Unable to click <Edit> button, cannot switch Navigator-Mode" )
 547         endif
 548
 549         Kontext "Navigator"
 550         hCloseDialog( Navigator, "close" )
 551         Call hCloseDocument
 552         PrintLog "Close active document"
 553         goto endsub
 554     end if
 555
 556     Kontext "NavigatorWriter"
 557     if Not NavigatorWriter.Exists then ViewNavigator
 558     Kontext "NavigatorWriter"
 559     PrintLog "Open Navigator"
 560     Call DialogTest ( NavigatorWriter )
 561
 562     printlog "  - Navigation"
 563     ToolboxOK = True
 564     try
 565         PrintLog "Tear Off Toolbox from Navigator"
 566         Toolbox.TearOff Navigation
 567     catch
 568         Warnlog "Unable to tear off Toolbox (#i32092)"
 569         ToolboxOk = False
 570     endcatch
 571
 572     if ToolboxOK = True then
 573         Kontext "NavigationsFenster"
 574         wait 200
 575         try
 576             PrintLog "Close Navigator Toolbox"
 577             NavigationsFenster.Close
 578         catch
 579         endcatch
 580     end if
 581
 582     Kontext "NavigatorWriter"
 583     wait 200
 584     PrintLog "  - In Navigator window click 'Previous page'"
 585     VorherigeSeite.Click
 586     Kontext "Active"
 587     if Active.Exists then
 588         if Active.GetRT = 304 then
 589             try
 590                 Active.No
 591             catch
 592                 Active.Ok
 593             endcatch
 594         end if
 595     end if
 596     wait 200
 597
 598     Kontext "NavigatorWriter"
 599     PrintLog "- In Navigator window click 'Next page'"
 600     NaechsteSeite.Click
 601     Kontext "Active"
 602     if Active.Exists then
 603         if Active.GetRT = 304 then
 604             try
 605                 Active.No
 606             catch
 607                 Active.Ok
 608             endcatch
 609         end if
 610     end if
 611     wait 300
 612
 613     printlog "  - switch Selection box off and on"
 614     Kontext "NavigatorWriter"
 615     if Auswahlliste.Exists then Auswahlbox.Click
 616     wait 200
 617     Auswahlbox.Click
 618     wait 200
 619     if Auswahlliste.NotExists then
 620         Warnlog "Navigator not maximized"
 621         Auswahlbox.Click
 622     end if
 623
 624     printlog "  - Switch Content View on and off"
 625     Inhaltsansicht.Click
 626     wait 200
 627     Inhaltsansicht.Click
 628     wait 200
 629
 630     printlog "  - Set Note"
 631     Merker.Click
 632     wait 200
 633
 634     printlog "  - jump to header"
 635     Kopfzeile.Click
 636     wait 200
 637
 638     printlog "  - jump to footer"
 639     Fusszeile.Click
 640     wait 200
 641
 642     printlog "  - to Anchor <-> Text"
 643     AnkerText.Click
 644     wait 200
 645
 646     Kontext "Navigator"
 647     try
 648         PrintLog "Close Navigator"
 649         Navigator.Close
 650     catch
 651         Errorlog
 652         ViewNavigator
 653     endcatch
 654
 655     PrintLog "Close active document"
 656     Call hCloseDocument
 657 endcase
 658
 659 '---------------------------------------------------
 660
 661 testcase tEditAutotext
 662     Dim j as integer
 663     Dim i as integer
 664     Dim CurrentEntryNr as integer
 665     Dim unxAutotextCategorie as integer
 666
 667     PrintLog "Open new document"
 668     Call hNewDocument
 669
 670     PrintLog "Edit / Autotext"
 671     EditAutotext
 672     Kontext "AutoText"
 673     DialogTest ( AutoText )
 674
 675     Kontext "AutoText"
 676     Printlog "If it exists: Delete DummyAutotext."
 677     if wDeleteAutotext("DummyAutotext") = true then
 678         qaerrorlog "DummyAutotext from previous testrun found, now deleted."
 679     end if
 680
 681     PrintLog "Click Categories"
 682     Kontext "Autotext"
 683     Bereiche.Click
 684
 685     Kontext "BereicheBearbeitenAutoText"
 686     if BereicheBearbeitenAutoText.Exists( 2 ) then
 687         DialogTest ( BereicheBearbeitenAutoText )
 688         PrintLog "Create a new categorie"
 689         Bereich.SetText "Hallo"
 690         if Not Umbenennen.IsEnabled then
 691             if gNetzInst = False then
 692                 Warnlog "- Not able to rename Categories, Button 'Rename' disabled!"
 693             end if
 694         end if
 695
 696         if Neu.IsEnabled then
 697             Neu.Click
 698             Wait (200)
 699
 700             printlog( "Click <Delete>" )
 701             if ( hClickButton( Loeschen ) = -1 ) then
 702                 warnlog( "Unable to delete category, the button is disabled" )
 703             endif
 704         else
 705             if gNetzInst = False then
 706                 Warnlog "- Category cannot be created!"
 707             end if
 708         end if
 709         BereicheBearbeitenAutoText.Cancel
 710     else
 711         Warnlog "- Dialog to edit Categories not up!"
 712     end if
 713     PrintLog "Close 'Edit Categories with 'Cancel'"
 714
 715     Kontext "AutoText"
 716     PrintLog "In Autotext dialog click 'Path..'"
 717     Pfade.Click
 718     Kontext "PfadeAuswaehlen"
 719     DialogTest ( PfadeAuswaehlen )
 720     Kontext "PfadeAuswaehlen"
 721     PrintLog "On 'Select Paths' dialog click 'add'"
 722     Hinzufuegen.Click
 723
 724     Kontext "OeffnenDlg"
 725     if OeffnenDlg.Exists( 2 ) then
 726         PrintLog "Cancel File-Open dialog"
 727         hCloseDialog( OeffnenDlg, "cancel" )
 728     else
 729         Warnlog "Dialog ' Select Paths' not up!"
 730     end if
 731
 732     Kontext "PfadeAuswaehlen"
 733     PrintLog "Cancel dialog 'Select Paths'"
 734     hCloseDialog( PfadeAuswaehlen, "cancel" )
 735
 736     Kontext "AutoText"
 737     PrintLog "We have to create an autotext first"
 738     PrintLog "to assure the 'Autotext'-Button enabled"
 739     printlog "First close all categories"
 740     Liste.TypeKeys "<Home>"
 741     for i = 1 to Liste.GetItemCount
 742         Liste.TypeKeys "-"
 743         Liste.TypeKeys "<Down>"
 744     next i
 745
 746     unxAutotextCategorie = 1
 747     printlog "choose category and remember entry number"
 748     Liste.TypeKeys "<Home>"
 749     for i = 1 to Liste.GetItemCount
 750         if Not Menue.IsEnabled then
 751             Liste.TypeKeys "<Down>"
 752             unxAutotextCategorie = unxAutotextCategorie + 1
 753         end if
 754     next i
 755     Autotext.Close
 756     Call wTypeKeys ( "Create a dummy autotext" )
 757     Call wTypeKeys ( "<Shift Home>" )
 758     EditAutotext
 759     Kontext "AutoText"
 760     WaitSlot(3000)
 761     Liste.Select unxAutotextCategorie
 762     NameText.Settext "DummyAutotext"
 763     Kuerzel.Settext "dAt"
 764     if Menue.IsEnabled(1) then
 765         Menue.Click
 766         wait 500
 767         try
 768             Call hMenuSelectNr ( 1 )  'New
 769         catch
 770             ' This is a workaround as sometimes menu isn't opened for some reason
 771             Menue.Click
 772             wait 500
 773             try
 774                 Call hMenuSelectNr ( 1 )
 775             catch
 776                 Warnlog "Unable to create autotext"
 777                 Autotext.Close
 778                 Call hCloseDocument
 779                 goto endsub
 780             endcatch
 781         endcatch
 782         Autotext.Close
 783         Call wTypeKeys "<Home>"
 784     else
 785         Warnlog "Unable to create autotext"
 786         Autotext.Close
 787         Call hCloseDocument
 788         goto endsub
 789     end if
 790
 791     printlog "Select created autotext"
 792     EditAutotext
 793     WaitSlot (2000)
 794     Kontext "Autotext"
 795     Liste.Select unxAutotextCategorie
 796     Liste.TypeKeys "+"
 797     Liste.TypeKeys "<Down>"
 798     wait (500)
 799
 800     if Menue.IsEnabled(1) then
 801         Menue.Click
 802         wait 300
 803         try
 804             PrintLog "Select Autotext / Rename"
 805             Call hMenuSelectNr ( 2 )  'Rename
 806             wait 500
 807         catch
 808             ' This is a workaround as sometimes menu isn't opened for some reason
 809             Menue.Click
 810             wait 500
 811             try
 812                 Call hMenuSelectNr ( 2 )
 813                 wait 300
 814             catch
 815                 Warnlog "Unable to rename autotext"
 816                 Autotext.Close
 817                 Call hCloseDocument
 818                 goto endsub
 819             endcatch
 820         endcatch
 821     else
 822         Warnlog "Unable to rename autotext"
 823         Autotext.Close
 824         Call hCloseDocument
 825         goto endsub
 826     end if
 827
 828     Kontext "TextbausteineUmbenennen"
 829     if TextbausteineUmbenennen.Exists(5) then
 830         Call DialogTest ( TextbausteineUmbenennen )
 831         PrintLog "Cancel 'Rename Autotext'"
 832         TextbausteineUmbenennen.Cancel
 833         Wait (500)
 834     else
 835         Warnlog "Dialog 'Rename Autotext' not up!"
 836     end if
 837
 838     Kontext "AutoText"
 839     Menue.Click
 840     wait (500)
 841     try
 842         PrintLog "Select Autotext / Macro"
 843         Call hMenuSelectNr ( 5 )
 844         ' if no JRE is installed a messagebox appears
 845         Do
 846             j = j + 1
 847             Kontext "Active"
 848             if Active.Exists then
 849                 if Active.GetRT = 304 then
 850                     if j = 1 then Warnlog Active.Gettext
 851                     Active.Ok
 852                 else
 853                     exit do
 854                 end if
 855             else
 856                 exit do
 857             end if
 858         Loop
 859
 860         ' Dialog needs some time to be opened
 861         Kontext "MakroZuweisen"
 862         printlog( "Close <MakroZuweisen> dialog" )
 863         if ( MakroZuweisen.exists( 5 ) ) then
 864             call Dialogtest( MakroZuweisen )
 865             hCloseDialog( MakroZuweisen, "close" )
 866         else
 867             warnlog "AutoText-Macro - Assign Macro took longer than 5 seconds to load. Check why."
 868         endif
 869     catch
 870         Warnlog "Menu Autotext->'Macro' disabled !"
 871         Call hMenuClose
 872     endcatch
 873
 874     Kontext "AutoText"
 875     Menue.Click
 876     wait 500
 877     try
 878         PrintLog "Select Autotext / Edit"
 879         Call hMenuSelectNr ( 4 )
 880         Sleep 1
 881         PrintLog "Enter some text in document and close it"
 882         Call wTypeKeys("Hallo")
 883         if GetDocumentCount = 1 then
 884             Warnlog "The autotext has been edited in current document!"
 885         else
 886             hUseAsyncSlot( "FileClose" )
 887             Kontext "Active"
 888             PrintLog "A message that module has been changed should come up"
 889             if Active.Exists then
 890                 Active.No
 891             else
 892                 Warnlog "Though changing the text module the document could be closed without a query!"
 893             end if
 894         end if
 895     catch
 896         Warnlog "Menu Autotext->'Edit' disabled !"
 897         Kontext "Active"
 898         if Active.Exists then
 899             if Active.GetRT = 304 then
 900                 Warnlog Active.Gettext
 901                 try
 902                     Active.No
 903                 catch
 904                     Active.Ok
 905                 endcatch
 906             end if
 907         end if
 908     endcatch
 909
 910     PrintLog "Close 'Autotext' dialog"
 911     Kontext "Autotext"
 912     if Autotext.Exists then Autotext.Close
 913     if wDeleteAutotext("DummyAutotext") = false then
 914         Warnlog "Unable to delete created autotext"
 915     end if
 916     Kontext "Autotext"
 917     if Autotext.Exists then Autotext.Close
 918
 919     PrintLog "Close active document"
 920     Call hCloseDocument
 921 endcase
 922
 923 '----------------------------------------------------------------
 924
 925 testcase tEditHyperlink
 926     Printlog "- Edit / Hyperlink"
 927
 928     PrintLog "Open new document"
 929     Call hNewDocument
 930
 931     PrintLog "Insert / Hyperlink"
 932     InsertHyperlink
 933
 934     kontext "HyperlinkDialog"
 935     if ( HyperlinkDialog.exists( 2 ) ) then
 936
 937         PrintLog "Insert / Hyperlink"
 938         Call wEinfuegenHyperlink(1)
 939
 940         Kontext "TabHyperlinkInternet"
 941         printlog( "Check <Internet>" )
 942         Internet.Check()
 943
 944         PrintLog "Enter URL "
 945         ZielUrl.Settext "http://www.sonor.de"
 946
 947         Kontext "Hyperlink"
 948         PrintLog "Click 'Apply'"
 949         Uebernehmen.Click
 950
 951         kontext "HyperlinkDialog"
 952         PrintLog "Close Hyperlink dialog"
 953         hClickButton( CloseButton )
 954     else
 955         warnlog( "Dialog <Hyperlink> did not open" )
 956         hCloseDocument()
 957         goto endsub
 958     endif
 959
 960     hSetDocumentContext()
 961
 962     PrintLog "Check if correct URL has been set to document"
 963     if ( hUseAsyncSlot( "EditCopy" ) > -1 ) then
 964         if GetClipBoardtext = "" then
 965             Warnlog "No Hyperlink or wrong hyperlink in document!" & GetClipBoardtext
 966         end if
 967     else
 968         warnlog( "Slot <EditCopy> could not be executed. Most likely the hyperlink was not selected" )
 969     endif
 970
 971     PrintLog "Set cursor into link"
 972     Call wTypeKeys("<Left>")
 973
 974     PrintLog "Edit / Hyperlink has to be enabled"
 975     if ( hUseAsyncSlot( "EditHyperlink" ) > -1 ) then
 976         kontext "HyperlinkDialog"
 977         hClickButton( CloseButton )
 978     else
 979         warnlog( "Slot <EditHyperlink> could not be called" )
 980     endif
 981
 982     PrintLog "Close active document"
 983     Call hCloseDocument
 984 endcase
 985
 986 ' ----------------------------------------------------------------
 987
 988 testcase tEditFields
 989
 990     PrintLog( "Edit/Fields: Edit Fields dialog: " & gApplication )
 991     dim iCurrentType as integer
 992
 993     PrintLog( "Open new document" )
 994     Call hNewDocument()
 995
 996     printlog( "Insert->Field->Other" )
 997     hUseAsyncSlot( "InsertFieldsOther" )
 998
 999     ' Note that the tabdialog does not have a unique ID yet, so we treat it as "Active"
1000     kontext
1001     if ( Active.exists( 2 ) ) then
1002
1003         printlog( "Switch to <Document> tab" )
1004         Active.setPage( TabDokumentFeldbefehle )
1005
1006         kontext "TabDokumentFeldbefehle"
1007         printlog( "Select sender item from the user data, insert the field, close the dialog" )
1008         if ( TabDokumentFeldbefehle.isVisible() ) then
1009
1010             ' Search for the sender item in the "Type" listbox by counting the
1011             ' number of items in the "Select" box. Only the sender item has
1012             ' more than 12 (usually 15) selectable options.
1013             ' This is done to make sure that we have an enabled "Edit..." button
1014             ' in the "Edit Fields" dialog called later in this test
1015             printlog( "Search for suitable field type" )
1016             for iCurrentType = 1 to FeldTyp.getItemCount()
1017                 FeldTyp.select( iCurrentType )
1018                 if ( Auswahl.isEnabled() and Auswahl.getItemCount() > 12 ) then
1019                     exit for
1020                 endif
1021             next iCurrentType
1022
1023             hClickButton( Einfuegen )
1024             hCloseDialog( TabDokumentFeldbefehle , "close" )
1025
1026             PrintLog( "Move cursor infront of field (start of document)" )
1027             Call wTypeKeys("<Home>")
1028
1029             PrintLog( "Edit / Fields" )
1030             hUseAsyncSlot( "EditFields" )
1031
1032             Kontext "FeldbefehlBearbeitenDokument"
1033             if ( FeldbefehlBearbeitenDokument.exists( 2 ) ) then
1034                 Call DialogTest ( FeldbefehlBearbeitenDokument )
1035
1036                 PrintLog( "In 'Edit Fields' dialog select 'Edit'" )
1037                 hClickButton( Bearbeiten )
1038
1039                 Kontext "TabBenutzerdaten"
1040                 if ( TabBenutzerdaten.exists( 2 ) ) then
1041                     printlog( "<TabBenutzerdaten> is open. Good." )
1042                     call DialogTest( TabBenutzerdaten )
1043                     hCloseDialog( TabBenutzerdaten, "cancel" )
1044                 else
1045                     warnlog( "<TabBenutzerdaten> did not open" )
1046                 endif
1047             else
1048                 warnlog( "<TabDokumentFeldbefehle> is not visible" )
1049             endif
1050
1051             PrintLog( "Close dialog" )
1052             Kontext "FeldbefehlBearbeitenDokument"
1053             hCloseDialog( FeldbefehlBearbeitenDokument, "cancel" )
1054         else
1055             warnlog( "<FeldbefehlBearbeitenDokument> did not open" )
1056         endif
1057     else
1058         warnlog( "Unable to open <InsertFieldsOther>")
1059     endif
1060
1061     PrintLog( "Close active document" )
1062     Call hCloseDocument()
1063
1064 endcase
1065
1066 '----------------------------------------------------------------
1067
1068 testcase tEditFieldsInputList
1069     PrintLog "- Edit / Fields / Functions"
1070     If gApplication = "HTML" then goto endsub
1071
1072     PrintLog "Open new document"
1073     Call hNewDocument
1074
1075     PrintLog "Select Insert / Fields Other"
1076     InsertFieldsOther
1077     PrintLog "Goto Tabpage Functions and select 2nd entry (Input list)"
1078     Kontext
1079     Active.Setpage TabFunktionen
1080     Kontext "TabFunktionen"
1081     Sleep 1
1082     Feldtyp.Select 2
1083     if NewListEntry.IsVisible and NewListEntry.IsEnabled then
1084         PrintLog "Add 1 entry to list"
1085         if NewListEntry.IsEnabled then
1086             NewListEntry.Settext "MyNewListEntry"
1087             wait 200
1088             if AddListEntry.IsEnabled= True then AddListEntry.Click
1089         end if
1090         PrintLog "Close Fields dialog"
1091         if EntrysList.GetItemCount <> 1 then
1092             Warnlog "Entry has not been added to list!"
1093             Schliessen.Click
1094         else
1095             Einfuegen.Click
1096             Wait 500
1097             Schliessen.Click
1098             Call wTypeKeys "<Home>"
1099             try
1100                 Call wTypeKeys "<Mod1 Shift F9>"
1101                 wait 200
1102                 Kontext "EditInputList"
1103                 if EditInputList.Exists then
1104                     Call DialogTest ( EditInputList )
1105                     EditInputList.Cancel
1106                 else
1107                     Warnlog "Dialog 'Edit Input list' is not up!"
1108                 end if
1109             catch
1110                 Warnlog "Unable to 'Edit / Fields'!"
1111             endcatch
1112         end if
1113     else
1114         Warnlog "'Input list' probably not found!"
1115     end if
1116
1117     PrintLog "Close active document"
1118     Call hCloseDocument
1119 endcase
1120
1121 '----------------------------------------------------------------
1122
1123 testcase tEditFootnote
1124     PrintLog "- Edit/Footnote"
1125
1126     PrintLog "Open new document"
1127     Call hNewDocument
1128
1129     PrintLog "Insert / Footnote"
1130     InsertFootnote
1131     Kontext "FussnoteEinfuegen"
1132     FussnoteEinfuegen.OK
1133
1134     Call wTypeKeys("<PageUp><Left>")
1135
1136     PrintLog "Edit / Footnote"
1137     EditFootnote
1138
1139     Kontext "FussnoteBearbeiten"
1140     Call DialogTest ( FussnoteBearbeiten )
1141     PrintLog "Close 'Footnote' dialog"
1142     FussnoteBearbeiten.Cancel
1143
1144     PrintLog "Close active document"
1145     Call hCloseDocument
1146 endcase
1147
1148 '----------------------------------------------------------------
1149
1150 testcase tEditIndexEntry
1151
1152     PrintLog "- Edit/Index Entry"
1153     if gApplication = "HTML" then
1154         printlog "Not in WriterWeb!"
1155         goto endsub
1156     end if
1157
1158     PrintLog "Open new document"
1159     Call hNewDocument
1160
1161     PrintLog "Write down something in document"
1162     Call wTypeKeys("Ich werde ein Verzeichniseintrag")
1163     Call wTypeKeys("<Left>")
1164     InsertIndexesEntry
1165     PrintLog "Insert / Indexes / Entry"
1166     Kontext "VerzeichniseintragEinfuegen"
1167     try
1168         PrintLog "Close dialog"
1169         EintragOk.Click
1170     catch
1171         Warnlog "Index entry couldn't be inserted!(Button disabled)"
1172     endcatch
1173     EinfuegenSchliessen.Click
1174
1175     Call wTypeKeys("<End><Left>")
1176     try
1177         PrintLog "Point cursor in Index entry"
1178         EditIndexEntry
1179         PrintLog "Edit / Index entry"
1180         Kontext "VerzeichniseintragBearbeiten"
1181         Call DialogTest (VerzeichniseintragBearbeiten)
1182         BearbeitenSchliessen.Click
1183     catch
1184         Warnlog "Not able to edit index entry!"
1185     endcatch
1186
1187     Call hCloseDocument
1188     PrintLog "Close active document"
1189 endcase
1190
1191 '----------------------------------------------------------------
1192
1193 testcase tEditLinks
1194     PrintLog "- Edit/Links"
1195
1196     dim sFile as string
1197         sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg"
1198
1199     if ( gApplication = "HTML" ) then
1200         printlog "Not in WriterWeb!"
1201         goto endsub
1202     end if
1203
1204     printlog( "Open a new document" )
1205     Call hNewDocument
1206
1207     printlog( "Insert graphic file (linked): " & sFile )
1208     Call hGrafikVerknuepftEinfuegen ( sFile )
1209
1210     printlog( "Edit->Links" )
1211     if ( hUseAsyncSlot( "EditLinksWriter" ) = -1 ) then
1212         Warnlog "Error on calling Edit / Links ! (disabled)"
1213         Call hCloseDocument
1214         goto endsub
1215     endif
1216
1217     Kontext "VerknuepfungenBearbeiten"
1218     if ( VerknuepfungenBearbeiten.Exists( 1 ) ) then
1219         Call DialogTest ( VerknuepfungenBearbeiten )
1220
1221         Kontext "VerknuepfungenBearbeiten"
1222         printlog( "Click <Change>" )
1223         if ( hClickButton( Aendern ) > -1 ) then
1224             Kontext "GrafikEinfuegenDlg"
1225             call DialogTest( GrafikEinfuegenDlg )
1226             hCloseDialog( GrafikEinfuegenDlg, "cancel" )
1227         else
1228             Warnlog "Error modifying the link!"
1229         endif
1230
1231         Kontext "VerknuepfungenBearbeiten"
1232         printlog( "Click <Update>" )
1233         if ( hClickButton( Aktualisieren ) = -1 ) then
1234             Warnlog "Error on updating the link!"
1235         endif
1236
1237         Kontext "VerknuepfungenBearbeiten"
1238         printlog( "Click <Release>" )
1239         if ( hClickButton( Loesen ) > -1 ) then
1240             Kontext "Active"
1241             printlog( "Check for confirmation message" )
1242             if ( Active.Exists( 1 ) ) then
1243                 printlog( "Message displayed, good. Closing with <No>" )
1244                 printlog( Active.getText() )
1245                 Active.No
1246             else
1247                 Warnlog( "The <Are you sure you want to remove the selected link?> message is missing" )
1248             endif
1249         else
1250             Warnlog( "Unable to break the link to the file" )
1251         endif
1252
1253         Kontext "VerknuepfungenBearbeiten"
1254         hCloseDialog( VerknuepfungenBearbeiten, "close" )
1255     else
1256         Warnlog "Dialog Edit / Links not opened!"
1257     end if
1258     PrintLog "Close active document"
1259     Call hCloseDocument
1260 endcase
1261
1262 '------------------------------------------------------
1263
1264 testcase tEditPlugIn
1265     PrintLog "- Edit/PlugIn"
1266     PrintLog "Open new document"
1267     Call hNewDocument
1268     PrintLog "Edit / Plugin"
1269     EditPlugIn
1270     WaitSlot (2000)
1271     PrintLog "Edit / Plugin"
1272     EditPlugIn
1273     PrintLog "Close active document"
1274     Call hCloseDocument
1275 endcase
1276
1277 '------------------------------------------------------
1278
1279 testcase tEditImageMap
1280
1281      PrintLog "- Edit / ImageMap"
1282
1283     dim sFile as string
1284         sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg"
1285
1286     PrintLog "Open new document"
1287     Call hNewDocument
1288
1289     printlog( "Insert graphics file: " & sFile )
1290     if ( hGrafikEinfuegen( sFile ) ) then
1291
1292         printlog( "Edit->Imagemap" )
1293         EditImageMap
1294
1295         Kontext "ImageMapEditor"
1296         if ( ImageMapEditor.exists( 1 ) ) then
1297             Call DialogTest (ImageMapEditor)
1298             hCloseDialog( ImageMapEditor, "close" )
1299
1300             printlog( "Check for <Imagemap changed> messagebox (should not appear)" )
1301             kontext "Active"
1302             if ( Active.exists( 1 ) ) then
1303                 qaerrorlog( "#i109605# - <imagemap changed> message displayed." )
1304                 printlog( Active.getText )
1305                 Active.no()
1306             else
1307                 printlog( "No messagebox on close, good." )
1308             endif
1309
1310         else
1311             warnlog( "Dialog <ImageMapEditor> did not open" )
1312         endif
1313     else
1314         warnlog( "Insert graphics failed" )
1315     end if
1316
1317     PrintLog "Close active document"
1318     Call hCloseDocument
1319 endcase
1320
1321 '------------------------------------------------------
1322
1323 testcase tEditObjectEdit
1324     PrintLog "Edit / Object / Edit"
1325
1326     PrintLog "Open new document"
1327     Call hNewDocument
1328
1329     InsertObjectChart
1330     Call gMouseClick (99,1)
1331     Call gMouseClick (99,1)
1332     Call gMouseClick (99,1)
1333     wait 200
1334     Call wTypeKeys("<SHIFT F4>")
1335     try
1336         EditObjectEdit
1337     catch
1338         warnlog "Edit/Object/Edit is disabled with chart added"
1339     endcatch
1340
1341     PrintLog "Close active document"
1342     Call hCloseDocument
1343 endcase
1344
1345 '----------------------------------------------------------------
1346
1347 testcase tMasterDocEditNavigator
1348     printlog "- View/Navigator"
1349     Dim ToolboxOk as boolean
1350
1351     gApplication = "MASTERDOCUMENT"
1352     Call hNewDocument
1353     PrintLog "Open new document"
1354
1355     Kontext "NavigatorGlobalDoc"
1356     if Not NavigatorGlobalDoc.Exists then ViewNavigator
1357     Kontext "NavigatorGlobalDoc"
1358     Call DialogTest ( NavigatorGlobalDoc )
1359
1360     printlog " - Umschalten"
1361     GlobaldokumentToolbox.Click Umschalten
1362     Sleep 5
1363     kontext "NavigatorWriter"
1364
1365     try
1366         Toolbox.TearOff Navigation
1367         Kontext "NavigationsFenster"
1368         NavigationsFenster.Close
1369     catch
1370         Warnlog "Unable to Tear off Navigation Toolbox!"
1371     endcatch
1372
1373     Kontext "NavigatorWriter"
1374     Umschalten.Click
1375     Kontext "NavigatorGlobalDoc"
1376     Sleep (1)
1377
1378     printlog "  - Bearbeiten"
1379     try
1380         Bearbeiten.Click
1381     catch
1382         Sleep (2)
1383         try
1384             Bearbeiten.Click
1385         catch
1386             Warnlog " Either taking more than three seconds to switch Navigator-modes, or something has gone wrong."
1387         endcatch
1388     endcatch
1389     wait (300)
1390
1391     Kontext "Navigator"
1392     Navigator.Close
1393
1394     PrintLog "Close active document"
1395     Call hCloseDocument
1396     gApplication = "WRITER"
1397 endcase
1398
1399 '---------------------------------------------------