testautomation/writer/required/includes/w_004_.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 :  Testcases with connection to the Insert-menu.
  31 '*
  32 '\***********************************************************************
  33
  34 sub w_004_
  35
  36     printLog Chr(13) + "---------  Insert Menu ( w_004_ ) ----------"
  37     gApplication = "WRITER"
  38
  39     call tInsertManualBreak
  40     call tInsertFields
  41     call tInsertFieldsOther
  42     call tInsertSpecialCharacter
  43     call tInsertSection
  44     call tInsertHyperlink
  45     call tInsertFootnote
  46     call tInsertCaption
  47     call tInsertBookmark
  48     call tInsertComment
  49     call tInsertCrossReference
  50     call tInsertScript
  51     call tInsertIndexesEntry
  52     call tInsertIndexesIndex
  53     call tInsertIndexesBibliographyEntry
  54     call tInsertEnvelope
  55     call tInsertFrame
  56     call tInsertTable
  57
  58 end sub
  59
  60 '-----------------------------------------------------------
  61
  62 testcase tInsertManualBreak
  63     PrintLog "- Insert / Manual Break"
  64
  65     printlog " Open new document"
  66     Call hNewDocument
  67
  68     printlog " Insert / Manual break"
  69     InsertManualBreak
  70
  71     printlog " Close 'Insert break' dialog with cancel"
  72     Kontext "UmbruchEinfuegen"
  73     Call DialogTest ( UmbruchEinfuegen )
  74     UmbruchEinfuegen.Cancel
  75
  76     printlog " Close active document"
  77     Call hCloseDocument
  78 endcase
  79
  80 '-----------------------------------------------------------
  81
  82 testcase tInsertFields
  83     PrintLog "- Insert / Fields"
  84
  85     printlog " Open new document"
  86     Call hNewDocument
  87
  88     try
  89         printlog "Insert / Fields / Date"
  90         InsertFieldsDate
  91     catch
  92         Warnlog "Unable to execute: Insert / Fields / Date "
  93     endcatch
  94     printlog " Insert / Fields / Date"
  95     Call wTypeKeys (" <Return>")
  96     try
  97         printlog "Insert / Fields / Time"
  98         InsertFieldsTime
  99     catch
 100         Warnlog "Unable to execute: Insert / Fields / Time"
 101     endcatch
 102     printlog " Insert / Fields / Time"
 103     Call wTypeKeys (" <Return>")
 104     try
 105         printlog "Insert / Fields / Page Number"
 106         InsertFieldsPageNumbers
 107     catch
 108         Warnlog "Unable to execute: Insert / Fields / Page numbers"
 109     endcatch
 110     printlog " Insert / Fields / Page numbers"
 111     Call wTypeKeys (" <Return>")
 112     try
 113         printlog "Insert / Fields / Page Count"
 114         InsertFieldsPageCount
 115     catch
 116         Warnlog "Unable to execute: Insert / Fields / Page Count"
 117     endcatch
 118     printlog " Insert / Fields / Page count"
 119     Call wTypeKeys (" <Return>")
 120     try
 121         printlog "Insert / Fields / Title"
 122         InsertFieldsTitle
 123     catch
 124         Warnlog "Unable to execute: Insert / Fields / Title"
 125     endcatch
 126     printlog " Insert / Fields / Title"
 127     Call wTypeKeys (" <Return>")
 128     try
 129         printlog "Insert / Fields / Author"
 130         InsertFieldsAuthor
 131     catch
 132         Warnlog "Unable to execute: Insert / Fields / Author"
 133     endcatch
 134     printlog " Insert / Fields / Author"
 135     if gApplication <> "HTML" then
 136         try
 137             printlog "Insert / Fields / Subject"
 138             InsertFieldsSubject
 139         catch
 140             Warnlog "Unable to execute: Insert / Fields / Subject"
 141         endcatch
 142         printlog " If document not HTML then  'Insert / Fields / Subject"
 143         Call wTypeKeys (" <Return>")
 144         printlog " Press key 'enter'"
 145     end if
 146
 147     printlog " Close active document"
 148     Call hCloseDocument
 149 endcase
 150
 151 '-----------------------------------------------------------
 152
 153 testcase tInsertFieldsOther
 154     Dim i as integer
 155     Dim j as integer
 156     printlog "- Insert / Fields / Other"
 157
 158     printlog " Open new document"
 159     Call hNewDocument
 160
 161     printlog " Insert / Fields / Other"
 162     InsertFieldsOther
 163
 164     Kontext
 165     printlog " In dialog step through all tabpages"
 166     Active.SetPage TabDokumentFeldbefehle
 167     Kontext "TabDokumentFeldbefehle"
 168     Call Dialogtest ( TabDokumentFeldbefehle )
 169
 170     Kontext
 171     Active.SetPage TabDokumentinfoFeldbefehle
 172     Kontext "TabDokumentinfoFeldbefehle"
 173     Call Dialogtest ( TabDokumentinfoFeldbefehle )
 174
 175     Kontext
 176     Active.SetPage TabVariablen
 177     Kontext "TabVariablen"
 178     Call Dialogtest ( TabVariablen )
 179
 180     if gApplication <> "HTML" then
 181         Kontext
 182         Active.SetPage TabReferenzen
 183         Kontext "TabReferenzen"
 184         Call Dialogtest ( TabReferenzen )
 185
 186         Kontext
 187         Active.SetPage TabFunktionen
 188         Kontext "TabFunktionen"
 189         Call Dialogtest ( TabFunktionen )
 190         for i=1 to Feldtyp.GetItemCount
 191             Feldtyp.Select i
 192             if MakroButton.IsEnabled then
 193                 MakroButton.Click
 194                 ' if no JRE is installed a messagebox appears
 195                 Do
 196                     j = j + 1
 197                     Kontext "Active"
 198                     if Active.Exists then
 199                         if Active.GetRT = 304 then
 200                             if j = 1 then Warnlog Active.Gettext
 201                             Active.Ok
 202                         else
 203                             exit do
 204                         end if
 205                     else
 206                         exit do
 207                     end if
 208                 Loop
 209
 210                 Kontext "ScriptSelector"
 211                 if ( ScriptSelector.exists( 5 ) ) then
 212                     ScriptSelector.Close
 213                 else
 214                     warnlog( "Dialog <ScriptSelector> is not available" )
 215                 endif
 216                 Kontext "TabFunktionen"
 217                 i=100
 218             end if
 219         next i
 220
 221         Kontext
 222         Active.SetPage TabDatenbank
 223         Kontext "TabDatenbank"
 224         Call Dialogtest ( TabDatenbank )
 225
 226         printlog " Close dialog"
 227         TabDatenbank.Close
 228     else
 229         printlog " Close dialog"
 230         TabVariablen.Close
 231     end if
 232     printlog " Close active document"
 233     Call hCloseDocument
 234 endcase
 235
 236 '-----------------------------------------------------------
 237
 238 testcase tInsertSpecialCharacter
 239     PrintLog "- Insert / Special Character"
 240
 241     printlog " Open new document"
 242     Call hNewDocument
 243
 244     printlog " Insert / Special Character"
 245     InsertSpecialCharacterWriter
 246
 247     Kontext "Sonderzeichen"
 248     Call DialogTest (Sonderzeichen)
 249     Sonderzeichen.Cancel
 250
 251     printlog " Close active document"
 252     Call hCloseDocument
 253 endcase
 254
 255 '-----------------------------------------------------------
 256
 257 testcase tInsertSection
 258     PrintLog "- Insert / Section"
 259
 260     printlog " Open new document"
 261     Call hNewDocument
 262
 263     printlog " Insert / Section"
 264     InsertSection
 265     Kontext
 266
 267     printlog "  In dialog step through all tabpages"
 268     printlog "-  Tabpage Section"
 269     Active.Setpage TabBereiche
 270     Kontext "TabBereiche"
 271     Call DialogTest (TabBereiche)
 272     Verknuepfung.Check
 273     if gUseSysDlg = False then
 274         Auswaehlen.Click
 275         Kontext "OeffnenDlg"
 276         OeffnenDlg.Cancel
 277     end if
 278     Wait 500
 279     Kontext
 280     printlog "-  Tabpage Columns"
 281     Active.Setpage TabSpalten
 282     Kontext "TabSpalten"
 283     Call DialogTest (TabSpalten)
 284
 285     Kontext
 286     printlog "-  Tabpage Background"
 287     Active.Setpage TabHintergrund
 288     Kontext "TabHintergrund"
 289     Call DialogTest (TabHintergrund)
 290
 291     if gApplication <> "HTML" then
 292         printlog "Tabpage Indents"
 293         Kontext
 294         Active.Setpage TabSectionIndent
 295         Kontext "TabSectionIndent"
 296         Call DialogTest (TabSectionIndent)
 297
 298         printlog "-  Tabpage Footnotes/Endnotes"
 299         Kontext
 300         Active.Setpage TabFussEndnoten
 301         Kontext "TabFussEndnoten"
 302         Call DialogTest (TabFussEndnoten)
 303         TabFussEndnoten.Cancel
 304     else
 305         TabHintergrund.Cancel
 306     end if
 307     printlog " Close active document"
 308     Call hCloseDocument
 309 endcase
 310
 311 '-----------------------------------------------------------
 312
 313 testcase tInsertHyperlink
 314     Dim i as integer
 315     PrintLog "- Insert / Hyperlink"
 316
 317     printlog " Open new document"
 318     Call hNewDocument
 319
 320     printlog "-  Internet"
 321     printlog " Insert / Hyperlink"
 322     InsertHyperlink
 323
 324     kontext "HyperlinkDialog"
 325     if ( HyperlinkDialog.exists( 2 ) ) then
 326
 327         printlog "  In 'Hyperlink' dialog step through all pages"
 328         Call wEinfuegenHyperlink(1)
 329         Call DialogTest ( TabHyperlinkInternet )
 330
 331         Kontext "Hyperlink"
 332         printlog "-  Mail & News"
 333         Call wEinfuegenHyperlink(2)
 334         wait 500
 335         Call DialogTest ( TabHyperlinkMailUndNews )
 336
 337         Kontext "Hyperlink"
 338         printlog "-  Document"
 339         Call wEinfuegenHyperlink(3)
 340         wait 500
 341         Call DialogTest ( TabHyperlinkDokument )
 342
 343         DateiOeffnen.Click
 344
 345         Kontext "OeffnenDlg"
 346         if ( OeffnenDlg.exists( 1 ) ) then
 347             OeffnenDlg.Cancel
 348         else
 349             warnlog( "Dialog <OeffnenDlg> is not available" )
 350         endif
 351
 352         Kontext "Hyperlink"
 353         printlog "-  New Document"
 354         Call wEinfuegenHyperlink(4)
 355         wait 500
 356         Call DialogTest ( TabHyperlinkNeuesDokument )
 357
 358         Pfad.Click
 359         Sleep 1
 360         Kontext "OeffnenDlg"
 361         OeffnenDlg.Cancel
 362
 363         printlog " Close 'Hyperlink' dialog"
 364         kontext "HyperlinkDialog"
 365         HyperlinkDialog.Close
 366     else
 367         warnlog( "Unable to open <HyperlinkDialog>" )
 368     endif
 369
 370     printlog " Close active document"
 371     Call hCloseDocument
 372 endcase
 373
 374 '-----------------------------------------------------------
 375
 376 testcase tInsertFootnote
 377     PrintLog "- Insert / Footnote"
 378
 379     printlog " Open new document"
 380     Call hNewDocument
 381
 382     printlog " Insert / Footnote"
 383     InsertFootnote
 384     Kontext "FussnoteEinfuegen"
 385     Call DialogTest (FussnoteEinfuegen)
 386     Durchsuchen.Click
 387     printlog " In 'Insert / Footnote' dialog click on browse button"
 388
 389     printlog " Close 'Special Character' dialog"
 390     Kontext "Sonderzeichen"
 391     Sonderzeichen.Cancel
 392
 393     printlog " Close 'Insert Footnote' dialog"
 394     Kontext "FussnoteEinfuegen"
 395     FussnoteEinfuegen.Cancel
 396
 397     printlog " Close active document"
 398     Call hCloseDocument
 399 endcase
 400
 401 '-----------------------------------------------------------
 402
 403 testcase tInsertCaption
 404     PrintLog "- Insert / Caption"
 405
 406     printlog " Open new document"
 407     Call hNewDocument
 408
 409     printlog " Insert graphic '..\writer\required\input\graphics\jolink.jpg"
 410     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 411     try
 412         printlog " Insert / Caption"
 413         InsertCaption
 414         Kontext "Beschriftung"
 415         Call DialogTest ( Beschriftung )
 416         Sleep 1
 417         printlog " In 'Caption' dialog click 'Options'"
 418         WeitereOptionen.Click
 419         Kontext "NummernkreisOptionen"
 420         Call DialogTest ( NummernkreisOptionen )
 421         printlog " Close 'Number Range Options' dialog"
 422         NummernkreisOptionen.Cancel
 423         Sleep 1
 424         Kontext "Beschriftung"
 425         printlog " Close 'Caption' dialog"
 426         Beschriftung.Cancel
 427         Sleep 2
 428     catch
 429         Warnlog "Insert / Caption is disabled!"
 430     endcatch
 431
 432     printlog " Close active document"
 433     Call hCloseDocument
 434 endcase
 435
 436 '-----------------------------------------------------------
 437
 438 testcase tInsertBookmark
 439     PrintLog "- Insert / Bookmark"
 440
 441     printlog " Open new document"
 442     Call hNewDocument
 443
 444     printlog " Insert / Bookmark"
 445     InsertBookmark
 446     Kontext "TextmarkeEinfuegen"
 447     Call DialogTest (TextmarkeEinfuegen)
 448     wait 500
 449     printlog " Close 'Insert Bookmark' dialog"
 450     TextmarkeEinfuegen.Cancel
 451
 452     printlog " Close active document"
 453     Call hCloseDocument
 454 endcase
 455
 456 '-----------------------------------------------------------
 457
 458 testcase tInsertComment
 459     dim sNoteText as String
 460     PrintLog "- Insert / Comment"
 461
 462     Call hNewDocument
 463
 464     printlog " Insert / Comment"
 465     InsertNoteWriter
 466     wait 500
 467     Kontext "DocumentWriter"
 468     sNoteText = "Comment inserted by testtool !"
 469     Call wTypeKeys (sNoteText)
 470
 471     Call wNavigatorAuswahl( 11, 1 )
 472     Kontext "NavigatorWriter"
 473     if Auswahlliste.Gettext <> sNoteText then
 474         warnlog ("Comment was not inserted correctly (Focus problem?")
 475     end if
 476
 477     printlog " Close active document"
 478     Call hCloseDocument
 479 endcase
 480
 481 '-----------------------------------------------------------
 482
 483 testcase tInsertCrossReference
 484     Dim i as integer
 485     Dim j as integer
 486     printlog "- Insert / Reference Field"
 487     if gApplication = "HTML" then
 488         printlog "Not in WriterWeb!"
 489         goto endsub
 490     end if
 491     printlog " Open new document"
 492     Call hNewDocument
 493
 494     printlog " Insert / Cross reference"
 495     InsertReferenceField
 496
 497     Kontext "TabReferenzen"
 498     if NOT TabReferenzen.IsVisible then Warnlog "Reference Tabpage isn't default!"
 499
 500     printlog " Step through all tabpages"
 501     Kontext
 502     Active.SetPage TabFunktionen
 503     Kontext "TabFunktionen"
 504     for i=1 to Feldtyp.GetItemCount
 505         Feldtyp.Select i
 506         if MakroButton.IsEnabled then
 507             MakroButton.Click
 508             ' if no JRE is installed a messagebox appears
 509             j = 0
 510             Do
 511                 j = j + 1
 512                 Kontext "Active"
 513                 if Active.Exists then
 514                     if Active.GetRT = 304 then
 515                         if j = 1 then Warnlog Active.Gettext
 516                         Active.Ok
 517                     else
 518                         exit do
 519                     end if
 520                 else
 521                     exit do
 522                 end if
 523             Loop
 524             Kontext "ScriptSelector"
 525             if ( ScriptSelector.exists( 3 ) ) then
 526                 ScriptSelector.Close
 527             else
 528                 warnlog( "Dialog <ScriptSelector> is not available" )
 529             endif
 530             Kontext "TabFunktionen"
 531             i=100
 532         end if
 533     next i
 534
 535     Kontext
 536     Active.SetPage TabDokumentinfoFeldbefehle
 537     Kontext "TabDokumentinfoFeldbefehle"
 538
 539     Kontext
 540     Active.SetPage TabVariablen
 541     Kontext "TabVariablen"
 542
 543     Kontext
 544     Active.SetPage TabDatenbank
 545     Kontext "TabDatenbank"
 546
 547     Kontext
 548     Active.SetPage TabDokumentFeldbefehle
 549     Kontext "TabDokumentFeldbefehle"
 550
 551     printlog " Close dialog"
 552     TabDokumentFeldbefehle.Close
 553
 554     printlog " Close active document"
 555     Call hCloseDocument
 556 endcase
 557
 558 '-----------------------------------------------------------
 559
 560 testcase tInsertScript
 561     PrintLog "- Insert / Script"
 562
 563     printlog " Open new document"
 564     Call hNewDocument
 565
 566     printlog " Insert / Script"
 567     InsertScript
 568     Kontext "ScriptEinfuegen"
 569     Call DialogTest (ScriptEinfuegen)
 570     wait 500
 571     ScriptEinfuegen.Cancel
 572
 573     printlog " Close active document"
 574     Call hCloseDocument
 575 endcase
 576
 577 '-----------------------------------------------------------
 578
 579 testcase tInsertIndexesEntry
 580     qaErrorLog "#158646# - Insert Indexes Entry causes crash."
 581     goto endsub
 582
 583     PrintLog "- Insert / Indexes / Entry"
 584     if gApplication = "HTML" then
 585         printlog "Not in WriterWeb!"
 586         goto endsub
 587     end if
 588     printlog " Open new document"
 589     Call hNewDocument
 590
 591     printlog " Insert / Indexes and Tables / Entry"
 592     InsertIndexesEntry
 593     Kontext "VerzeichniseintragEinfuegen"
 594     Call DialogTest (VerzeichniseintragEinfuegen)
 595     printlog " Click 'Insert'"
 596     EintragNeu.Click
 597
 598     Kontext "BenutzerverzeichnisDefinieren"
 599     Call DialogTest (BenutzerverzeichnisDefinieren)
 600     printlog " Close dialog 'Insert Index Entry'"
 601     BenutzerverzeichnisDefinieren.Cancel
 602     Kontext "VerzeichniseintragEinfuegen"
 603     EinfuegenSchliessen.Click
 604
 605     printlog " Close active document"
 606     Call hCloseDocument
 607 endcase
 608
 609 '-----------------------------------------------------------
 610
 611 testcase tInsertIndexesIndex
 612     Dim i as integer
 613     Printlog "- Insert / Indexes / Index"
 614     if gApplication = "HTML" then
 615         printlog "Not in WriterWeb!"
 616         goto endsub
 617     end if
 618     printlog " Open new document"
 619     Call hNewDocument
 620
 621     printlog " Insert / Indexes and Tables / Indexes and Tables"
 622     InsertIndexes
 623     WaitSlot (5000)
 624     Kontext "Active"
 625     if Active.Exists then
 626         if Active.GetRT = 304 then
 627             Warnlog Active.Gettext
 628             Active.Ok
 629         end if
 630     end if
 631     Sleep 1
 632     printlog " Step through all Tabpages"
 633     Kontext
 634     printlog "-  TabPage Indexes"
 635     Active.Setpage TabVerzeichnisseVerzeichnis
 636     Kontext "TabVerzeichnisseVerzeichnis"
 637     For i= 1 to VerzeichnisTyp.GetItemCount
 638         Sleep 1
 639         if i = 2 then printlog "Alphabetical index see bug #i33671 (ok in m54)"
 640         VerzeichnisTyp.Select i
 641         printlog "- " + VerzeichnisTyp.GetSelText
 642         Call DialogTest (TabVerzeichnisseVerzeichnis)
 643         printlog "-  Entry's to " + VerzeichnisTyp.GetSelText
 644
 645         if i = 1 then
 646             ErzeugenAusGliederung.Check
 647         end if
 648
 649         if i = 2 then
 650             if gUseSysDlg = False then
 651                 Konkordanzdatei.Check
 652                 Kontext "KonkordanzdateiOeffnen"
 653                 if KonkordanzdateiOeffnen.Exists then
 654                     KonkordanzdateiOeffnen.Cancel
 655                     Warnlog "Open-Dialog comes up at checking the checkbox!"
 656                 end if
 657                 Kontext "TabVerzeichnisseVerzeichnis"
 658                 if KonkordanzAuswahl.IsEnabled then
 659                     KonkordanzAuswahl.Click
 660                     wait 500
 661                     Call hMenuSelectNr ( 1 )
 662                     Kontext "KonkordanzdateiOeffnen"
 663                     if KonkordanzdateiOeffnen.Exists then
 664                         KonkordanzdateiOeffnen.Cancel
 665                     else
 666                         Warnlog "No Open-Dialog selecting Concordance-File->Open!"
 667                     end if
 668                     Sleep 1
 669                     Kontext "TabVerzeichnisseVerzeichnis"
 670                     KonkordanzAuswahl.Click
 671                     wait 500
 672                     Call hMenuSelectNr ( 2 )
 673                     Kontext "SpeichernDlg"
 674                     if SpeichernDlg.Exists then
 675                         SpeichernDlg.Cancel
 676                     else
 677                         Warnlog "No Open-Dialog selecting Concordance-File->New!"
 678                     end if
 679                 else
 680                     Warnlog "- Concordance-File couldn't be selected, though checkbox is checked!"
 681                 end if
 682                 Sleep 1
 683             end if
 684         end if
 685
 686         Kontext
 687         Active.Setpage TabVerzeichnisseEintraege
 688         Kontext "TabVerzeichnisseEintraege"
 689         Call DialogTest (TabVerzeichnisseEintraege)
 690         Kontext
 691         Active.Setpage TabVerzeichnisseVerzeichnis
 692         Kontext "TabVerzeichnisseVerzeichnis"
 693     next i
 694     Sleep 1
 695
 696     Kontext
 697     printlog "-  Tabpage Styles"
 698     Active.Setpage TabVerzeichnisseVorlagen
 699     Kontext "TabVerzeichnisseVorlagen"
 700     Call DialogTest (TabVerzeichnisseVorlagen)
 701     Sleep 1
 702     printlog "- Tabpage Columns"
 703     Kontext
 704     Active.Setpage TabSpalten
 705     Kontext "TabSpalten"
 706     Call DialogTest (TabSpalten)
 707     Sleep 1
 708     printlog "- Tabpage Background"
 709     Kontext
 710     Active.Setpage TabHintergrund
 711     Kontext "TabHintergrund"
 712     TabHintergrund.Cancel
 713     Sleep 1
 714     printlog " Close active document"
 715     Call hCloseDocument
 716
 717     Sleep 2
 718     printlog " Open new document"
 719     Call hNewDocument
 720     Sleep 2
 721
 722     printlog " View Zoom"
 723     ViewZoom
 724
 725     Kontext "Massstab"
 726     printlog " Check if 100% Zoom is checked ( Had a bug changed after opening Index dialog )"
 727     if Massstab.Exists then
 728         if Not Vergroesserung100.IsChecked then
 729             Warnlog "100% Zoom is not checked.Maybe Bug#95871! Set Zoom to 100%!"
 730             Vergroesserung100.Check
 731             Massstab.ok
 732         else
 733             Massstab.Cancel
 734             printlog " Close 'Zoom' dialog"
 735         end if
 736     else
 737         Warnlog "Dialog 'Zoom' does not exist!"
 738     end if
 739     printlog " Close active document"
 740     Call hCloseDocument
 741 endcase
 742
 743 '-----------------------------------------------------------
 744
 745 testcase tInsertIndexesBibliographyEntry
 746     Printlog "- Insert / Indexes / Bibliography Entry"
 747     if gApplication = "HTML" then
 748         printlog "Not in WriterWeb!"
 749         goto endsub
 750     end if
 751     printlog " Open new document"
 752     Call hNewDocument
 753
 754     printlog " Insert / Indexes and Tables / Bibliography Entry "
 755     hUseAsyncSlot( "InsertIndexesBibliographyEntry" )
 756
 757     Kontext "Active"
 758     if ( Active.Exists() ) then
 759         Do
 760             try
 761                 if ( Active.GetRT = 304 ) then
 762                     Warnlog Active.Gettext
 763                     Active.Ok
 764                 end if
 765             catch
 766                 exit do
 767             endcatch
 768         Loop
 769     end if
 770
 771     Kontext "LiteratureintragEinfuegen"
 772     if ( LiteratureintragEinfuegen.exists( 1 ) ) then
 773         Call DialogTest ( LiteratureintragEinfuegen )
 774
 775         printlog " In dialog 'Insert Bibliography Entry' click 'Edit'"
 776         EintragBearbeiten.Click
 777
 778         Kontext "LiteratureintragDefinieren"
 779         if ( LiteratureintragDefinieren.exists( 1 ) ) then
 780             Call DialogTest ( LiteratureintragDefinieren )
 781             printlog " Close dialog 'Define Bibliography Entry'"
 782             LiteratureintragDefinieren.Close
 783         else
 784             warnlog( "Dialog <LiteratureintragDefinieren> is not available" )
 785         endif
 786
 787         Kontext "LiteratureintragEinfuegen"
 788         printlog " Close dialog 'Insert Bibliography Entry'"
 789         EintragSchliessen.Click
 790     else
 791         warnlog( "Dialog <LiteratureintragEinfuegen> is not available" )
 792     endif
 793     printlog " Close active document"
 794     Call hCloseDocument
 795 endcase
 796
 797 '-----------------------------------------------------------
 798
 799 testcase tInsertEnvelope
 800     PrintLog "- Insert / Envelope"
 801     if gApplication = "HTML" then
 802         printlog "Not in WriterWeb!"
 803         goto endsub
 804     end if
 805
 806     printlog " Open new document"
 807     Call hNewDocument
 808
 809     printlog " Insert / Envelope"
 810     InsertEnvelope
 811
 812     Kontext
 813     active.SetPage TabEnvelope
 814     Kontext "TabEnvelope"
 815     Call DialogTest (TabEnvelope)
 816
 817     Kontext
 818     active.SetPage TabFormatEnvelope
 819     Kontext "TabFormatEnvelope"
 820     Call DialogTest (TabFormatEnvelope)
 821     printlog " Step through all tabpages and click all buttons"
 822
 823     printlog "-  Edit Addressee"
 824     Sleep 1
 825     AddresseeEdit.Click
 826     wait 500
 827     Call hMenuSelectNr(1)
 828     Kontext
 829     Sleep 1
 830     Active.Setpage TabFont
 831     Kontext "TabFont"
 832     TabFont.Cancel
 833
 834     Kontext "TabFormatEnvelope"
 835     Sleep 1
 836     SenderEdit.Click
 837     wait 500
 838     Call hMenuSelectNr(2)
 839     Kontext
 840     Sleep 1
 841     Active.Setpage TabEinzuegeUndAbstaende
 842     Kontext "TabEinzuegeUndAbstaende"
 843     TabEinzuegeUndAbstaende.Cancel
 844
 845     Kontext "TabFormatEnvelope"
 846     printlog "-  Edit Sender"
 847     Sleep 1
 848     SenderEdit.Click
 849     wait 500
 850     Call hMenuSelectNr(1)
 851     Kontext
 852     Sleep 1
 853     Active.Setpage TabFont
 854     Kontext "TabFont"
 855     TabFont.Cancel
 856
 857     Kontext "TabFormatEnvelope"
 858     Sleep 1
 859     SenderEdit.Click
 860     wait 500
 861     Call hMenuSelectNr(2)
 862     Kontext
 863     Sleep 1
 864     Active.Setpage TabEinzuegeUndAbstaende
 865     Kontext "TabEinzuegeUndAbstaende"
 866     TabEinzuegeUndAbstaende.Cancel
 867
 868     Kontext
 869     Sleep 2
 870     active.SetPage TabDruckerBriefumschlag
 871     Kontext "TabDruckerBriefumschlag"
 872     Call DialogTest (TabDruckerBriefumschlag)
 873     if gPlatgroup = "w95" then
 874         Einrichten.Click
 875         Kontext "DruckerEinrichten"
 876         if DruckerEinrichten.Exists then
 877             DruckerEinrichten.Cancel
 878         else
 879             Warnlog "No Default-Printer!"
 880         end if
 881         Kontext "TabDruckerBriefumschlag"
 882     end if
 883     printlog " Close dialog"
 884     TabDruckerBriefumschlag.Close
 885
 886     printlog " Close active document"
 887     Call hCloseDocument
 888 endcase
 889
 890 '-----------------------------------------------------------
 891
 892 testcase tInsertFrame
 893     PrintLog "- Insert / Frame"
 894
 895     printlog " Open new document"
 896     Call hNewDocument
 897
 898     printlog " Insert / Frame"
 899     InsertFrame
 900     WaitSlot (2000)
 901
 902     printlog " Step through all tabpages"
 903     Kontext
 904     active.SetPage TabType
 905     Kontext "TabType"
 906     Call DialogTest (TabType)
 907     Sleep 1
 908
 909     Kontext
 910     active.SetPage TabZusaetze
 911     Kontext "TabZusaetze"
 912     Call DialogTest (TabZusaetze)
 913     Sleep 1
 914
 915     Kontext
 916     active.SetPage TabUmlauf
 917     Kontext "TabUmlauf"
 918     Call DialogTest (TabUmlauf)
 919     Sleep 1
 920
 921     Kontext
 922     active.SetPage TabUmrandung
 923     Kontext "TabUmrandung"
 924     Call DialogTest (TabUmrandung)
 925     Sleep 1
 926
 927     Kontext
 928     active.SetPage TabHintergrund
 929     Kontext "TabHintergrund"
 930     Call DialogTest (TabHintergrund, 1)
 931     Sleep 1
 932     try
 933         Als.Select (2)
 934         Call DialogTest (TabHintergrund, 2)
 935         Sleep 1
 936     catch
 937         Warnlog "Maybe missing combobox! (#i29517)"
 938     endcatch
 939
 940     if gApplication <> "HTML" then
 941         Kontext
 942         active.SetPage TabHyperlinkRahmen
 943         Kontext "TabHyperlinkRahmen"
 944         Call DialogTest (TabHyperlinkRahmen)
 945         Durchsuchen.Click
 946
 947         if gUSeSysDlg = False then
 948             Kontext "OeffnenDlg"
 949             OeffnenDlg.Cancel
 950         end if
 951
 952         Kontext
 953         active.SetPage TabSpalten
 954         Kontext "TabSpalten"
 955         Call DialogTest (TabSpalten)
 956         printlog " Close dialog"
 957         TabSpalten.Cancel
 958     else
 959         printlog " Close dialog"
 960         TabHintergrund.Cancel
 961     end if
 962
 963     printlog " Close active document"
 964     Call hCloseDocument
 965 endcase
 966
 967 '-----------------------------------------------------------
 968
 969 testcase tInsertTable
 970     PrintLog "- Insert / Table"
 971
 972     printlog " Open new document"
 973     Call hNewDocument
 974     printlog " Insert / Table"
 975     InsertTableWriter
 976
 977     Kontext "TabelleEinfuegenWriter"
 978     Call DialogTest (TabelleEinfuegenWriter)
 979     if Spalten.Gettext <> "2" then Warnlog "- Default for Size Columns isn't 2 , it is " + Spalten.Gettext
 980     if Zeilen.Gettext <> "2" then Warnlog "- Default for Size Row isn't 2, it is " + Zeilen.Gettext
 981     printlog " In 'insert Table' dialog click 'AutoFormat'"
 982     Autoformat.Click
 983     Kontext "AutoformatTabelle"
 984
 985     printlog " In 'AutoFormat' dialog click 'More'"
 986     Zusaetze.Click
 987     Call DialogTest ( AutoformatTabelle )
 988
 989     if Formatbox.GetItemCount > 2 then
 990         Formatbox.Select(3)
 991         Zusaetze.Open
 992         Umbenennen.Click
 993         Kontext "AutoformatHinzufuegenWriter"
 994         Call DialogTest ( AutoformatHinzufuegenWriter )
 995         TabellenName.SetText "Hallo"
 996         AutoformatHinzufuegenWriter.Cancel
 997         Kontext "AutoFormatTabelle"
 998     else
 999         Warnlog "Only " + Formatbox.GetItemCount + " Table formats to select ?"
1000     end if
1001     printlog " Close dialog 'More'"
1002     Zusaetze.Close
1003     printlog " Close dialog 'AutoFormat'"
1004     AutoformatTabelle.Cancel
1005
1006     Kontext "TabelleEinfuegenWriter"
1007     printlog " Close dialog ''"
1008     TabelleEinfuegenWriter.Cancel
1009
1010     printlog " Close active document"
1011     Call hCloseDocument
1012 endcase
1013