testautomation/writer/required/includes/w_005_.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_005_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:41:15 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description :  Testcases for the Format-Menu
  36 '*
  37 '\******************************************************************
  38
  39 sub w_005_
  40
  41     printLog Chr(13) + "--------- Menu Format (w_005_.inc) ----------"
  42     gApplication = "WRITER"
  43
  44     Call tFormatDefault
  45
  46     Call tFormatCharacter
  47     Call tFormatParagraph
  48     Call tFormatNumberingBullets
  49     Call tFormatPage
  50
  51     Call tFormatChangeCase
  52     Call tFormatRuby
  53     Call tFormatColumn
  54     Call tFormatSections
  55
  56     Call tFormatStylist
  57     Call tFormatAutoformatWhileTyping
  58
  59     Call tFormatAnchor
  60     Call tFormatAnchorArea
  61     Call tFormatWrap
  62     Call tFormatWrapArea
  63
  64     'Writer Web
  65     gApplication = "HTML"
  66     Call tHtmlDocFormatParagraph
  67     Call tHtmlDocFormatPage
  68     Call tHtmlDocFormatStylist
  69     gApplication = "WRITER"
  70
  71 end sub
  72
  73 '------------------------------------------------------
  74
  75 testcase tFormatDefault
  76     PrintLog "- Format / Default"
  77
  78     printlog " Open new document"
  79     Call hNewDocument
  80     printlog " Insert dummy text"
  81     Call wBlindtextEinfuegen
  82     printlog " Edit / Select All"
  83     EditSelectAll
  84     printlog " Format / Default"
  85     FormatDefaultWriter
  86     printlog " Close active document"
  87     Call hCloseDocument
  88 endcase
  89
  90 '------------------------------------------------------
  91
  92 testcase tFormatSections
  93     printlog "- Format / Sections"
  94     printlog " Open new document"
  95     Call hNewDocument
  96     printlog " Insert / Section"
  97     InsertSection
  98     printlog " Step through all tabpages"
  99     Kontext
 100     Active.Setpage TabBereiche
 101     Kontext "TabBereiche"
 102     Bereichsliste.SetText "Mein Bereich"
 103     TabBereiche.OK
 104
 105     hUseAsyncSlot( "FormatSections" )
 106     Kontext "BereicheBearbeiten"
 107     Call Dialogtest(BereicheBearbeiten)
 108     Optionen.Click
 109     sleep(2)
 110     Kontext
 111     Active.SetPage TabSpalten
 112     Kontext "TabSpalten"
 113     Call Dialogtest(TabSpalten)
 114     Kontext
 115     Active.SetPage TabHintergrund
 116     Kontext "TabHintergrund"
 117     Call DialogTest(TabHintergrund, 1)
 118     Als.Select(2)
 119     Call DialogTest (TabHintergrund,2)
 120     Durchsuchen.Click
 121     sleep(2)
 122     Kontext
 123     If Active.Exists then
 124         if Active.GetRT = 304 then
 125             Warnlog Active.GetText
 126             Active.Ok
 127         end if
 128     end If
 129
 130     Kontext "GrafikEinfuegenDlg"
 131     if ( GrafikEinfuegenDlg.exists( 1 ) ) then
 132         GrafikEinfuegenDlg.Cancel
 133         WaitSlot ' NOOP
 134     else
 135         warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
 136     endif
 137
 138     Kontext "TabHintergrund"
 139     TabHintergrund.Cancel
 140
 141     Kontext "BereicheBearbeiten"
 142     if ( BereicheBearbeiten.exists( 1 ) ) then
 143         BereicheBearbeiten.Cancel
 144     else
 145         warnlog( "Dialog <BereicheBearbeiten> is not available" )
 146     endif
 147     printlog " Close active document"
 148     Call hCloseDocument
 149 endcase
 150
 151 '------------------------------------------------------
 152
 153 testcase tFormatCharacter
 154     PrintLog "- Format / Character"
 155     Dim j as integer
 156
 157     printlog " Open new document"
 158     Call hNewDocument
 159
 160     printlog " Format / Character"
 161     FormatCharacter
 162
 163     printlog " Step through all tabpages"
 164     Kontext
 165     active.SetPage TabFont
 166     kontext "TabFont"
 167     Call DialogTest ( TabFont )
 168
 169     Kontext
 170     active.SetPage TabFontEffects
 171     kontext "TabFontEffects"
 172     Call DialogTest ( TabFontEffects )
 173
 174     Kontext
 175     Active.SetPage TabFontPosition
 176     Kontext "TabFontPosition"
 177     Call DialogTest ( TabFontPosition )
 178
 179     if gAsianSup = True then
 180         try
 181             Kontext
 182             Active.SetPage TabAsianLayout
 183             Kontext "TabAsianLayout"
 184             Call DialogTest ( TabAsianLayout )
 185         catch
 186             Warnlog "Tabpage 'Asian Layout' is not visible! Activated in Options ?"
 187         endcatch
 188     end if
 189
 190     Kontext
 191     active.SetPage TabHyperlinkZeichen
 192     Kontext "TabHyperlinkZeichen"
 193     Call DialogTest ( TabHyperlinkZeichen )
 194
 195     Durchsuchen.Click
 196     Kontext "OeffnenDlg"
 197     if OeffnenDlg.Exists( 1 ) then
 198         OeffnenDlg.Cancel
 199     else
 200         Warnlog "File-Open dialog is not up!"
 201     end if
 202
 203     Kontext "TabHyperlinkZeichen"
 204     Ereignisse.Click
 205     ' if no JRE is installed a messagebox appears
 206     Do
 207         j = j + 1
 208         Kontext "Active"
 209         if Active.Exists then
 210             if Active.GetRT = 304 then
 211                 if j = 1 then Warnlog Active.Gettext
 212                 Active.Ok
 213             else
 214                 exit do
 215             end if
 216         else
 217             exit do
 218         end if
 219     Loop
 220     Kontext "MakroZuweisen"
 221     Call DialogTest ( MakroZuweisen )
 222     MakroZuweisen.Cancel
 223     Kontext
 224     active.SetPage TabHintergrund
 225     kontext "TabHintergrund"
 226     Call DialogTest ( TabHintergrund )
 227     printlog " Close dialog"
 228     TabHintergrund.Close
 229
 230     printlog " Close active document"
 231     Call hCloseDocument
 232 endcase
 233
 234 '------------------------------------------------
 235
 236 testcase tFormatChangeCase
 237     printlog "- Format / Change Case"
 238     printlog " Open new document"
 239     Call hNewDocument
 240     printlog " Insert some text in document and select text"
 241     Call wTypeKeys ("Hello World!")
 242     Call wTypeKeys ("<Shift Home>")
 243
 244     printlog " Format / Case Characters / Upper"
 245     hUseAsyncSlot( "FormatChangeCaseUpper" )
 246
 247     printlog " Format / Case Characters / Lower"
 248     hUseAsyncSlot( "FormatChangeCaseLower" )
 249
 250     if ( gAsianSup ) then
 251         try
 252             FormatChangeCaseHalfWidth
 253             printlog " Format / Case Characters / Half Width"
 254         catch
 255             Warnlog "Format / Change Case / Half Width does not work. Maybe no Asian support!"
 256         endcatch
 257         WaitSlot()
 258
 259         try
 260             printlog " Format / Case Characters / Full Width"
 261             FormatChangeCaseFullWidth
 262         catch
 263             Warnlog "Format / Change Case / Full Width does not work. Maybe no Asian support!"
 264         endcatch
 265         WaitSlot()
 266
 267         try
 268             printlog " Format / Case Characters / Hiragana"
 269             FormatChangeCaseHiragana
 270         catch
 271             Warnlog "Format / Change Case / Hiragana does not work. Maybe no Asian support!"
 272         endcatch
 273         WaitSlot()
 274
 275         try
 276             printlog " Format / Case Characters / Katagana"
 277             FormatChangeCaseKatagana
 278         catch
 279             Warnlog "Format / Change Case / Katagana does not work. Maybe no Asian support!"
 280         endcatch
 281     end if
 282
 283     printlog " Close active document"
 284     Call hCloseDocument
 285 endcase
 286
 287 '------------------------------------------------
 288
 289 testcase tFormatRuby
 290     printlog "- Format / Ruby"
 291     if gAsianSup = True then
 292         if gApplication = "HTML" then
 293             printlog "Not in WriterWeb!"
 294             goto endsub
 295         end if
 296         Call hNewDocument
 297         printlog " Open new document"
 298         Call wTypeKeys ("Hello World!")
 299         Call wTypeKeys ("<Shift Home>")
 300         printlog " Insert some text in document"
 301
 302         try
 303             printlog " Format / Ruby"
 304             FormatRuby
 305         catch
 306             Warnlog "Format / Ruby does not work. Maybe No Asian support!"
 307             Call hCloseDocument
 308             goto endsub
 309         endcatch
 310         Kontext "RubyDialog"
 311         Call DialogTest ( RubyDialog )
 312
 313         printlog " Open Stylist"
 314         CallStylist.Click
 315
 316         Kontext "Stylist"
 317         if Stylist.Exists( 1 ) then
 318             Stylist.close
 319         else
 320             Warnlog "Stylist has not been opened!"
 321         end if
 322
 323         printlog " Close Stylist and Ruby dialog"
 324         Kontext "RubyDialog"
 325         DialogClose.Click
 326
 327         printlog " Close active document"
 328         Call hCloseDocument
 329     end if
 330 endcase
 331
 332 '------------------------------------------------
 333
 334 testcase tFormatParagraph
 335     PrintLog "- Format / Paragraph"
 336
 337     printlog " Open new document"
 338     Call hNewDocument
 339     printlog " Format / Paragraph"
 340     FormatParagraph
 341
 342     Kontext
 343     active.SetPage TabEinzuegeUndAbstaende
 344     kontext "TabEinzuegeUndAbstaende"
 345     Call DialogTest ( TabEinzuegeUndAbstaende )
 346     printlog " Step through all tabpages"
 347
 348     Kontext
 349     Active.SetPage TabAusrichtungAbsatz
 350     Kontext "TabAusrichtungAbsatz"
 351     Call DialogTest ( TabAusrichtungAbsatz )
 352
 353     Kontext
 354     active.SetPage TabNumerierungAbsatz
 355     kontext "TabNumerierungAbsatz"
 356     Call DialogTest ( TabNumerierungAbsatz )
 357
 358     Kontext
 359     active.SetPage TabUmrandung
 360     kontext "TabUmrandung"
 361     Call DialogTest ( TabUmrandung )
 362
 363     if gApplication <> "HTML" then
 364         Kontext
 365         active.SetPage TabTextfluss
 366         kontext "TabTextfluss"
 367         Call DialogTest ( TabTextfluss )
 368
 369         if ( gAsianSup ) then
 370             try
 371                 Kontext
 372                 Active.SetPage TabAsianTypography
 373                 Kontext "TabAsianTypography"
 374                 Call DialogTest ( TabAsianTypography )
 375             catch
 376                 Warnlog "Tabpage 'Asian Typography' is not visible! Activated in Options ?"
 377             endcatch
 378         end if
 379
 380         Kontext
 381         active.SetPage TabTabulator
 382         kontext "TabTabulator"
 383         Call DialogTest ( TabTabulator )
 384
 385         Kontext
 386         active.SetPage TabInitialen
 387         kontext "TabInitialen"
 388         Anzeigen.Check
 389         Call DialogTest ( TabInitialen )
 390
 391         Kontext
 392         active.SetPage TabHintergrund
 393         Kontext "TabHintergrund"
 394         Call DialogTest ( TabHintergrund, 1 )
 395         Als.Select 2
 396         Kontext "TabHintergrund"
 397         Call DialogTest ( TabHintergrund, 2 )
 398         Durchsuchen.Click
 399         Kontext "GrafikEinfuegenDlg"
 400         GrafikEinfuegenDlg.Cancel
 401
 402         printlog " Close dialog"
 403         kontext "TabHintergrund"
 404         TabHintergrund.Close
 405     else
 406         printlog " Close dialog"
 407         TabUmrandung.Close
 408     end if
 409
 410     printlog " Close active document"
 411     Call hCloseDocument
 412 endcase
 413
 414 '------------------------------------------------
 415
 416 testcase tFormatPage
 417     PrintLog "- Format / Page"
 418
 419     printlog " Open new document"
 420     Call hNewDocument
 421
 422     printlog " Format / Page"
 423     FormatPageWriter
 424
 425     Kontext
 426     printlog " Step through all tabpages"
 427     active.SetPage TabVerwalten
 428     kontext "TabVerwalten"
 429     Call DialogTest ( TabVerwalten )
 430
 431     Kontext
 432     active.SetPage TabSeite
 433     kontext "TabSeite"
 434     Call DialogTest ( TabSeite )
 435
 436     Kontext
 437     active.SetPage TabHintergrund
 438     Kontext "Active"
 439     If Active.GetRT = 304 then Active.Yes         ' Messagebox abfangen-> Seitenr�nder au�erhalb des Bereichs
 440
 441     Kontext
 442     active.SetPage TabHintergrund
 443     kontext "TabHintergrund"
 444     Call DialogTest ( TabHintergrund, 1 )
 445     Als.Select 2
 446     Call DialogTest ( TabHintergrund, 2 )
 447     Durchsuchen.Click
 448
 449     Kontext "GrafikEinfuegenDlg"
 450     if ( GrafikEinfuegenDlg.exists( 1 ) ) then
 451         GrafikEinfuegenDlg.Cancel
 452     else
 453         warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
 454     endif
 455
 456     Kontext
 457     active.SetPage TabKopfzeile
 458     kontext "TabKopfzeile"
 459     Call DialogTest ( TabKopfzeile )
 460     if gApplication <> "HTML" then
 461         KopfzeileMitAbstand.Check
 462         Zusaetze.Click
 463
 464         Kontext
 465         active.SetPage TabUmrandung
 466         kontext "TabUmrandung"
 467         Call DialogTest ( TabUmrandung )
 468         Kontext
 469         active.SetPage TabHintergrund
 470         kontext "TabHintergrund"
 471         Call DialogTest ( TabHintergrund )
 472         Als.Select 2
 473         Call DialogTest ( TabHintergrund )
 474         TabHintergrund.Close
 475     end if
 476     Kontext
 477     active.SetPage TabFusszeile
 478     kontext "TabFusszeile"
 479     Call DialogTest ( TabFusszeile )
 480     if gApplication <> "HTML" then
 481         FusszeileMitAbstand.Check
 482         Zusaetze.Click
 483
 484         Kontext
 485         active.SetPage TabUmrandung
 486         kontext "TabUmrandung"
 487         Call DialogTest ( TabUmrandung )
 488         Kontext
 489         active.SetPage TabHintergrund
 490         kontext "TabHintergrund"
 491         Call DialogTest ( TabHintergrund, 1 )
 492         Als.Select 2
 493         Call DialogTest ( TabHintergrund, 2 )
 494         TabHintergrund.Close
 495
 496         Kontext
 497         active.SetPage TabUmrandung
 498         kontext "TabUmrandung"
 499         Call DialogTest ( TabUmrandung )
 500
 501         Kontext
 502         active.SetPage TabSpalten
 503         kontext "TabSpalten"
 504         Call DialogTest ( TabSpalten )
 505
 506         if gAsianSup = True then
 507             Kontext
 508             active.Setpage TabGrid
 509             Kontext "TabGrid"
 510             Call DialogTest ( TabGrid )
 511         end if
 512
 513         Kontext
 514         active.SetPage TabFussnote
 515         kontext "TabFussnote"
 516         Call DialogTest ( TabFussnote )
 517         printlog " Close dialog"
 518         TabFussnote.Close
 519     else
 520         printlog " Close dialog"
 521         TabFussZeile.Close
 522     end if
 523
 524     printlog " Close active document"
 525     Call hCloseDocument
 526 endcase
 527
 528 '--------------------------------------------------
 529
 530 testcase tFormatNumberingBullets
 531     dim referencecounter as integer
 532     PrintLog "- Format / Numbering / Bullets"
 533
 534     printlog " Open new document"
 535     Call hNewDocument
 536
 537     printlog " Format / Numbering/Bullets"
 538     FormatNumberingBullets
 539     WaitSlot (5000)
 540
 541     printlog " Step through all tabpages"
 542     Kontext
 543     Active.SetPage TabBullet
 544     Kontext "TabBullet"
 545     Call DialogTest ( TabBullet )
 546
 547     Kontext
 548     Active.SetPage TabNumerierungsart
 549     Kontext "TabNumerierungsart"
 550     Call DialogTest ( TabNumerierungsart )
 551
 552     Kontext
 553     Active.SetPage TabNumerierung
 554     Kontext "TabNumerierung"
 555     Call DialogTest ( TabNumerierung )
 556
 557     Kontext
 558     Active.SetPage TabGrafiken
 559     Kontext "TabGrafiken"
 560     Call DialogTest ( TabGrafiken )
 561
 562     Kontext
 563     Active.SetPage TabPositionNumerierung
 564     Kontext "TabPositionNumerierung"
 565     Call DialogTest ( TabPositionNumerierung )
 566
 567     Kontext
 568     Active.SetPage TabOptionenNumerierung
 569     Kontext "TabOptionenNumerierung"
 570     Call DialogTest ( TabOptionenNumerierung )
 571     Numerierung.Select 9
 572
 573     try
 574         Auswahl.Click
 575     catch
 576         QAErrorlog "Numbering option 'Linked graphics' is missing"
 577         TabOptionenNumerierung.Cancel
 578         Call hCloseDocument
 579         goto endsub
 580     endcatch
 581     Sleep 2
 582     Call hMenuSelectNr (1)
 583     Sleep 2
 584     Kontext "OeffnenDlg"
 585     OeffnenDlg.Cancel
 586
 587     Kontext "TabOptionenNumerierung"
 588
 589     Sleep 1
 590
 591     try
 592         Auswahl.Click
 593         referencecounter = hMenuItemGetCount
 594         wait (350)
 595         do while (hMenuItemGetCount <> "2")
 596             referencecounter = hMenuItemGetCount
 597             wait (100)
 598         loop
 599         Call hMenuSelectNr(2)
 600         referencecounter = hMenuItemGetCount
 601         wait (100)
 602         do while (hMenuItemGetCount <> referencecounter)
 603             referencecounter = hMenuItemGetCount
 604             wait (150)
 605         loop
 606         Call hMenuClose
 607     catch
 608         Exceptlog
 609         Call hMenuClose
 610     endcatch
 611
 612     printlog " Close dialog"
 613     TabOptionenNumerierung.Cancel
 614
 615     printlog " Close active document"
 616     Call hCloseDocument
 617 endcase
 618
 619 '------------------------------------------------------
 620
 621 testcase tFormatStylist
 622     PrintLog "- Format / Stylist"
 623
 624     if gPlatgroup = "unx" then
 625         QAErrorlog "Doesn't run on unix"
 626         goto endsub
 627     end if
 628     printlog " Open new document"
 629     Call hNewDocument
 630     Kontext "Gestalter"
 631     If Not Gestalter.Exists then FormatStylist
 632     printlog " Format / Stylist"
 633     Kontext "Gestalter"
 634     Call DialogTest ( Gestalter )
 635     Zeichenvorlagen.Click
 636     printlog " Click all Styles-buttons in Stylist"
 637     if gApplication <> "HTML" then
 638         WaitSlot()
 639         Rahmenvorlagen.Click
 640         WaitSlot()
 641         Seitenvorlagen.Click
 642     end if
 643     WaitSlot()
 644     Numerierungsvorlagen.Click
 645     WaitSlot()
 646     Absatzvorlagen.Click
 647     WaitSlot()
 648
 649     TBGestalterRight.Click Giesskanne
 650     WaitSlot()
 651
 652     AusSelektion.OpenMenu
 653     Sleep 1
 654     hMenuSelectNr(1)
 655
 656     Kontext "VorlageErzeugen"
 657     if ( VorlageErzeugen.exists( 1 ) ) then
 658         DialogTest ( VorlageErzeugen )
 659         VorlageErzeugen.Cancel
 660     else
 661         warnlog( "Dialog <VorlageErzeugen> is not available" )
 662     endif
 663
 664     Kontext "Gestalter"
 665     AusSelektion.OpenMenu
 666     Sleep 1
 667     hMenuSelectNr(2)
 668
 669     AusSelektion.OpenMenu
 670     Sleep 1
 671     hMenuSelectNr(3)
 672
 673     Kontext "Neu"
 674     if ( Neu.exists( 10 ) ) then
 675         DialogTest ( Neu )
 676         Neu.Cancel
 677     else
 678         warnlog( "Dialog <Neu> is not available" )
 679     endif
 680
 681     printlog " Close Stylist"
 682     Kontext "Gestalter"
 683     Gestalter.Close
 684
 685     printlog " Close active document"
 686     Call hCloseDocument
 687 endcase
 688
 689 '------------------------------------------------------
 690
 691 testcase tFormatAutoformatWhileTyping
 692     PrintLog "- Format / Autoformat / "
 693
 694     printlog " Open new document"
 695     Call hNewDocument
 696
 697     printlog " Uncheck 'Format / Autoformat / While typing'"
 698     FormatAutoformatWhileTyping
 699     WaitSlot (2000)
 700     printlog " Check 'Format / Autoformat / While typing'"
 701     FormatAutoformatWhileTyping
 702     printlog " Close active document"
 703     Call hCloseDocument
 704 endcase
 705
 706 '-----------------------------------------------------------
 707
 708 testcase tFormatColumn
 709     PrintLog "- Format / Column"
 710
 711     printlog " Open new document"
 712     Call hNewDocument
 713     printlog " Insert a table"
 714     Call hTabelleEinfuegen
 715     Wait 500
 716     printlog " Format / column / Width"
 717     FormatColumnWidthWriter
 718     WaitSlot (500)
 719     Kontext "SpaltenBreite"
 720     Breite.SetText "2,5"
 721     Call DialogTest ( SpaltenBreite )
 722     printlog " Close dialog"
 723     SpaltenBreite.OK
 724     Wait 500
 725     Call wDocSetContext
 726     printlog " Enter some text in document"
 727     Call wTypeKeys ("Dies ist ein langer Text, HALLO HALLO")
 728     Wait 500
 729     printlog " Format / Column / Optimal Width"
 730     FormatColumnOptimalWidthWriter
 731     WaitSlot (500)
 732     printlog " Format / Row / Select"
 733     TableSelectEntireRow
 734     WaitSlot (500)
 735     printlog " Format / Column / Space equally"
 736     FormatColumnSpaceEqually
 737     WaitSlot (500)
 738     printlog " Format / Column / Select"
 739     TableSelectColumn
 740     WaitSlot (500)
 741     printlog " Format / Cloumn / Delete"
 742     TableDeleteColumns
 743     WaitSlot (500)
 744     Call wDocSetContext
 745     printlog " Press 'up' twice to point cursor in the table"
 746     Call wTypeKeys ("<Up>",2)
 747     wait 500
 748     printlog " Format / Column / Insert "
 749     FormatColumnInsert
 750     WaitSlot (500)
 751     Kontext "EinfuegenSpalten"
 752     Anzahl.SetText "3"
 753     Call DialogTest ( EinfuegenSpalten )
 754     printlog " Close dialog"
 755     EinfuegenSpalten.OK
 756     printlog " Close active document"
 757     Call hCloseDocument
 758 endcase
 759
 760 '-----------------------------------------------------------
 761
 762 testcase tFormatAnchor
 763
 764     PrintLog "- Format / Anchor"
 765
 766     printlog " Open new document"
 767     Call hNewDocument
 768     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 769     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 770
 771     try
 772         FormatAnchorToPage
 773         printlog " Format / Anchor / to page"
 774     catch
 775         Warnlog "'Page' couldn't be executed!"
 776     endcatch
 777
 778     Sleep 1
 779     try
 780         FormatAnchorToParagraph
 781     catch
 782         printlog "  Format / Anchor / to paragraph"
 783         Warnlog "'to paragraph' couldn't be executed!"
 784     endcatch
 785
 786     WaitSlot (1000)
 787     try
 788         FormatAnchorToCharacter
 789         printlog " Format / Anchor / to character"
 790     catch
 791         Warnlog "'To Character' couldn't be executed!"
 792     endcatch
 793     WaitSlot (1000)
 794
 795     try
 796         FormatAnchorAsCharacter
 797         printlog " Format / Anchor / As Character"
 798     catch
 799         Warnlog "'as Character' couldn't be executed!"
 800     endcatch
 801     WaitSlot (1000)
 802
 803     printlog " Close active document"
 804     Call hCloseDocument
 805 endcase
 806
 807 '-----------------------------------------------------------
 808
 809 testcase tFormatWrap
 810     PrintLog "- Format / Wrap"
 811     if gApplication = "HTML" then
 812         printlog "Not in Writer/Web!"
 813         goto endsub
 814     end if
 815     printlog " Open new document"
 816     Call hNewDocument
 817     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 818     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 819     try
 820         FormatWrapNoWrap
 821         printlog " Format / Wrap / No wrap"
 822     catch
 823         Warnlog "Error on 'No Wrap'"
 824     endcatch
 825     WaitSlot (1000)
 826
 827     try
 828         FormatWrapPageWrap
 829         printlog " Format / Wrap / Page Wrap"
 830     catch
 831         Warnlog "Error on 'Page Wrap'"
 832     endcatch
 833     WaitSlot (1000)
 834
 835     try
 836         FormatWrapOptimalPageWrap
 837         printlog " Format / Wrap / optimal page wrap"
 838     catch
 839         Warnlog "Error on 'Optimal Page Wrap'"
 840     endcatch
 841     WaitSlot (1000)
 842
 843     try
 844         FormatWrapThrough
 845         printlog " Format / Wrap / Through"
 846     catch
 847         Warnlog "Error on 'Wrap Through'"
 848     endcatch
 849     WaitSlot (1000)
 850
 851     try
 852         FormatWrapInBackground
 853         printlog " Format / Wrap / In Background "
 854     catch
 855         Warnlog "Error on 'In Background'"
 856     endcatch
 857     WaitSlot (1000)
 858
 859     try
 860         FormatWrapFirstParagraph
 861         printlog " Format / Wrap / First paragraph"
 862     catch
 863         Warnlog "Error on 'First Paragraph'"
 864     endcatch
 865     WaitSlot (1000)
 866
 867     try
 868         FormatWrapContour
 869         printlog " Format / Wrap / Contour"
 870         Warnlog "Error on 'Contour'"
 871     catch
 872         printlog "Contour Wrap disabled->OK"
 873     endcatch
 874     WaitSlot (1000)
 875
 876     try
 877         FormatWrapEditContour
 878         printlog " Format / Wrap / Edit Contour"
 879         WaitSlot (5000)
 880         Kontext "KonturEditor"
 881         Dialogtest ( KonturEditor )
 882         Sleep 2
 883         KonturEditor.Close
 884         printlog " Close contour editor"
 885         Kontext
 886         if Active.Exists (2) then Active.Yes
 887     catch
 888         Warnlog "#85505#Error on 'Edit Contur'"
 889     endcatch
 890
 891     printlog " Close active document"
 892     Call hCloseDocument
 893 endcase
 894
 895 '-----------------------------------------------------------
 896
 897 testcase tFormatAnchorArea
 898
 899     PrintLog "- Format / Anchor drawing objects"
 900     if gApplication = "HTML" then
 901         printlog "Not in WriterWeb!"
 902         goto endsub
 903     end if
 904     printlog "crashed because of i32539 (fixed in m54)"
 905
 906     printlog " Open new document"
 907     Call hNewDocument
 908     printlog " Paste a rectangle from draw via clipboard"
 909     Call wRectangleToClipboard
 910
 911     hUseAsyncSlot( "EditPaste" )
 912
 913     try
 914         printlog " Format / Anchor / To page"
 915         FormatAnchorToPage
 916     catch
 917         Warnlog "Clipboard problem between applications!"
 918         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 919         Call gMouseClick ( 45, 45 )
 920         FormatAnchorToPage
 921     endcatch
 922
 923     WaitSlot (1000)
 924     printlog " Format / Anchor / to paragraph"
 925     FormatAnchorToParagraph
 926     WaitSlot (1000)
 927     printlog " Format / Anchor / As character"
 928     FormatAnchorAsCharacter
 929     WaitSlot (1000)
 930
 931     printlog " Close active document"
 932     Call hCloseDocument
 933 endcase
 934
 935 '-----------------------------------------------------------
 936
 937 testcase tFormatWrapArea
 938     PrintLog "- Format / Wrap drawing objects"
 939     if gApplication = "HTML" then
 940         printlog "Not in WriterWeb!"
 941         goto endsub
 942     end if
 943     printlog "crashed because of i32539 (fixed in m54)"
 944
 945     printlog " Open new document"
 946     Call hNewDocument
 947     printlog " Paste a rectangle from draw via clipboard"
 948     Call wRectangleToClipboard
 949
 950     hUseAsyncSlot( "EditPaste" )
 951
 952     try
 953         printlog " Format / Wrap / No wrap"
 954         FormatWrapNoWrap
 955     catch
 956         Warnlog "Clipboard problem between applications!"
 957         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 958         Call gMouseClick ( 45, 45 )
 959         FormatWrapNoWrap
 960     endcatch
 961
 962     WaitSlot (1000)
 963     printlog " Format / Wrap / Contour"
 964     try
 965         FormatWrapContour  ' should be disabled with 'No wrap'
 966         Warnlog "Format / Wrap / Contour is disabled!"
 967     catch
 968     endcatch
 969     WaitSlot (1000)
 970     printlog " Format / Wrap / Page wrap"
 971     try
 972         FormatWrapPageWrap
 973     catch
 974         Warnlog "Format / Wrap / Page Wrap is disabled!"
 975     endcatch
 976     WaitSlot (1000)
 977     printlog " Format / Wrap / Contour"
 978     try
 979         FormatWrapContour
 980     catch
 981         Warnlog "Format / Wrap / Contour is disabled!"
 982     endcatch
 983     WaitSlot (1000)
 984     printlog " Format / Wrap / optimal page wrap"
 985     try
 986         FormatWrapOptimalPageWrap
 987     catch
 988         Warnlog "Format / Wrap / Optimal page wrap is disabled!"
 989     endcatch
 990     WaitSlot (1000)
 991     printlog " Format / Wrap / Through"
 992     try
 993         FormatWrapThrough
 994     catch
 995         Warnlog "Format / Wrap /Through is disabled!"
 996     endcatch
 997     WaitSlot (1000)
 998     printlog " Format / Wrap / In Background"
 999     try
