testautomation/writer/required/includes/w_010_1.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : helge.delfs@oracle.com
  29 '*
  30 '* short description :  Testcases for the Objectbars.
  31 '*
  32 '\******************************************************************
  33
  34 sub w_010_1
  35
  36     printLog Chr(13) + "--------- Objectbars . Part two. (w_010_1.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     '   ** Objectbar Table
  40     Call tInsertFormula
  41     Call tMergeCells
  42     Call tSplitCells
  43     Call tOptimize
  44     Call tInsertCellRow
  45     Call tDeleteRow
  46     Call tDeleteColumn
  47
  48     '   ** Graphics ( same as OLE-Objects and Frames )
  49     Call tGraphicWrap
  50     Call tGraphicAlign
  51     Call tGraphicFlip
  52     Call tGraphicArrange
  53     Call tGraphicBorders
  54     Call tGraphicProperties
  55     Call tGraphicAnchor
  56
  57     '   ** Formula Bar
  58     Call tFormulaCancel
  59     Call tFormulaApply
  60
  61     'Writer Web
  62     gApplication = "HTML"
  63     Call tHtmlDocGraphicWrap
  64     Call tHtmlDocGraphicAlign
  65     Call tHtmlDocGraphicProperties
  66     gApplication = "WRITER"
  67
  68 end sub
  69 '-----------------------------------------------------------
  70
  71 testcase tInsertFormula
  72     printlog "- Table-Objectbar: Formula border in Writer"
  73     printlog " Open new document"
  74     Call hNewDocument
  75     printlog " Insert a table"
  76     Call hTabelleEinfuegen
  77     printlog " Click 'Sum' in object bar"
  78     Call hToolbarSelect ( "Table", true )
  79     if TableObjectbar.IsVisible = true then
  80         try
  81             FormelEingeben.Click
  82         catch
  83             Warnlog "Unable to access 'Formula'-Button on toolbar!"
  84             Call hCloseDocument
  85             goto endsub
  86         endcatch
  87     else
  88         Warnlog "TableObjectbar is not visible!"
  89         Call hCloseDocument
  90         goto endsub
  91     end if
  92
  93     Sleep 1
  94     Kontext "OL_SW_Rechenleiste"
  95     if OL_SW_Rechenleiste.NotExists then
  96         warnlog "Formula border doesn't come up"
  97     else
  98         printlog " Click 'Cancel' in object bar"
  99         Verwerfen.Click
 100     end if
 101
 102     printlog " Close active document"
 103     Call hCloseDocument
 104 endcase
 105
 106 '-----------------------------------------------------------
 107
 108 testcase tMergeCells
 109     printlog "- Table-Objectbar: Merge Cells"
 110     printlog " Open new document"
 111     Call hNewDocument
 112     printlog " Insert a table"
 113     Call hTabelleEinfuegen
 114     printlog " Hit <Shift Right> 2 times"
 115     Call wTypeKeys ("<Shift Right>", 2)
 116     Sleep 2
 117     printlog " Click 'Merge cells' in object bar"
 118     Call hToolbarSelect ( "Table", true )
 119     if TableObjectbar.IsVisible = true then
 120         ZellenVerbinden.Click
 121     else
 122         Warnlog "TableObjectbar is not visible!"
 123         Call hCloseDocument
 124         goto endsub
 125     end if
 126
 127     printlog " Close active document"
 128     Call hCloseDocument
 129 endcase
 130
 131 '-----------------------------------------------------------
 132
 133 testcase tSplitCells
 134     printlog "- Table-Objectbar: Split Cells"
 135     printlog " Open new document"
 136     Call hNewDocument
 137     printlog " Insert a table"
 138     Call hTabelleEinfuegen
 139     Call hToolbarSelect ( "Table", true )
 140     printlog " Click 'Split Cells' in object bar"
 141     if TableObjectbar.IsVisible = true then
 142         ZelleTeilen.Click
 143     else
 144         Warnlog "TableObjectbar is not visible!"
 145         Call hCloseDocument
 146         goto endsub
 147     end if
 148     printlog " Cancel upcoming dialog"
 149     Kontext "ZellenTeilen"
 150     ZellenTeilen.Cancel
 151     printlog " Close active document"
 152     Call hCloseDocument
 153 endcase
 154
 155 '-----------------------------------------------------------
 156
 157 testcase tOptimize
 158     printlog "- Table-Objectbar: Optimize Table"
 159     printlog " Open new document"
 160     Call hNewDocument
 161
 162     printlog " Insert a table and select all in document"
 163     Call hTabelleEinfuegen
 164     Call wTypeKeys ("<Mod1 A>")
 165     Call hToolbarSelect ( "Table", true )
 166     wait 500
 167     printlog " Tear Off toolbar 'Optimize'"
 168     Kontext "TableObjectBar"
 169     try
 170         Optimieren.TearOff
 171     catch
 172         Warnlog "Unable to Tear Off Toolbox 'Optimize'"
 173         Call hCloseDocument
 174         goto endsub
 175     endcatch
 176     Call wTypeKeys ("<Mod1 a>")
 177     Sleep 1
 178
 179     Kontext "OptimizeTablebar"
 180     printlog " Click 'Space Columns Equally'"
 181     SpaltenGleichmaessig.Click
 182     printlog " Click 'Space Rows Equally'"
 183     ZeilenGleichmaessig.Click
 184     Sleep 2
 185     printlog " Click 'Optimal Row Height'"
 186     OptimaleZeilenhoehe.Click
 187
 188     Call wTypeKeys ("Optimize Table")
 189     printlog " Enter some text"
 190     Sleep 1
 191     Kontext "OptimizeTablebar"
 192     printlog " Click 'Optimal Column Width'"
 193     OptimaleSpaltenbreite.Click
 194     Sleep 1
 195     printlog " Close toolbar 'Optimize'"
 196     OptimizeTablebar.Close
 197     printlog " Close active document"
 198     Call hCloseDocument
 199 endcase
 200
 201 '-----------------------------------------------------------
 202
 203 testcase tInsertCellRow
 204     printlog "- Table-Objectbar: Insert Cell"
 205     printlog " Open new document"
 206     Call hNewDocument
 207     printlog " Insert Table"
 208     Call hTabelleEinfuegen
 209     Call hToolbarSelect ( "Table", true )
 210     if TableObjectbar.IsVisible = true then
 211         ZeileEinfuegen.Click
 212     else
 213         Warnlog "TableObjectbar is not visible!"
 214         Call hCloseDocument
 215         goto endsub
 216     end if
 217
 218     printlog " Click 'Insert Column' in object bar"
 219     Sleep 1
 220     printlog "- Table-Objectbar: Insert Row"
 221     printlog " Click 'Insert Row' in object bar"
 222     SpalteEinfuegen.Click
 223     printlog " Close active document"
 224     Call hCloseDocument
 225 endcase
 226
 227 '-----------------------------------------------------------
 228
 229 testcase tDeleteRow
 230     printlog "- Table-Objectbar: Delete Row"
 231     printlog " Open new document"
 232     Call hNewDocument
 233     printlog " Insert a table"
 234     Call hTabelleEinfuegen
 235     Call hToolbarSelect ( "Table", true )
 236     printlog " Click 'Delete Row'"
 237     if TableObjectbar.IsVisible = true then
 238         ZeileLoeschen.Click
 239     else
 240         Warnlog "TableObjectbar is not visible!"
 241         Call hCloseDocument
 242         goto endsub
 243     end if
 244
 245     Sleep 1
 246     printlog " Click 'Delete Row'"
 247     ZeileLoeschen.Click
 248     printlog " Close active document"
 249     Call hCloseDocument
 250 endcase
 251
 252 '-----------------------------------------------------------
 253
 254 testcase tDeleteColumn
 255     dim i as Integer
 256     printlog "- Table-Objectbar: Delete Column"
 257     printlog " Open new document"
 258     Call hNewDocument
 259     printlog " Insert a table"
 260     Call hTabelleEinfuegen
 261     printlog " Click 'Delete Column' 2 times"
 262     for i=1 to 2
 263         Call hToolbarSelect ( "Table", true )
 264         if TableObjectbar.IsVisible = true then
 265             SpalteLoeschen.Click
 266         else
 267             Warnlog "TableObjectbar is not visible!"
 268             Call hCloseDocument
 269             goto endsub
 270         end if
 271         Sleep 1
 272     next i
 273     printlog " Close active document"
 274     Call hCloseDocument
 275 endcase
 276
 277 '-----------------------------------------------------------
 278
 279 testcase tGraphicWrap
 280     printlog "- Grafik-(Rahmen)-Objectbar: Wrap"
 281     printlog " Open new document"
 282     Call hNewDocument
 283     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 284     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 285     Call hToolbarSelect("Frame", true)
 286     try
 287         printlog " Check 'Wrap Off' in object bar"
 288         NoWrap.Click
 289         Sleep 1
 290     catch
 291         Warnlog "'Wrap Off' in Objectbar couldn't be checked"
 292     endcatch
 293
 294     if gApplication <> "HTML" then
 295         try
 296             printlog " Check 'Wrap through' in object bar"
 297             Durchlauf.Click
 298             Sleep 1
 299         catch
 300             Warnlog "'Wrap through' in Objectbar couldn't be checked"
 301         endcatch
 302
 303         try
 304             printlog " Check 'Wrap On' in object bar"
 305             Wrap.Click
 306             Sleep 1
 307         catch
 308             Warnlog "'Wrap on' in Objectbar couldn't be checked"
 309         endcatch
 310     else
 311         Call hToolbarSelect("Picture", true)
 312         try
 313             printlog " Check 'Wrap Left' in object bar"
 314             WrapLeft.Click
 315             Sleep 1
 316         catch
 317             Warnlog "'Wrap Left' in Objectbar couldn't be checked"
 318         endcatch
 319
 320         try
 321             printlog " Check 'Wrap Right' in object bar"
 322             WrapRight.Click
 323             Sleep 1
 324         catch
 325             Warnlog "'Wrap Right' in Objectbar couldn't be checked"
 326         endcatch
 327     end if
 328
 329     printlog " Close active document"
 330     Call hCloseDocument
 331 endcase
 332
 333 '-----------------------------------------------------------
 334
 335 testcase tGraphicAlign
 336     printlog "- Graphic-(Frame)-Objectbar: Align"
 337     printlog " Open new document"
 338     Call hNewDocument
 339     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 340     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 341
 342     Call hToolbarSelect("Frame", true)
 343     try
 344         printlog " Click 'Left' in object bar"
 345         Links.Click
 346         Sleep 1
 347     catch
 348         Warnlog "'Left' in Objectbar couldn't be checked"
 349     endcatch
 350
 351     try
 352         printlog " Click 'Right' in object bar"
 353         Rechts.Click
 354         Sleep 1
 355     catch
 356         Warnlog "'Right' in Objectbar couldn't be checked"
 357     endcatch
 358
 359     ' Only Left and Right in WriterWeb
 360     if gApplication = "HTML" then
 361         printlog " Close active document"
 362         Call hCloseDocument
 363         goto endsub
 364     end if
 365
 366     try
 367         printlog " Click 'Centered' in object bar (Not WriterWeb)"
 368         Zentriert.Click
 369         Sleep 1
 370     catch
 371         Warnlog "'Centered' in Objectbar couldn't be checked"
 372     endcatch
 373
 374     try
 375         printlog " Click 'Center' in object bar (Not WriterWeb)"
 376         Mitte.Click
 377         Sleep 1
 378     catch
 379         Warnlog "'Center' in Objectbar couldn't be checked"
 380     endcatch
 381
 382     try
 383         printlog " Click 'Top' in object bar (Not WriterWeb)"
 384         Oben.Click
 385         Sleep 1
 386     catch
 387         Warnlog "'Top' in Objectbar couldn't be checked"
 388     endcatch
 389
 390     try
 391         printlog " Click 'Bottom' in object bar (Not WriterWeb)"
 392         Unten.Click
 393         Sleep 1
 394     catch
 395         Warnlog "'Bottom' auf Objectbar couldn't be checked"
 396     endcatch
 397
 398     printlog " Close active document"
 399     Call hCloseDocument
 400 endcase
 401
 402 '-----------------------------------------------------------
 403
 404 testcase tGraphicFlip
 405     printlog "- Graphic-(Frame)-Objectbar: Flip"
 406     if gApplication = "HTML" then
 407         Printlog "Not in WriterWeb!"
 408         goto endsub
 409     end if
 410
 411     printlog " Open new document"
 412     Call hNewDocument
 413     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 414     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 415
 416     Call hToolbarSelect("Picture", true)
 417     try
 418         printlog " Click 'Flip Horizontal' in object bar"
 419         HorizontalSpiegeln.Click
 420         Sleep 1
 421     catch
 422         Warnlog "'Flip Horizontal' in Objectbar couldn't be checked"
 423     endcatch
 424
 425     try
 426         printlog " Click 'Flip Vertical' in object bar"
 427         VertikalSpiegeln.Click
 428         Sleep 1
 429     catch
 430         Warnlog "'Flip vertical' in Objectbar couldn't be checked"
 431     endcatch
 432
 433     try
 434         printlog " Click 'Flip Horizontal' in object bar"
 435         HorizontalSpiegeln.Click
 436         Sleep 1
 437         printlog " Click 'Flip Vertical' in object bar"
 438         VertikalSpiegeln.Click
 439         Sleep 1
 440     catch
 441     endcatch
 442
 443     printlog " Close active document"
 444     Call hCloseDocument
 445 endcase
 446
 447 '-----------------------------------------------------------
 448
 449 testcase tGraphicArrange
 450     printlog "- Graphic-(Frame)-Objectbar: Arrange"
 451     printlog " Open new document"
 452     Call hNewDocument
 453     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 454     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 455
 456     Call hToolbarSelect("Frame", true)
 457     try
 458         printlog " Click 'Send to back' in object bar"
 459         GanzNachHinten.Click
 460         Sleep 1
 461     catch
 462         Warnlog "'Send to back' in Objectbar couldn't be checked"
 463     endcatch
 464
 465     try
 466         printlog " Click 'Bring to front' in object bar"
 467         GanzNachVorn.Click
 468         Sleep 1
 469     catch
 470         Warnlog "'Bring to front' in Objectbar couldn't be checked"
 471     endcatch
 472
 473     printlog " Close active document"
 474     Call hCloseDocument
 475 endcase
 476
 477 '-----------------------------------------------------------
 478
 479 testcase tGraphicBorders
 480     printlog "- Graphic-(Frame)-Objectbar: Border"
 481     printlog " Open new document"
 482     Call hNewDocument
 483     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 484     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 485     Call hToolbarSelect("Frame", true)
 486     try
 487         printlog " Tear off Toolbox Border"
 488         Umrandung.TearOff
 489         Sleep 1
 490         Kontext "TB_Umrandung"
 491         TB_Umrandung.Move ( 20, 20 )
 492         printlog " Close toolbox"
 493         TB_Umrandung.Close
 494         Sleep 1
 495     catch
 496         Warnlog "Error in Toolbox Border"
 497     endcatch
 498
 499     try
 500         Kontext "FrameObjectbar"
 501         printlog " Tear off toolbox 'Borderstyle'"
 502         Linienstil.TearOff
 503         Sleep 1
 504         Kontext "TB_Umrandungsstil"
 505         TB_Umrandungsstil.Move ( 20, 20 )
 506         printlog " Close toolbox"
 507         TB_Umrandungsstil.Close
 508         Sleep 1
 509     catch
 510         Warnlog "Error in Toolbox Borderstyle"
 511     endcatch
 512
 513     try
 514         Kontext "FrameObjectbar"
 515         printlog " Tear off Toolbox 'Color'"
 516         LinienFarbe.TearOff
 517         Sleep 1
 518         Kontext "TB_Farbe"
 519         TB_Farbe.Move ( 20, 20 )
 520         TB_Farbe.Close
 521         printlog " Close toolbox"
 522         Sleep 1
 523     catch
 524         warnlog "Error in Toolbox Colour"
 525     endcatch
 526
 527     printlog " Close active document"
 528     Call hCloseDocument
 529 endcase
 530
 531 '-----------------------------------------------------------
 532
 533 testcase tGraphicProperties
 534     printlog "- Graphic-(Frame)-Objectbar: Properties"
 535     Dim j as integer
 536
 537     printlog " Open new document"
 538     Call hNewDocument
 539     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 540     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 541     Call hToolbarSelect("Picture", true)
 542     try
 543         printlog " Click 'Graphic Properties' in object bar"
 544         InsertGraphic.Click
 545     catch
 546         Warnlog "Error in Objectproperties in Objectbar"
 547         printlog " Close active document"
 548         Call hCloseDocument
 549         goto endsub
 550     endcatch
 551
 552     printlog " In 'Graphic' dialog step through all tabpages"
 553     Kontext
 554     active.SetPage TabType
 555     Kontext "TabType"
 556     Call DialogTest ( TabType )
 557
 558     Kontext
 559     active.SetPage TabZusaetze
 560     Kontext "TabZusaetze"
 561     Call DialogTest ( TabZusaetze )
 562
 563     Kontext
 564     active.SetPage TabUmlauf
 565     Kontext "TabUmlauf"
 566     Call DialogTest ( TabUmlauf )
 567
 568     Kontext
 569     active.SetPage TabHyperlinkRahmen
 570     Kontext "TabHyperlinkRahmen"
 571     Call DialogTest ( TabHyperlinkRahmen )
 572
 573     Kontext
 574     active.SetPage TabGrafik
 575     Kontext "TabGrafik"
 576     Call DialogTest ( TabGrafik )
 577
 578     Kontext
 579     active.SetPage TabUmrandung
 580     Kontext "TabUmrandung"
 581     Call DialogTest ( TabUmrandung )
 582
 583     Kontext
 584     active.SetPage TabMakro
 585     ' if no JRE is installed a messagebox appears
 586     Do
 587         j = j + 1
 588         Kontext "Active"
 589         if Active.Exists then
 590             if Active.GetRT = 304 then
 591                 if j = 1 then Warnlog Active.Gettext
 592                 Active.Ok
 593             else
 594                 exit do
 595             end if
 596         else
 597             exit do
 598         end if
 599     Loop
 600     Kontext "TabMakro"
 601     Call DialogTest ( TabMakro )
 602
 603     printlog " Close 'Graphic' dialog"
 604     if gApplication <> "HTML" then
 605         Kontext
 606         active.SetPage TabHintergrund
 607         Kontext "TabHintergrund"
 608         Call DialogTest ( TabHintergrund )
 609
 610         Kontext
 611         active.SetPage TabZuschneiden
 612         Kontext "TabZuschneiden"
 613         Call DialogTest ( TabZuschneiden )
 614         TabZuschneiden.Cancel
 615     else
 616         TabMakro.Cancel
 617     end if
 618     printlog " Close active document"
 619     Call hCloseDocument
 620 endcase
 621
 622 '-----------------------------------------------------------
 623
 624 testcase tGraphicAnchor
 625
 626     printlog "- Graphic-(Frame)-Objectbar: Anchor"
 627     printlog " Open new document"
 628     Call hNewDocument
 629     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 630     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 631
 632     Call hToolbarSelect("Frame", true)
 633     Sleep 2
 634     printlog " Select Anchor 'to page'"
 635     try
 636         VerankerungWechseln.Click
 637         printlog " Click 'Change Anchor' in object bar"
 638     catch
 639         Warnlog "Error on anchoring objects"
 640         Call hCloseDocument
 641         printlog " Close active document"
 642         goto endsub
 643     endcatch
 644     Sleep 1
 645     MenuSelect ( MenuGetItemID (1) )
 646     Sleep 1
 647     printlog " Select Anchor 'Paragraph'"
 648     Kontext "FrameObjectbar"
 649     VerankerungWechseln.Click
 650     MenuSelect ( MenuGetItemID (2) )
 651     Sleep 1
 652     printlog " Select Anchor 'To Character'"
 653     Kontext "FrameObjectbar"
 654     VerankerungWechseln.Click
 655     MenuSelect ( MenuGetItemID (3) )
 656     Sleep 1
 657     printlog " Select Anchor 'As Character'"
 658     Kontext "FrameObjectbar"
 659     VerankerungWechseln.Click
 660     MenuSelect ( MenuGetItemID (4) )
 661     Sleep 1
 662
 663     printlog " Close active document"
 664     Call hCloseDocument
 665 endcase
 666
 667 '-----------------------------------------------------------
 668
 669 testcase tFormulaCancel
 670     printlog "- Formula Writer: Cancel"
 671     printlog " Open new document"
 672     Call hNewDocument
 673     printlog " Press <F2>"
 674     Call wTypeKeys ("<F2>")
 675
 676     printlog " enter a formula"
 677     Kontext "OL_SW_Rechenleiste"
 678     Eingabefeld.TypeKeys "=summe(a+b)"
 679     printlog " Click 'Cancel' in formula bar"
 680     Verwerfen.Click
 681     printlog " Close active document"
 682     Call hCloseDocument
 683 endcase
 684
 685 '-----------------------------------------------------------
 686
 687 testcase tFormulaApply
 688     printlog "- Formula Writer: Apply"
 689     Call hNewDocument
 690     printlog " Open new document"
 691     Call hTabelleEinfuegen
 692     printlog " Insert a table"
 693     Call wTypeKeys ("12<Right>13<Down>")
 694     printlog " Write in document 12<Cursor Right>13<Cursor Down>"
 695     Call hToolbarSelect ( "Table", true )
 696     printlog " Click 'Sum' in object bar"
 697     if TableObjectbar.IsVisible = true then
 698         FormelEingeben.Click
 699     else
 700         Warnlog "TableObjectbar is not visible!"
 701         Call hCloseDocument
 702         goto endsub
 703     end if
 704
 705     Kontext "OL_SW_Rechenleiste"
 706     Eingabefeld.TypeKeys "(" + Chr(60)+ "A1:B1"
 707     Eingabefeld.TypeKeys Chr(62) + ")"
 708     printlog " Enter as formula (A1:B1) and click 'Apply'"
 709     Uebernehmen.Click
 710     Sleep 2
 711     printlog " Check result of formula"
 712     Call wTypeKeys ("<Mod1 A>")
 713     EditCopy
 714     if GetClipboardText <> "25" then
 715         warnlog "Not possible to calculate in tables anymore. Result isn't 25, is: " + GetClipboardText
 716     end if
 717     printlog " Close active document"
 718     Call hCloseDocument
 719 endcase
 720
 721 '-----------------------------------------------------------
 722
 723 testcase tHtmlDocGraphicWrap
 724     printlog "- Grafik-(Rahmen)-Objectbar: Wrap"
 725     gApplication = "HTML"
 726
 727     printlog " Open new document"
 728     Call hNewDocument
 729
 730     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 731     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 732     Call hToolbarSelect("Frame", true)
 733     try
 734         printlog " Check 'Wrap Off' in object bar"
 735         NoWrap.Click
 736         Sleep 1
 737     catch
 738         Warnlog "'Wrap Off' in Objectbar couldn't be checked"
 739     endcatch
 740
 741     Call hToolbarSelect("Picture", true)
 742     try
 743         WrapLeft.Click
 744         printlog " Check 'Wrap Left' in object bar"
 745         Sleep 1
 746     catch
 747         Warnlog "'Wrap Left' in Objectbar couldn't be checked"
 748     endcatch
 749
 750     try
 751         printlog " Check 'Wrap Right' in object bar"
 752         WrapRight.Click
 753         Sleep 1
 754     catch
 755         Warnlog "'Wrap Right' in Objectbar couldn't be checked"
 756     endcatch
 757
 758     Call hCloseDocument
 759     printlog " Close active document"
 760     gApplication = "WRITER"
 761 endcase
 762
 763 '-----------------------------------------------------------
 764
 765 testcase tHtmlDocGraphicAlign
 766     printlog "- Graphic-(Frame)-Objectbar: Align"
 767     gApplication = "HTML"
 768
 769     printlog " Open new document"
 770     Call hNewDocument
 771     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 772     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 773
 774     Call hToolbarSelect("Frame", true)
 775     try
 776         Links.Click
 777         printlog " Click 'Left' in object bar"
 778         Sleep 1
 779     catch
 780         Warnlog "'Left' in Objectbar couldn't be checked"
 781     endcatch
 782
 783     try
 784         Rechts.Click
 785         printlog " Click 'Right' in object bar"
 786         Sleep 1
 787     catch
 788         Warnlog "'Right' in Objectbar couldn't be checked"
 789     endcatch
 790
 791     ' Only Left and Right in WriterWeb
 792     printlog " Close active document"
 793     Call hCloseDocument
 794     gApplication = "WRITER"
 795 endcase
 796
 797 '-----------------------------------------------------------
 798
 799 testcase tHtmlDocGraphicProperties
 800     printlog "- Graphic-(Frame)-Objectbar: Properties"
 801     Dim j as integer
 802
 803     gApplication = "HTML"
 804     printlog " Open new document"
 805     Call hNewDocument
 806
 807     printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
 808     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 809     Call hToolbarSelect("Picture", true)
 810     try
 811         printlog " Click 'Graphic Properties' in object bar"
 812         InsertGraphic.Click
 813     catch
 814         Warnlog "Error in Objectproperties in Objectbar"
 815         printlog " Close active document"
 816         Call hCloseDocument
 817         goto endsub
 818     endcatch
 819
 820     printlog " In 'Graphic' dialog step through all tabpages"
 821     Kontext
 822     active.SetPage TabType
 823     Kontext "TabType"
 824     Call DialogTest ( TabType )
 825
 826     Kontext
 827     active.SetPage TabZusaetze
 828     Kontext "TabZusaetze"
 829     Call DialogTest ( TabZusaetze )
 830
 831     Kontext
 832     active.SetPage TabUmlauf
 833     Kontext "TabUmlauf"
 834     Call DialogTest ( TabUmlauf )
 835
 836     Kontext
 837     active.SetPage TabHyperlinkRahmen
 838     Kontext "TabHyperlinkRahmen"
 839     Call DialogTest ( TabHyperlinkRahmen )
 840
 841     Kontext
 842     active.SetPage TabGrafik
 843     Kontext "TabGrafik"
 844     Call DialogTest ( TabGrafik )
 845
 846     Kontext
 847     active.SetPage TabUmrandung
 848     Kontext "TabUmrandung"
 849     Call DialogTest ( TabUmrandung )
 850
 851     Kontext
 852     active.SetPage TabMakro
 853     ' if no JRE is installed a messagebox appears
 854     Do
 855         j = j + 1
 856         Kontext "Active"
 857         if Active.Exists then
 858             if Active.GetRT = 304 then
 859                 if j = 1 then Warnlog Active.Gettext
 860                 Active.Ok
 861             else
 862                 exit do
 863             end if
 864         else
 865             exit do
 866         end if
 867     Loop
 868     Kontext "TabMakro"
 869     Call DialogTest ( TabMakro )
 870     printlog " Close dialog"
 871     TabMakro.Cancel
 872
 873     printlog " Close active document"
 874     Call hCloseDocument
 875     gApplication = "WRITER"
 876 endcase
 877
 878 '-----------------------------------------------------------