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