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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_004_.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:21:45 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description :  Testcases with connection to the Insert-menu.
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_004_
  41
  42     printLog Chr(13) + "---------  Insert Menu ( w_004_ ) ----------"
  43     gApplication = "WRITER"
  44
  45     Call tInsertManualBreak
  46     Call tInsertFields
  47
  48     Call tInsertFieldsOther
  49     Call tInsertSpecialCharacter
  50
  51     Call tInsertSection
  52     Call tInsertHyperlink
  53
  54     Call tInsertFootnote
  55     Call tInsertCaption
  56     Call tInsertBookmark
  57     Call tInsertCrossReference
  58     Call tInsertNote
  59     Call tInsertScript
  60     Call tInsertIndexesEntry
  61     Call tInsertIndexesIndex
  62     Call tInsertIndexesBibliographyEntry
  63
  64     Call tInsertEnvelope
  65
  66     Call tInsertFrame
  67     Call tInsertTable
  68     Call tInsertHorizontalLine
  69     Call tInsertGraphicsFromFile
  70     Call tInsertAllGraphicsFromFile
  71
  72     Call tInsertObjectOLEObject
  73     Call tInsertObjectPlugIn
  74     Call tInsertObjectSound
  75     Call tInsertObjectVideo
  76     Call tInsertObjectFormula
  77     Call tInsertObjectChart
  78     Call tInsertFile
  79
  80     'Writer Web
  81     gApplication = "HTML"
  82     Call tHtmlDocInsertFields
  83     Call tHtmlDocInsertFieldsOther
  84     Call tHtmlDocInsertSection
  85     Call tHtmlDocInsertFrame
  86     Call tHtmlDocInsertGraphicsFromFile
  87     gApplication = "WRITER"
  88
  89 end sub
  90
  91 '-----------------------------------------------------------
  92
  93 testcase tInsertManualBreak
  94     PrintLog "- Insert / Manual Break"
  95
  96     printlog " Open new document"
  97     Call hNewDocument
  98
  99     printlog " Insert / Manual break"
 100     InsertManualBreak
 101
 102     printlog " Close 'Insert break' dialog with cancel"
 103     Kontext "UmbruchEinfuegen"
 104     Call DialogTest ( UmbruchEinfuegen )
 105     UmbruchEinfuegen.Cancel
 106
 107     printlog " Close active document"
 108     Call hCloseDocument
 109 endcase
 110
 111 '-----------------------------------------------------------
 112
 113 testcase tInsertFields
 114     PrintLog "- Insert / Fields"
 115
 116     printlog " Open new document"
 117     Call hNewDocument
 118
 119     try
 120         printlog "Insert / Fields / Date"
 121         InsertFieldsDate
 122     catch
 123         Warnlog "Unable to execute: Insert / Fields / Date "
 124     endcatch
 125     printlog " Insert / Fields / Date"
 126     Call wTypeKeys (" <Return>")
 127     try
 128         printlog "Insert / Fields / Time"
 129         InsertFieldsTime
 130     catch
 131         Warnlog "Unable to execute: Insert / Fields / Time"
 132     endcatch
 133     printlog " Insert / Fields / Time"
 134     Call wTypeKeys (" <Return>")
 135     try
 136         printlog "Insert / Fields / Page Number"
 137         InsertFieldsPageNumbers
 138     catch
 139         Warnlog "Unable to execute: Insert / Fields / Page numbers"
 140     endcatch
 141     printlog " Insert / Fields / Page numbers"
 142     Call wTypeKeys (" <Return>")
 143     try
 144         printlog "Insert / Fields / Page Count"
 145         InsertFieldsPageCount
 146     catch
 147         Warnlog "Unable to execute: Insert / Fields / Page Count"
 148     endcatch
 149     printlog " Insert / Fields / Page count"
 150     Call wTypeKeys (" <Return>")
 151     try
 152         printlog "Insert / Fields / Title"
 153         InsertFieldsTitle
 154     catch
 155         Warnlog "Unable to execute: Insert / Fields / Title"
 156     endcatch
 157     printlog " Insert / Fields / Title"
 158     Call wTypeKeys (" <Return>")
 159     try
 160         printlog "Insert / Fields / Author"
 161         InsertFieldsAuthor
 162     catch
 163         Warnlog "Unable to execute: Insert / Fields / Author"
 164     endcatch
 165     printlog " Insert / Fields / Author"
 166     if gApplication <> "HTML" then
 167         try
 168             printlog "Insert / Fields / Subject"
 169             InsertFieldsSubject
 170         catch
 171             Warnlog "Unable to execute: Insert / Fields / Subject"
 172         endcatch
 173         printlog " If document not HTML then  'Insert / Fields / Subject"
 174         Call wTypeKeys (" <Return>")
 175         printlog " Press key 'enter'"
 176     end if
 177
 178     printlog " Close active document"
 179     Call hCloseDocument
 180 endcase
 181
 182 '-----------------------------------------------------------
 183
 184 testcase tInsertFieldsOther
 185     Dim i as integer
 186     Dim j as integer
 187     printlog "- Insert / Fields / Other"
 188
 189     printlog " Open new document"
 190     Call hNewDocument
 191
 192     printlog " Insert / Fields / Other"
 193     InsertFieldsOther
 194
 195     Kontext
 196     printlog " In dialog step through all tabpages"
 197     Active.SetPage TabDokumentFeldbefehle
 198     Kontext "TabDokumentFeldbefehle"
 199     Call Dialogtest ( TabDokumentFeldbefehle )
 200
 201     Kontext
 202     Active.SetPage TabDokumentinfoFeldbefehle
 203     Kontext "TabDokumentinfoFeldbefehle"
 204     Call Dialogtest ( TabDokumentinfoFeldbefehle )
 205
 206     Kontext
 207     Active.SetPage TabVariablen
 208     Kontext "TabVariablen"
 209     Call Dialogtest ( TabVariablen )
 210
 211     if gApplication <> "HTML" then
 212         Kontext
 213         Active.SetPage TabReferenzen
 214         Kontext "TabReferenzen"
 215         Call Dialogtest ( TabReferenzen )
 216
 217         Kontext
 218         Active.SetPage TabFunktionen
 219         Kontext "TabFunktionen"
 220         Call Dialogtest ( TabFunktionen )
 221         for i=1 to Feldtyp.GetItemCount
 222             Feldtyp.Select i
 223             if MakroButton.IsEnabled then
 224                 MakroButton.Click
 225                 ' if no JRE is installed a messagebox appears
 226                 Do
 227                     j = j + 1
 228                     Kontext "Active"
 229                     if Active.Exists then
 230                         if Active.GetRT = 304 then
 231                             if j = 1 then Warnlog Active.Gettext
 232                             Active.Ok
 233                         else
 234                             exit do
 235                         end if
 236                     else
 237                         exit do
 238                     end if
 239                 Loop
 240
 241                 Kontext "ScriptSelector"
 242                 if ( ScriptSelector.exists( 5 ) ) then
 243                     ScriptSelector.Close
 244                 else
 245                     warnlog( "Dialog <ScriptSelector> is not available" )
 246                 endif
 247                 Kontext "TabFunktionen"
 248                 i=100
 249             end if
 250         next i
 251
 252         Kontext
 253         Active.SetPage TabDatenbank
 254         Kontext "TabDatenbank"
 255         Call Dialogtest ( TabDatenbank )
 256
 257         printlog " Close dialog"
 258         TabDatenbank.Close
 259     else
 260         printlog " Close dialog"
 261         TabVariablen.Close
 262     end if
 263     printlog " Close active document"
 264     Call hCloseDocument
 265 endcase
 266
 267 '-----------------------------------------------------------
 268
 269 testcase tInsertSpecialCharacter
 270     PrintLog "- Insert / Special Character"
 271
 272     printlog " Open new document"
 273     Call hNewDocument
 274
 275     printlog " Insert / Special Character"
 276     InsertSpecialCharacterWriter
 277
 278     Kontext "Sonderzeichen"
 279     Call DialogTest (Sonderzeichen)
 280     Sonderzeichen.Cancel
 281
 282     printlog " Close active document"
 283     Call hCloseDocument
 284 endcase
 285
 286 '-----------------------------------------------------------
 287
 288 testcase tInsertSection
 289     PrintLog "- Insert / Section"
 290
 291     printlog " Open new document"
 292     Call hNewDocument
 293
 294     printlog " Insert / Section"
 295     InsertSection
 296     Kontext
 297
 298     printlog "  In dialog step through all tabpages"
 299     printlog "-  Tabpage Section"
 300     Active.Setpage TabBereiche
 301     Kontext "TabBereiche"
 302     Call DialogTest (TabBereiche)
 303     Verknuepfung.Check
 304     if gUseSysDlg = False then
 305         Auswaehlen.Click
 306         Kontext "OeffnenDlg"
 307         OeffnenDlg.Cancel
 308     end if
 309     Wait 500
 310     Kontext
 311     printlog "-  Tabpage Columns"
 312     Active.Setpage TabSpalten
 313     Kontext "TabSpalten"
 314     Call DialogTest (TabSpalten)
 315
 316     Kontext
 317     printlog "-  Tabpage Background"
 318     Active.Setpage TabHintergrund
 319     Kontext "TabHintergrund"
 320     Call DialogTest (TabHintergrund)
 321
 322     if gApplication <> "HTML" then
 323         printlog "Tabpage Indents"
 324         Kontext
 325         Active.Setpage TabSectionIndent
 326         Kontext "TabSectionIndent"
 327         Call DialogTest (TabSectionIndent)
 328
 329         printlog "-  Tabpage Footnotes/Endnotes"
 330         Kontext
 331         Active.Setpage TabFussEndnoten
 332         Kontext "TabFussEndnoten"
 333         Call DialogTest (TabFussEndnoten)
 334         TabFussEndnoten.Cancel
 335     else
 336         TabHintergrund.Cancel
 337     end if
 338     printlog " Close active document"
 339     Call hCloseDocument
 340 endcase
 341
 342 '-----------------------------------------------------------
 343
 344 testcase tInsertHyperlink
 345     Dim i as integer
 346     PrintLog "- Insert / Hyperlink"
 347
 348     printlog " Open new document"
 349     Call hNewDocument
 350
 351     printlog "-  Internet"
 352     printlog " Insert / Hyperlink"
 353     InsertHyperlink
 354     printlog "  In 'Hyperlink' dialog step through all pages"
 355     Call wEinfuegenHyperlink(1)
 356     Call DialogTest ( TabHyperlinkInternet )
 357
 358     Kontext "Hyperlink"
 359     printlog "-  Mail & News"
 360     Call wEinfuegenHyperlink(2)
 361     wait 500
 362     Call DialogTest ( TabHyperlinkMailUndNews )
 363
 364     Kontext "Hyperlink"
 365     printlog "-  Document"
 366     Call wEinfuegenHyperlink(3)
 367     wait 500
 368     Call DialogTest ( TabHyperlinkDokument )
 369
 370     DateiOeffnen.Click
 371
 372     Kontext "OeffnenDlg"
 373     if ( OeffnenDlg.exists( 1 ) ) then
 374         OeffnenDlg.Cancel
 375     else
 376         warnlog( "Dialog <OeffnenDlg> is not available" )
 377     endif
 378
 379     Kontext "Hyperlink"
 380     printlog "-  New Document"
 381     Call wEinfuegenHyperlink(4)
 382     wait 500
 383     Call DialogTest ( TabHyperlinkNeuesDokument )
 384
 385     Pfad.Click
 386     Sleep 1
 387     Kontext "OeffnenDlg"
 388     OeffnenDlg.Cancel
 389
 390     Kontext "TabHyperlinkNeuesDokument"
 391     TabHyperlinkNeuesDokument.Cancel
 392     printlog " Close 'Hyperlink' dialog"
 393
 394     printlog " Close active document"
 395     Call hCloseDocument
 396 endcase
 397
 398 '-----------------------------------------------------------
 399
 400 testcase tInsertFootnote
 401     PrintLog "- Insert / Footnote"
 402
 403     printlog " Open new document"
 404     Call hNewDocument
 405
 406     printlog " Insert / Footnote"
 407     InsertFootnote
 408     Kontext "FussnoteEinfuegen"
 409     Call DialogTest (FussnoteEinfuegen)
 410     Durchsuchen.Click
 411     printlog " In 'Insert / Footnote' dialog click on browse button"
 412
 413     printlog " Close 'Special Character' dialog"
 414     Kontext "Sonderzeichen"
 415     Sonderzeichen.Cancel
 416
 417     printlog " Close 'Insert Footnote' dialog"
 418     Kontext "FussnoteEinfuegen"
 419     FussnoteEinfuegen.Cancel
 420
 421     printlog " Close active document"
 422     Call hCloseDocument
 423 endcase
 424
 425 '-----------------------------------------------------------
 426
 427 testcase tInsertCaption
 428     PrintLog "- Insert / Caption"
 429
 430     printlog " Open new document"
 431     Call hNewDocument
 432
 433     printlog " Insert graphic '..\writer\required\input\graphics\jolink.jpg"
 434     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 435     try
 436         printlog " Insert / Caption"
 437         InsertCaption
 438         Kontext "Beschriftung"
 439         Call DialogTest ( Beschriftung )
 440         Sleep 1
 441         printlog " In 'Caption' dialog click 'Options'"
 442         WeitereOptionen.Click
 443         Kontext "NummernkreisOptionen"
 444         Call DialogTest ( NummernkreisOptionen )
 445         printlog " Close 'Number Range Options' dialog"
 446         NummernkreisOptionen.Cancel
 447         Sleep 1
 448         Kontext "Beschriftung"
 449         printlog " Close 'Caption' dialog"
 450         Beschriftung.Cancel
 451         Sleep 2
 452     catch
 453         Warnlog "Insert / Caption is disabled!"
 454     endcatch
 455
 456     printlog " Close active document"
 457     Call hCloseDocument
 458 endcase
 459
 460 '-----------------------------------------------------------
 461
 462 testcase tInsertBookmark
 463     PrintLog "- Insert / Bookmark"
 464
 465     printlog " Open new document"
 466     Call hNewDocument
 467
 468     printlog " Insert / Bookmark"
 469     InsertBookmark
 470     Kontext "TextmarkeEinfuegen"
 471     Call DialogTest (TextmarkeEinfuegen)
 472     wait 500
 473     printlog " Close 'Insert Bookmark' dialog"
 474     TextmarkeEinfuegen.Cancel
 475
 476     printlog " Close active document"
 477     Call hCloseDocument
 478 endcase
 479
 480 '-----------------------------------------------------------
 481
 482 testcase tInsertNote
 483     dim sNoteText as String
 484     PrintLog "- Insert / Note"
 485
 486     Call hNewDocument
 487
 488     printlog " Insert / Note"
 489     InsertNoteWriter
 490     Kontext "DocumentWriter"
 491     sNoteText = "Testnote inserted by testtool !"
 492     Call wTypeKeys (sNoteText)
 493
 494     Call wNavigatorAuswahl( 11, 1 )
 495     Kontext "NavigatorWriter"
 496     if Auswahlliste.Gettext <> sNoteText then
 497         warnlog ("Note was not inserted correctly (Focus problem?")
 498     end if
 499
 500     printlog " Close active document"
 501     Call hCloseDocument
 502 endcase
 503
 504 '-----------------------------------------------------------
 505
 506 testcase tInsertCrossReference
 507     Dim i as integer
 508     Dim j as integer
 509     printlog "- Insert / Reference Field"
 510     if gApplication = "HTML" then
 511         printlog "Not in WriterWeb!"
 512         goto endsub
 513     end if
 514     printlog " Open new document"
 515     Call hNewDocument
 516
 517     printlog " Insert / Cross reference"
 518     InsertReferenceField
 519
 520     Kontext "TabReferenzen"
 521     if NOT TabReferenzen.IsVisible then Warnlog "Reference Tabpage isn't default!"
 522
 523     printlog " Step through all tabpages"
 524     Kontext
 525     Active.SetPage TabFunktionen
 526     Kontext "TabFunktionen"
 527     for i=1 to Feldtyp.GetItemCount
 528         Feldtyp.Select i
 529         if MakroButton.IsEnabled then
 530             MakroButton.Click
 531             ' if no JRE is installed a messagebox appears
 532             j = 0
 533             Do
 534                 j = j + 1
 535                 Kontext "Active"
 536                 if Active.Exists then
 537                     if Active.GetRT = 304 then
 538                         if j = 1 then Warnlog Active.Gettext
 539                         Active.Ok
 540                     else
 541                         exit do
 542                     end if
 543                 else
 544                     exit do
 545                 end if
 546             Loop
 547             Kontext "ScriptSelector"
 548             if ( ScriptSelector.exists( 3 ) ) then
 549                 ScriptSelector.Close
 550             else
 551                 warnlog( "Dialog <ScriptSelector> is not available" )
 552             endif
 553             Kontext "TabFunktionen"
 554             i=100
 555         end if
 556     next i
 557
 558     Kontext
 559     Active.SetPage TabDokumentinfoFeldbefehle
 560     Kontext "TabDokumentinfoFeldbefehle"
 561
 562     Kontext
 563     Active.SetPage TabVariablen
 564     Kontext "TabVariablen"
 565
 566     Kontext
 567     Active.SetPage TabDatenbank
 568     Kontext "TabDatenbank"
 569
 570     Kontext
 571     Active.SetPage TabDokumentFeldbefehle
 572     Kontext "TabDokumentFeldbefehle"
 573
 574     printlog " Close dialog"
 575     TabDokumentFeldbefehle.Close
 576
 577     printlog " Close active document"
 578     Call hCloseDocument
 579 endcase
 580
 581 '-----------------------------------------------------------
 582
 583 testcase tInsertScript
 584     PrintLog "- Insert / Script"
 585
 586     printlog " Open new document"
 587     Call hNewDocument
 588
 589     printlog " Insert / Script"
 590     InsertScript
 591     Kontext "ScriptEinfuegen"
 592     Call DialogTest (ScriptEinfuegen)
 593     wait 500
 594     ScriptEinfuegen.Cancel
 595
 596     printlog " Close active document"
 597     Call hCloseDocument
 598 endcase
 599
 600 '-----------------------------------------------------------
 601
 602 testcase tInsertIndexesEntry
 603     qaErrorLog "#158646# - Insert Indexes Entry causes crash."
 604     goto endsub
 605
 606     PrintLog "- Insert / Indexes / Entry"
 607     if gApplication = "HTML" then
 608         printlog "Not in WriterWeb!"
 609         goto endsub
 610     end if
 611     printlog " Open new document"
 612     Call hNewDocument
 613
 614     printlog " Insert / Indexes and Tables / Entry"
 615     InsertIndexesEntry
 616     Kontext "VerzeichniseintragEinfuegen"
 617     Call DialogTest (VerzeichniseintragEinfuegen)
 618     printlog " Click 'Insert'"
 619     EintragNeu.Click
 620
 621     Kontext "BenutzerverzeichnisDefinieren"
 622     Call DialogTest (BenutzerverzeichnisDefinieren)
 623     printlog " Close dialog 'Insert Index Entry'"
 624     BenutzerverzeichnisDefinieren.Cancel
 625     Kontext "VerzeichniseintragEinfuegen"
 626     EinfuegenSchliessen.Click
 627
 628     printlog " Close active document"
 629     Call hCloseDocument
 630 endcase
 631
 632 '-----------------------------------------------------------
 633
 634 testcase tInsertIndexesIndex
 635     Dim i as integer
 636     Printlog "- Insert / Indexes / Index"
 637     if gApplication = "HTML" then
 638         printlog "Not in WriterWeb!"
 639         goto endsub
 640     end if
 641     printlog " Open new document"
 642     Call hNewDocument
 643
 644     printlog " Insert / Indexes and Tables / Indexes and Tables"
 645     InsertIndexes
 646     WaitSlot (5000)
 647     Kontext "Active"
 648     if Active.Exists then
 649         if Active.GetRT = 304 then
 650             Warnlog Active.Gettext
 651             Active.Ok
 652         end if
 653     end if
 654     Sleep 1
 655     printlog " Step through all Tabpages"
 656     Kontext
 657     printlog "-  TabPage Indexes"
 658     Active.Setpage TabVerzeichnisseVerzeichnis
 659     Kontext "TabVerzeichnisseVerzeichnis"
 660     For i= 1 to VerzeichnisTyp.GetItemCount
 661         Sleep 1
 662         if i = 2 then printlog "Alphabetical index see bug #i33671 (ok in m54)"
 663         VerzeichnisTyp.Select i
 664         printlog "- " + VerzeichnisTyp.GetSelText
 665         Call DialogTest (TabVerzeichnisseVerzeichnis)
 666         printlog "-  Entry's to " + VerzeichnisTyp.GetSelText
 667
 668         if i = 1 then
 669             ErzeugenAusGliederung.Check
 670         end if
 671
 672         if i = 2 then
 673             if gUseSysDlg = False then
 674                 Konkordanzdatei.Check
 675                 Kontext "KonkordanzdateiOeffnen"
 676                 if KonkordanzdateiOeffnen.Exists then
 677                     KonkordanzdateiOeffnen.Cancel
 678                     Warnlog "Open-Dialog comes up at checking the checkbox!"
 679                 end if
 680                 Kontext "TabVerzeichnisseVerzeichnis"
 681                 if KonkordanzAuswahl.IsEnabled then
 682                     KonkordanzAuswahl.Click
 683                     wait 500
 684                     Call hMenuSelectNr ( 1 )
 685                     Kontext "KonkordanzdateiOeffnen"
 686                     if KonkordanzdateiOeffnen.Exists then
 687                         KonkordanzdateiOeffnen.Cancel
 688                     else
 689                         Warnlog "No Open-Dialog selecting Concordance-File->Open!"
 690                     end if
 691                     Sleep 1
 692                     Kontext "TabVerzeichnisseVerzeichnis"
 693                     KonkordanzAuswahl.Click
 694                     wait 500
 695                     Call hMenuSelectNr ( 2 )
 696                     Kontext "SpeichernDlg"
 697                     if SpeichernDlg.Exists then
 698                         SpeichernDlg.Cancel
 699                     else
 700                         Warnlog "No Open-Dialog selecting Concordance-File->New!"
 701                     end if
 702                 else
 703                     Warnlog "- Concordance-File couldn't be selected, though checkbox is checked!"
 704                 end if
 705                 Sleep 1
 706             end if
 707         end if
 708
 709         Kontext
 710         Active.Setpage TabVerzeichnisseEintraege
 711         Kontext "TabVerzeichnisseEintraege"
 712         Call DialogTest (TabVerzeichnisseEintraege)
 713         Kontext
 714         Active.Setpage TabVerzeichnisseVerzeichnis
 715         Kontext "TabVerzeichnisseVerzeichnis"
 716     next i
 717     Sleep 1
 718
 719     Kontext
 720     printlog "-  Tabpage Styles"
 721     Active.Setpage TabVerzeichnisseVorlagen
 722     Kontext "TabVerzeichnisseVorlagen"
 723     Call DialogTest (TabVerzeichnisseVorlagen)
 724     Sleep 1
 725     printlog "- Tabpage Columns"
 726     Kontext
 727     Active.Setpage TabSpalten
 728     Kontext "TabSpalten"
 729     Call DialogTest (TabSpalten)
 730     Sleep 1
 731     printlog "- Tabpage Background"
 732     Kontext
 733     Active.Setpage TabHintergrund
 734     Kontext "TabHintergrund"
 735     TabHintergrund.Cancel
 736     Sleep 1
 737     printlog " Close active document"
 738     Call hCloseDocument
 739
 740     Sleep 2
 741     printlog " Open new document"
 742     Call hNewDocument
 743     Sleep 2
 744
 745     printlog " View Zoom"
 746     ViewZoom
 747
 748     Kontext "Massstab"
 749     printlog " Check if 100% Zoom is checked ( Had a bug changed after opening Index dialog )"
 750     if Massstab.Exists then
 751         if Not Vergroesserung100.IsChecked then
 752             Warnlog "100% Zoom is not checked.Maybe Bug#95871! Set Zoom to 100%!"
 753             Vergroesserung100.Check
 754             Massstab.ok
 755         else
 756             Massstab.Cancel
 757             printlog " Close 'Zoom' dialog"
 758         end if
 759     else
 760         Warnlog "Dialog 'Zoom' does not exist!"
 761     end if
 762     printlog " Close active document"
 763     Call hCloseDocument
 764 endcase
 765
 766 '-----------------------------------------------------------
 767
 768 testcase tInsertIndexesBibliographyEntry
 769     Printlog "- Insert / Indexes / Bibliography Entry"
 770     if gApplication = "HTML" then
 771         printlog "Not in WriterWeb!"
 772         goto endsub
 773     end if
 774     printlog " Open new document"
 775     Call hNewDocument
 776
 777     printlog " Insert / Indexes and Tables / Bibliography Entry "
 778     hUseAsyncSlot( "InsertIndexesBibliographyEntry" )
 779
 780     Kontext "Active"
 781     if ( Active.Exists() ) then
 782         Do
 783             try
 784                 if ( Active.GetRT = 304 ) then
 785                     Warnlog Active.Gettext
 786                     Active.Ok
 787                 end if
 788             catch
 789                 exit do
 790             endcatch
 791         Loop
 792     end if
 793
 794     Kontext "LiteratureintragEinfuegen"
 795     if ( LiteratureintragEinfuegen.exists( 1 ) ) then
 796         Call DialogTest ( LiteratureintragEinfuegen )
 797
 798         printlog " In dialog 'Insert Bibliography Entry' click 'Edit'"
 799         EintragBearbeiten.Click
 800
 801         Kontext "LiteratureintragDefinieren"
 802         if ( LiteratureintragDefinieren.exists( 1 ) ) then
 803             Call DialogTest ( LiteratureintragDefinieren )
 804             printlog " Close dialog 'Define Bibliography Entry'"
 805             LiteratureintragDefinieren.Close
 806         else
 807             warnlog( "Dialog <LiteratureintragDefinieren> is not available" )
 808         endif
 809
 810         Kontext "LiteratureintragEinfuegen"
 811         printlog " Close dialog 'Insert Bibliography Entry'"
 812         EintragSchliessen.Click
 813     else
 814         warnlog( "Dialog <LiteratureintragEinfuegen> is not available" )
 815     endif
 816     printlog " Close active document"
 817     Call hCloseDocument
 818 endcase
 819
 820 '-----------------------------------------------------------
 821
 822 testcase tInsertEnvelope
 823     PrintLog "- Insert / Envelope"
 824     if gApplication = "HTML" then
 825         printlog "Not in WriterWeb!"
 826         goto endsub
 827     end if
 828
 829     printlog " Open new document"
 830     Call hNewDocument
 831
 832     printlog " Insert / Envelope"
 833     InsertEnvelope
 834
 835     Kontext
 836     active.SetPage TabEnvelope
 837     Kontext "TabEnvelope"
 838     Call DialogTest (TabEnvelope)
 839
 840     Kontext
 841     active.SetPage TabFormatEnvelope
 842     Kontext "TabFormatEnvelope"
 843     Call DialogTest (TabFormatEnvelope)
 844     printlog " Step through all tabpages and click all buttons"
 845
 846     printlog "-  Edit Addressee"
 847     Sleep 1
 848     AddresseeEdit.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 "TabFormatEnvelope"
 869     printlog "-  Edit Sender"
 870     Sleep 1
 871     SenderEdit.Click
 872     wait 500
 873     Call hMenuSelectNr(1)
 874     Kontext
 875     Sleep 1
 876     Active.Setpage TabFont
 877     Kontext "TabFont"
 878     TabFont.Cancel
 879
 880     Kontext "TabFormatEnvelope"
 881     Sleep 1
 882     SenderEdit.Click
 883     wait 500
 884     Call hMenuSelectNr(2)
 885     Kontext
 886     Sleep 1
 887     Active.Setpage TabEinzuegeUndAbstaende
 888     Kontext "TabEinzuegeUndAbstaende"
 889     TabEinzuegeUndAbstaende.Cancel
 890
 891     Kontext
 892     Sleep 2
 893     active.SetPage TabDruckerBriefumschlag
 894     Kontext "TabDruckerBriefumschlag"
 895     Call DialogTest (TabDruckerBriefumschlag)
 896     if gPlatgroup = "w95" then
 897         Einrichten.Click
 898         Kontext "DruckerEinrichten"
 899         if DruckerEinrichten.Exists then
 900             DruckerEinrichten.Cancel
 901         else
 902             Warnlog "No Default-Printer!"
 903         end if
 904         Kontext "TabDruckerBriefumschlag"
 905     end if
 906     printlog " Close dialog"
 907     TabDruckerBriefumschlag.Close
 908
 909     printlog " Close active document"
 910     Call hCloseDocument
 911 endcase
 912
 913 '-----------------------------------------------------------
 914
 915 testcase tInsertFrame
 916     PrintLog "- Insert / Frame"
 917
 918     printlog " Open new document"
 919     Call hNewDocument
 920
 921     printlog " Insert / Frame"
 922     InsertFrame
 923     WaitSlot (2000)
 924
 925     printlog " Step through all tabpages"
 926     Kontext
 927     active.SetPage TabType
 928     Kontext "TabType"
 929     Call DialogTest (TabType)
 930     Sleep 1
 931
 932     Kontext
 933     active.SetPage TabZusaetze
 934     Kontext "TabZusaetze"
 935     Call DialogTest (TabZusaetze)
 936     Sleep 1
 937
 938     Kontext
 939     active.SetPage TabUmlauf
 940     Kontext "TabUmlauf"
 941     Call DialogTest (TabUmlauf)
 942     Sleep 1
 943
 944     Kontext
 945     active.SetPage TabUmrandung
 946     Kontext "TabUmrandung"
 947     Call DialogTest (TabUmrandung)
 948     Sleep 1
 949
 950     Kontext
 951     active.SetPage TabHintergrund
 952     Kontext "TabHintergrund"
 953     Call DialogTest (TabHintergrund, 1)
 954     Sleep 1
 955     try
 956         Als.Select (2)
 957         Call DialogTest (TabHintergrund, 2)
 958         Sleep 1
 959     catch
 960         Warnlog "Maybe missing combobox! (#i29517)"
 961     endcatch
 962
 963     if gApplication <> "HTML" then
 964         Kontext
 965         active.SetPage TabHyperlinkRahmen
 966         Kontext "TabHyperlinkRahmen"
 967         Call DialogTest (TabHyperlinkRahmen)
 968         Durchsuchen.Click
 969
 970         if gUSeSysDlg = False then
 971             Kontext "OeffnenDlg"
 972             OeffnenDlg.Cancel
 973         end if
 974
 975         Kontext
 976         active.SetPage TabSpalten
 977         Kontext "TabSpalten"
 978         Call DialogTest (TabSpalten)
 979         printlog " Close dialog"
 980         TabSpalten.Cancel
 981     else
 982         printlog " Close dialog"
 983         TabHintergrund.Cancel
 984     end if
 985
 986     printlog " Close active document"
 987     Call hCloseDocument
 988 endcase
 989
 990 '-----------------------------------------------------------
 991
 992 testcase tInsertTable
 993     PrintLog "- Insert / Table"
 994
 995     printlog " Open new document"
 996     Call hNewDocument
 997     printlog " Insert / Table"
 998     InsertTableWriter
 999
