testautomation/writer/required/includes/w_020_.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 Toolbars.
  31 '*
  32 '\******************************************************************
  33
  34 sub w_020_
  35
  36     printLog Chr(13) + "--------- Toolbars (w_020_.inc) ----------"
  37
  38     'Toolbar
  39     Call t_TB_Insert
  40     Call t_TB_InsertFields
  41     Call t_TB_ShowDrawFunctions
  42     Call t_TB_Form
  43     Call t_TB_EditAutotext
  44     Call t_TB_Graphics
  45     Call t_TB_DirektCursor
  46     Call t_TB_Find
  47     Call t_TB_Rest
  48
  49     'Writer Web
  50     gApplication = "HTML"
  51     Call tHtmlDoc_TB_Insert
  52     Call tHtmlDoc_TB_InsertFields
  53     Call tHtmlDoc_TB_Form
  54     Call tHtmlDoc_TB_Rest
  55     gApplication = "WRITER"
  56
  57     Call tUpdtFindBar()
  58
  59 end sub
  60
  61 '-----------------------------------------------------------
  62
  63 testcase t_TB_Insert
  64
  65     ' JSK: This issue is solved since OOO300m9, enabling test again
  66     'qaErrorLog "#158646# - Inserting Indexes causes crash."
  67     'goto endsub
  68
  69     printlog "- Toolbox ( normal ) : All within Insert"
  70
  71     printlog " Open new document"
  72     Call hNewDocument
  73     printlog "- TearOff Insert-Toolbox"
  74     Kontext "Insertbar"
  75     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
  76
  77     if gApplication <> "HTML" then
  78         Kontext "Insertbar"
  79         printlog "  - Frame"
  80         printlog " Click 'Frame' and Insert a Frame"
  81         Rahmen.Click
  82         Call gMouseMove(40, 40, 60, 60)
  83         Call wTypeKeys ("<Delete>")
  84         printlog " Hit 'Delete' to remove the frame"
  85     end if
  86
  87     printlog "  - Graphic"
  88     Kontext "Insertbar"
  89     if ( Insertbar.Exists ) then
  90         ' all good
  91     else
  92         Call hToolbarSelect("Insert", true)
  93     endif
  94     wait 500
  95
  96     printlog " Click 'Insert Graphics' in Toolbox"
  97     if Grafik.IsEnabled then
  98         Grafik.Click
  99         Kontext "GrafikEinfuegenDlg"
 100         if GrafikEinfuegenDlg.Exists then
 101             printlog " Select graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 102             Dateiname.SetText ( ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) )
 103             Oeffnen.Click
 104         else
 105             Warnlog "Dialog 'Insert Graphic' not up!"
 106         end if
 107
 108         Kontext "Active"
 109         if Active.Exists( 1 ) then
 110             Warnlog Active.Gettext
 111             Active.Ok
 112             Kontext "GrafikEinfuegenDlg"
 113             GrafikEinfuegenDlg.Cancel
 114         end if
 115         printlog " Hit 'Delete' to remove graphic"
 116         Call wTypeKeys ("<Delete>")
 117     else
 118         Warnlog "Button 'Graphic' on Insertbar is not enabled!"
 119     end if
 120
 121     printlog "  - Table"
 122     printlog " Click 'Insert Table' in Toolbox"
 123     Kontext "Insertbar"
 124     if ( Insertbar.Exists() ) then
 125         ' No action required
 126     else
 127         Call hToolbarSelect("Insert", true)
 128     endif
 129
 130     sleep( 2 ) ' Too fast for some machines. Using dirty fix.
 131     if Tabelle.IsEnabled then
 132         Tabelle.Click
 133         Kontext "TabelleEinfuegenWriter"
 134         TabelleEinfuegenWriter.OK
 135         printlog " Move cursor under table"
 136         Call wTypeKeys ("<Down>",2)
 137     else
 138         Warnlog "Button 'Table' on Insertbar is not enabled!"
 139     end if
 140
 141     printlog "  - Document"
 142     Kontext "Insertbar"
 143     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 144
 145     if gApplication <> "HTML" then
 146         printlog "  - Footnote"
 147         printlog " Click 'Insert Footnote Directly' in Toolbox"
 148         Kontext "Insertbar"
 149         if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 150         if Fussnote.IsEnabled then
 151             Fussnote.Click
 152             Call wTypeKeys ("<PageUp>")
 153         else
 154             Warnlog "Button 'Footnote' on Insertbar is not enabled!"
 155         end if
 156
 157         Sleep 2
 158         printlog "  - Endnote"
 159         printlog " Click 'Insert Endnote Directly' in Toolbox"
 160         Kontext "Insertbar"
 161         if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 162         if Endnote.IsEnabled then
 163             Endnote.Click
 164             Call wTypeKeys ("<PageUp>")
 165         else
 166             Warnlog "Button 'Endnote' on Insertbar is not enabled!"
 167         end if
 168
 169         printlog "  - Index Marker"
 170         Call wTypeKeys ("Index Marker <Shift Home>")
 171         printlog " Click 'Insert Index Marker' in Toolbox"
 172         Kontext "Insertbar"
 173         if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 174         if Verzeichnis.IsEnabled then
 175             Verzeichnis.Click
 176             printlog " Close upcoming 'Insert Index Entry' dialog"
 177             Kontext "VerzeichniseintragEinfuegen"
 178             VerzeichniseintragEinfuegen.Close
 179         else
 180             Warnlog "Button 'Index Marker' on Insertbar is not enabled!"
 181         end if
 182     end if
 183
 184     printlog "  - Special Character"
 185     printlog " Click 'Insert Special Character' in Toolbox"
 186     Kontext "Insertbar"
 187     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 188     if Sonderzeichen.IsEnabled then
 189         Sonderzeichen.Click
 190         printlog " Cancel upcoming 'Special Character' dialog"
 191         Kontext "Sonderzeichen"
 192         Sonderzeichen.Cancel
 193     else
 194         Warnlog "Button 'Special Character' on Insertbar is not enabled!"
 195     end if
 196
 197     printlog "  - Insert Section"
 198     printlog " Click 'Insert Section' in Toolbox"
 199     Kontext "Insertbar"
 200     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 201     if BereichEinfuegen.IsEnabled then
 202         BereichEinfuegen.Click
 203         printlog " Close upcoming 'Section' dialog"
 204         Kontext
 205         Active.Setpage TabBereiche
 206         Kontext "TabBereiche"
 207         TabBereiche.Ok
 208     else
 209         Warnlog "Button 'Insert Section' on Insertbar is not enabled!"
 210     end if
 211
 212     printlog "  - Bookmark"
 213     printlog " Click 'Insert Bookmark' in Toolbox"
 214     Kontext "Insertbar"
 215     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 216     if Textmarke.IsEnabled then
 217         Textmarke.Click
 218         printlog " Enter a bookmark name and close dialog"
 219         Kontext "TextmarkeEinfuegen"
 220         Textmarken.SetText "Bookmark"
 221         TextmarkeEinfuegen.OK
 222     else
 223         Warnlog "Button 'Bookmark' on Insertbar is not enabled!"
 224     end if
 225
 226     'Only with closing the toolbox the dialog is accessible for TT
 227     printlog " Close toolbar"
 228     Kontext "Insertbar"
 229     if Insertbar.Exists then Insertbar.Close
 230
 231     printlog " Close active document"
 232     Call hCloseDocument
 233 endcase
 234
 235 '-----------------------------------------------------------
 236
 237 testcase t_TB_InsertFields
 238     Dim Ende as Integer
 239     Dim i as Integer
 240     printlog "- Toolbox ( normal ) : Fields"
 241
 242     if gPlatgroup = "unx" then
 243         printlog( "Test not suitable for Unix(like) OS" )
 244         goto endsub
 245     end if
 246     printlog " Open new document"
 247     Call hNewDocument
 248     printlog "- TearOff Insert Toolbox"
 249     printlog " Tear off toolbar and open insert toolbar"
 250     printlog " Click 'Insert Fields' in insertbar"
 251     Kontext "Insertbar"
 252     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 253     Sleep 1
 254     Feldbefehle.OpenMenu
 255     wait 500
 256     if gApplication = "HTML" then
 257         Call hMenuSelectNr(6)
 258     else
 259         Call hMenuSelectNr(8)
 260     end if
 261     Kontext
 262     try
 263         Active.SetPage TabDokumentFeldbefehle
 264         Kontext "TabDokumentFeldbefehle"
 265         printlog " Cancel upcoming 'Fields' dialog"
 266         TabDokumentFeldbefehle.Cancel
 267     catch
 268         QAErrorlog "Dialog for Fields is not up !"
 269     endcatch
 270     printlog " Close active document"
 271     Call hCloseDocument
 272 endcase
 273
 274 '-----------------------------------------------------------
 275
 276 testcase t_TB_ShowDrawFunctions
 277     printlog "- Toolbox ( normal ) : Draw Functions"
 278     if gApplication = "HTML" then
 279         printlog "Not in WriterWeb!"
 280         goto endsub
 281     end if
 282
 283     printlog " Open new document"
 284     Call hNewDocument
 285     ViewZoom
 286     Kontext "Massstab"
 287     Optimal.Check
 288     Massstab.OK
 289
 290     printlog " Open 'Draw functions' toolbar"
 291     Kontext "DrawBar"
 292     if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
 293     Sleep 5
 294
 295     printlog "  - Draw Line"
 296     Kontext "Drawbar"
 297     printlog " Draw a Line"
 298     try
 299         Linie.Click
 300         Call gMouseMove(20, 20, 30, 30)
 301         Call wTypeKeys ("<Escape>")
 302     catch
 303         Warnlog " Line could not be created !"
 304     endcatch
 305
 306     printlog "  - Draw Rectangle"
 307     Kontext "Drawbar"
 308     printlog " Draw a Rectangle"
 309     Rechteck.Click
 310     Call gMouseMove(31, 20, 40, 40)
 311     Call wTypeKeys ("<Escape>")
 312
 313     printlog "  - Draw Ellipse"
 314     Kontext "Drawbar"
 315     printlog " Draw an Ellipse"
 316     Ellipse.Click
 317     Call gMouseMove(31, 30, 60, 50)
 318     Call wTypeKeys ("<Escape>")
 319
 320     printlog "  - Draw Freeform"
 321     Kontext "Drawbar"
 322     Freihand.Click
 323     printlog " Draw a Freeform"
 324     Call gMouseMove ( 23, 20, 35, 31 )
 325     Call gMouseMove ( 35, 31, 40, 90 )
 326     Call gMouseMove ( 41, 91, 55 , 70 )
 327     Call gMouseClick( 55, 70 )
 328     Call wTypeKeys ("<Escape>")
 329
 330     printlog "  - Draw Textobject"
 331     Kontext "Drawbar"
 332     printlog " Draw a Textobject"
 333     Textobjekt.Click
 334     Call gMouseMove ( 17, 17, 28, 25 )
 335     Call wTypeKeys ("Textobject")
 336     Call gMouseClick ( 50, 99 )
 337     Call wTypeKeys ("<Escape>")
 338
 339     printlog "  - Draw Callouts"
 340     Kontext "Drawbar"
 341     printlog " Draw a Callout"
 342     Legende.Click
 343     Call gMouseMove (15, 20, 50, 60)
 344     Call gMouseClick( 50, 60 )
 345     Call wTypeKeys ("<Escape>")
 346
 347     printlog " Close toolbar 'Draw Functions'"
 348     Kontext "Drawbar"
 349     Drawbar.Close
 350     ViewZoom
 351     Kontext "Massstab"
 352     Vergroesserung100.Check
 353     Massstab.OK
 354
 355     printlog " Close active document"
 356     Call hCloseDocument
 357 endcase
 358
 359 '-----------------------------------------------------------
 360
 361 testcase t_TB_Form
 362     printlog "- Toolbox ( normal ) : Formular"
 363
 364     printlog " Open new document"
 365     Call hNewDocument
 366
 367     Kontext "FormControls"
 368     if ( FormControls.Exists( 1 ) ) then
 369         'do nothing
 370     else
 371         Call hToolbarSelect("Controls", true)
 372     endif
 373
 374     try
 375         printlog " Tear off 'Form' Toolbox"
 376         Kontext "FormControls"
 377         if Not FormControls.Exists then
 378             Warnlog "Toolbar 'FormControls' is not opened!"
 379             Call hCloseDocument
 380             goto endsub
 381         end if
 382         wait 500
 383         Pushbutton.Click
 384         printlog " Insert a pushbutton from toolbox"
 385         Call hMalZeichnenMitSelektion ( 35, 20, 30, 25 )
 386         Sleep 2
 387         Kontext "FormControls"
 388         if NOT ControlProperties.IsEnabled then
 389             if gPlatform = "osx" then
 390                 warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
 391             else
 392                 warnlog "Control properties button disabled!"
 393             end if
 394         else
 395             ControlProperties.Click
 396             sleep(2)
 397         end if
 398         printlog "+ Open Control Properties"
 399         printlog "   - Control Properties"
 400         Call sMenufunktionen("-Pushbutton-")
 401
 402         Kontext "FormControls"
 403         wait 500
 404         Radiobutton.Click
 405         printlog " Insert a Radiobutton from toolbox"
 406         Call hMalZeichnenMitSelektion ( 32, 20, 42, 25 )
 407         printlog "+ Open Control Properties"
 408         Call sMenufunktionen("-Radiobutton-")
 409
 410         Kontext "FormControls"
 411         wait 500
 412         Checkbox.Click
 413         printlog " Insert a Checkbox from toolbox"
 414         Call hMalZeichnenMitSelektion ( 45, 20, 55, 25 )
 415         printlog "+ Open Control Properties"
 416         Call sMenufunktionen("-Checkbox-")
 417
 418         Kontext "FormControls"
 419         if gApplication <> "HTML" then
 420             wait 500
 421             Label.Click
 422             printlog " Insert a textbox from toolbox"
 423             Call hMalZeichnenMitSelektion ( 57, 20, 68, 25 )
 424             printlog "+ Open Control Properties"
 425             Call sMenufunktionen("-Textbox-")
 426         end if
 427
 428         Sleep 3
 429         Kontext "FormControls"
 430         printlog " Insert an Edit Field from toolbox"
 431         Edit.Click
 432         Wait 500
 433         Call hMalZeichnenMitSelektion ( 32, 30, 42, 35 )
 434         printlog "+ Open Control Properties"
 435         Call sMenufunktionen("-Edit-")
 436
 437         Kontext "FormControls"
 438         Listbox.Click
 439         Wait 500
 440         printlog " Insert a listbox"
 441         Call hMalZeichnenMitSelektion ( 45, 30, 55, 35 )
 442         printlog "+ Step through pages of upcoming Autopilot"
 443         Call sAutopilot_ListboxCombobox("Listbox")
 444         printlog "+ Open Control Properties"
 445         Call sMenufunktionen("-Listbox-")
 446
 447         Kontext "FormControls"
 448         if ( gApplication <> "HTML" ) then
 449             Combobox.Click
 450             printlog " Insert a Combobox from toolbox"
 451             Wait 500
 452             Call hMalZeichnenMitSelektion ( 57, 30, 68, 35 )
 453             printlog "+ Step through pages of upcoming Autopilot"
 454             Call sAutopilot_ListboxCombobox("Combo")
 455             printlog "+ Open Control Properties"
 456             Call sMenufunktionen("-Combobox-")
 457         end if
 458
 459         printlog " Insert a Formatted Field from toolbox"
 460         Kontext "FormControls"
 461         if ( gApplication <> "HTML" ) then
 462             FormattedField.Click
 463             Wait 500
 464             Call hMalZeichnenMitSelektion ( 45, 50, 55, 55 )
 465             printlog "+ Open Control Properties"
 466             Call sMenufunktionen("-Formatted Field-")
 467         end if
 468         Sleep 3
 469         Call gMouseClick ( 40, 80 )
 470         Kontext "FormControls"
 471         printlog " Click 'Design Mode' in Toolbox"
 472         wait 500
 473         SwitchControlDesignMode.Click
 474         Sleep 1
 475         printlog " Click 'Design Mode' in Toolbox"
 476         SwitchControlDesignMode.Click
 477         printlog "   - Design mode"
 478         Kontext "FormControls"
 479         FormControls.Close
 480     catch
 481         Exceptlog
 482     endcatch
 483
 484     Call hCloseDocument
 485     printlog " Close active document"
 486 endcase
 487
 488 '-----------------------------------------------------------
 489
 490 testcase t_TB_EditAutotext
 491     printlog "- Toolbox ( normal ) : Autotext"
 492
 493     printlog " Open new document"
 494     Call hNewDocument
 495     Kontext "Insertbar"
 496     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 497     Sleep 2
 498     Autotext.Click
 499     printlog " Click 'Autotext' in Toolbar"
 500
 501     Kontext "Active"
 502     if ( Active.Exists( 1 ) ) then
 503         Active.Gettext
 504         Active.Ok
 505     end if
 506
 507     Kontext "Autotext"
 508     if ( Autotext.exists( 4 ) ) then
 509         printlog " Close upcoming 'Autotext' dialog"
 510         Autotext.Close
 511     else
 512         warnlog( "Dialog <Autotext> is not available" )
 513     endif
 514     printlog " Close active document"
 515     Call hCloseDocument
 516 endcase
 517
 518 '-----------------------------------------------------------
 519
 520 testcase t_TB_Find
 521     printlog "- Toolbox ( normal ) : Find & Replace"
 522     printlog " Open new document"
 523     Call hNewDocument
 524     Kontext "Standardbar"
 525     if Not Standardbar.Exists then Call hToolbarSelect("Standard", true)
 526     printlog " Click 'Find' in Toolbar"
 527     FindAndReplace.Click
 528     Kontext "FindAndReplace"
 529     printlog " Close 'Find&Replace' dialog"
 530     FindAndReplace.Close
 531     printlog " Close active document"
 532     Call hCloseDocument
 533 endcase
 534
 535 '-----------------------------------------------------------
 536
 537 testcase t_TB_Graphics
 538     printlog "- Toolbox ( normal ) : Graphic"
 539
 540     printlog " Open new document"
 541     Call hNewDocument
 542     printlog " Insert graphic from file ..\writer\required\input\graphics\jolink.jpg"
 543     Call hGrafikEinfuegen ( gTesttoolpath + "writer\required\input\graphics\jolink.jpg" )
 544
 545     Kontext "Toolbar"
 546     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 547     try
 548         printlog " Click 'Graphic' in Toolbar"
 549         GrafikenAusEin.Click
 550     catch
 551         Warnlog "Error on switching Graphic off!"
 552     endcatch
 553     Sleep 2
 554     try
 555         printlog " Click 'Graphic' in Toolbar"
 556         GrafikenAusEin.Click
 557     catch
 558         Warnlog "Error on switching Graphic on!"
 559     endcatch
 560     Sleep 2
 561
 562     printlog " Close active document"
 563     Call hCloseDocument
 564 endcase
 565
 566 '-----------------------------------------------------------
 567
 568 testcase t_TB_DirektCursor
 569     printlog "- Toolbox ( normal ) : Direct Cursor"
 570     if gApplication = "HTML" then
 571         printlog "Not in WriterWeb!"
 572         goto endsub
 573     end if
 574
 575     printlog " Open new document"
 576     Call hNewDocument
 577     printlog " Click 'Direct Cursor' in Toolbar"
 578     Kontext "Toolbar"
 579     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 580     Direktcursor.Click
 581     Sleep 1
 582     printlog " Point cursor somewhere in document"
 583     Call gMouseDoubleClick(50, 70)
 584     printlog " Insert some words in document"
 585     Call wTypeKeys ("Direct Cursor On")
 586
 587     printlog " Click 'Direct Cursor' in Toolbar"
 588     Kontext "Toolbar"
 589     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 590     Direktcursor.Click
 591     printlog " Insert some text in document"
 592     Call gMouseDoubleClick (80, 20)
 593     Call wTypeKeys ("Direct Cursor Off")
 594
 595     printlog " Close active document"
 596     Call hCloseDocument
 597 endcase
 598
 599 '-----------------------------------------------------------
 600
 601 testcase t_TB_Rest
 602     printlog "- Toolbox ( normal ) : Rest"
 603
 604     printlog " Open new document"
 605     Call hNewDocument
 606     printlog "  - Hyperlink"
 607     Kontext "Toolbar"
 608     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 609     try
 610         printlog " Click 'Hyperlink' in Toolbar"
 611         Hyperlink.Click
 612         Sleep 2
 613         printlog " Click 'Hyperlink' in Toolbar"
 614         Hyperlink.Click
 615         Warnlog "Button 'Hyperlink' should have been removed!"
 616     catch
 617     endcatch
 618
 619     printlog "  - OnlineLayout"
 620     if gApplication <> "HTML" then
 621         Kontext "Toolbar"
 622         if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 623         try
 624             printlog " Click 'Online Layout' in Toolbar"
 625             OnlineLayout.Click
 626             Sleep 2
 627             printlog " Click 'Online Layout' in Toolbar"
 628             OnlineLayout.Click
 629         catch
 630             Warnlog "Button 'OnlineLayout' is missing or disabled!"
 631         endcatch
 632     end if
 633
 634     printlog "  - Nonprinting Characters"
 635     Kontext "Toolbar"
 636     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 637     try
 638         printlog " Click 'Nonprinting Characters' in Toolbar"
 639         SteuerzeichenEinAus.Click
 640         Sleep 2
 641         printlog " Click 'Nonprinting Characters' in Toolbar"
 642         SteuerzeichenEinAus.Click
 643     catch
 644         Warnlog "Button 'Nonprinting Characters' is missing or disabled!"
 645     endcatch
 646
 647     printlog "  - Graphics on/off"
 648     Kontext "Toolbar"
 649     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 650     try
 651         printlog " Click 'Graphics' in Toolbar "
 652         GrafikenAusEin.Click
 653         Sleep 2
 654         printlog " Click 'Graphics' in Toolbar "
 655         GrafikenAusEin.Click
 656     catch
 657         Warnlog "Button 'Graphics' is missing or disabled!"
 658     endcatch
 659     printlog " Close active document"
 660     Call hCloseDocument
 661 endcase
 662
 663 '-----------------------------------------------------------
 664
 665 testcase tHtmlDoc_TB_Insert
 666
 667     ' JSK: This issue is solved since OOO300m9, enabling test again
 668     'qaErrorLog "#158646# - Inserting Indexes causes crash."
 669     'goto endsub
 670
 671     printlog "- Toolbox ( normal ) : All within Insert"
 672     gApplication = "HTML"
 673
 674     printlog " Open new document"
 675     Call hNewDocument
 676     printlog "- TearOff Insert-Toolbox"
 677     Kontext "Insertbar"
 678     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 679
 680     printlog "  - Graphic"
 681     printlog " Click 'Insert Graphics' in Toolbox"
 682     Kontext "Insertbar"
 683     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 684     wait 500
 685
 686     if Grafik.IsEnabled then
 687         Grafik.Click
 688         Kontext "GrafikEinfuegenDlg"
 689         if ( GrafikEinfuegenDlg.Exists( 1 ) ) then
 690             printlog " Select graphic from file '..\writer\required\input\graphics\jolink.jpg'"
 691             Dateiname.SetText ( ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) )
 692             Oeffnen.Click
 693         else
 694             Warnlog "Dialog 'Insert Graphic' not up!"
 695         end if
 696
 697         Kontext "Active"
 698         if ( Active.Exists( 1 ) ) then
 699             Warnlog Active.Gettext
 700             Active.Ok
 701             Kontext "GrafikEinfuegenDlg"
 702             GrafikEinfuegenDlg.Cancel
 703         end if
 704         printlog " Hit 'Delete' to remove graphic"
 705         Call wTypeKeys ("<Delete>")
 706     else
 707         Warnlog "Button 'Graphic' on Insertbar is not enabled!"
 708     end if
 709
 710     Sleep 2
 711     printlog "  - Table"
 712     printlog " Click 'Insert Table' in Toolbox"
 713     Kontext "Insertbar"
 714     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 715     if Tabelle.IsEnabled then
 716         Tabelle.Click
 717         Kontext "TabelleEinfuegenWriter"
 718         TabelleEinfuegenWriter.OK
 719         printlog " Move cursor under table"
 720         Call wTypeKeys ("<Down>",2)
 721     else
 722         Warnlog "Button 'Table' on Insertbar is not enabled!"
 723     end if
 724
 725     printlog "  - Document"
 726     Kontext "Insertbar"
 727     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 728
 729     printlog "  - Special Character"
 730     Kontext "Insertbar"
 731     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 732     if Sonderzeichen.IsEnabled then
 733         Sonderzeichen.Click
 734         Kontext "Sonderzeichen"
 735         printlog " Click 'Insert Special Character' in Toolbox"
 736         Sonderzeichen.Cancel
 737         printlog " Cancel upcoming 'Special Character' dialog"
 738     else
 739         Warnlog "Button 'Special Character' on Insertbar is not enabled!"
 740     end if
 741
 742     printlog "  - Insert Section"
 743     printlog " Click 'Insert Section' in Toolbox"
 744     Kontext "Insertbar"
 745     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 746     if BereichEinfuegen.IsEnabled then
 747         BereichEinfuegen.Click
 748         printlog " Close upcoming 'Section' dialog"
 749         Kontext
 750         Active.Setpage TabBereiche
 751         Kontext "TabBereiche"
 752         TabBereiche.Ok
 753     else
 754         Warnlog "Button 'Insert Section' on Insertbar is not enabled!"
 755     end if
 756
 757     printlog "  - Bookmark"
 758     printlog " Click 'Insert Bookmark' in Toolbox"
 759     Kontext "Insertbar"
 760     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 761     if Textmarke.IsEnabled then
 762         Textmarke.Click
 763         printlog " Enter a bookmark name and close dialog"
 764         Kontext "TextmarkeEinfuegen"
 765         Textmarken.SetText "Bookmark"
 766         TextmarkeEinfuegen.OK
 767     else
 768         Warnlog "Button 'Bookmark' on Insertbar is not enabled!"
 769     end if
 770
 771     'Only with closing the toolbox the dialog is accessible for TT
 772     printlog " Close toolbar"
 773     Kontext "Insertbar"
 774     if Insertbar.Exists then Insertbar.Close
 775
 776     printlog " Close active document"
 777     Call hCloseDocument
 778     gApplication = "WRITER"
 779 endcase
 780
 781 '-----------------------------------------------------------
 782
 783 testcase tHtmlDoc_TB_InsertFields
 784     Dim Ende as Integer
 785     Dim i as Integer
 786     printlog "- Toolbox ( normal ) : Fields"
 787     gApplication = "HTML"
 788
 789     if gPlatgroup = "unx" then
 790         printlog( "Test not suitable for Unix(like) OS" )
 791         goto endsub
 792     end if
 793
 794     printlog " Open new document"
 795     Call hNewDocument
 796     printlog "- TearOff Insert Toolbox"
 797     printlog " Tear off toolbar and open insert toolbar"
 798     Kontext "Insertbar"
 799     if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
 800     printlog " Click 'Insert Fields' in insertbar"
 801     Sleep 1
 802     Feldbefehle.OpenMenu
 803     wait 500
 804     Call hMenuSelectNr(6)
 805     Kontext
 806     try
 807         Active.SetPage TabDokumentFeldbefehle
 808         Kontext "TabDokumentFeldbefehle"
 809         printlog " Cancel upcoming 'Fields' dialog"
 810         TabDokumentFeldbefehle.Cancel
 811     catch
 812         QAErrorlog "Dialog for Fields is not up !"
 813     endcatch
 814
 815     printlog " Close active document"
 816     Call hCloseDocument
 817     gApplication = "WRITER"
 818 endcase
 819
 820 '-----------------------------------------------------------
 821 testcase tHtmlDoc_TB_Form
 822     printlog "- Toolbox ( normal ) : Formular"
 823     gApplication = "HTML"
 824
 825     printlog " Open new document"
 826     Call hNewDocument
 827
 828     Kontext "FormControls"
 829     if ( FormControls.Exists( 1 ) ) then
 830         ' do nothing
 831     else
 832         Call hToolbarSelect("Controls", true)
 833     end if
 834
 835     try
 836         printlog " Tear off 'Form' Toolbox"
 837         Kontext "FormControls"
 838         if Not FormControls.Exists then
 839             Warnlog "Toolbar 'FormControls' is not opened!"
 840             Call hCloseDocument
 841             goto endsub
 842         end if
 843         wait 500
 844         Pushbutton.Click
 845         printlog " Insert a pushbutton from toolbox"
 846         Call hMalZeichnenMitSelektion ( 35, 20, 30, 25 )
 847         Sleep 2
 848         Kontext "FormControls"
 849         if NOT ControlProperties.IsEnabled then
 850             if gPlatform = "osx" then
 851                 warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
 852             else
 853                 warnlog "Control properties button disabled!"
 854             end if
 855         else
 856             ControlProperties.Click
 857             sleep(2)
 858         end if
 859         printlog "+ Open Control Properties"
 860         printlog "   - Control Properties"
 861         Call sMenufunktionen("-Pushbutton-")
 862
 863         Kontext "FormControls"
 864         wait 500
 865         Radiobutton.Click
 866         printlog " Insert a Radiobutton from toolbox"
 867         Call hMalZeichnenMitSelektion ( 32, 20, 42, 25 )
 868         printlog "+ Open Control Properties"
 869         Call sMenufunktionen("-Radiobutton-")
 870
 871         Kontext "FormControls"
 872         wait 500
 873         Checkbox.Click
 874         printlog " Insert a Checkbox from toolbox"
 875         Call hMalZeichnenMitSelektion ( 45, 20, 55, 25 )
 876         printlog "+ Open Control Properties"
 877         Call sMenufunktionen("-Checkbox-")
 878
 879         Kontext "FormControls"
 880         printlog " Insert an Edit Field from toolbox"
 881         Edit.Click
 882         Wait 500
 883         Call hMalZeichnenMitSelektion ( 32, 30, 42, 35 )
 884         printlog "+ Open Control Properties"
 885         Call sMenufunktionen("-Edit-")
 886
 887         Kontext "FormControls"
 888         Listbox.Click
 889         Wait 500
 890         printlog " Insert a listbox"
 891         Call hMalZeichnenMitSelektion ( 45, 30, 55, 35 )
 892         printlog "+ Step through pages of upcoming Autopilot"
 893         Call sAutopilot_ListboxCombobox("Listbox")
 894         printlog "+ Open Control Properties"
 895         Call sMenufunktionen("-Listbox-")
 896
 897         printlog " Insert a Formatted Field from toolbox"
 898         Kontext "FormControls"
 899         Sleep 1
 900         Call gMouseClick ( 40, 80 )
 901         Kontext "FormControls"
 902         printlog " Click 'Design Mode' in Toolbox"
 903         wait 500
 904         SwitchControlDesignMode.Click
 905         Sleep 1
 906         printlog " Click 'Design Mode' in Toolbox"
 907         SwitchControlDesignMode.Click
 908         printlog "   - Design mode"
 909         Kontext "FormControls"
 910         FormControls.Close
 911     catch
 912         Exceptlog
 913     endcatch
 914
 915     printlog " Close active document"
 916     Call hCloseDocument
 917     gApplication = "WRITER"
 918 endcase
 919
 920 '-----------------------------------------------------------
 921
 922 testcase tHtmlDoc_TB_Rest
 923     printlog "- Toolbox ( normal ) : Rest"
 924
 925     printlog " Open new document"
 926     Call hNewDocument
 927     printlog "  - Hyperlink"
 928     Kontext "Toolbar"
 929     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 930     try
 931         printlog " Click 'Hyperlink' in Toolbar"
 932         Hyperlink.Click
 933         Sleep 2
 934         printlog " Click 'Hyperlink' in Toolbar"
 935         Hyperlink.Click
 936         Warnlog "Button 'Hyperlink' should have been removed!"
 937     catch
 938     endcatch
 939
 940     printlog "  - OnlineLayout"
 941     printlog "  - Nonprinting Characters"
 942     Kontext "Toolbar"
 943     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 944     try
 945         printlog " Click 'Nonprinting Characters' in Toolbar"
 946         SteuerzeichenEinAus.Click
 947         Sleep 2
 948         printlog " Click 'Nonprinting Characters' in Toolbar"
 949         SteuerzeichenEinAus.Click
 950     catch
 951         Warnlog "Button 'Nonprinting Characters' is missing or disabled!"
 952     endcatch
 953
 954     printlog "  - Graphics on/off"
 955     Kontext "Toolbar"
 956     if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
 957     try
 958         printlog " Click 'Graphics' in Toolbar "
 959         GrafikenAusEin.Click
 960         Sleep 2
 961         printlog " Click 'Graphics' in Toolbar "
 962         GrafikenAusEin.Click
 963     catch
 964         Warnlog "Button 'Graphics' is missing or disabled!"
 965     endcatch
 966     printlog " Close active document"
 967     Call hCloseDocument
 968     gApplication = "WRITER"
 969 endcase
 970
 971 '-----------------------------------------------------------