testautomation/writer/required/includes/w_005b_.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 Format-Menu.
  31 '*
  32 '\***********************************************************************
  33
  34 sub w_005b_
  35
  36     printLog Chr(13) + "--------- Menu Format / 2 (w_005b_.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     Call tFormatAlignment
  40     Call tFormatAlignmentArea
  41     Call tFormatAlignmentEdit
  42     Call tFormatArrange
  43     Call tFormatArrangeArea
  44     Call tFormatFlip
  45     Call tFormatGroup
  46
  47     '    Object submenu
  48     Call tFormatPositionAndSize
  49     Call tFormatPositionAndSizeLegend
  50     Call tFormatLine
  51     Call tFormatArea
  52     Call tFormatText
  53     Call tFormatFontwork
  54
  55     '    Frame
  56     Call hExportUmstellung ( TRUE )
  57     Call tFormatObject
  58     Call tFormatArrangeObject
  59     Call tFormatAlignmentObject
  60     Call tFormatAnchorObject
  61     Call tFormatWrapObject
  62     Call hExportUmstellung ( FALSE )
  63
  64     'Picture ( jolink.jpg )
  65     Call tFormatGraphics
  66
  67     'Editmode with Draw objects
  68     Call tFormatStyleEdit
  69     Call tFormatLineSpacing
  70     Call tFormatParagraphEdit
  71
  72     'Writer Web
  73     gApplication = "HTML"
  74     Call tHtmlDocFormatGraphics
  75     Call tHtmlDocFormatAlignment
  76     Call tHtmlDocFormatObject
  77     gApplication = "WRITER"
  78
  79 end sub
  80
  81 '-----------------------------------------------------------
  82
  83 testcase tFormatGraphics
  84     PrintLog "- Format / Graphics"
  85     Dim j as integer
  86
  87     printlog " Open new document"
  88     Call hNewDocument
  89
  90     printlog " Insert a graphic (..\writer\required\input\graphics\jolink.jpg)"
  91     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
  92
  93     printlog " Format / Graphic"
  94     if ( hUseAsyncSlot( "FormatGraphics" ) = -1 ) then
  95         Warnlog "- Format / Graphics disabled or hidden!"
  96         goto endsub
  97     end if
  98
  99     printlog " Step through all tabpages"
 100     Kontext
 101     active.SetPage TabType
 102     Kontext "TabType"
 103     Call DialogTest ( TabType )
 104
 105     Kontext
 106     active.SetPage TabZusaetze
 107     Kontext "TabZusaetze"
 108     Call DialogTest ( TabZusaetze )
 109
 110     Kontext
 111     active.SetPage TabUmlauf
 112     Kontext "TabUmlauf"
 113     Call DialogTest ( TabUmlauf )
 114
 115     Kontext
 116     active.SetPage TabHyperlinkRahmen
 117     Kontext "TabHyperlinkRahmen"
 118     Call DialogTest ( TabHyperlinkRahmen )
 119
 120     Kontext
 121     active.SetPage TabGrafik
 122     Kontext "TabGrafik"
 123     Call DialogTest ( TabGrafik )
 124
 125     if gApplication <> "HTML" then
 126         Kontext
 127         active.SetPage TabZuschneiden
 128         Kontext "TabZuschneiden"
 129         Call DialogTest ( TabZuschneiden )
 130
 131         Kontext
 132         active.SetPage TabHintergrund
 133         Kontext "TabHintergrund"
 134         Call DialogTest ( TabHintergrund )
 135     end if
 136
 137     Kontext
 138     active.SetPage TabUmrandung
 139     Kontext "TabUmrandung"
 140     Call DialogTest ( TabUmrandung )
 141
 142     Kontext
 143     active.SetPage TabMakro
 144     ' if no JRE is installed a messagebox appears
 145     Do
 146         j = j + 1
 147         Kontext "Active"
 148         if Active.Exists then
 149             if Active.GetRT = 304 then
 150                 if j = 1 then Warnlog Active.Gettext
 151                 Active.Ok
 152             else
 153                 exit do
 154             end if
 155         else
 156             exit do
 157         end if
 158     Loop
 159     Kontext "TabMakro"
 160     Call DialogTest ( TabMakro )
 161
 162     printlog " Close dialog"
 163     TabMakro.Cancel
 164
 165     printlog " Close active document"
 166     Call hCloseDocument
 167 endcase
 168
 169 '-----------------------------------------------------------
 170
 171 testcase tFormatArrange
 172     PrintLog "- Format / Arrange"
 173
 174     printlog " Open new document"
 175     Call hNewDocument
 176
 177     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 178     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 179     sleep(2)
 180     try
 181         printlog " Format / Arrange / Bring to front"
 182         FormatArrangeBringToFrontCalc
 183     catch
 184         Warnlog "'Bring to front' couldn't be executed!"
 185     endcatch
 186     WaitSlot()
 187     try
 188         FormatArrangeBringForward
 189         printlog " Format / Arrange / Bring forward"
 190     catch
 191         Warnlog "'Bring forward' couldn't be executed!"
 192     endcatch
 193     WaitSlot()
 194     try
 195         FormatArrangeSetBackward
 196         printlog " Format / Arrange / Set backward"
 197     catch
 198         Warnlog "'Send backward' couldn't be executed!"
 199     endcatch
 200     WaitSlot()
 201     try
 202         FormatArrangeSendToBack
 203         printlog " Format / Arrange / Send to back"
 204     catch
 205         Warnlog "'Send to back' couldn't be executed!"
 206         Sleep 1
 207     endcatch
 208     printlog " Close active document"
 209     Call hCloseDocument
 210 endcase
 211
 212 '-----------------------------------------------------------
 213
 214 testcase tFormatAlignment
 215
 216     PrintLog "- Format / Alignment"
 217
 218     printlog " Open new document"
 219     Call hNewDocument
 220     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 221     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 222     sleep(2)
 223     if ( gApplication = "HTML" ) then
 224         printlog " Format / Anchor / to Page"
 225         hUseAsyncSlot( "FormatAnchorToPage" )
 226     end if
 227
 228     try
 229         printlog " Format / Alignment / Left"
 230         FormatAlignmentLeft
 231         WaitSlot()
 232     catch
 233         Warnlog "'Alignment left' couldn't be executed!"
 234     endcatch
 235
 236     try
 237         printlog " Format / Alignment / Right"
 238         FormatAlignmentRight
 239         WaitSlot()
 240     catch
 241         Warnlog "'Alignment right' couldn't be executed!"
 242     endcatch
 243
 244     try
 245         printlog " Format / Alignment / Top"
 246         FormatAlignmentTop
 247         WaitSlot()
 248     catch
 249         Warnlog "'Alignment top' couldn't be executed!"
 250     endcatch
 251
 252     try
 253         printlog " Format / Alignment / Center"
 254         FormatAlignmentCenter
 255         WaitSlot()
 256     catch
 257         Warnlog "'Alignment center' couldn't be executed!"
 258     endcatch
 259
 260     try
 261         printlog " Format / Alignment / Bottom"
 262         FormatAlignmentBottom
 263         WaitSlot()
 264     catch
 265         Warnlog "'Alignment bottom' couldn't be executed!"
 266     endcatch
 267
 268     printlog " Close active document"
 269     Call hCloseDocument
 270 endcase
 271
 272 '-----------------------------------------------------------
 273
 274 testcase tFormatObject
 275     PrintLog "- Format / Object"
 276     Dim j as integer
 277
 278     printlog " Open new document"
 279     Call hNewDocument
 280
 281     printlog " Insert a frame"
 282     Call wInsertFrame
 283
 284     printlog " Format / Frame"
 285     FormatFrame
 286
 287     printlog " Step through all tabpages"
 288     Kontext
 289     active.SetPage TabType
 290     Kontext "TabType"
 291     Call DialogTest ( TabType )
 292
 293     Kontext
 294     active.SetPage TabZusaetze
 295     Kontext "TabZusaetze"
 296     Call DialogTest ( TabZusaetze )
 297
 298     Kontext
 299     active.SetPage TabUmlauf
 300     Kontext "TabUmlauf"
 301     Call DialogTest ( TabUmlauf )
 302
 303     Kontext
 304     active.SetPage TabUmrandung
 305     Kontext "TabUmrandung"
 306     Call DialogTest ( TabUmrandung )
 307
 308     Kontext
 309     active.SetPage TabHintergrund
 310     Kontext "TabHintergrund"
 311     Call DialogTest ( TabHintergrund )
 312
 313     if gApplication <> "HTML" then
 314         Kontext
 315         active.SetPage TabHyperlinkRahmen
 316         Kontext "TabHyperlinkRahmen"
 317         Call DialogTest ( TabHyperlinkRahmen )
 318
 319         Kontext
 320         active.SetPage TabMakro
 321         ' if no JRE is installed a messagebox appears
 322         Do
 323             j = j + 1
 324             Kontext "Active"
 325             if Active.Exists then
 326                 if Active.GetRT = 304 then
 327                     if j = 1 then Warnlog Active.Gettext
 328                     Active.Ok
 329                 else
 330                     exit do
 331                 end if
 332             else
 333                 exit do
 334             end if
 335         Loop
 336         Kontext "TabMakro"
 337         Call DialogTest ( TabMakro )
 338         printlog " Close dialog"
 339         TabMakro.Cancel
 340     else
 341         printlog " Close dialog"
 342         TabHintergrund.Cancel
 343     end if
 344
 345     printlog " Close active document"
 346     Call hCloseDocument
 347 endcase
 348
 349 '-----------------------------------------------------------
 350
 351 testcase tFormatArrangeObject
 352     PrintLog "- Format / Arrange Frame"
 353
 354     printlog " Open new document"
 355     Call hNewDocument
 356     printlog " Insert a frame"
 357     Call wInsertFrame
 358     printlog " Format / Arrange / Bring to front"
 359     FormatArrangeBringToFrontCalc : WaitSlot()
 360
 361     printlog " Format / Arrange / Bring forward"
 362     FormatArrangeBringForward : WaitSlot()
 363
 364     printlog " Format / Arrange / Set backward"
 365     FormatArrangeSetBackward : WaitSlot()
 366
 367     printlog " Format / Arrange / Send to back "
 368     FormatArrangeSendToBack : WaitSlot()
 369
 370     printlog " Close active document"
 371     Call hCloseDocument
 372 endcase
 373
 374 '-----------------------------------------------------------
 375
 376 testcase tFormatAlignmentObject
 377     PrintLog "- Format / Alignment Frame"
 378     if gApplication = "HTML" then
 379         printlog "Not in WriterWeb!"
 380         goto endsub
 381     end if
 382     printlog " Open new document"
 383     Call hNewDocument
 384     printlog " Insert a frame"
 385     Call wInsertFrame
 386     printlog " Format / Alignment / Left"
 387     FormatAlignmentLeft : WaitSlot()
 388
 389     printlog " Format / Alignment / Centered"
 390     FormatAlignmentCentered : WaitSlot()
 391
 392     printlog " Format / Alignment / Right"
 393     FormatAlignmentRight : WaitSlot()
 394
 395     printlog " Format / Alignment / Top"
 396     FormatAlignmentTop : WaitSlot()
 397
 398     printlog " Format / Alignment / Center"
 399     FormatAlignmentCenter : WaitSlot()
 400
 401     printlog " Format / Alignment / Bottom"
 402     FormatAlignmentBottom : WaitSlot()
 403
 404     printlog " Close active document"
 405     Call hCloseDocument
 406 endcase
 407
 408 '-----------------------------------------------------------
 409
 410 testcase tFormatAnchorObject
 411
 412     PrintLog "- Format / Anchor Frame"
 413
 414     printlog " Open new document"
 415     Call hNewDocument
 416     printlog " Insert a frame"
 417     Call wInsertFrame
 418     printlog " Format / Anchor / to page"
 419     FormatAnchorToPage : WaitSlot()
 420
 421     printlog " Format / Anchor / to paragraph"
 422     FormatAnchorToParagraph : WaitSlot()
 423
 424     printlog " Format / Anchor / to character"
 425     FormatAnchorToCharacter : WaitSlot()
 426
 427     printlog " Format / Anchor / as character"
 428     FormatAnchorAsCharacter : WaitSlot()
 429
 430     printlog " Close active document"
 431     Call hCloseDocument
 432 endcase
 433
 434 '-----------------------------------------------------------
 435
 436 testcase tFormatWrapObject
 437
 438     PrintLog "- Format / Wrap (Frame)"
 439
 440     if ( gApplication = "HTML" ) then
 441         printlog "Not in WriterWeb!"
 442         goto endsub
 443     end if
 444
 445     printlog " Open new document"
 446     Call hNewDocument
 447
 448     printlog " Insert a frame"
 449     Call wInsertFrame
 450
 451     printlog " Format / Wrap / no wrap"
 452     FormatWrapNoWrap : WaitSlot()
 453
 454     printlog " Format / Wrap / page wrap"
 455     FormatWrapPageWrap : WaitSlot()
 456
 457     printlog " Format / Wrap / optimal page wrap"
 458     FormatWrapOptimalPageWrap : WaitSlot()
 459
 460     printlog " Format / Wrap / through"
 461     FormatWrapThrough : WaitSlot()
 462
 463     printlog " Format / Wrap / in background"
 464     FormatWrapInBackground : WaitSlot()
 465
 466     printlog " Format / Wrap / first paragraph"
 467     FormatWrapFirstParagraph : WaitSlot()
 468
 469     if ( hUseAsyncSlot( "FormatWrapContour" ) = -1 ) then
 470         printlog( "Format / Wrap / Contour disabled. Good." )
 471     else
 472         warnlog( "Format / Wrap / Contour should not be enabled for frames" )
 473     end if
 474
 475     printlog " Format / Wrap / Edit Contour"
 476     if ( hUseAsyncSlot( "FormatWrapEditContour" ) = -1 ) then
 477         printlog( "Format / Wrap / Edit Contour disabled. Good." )
 478     else
 479         Warnlog( "Wrap / Edit Contour should not be enabled for frames" )
 480
 481         Kontext "KonturEditor"
 482         if ( KonturEditor.exists( 2 ) ) then
 483             KonturEditor.Close()
 484         else
 485             warnlog( "Slot <FormatWrapEditContour> is enabled but doesn't trigger the dialog" )
 486         end if
 487     end if
 488
 489     Kontext
 490     if ( Active.Exists( 2 ) ) then
 491         qaerrorlog( "JSK: Undocumented active handled silently - fix it" )
 492         Active.Yes()
 493     end if
 494
 495     printlog " Close active document"
 496     Call hCloseDocument
 497
 498 endcase
 499
 500 '-----------------------------------------------------------
 501
 502 testcase tFormatLine
 503     PrintLog "- Format / Line in drawing object"
 504     if gApplication = "HTML" then
 505         printlog "Not in WriterWeb!"
 506         goto endsub
 507     end if
 508
 509     printlog " Open new document"
 510     Call hNewDocument
 511     printlog " Insert a rectangle"
 512     Call wRectangleToClipboard
 513
 514     printlog " Edit / Paste"
 515     hUseAsyncSlot( "EditPaste" )
 516
 517     printlog " Format / Line"
 518     if ( hUseAsyncSlot( "FormatLine" ) = -1 ) then
 519         Warnlog "Clipboard problem between applications!"
 520         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 521         Call gMouseClick ( 45, 45 )
 522         if ( hUseAsyncSlot( "FormatLine" ) = -1 ) then
 523             warnlog( "Failed to execute slot <FormatLine>" )
 524         end if
 525     end if
 526
 527     Kontext
 528     printlog " Step through all tabpages"
 529     wait 500
 530     active.SetPage TabLinie
 531
 532     kontext "TabLinie"
 533     Call DialogTest ( TabLinie )
 534
 535     Kontext
 536     active.SetPage TabLinienstile
 537
 538     kontext "TabLinienstile"
 539     Call DialogTest ( TabLinienstile )
 540     try
 541         Aendern.Click
 542         Kontext "NameDlg"
 543         Call DialogTest ( NameDlg )
 544         NameDlg.Cancel
 545     catch
 546         Warnlog "Modify is disabled!"
 547         if Linienstil.GetItemCount = 0 then
 548             Warnlog "List of 'Line styles is empty! (Bug#99882)"
 549         end if
 550     endcatch
 551
 552     Kontext
 553     active.SetPage TabLinienenden
 554
 555     Kontext "Linienstil"
 556     if Linienstil.Exists then
 557         Warnlog "Messagebox appears changing to Tabpage 'Arrow Styles!"
 558         Linienstil.Cancel
 559     else
 560         kontext "TabLinienenden"
 561
 562         Call DialogTest ( TabLinienenden )
 563         Aendern.Click
 564         Kontext
 565         Active.OK
 566         kontext "NameDlg"
 567         Call DialogTest ( NameDlg )
 568         NameDlg.Cancel
 569     end if
 570
 571     kontext "TabLinienenden"
 572     printlog " Close dialog"
 573     TabLinienenden.cancel
 574     printlog " Close active document"
 575     Call hCloseDocument
 576 endcase
 577
 578 '-----------------------------------------------------------
 579
 580 testcase tFormatArea
 581     Dim i as integer
 582     PrintLog "- Format / Area in drawing object"
 583     if gApplication = "HTML" then
 584         printlog "Not in WriterWeb!"
 585         goto endsub
 586     end if
 587
 588     printlog " Open new document"
 589     Call hNewDocument
 590     printlog " Insert a rectangle"
 591     Call wRectangleToClipboard
 592
 593     hUseAsyncSlot( "EditPaste" )
 594
 595     printlog " Format / Area"
 596     if ( hUseAsyncSlot( "FormatArea" ) = -1 ) then
 597         Warnlog "Clipboard problem between applications!"
 598         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 599         Call gMouseClick ( 45, 45 )
 600         FormatArea
 601     end if
 602
 603     Kontext
 604     wait 500
 605     printlog " Step through all tabpages"
 606     active.SetPage TabArea
 607     Kontext "TabArea"
 608     For i = 1 to 5
 609         FillOptions.Select i
 610         Call DialogTest ( TabArea, i )
 611     next i
 612     Kontext
 613     active.SetPage TabSchatten
 614     kontext "TabSchatten"
 615     Anzeigen.Check
 616     Call DialogTest ( TabSchatten )
 617
 618     Kontext
 619     active.SetPage TabTransparenz
 620     kontext "TabTransparenz"
 621     Call DialogTest ( TabTransparenz )
 622
 623     Kontext
 624     active.SetPage TabFarben
 625     kontext "TabFarben"
 626     Sleep 1
 627     Farbmodell.Select 2
 628     Call DialogTest ( TabFarben )
 629
 630     Bearbeiten.Click
 631
 632     Kontext "FarbeDlg"
 633     if ( FarbeDlg.exists( 1 ) ) then
 634         Call DialogTest ( FarbeDlg )
 635         FarbeDlg.cancel
 636         WaitSlot()
 637     else
 638         warnlog( "Dialog <FarbeDlg> is not available" )
 639     end if
 640
 641     Kontext
 642     active.SetPage TabFarbverlaeufe
 643     kontext "TabFarbverlaeufe"
 644     Call DialogTest ( TabFarbverlaeufe )
 645     Aendern.Click
 646     Kontext "NameDlg"
 647     Call DialogTest ( NameDlg )
 648     NameDlg.Cancel
 649
 650     Kontext
 651     active.SetPage TabSchraffuren
 652     kontext "TabSchraffuren"
 653     Call DialogTest ( TabSchraffuren)
 654     try
 655         Aendern.Click
 656     catch
 657         Warnlog "Button 'Modify' does not work!"
 658         if Tabelle.GetItemcount = 0 then
 659             Warnlog "Table of Hatching's is empty! (Bug#99882)"
 660         end if
 661     endcatch
 662
 663     Kontext "NameDlg"
 664     if ( NameDlg.exists( 1 ) ) then
 665         Call DialogTest ( NameDlg )
 666         NameDlg.Cancel
 667     else
 668         warnlog( "Dialog <NameDlg> is not available" )
 669     end if
 670
 671     Kontext
 672     active.SetPage TabBitmap
 673     kontext "TabBitmap"
 674     Call DialogTest ( TabBitmap )
 675
 676     try
 677         Aendern.Click
 678     catch
 679         WarnLog "#36902#Modify is disabled. Wrong default-list loaded"
 680     endcatch
 681
 682     Kontext "NameDlg"
 683     if ( NameDlg.exists( 1 ) ) then
 684         Call DialogTest ( NameDlg )
 685         NameDlg.Cancel
 686     else
 687         warnlog( "Dialog <NameDlg> is not available" )
 688     end if
 689
 690     kontext "TabBitmap"
 691     Import.Click
 692     Kontext "GrafikEinfuegenDlg"
 693     if ( GrafikEinfuegenDlg.exists( 1 ) ) then
 694         Call DialogTest ( GrafikEinfuegenDlg )
 695         GrafikEinfuegenDlg.Cancel
 696     else
 697         warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
 698     end if
 699
 700     printlog " Close Tabdialog"
 701     kontext "TabBitmap"
 702     TabBitmap.Cancel
 703     printlog " Close active document"
 704     Call hCloseDocument
 705 endcase
 706
 707 '-----------------------------------------------------------
 708
 709 testcase tFormatText
 710     PrintLog "- Format / Text in drawing object"
 711     if gApplication = "HTML" then
 712         printlog "Not in WriterWeb!"
 713         goto endsub
 714     end if
 715
 716     printlog " Open new document"
 717     Call hNewDocument
 718     printlog " Paste a rectangle from draw via clipboard"
 719     Call wRectangleToClipboard
 720     EditPaste
 721     Sleep (1)
 722
 723     try
 724         printlog " Format / Text"
 725         FormatTextWriter
 726     catch
 727         Warnlog "Clipboard problem between applications!"
 728         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 729         Call gMouseClick ( 45, 45 )
 730         FormatTextWriter
 731     endcatch
 732
 733     Kontext
 734     printlog " Step through all tabpages"
 735     wait 500
 736     Active.SetPage TabText
 737     Kontext "TabText"
 738     DialogTest ( TabText )
 739
 740     Kontext
 741     Active.SetPage TabLauftext
 742     Kontext "TabLauftext"
 743     DialogTest ( TabLauftext )
 744
 745     printlog " Close dialog"
 746     TabLauftext.Cancel
 747     printlog " Close active document"
 748     Call hCloseDocument
 749 endcase
 750
 751 '-----------------------------------------------------------
 752
 753 testcase tFormatPositionAndSize
 754     PrintLog "- Format / Position and Size in drawing object"
 755     if gApplication = "HTML" then
 756         printlog "Not in WriterWeb!"
 757         goto endsub
 758     end if
 759
 760     printlog " Open new document"
 761     Call hNewDocument
 762     printlog " Paste a rectangle from draw via clipboard"
 763     Call wRectangleToClipboard
 764     hUseAsyncSlot( "EditPaste" )
 765
 766     printlog " Format Position and Size"
 767     if ( hUseAsyncSlot( "ContextPositionAndSize" ) = -1 ) then
 768         Warnlog "Clipboard problem between applications!"
 769         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 770         Call gMouseClick ( 45, 45 )
 771         if ( hUseAsyncSlot( "ContextPositionAndSize" ) = -1 ) then
 772             warnlog( "Failed to execute slot <ContextPositionAndSize>" )
 773         end if
 774     end if
 775
 776     printlog " Step through all tabpages"
 777     Kontext
 778     active.setpage TabPositionAndSizeWriter
 779     Kontext "TabPositionAndSizeWriter"
 780     call Dialogtest ( TabPositionAndSizeWriter )
 781
 782     Kontext
 783     active.setPage TabDrehung
 784     Kontext "TabDrehung"
 785     call Dialogtest ( TabDrehung )
 786
 787     Kontext
 788     active.setpage TabSchraegstellen
 789     Kontext "TabSchraegstellen"
 790     call Dialogtest ( TabSchraegstellen )
 791     printlog " Close dialog"
 792     TabSchraegstellen.cancel
 793
 794     printlog " Close active document"
 795     Call hCloseDocument
 796 endcase
 797
 798 '-----------------------------------------------------------
 799
 800 testcase tFormatFlip
 801
 802     PrintLog "- Format / Flip drawing objects"
 803     if gApplication = "HTML" then
 804         printlog "Not in WriterWeb!"
 805         goto endsub
 806     end if
 807
 808     printlog " Open new document"
 809     Call hNewDocument
 810
 811     printlog " Paste a rectangle from draw via clipboard"
 812     Call wRectangleToClipboard
 813     hUseAsyncSlot( "EditPaste" )
 814
 815     printlog " Format / Flip vertically"
 816     if ( hUseAsyncSlot( "FormatFlipVertically" ) = -1 ) then
 817         Warnlog "Clipboard problem between applications!"
 818         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 819         Call gMouseClick ( 45, 45 )
 820         if ( hUseAsyncSlot( "FormatFlipVertically" ) = -1 ) then
 821             warnlog( "Failed to execute slot <FormatFlipVertically>" )
 822         end if
 823     end if
 824
 825     WaitSlot (3000)
 826
 827     printlog " Format / Flip horizontally"
 828     hUseAsyncSlot( "FormatFlipHorizontally" )
 829     printlog " Close active document"
 830     Call hCloseDocument
 831 endcase
 832
 833 '-----------------------------------------------------------
 834
 835 testcase tFormatArrangeArea
 836
 837     PrintLog "- Format / Arrange drawing objects"
 838     if gApplication = "HTML" then
 839         printlog "Not in WriterWeb!"
 840         goto endsub
 841     end if
 842
 843     printlog " Open new document"
 844     Call hNewDocument
 845
 846     printlog " Paste a rectangle from draw via clipboard"
 847     Call wRectangleToClipboard
 848     hUseAsyncSlot( "EditPaste" )
 849
 850     printlog " Format / Arrange / Bring to front"
 851     if ( hUseAsyncSlot( "FormatArrangeBringToFrontCalc" ) = -1 ) then
 852
 853         Warnlog "Clipboard problem between applications!"
 854         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
 855         Call gMouseClick ( 45, 45 )
 856         if ( hUseAsyncSlot( "FormatArrangeBringToFrontCalc" ) = -1 ) then
 857             warnlog( "Failed to execute slot <FormatArrangeBringToFrontCalc>" )
 858         end if
 859     end if
 860
 861     WaitSlot()
 862     printlog " Format / Arrange / Bring Forward"
 863     FormatArrangeBringForward
 864     WaitSlot()
 865     printlog " Format / Arrange / Set backward"
 866     FormatArrangeSetBackward
 867     WaitSlot()
 868     printlog " Format / Arrange / Send to back"
 869     FormatArrangeSendToBack
 870     WaitSlot()
 871
 872     printlog " Close active document"
 873     Call hCloseDocument
 874 endcase
 875
 876 '-----------------------------------------------------------
 877
 878 testcase tFormatAlignmentArea
 879
 880     PrintLog "- Format / Alignment drawing objects"
 881     if gApplication = "HTML" then
 882         printlog "Not in WriterWeb!"
 883         goto endsub
 884     end if
 885     printlog " Open new document"
 886     Call hNewDocument
 887
 888     printlog " Paste a rectangle from draw via clipboard"
 889     Call wZeichenobjektEinfuegen ( "Rechteck", 45, 30, 55, 45 )
 890     sleep (1)
 891     Call wObjektSelektieren ( 43, 25, 60, 50 )
 892     Sleep 1
 893     try
 894         printlog " Format / Anchor / As Character"
 895         FormatAnchorAsCharacter
 896         WaitSlot()
 897     catch
 898         Warnlog "Anchor could not be set to character! No test!"
 899         Call hCloseDocument
 900         printlog " Close active document"
 901         goto endsub
 902     endcatch
 903
 904     try
 905         printlog " Format / Object / Alignment left"
 906         FormatObjectAlignmentLeft
 907         WaitSlot()
 908     catch
 909         Warnlog "Format / Object / Alignment / Left could not be executed!"
 910     endcatch
 911
 912     try
 913         printlog " Format / Object / Alignment centered"
 914         FormatObjectAlignmentCentered
 915         WaitSlot()
 916     catch
 917         Warnlog "Format / Object / Alignment / Centered could not be executed!"
 918     endcatch
 919
 920     try
 921         printlog " Format / Object / Alignment right"
 922         FormatObjectAlignmentRight
 923         WaitSlot()
 924     catch
 925         Warnlog "Format / Object / Alignment / Right could not be executed!"
 926     endcatch
 927
 928     try
 929         printlog " Format / Object / Alignment Top"
 930         FormatObjectAlignmentTop
 931         WaitSlot()
 932     catch
 933         Warnlog "Format / Object / Alignment / Top could not be executed!"
 934     endcatch
 935
 936     try
 937         printlog " Format / Object / Alignment Center"
 938         FormatObjectAlignmentCenter
 939         WaitSlot()
 940     catch
 941         Warnlog "Format / Object / Alignment / Center could not be executed!"
 942     endcatch
 943
 944     try
 945         printlog " Format / Object / Alignment bottom"
 946         FormatObjectAlignmentBottom
 947         WaitSlot()
 948     catch
 949         Warnlog "Format / Object / Alignment / Bottom could not be executed!"
 950     endcatch
 951
 952     printlog " Close active document"
 953     Call hCloseDocument
 954 endcase
 955
 956 '-----------------------------------------------------------
 957
 958 testcase tFormatGroup
 959     Dim x%
 960     Dim y%
 961     Dim x1%
 962     Dim y1%
 963
 964     PrintLog "- Format / Group drawing objects"
 965
 966     if ( gApplication = "HTML" ) then
 967         printlog "Not in WriterWeb!"
 968         goto endsub
 969     end if
 970
 971     printlog " Open new document"
 972     Call hNewDocument
 973
 974     printlog " Insert 2 rectangles and select both"
 975     if gPlatGroup <> "unx" then
 976         Call wZeichenobjektEinfuegen ( "Rechteck", 25, 25, 30, 30 )
 977         Call wTypeKeys ( "<Escape>" )
 978         Call wZeichenobjektEinfuegen ( "Rechteck", 35, 35, 45, 45 )
 979         Call wTypeKeys ( "<Escape>" )
 980         Call wObjektSelektieren ( 23, 23, 50, 50 )
 981         x% = 25
 982         y% = 25
 983         x1% = 35
 984         y1% = 45
 985     else
 986         Call wZeichenobjektEinfuegen ( "Rechteck", 50, 60, 30, 30 )
 987         Call wTypeKeys ( "<Escape>" )
 988         Call wZeichenobjektEinfuegen ( "Rechteck", 65, 80, 45, 45 )
 989         Call wTypeKeys ( "<Escape>" )
 990         Call wObjektSelektieren ( 23, 23, 70, 90 )
 991         x% = 55
 992         y% = 55
 993         x1% = 55
 994         y1% = 65
 995     end if
 996
 997     printlog " Format / Group / Group"
 998     if ( hUseAsyncSlot( "FormatGroupGroup" ) = -1 ) then
 999         QAErrorlog "Unable to execute Format / Group / Group. Maybe objects not selected!"
