testautomation/spreadsheet/required/includes/c_upd_editmenu.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 : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Edit Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tEditUndoRedo
  35 ' #1 tEditRepeat
  36 ' #1 tEditCut
  37 ' #1 tEditCopy
  38 ' #1 tEditPaste
  39 ' #1 tEditPasteSpecial
  40 ' #1 tEditSelectAll
  41 ' #1 tEditChanges
  42 ' #1 tEditCompareDocuments
  43 ' #1 tEditFindAndReplace
  44 ' #1 tEditHeadersAndFooters
  45 '*
  46 '\***********************************************************************
  47
  48 sub c_upd_editmenu1
  49
  50     Printlog Chr(13) + "--------- EDIT Menu Part I (c_upd_editmenu.inc) ---------"
  51
  52     call tEditUndoRedo
  53     call tEditRepeat
  54     call tEditCut
  55     call tEditCopy
  56     call tEditPaste
  57     call tEditPasteSpecial
  58     call tEditSelectAll
  59     call tEditChanges
  60     call tEditCompareDocuments
  61     call tEditFindAndReplace
  62     call tEditHeadersAndFooters
  63
  64 end sub
  65
  66 '-----------------------------------------------------------
  67
  68 testcase tEditUndoRedo
  69 '///<u><b>Edit - UndoRedo</b></u>
  70     '/// Open new Spreadsheet document
  71     printlog " Open new Spreadsheet document"
  72     call hNewDocument
  73     '/// Enter some text
  74     printlog " Enter some text"
  75     kontext "DocumentCalc"
  76     DocumentCalc.Typekeys "Test<RETURN>"
  77     '/// Edit - Undo
  78     editUndo
  79 '    sleep(1)
  80     if fCalcGetCellValue ("A1") = "" then
  81         printlog "  - Undo is working"
  82     else
  83         warnlog "Undo doesn't work"
  84     end if
  85     editRedo
  86 '    sleep(1)
  87     if fCalcGetCellValue ("A1") = "Test" then
  88         printlog "  - Redo is working"
  89     else
  90         warnlog "Redo doesn't work"
  91     end if
  92     '/// Close document
  93     printlog " Close document"
  94     hCloseDocument
  95
  96 endcase
  97
  98 '-----------------------------------------------------------
  99
 100 testcase tEditRepeat
 101 '///<u><b>Edit - Repeat</b></u>
 102     '/// Open new Spreadsheet document
 103     printlog " Open new Spreadsheet document"
 104     call hNewDocument
 105     '/// Enter some text
 106     printlog " Enter some text"
 107     kontext "DocumentCalc"
 108     DocumentCalc.Typekeys "Test<RETURN>"
 109     '/// Click on cell A2
 110     printlog " Click on cell A2"
 111     call fCalcSelectCell ("A2")
 112     '/// Repeat insertion via Edit - Repeat
 113     printlog " Repeat insertion via Edit - Repeat"
 114     EditRepeat
 115     if fCalcGetCellValue ("A2") = "Test" then
 116         printlog "  - Repeat is working"
 117     else
 118         warnlog "Repeat doesn't work"
 119     end if
 120     '/// Close document
 121     printlog " Close document"
 122     hCloseDocument
 123
 124 endcase
 125
 126 '-----------------------------------------------------------
 127
 128 testcase tEditCut
 129 '///<u><b>Edit - Cut</b></u>
 130     '/// Open new Spreadsheet document
 131     printlog " Open new Spreadsheet document"
 132     call hNewDocument
 133     '/// Enter some text
 134     printlog " Enter some text"
 135     kontext "DocumentCalc"
 136     DocumentCalc.Typekeys "Cutted Text<RETURN>"
 137     '/// Click on cell A1
 138     printlog " Click on cell A1"
 139     call fCalcSelectCell ("A1")
 140     '/// Make sure that the clipboard is empty
 141     printlog " Make sure that the clipboard is empty"
 142     setclipboard = ""
 143     '/// Cut cellcontent
 144     printlog " Cut cellcontent"
 145     EditCut
 146     if GetClipboardText = "Cutted Text" AND fCalcGetCellValue ("A1") = "" then
 147         printlog "  - Cutting is working"
 148     else
 149         warnlog "Cutting does not work correctly"
 150     end if
 151     '/// Close document
 152     printlog " Close document"
 153     hCloseDocument
 154
 155 endcase
 156
 157 '-----------------------------------------------------------
 158
 159 testcase tEditCopy
 160 '///<u><b>Edit - Copy</b></u>
 161     '/// Open new Spreadsheet document
 162     printlog " Open new Spreadsheet document"
 163     call hNewDocument
 164     '/// Enter some text
 165     printlog " Enter some text"
 166     kontext "DocumentCalc"
 167     DocumentCalc.Typekeys "Copied Text<RETURN>"
 168     '/// Click on cell A1
 169     printlog " Click on cell A1"
 170     call fCalcSelectCell ("A1")
 171     '/// Make sure that the clipboard is empty
 172     printlog " Make sure that the clipboard is empty"
 173     setclipboard = ""
 174     '/// Copy cellcontent
 175     printlog " Copy cellcontent"
 176     EditCopy
 177     if GetClipboardText = "Copied Text" AND fCalcGetCellValue ("A1") = "Copied Text" then
 178         printlog "  - Copying is working"
 179     else
 180         warnlog "Copying does not work correctly"
 181     end if
 182     '/// Close document
 183     printlog " Close document"
 184     hCloseDocument
 185
 186 endcase
 187
 188 '-----------------------------------------------------------
 189
 190 testcase tEditPaste
 191 '///<u><b>Edit - Paste</b></u>
 192     '/// Open new Spreadsheet document
 193     printlog " Open new Spreadsheet document"
 194     call hNewDocument
 195     '/// Goto cell A1
 196     printlog " Gotocell A1"
 197     call fCalcSelectCell ("A1")
 198     '/// Fill clipboard with text
 199     printlog " Fill clipboard with text"
 200     setclipboard ("Pasted Text")
 201     '/// Paste clipboard
 202     printlog " Paste clipboard"
 203     EditPaste
 204     Kontext "TextImport"
 205     if TextImport.Exists(2) then
 206         call DialogTest (TextImport)
 207         '/// Close text import dialog with OK.
 208         printlog " Close text import dialog with OK."
 209         TextImport.OK
 210     end if
 211     '/// Make sure that the clipboard is empty
 212     printlog " Make sure that the clipboard is empty"
 213     setclipboard = ""
 214     if fCalcGetCellValue ("A1") = "Pasted Text" then
 215         printlog "  - Pasting is working"
 216     else
 217         warnlog "Pasting does not work correctly"
 218     end if
 219     '/// Check overwrite messagebox via copy cellcontent and paste into itself
 220     printlog " Check overwrite messagebox via copy cellcontent and paste into itself"
 221     EditCopy
 222     EditPaste
 223     try
 224        Kontext "CellWarning"
 225        Dialogtest (CellWarning)
 226        '///<li>Cancel overwrite warning</li>///
 227        CellWarning.No
 228        printlog "  - Paste overwrite MsgBox tested"
 229     catch
 230        warnlog "MsgBox for overwrite warning doesn't exist"
 231     endcatch
 232     '/// Close document
 233     printlog " Close document"
 234     hCloseDocument
 235
 236 endcase
 237
 238 '-----------------------------------------------------------
 239
 240 testcase tEditPasteSpecial
 241 '///<u><b>Edit - PasteSpecial</b></u>
 242     '/// Open new Spreadsheet document
 243     printlog " Open new Spreadsheet document"
 244     call hNewDocument
 245     '/// Enter some text
 246     printlog " Enter some text"
 247     kontext "DocumentCalc"
 248     DocumentCalc.Typekeys "Pasted Text<RETURN>"
 249     '/// Click on cell A1
 250     printlog " Click on cell A1"
 251     call fCalcSelectCell ("A1")
 252     '/// Copy cellcontent
 253     printlog " Copy cellcontent"
 254     EditCopy
 255     '/// Paste Special the clipboard
 256     printlog " Paste Special the clipboard"
 257     EditPasteSpecialCalc
 258     kontext "InhalteEinfuegenCalc"
 259     call DialogTest (InhalteEinfuegenCalc)
 260     '/// Cancel PasteSpecial-Dialog
 261     printlog " Cancel PasteSpecial-Dialog"
 262     InhalteEinfuegenCalc.Cancel
 263     if fCalcGetCellValue ("A1") = "Pasted Text" then
 264         printlog "  - PasteSpecial of spreadsheet content is working"
 265     else
 266         warnlog "PasteSpecial of spreadsheet content does not work correctly"
 267     end if
 268     '/// Insert a picture from file Insert - Graphic - From File
 269     printlog " Insert a picture from file Insert - Graphic - From File"
 270     InsertGraphicsFromFile
 271     Kontext "GrafikEinfuegenDlg"
 272     '/// Choose gTesttoolpath + global\input\graf_inp\baer.tif
 273     printlog " Choose gTesttoolpath + global\input\graf_inp\baer.tif"
 274     Dateiname.Settext (convertpath( gTesttoolpath + "global\input\graf_inp\baer.tif" ))
 275     '/// Click OK
 276     printlog " Click OK"
 277     Oeffnen.Click
 278     kontext "DocumentCalc"
 279     '/// Cut the still selected graphic via Edit - Cut
 280     printlog " Cut the still selected graphic via Edit - Cut"
 281     EditCut
 282     '/// PasteSpecial the cutted graphic
 283     printlog " PasteSpecial the cutted graphic"
 284     EditPasteSpecialCalc
 285     kontext "InhaltEinfuegen"
 286     call DialogTest (InhaltEinfuegen)
 287     printlog "  - PasteSpecial of other content is working"
 288     '/// Cancel the PasteSpecial dialog
 289     printlog " Cancel the PasteSpecial dialog"
 290     InhaltEinfuegen.Cancel
 291     '/// Close document
 292     printlog " Close document"
 293     hCloseDocument
 294
 295 endcase
 296
 297 '-----------------------------------------------------------
 298
 299 testcase tEditSelectAll
 300 '///<u><b>Edit - SelectAll</b></u>
 301     '/// Open new Spreadsheet document
 302     printlog " Open new Spreadsheet document"
 303     call hNewDocument
 304     '/// Select whole sheet via Edit - Select All
 305     printlog " Select whole sheet via Edit - Select All"
 306     EditSelectAll
 307     '/// Check in areafield if the whole sheet is selected (A1:AMJ1048576)
 308     printlog " Check in areafield if the whole sheet is selected (A1:AMJ1048576)"
 309     kontext "RechenleisteCalc"
 310     if Bereich.getSelText = "A1:AMJ1048576" then
 311         printlog "  - SelectAll is working"
 312     else
 313        warnlog "SelectAll is not working as expected. The area is " & Bereich.getSelText & " instead of A1:AMJ1048576"
 314     end if
 315     '/// Close document
 316     printlog " Close document"
 317     hCloseDocument
 318
 319 endcase
 320
 321 '-----------------------------------------------------------
 322
 323 testcase tEditChanges
 324 '///<u><b>Edit - Changes</b></u>
 325
 326     '/// Open new Spreadsheet document
 327     printlog " Open new Spreadsheet document"
 328     call hNewDocument
 329
 330     '/// Activate recording mode via Edit Changes Record
 331     printlog " Activate recording mode via Edit Changes Record"
 332     EditChangesRecordCalc
 333     'If changerecording is initially activated (which should not be) a messagebox appears
 334     kontext
 335     if active.exists then
 336         active.Yes
 337         warnlog "Unexpected state of the office - Redlining was initialy enabled"
 338         EditChangesRecordCalc
 339     end if
 340
 341     '/// Enter some text
 342     printlog " Enter some text"
 343     kontext "DocumentCalc"
 344     DocumentCalc.Typekeys "Recorded Text1<RETURN>Recorded Text2<RETURN>"
 345
 346     '/// Open Protect changes dialog via Edit - Changes - Protect
 347     printlog " Open Protect changes dialog via Edit - Changes - Protect"
 348     EditChangesProtectTraceCalc
 349     Kontext ("PasswortEingeben")
 350     call Dialogtest (PasswortEingeben)
 351     '/// Cancel Passwort dialog
 352     printlog " Cancel Passwort dialog"
 353     PasswortEingeben.Cancel
 354
 355     '/// Open Edit - Changes - Show dialog
 356     printlog " Open Edit - Changes - Show dialog"
 357     kontext "DocumentCalc"
 358     EditChangesShowCalc
 359     kontext "ShowChanges"
 360     call Dialogtest (ShowChanges)
 361     '/// Check all checkboxes
 362     printlog " Check all checkboxes"
 363     ShowChangesCalc.Check
 364     ShowDate.Check
 365     ShowAuthor.Check
 366     ShowRange.Check
 367     ShowComment.Check
 368     ShowAcceptedChanges.Check
 369     ShowRejectedChanges.Check
 370     '/// Click on range chooser button
 371     printlog " Click on range chooser button"
 372     ShrinkRange.Click
 373     '/// Enter range A1:B3
 374     printlog " Enter range A1:B3"
 375     RangeCalc.SetText "A1:B3"
 376     '/// Click on enlarge button
 377     printlog " Click on enlarge button"
 378     Shrink.Click
 379     '/// Click on 'Clock' button
 380     printlog " Click on 'Clock' button"
 381     Now1.Click
 382     '/// Choose 'Between' in date listbox
 383     printlog " Choose 'Between' in date listbox"
 384     DateList.Select 5
 385     '/// Now the second datefields are enabled, click on second 'Clock' button
 386     printlog " Now the second datefields are enabled, click on second 'Clock' button"
 387     Now2.Click
 388     '/// Choose first author from list
 389     printlog " Choose first author from list"
 390     AuthorList.Select 1
 391     '/// Enter comment 'Test' in comment field
 392     printlog " Enter comment 'Test' in comment field"
 393     EditComment.SetText "Test"
 394     '/// Close Edit - Changes - Show dialog with cancel
 395     printlog " Close Edit - Changes - Show dialog with cancel"
 396     ShowChanges.Cancel
 397
 398     '/// Open dialog Edit - Changes - Accept or Discard changes
 399     printlog " Open dialog Edit - Changes - Accept or Discard changes"
 400     EditChangesAcceptOrDiscardCalc
 401     Kontext "AenderungenAnzeigen"
 402     '/// Choose tabpage List
 403     printlog " Choose tabpage List"
 404     Kontext "TabControl"
 405     TabControl.setpage TabListe
 406     Kontext "TabListe"
 407     Call Dialogtest (TabListe)
 408     '/// Choose tabpage Filter
 409     printlog " Choose tabpage Filter"
 410     Kontext "TabControl"
 411     TabControl.setpage TabFilter
 412     Call Dialogtest (TabFilter)
 413     '/// Close dialog Edit - Changes - Accept or Discard changes
 414     printlog " Close dialog Edit - Changes - Accept or Discard changes"
 415     Kontext "AenderungenAnzeigen"
 416     AenderungenAnzeigen.close
 417
 418     '/// Select cell A1
 419     printlog " Select cell A1"
 420     call fCalcSelectRange ("A1")
 421     '/// Open Comments dialog via Edit - Changes - Comments
 422     printlog " Open Comments dialog via Edit - Changes - Comments"
 423     EditChangesCommentsCalc
 424     Kontext "Kommentar"
 425     call Dialogtest( Kommentar )
 426     '/// Click on arrow-right-button
 427     printlog " Click on arrow-right-button"
 428     Vor.Click
 429     '/// Click on arrow-left-button
 430     printlog " Click on arrow-left-button"
 431     Zurueck.Click
 432     '/// Enter comment "Test"
 433     printlog " Enter comment 'Test'"
 434     KommentarText.SetText "Test"
 435     '/// Close Comments dialog with cancel
 436     printlog " Close Comments dialog with cancel"
 437     Kommentar.cancel
 438
 439     '/// Choose Edit - Changes - Merge Documents
 440     printlog " Choose Edit - Changes - Merge Documents"
 441     EditChangesMergeDocument
 442     '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
 443     printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
 444     kontext "OeffnenDlg"
 445     Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
 446     '/// Click Open
 447     printlog " Click Open"
 448     Oeffnen.Click
 449     '/// Now the redlining dialog should appear. Close dialog with windowcloser
 450     printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
 451     kontext "AenderungenAnzeigen"
 452     AenderungenAnzeigen.close
 453
 454     '/// Close document
 455     printlog " Close document"
 456     hCloseDocument
 457
 458 endcase
 459
 460 '-----------------------------------------------------------
 461
 462 testcase tEditCompareDocuments
 463 '///<u><b>Edit - Compare Documents</b></u>
 464     '/// Open new Spreadsheet document
 465     printlog " Open new Spreadsheet document"
 466     call hNewDocument
 467     '/// Enter some text
 468     printlog " Enter some text"
 469     kontext "DocumentCalc"
 470     DocumentCalc.Typekeys "Inserted Text<RETURN>"
 471     '/// Choose Edit - Compare Documents
 472     printlog " Choose Edit - Compare Documents"
 473     EditCompareDocumentCalc
 474     '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
 475     printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
 476     kontext "OeffnenDlg"
 477     Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
 478     '/// Click Open
 479     printlog " Click Open"
 480     Oeffnen.Click
 481     '/// Now the redlining dialog should appear. Close dialog with windowcloser
 482     printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
 483     kontext "AenderungenAnzeigen"
 484     AenderungenAnzeigen.close
 485     '/// Close document
 486     printlog " Close document"
 487     hCloseDocument
 488
 489 endcase
 490
 491 '-----------------------------------------------------------
 492
 493 testcase tEditFindAndReplace
 494 '///<u><b>Edit - Find And Replace</b></u>
 495
 496     Dim bAsianLanguage as boolean
 497
 498     '/// Open new Spreadsheet document
 499     printlog " Open new Spreadsheet document"
 500     call hNewDocument
 501     '/// Enable 'Asian Language support' ON for getting all controls on dialog
 502     printlog " Enable 'Asian Language support' ON for getting all controls on dialog"
 503     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 504     '/// Enter some text
 505     printlog " Enter some text"
 506     kontext "DocumentCalc"
 507     DocumentCalc.Typekeys "Inserted Text<RETURN><UP>"
 508     '/// Choose Edit - Find And Replace
 509     printlog " Choose Edit - Find And Replace"
 510     EditSearchAndReplace
 511     kontext "FindAndReplace"
 512     '/// Click 'More' button
 513     printlog " Click 'More' button"
 514     More.Click
 515     call DialogTest ( FindAndReplace )
 516     '/// By default all checkboxes have to be unchecked.
 517     printlog " Uncheck all checkboxes (unchecked is also default)"
 518     if not MatchCase.IsEnabled then    'SoundsLike disables MatchCase
 519         SoundsLike.UnCheck
 520     end if
 521     if MatchCase.IsEnabled then
 522         MatchCase.UnCheck
 523     end if
 524     if WholeWordsOnly.IsEnabled then
 525         WholeWordsOnly.UnCheck
 526     end if
 527     if CurrentSelectionOnly.IsEnabled then
 528         CurrentSelectionOnly.UnCheck
 529     end if
 530     if Backwards.IsEnabled then
 531         Backwards.UnCheck
 532     end if
 533     if RegularExpressions.IsEnabled then
 534         RegularExpressions.UnCheck
 535     end if
 536     if SearchForStyles.IsEnabled then
 537         SearchForStyles.UnCheck
 538     end if
 539     if SearchInAllSheets.IsEnabled then
 540         SearchInAllSheets.UnCheck
 541     end if
 542     '/// Check SimilaritySearch
 543     printlog " Check SimilaritySearch"
 544     if SimilaritySearch.IsEnabled then
 545         SimilaritySearch.Check
 546     end if
 547     '/// Click ...button for similaritysearch
 548     printlog " Click ...button for similaritysearch"
 549     If SimilaritySearchFor.IsEnabled then
 550         SimilaritySearchFor.Click
 551     else
 552         SimilaritySearch.Check
 553         SimilaritySearchFor.Click
 554     end if
 555     kontext "Aehnlichkeitssuche"
 556     call DialogTest ( Aehnlichkeitssuche )
 557     '/// Use every control on opened similaritydialog
 558     printlog " Use every control on opened similaritydialog"
 559     ZeichenTauschen.More
 560     ZeichenHinzufuegen.Less
 561     ZeichenEntfernen.More
 562     Kombinieren.Click
 563     '/// Close similaritydialog with cancel
 564     printlog " Close similaritydialog with cancel"
 565     Aehnlichkeitssuche.Cancel
 566     kontext "FindAndReplace"
 567     SimilaritySearch.UnCheck
 568     If MatchFullHalfWidth.Isvisible then
 569         MatchFullHalfWidth.Uncheck
 570     end if
 571     If SoundsLike.Isvisible then
 572         SoundsLike.Check
 573         SoundsLikeOptions.Click
 574         kontext "TabJapaneseFind"
 575         call DialogTest ( TabJapaneseFind )
 576         TabJapaneseFind.Cancel
 577         kontext "FindAndReplace"
 578         SoundsLike.UnCheck
 579     end if
 580     Rows.Check
 581     SearchIn.Select 1
 582     '/// Close Dialog
 583     printlog " Close Dialog"
 584     FindAndReplace.Close
 585     '/// Set the 'Asian Language support' to default
 586     printlog " Set the 'Asian Language support' to default"
 587     if bAsianLanguage = FALSE then
 588         Call ActiveDeactivateAsianSupport(FALSE)
 589     end if
 590     '/// Close document
 591     printlog " Close document"
 592     hCloseDocument
 593
 594 endcase
 595
 596 '-----------------------------------------------------------
 597
 598 testcase tEditHeadersAndFooters
 599 '///<u><b>Edit - Headers and Footers</b></u>
 600
 601     Dim bAsianLanguage as boolean
 602     Dim bCTLlanguage as boolean
 603
 604     '/// Open new Spreadsheet document
 605     printlog " Open new Spreadsheet document"
 606     call hNewDocument
 607     '/// Enable 'Asian and CTL Language support' ON for getting all controls on dialog
 608     printlog " Enable 'Asian and CTL Language support' ON for getting all controls on dialog"
 609     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 610     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 611     '/// Disable 'Same content left/right' on Format-Page to get all resources
 612     printlog " Disable 'Same content left/right' on Format-Page to get all resources"
 613     '/// - Open Format-Page dialog
 614     FormatPageCalc
 615     '/// - Switch to tabpage Header
 616     Kontext
 617     Active.SetPage TabKopfzeile
 618     Kontext
 619     if Active.Exists(2) then
 620         if Active.GetRT = 304 then
 621             Printlog Active.GetText
 622             Active.Yes
 623             sleep(1)
 624         end if
 625     end if
 626     '/// - Uncheck 'Same content left/right'
 627     Kontext "TabKopfzeile"
 628     InhaltLinksRechtsGleich.uncheck
 629     '/// - Switch to tabpage Footer
 630     Kontext
 631     Active.SetPage TabFusszeile
 632     Kontext "TabFussZeile"
 633     '/// - Uncheck 'Same content left/right'
 634     InhaltLinksRechtsGleich.uncheck
 635     '/// - Close Dialog with OK
 636     TabFusszeile.Ok
 637
 638     '/// Open Edit - Headers & Footers
 639     printlog " Open Edit - Headers & Footers"
 640     EditHeadersAndFooters
 641     '/// Choose tabpage Header (right)
 642     printlog " Choose tabpage Header (right)"
 643     Kontext
 644     Active.SetPage TabKopfzeileCalc
 645     Kontext "TabKopfzeileCalc"
 646     Call DialogTest ( TabKopfzeileCalc )
 647     '/// Choose in Listbox Header the first entry (none)
 648     printlog " Choose in Listbox Header the first entry (none)"
 649     PredefinedHeader.Select 1
 650     '/// Enter '1' in left area field
 651     printlog " Enter '1' in left area field"
 652     LinkerBereich.typeKeys ("1")
 653     '/// Enter '1' in middle area field
 654     printlog " Enter '1' in middlearea field"
 655     MittlererBereich.typeKeys ("1")
 656     '/// Enter '1' in right area field
 657     printlog " Enter '1' in right area field"
 658     RechterBereich.typeKeys ("1")
 659     '/// Open fontdialog by clicking on Text Attributes button
 660     printlog " Open fontdialog by clicking on Text Attributes button"
 661     Textattribute.Click
 662     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 663     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 664     Kontext
 665     Active.setpage TabFont
 666     Kontext "TabFont"
 667     Call DialogTest ( TabFont)
 668     '/// Count number of western fonts (amount is dependent from system but should be more than one)
 669     printlog " Count number of western fonts (amount is dependent from system but should be more than one)"
 670     if Fontwest.GetItemCount < 1 then warnlog "The Fontwest listbox is empty"
 671     '/// Count number of western Typeface (amount is dependent from font but should be more than one)
 672     printlog " Count number of western Typeface (amount is dependent from font but should be more than one)"
 673     if StyleWest.GetItemCount < 1 then warnlog "The Stylewest listbox is empty"
 674     '/// Count number of western Size (amount is dependent from font but should be more than one)
 675     printlog " Count number of western Size (amount is dependent from font but should be more than one)"
 676     if SizeWest.GetItemCount < 1 then warnlog "The Sizewest listbox is empty"
 677     '/// Count number of western Language (amount is dependent from system but should be more than one)
 678     printlog " Count number of western Language (amount is dependent from system but should be more than one)"
 679     if LanguageWest.GetItemCount < 1 then warnlog "The Languagewest listbox is empty"
 680     '/// Count number of asian fonts (amount is dependent from system but should be more than one)
 681     printlog " Count number of asian fonts (amount is dependent from system but should be more than one)"
 682     if FontEast.GetItemCount < 1 then warnlog "The Fonteast listbox is empty"
 683     '/// Count number of asian Typeface (amount is dependent from font but should be more than one)
 684     printlog " Count number of asian Typeface (amount is dependent from font but should be more than one)"
 685     if StyleEast.GetItemCount < 1 then warnlog "The Styleeast listbox is empty"
 686     '/// Count number of asian Size (amount is dependent from font but should be more than one)
 687     printlog " Count number of asian Size (amount is dependent from font but should be more than one)"
 688     if SizeEast.GetItemCount < 1 then warnlog "The SizeEast listbox is empty"
 689     '/// Count number of asian Language (amount is dependent from system but should be more than one)
 690     printlog " Count number of asian Language (amount is dependent from system but should be more than one)"
 691     if LanguageEast.GetItemCount < 1 then warnlog "The Languageeast listbox is empty"
 692     '/// Count number of CTL fonts (amount is dependent from system but should be more than one)
 693     printlog " Count number of CTL fonts (amount is dependent from system but should be more than one)"
 694     if FontCTL.GetItemCount < 1 then warnlog "The FontCTL listbox is empty"
 695     '/// Count number of CTL Typeface (amount is dependent from font but should be more than one)
 696     printlog " Count number of CTL Typeface (amount is dependent from font but should be more than one)"
 697     if StyleCTL.GetItemCount < 1 then warnlog "The StyleCTL listbox is empty"
 698     '/// Count number of CTL Size (amount is dependent from font but should be more than one)
 699     printlog " Count number of CTL Size (amount is dependent from font but should be more than one)"
 700     if SizeCTL.GetItemCount < 1 then warnlog "The SizeCTL listbox is empty"
 701     '/// Count number of CTL Language (amount is dependent from system but should be more than one)
 702     printlog " Count number of CTL Language (amount is dependent from system but should be more than one)"
 703     if LanguageCTL.GetItemCount < 1 then warnlog "The LanguageCTL listbox is empty"
 704     '/// Choose tabpage Font Effects
 705     printlog " Choose tabpage Font Effects"
 706     Kontext
 707     Active.setpage TabFontEffects
 708     Kontext "TabFontEffects"
 709     Call DialogTest ( TabFontEffects)
 710     '/// Choose second entry for Underlining
 711     printlog " Choose second entry for Underlining"
 712     Underline.Select 2
 713     '/// Count number of Color
 714     printlog " Count number of Color"
 715     if Color.GetItemCount < 1 then warnlog "The Color listbox is empty"
 716     '/// Choose second entry for Strikethrough
 717     printlog " Choose second entry for Strikethrough"
 718     StrikeThrough.Select 2
 719     '/// Check Individual words
 720     printlog " Check Individual words"
 721     IndividualWords.Check
 722     '/// Check Outline
 723     printlog " Check Outline"
 724     Outline.Check
 725     '/// Check Shadow
 726     printlog " Check Shadow"
 727     Shadow.Check
 728     '/// Choose second entry for Relief
 729     printlog " Choose second entry for Relief"
 730     Relief.Select 2
 731     '/// Verify that Outline and Shadow are now disabled
 732     printlog " Verify that Outline and Shadow are now disabled"
 733     if Outline.IsEnabled then warnlog "Outline is enabled but should be disabled"
 734     if Shadow.IsEnabled then warnlog "Shadow is enabled but should be disabled"
 735     '/// Choose second entry for Emphasis mark
 736     printlog " Choose second entry for Emphasis mark"
 737     Emphasis.Select 2
 738     '/// Verify that Position is enabled
 739     printlog " Verify that Position is enabled"
 740     if not Position.IsEnabled then warnlog "Position is disabled but should be enabled"
 741     '/// Count number of Font colors
 742     printlog " Count number of Font colors"
 743     if FontColor.GetItemCount < 1 then warnlog "The FontColor listbox is empty"
 744     '/// Choose tabpage Font position
 745     printlog " Choose tabpage Font position"
 746     Kontext
 747     Active.setpage TabFontPosition
 748     Kontext "TabFontPosition"
 749     Call DialogTest ( TabFontPosition)
 750     '/// Check Superscript
 751     printlog " Check Superscript"
 752     SuperScript.Check
 753     '/// Check that Relative Font Size is enabled
 754     printlog " Check that Relative Font Size is enabled"
 755     if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
 756     '/// Uncheck Automatic
 757     printlog " Uncheck Automatic"
 758     Automatic.UnCheck
 759     '/// Raise Raise/Lower by 1
 760     printlog " Raise Raise/Lower by 1"
 761     RaiseLower.More
 762     '/// Check Normal
 763     printlog " Check Normal"
 764     Normal.Check
 765     '/// Verify that Relative font size is disabled
 766     printlog " Verify that Relative font size is disabled"
 767     if RelativeFontSize.IsEnabled then warnlog "RelativeFontSize is enabled but should be disabled"
 768     '/// Verify that Raise is disabled
 769     printlog " Verify that Raise is disabled"
 770     if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
 771     '/// Verify that Automatic is disabled
 772     printlog " Verify that Automatic is disabled"
 773     if Automatic.IsEnabled then warnlog "Automatic is enabled but should be disabled"
 774     '/// Check Subscript
 775     printlog " Check Subscript"
 776     Subscript.Check
 777     '/// Verify that Relative font size is enabled
 778     printlog " Verify that Relative font size is enabled"
 779     if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
 780     '/// Check Automatic
 781     printlog " Check Automatic"
 782     Automatic.Check
 783     '/// Verify that Raise is disabled
 784     printlog " Verify that Raise is disabled"
 785     if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
 786     '/// Lower Scale width by 1
 787     printlog " Lower Scale width by 1"
 788     ScaleWith.Less
 789     '/// Change Spacing to second entry
 790     printlog " Change Spacing to second entry"
 791     Spacing.Select 2
 792     '/// Verify that SpacingBy is enabled
 793     printlog " Verify that SpacingBy is enabled"
 794     if not SpacingBy.IsEnabled then warnlog "The SpacingBy is disabled but should be enabled"
 795     '/// Change Spacing to first entry
 796     printlog " Change Spacing to first entry"
 797     Spacing.Select 1
 798     '/// Verify that SpacingBy is disabled
 799     printlog " Verify that SpacingBy is disabled"
 800     if SpacingBy.IsEnabled then warnlog "SpacingBy is enabled but should be disabled"
 801     '/// Check Pair kerning
 802     printlog " Check Pair kerning"
 803     PairKerning.Check
 804     '/// Close Text Attributes dialog with Cancel
 805     printlog " Close Text Attributes dialog with Cancel"
 806     TabFontPosition.Cancel
 807
 808     Kontext "TabKopfzeileCalc"
 809     '/// Open menu on File button
 810     printlog " Open menu on File button"
 811 'Control not usable by testtool (#i85788')
 812 '    Datei.Open ()
 813     '/// Choose second entry
 814     printlog " Choose second entry"
 815 '    MenuSelect 2
 816     '/// Close menu
 817     printlog " Close menu"
 818 '    MenuSelect (0)
 819     '/// Click button for Sheetname
 820     printlog " Click button for Sheetname"
 821     Tabelle.Click
 822     '/// Click button for Page
 823     printlog " Click button for Page"
 824     Seitennummer.Click
 825     '/// Click button for Pages
 826     printlog " Click button for Pages"
 827     Seitenanzahl.Click
 828     '/// Click button for Date
 829     printlog " Click button for Date"
 830     Datum.Click
 831     '/// Click button for Time
 832     printlog " Click button for Time"
 833     Zeit.Click
 834
 835     '/// Choose tabpage Header (left)
 836     printlog " Choose tabpage Header (left)"
 837     Kontext
 838     Active.SetPage TabKopfzeileCalcLinks
 839     Kontext "TabKopfzeileCalcLinks"
 840     Call DialogTest ( TabKopfzeileCalcLinks )
 841     '/// Choose in Listbox Header the first entry (none)
 842     printlog " Choose in Listbox Header the first entry (none)"
 843     PredefinedHeaderLeft.Select 1
 844     '/// Enter 'Test' in left area field
 845     printlog " Enter 'Test' in left area field"
 846     LinkerBereich.typeKeys ("Test")
 847     '/// Enter 'Test' in middle area field
 848     printlog " Enter 'Test' in middlearea field"
 849     MittlererBereich.typeKeys ("Test")
 850     '/// Enter 'Test' in right area field
 851     printlog " Enter 'Test' in right area field"
 852     RechterBereich.typeKeys ("Test")
 853     '/// Open fontdialog by clicking on Text Attributes button
 854     printlog " Open fontdialog by clicking on Text Attributes button"
 855     TextAttribute.Click
 856     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 857     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 858     Kontext
 859     Active.setpage TabFont
 860     Kontext "TabFont"
 861     '/// Close fontdialog with Cancel
 862     printlog " Close fontdialog with Cancel"
 863     TabFont.Cancel
 864     Kontext "TabKopfzeileCalcLinks"
 865     '/// Open menu on File button
 866     printlog " Open menu on File button"
 867 'Control not usable by testtool (#i85788')
 868 '    Datei.Open ()
 869     '/// Choose second entry
 870     printlog " Choose second entry"
 871 '    MenuSelect 2
 872     '/// Close menu
 873     printlog " Close menu"
 874 '    MenuSelect (0)
 875     '/// Click button for Sheetname
 876     printlog " Click button for Sheetname"
 877     Tabelle.Click
 878     '/// Click button for Page
 879     printlog " Click button for Page"
 880     Seitennummer.Click
 881     '/// Click button for Pages
 882     printlog " Click button for Pages"
 883     Seitenanzahl.click
 884     '/// Click button for Date
 885     printlog " Click button for Date"
 886     Datum.Click
 887     '/// Click button for Time
 888     printlog " Click button for Time"
 889     Zeit.Click
 890
 891     '/// Choose tabpage Footer (right)
 892     printlog " Choose tabpage Footer (right)"
 893     Kontext
 894     Active.SetPage TabFusszeileCalc
 895     Kontext "TabFusszeileCalc"
 896     Call DialogTest ( TabFusszeileCalc )
 897     '/// Choose in Listbox Footer the first entry (none)
 898     printlog " Choose in Listbox Footer the first entry (none)"
 899     PredefinedFooter.Select 1
 900     '/// Enter 'Test' in left area field
 901     printlog " Enter 'Test' in left area field"
 902     LinkerBereich.typeKeys ("Test")
 903     '/// Enter 'Test' in middle area field
 904     printlog " Enter 'Test' in middlearea field"
 905     MittlererBereich.typeKeys ("Test")
 906     '/// Enter 'Test' in right area field
 907     printlog " Enter 'Test' in right area field"
 908     RechterBereich.typeKeys ("Test")
 909     '/// Open fontdialog by clicking on Text Attributes button
 910     printlog " Open fontdialog by clicking on Text Attributes button"
 911     TextAttribute.Click
 912     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 913     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 914     Kontext
 915     Active.setpage TabFont
 916     Kontext "TabFont"
 917     '/// Close fontdialog with Cancel
 918     printlog " Close fontdialog with Cancel"
 919     TabFont.Cancel
 920     Kontext "TabFusszeileCalc"
 921     '/// Open menu on File button
 922     printlog " Open menu on File button"
 923 'Control not usable by testtool (#i85788')
 924 '    Datei.Open ()
 925     '/// Choose second entry
 926     printlog " Choose second entry"
 927 '    MenuSelect 2
 928     '/// Close menu
 929     printlog " Close menu"
 930 '    MenuSelect (0)
 931     '/// Click button for Sheetname
 932     printlog " Click button for Sheetname"
 933     Tabelle.Click
 934     '/// Click button for Page
 935     printlog " Click button for Page"
 936     Seitennummer.Click
 937     '/// Click button for Pages
 938     printlog " Click button for Pages"
 939     Seitenanzahl.click
 940     '/// Click button for Date
 941     printlog " Click button for Date"
 942     Datum.Click
 943     '/// Click button for Time
 944     printlog " Click button for Time"
 945     Zeit.Click
 946
 947     '/// Choose tabpage Footer (left)
 948     printlog " Choose tabpage Footer (left)"
 949     Kontext
 950     Active.SetPage TabFusszeileCalcLinks
 951     Kontext "TabFusszeileCalcLinks"
 952     Call DialogTest ( TabFusszeileCalcLinks )
 953     '/// Choose in Listbox Footer the first entry (none)
 954     printlog " Choose in Listbox Footer the first entry (none)"
 955     PredefinedFooterLeft.Select 1
 956     '/// Enter 'Test' in left area field
 957     printlog " Enter 'Test' in left area field"
 958     LinkerBereich.typeKeys ("Test")
 959     '/// Enter 'Test' in middle area field
 960     printlog " Enter 'Test' in middlearea field"
 961     MittlererBereich.typeKeys ("Test")
 962     '/// Enter 'Test' in right area field
 963     printlog " Enter 'Test' in right area field"
 964     RechterBereich.typeKeys ("Test")
 965     '/// Open fontdialog by clicking on Text Attributes button
 966     printlog " Open fontdialog by clicking on Text Attributes button"
 967     TextAttribute.Click
 968     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 969     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 970     Kontext
 971     Active.setpage TabFont
 972     Kontext "TabFont"
 973     '/// Close fontdialog with Cancel
 974     printlog " Close fontdialog with Cancel"
 975     TabFont.Cancel
 976     Kontext "TabFusszeileCalcLinks"
 977     '/// Open menu on File button
 978     printlog " Open menu on File button"
 979 'Control not usable by testtool (#i85788')
 980 '    Datei.Open ()
 981     '/// Choose second entry
 982     printlog " Choose second entry"
 983 '    MenuSelect 2
 984     '/// Close menu
 985     printlog " Close menu"
 986 '    MenuSelect (0)
 987     '/// Click button for Sheetname
 988     printlog " Click button for Sheetname"
 989     Tabelle.Click
 990     '/// Click button for Page
 991     printlog " Click button for Page"
 992     Seitennummer.Click
 993     '/// Click button for Pages
 994     printlog " Click button for Pages"
 995     Seitenanzahl.click
 996     '/// Click button for Date
 997     printlog " Click button for Date"
 998     Datum.Click
 999     '/// Click button for Time
1000     printlog " Click button for Time"
1001     Zeit.Click
1002
1003     '/// Close Headers/Footers-dialog with cancel
1004     printlog " Close Headers/Footers-dialog with cancel"
1005     TabFusszeileCalcLinks.close
1006     '/// Set the 'Asian and CTL Language support' to default
1007     printlog " Set the 'Asian and CTL Language support' to default"
1008     if bAsianLanguage = FALSE then
1009         Call ActiveDeactivateAsianSupport(FALSE)
1010     end if
1011     if bCTLLanguage = FALSE then
1012         Call ActiveDeactivateCTLSupport(FALSE)
1013     end if
1014      '/// Close document
1015     printlog " Close document"
1016     hCloseDocument
1017
1018 endcase
1019
1020 '-----------------------------------------------------------
1021
1022
1023
1024