testautomation/writer/required/includes/w_004b_.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@Sun.Com
  29 '*
  30 '* short description : Testcases with connection to the Insert-menu part II.
  31 '*
  32 '\***********************************************************************
  33
  34 sub w_004b_
  35
  36     printLog Chr(13) + "---------  Insert Menu ( w_004_ ) ----------"
  37
  38     gApplication = "WRITER"
  39     call tInsertHorizontalLine
  40     call tInsertGraphicsFromFile
  41     call tInsertAllGraphicsFromFile
  42     call tInsertObjectOLEObject
  43     call tInsertObjectPlugIn
  44     call tInsertObjectSound
  45     call tInsertObjectVideo
  46     call tInsertObjectFormula
  47     call tInsertObjectChart
  48     call tInsertFile
  49
  50     gApplication = "HTML"
  51     call tHtmlDocInsertFields
  52     call tHtmlDocInsertFieldsOther
  53     call tHtmlDocInsertSection
  54     call tHtmlDocInsertFrame
  55     call tHtmlDocInsertGraphicsFromFile
  56     gApplication = "WRITER"
  57
  58 end sub
  59
  60 testcase tInsertHorizontalLine
  61     PrintLog "- Insert / Horizontal Line"
  62
  63     printlog " Open new document"
  64     Call hNewDocument
  65
  66     printlog " Insert / Horizontal Line"
  67     InsertHorizontalLine
  68     Kontext "HorizontaleLinieEinfuegen"
  69     Call DialogTest (HorizontaleLinieEinfuegen)
  70     printlog " Close dialog 'Insert Horizontal Ruler'"
  71     HorizontaleLinieEinfuegen.Cancel
  72
  73     printlog " Close active document"
  74     Call hCloseDocument
  75 endcase
  76
  77 '-----------------------------------------------------------
  78
  79 testcase tInsertGraphicsFromFile
  80     PrintLog "- Insert / Graphics / From File"
  81     Dim j as integer
  82
  83     printlog " Open new document"
  84     Call hNewDocument
  85
  86     printlog " Insert / Graphics from file"
  87     InsertGraphicsFromFile
  88
  89     Kontext "GrafikEinfuegenDlg"
  90     printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
  91     Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
  92     Oeffnen.Click
  93
  94     Kontext "Active"
  95     if Active.Exists( 1 ) then
  96         Warnlog Active.Gettext
  97         Active.Ok
  98         Kontext "GrafikEinfuegenDlg"
  99         GrafikEinfuegenDlg.Cancel
 100         Call hCloseDocument
 101         goto endsub
 102     else
 103         printlog " select again 'Insert / Grahics from file'"
 104         InsertGraphicsFromFile
 105         WaitSlot (2000)
 106         printlog " Step through all tabpages"
 107         Kontext
 108         active.SetPage TabType
 109         wait 500
 110         Kontext "TabType"
 111         Call DialogTest ( TabType )
 112
 113         Kontext
 114         active.SetPage TabZusaetze
 115         wait 500
 116         Kontext "TabZusaetze"
 117         Call DialogTest ( TabZusaetze )
 118
 119         Kontext
 120         active.SetPage TabUmlauf
 121         wait 500
 122         Kontext "TabUmlauf"
 123         Call DialogTest ( TabUmlauf )
 124
 125         Kontext
 126         active.SetPage TabHyperlinkRahmen
 127         wait 500
 128         Kontext "TabHyperlinkRahmen"
 129         Call DialogTest ( TabHyperlinkRahmen )
 130
 131         Kontext
 132         active.SetPage TabGrafik
 133         wait 500
 134         Kontext "TabGrafik"
 135         Call DialogTest ( TabGrafik )
 136
 137         Kontext
 138         active.SetPage TabUmrandung
 139         wait 500
 140         Kontext "TabUmrandung"
 141         Call DialogTest ( TabUmrandung )
 142
 143         Kontext
 144         active.SetPage TabMakro
 145         ' if no JRE is installed a messagebox appears
 146         j = 0
 147         Do
 148             j = j + 1
 149             Kontext "Active"
 150             if Active.Exists() then
 151                 if Active.GetRT = 304 then
 152                     if j = 1 then Warnlog Active.Gettext
 153                     Active.Ok
 154                 else
 155                     exit do
 156                 end if
 157             else
 158                 exit do
 159             end if
 160         Loop
 161         wait 500
 162         Kontext "TabMakro"
 163         Call DialogTest ( TabMakro )
 164
 165         if gApplication <> "HTML" then
 166             Kontext
 167             active.SetPage TabZuschneiden
 168             wait 500
 169             Kontext "TabZuschneiden"
 170             Call DialogTest ( TabZuschneiden )
 171
 172             Kontext
 173             active.SetPage TabHintergrund
 174             wait 500
 175             Kontext "TabHintergrund"
 176             Call DialogTest ( TabHintergrund )
 177             printlog " Close dialog"
 178             TabHintergrund.Cancel
 179         else
 180             printlog " Close dialog"
 181             TabMakro.Cancel
 182         end if
 183     end if
 184
 185     printlog " Close active document"
 186     Call hCloseDocument
 187 endcase
 188
 189 '-----------------------------------------------------------
 190
 191 testcase tInsertAllGraphicsFromFile
 192
 193     printlog( "Load files of all known graphics formats" )
 194
 195     dim iCurrentFile as integer
 196     dim GraphicFile as String
 197     dim Filtername as String
 198
 199     printlog( "Insert a sample of commonly used file formats into a writer document (not linked)" )
 200
 201     gApplication = "WRITER"
 202     Call hNewDocument
 203
 204     for iCurrentFile = 1 to 25
 205
 206         ' MODIFY and ENABLE this SAMPLE snippet to exclude one fileformat from testing
 207         '         if ( iCurrentFile = 7 ) AND (gtPlatform="x86") then
 208         '             qaErrorLog("#<issue-id># crash on <platform> on loading <image-file>")
 209         '             goto skipformat
 210         '         endif
 211         ' Note: Can be locale dependent!
 212         if (iCurrentFile = 4) AND (gPlatform="osx") then
 213             qaerrorlog("#i100253# crash on MacOS X on loading ball.eps")
 214             goto skipformat
 215         endif
 216
 217         Kontext "GrafikEinfuegenDlg"
 218         if ( not GrafikEinfuegenDlg.exists() ) then
 219             InsertGraphicsFromFile
 220             Kontext "GrafikEinfuegenDlg"
 221         endif
 222
 223         if ( GrafikEinfuegenDlg.Exists( 2 ) ) then
 224             ' the list of files expected to be found in the samples directory
 225             select case iCurrentFile
 226                 case 1  :  GraphicFile = "desp.bmp"
 227                 case 2  :  GraphicFile = "columbia.dxf"
 228                 case 3  :  GraphicFile = "extrud.emf"
 229                 case 4  :  GraphicFile = "ball.eps"
 230                 case 5  :  GraphicFile = "airshw.met"
 231                 case 6  :  GraphicFile = "eface.gif"
 232                 case 7  :  GraphicFile = "purzel.gif"         ' Animated Gif
 233                 case 8  :  GraphicFile = "borabora.jpg"
 234                 case 9  :  GraphicFile = "grafix1.pbm"
 235                 case 10 :  GraphicFile = "circle.pcx"
 236                 case 11 :  GraphicFile = "papagei1.pcd"
 237                 case 12 :  GraphicFile = "newtonme.pct"
 238                 case 13 :  GraphicFile = "grafix2.pgm"
 239                 case 14 :  GraphicFile = "obst.png"
 240                 case 15 :  GraphicFile = "london.ppm"
 241                 case 16 :  GraphicFile = "tiger.psd"
 242                 case 17 :  GraphicFile = "grafix3.ras"
 243                 case 18 :  GraphicFile = "mickym.sgf"
 244                 case 19 :  GraphicFile = "faxpfeil.sgv"
 245                 case 20 :  GraphicFile = "picture.svm"
 246                 case 21 :  GraphicFile = "pilz.tga"
 247                 case 22 :  GraphicFile = "stabler.tif"
 248                 case 23 :  GraphicFile = "krokodil.wmf"
 249                 case 24 :  GraphicFile = "grafix4.xbm"
 250                 case 25 :  GraphicFile = "papagei2.xpm"
 251             end select
 252
 253             GraphicFile = ConvertPath (gTesttoolPath & "global\input\graf_inp\" & GraphicFile)
 254             printlog( "Current file " + iCurrentFile + ": " & GraphicFile )
 255             printlog( " * Set filter to <All formats>" )
 256             DateiName.SetText( GraphicFile )
 257             DateiTyp.Select( 1 )
 258             WaitSlot()
 259
 260             printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
 261             Vorschau.unCheck
 262             Verknuepfen.unCheck()
 263             Oeffnen.click()
 264             WaitSlot( 2000 )
 265
 266             Kontext "Active"
 267             if ( Active.Exists() ) then
 268                 Warnlog( "Unexpected messagebox: " & Active.GetText() )
 269                 Warnlog( "Affected file: " & GraphicFile )
 270                 Active.OK
 271             else
 272                 try
 273                     EditCopy
 274                     WaitSlot( 2000 )
 275                     EditDeleteContents
 276                     WaitSlot( 2000 )
 277                 catch
 278                     Warnlog( "Graphic file not selected/Copy or Delete is disabled: " & GraphicFile )
 279                     gMouseClick (90, 90)
 280                 endcatch
 281             endif
 282         else
 283             warnlog( "Insert Graphics Dialog is not open, aborting" )
 284             goto endsub
 285         endif
 286
 287     skipformat:
 288     next iCurrentFile
 289
 290     printlog( "" )
 291     printlog( "Test the PCD-Filters directly (3 samples)" )
 292
 293     for iCurrentFile = 1 to 3
 294
 295         printlog( "" )
 296
 297         Kontext "GrafikEinfuegenDlg"
 298         if ( not GrafikEinfuegenDlg.exists() ) then
 299             InsertGraphicsFromFile
 300             Kontext "GrafikEinfuegenDlg"
 301         endif
 302
 303         if ( GrafikEinfuegenDlg.exists( 2 ) ) then
 304
 305             select case iCurrentFile
 306             case 1 : Filtername = "PCD - Kodak Photo CD (768x512) (*.pcd)"
 307             case 2 : Filtername = "PCD - Kodak Photo CD (384x256) (*.pcd)"
 308             case 3 : Filtername = "PCD - Kodak Photo CD (192x128) (*.pcd)"
 309             end select
 310
 311             GraphicFile = ConvertPath( gTesttoolPath & "global\input\graf_inp\papagei1.pcd" )
 312
 313             printlog( "Current filter: " & Filtername )
 314             printlog( "Current file..: " & GraphicFile )
 315             DateiName.SetText ( GraphicFile )
 316             DateiTyp.Select( Filtername )
 317
 318             printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
 319             Vorschau.Uncheck()
 320             Verknuepfen.unCheck()
 321             Oeffnen.click()
 322             WaitSlot( 2000 )
 323
 324             Kontext "Active"
 325             if ( Active.Exists() )then
 326                 Warnlog( "Unexpected messagebox: " & Active.GetText() )
 327                 Warnlog( "Affected file..: " & GraphicFile )
 328                 Warnlog( "Affected filter: " & Filtername )
 329                 Active.OK()
 330             else
 331                 try
 332                     EditCopy
 333                     WaitSlot( 2000 )
 334                     EditDeleteContents
 335                     WaitSlot( 2000 )
 336                 catch
 337                     Warnlog( "Problems with filtertype : " & Filtername )
 338                     gMouseClick (90, 90)
 339                 endcatch
 340             endif
 341         else
 342             warnlog( "Insert Graphics Dialog is not open. Aborting" )
 343             goto endsub
 344         endif
 345
 346     next iCurrentFile
 347
 348     Kontext "GrafikEinfuegenDlg"
 349     if GrafikEinfuegenDlg.Exists then
 350         GrafikEinfuegenDlg.Cancel
 351     endif
 352
 353     Call hCloseDocument
 354
 355 endcase
 356
 357 '-----------------------------------------------------------
 358
 359 testcase tInsertObjectOLEObject
 360     PrintLog "- Insert / Object / OLE-Objekt"
 361
 362     printlog " Open new document"
 363     Call hNewDocument
 364
 365     printlog " Insert / Object / OLE-Object"
 366     InsertObjectOLEObject
 367
 368     Kontext "OLEObjektEinfuegen"
 369     printlog " Check both radiobuttons 'Create now' and 'Create from file'"
 370     NeuErstellen.Check
 371     Call DialogTest (OLEObjektEinfuegen, 1)
 372     AusDateiErstellen.Check
 373     Call DialogTest (OLEObjektEinfuegen, 2)
 374     OLEObjektEinfuegen.Cancel
 375
 376     printlog " Close active document"
 377     Call hCloseDocument
 378 endcase
 379
 380 '-----------------------------------------------------------
 381
 382 testcase tInsertObjectPlugIn
 383     PrintLog "- Insert / Object / Plug-In"
 384
 385     printlog " Open new document"
 386     Call hNewDocument
 387
 388     printlog " Close 'Plug in' dialog"
 389     InsertObjectPlugIn
 390
 391     Kontext "PlugInEinfuegen"
 392     if PlugInEinfuegen.Exists then
 393         Call DialogTest (PlugInEinfuegen)
 394         PlugInEinfuegen.Cancel
 395     else
 396         Warnlog "Dialog 'Plugin' is not up!"
 397     end if
 398
 399     printlog " Close active document"
 400     Call hCloseDocument
 401 endcase
 402
 403 '-----------------------------------------------------------
 404
 405 testcase tInsertObjectSound
 406     Printlog "- Insert / Object / Sound"
 407     printlog " Open new document"
 408     Call hNewDocument
 409
 410     try
 411         if gUseSysDlg = False then
 412             InsertObjectSound
 413             printlog " Insert / Object / Sound"
 414             Kontext "OeffnenDlg"
 415             if OeffnenDlg.Exists then
 416                 OeffnenDlg.Cancel
 417             else
 418                 Warnlog "Dialog to insert Sound isn't up!"
 419             end if
 420         end if
 421     catch
 422         'Warnlog "- Menu disabled or no Sound-PlugIn installed !?"
 423     endcatch
 424     printlog " Close active document"
 425     Call hCloseDocument
 426 endcase
 427
 428 '-----------------------------------------------------------
 429
 430 testcase tInsertObjectVideo
 431     Printlog "- Insert / Object / Video"
 432
 433     printlog " Open new document"
 434     Call hNewDocument
 435
 436     try
 437         if gUseSysDlg = False then
 438             InsertObjectVideo
 439             printlog " Insert / Object / Video"
 440             Kontext "OeffnenDlg"
 441             if OeffnenDlg.Exists then
 442                 OeffnenDlg.Cancel
 443             else
 444                 Warnlog "Dialog to insert Video isn't up!"
 445             end if
 446         end if
 447     catch
 448         'Warnlog "- Menu disabled or no Video-PlugIn installed !?"
 449     endcatch
 450     printlog " Close active document"
 451     Call hCloseDocument
 452 endcase
 453
 454 '-----------------------------------------------------------
 455
 456 testcase tInsertObjectFormula
 457     PrintLog "- Insert / Object / Formula"
 458
 459     printlog " Open new document"
 460     Call hNewDocument
 461
 462     printlog " Insert / Object / Formular"
 463     InsertObjectFormula
 464     WaitSlot (2000)
 465     Kontext "Active"
 466     if Active.Exists then
 467         if Active.GetRT = 304 then
 468             Warnlog Active.Gettext
 469             Active.Ok
 470         end if
 471     end if
 472     Sleep 1
 473
 474     printlog " Click in 'Math' document"
 475     Call gMouseClick(1,1)
 476     sleep 1
 477     printlog "  'Delete math-object in document"
 478     Call wTypeKeys("<Delete>")
 479
 480     printlog " Close active document"
 481     Call hCloseDocument
 482 endcase
 483
 484 '-----------------------------------------------------------
 485
 486 testcase tInsertObjectChart
 487     PrintLog "- Insert / Object / Chart"
 488
 489     printlog " Open new document"
 490     Call hNewDocument
 491     ' Chart-Wizard will be invoked if data ranges exist
 492     ' Therefor a table will be inserted
 493     printlog " Insert / Table"
 494     InsertTableWriter
 495     Kontext "TabelleEinfuegenWriter"
 496     TabelleEinfuegenWriter.Ok
 497
 498     printlog " Insert / Object / Chart"
 499     InsertObjectChart
 500
 501     Kontext "ChartWizard"
 502     if ChartWizard.Exists then
 503         printlog "- Chart-Wizard is up=>OK"
 504         Call DialogTest ( ChartWizard )
 505         printlog " Cancel Chart-Wizard"
 506         ChartWizard.Cancel
 507     else
 508         warnlog "Chart-Wizard is not up though a table has been inserted"
 509     end if
 510
 511     printlog " Close active document"
 512     Call hCloseDocument
 513 endcase
 514
 515 '-----------------------------------------------------------
 516
 517 testcase tInsertFile
 518     PrintLog "- Insert / File"
 519
 520     printlog " Open new document"
 521     Call hNewDocument
 522     InsertFileWriter
 523     WaitSlot( 2000 )
 524
 525     printlog " Insert / File"
 526     Kontext "OeffnenDlg"
 527
 528     printlog " Check 'File dialog'"
 529     if OeffnenDlg.Exists( 2 ) then
 530         Call DialogTest ( OeffnenDlg )
 531         try
 532             Standard.Click
 533         catch
 534             Exceptlog
 535         endcatch
 536
 537         Kontext "Active"
 538         if Active.Exists then
 539             Warnlog Active.Gettext
 540             Active.Ok
 541         else
 542             Kontext "OeffnenDlg"
 543             OeffnenDlg.Cancel
 544         end if
 545     end if
 546
 547     printlog " Close active document"
 548     Call hCloseDocument
 549 endcase
 550
 551 '-----------------------------------------------------------
 552
 553 testcase tHtmlDocInsertFields
 554     PrintLog "- Insert / Fields"
 555
 556     gApplication = "HTML"
 557     printlog " Open new document"
 558     Call hNewDocument
 559
 560     try
 561         printlog "Insert / Fields / Date"
 562         InsertFieldsDate
 563     catch
 564         Warnlog "Unable to execute: Insert / Fields / Date "
 565     endcatch
 566     printlog " Insert / Fields / Date"
 567     Call wTypeKeys (" <Return>")
 568     try
 569         printlog "Insert / Fields / Time"
 570         InsertFieldsTime
 571     catch
 572         Warnlog "Unable to execute: Insert / Fields / Time"
 573     endcatch
 574     printlog " Insert / Fields / Time"
 575     Call wTypeKeys (" <Return>")
 576     try
 577         printlog "Insert / Fields / Page Number"
 578         InsertFieldsPageNumbers
 579     catch
 580         Warnlog "Unable to execute: Insert / Fields / Page numbers"
 581     endcatch
 582     printlog " Insert / Fields / Page numbers"
 583     Call wTypeKeys (" <Return>")
 584     try
 585         printlog "Insert / Fields / Page Count"
 586         InsertFieldsPageCount
 587     catch
 588         Warnlog "Unable to execute: Insert / Fields / Page Count"
 589     endcatch
 590     printlog " Insert / Fields / Page count"
 591     Call wTypeKeys (" <Return>")
 592     try
 593         printlog "Insert / Fields / Title"
 594         InsertFieldsTitle
 595     catch
 596         Warnlog "Unable to execute: Insert / Fields / Title"
 597     endcatch
 598     printlog " Insert / Fields / Title"
 599     Call wTypeKeys (" <Return>")
 600     try
 601         printlog "Insert / Fields / Author"
 602         InsertFieldsAuthor
 603     catch
 604         Warnlog "Unable to execute: Insert / Fields / Author"
 605     endcatch
 606     printlog " Insert / Fields / Author"
 607     if gApplication <> "HTML" then
 608         try
 609             printlog "Insert / Fields / Subject"
 610             InsertFieldsSubject
 611         catch
 612             Warnlog "Unable to execute: Insert / Fields / Subject"
 613         endcatch
 614         printlog " If document not HTML then  'Insert / Fields / Subject"
 615         Call wTypeKeys (" <Return>")
 616         printlog " Press key 'enter'"
 617     end if
 618
 619     printlog " Close active document"
 620     Call hCloseDocument
 621     gApplication = "WRITER"
 622 endcase
 623
 624 '-----------------------------------------------------------
 625
 626 testcase tHtmlDocInsertFieldsOther
 627     Dim i as integer
 628     Dim j as integer
 629     printlog "- Insert / Fields / Other"
 630
 631     gApplication = "HTML"
 632     printlog " Open new document"
 633     Call hNewDocument
 634
 635     printlog " Insert / Fields / Other"
 636     InsertFieldsOther
 637
 638     Kontext
 639     printlog " In dialog step through all tabpages"
 640     Active.SetPage TabDokumentFeldbefehle
 641     Kontext "TabDokumentFeldbefehle"
 642     Call Dialogtest ( TabDokumentFeldbefehle )
 643
 644     Kontext
 645     Active.SetPage TabDokumentinfoFeldbefehle
 646     Kontext "TabDokumentinfoFeldbefehle"
 647     Call Dialogtest ( TabDokumentinfoFeldbefehle )
 648
 649     Kontext
 650     Active.SetPage TabVariablen
 651     Kontext "TabVariablen"
 652     Call Dialogtest ( TabVariablen )
 653
 654     if gApplication <> "HTML" then
 655         Kontext
 656         Active.SetPage TabReferenzen
 657         Kontext "TabReferenzen"
 658         Call Dialogtest ( TabReferenzen )
 659
 660         Kontext
 661         Active.SetPage TabFunktionen
 662         Kontext "TabFunktionen"
 663         Call Dialogtest ( TabFunktionen )
 664         for i=1 to Feldtyp.GetItemCount
 665             Feldtyp.Select i
 666             if MakroButton.IsEnabled then
 667                 MakroButton.Click
 668                 ' if no JRE is installed a messagebox appears
 669                 Do
 670                     j = j + 1
 671                     Kontext "Active"
 672                     if Active.Exists then
 673                         if Active.GetRT = 304 then
 674                             if j = 1 then Warnlog Active.Gettext
 675                             Active.Ok
 676                         else
 677                             exit do
 678                         end if
 679                     else
 680                         exit do
 681                     end if
 682                 Loop
 683
 684                 Kontext "ScriptSelector"
 685                 if ( ScriptSelector.exists( 3 ) ) then
 686                     ScriptSelector.Close
 687                 else
 688                     warnlog( "Dialog <ScriptSelector> is not available" )
 689                 endif
 690                 Kontext "TabFunktionen"
 691                 i=100
 692             end if
 693         next i
 694
 695         Kontext
 696         Active.SetPage TabDatenbank
 697         Kontext "TabDatenbank"
 698         Call Dialogtest ( TabDatenbank )
 699
 700         printlog " Close dialog"
 701         TabDatenbank.Close
 702     else
 703         printlog " Close dialog"
 704         TabVariablen.Close
 705     end if
 706     printlog " Close active document"
 707     Call hCloseDocument
 708     gApplication = "WRITER"
 709 endcase
 710
 711 '-----------------------------------------------------------
 712
 713 testcase tHtmlDocInsertSection
 714     PrintLog "- Insert / Section"
 715
 716     gApplication = "HTML"
 717     printlog " Open new document"
 718     Call hNewDocument
 719
 720     printlog " Insert / Section"
 721     InsertSection
 722     Kontext
 723
 724     printlog "  In dialog step through all tabpages"
 725     printlog "-  Tabpage Section"
 726     Active.Setpage TabBereiche
 727     Kontext "TabBereiche"
 728     Call DialogTest (TabBereiche)
 729     Verknuepfung.Check
 730
 731     Auswaehlen.Click
 732     Kontext "OeffnenDlg"
 733     if ( OeffnenDlg.exists( 1 ) ) then
 734         OeffnenDlg.Cancel
 735     else
 736         warnlog( "Dialog <OeffnenDlg> is not available" )
 737     endif
 738
 739     Wait 500
 740     Kontext
 741     printlog "-  Tabpage Columns"
 742     Active.Setpage TabSpalten
 743     Kontext "TabSpalten"
 744     Call DialogTest (TabSpalten)
 745
 746     Kontext
 747     printlog "-  Tabpage Background"
 748     Active.Setpage TabHintergrund
 749     Kontext "TabHintergrund"
 750     Call DialogTest (TabHintergrund)
 751
 752     if gApplication <> "HTML" then
 753         printlog "Tabpage Indents"
 754         Kontext
 755         Active.Setpage TabSectionIndent
 756         Kontext "TabSectionIndent"
 757         Call DialogTest (TabSectionIndent)
 758
 759         printlog "-  Tabpage Footnotes/Endnotes"
 760         Kontext
 761         Active.Setpage TabFussEndnoten
 762         Kontext "TabFussEndnoten"
 763         Call DialogTest (TabFussEndnoten)
 764         TabFussEndnoten.Cancel
 765     else
 766         TabHintergrund.Cancel
 767     end if
 768     printlog " Close active document"
 769     Call hCloseDocument
 770     gApplication = "WRITER"
 771 endcase
 772
 773 '-----------------------------------------------------------
 774
 775 testcase tHtmlDocInsertFrame
 776     PrintLog "- Insert / Frame"
 777
 778     gApplication = "HTML"
 779     printlog " Open new document"
 780     Call hNewDocument
 781
 782     printlog " Insert / Frame"
 783     InsertFrame
 784     WaitSlot (2000)
 785
 786     printlog " Step through all tabpages"
 787     Kontext
 788     active.SetPage TabType
 789     Kontext "TabType"
 790     Call DialogTest (TabType)
 791     Sleep 1
 792
 793     Kontext
 794     active.SetPage TabZusaetze
 795     Kontext "TabZusaetze"
 796     Call DialogTest (TabZusaetze)
 797     Sleep 1
 798
 799     Kontext
 800     active.SetPage TabUmlauf
 801     Kontext "TabUmlauf"
 802     Call DialogTest (TabUmlauf)
 803     Sleep 1
 804
 805     Kontext
 806     active.SetPage TabUmrandung
 807     Kontext "TabUmrandung"
 808     Call DialogTest (TabUmrandung)
 809     Sleep 1
 810
 811     Kontext
 812     active.SetPage TabHintergrund
 813     Kontext "TabHintergrund"
 814     Call DialogTest (TabHintergrund, 1)
 815     Sleep 1
 816     try
 817         Als.Select (2)
 818         Call DialogTest (TabHintergrund, 2)
 819         Sleep 1
 820     catch
 821         Warnlog "Maybe missing combobox! (#i29517)"
 822     endcatch
 823
 824     if gApplication <> "HTML" then
 825         Kontext
 826         active.SetPage TabHyperlinkRahmen
 827         Kontext "TabHyperlinkRahmen"
 828         Call DialogTest (TabHyperlinkRahmen)
 829         Durchsuchen.Click
 830
 831         if gUSeSysDlg = False then
 832             Kontext "OeffnenDlg"
 833             OeffnenDlg.Cancel
 834         end if
 835
 836         Kontext
 837         active.SetPage TabSpalten
 838         Kontext "TabSpalten"
 839         Call DialogTest (TabSpalten)
 840         printlog " Close dialog"
 841         TabSpalten.Cancel
 842     else
 843         printlog " Close dialog"
 844         TabHintergrund.Cancel
 845     end if
 846
 847     printlog " Close active document"
 848     Call hCloseDocument
 849     gApplication = "WRITER"
 850 endcase
 851
 852 '-----------------------------------------------------------
 853
 854 testcase tHtmlDocInsertGraphicsFromFile
 855     PrintLog "- Insert / Graphics / From File"
 856     Dim j as integer
 857
 858     gApplication = "HTML"
 859     printlog " Open new document"
 860     Call hNewDocument
 861
 862     printlog " Insert / Graphics from file"
 863     InsertGraphicsFromFile
 864
 865     Kontext "GrafikEinfuegenDlg"
 866     printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
 867     Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 868     Oeffnen.Click
 869
 870     Kontext "Active"
 871     if Active.Exists( 1 ) then
 872         Warnlog Active.Gettext
 873         Active.Ok
 874         Kontext "GrafikEinfuegenDlg"
 875         GrafikEinfuegenDlg.Cancel
 876         Call hCloseDocument
 877         goto endsub
 878     else
 879         printlog " select again 'Insert / Grahics from file'"
 880         InsertGraphicsFromFile
 881         WaitSlot (2000)
 882         printlog " Step through all tabpages"
 883         Kontext
 884         active.SetPage TabType
 885         wait 500
 886         Kontext "TabType"
 887         Call DialogTest ( TabType )
 888
 889         Kontext
 890         active.SetPage TabZusaetze
 891         wait 500
 892         Kontext "TabZusaetze"
 893         Call DialogTest ( TabZusaetze )
 894
 895         Kontext
 896         active.SetPage TabUmlauf
 897         wait 500
 898         Kontext "TabUmlauf"
 899         Call DialogTest ( TabUmlauf )
 900
 901         Kontext
 902         active.SetPage TabHyperlinkRahmen
 903         wait 500
 904         Kontext "TabHyperlinkRahmen"
 905         Call DialogTest ( TabHyperlinkRahmen )
 906
 907         Kontext
 908         active.SetPage TabGrafik
 909         wait 500
 910         Kontext "TabGrafik"
 911         Call DialogTest ( TabGrafik )
 912
 913         Kontext
 914         active.SetPage TabUmrandung
 915         wait 500
 916         Kontext "TabUmrandung"
 917         Call DialogTest ( TabUmrandung )
 918
 919         Kontext
 920         active.SetPage TabMakro
 921         ' if no JRE is installed a messagebox appears
 922         j = 0
 923         Do
 924             j = j + 1
 925             Kontext "Active"
 926             if Active.Exists then
 927                 if Active.GetRT = 304 then
 928                     if j = 1 then Warnlog Active.Gettext
 929                     Active.Ok
 930                 else
 931                     exit do
 932                 end if
 933             else
 934                 exit do
 935             end if
 936         Loop
 937         wait 500
 938         Kontext "TabMakro"
 939         Call DialogTest ( TabMakro )
 940
 941         if gApplication <> "HTML" then
 942             Kontext
 943             active.SetPage TabZuschneiden
 944             wait 500
 945             Kontext "TabZuschneiden"
 946             Call DialogTest ( TabZuschneiden )
 947
 948             Kontext
 949             active.SetPage TabHintergrund
 950             wait 500
 951             Kontext "TabHintergrund"
 952             Call DialogTest ( TabHintergrund )
 953             printlog " Close dialog"
 954             TabHintergrund.Cancel
 955         else
 956             printlog " Close dialog"
 957             TabMakro.Cancel
 958         end if
 959     end if
 960
 961     printlog " Close active document"
 962     Call hCloseDocument
 963     gApplication = "WRITER"
 964 endcase
 965