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