testautomation/writer/required/includes/w_005_.inc

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