1000         FormatWrapInBackground
1001     catch
1002         Warnlog "Format / Wrap / In Background is disabled!"
1003     endcatch
1004     WaitSlot (1000)
1005     printlog " Format / Wrap / First paragraph"
1006     try
1007         FormatWrapFirstParagraph
1008     catch
1009         Warnlog "Format / Wrap / First paragraph is disabled!"
1010     endcatch
1011     sleep (2)
1012     try
1013         printlog " Format / Wrap / Edit"
1014         FormatWrapEdit
1015     catch
1016         Warnlog "Drawing object in wrong format from the clipboard!"
1017     endcatch
1018     Kontext "TabUmlauf"
1019     Call DialogTest ( TabUmlauf )
1020     printlog " Close upcoming dialog"
1021     TabUmlauf.Cancel
1022
1023     printlog " Close active document"
1024     Call hCloseDocument
1025 endcase
1026
1027 '-----------------------------------------------------------
1028
1029 testcase tHtmlDocFormatParagraph
1030     PrintLog "- Format / Paragraph"
1031     gApplication = "HTML"
1032     printlog " Open new document"
1033     Call hNewDocument
1034     printlog " Format / Paragraph"
1035     FormatParagraph
1036
1037     Kontext
1038     active.SetPage TabEinzuegeUndAbstaende
1039     kontext "TabEinzuegeUndAbstaende"
1040     Call DialogTest ( TabEinzuegeUndAbstaende )
1041     printlog " Step through all tabpages"
1042
1043     Kontext
1044     Active.SetPage TabAusrichtungAbsatz
1045     Kontext "TabAusrichtungAbsatz"
1046     Call DialogTest ( TabAusrichtungAbsatz )
1047
1048     Kontext
1049     active.SetPage TabNumerierungAbsatz
1050     kontext "TabNumerierungAbsatz"
1051     Call DialogTest ( TabNumerierungAbsatz )
1052
1053     Kontext
1054     active.SetPage TabUmrandung
1055     kontext "TabUmrandung"
1056     Call DialogTest ( TabUmrandung )
1057     printlog " Close dialog"
1058     TabUmrandung.Close
1059
1060     printlog " Close active document"
1061     Call hCloseDocument
1062     gApplication = "WRITER"
1063 endcase
1064
1065 '------------------------------------------------
1066
1067 testcase tHtmlDocFormatPage
1068     PrintLog "- Format / Page"
1069     gApplication = "HTML"
1070     printlog " Open new document"
1071     Call hNewDocument
1072
1073     printlog " Format / Page"
1074     FormatPageWriter
1075
1076     Kontext
1077     printlog " Step through all tabpages"
1078     active.SetPage TabVerwalten
1079     kontext "TabVerwalten"
1080     Call DialogTest ( TabVerwalten )
1081
1082     Kontext
1083     active.SetPage TabSeite
1084     kontext "TabSeite"
1085     Call DialogTest ( TabSeite )
1086
1087     Kontext
1088     active.SetPage TabHintergrund
1089     Kontext "Active"
1090     If Active.GetRT = 304 then Active.Yes         ' Messagebox abfangen-> Seitenr�nder au�erhalb des Bereichs
1091
1092     Kontext
1093     active.SetPage TabHintergrund
1094     kontext "TabHintergrund"
1095     Call DialogTest ( TabHintergrund, 1 )
1096     Als.Select 2
1097     Call DialogTest ( TabHintergrund, 2 )
1098     Durchsuchen.Click
1099
1100     Kontext "GrafikEinfuegenDlg"
1101     if ( GrafikEinfuegenDlg.exists( 1 ) ) then
1102         GrafikEinfuegenDlg.Cancel
1103     else
1104         warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
1105     endif
1106
1107     Kontext
1108     active.SetPage TabKopfzeile
1109     kontext "TabKopfzeile"
1110     Call DialogTest ( TabKopfzeile )
1111     Kontext
1112     active.SetPage TabFusszeile
1113     kontext "TabFusszeile"
1114     Call DialogTest ( TabFusszeile )
1115     printlog " Close dialog"
1116     TabFussZeile.Close
1117
1118     printlog " Close active document"
1119     Call hCloseDocument
1120     gApplication = "WRITER"
1121 endcase
1122
1123 '--------------------------------------------------
1124
1125 testcase tHtmlDocFormatStylist
1126     PrintLog "- Format / Stylist"
1127     gApplication = "HTML"
1128     if gPlatgroup = "unx" then
1129         QAErrorlog "Doesn't run on unix"
1130         goto endsub
1131     end if
1132     printlog " Open new document"
1133     Call hNewDocument
1134     Kontext "Gestalter"
1135     If Not Gestalter.Exists then FormatStylist
1136     printlog " Format / Stylist"
1137     Kontext "Gestalter"
1138     Call DialogTest ( Gestalter )
1139     Zeichenvorlagen.Click
1140     printlog " Click all Styles-buttons in Stylist"
1141     WaitSlot()
1142
1143     Numerierungsvorlagen.Click
1144     WaitSlot()
1145
1146     Absatzvorlagen.Click
1147     WaitSlot()
1148
1149     TBGestalterRight.Click Giesskanne
1150     WaitSlot()
1151
1152     AusSelektion.OpenMenu
1153     wait( 500 )
1154     hMenuSelectNr( 1 )
1155
1156     Kontext "VorlageErzeugen"
1157     if ( VorlageErzeugen.exists( 1 ) ) then
1158         DialogTest ( VorlageErzeugen )
1159         VorlageErzeugen.Cancel
1160     else
1161         warnlog( "Dialog <VorlageErzeugen> is not available" )
1162     endif
1163
1164
1165     Kontext "Gestalter"
1166     if ( Gestalter.exists( 1 ) ) then
1167         AusSelektion.OpenMenu
1168         wait( 500 )
1169         hMenuSelectNr(2)
1170
1171         AusSelektion.OpenMenu
1172         wait( 500 )
1173         hMenuSelectNr(3)
1174
1175         Kontext "Neu"
1176         if ( Neu.exists( 10 ) ) then
1177             DialogTest ( Neu )
1178             Neu.Cancel
1179         else
1180             warnlog( "Dialog <Neu> is not available" )
1181         endif
1182
1183         printlog " Close Stylist"
1184         Kontext "Gestalter"
1185         Gestalter.Close
1186     else
1187         warnlog( "Dialog <Gestalter> is not available" )
1188     endif
1189
1190     printlog " Close active document"
1191     Call hCloseDocument
1192     gApplication = "WRITER"
1193 endcase
1194
1195 '------------------------------------------------------