1000     Kontext "TabelleEinfuegenWriter"
1001     Call DialogTest (TabelleEinfuegenWriter)
1002     if Spalten.Gettext <> "2" then Warnlog "- Default for Size Columns isn't 2 , it is " + Spalten.Gettext
1003     if Zeilen.Gettext <> "2" then Warnlog "- Default for Size Row isn't 2, it is " + Zeilen.Gettext
1004     printlog " In 'insert Table' dialog click 'AutoFormat'"
1005     Autoformat.Click
1006     Kontext "AutoformatTabelle"
1007
1008     printlog " In 'AutoFormat' dialog click 'More'"
1009     Zusaetze.Click
1010     Call DialogTest ( AutoformatTabelle )
1011
1012     if Formatbox.GetItemCount > 2 then
1013         Formatbox.Select(3)
1014         Zusaetze.Open
1015         Umbenennen.Click
1016         Kontext "AutoformatHinzufuegenWriter"
1017         Call DialogTest ( AutoformatHinzufuegenWriter )
1018         TabellenName.SetText "Hallo"
1019         AutoformatHinzufuegenWriter.Cancel
1020         Kontext "AutoFormatTabelle"
1021     else
1022         Warnlog "Only " + Formatbox.GetItemCount + " Table formats to select ?"
1023     end if
1024     printlog " Close dialog 'More'"
1025     Zusaetze.Close
1026     printlog " Close dialog 'AutoFormat'"
1027     AutoformatTabelle.Cancel
1028
1029     Kontext "TabelleEinfuegenWriter"
1030     printlog " Close dialog ''"
1031     TabelleEinfuegenWriter.Cancel
1032
1033     printlog " Close active document"
1034     Call hCloseDocument
1035 endcase
1036
1037 '-----------------------------------------------------------
1038
1039 testcase tInsertHorizontalLine
1040     PrintLog "- Insert / Horizontal Line"
1041
1042     printlog " Open new document"
1043     Call hNewDocument
1044
1045     printlog " Insert / Horizontal Line"
1046     InsertHorizontalLine
1047     Kontext "HorizontaleLinieEinfuegen"
1048     Call DialogTest (HorizontaleLinieEinfuegen)
1049     printlog " Close dialog 'Insert Horizontal Ruler'"
1050     HorizontaleLinieEinfuegen.Cancel
1051
1052     printlog " Close active document"
1053     Call hCloseDocument
1054 endcase
1055
1056 '-----------------------------------------------------------
1057
1058 testcase tInsertGraphicsFromFile
1059     PrintLog "- Insert / Graphics / From File"
1060     Dim j as integer
1061
1062     printlog " Open new document"
1063     Call hNewDocument
1064
1065     printlog " Insert / Graphics from file"
1066     InsertGraphicsFromFile
1067
1068     Kontext "GrafikEinfuegenDlg"
1069     printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
1070     Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
1071     Oeffnen.Click
1072
1073     Kontext "Active"
1074     if Active.Exists( 1 ) then
1075         Warnlog Active.Gettext
1076         Active.Ok
1077         Kontext "GrafikEinfuegenDlg"
1078         GrafikEinfuegenDlg.Cancel
1079         Call hCloseDocument
1080         goto endsub
1081     else
1082         printlog " select again 'Insert / Grahics from file'"
1083         InsertGraphicsFromFile
1084         WaitSlot (2000)
1085         printlog " Step through all tabpages"
1086         Kontext
1087         active.SetPage TabType
1088         wait 500
1089         Kontext "TabType"
1090         Call DialogTest ( TabType )
1091
1092         Kontext
1093         active.SetPage TabZusaetze
1094         wait 500
1095         Kontext "TabZusaetze"
1096         Call DialogTest ( TabZusaetze )
1097
1098         Kontext
1099         active.SetPage TabUmlauf
1100         wait 500
1101         Kontext "TabUmlauf"
1102         Call DialogTest ( TabUmlauf )
1103
1104         Kontext
1105         active.SetPage TabHyperlinkRahmen
1106         wait 500
1107         Kontext "TabHyperlinkRahmen"
1108         Call DialogTest ( TabHyperlinkRahmen )
1109
1110         Kontext
1111         active.SetPage TabGrafik
1112         wait 500
1113         Kontext "TabGrafik"
1114         Call DialogTest ( TabGrafik )
1115
1116         Kontext
1117         active.SetPage TabUmrandung
1118         wait 500
1119         Kontext "TabUmrandung"
1120         Call DialogTest ( TabUmrandung )
1121
1122         Kontext
1123         active.SetPage TabMakro
1124         ' if no JRE is installed a messagebox appears
1125         j = 0
1126         Do
1127             j = j + 1
1128             Kontext "Active"
1129             if Active.Exists() then
1130                 if Active.GetRT = 304 then
1131                     if j = 1 then Warnlog Active.Gettext
1132                     Active.Ok
1133                 else
1134                     exit do
1135                 end if
1136             else
1137                 exit do
1138             end if
1139         Loop
1140         wait 500
1141         Kontext "TabMakro"
1142         Call DialogTest ( TabMakro )
1143
1144         if gApplication <> "HTML" then
1145             Kontext
1146             active.SetPage TabZuschneiden
1147             wait 500
1148             Kontext "TabZuschneiden"
1149             Call DialogTest ( TabZuschneiden )
1150
1151             Kontext
1152             active.SetPage TabHintergrund
1153             wait 500
1154             Kontext "TabHintergrund"
1155             Call DialogTest ( TabHintergrund )
1156             printlog " Close dialog"
1157             TabHintergrund.Cancel
1158         else
1159             printlog " Close dialog"
1160             TabMakro.Cancel
1161         end if
1162     end if
1163
1164     printlog " Close active document"
1165     Call hCloseDocument
1166 endcase
1167
1168 '-----------------------------------------------------------
1169
1170 testcase tInsertAllGraphicsFromFile
1171     Dim i as integer
1172     Dim quellpfad as string
1173     Dim DieDatei as string
1174     Dim Ziel( 5000 ) as String
1175     printlog "Insert / Graphics / From File (all Formats)"
1176
1177     printlog " Open new document"
1178     Call hNewDocument
1179
1180     printlog " Insert all graphic formats from directory: global\input\graf_inp\"
1181     quellpfad = ConvertPath(gtesttoolpath + "global\input\graf_inp\")
1182
1183     GetFileList(quellpfad, "*.*" , Ziel())
1184     for i=1 to ListCount(Ziel())
1185         if (gPlatform = "osx") AND (right(ziel(i),3) = "eps") then
1186             qaerrorlog "#i100253# skipping eps"
1187             i=i+1
1188         endif
1189         printlog "- Graphic: " + Right(Ziel(i),3) + "-Format"
1190         Call hGrafikEinfuegen ( Ziel(i) )
1191         Sleep 5
1192         Call wTypeKeys("<Delete>")
1193         Call gMouseDoubleClick (10,10)
1194         Sleep 5
1195     next i
1196
1197     printlog " Close active document"
1198     Call hCloseDocument
1199 endcase
1200
1201 '-----------------------------------------------------------
1202
1203 testcase tInsertObjectOLEObject
1204     PrintLog "- Insert / Object / OLE-Objekt"
1205
1206     printlog " Open new document"
1207     Call hNewDocument
1208
1209     printlog " Insert / Object / OLE-Object"
1210     InsertObjectOLEObject
1211
1212     Kontext "OLEObjektEinfuegen"
1213     printlog " Check both radiobuttons 'Create now' and 'Create from file'"
1214     NeuErstellen.Check
1215     Call DialogTest (OLEObjektEinfuegen, 1)
1216     AusDateiErstellen.Check
1217     Call DialogTest (OLEObjektEinfuegen, 2)
1218     OLEObjektEinfuegen.Cancel
1219
1220     printlog " Close active document"
1221     Call hCloseDocument
1222 endcase
1223
1224 '-----------------------------------------------------------
1225
1226 testcase tInsertObjectPlugIn
1227     PrintLog "- Insert / Object / Plug-In"
1228
1229     printlog " Open new document"
1230     Call hNewDocument
1231
1232     printlog " Close 'Plug in' dialog"
1233     InsertObjectPlugIn
1234
1235     Kontext "PlugInEinfuegen"
1236     if PlugInEinfuegen.Exists then
1237         Call DialogTest (PlugInEinfuegen)
1238         PlugInEinfuegen.Cancel
1239     else
1240         Warnlog "Dialog 'Plugin' is not up!"
1241     end if
1242
1243     printlog " Close active document"
1244     Call hCloseDocument
1245 endcase
1246
1247 '-----------------------------------------------------------
1248
1249 testcase tInsertObjectSound
1250     Printlog "- Insert / Object / Sound"
1251     printlog " Open new document"
1252     Call hNewDocument
1253
1254     try
1255         if gUseSysDlg = False then
1256             InsertObjectSound
1257             printlog " Insert / Object / Sound"
1258             Kontext "OeffnenDlg"
1259             if OeffnenDlg.Exists then
1260                 OeffnenDlg.Cancel
1261             else
1262                 Warnlog "Dialog to insert Sound isn't up!"
1263             end if
1264         end if
1265     catch
1266         'Warnlog "- Menu disabled or no Sound-PlugIn installed !?"
1267     endcatch
1268     printlog " Close active document"
1269     Call hCloseDocument
1270 endcase
1271
1272 '-----------------------------------------------------------
1273
1274 testcase tInsertObjectVideo
1275     Printlog "- Insert / Object / Video"
1276
1277     printlog " Open new document"
1278     Call hNewDocument
1279
1280     try
1281         if gUseSysDlg = False then
1282             InsertObjectVideo
1283             printlog " Insert / Object / Video"
1284             Kontext "OeffnenDlg"
1285             if OeffnenDlg.Exists then
1286                 OeffnenDlg.Cancel
1287             else
1288                 Warnlog "Dialog to insert Video isn't up!"
1289             end if
1290         end if
1291     catch
1292         'Warnlog "- Menu disabled or no Video-PlugIn installed !?"
1293     endcatch
1294     printlog " Close active document"
1295     Call hCloseDocument
1296 endcase
1297
1298 '-----------------------------------------------------------
1299
1300 testcase tInsertObjectFormula
1301     PrintLog "- Insert / Object / Formula"
1302
1303     printlog " Open new document"
1304     Call hNewDocument
1305
1306     printlog " Insert / Object / Formular"
1307     InsertObjectFormula
1308     WaitSlot (2000)
1309     Kontext "Active"
1310     if Active.Exists then
1311         if Active.GetRT = 304 then
1312             Warnlog Active.Gettext
1313             Active.Ok
1314         end if
1315     end if
1316     Sleep 1
1317
1318     printlog " Click in 'Math' document"
1319     Call gMouseClick(1,1)
1320     sleep 1
1321     printlog "  'Delete math-object in document"
1322     Call wTypeKeys("<Delete>")
1323
1324     printlog " Close active document"
1325     Call hCloseDocument
1326 endcase
1327
1328 '-----------------------------------------------------------
1329
1330 testcase tInsertObjectChart
1331     PrintLog "- Insert / Object / Chart"
1332
1333     printlog " Open new document"
1334     Call hNewDocument
1335     ' Chart-Wizard will be invoked if data ranges exist
1336     ' Therefor a table will be inserted
1337     printlog " Insert / Table"
1338     InsertTableWriter
1339     Kontext "TabelleEinfuegenWriter"
1340     TabelleEinfuegenWriter.Ok
1341
1342     printlog " Insert / Object / Chart"
1343     InsertObjectChart
1344
1345     Kontext "ChartWizard"
1346     if ChartWizard.Exists then
1347         printlog "- Chart-Wizard is up=>OK"
1348         Call DialogTest ( ChartWizard )
1349         printlog " Cancel Chart-Wizard"
1350         ChartWizard.Cancel
1351     else
1352         warnlog "Chart-Wizard is not up though a table has been inserted"
1353     end if
1354
1355     printlog " Close active document"
1356     Call hCloseDocument
1357 endcase
1358
1359 '-----------------------------------------------------------
1360
1361 testcase tInsertFile
1362     PrintLog "- Insert / File"
1363
1364     printlog " Open new document"
1365     Call hNewDocument
1366     InsertFileWriter
1367     WaitSlot( 2000 )
1368
1369     printlog " Insert / File"
1370     Kontext "OeffnenDlg"
1371
1372     printlog " Check 'File dialog'"
1373     if OeffnenDlg.Exists( 2 ) then
1374         Call DialogTest ( OeffnenDlg )
1375         try
1376             Standard.Click
1377         catch
1378             Exceptlog
1379         endcatch
1380
1381         Kontext "Active"
1382         if Active.Exists then
1383             Warnlog Active.Gettext
1384             Active.Ok
1385         else
1386             Kontext "OeffnenDlg"
1387             OeffnenDlg.Cancel
1388         end if
1389     end if
1390
1391     printlog " Close active document"
1392     Call hCloseDocument
1393 endcase
1394
1395 '-----------------------------------------------------------
1396
1397 testcase tHtmlDocInsertFields
1398     PrintLog "- Insert / Fields"
1399
1400     gApplication = "HTML"
1401     printlog " Open new document"
1402     Call hNewDocument
1403
1404     try
1405         printlog "Insert / Fields / Date"
1406         InsertFieldsDate
1407     catch
1408         Warnlog "Unable to execute: Insert / Fields / Date "
1409     endcatch
1410     printlog " Insert / Fields / Date"
1411     Call wTypeKeys (" <Return>")
1412     try
1413         printlog "Insert / Fields / Time"
1414         InsertFieldsTime
1415     catch
1416         Warnlog "Unable to execute: Insert / Fields / Time"
1417     endcatch
1418     printlog " Insert / Fields / Time"
1419     Call wTypeKeys (" <Return>")
1420     try
1421         printlog "Insert / Fields / Page Number"
1422         InsertFieldsPageNumbers
1423     catch
1424         Warnlog "Unable to execute: Insert / Fields / Page numbers"
1425     endcatch
1426     printlog " Insert / Fields / Page numbers"
1427     Call wTypeKeys (" <Return>")
1428     try
1429         printlog "Insert / Fields / Page Count"
1430         InsertFieldsPageCount
1431     catch
1432         Warnlog "Unable to execute: Insert / Fields / Page Count"
1433     endcatch
1434     printlog " Insert / Fields / Page count"
1435     Call wTypeKeys (" <Return>")
1436     try
1437         printlog "Insert / Fields / Title"
1438         InsertFieldsTitle
1439     catch
1440         Warnlog "Unable to execute: Insert / Fields / Title"
1441     endcatch
1442     printlog " Insert / Fields / Title"
1443     Call wTypeKeys (" <Return>")
1444     try
1445         printlog "Insert / Fields / Author"
1446         InsertFieldsAuthor
1447     catch
1448         Warnlog "Unable to execute: Insert / Fields / Author"
1449     endcatch
1450     printlog " Insert / Fields / Author"
1451     if gApplication <> "HTML" then
1452         try
1453             printlog "Insert / Fields / Subject"
1454             InsertFieldsSubject
1455         catch
1456             Warnlog "Unable to execute: Insert / Fields / Subject"
1457         endcatch
1458         printlog " If document not HTML then  'Insert / Fields / Subject"
1459         Call wTypeKeys (" <Return>")
1460         printlog " Press key 'enter'"
1461     end if
1462
1463     printlog " Close active document"
1464     Call hCloseDocument
1465     gApplication = "WRITER"
1466 endcase
1467
1468 '-----------------------------------------------------------
1469
1470 testcase tHtmlDocInsertFieldsOther
1471     Dim i as integer
1472     Dim j as integer
1473     printlog "- Insert / Fields / Other"
1474
1475     gApplication = "HTML"
1476     printlog " Open new document"
1477     Call hNewDocument
1478
1479     printlog " Insert / Fields / Other"
1480     InsertFieldsOther
1481
1482     Kontext
1483     printlog " In dialog step through all tabpages"
1484     Active.SetPage TabDokumentFeldbefehle
1485     Kontext "TabDokumentFeldbefehle"
1486     Call Dialogtest ( TabDokumentFeldbefehle )
1487
1488     Kontext
1489     Active.SetPage TabDokumentinfoFeldbefehle
1490     Kontext "TabDokumentinfoFeldbefehle"
1491     Call Dialogtest ( TabDokumentinfoFeldbefehle )
1492
1493     Kontext
1494     Active.SetPage TabVariablen
1495     Kontext "TabVariablen"
1496     Call Dialogtest ( TabVariablen )
1497
1498     if gApplication <> "HTML" then
1499         Kontext
1500         Active.SetPage TabReferenzen
1501         Kontext "TabReferenzen"
1502         Call Dialogtest ( TabReferenzen )
1503
1504         Kontext
1505         Active.SetPage TabFunktionen
1506         Kontext "TabFunktionen"
1507         Call Dialogtest ( TabFunktionen )
1508         for i=1 to Feldtyp.GetItemCount
1509             Feldtyp.Select i
1510             if MakroButton.IsEnabled then
1511                 MakroButton.Click
1512                 ' if no JRE is installed a messagebox appears
1513                 Do
1514                     j = j + 1
1515                     Kontext "Active"
1516                     if Active.Exists then
1517                         if Active.GetRT = 304 then
1518                             if j = 1 then Warnlog Active.Gettext
1519                             Active.Ok
1520                         else
1521                             exit do
1522                         end if
1523                     else
1524                         exit do
1525                     end if
1526                 Loop
1527
1528                 Kontext "ScriptSelector"
1529                 if ( ScriptSelector.exists( 3 ) ) then
1530                     ScriptSelector.Close
1531                 else
1532                     warnlog( "Dialog <ScriptSelector> is not available" )
1533                 endif
1534                 Kontext "TabFunktionen"
1535                 i=100
1536             end if
1537         next i
1538
1539         Kontext
1540         Active.SetPage TabDatenbank
1541         Kontext "TabDatenbank"
1542         Call Dialogtest ( TabDatenbank )
1543
1544         printlog " Close dialog"
1545         TabDatenbank.Close
1546     else
1547         printlog " Close dialog"
1548         TabVariablen.Close
1549     end if
1550     printlog " Close active document"
1551     Call hCloseDocument
1552     gApplication = "WRITER"
1553 endcase
1554
1555 '-----------------------------------------------------------
1556
1557 testcase tHtmlDocInsertSection
1558     PrintLog "- Insert / Section"
1559
1560     gApplication = "HTML"
1561     printlog " Open new document"
1562     Call hNewDocument
1563
1564     printlog " Insert / Section"
1565     InsertSection
1566     Kontext
1567
1568     printlog "  In dialog step through all tabpages"
1569     printlog "-  Tabpage Section"
1570     Active.Setpage TabBereiche
1571     Kontext "TabBereiche"
1572     Call DialogTest (TabBereiche)
1573     Verknuepfung.Check
1574
1575     Auswaehlen.Click
1576     Kontext "OeffnenDlg"
1577     if ( OeffnenDlg.exists( 1 ) ) then
1578         OeffnenDlg.Cancel
1579     else
1580         warnlog( "Dialog <OeffnenDlg> is not available" )
1581     endif
1582
1583     Wait 500
1584     Kontext
1585     printlog "-  Tabpage Columns"
1586     Active.Setpage TabSpalten
1587     Kontext "TabSpalten"
1588     Call DialogTest (TabSpalten)
1589
1590     Kontext
1591     printlog "-  Tabpage Background"
1592     Active.Setpage TabHintergrund
1593     Kontext "TabHintergrund"
1594     Call DialogTest (TabHintergrund)
1595
1596     if gApplication <> "HTML" then
1597         printlog "Tabpage Indents"
1598         Kontext
1599         Active.Setpage TabSectionIndent
1600         Kontext "TabSectionIndent"
1601         Call DialogTest (TabSectionIndent)
1602
1603         printlog "-  Tabpage Footnotes/Endnotes"
1604         Kontext
1605         Active.Setpage TabFussEndnoten
1606         Kontext "TabFussEndnoten"
1607         Call DialogTest (TabFussEndnoten)
1608         TabFussEndnoten.Cancel
1609     else
1610         TabHintergrund.Cancel
1611     end if
1612     printlog " Close active document"
1613     Call hCloseDocument
1614     gApplication = "WRITER"
1615 endcase
1616
1617 '-----------------------------------------------------------
1618
1619 testcase tHtmlDocInsertFrame
1620     PrintLog "- Insert / Frame"
1621
1622     gApplication = "HTML"
1623     printlog " Open new document"
1624     Call hNewDocument
1625
1626     printlog " Insert / Frame"
1627     InsertFrame
1628     WaitSlot (2000)
1629
1630     printlog " Step through all tabpages"
1631     Kontext
1632     active.SetPage TabType
1633     Kontext "TabType"
1634     Call DialogTest (TabType)
1635     Sleep 1
1636
1637     Kontext
1638     active.SetPage TabZusaetze
1639     Kontext "TabZusaetze"
1640     Call DialogTest (TabZusaetze)
1641     Sleep 1
1642
1643     Kontext
1644     active.SetPage TabUmlauf
1645     Kontext "TabUmlauf"
1646     Call DialogTest (TabUmlauf)
1647     Sleep 1
1648
1649     Kontext
1650     active.SetPage TabUmrandung
1651     Kontext "TabUmrandung"
1652     Call DialogTest (TabUmrandung)
1653     Sleep 1
1654
1655     Kontext
1656     active.SetPage TabHintergrund
1657     Kontext "TabHintergrund"
1658     Call DialogTest (TabHintergrund, 1)
1659     Sleep 1
1660     try
1661         Als.Select (2)
1662         Call DialogTest (TabHintergrund, 2)
1663         Sleep 1
1664     catch
1665         Warnlog "Maybe missing combobox! (#i29517)"
1666     endcatch
1667
1668     if gApplication <> "HTML" then
1669         Kontext
1670         active.SetPage TabHyperlinkRahmen
1671         Kontext "TabHyperlinkRahmen"
1672         Call DialogTest (TabHyperlinkRahmen)
1673         Durchsuchen.Click
1674
1675         if gUSeSysDlg = False then
1676             Kontext "OeffnenDlg"
1677             OeffnenDlg.Cancel
1678         end if
1679
1680         Kontext
1681         active.SetPage TabSpalten
1682         Kontext "TabSpalten"
1683         Call DialogTest (TabSpalten)
1684         printlog " Close dialog"
1685         TabSpalten.Cancel
1686     else
1687         printlog " Close dialog"
1688         TabHintergrund.Cancel
1689     end if
1690
1691     printlog " Close active document"
1692     Call hCloseDocument
1693     gApplication = "WRITER"
1694 endcase
1695
1696 '-----------------------------------------------------------
1697
1698 testcase tHtmlDocInsertGraphicsFromFile
1699     PrintLog "- Insert / Graphics / From File"
1700     Dim j as integer
1701
1702     gApplication = "HTML"
1703     printlog " Open new document"
1704     Call hNewDocument
1705
1706     printlog " Insert / Graphics from file"
1707     InsertGraphicsFromFile
1708
1709     Kontext "GrafikEinfuegenDlg"
1710     printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
1711     Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
1712     Oeffnen.Click
1713
1714     Kontext "Active"
1715     if Active.Exists( 1 ) then
1716         Warnlog Active.Gettext
1717         Active.Ok
1718         Kontext "GrafikEinfuegenDlg"
1719         GrafikEinfuegenDlg.Cancel
1720         Call hCloseDocument
1721         goto endsub
1722     else
1723         printlog " select again 'Insert / Grahics from file'"
1724         InsertGraphicsFromFile
1725         WaitSlot (2000)
1726         printlog " Step through all tabpages"
1727         Kontext
1728         active.SetPage TabType
1729         wait 500
1730         Kontext "TabType"
1731         Call DialogTest ( TabType )
1732
1733         Kontext
1734         active.SetPage TabZusaetze
1735         wait 500
1736         Kontext "TabZusaetze"
1737         Call DialogTest ( TabZusaetze )
1738
1739         Kontext
1740         active.SetPage TabUmlauf
1741         wait 500
1742         Kontext "TabUmlauf"
1743         Call DialogTest ( TabUmlauf )
1744
1745         Kontext
1746         active.SetPage TabHyperlinkRahmen
1747         wait 500
1748         Kontext "TabHyperlinkRahmen"
1749         Call DialogTest ( TabHyperlinkRahmen )
1750
1751         Kontext
1752         active.SetPage TabGrafik
1753         wait 500
1754         Kontext "TabGrafik"
1755         Call DialogTest ( TabGrafik )
1756
1757         Kontext
1758         active.SetPage TabUmrandung
1759         wait 500
1760         Kontext "TabUmrandung"
1761         Call DialogTest ( TabUmrandung )
1762
1763         Kontext
1764         active.SetPage TabMakro
1765         ' if no JRE is installed a messagebox appears
1766         j = 0
1767         Do
1768             j = j + 1
1769             Kontext "Active"
1770             if Active.Exists then
1771                 if Active.GetRT = 304 then
1772                     if j = 1 then Warnlog Active.Gettext
1773                     Active.Ok
1774                 else
1775                     exit do
1776                 end if
1777             else
1778                 exit do
1779             end if
1780         Loop
1781         wait 500
1782         Kontext "TabMakro"
1783         Call DialogTest ( TabMakro )
1784
1785         if gApplication <> "HTML" then
1786             Kontext
1787             active.SetPage TabZuschneiden
1788             wait 500
1789             Kontext "TabZuschneiden"
1790             Call DialogTest ( TabZuschneiden )
1791
1792             Kontext
1793             active.SetPage TabHintergrund
1794             wait 500
1795             Kontext "TabHintergrund"
1796             Call DialogTest ( TabHintergrund )
1797             printlog " Close dialog"
1798             TabHintergrund.Cancel
1799         else
1800             printlog " Close dialog"
1801             TabMakro.Cancel
1802         end if
1803     end if
1804
1805     printlog " Close active document"
1806     Call hCloseDocument
1807     gApplication = "WRITER"
1808 endcase
1809
1810 '-----------------------------------------------------------