1000         Call hCloseDocument
1001         goto endsub
1002     end if
1003
1004     printlog " Format / Group / Edit Group"
1005     if ( hUseAsyncSlot( "FormatGroupEditGroupCalc" ) = -1 ) then
1006         Warnlog "Unable to execute Format / Group / Group. Maybe objects not selected!"
1007         Call hCloseDocument
1008         goto endsub
1009     end if
1010
1011     Call wTypeKeys ( "<Shift F4>" )
1012
1013     printlog " Format / Exit Group"
1014     if ( hUseAsyncSlot( "FormatExitGroupDraw" ) = -1 ) then
1015         Warnlog "Unable to execute Format / Group / Exit Group. Maybe objects not selected!"
1016         Call hCloseDocument
1017         goto endsub
1018     end if
1019
1020     Call wTypeKeys ( "<Shift F4>" )
1021
1022     printlog " Format / Ungroup"
1023     if ( hUseAsyncSlot( "FormatUngroupDraw" ) = -1 ) then
1024         Warnlog "Unable to execute Format / Group / Ungroup. Maybe objects not selected!"
1025         Call hCloseDocument
1026         goto endsub
1027     end if
1028
1029     printlog " Close active document"
1030     Call hCloseDocument
1031 endcase
1032
1033 '-----------------------------------------------------------
1034
1035 testcase tFormatFontwork
1036
1037     PrintLog "- Format / Fontwork drawing objects"
1038
1039     if ( gApplication = "HTML" ) then
1040         printlog "Not in WriterWeb!"
1041         goto endsub
1042     end if
1043
1044     printlog " Open new document"
1045     Call hNewDocument
1046     printlog " Paste a rectangle from draw via clipboard"
1047     Call wRectangleToClipboard
1048
1049     hUseAsyncSlot( "EditPaste" )
1050
1051     printlog " Format / Font Work"
1052     if ( hUseAsyncSlot( "FormatFontWork" ) = -1 ) then
1053         Warnlog "Clipboard problem between applications!"
1054         Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
1055         Call gMouseClick ( 45, 45 )
1056         FormatFontwork
1057     end if
1058
1059     Kontext "Fontwork"
1060     if ( Fontwork.Exists( 1 ) ) then
1061         call Dialogtest ( Fontwork )
1062         printlog " Close Fontwork dialog"
1063         FormatFontwork
1064     else
1065         Warnlog "Dialog 'Fontwork' does not exist!"
1066     end if
1067
1068     printlog " Close active document"
1069     Call hCloseDocument
1070 endcase
1071
1072 '-----------------------------------------------------------
1073
1074 testcase tFormatPositionAndSizeLegend
1075
1076     PrintLog "- Format / Position and Size in Legend"
1077
1078     if ( gApplication = "HTML" ) then
1079         printlog "Not in WriterWeb!"
1080         goto endsub
1081     end if
1082
1083     printlog " Open new document"
1084     Call hNewDocument
1085     Kontext "NavigatorWriter"
1086     if NavigatorWriter.Exists then ViewNavigator
1087
1088         printlog " Insert a legend"
1089     Call wZeichenobjektEinfuegen ( "Legende", 45, 35, 50, 50 )
1090         Call wTypeKeys "<ESCAPE>"
1091     Call wTypeKeys "<SHIFT F4>"
1092
1093     Call hUseAsyncSlot( "FormatPositionAndSize" )
1094     kontext "active"
1095     if ( active.exists( 1 ) ) then
1096         printlog( "Dialog open. Good" )
1097     else
1098         Warnlog "Format / Position and Size does not work! Maybe object not selected!"
1099         printlog " Close active document"
1100         Call hCloseDocument
1101         goto endsub
1102     end if
1103
1104     printlog " In upcoming dialog step through all tabpages"
1105     Kontext
1106     active.setpage TabPositionAndSizeWriter
1107
1108     Kontext "TabPositionAndSizeWriter"
1109     call Dialogtest ( TabPositionAndSizeWriter )
1110
1111     Kontext
1112     active.setpage TabLegende
1113
1114     Kontext "TabLegende"
1115     call Dialogtest ( TabLegende )
1116
1117     printlog " Close dialog"
1118     TabLegende.Cancel
1119
1120     printlog " Close active document"
1121     Call hCloseDocument
1122 endcase
1123
1124 '-----------------------------------------------------------
1125
1126 testcase tFormatStyleEdit
1127
1128     PrintLog "- Format / Style Text objects"
1129
1130     if ( gApplication = "HTML" ) then
1131         printlog "Not in WriterWeb !"
1132         goto endsub
1133     end if
1134
1135     printlog " Open new document"
1136     Call hNewDocument
1137
1138     Kontext "DrawBar"
1139     if Not DrawBar.Exists then
1140         Call hToolbarSelect("Drawing", true)
1141     end if
1142
1143     if Drawbar.Exists then
1144         Textobjekt.Click
1145         printlog " Insert a textobject from toolbar"
1146         Sleep 2
1147
1148         Call gMouseMove(50, 20, 70, 40)
1149         hUseAsyncSlot( "FormatStyleBold" )
1150
1151         printlog " Format / Style / Bold"
1152         Call wTypeKeys ("a")
1153         printlog " Format / Style / Italic"
1154         FormatStyleItalic
1155         WaitSlot()
1156         printlog " Insert a letter in text object"
1157         Call wTypeKeys ("a")
1158         printlog " Format / Style / Underline"
1159         FormatStyleUnderline
1160         WaitSlot()
1161
1162         printlog " Insert a letter in text object"
1163         Call wTypeKeys ("a")
1164         printlog " Format /Style / Strike through"
1165         UseBindings
1166         FormatStyleStrikeThrough
1167         WaitSlot()
1168         printlog " Insert a letter in text object"
1169         Call wTypeKeys ("b")
1170         printlog " Format / Style / Shadow"
1171         UseBindings
1172         FormatStyleShadow
1173         WaitSlot()
1174         printlog " Insert a letter in text object"
1175         Call wTypeKeys ("b")
1176         printlog " Format / Style / Outline"
1177         UseBindings
1178         FormatStyleOutline
1179         WaitSlot()
1180         printlog " Insert a letter in text object"
1181         Call wTypeKeys ("b")
1182         printlog " Format / Style / Superscript"
1183         FormatStyleSuperscript
1184         WaitSlot()
1185         printlog " Insert a letter in text object"
1186         Call wTypeKeys ("a")
1187         printlog " Format / Style / Subscript "
1188         FormatStyleSubscript
1189         WaitSlot()
1190         printlog " Insert a letter in text object"
1191         Call wTypeKeys ("a")
1192         Kontext "Drawbar"
1193         Drawbar.Close
1194     else
1195         Warnlog "#i33132#Toolbar 'Drawbar' is not opened!"
1196     end if
1197     printlog " Close active document"
1198     Call hCloseDocument
1199 endcase
1200
1201 '-----------------------------------------------------------
1202
1203 testcase tFormatAlignmentEdit
1204     PrintLog "- Format / Alignment text objects"
1205     if gApplication = "HTML" then
1206         printlog "Not in WriterWeb!"
1207         goto endsub
1208     end if
1209     Call hNewDocument
1210     printlog " Open new document"
1211     Kontext "DrawBar"
1212     if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
1213
1214     Textobjekt.Click
1215     printlog " Insert a textbox via 'Draw functions' toolbar"
1216
1217     Call gMouseMove(50, 20, 70, 40)
1218     printlog " Insert some text in document"
1219
1220     Call wTypeKeys ("Ein Wort")
1221     printlog " Format / Alignment / Left"
1222     hUseAsyncSlot( "FormatAlignmentLeftText" )
1223     WaitSlot()
1224     printlog " Format / Alignment / Right"
1225     FormatAlignmentRightText
1226     WaitSlot()
1227     printlog " Format / Alignment / Centered"
1228     FormatAlignmentCenteredText
1229     WaitSlot()
1230     printlog " Format  Alignment / Justify"
1231     FormatAlignmentJustifiedText
1232     WaitSlot()
1233
1234     Kontext "Drawbar"
1235     Drawbar.Close
1236     printlog " Close active document"
1237     Call hCloseDocument
1238 endcase
1239
1240 '-----------------------------------------------------------
1241
1242 testcase tFormatLineSpacing
1243     PrintLog "- Format / Line Spacing text objects"
1244     if gApplication = "HTML" then
1245         printlog "Not in WriterWeb!"
1246         goto endsub
1247     end if
1248     Call hNewDocument
1249     printlog " Open new document"
1250     Kontext "DrawBar"
1251     if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
1252
1253     Textobjekt.Click
1254     printlog " In a textbox via 'Draw Functions' toolbox"
1255
1256     Call gMouseMove(50, 20, 70, 40)
1257     Sleep 1
1258
1259     printlog " Format / Spacing / Single line"
1260     Call wTypeKeys ("Hallo<Return>Andere Zeile")
1261
1262     printlog " Format / Line Spacing / Single line"
1263     FormatLineSpacingSingleLine
1264     WaitSlot()
1265
1266     printlog " Format / Line Spacing  / 1.5 line"
1267     FormatLineSpacing15Lines
1268     WaitSlot()
1269
1270     printlog " Format / Line spacing / Double"
1271     FormatLineSpacingDouble
1272     WaitSlot()
1273
1274     Kontext "Drawbar"
1275     Drawbar.Close
1276     printlog " Close active document"
1277     Call hCloseDocument
1278
1279 endcase
1280
1281 '-----------------------------------------------------------
1282
1283 testcase tFormatParagraphEdit
1284     PrintLog "- Format / Paragraph text objects"
1285     if gApplication = "HTML" then
1286         printlog "Not in WriterWeb!"
1287         goto endsub
1288     end if
1289     Call hNewDocument
1290     printlog " Open new document"
1291     Kontext "DrawBar"
1292     if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
1293
1294     Textobjekt.Click
1295     printlog " In a textbox via 'Draw Functions' toolbox"
1296
1297     Call gMouseMove(50, 20, 70, 40)
1298
1299     printlog " Format / Paragraph "
1300     hUseAsyncSlot( "FormatParagraph" )
1301     printlog " Step through all tabpages"
1302     Kontext
1303     Active.SetPage TabEinzuegeUndAbstaende
1304     Kontext "TabEinzuegeUndAbstaende"
1305     Call DialogTest ( TabEinzuegeUndAbstaende )
1306
1307     Kontext
1308     Active.SetPage TabAusrichtungAbsatz
1309     Kontext "TabAusrichtungAbsatz"
1310     Call DialogTest ( TabAusrichtungAbsatz )
1311
1312     Kontext
1313     Active.SetPage TabTabulator
1314     Kontext "TabTabulator"
1315     Call DialogTest ( TabTabulator )
1316
1317     TabTabulator.Cancel
1318     Sleep 1
1319     printlog " Close dialog"
1320     Kontext "Drawbar"
1321     Drawbar.Close
1322
1323     printlog " Close active document"
1324     Call hCloseDocument
1325 endcase
1326
1327 '-----------------------------------------------------------
1328
1329 testcase tHtmlDocFormatGraphics
1330     PrintLog "- Format / Graphics"
1331     Dim j as integer
1332
1333     gApplication = "HTML"
1334     printlog " Open new document"
1335     Call hNewDocument
1336
1337     printlog " Insert a graphic (..\writer\required\input\graphics\jolink.jpg)"
1338     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
1339
1340     if ( hUseAsyncSlot( "FormatGraphics" ) = -1 ) then
1341         Warnlog "- Format / Graphics disabled or hidden!"
1342         goto endsub
1343     end if
1344
1345     printlog " Step through all tabpages"
1346     Kontext
1347     active.SetPage TabType
1348     Kontext "TabType"
1349     Call DialogTest ( TabType )
1350
1351     Kontext
1352     active.SetPage TabZusaetze
1353     Kontext "TabZusaetze"
1354     Call DialogTest ( TabZusaetze )
1355
1356     Kontext
1357     active.SetPage TabUmlauf
1358     Kontext "TabUmlauf"
1359     Call DialogTest ( TabUmlauf )
1360
1361     Kontext
1362     active.SetPage TabHyperlinkRahmen
1363     Kontext "TabHyperlinkRahmen"
1364     Call DialogTest ( TabHyperlinkRahmen )
1365
1366     Kontext
1367     active.SetPage TabGrafik
1368     Kontext "TabGrafik"
1369     Call DialogTest ( TabGrafik )
1370
1371     Kontext
1372     active.SetPage TabUmrandung
1373     Kontext "TabUmrandung"
1374     Call DialogTest ( TabUmrandung )
1375
1376     Kontext
1377     active.SetPage TabMakro
1378     ' if no JRE is installed a messagebox appears
1379     Do
1380         j = j + 1
1381         Kontext "Active"
1382         if Active.Exists then
1383             if Active.GetRT = 304 then
1384                 if j = 1 then Warnlog Active.Gettext
1385                 Active.Ok
1386             else
1387                 exit do
1388             end if
1389         else
1390             exit do
1391         end if
1392     Loop
1393     Kontext "TabMakro"
1394     Call DialogTest ( TabMakro )
1395
1396     printlog " Close dialog"
1397     TabMakro.Cancel
1398
1399     printlog " Close active document"
1400     Call hCloseDocument
1401     gApplication = "WRITER"
1402 endcase
1403
1404 '-----------------------------------------------------------
1405
1406 testcase tHtmlDocFormatAlignment
1407
1408         gApplication = "HTML"
1409     PrintLog "- Format / Alignment"
1410
1411     printlog " Open new document"
1412     Call hNewDocument
1413     printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
1414     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
1415     wait 500
1416     printlog " Format / Anchor / to Page"
1417     FormatAnchorToPage
1418
1419     try
1420         printlog " Format / Alignment / Left"
1421         FormatAlignmentLeft
1422         WaitSlot()
1423     catch
1424         Warnlog "'Alignment left' couldn't be executed!"
1425     endcatch
1426
1427     try
1428         printlog " Format / Alignment / Right"
1429         FormatAlignmentRight
1430         WaitSlot()
1431     catch
1432         Warnlog "'Alignment right' couldn't be executed!"
1433     endcatch
1434
1435     try
1436         printlog " Format / Alignment / Top"
1437         FormatAlignmentTop
1438         WaitSlot()
1439     catch
1440         Warnlog "'Alignment top' couldn't be executed!"
1441     endcatch
1442
1443     try
1444         printlog " Format / Alignment / Center"
1445         FormatAlignmentCenter
1446         WaitSlot()
1447     catch
1448         Warnlog "'Alignment center' couldn't be executed!"
1449     endcatch
1450
1451     try
1452         printlog " Format / Alignment / Bottom"
1453         FormatAlignmentBottom
1454         WaitSlot()
1455     catch
1456         Warnlog "'Alignment bottom' couldn't be executed!"
1457     endcatch
1458
1459     printlog " Close active document"
1460     Call hCloseDocument
1461     gApplication = "WRITER"
1462 endcase
1463
1464 '-----------------------------------------------------------
1465
1466 testcase tHtmlDocFormatObject
1467     PrintLog "- Format / Object"
1468     Dim j as integer
1469
1470     gApplication = "HTML"
1471     printlog " Open new document"
1472     Call hNewDocument
1473
1474     printlog " Insert a frame"
1475     Call wInsertFrame
1476
1477     printlog " Format / Frame"
1478     FormatFrame
1479
1480     printlog " Step through all tabpages"
1481     Kontext
1482     active.SetPage TabType
1483     Kontext "TabType"
1484     Call DialogTest ( TabType )
1485
1486     Kontext
1487     active.SetPage TabZusaetze
1488     Kontext "TabZusaetze"
1489     Call DialogTest ( TabZusaetze )
1490
1491     Kontext
1492     active.SetPage TabUmlauf
1493     Kontext "TabUmlauf"
1494     Call DialogTest ( TabUmlauf )
1495
1496     Kontext
1497     active.SetPage TabUmrandung
1498     Kontext "TabUmrandung"
1499     Call DialogTest ( TabUmrandung )
1500
1501     Kontext
1502     active.SetPage TabHintergrund
1503     Kontext "TabHintergrund"
1504     Call DialogTest ( TabHintergrund )
1505
1506     printlog " Close dialog"
1507     TabHintergrund.Cancel
1508
1509     printlog " Close active document"
1510     Call hCloseDocument
1511     gApplication = "WRITER"
1512 endcase
1513
1514 '-----------------------------------------------------------