testautomation/global/required/includes/g_option_application.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: g_option.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:25:49 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : update and resouce test for all option pages (at tools/options)
  37 '*
  38 '\***********************************************************************
  39
  40 global sErrMes as String
  41 global iSectionNumber as Integer
  42
  43 sub tToolsOptionsTestFirst
  44     dim sPreviousApplication as string
  45
  46     sPreviousApplication = gApplication
  47
  48     ' To prevent users from running just a subsection from this file, without THIS
  49     ' subroutine, in every subsection the value of 'iSectionNumber' is checked.
  50     ' The test will exit with warnlog, if iSectionNumber is 0
  51     sErrMes = ""
  52     select case gApplication
  53     case "WRITER","MASTERDOCUMENT","HTML"   : iSectionNumber = 8
  54     case "IMPRESS","DRAW","MATH","CALC"     : iSectionNumber = 7
  55     end select
  56
  57     ' these tabpages only exist in the respective application
  58     gApplication = "WRITER"
  59     iSectionNumber = 8
  60     Call tToolsOptionsTextDocument
  61
  62     gApplication = "HTML"
  63     iSectionNumber = 8
  64     Call tToolsOptionsHTMLDocument
  65
  66     gApplication = "CALC"
  67     iSectionNumber = 7
  68     Call tToolsOptionsSpreadsheet
  69
  70     gApplication = "IMPRESS"
  71     iSectionNumber = 7
  72     Call tToolsOptionsPresentation
  73
  74     gApplication = "DRAW"
  75     iSectionNumber = 7
  76     Call tToolsOptionsDrawing
  77
  78     gApplication = "MATH"
  79     iSectionNumber = 7
  80     Call tToolsOptionsFormula
  81
  82     gApplication = sPreviousApplication
  83 end sub
  84
  85 '-------------------------------------------------------------------------
  86
  87 testcase tToolsOptionsTextdocument
  88     dim EchteAnzahl as Integer, i as Integer
  89     dim gefunden as Boolean
  90
  91     PrintLog "- Tools/Options/Text document  ( Extras/Optionen/Textdokument )"
  92     if (0 = iSectionNumber) then
  93         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
  94         goto endsub
  95     endif
  96     '/// Create a new document
  97     if gApplication <> "BACKGROUND" then
  98         Call hNewDocument
  99     end if
 100     '/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
 101     ToolsOptions
 102     Kontext "Active"
 103     if Active.Exists (3) then
 104         if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
 105         Active.OK
 106     end if
 107     ToPosInOptionlist ( 4 )
 108     EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
 109     if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
 110         Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
 111     else
 112         printlog "Asian support and CTL support are not activated ( on languages-page )!"
 113     end if
 114     if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
 115     if gAsianSup     = FALSE then EchteAnzahl = EchteAnzahl + 1
 116     if gCTLSup       = FALSE then EchteAnzahl = EchteAnzahl + 1
 117     for i=1 to EchteAnzahl
 118         gefunden = FALSE
 119         Kontext "OptionenDlg"
 120         Optionsliste.TypeKeys "<Down>"
 121         if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
 122         if gAsianSup = FALSE AND gCTLSup = TRUE  AND i=6 then i=i+1
 123         if gAsianSup = TRUE  AND gCTLSup = FALSE AND i=7 then i=i+1
 124         select case i
 125         case 1 : Kontext "TabLaden"
 126             '///+<ul><li>General</li>
 127             printlog "  - General / Allgemein"
 128             if TabLaden.IsVisible then
 129                 gefunden = TRUE
 130                 Call DialogTest ( TabLaden )
 131             end if
 132         case 2 : Kontext "TabInhalteWriter"
 133             '///+<li>View</li>
 134             printlog "  - View / Ansicht"
 135             if TabInhalteWriter.IsVisible then
 136                 gefunden = TRUE
 137                 Call DialogTest ( TabInhalteWriter )
 138             end if
 139         case 3 : Kontext "TabDirektCursor"
 140             '///+<li>Formating aids</li>
 141             printlog "  - Formating aids / Formatierungshilfen"
 142             if TabDirektCursor.IsVisible then
 143                 gefunden = TRUE
 144                 Call DialogTest ( TabDirektCursor )
 145             end if
 146         case 4 : Kontext "TabRaster"
 147             '///+<li>Grid</li>
 148             printlog "  - Grid / Raster"
 149             if TabRaster.IsVisible then
 150                 gefunden = TRUE
 151                 Call DialogTest ( TabRaster )
 152             end if
 153         case 5 : Kontext "TabGrundschriften"
 154             '///+<li>Default fonts</li>
 155             printlog "  - Default Fonts / Grundschriften"
 156             if TabGrundschriften.IsVisible then
 157                 gefunden = TRUE
 158                 Call DialogTest ( TabGrundschriften )
 159             end if
 160         case 6 : Kontext "TabGrundschriftenAsian"
 161             '///+<li>Default fonts asian</li>
 162             printlog "  - Default Fonts Asian / Grundschriften Asiatisch"
 163             if TabGrundschriftenAsian.IsVisible then
 164                 gefunden = TRUE
 165                 Call DialogTest ( TabGrundschriftenAsian )
 166             end if
 167         case 7 : Kontext "TabGrundschriftenCTL"
 168             '///+<li>Default fonts CTL</li>
 169             printlog "  - Default Fonts CTL / Grundschriften CTL"
 170             if TabGrundschriftenCTL.IsVisible then
 171                 gefunden = TRUE
 172                 Call DialogTest ( TabGrundschriftenCTL )
 173             end if
 174         case 8 : Kontext "TabDruckenWriter"
 175             '///+<li>Print</li>
 176             printlog "  - Print / Drucken"
 177             if TabDruckenWriter.IsVisible then
 178                 gefunden = TRUE
 179                 Call DialogTest ( TabDruckenWriter )
 180             end if
 181         case 9 : Kontext "TabTabelleOptionen"
 182             '///+<li>Table</li>
 183             printlog "  - Table / Tabellen"
 184             if TabTabelleOptionen.IsVisible then
 185                 gefunden = TRUE
 186                 Call DialogTest ( TabTabelleOptionen )
 187             end if
 188         case 10: Kontext "TabAenderungenWriter"
 189             '///+<li>Changes</li>
 190             printlog "  - Changes / Aenderungen"
 191             if TabAenderungenWriter.IsVisible then
 192                 gefunden = TRUE
 193                 Call DialogTest ( TabAenderungenWriter )
 194             end if
 195         case 11: Kontext "TabCompatibility"
 196             '///+<li>Compatibility</li>
 197             printlog "  - Compatibility"
 198             if TabCompatibility.IsVisible then
 199                 gefunden = TRUE
 200                 Call DialogTest ( TabCompatibility )
 201             end if
 202         case 12: Kontext "TabAutoCaption"
 203             '///+<li>AutoCaption</li>
 204             printlog "  - AutoCaption"
 205             if TabAutoCaption.IsVisible then
 206                 gefunden = TRUE
 207                 Call DialogTest ( TabAutoCaption )
 208             end if
 209         case 13: Kontext "TabMailMergeEMail"
 210             '///+<li>Mail Merge E-mail</li></ul>
 211             printlog "  - Mail Merge E-mail"
 212             if TabMailMergeEMail.IsVisible then
 213                 gefunden = TRUE
 214                 Call DialogTest ( TabMailMergeEMail )
 215                 ServerAuthentication.click
 216                 kontext "ServerAuthentication"
 217                 Call DialogTest ( ServerAuthentication )
 218                 ServerAuthentication.cancel
 219                 Kontext "TabMailMergeEMail"
 220                 TestSettings.click
 221
 222                 ' in case java is not enabled
 223                 sleep( 2 )
 224                 try
 225                     Kontext "Messagebox"
 226                     if ( MessageBox.exists()) then
 227                         sleep(2)
 228                         warnlog(Messagebox.GetText())
 229                         try
 230                             Messagebox.Cancel()
 231                             sleep( 2 )
 232                         catch
 233                             Messagebox.OK() ' if "OK" works, we are in an undefined state
 234                             warnlog( "" )
 235                         endcatch
 236                     end if
 237                 catch
 238                     warnlog( "A messagebox was displayed but coul not be closed." )
 239                 endcatch
 240
 241                 Kontext "TestaccountSettings"
 242                 Call DialogTest ( TestaccountSettings )
 243                 TestaccountSettings.cancel
 244             end if
 245         end select
 246         if gefunden=FALSE then
 247             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 248             EchteAnzahl = EchteAnzahl - 1
 249             if EchteAnzahl < 12 then
 250                 i=13
 251             else
 252                 i=1-1
 253             end if
 254         end if
 255     next i
 256     '/// Close the options dialog
 257     Kontext "OptionenDlg"
 258     OptionenDlg.Cancel
 259     '/// Close the document
 260     if gApplication <> "BACKGROUND" then
 261         Call hCloseDocument
 262     end if
 263 endcase
 264
 265 '-------------------------------------------------------------------------
 266
 267 testcase tToolsOptionsHTMLDocument
 268     dim EchteAnzahl as Integer, i as Integer
 269     dim gefunden as Boolean
 270
 271     PrintLog "- Tools/Options/HTML-Document  ( Extras/Optionen/HTML-Dokument )"
 272     if (0 = iSectionNumber) then
 273         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 274         goto endsub
 275     endif
 276     '/// Create a new document
 277     if gApplication <> "BACKGROUND" then
 278         Call hNewDocument
 279     end if
 280     '/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
 281     ToolsOptions
 282     ToPosInOptionlist ( 5 )
 283     i = 6
 284     if bDebugVersion = TRUE  then i = i + 1  ' here exists the special debug-tabpage, too
 285     EchteAnzahl = OptionTabPageZaehler (i)
 286     if bDebugVersion = TRUE  then EchteAnzahl = EchteAnzahl - 1
 287     for i=1 to EchteAnzahl
 288         gefunden = FALSE
 289         Kontext "OptionenDlg"
 290         Optionsliste.TypeKeys "<Down>"
 291         select case i
 292         case 1 : Kontext "TabInhalteHTML"
 293             '/// View
 294             printlog "  - View / Ansicht"
 295             if TabInhalteHTML.IsVisible then
 296                 gefunden = TRUE
 297                 Call DialogTest ( TabInhalteHTML )
 298             end if
 299         case 2 : Kontext "TabDirektCursor"
 300             '/// Formating aids
 301             printlog "  - Formatting aids / Formatierungshilfen"
 302             if TabDirektCursor.IsVisible then
 303                 gefunden = TRUE
 304                 Call DialogTest ( TabDirektCursor )
 305             end if
 306         case 3 : Kontext "TabRaster"
 307             '/// Grid
 308             printlog "  - Grid / Raster"
 309             if TabRaster.IsVisible then
 310                 gefunden = TRUE
 311                 Call DialogTest ( TabRaster )
 312             end if
 313         case 4 : Kontext "TabDruckenHTML"
 314             '/// Print
 315             printlog "  - Print / Drucken"
 316             if TabDruckenHTML.IsVisible then
 317                 gefunden = TRUE
 318                 Call DialogTest ( TabDruckenHTML )
 319             end if
 320         case 5 : Kontext "TabTabelleOptionen"
 321             '/// Table
 322             printlog "  - Table / Tabelle"
 323             if TabTabelleOptionen.IsVisible then
 324                 gefunden = TRUE
 325                 Call DialogTest ( TabTabelleOptionen )
 326             end if
 327         case 6 : Kontext "TabHintergrund"
 328             '/// Background
 329             printlog "  - Background / Hintergrund"
 330             Sleep 1
 331             if TabHintergrund.IsVisible then
 332                 gefunden = TRUE
 333                 Call DialogTest ( TabHintergrund )
 334             end if
 335         end select
 336         if gefunden=FALSE then
 337             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 338             EchteAnzahl = EchteAnzahl - 1
 339             if EchteAnzahl < 6 then
 340                 i=11
 341             else
 342                 i=1-1
 343             end if
 344         end if
 345     next i
 346     '/// Close the options dialog
 347     Kontext "OptionenDlg"
 348     OptionenDlg.Cancel
 349     '/// Close the document
 350     if gApplication <> "BACKGROUND" then
 351         Call hCloseDocument
 352     end if
 353 endcase
 354
 355 '-------------------------------------------------------------------------
 356
 357 testcase tToolsOptionsSpreadsheet
 358     dim EchteAnzahl as Integer, i as Integer
 359     dim gefunden as Boolean
 360
 361     PrintLog "- Tools/Options/Spreadsheet  ( Extras/Optionen/Tabellendokument )"
 362     if (0 = iSectionNumber) then
 363         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 364         goto endsub
 365     endif
 366     '/// Create a new document
 367     if gApplication <> "BACKGROUND" then
 368         Call hNewDocument
 369     end if
 370     '/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
 371     ToolsOptions
 372     ToPosInOptionlist ( 4 )
 373     EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
 374     for i=1 to EchteAnzahl
 375         gefunden = FALSE
 376         Kontext "OptionenDlg"
 377         Optionsliste.TypeKeys "<Down>"
 378         select case i
 379         case 1 : Kontext "TabLayoutCalc"
 380             '/// General
 381             printlog "  - General / Allgemein"
 382             if TabLayoutCalc.IsVisible then
 383                 gefunden = TRUE
 384                 Call DialogTest ( TabLayoutCalc )
 385             end if
 386         case 2 : Kontext "TabInhaltCalc"
 387             '/// View
 388             printlog "  - View / Ansicht"
 389             if TabInhaltCalc.IsVisible then
 390                 gefunden = TRUE
 391                 Call DialogTest ( TabInhaltCalc )
 392             end if
 393         case 3 : Kontext "TabBerechnen"
 394             '/// Calculate
 395             printlog "  - Calculate / Berechnen"
 396             if TabBerechnen.IsVisible then
 397                 gefunden = TRUE
 398                 Call DialogTest ( TabBerechnen )
 399             end if
 400         case 4 : Kontext "TabSortierlisten"
 401             '/// Sort lists
 402             printlog "  - Sort Lists / Sortierliste"
 403             if TabSortierlisten.IsVisible then
 404                 gefunden = TRUE
 405                 Call DialogTest ( TabSortierlisten )
 406             end if
 407         case 5 : Kontext "TabAenderungenCalc"
 408             '/// Changes
 409             printlog "  - Changes / Aenderungen"
 410             if TabAenderungenCalc.IsVisible then
 411                 gefunden = TRUE
 412                 Call DialogTest ( TabAenderungenCalc )
 413             end if
 414         case 6 : Kontext "TabRaster"
 415             '/// Grid
 416             printlog "  - Grid / Raster"
 417             if TabRaster.IsVisible then
 418                 gefunden = TRUE
 419                 Call DialogTest ( TabRaster )
 420             end if
 421         case 7 : Kontext "TabPrintCalcOptions"
 422             '/// Print
 423             printlog "  - Print / Drucken"
 424             if TabPrintCalcOptions.IsVisible then
 425                 gefunden = TRUE
 426                 Call DialogTest ( TabPrintCalcOptions )
 427             end if
 428         end select
 429         if gefunden=FALSE then
 430             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 431             EchteAnzahl = EchteAnzahl - 1
 432             if EchteAnzahl < 7 then
 433                 i=11
 434             else
 435                 i=1-1
 436             end if
 437         end if
 438     next i
 439     '/// Close the options dialog
 440     Kontext "OptionenDlg"
 441     OptionenDlg.Cancel
 442     '/// Close the document
 443     if gApplication <> "BACKGROUND" then
 444         Call hCloseDocument
 445     end if
 446 endcase
 447
 448 '-------------------------------------------------------------------------
 449
 450 testcase tToolsOptionsPresentation
 451     dim EchteAnzahl as Integer, i as Integer
 452     dim gefunden as Boolean
 453     dim iTemp as integer
 454
 455     PrintLog "- Tools/Options/Presentation  ( Extras/Optionen/Praesentation )"
 456     if (0 = iSectionNumber) then
 457         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 458         goto endsub
 459     endif
 460     '/// Create a new document
 461     if gApplication <> "BACKGROUND" then
 462         Call hNewDocument
 463     end if
 464     kontext "DocumentImpress"
 465     if DocumentImpress.exists(5) then
 466         printlog "  - An application of type Presentation is available."
 467         '--- workaround #i48383#
 468         DocumentImpress.MouseDown (10,10)
 469         DocumentImpress.MouseUp (10,10)
 470     else
 471         qaErrorLog "  - No application of type Presentation is available"
 472     end if
 473     '/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
 474     ToolsOptions
 475     ToPosInOptionlist ( 4 )
 476     EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
 477     for i=1 to EchteAnzahl
 478         gefunden = FALSE
 479         Kontext "OptionenDlg"
 480         Optionsliste.TypeKeys "<Down>"
 481         select case i
 482         case 1 : Kontext "TabSonstigesDraw"
 483             '/// General
 484             printlog "  - General / Allgemein"
 485             if TabSonstigesDraw.exists then
 486                 if TabSonstigesDraw.IsVisible then
 487                     gefunden = TRUE
 488                     Call DialogTest ( TabSonstigesDraw )
 489                 end if
 490             else
 491                 ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
 492                 Kontext "OptionenDlg"
 493                 OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
 494                 qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
 495                 for iTemp = 1 to Optionsliste.getItemCount
 496                     qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
 497                 next iTemp
 498                 gefunden = TRUE
 499             end if
 500         case 2 : Kontext "TabInhalteDraw"
 501             '/// View
 502             printlog "  - View / Ansicht"
 503             if TabInhalteDraw.IsVisible then
 504                 gefunden = TRUE
 505                 Call DialogTest ( TabInhalteDraw )
 506             end if
 507         case 3 : Kontext "TabRaster"
 508             '/// Grid
 509             printlog "  - Grid / Raster"
 510             if TabRaster.IsVisible then
 511                 gefunden = TRUE
 512                 Call DialogTest ( TabRaster )
 513             end if
 514         case 4 : Kontext "TabDruckenDraw"
 515             '/// Print
 516             printlog "  - Print / Drucken"
 517             if TabDruckenDraw.IsVisible then
 518                 gefunden = TRUE
 519                 Call DialogTest ( TabDruckenDraw )
 520             end if
 521         end select
 522         if gefunden=FALSE then
 523             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 524             EchteAnzahl = EchteAnzahl - 1
 525             if EchteAnzahl < 4 then
 526                 i=11
 527             else
 528                 i=1-1
 529             end if
 530         end if
 531     next i
 532     '/// Close the options dialog
 533     Kontext "OptionenDlg"
 534     OptionenDlg.Cancel
 535     '/// Close the document
 536     if gApplication <> "BACKGROUND" then
 537         Call hCloseDocument
 538     end if
 539 endcase
 540
 541 '-------------------------------------------------------------------------
 542
 543 testcase tToolsOptionsDrawing
 544     Dim EchteAnzahl as Integer, i as Integer
 545     Dim gefunden as Boolean
 546
 547     PrintLog "- Tools/Options/Drawing  ( Extras/Optionen/Zeichnung )"
 548     if (0 = iSectionNumber) then
 549         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 550         goto endsub
 551     end if
 552     '/// Create a new document
 553     if gApplication <> "BACKGROUND" then
 554         Call hNewDocument
 555     end if
 556     Kontext "DocumentDraw"
 557     if DocumentDraw.exists(5) then
 558         printlog "  - An application of type Draw is available."
 559         '--- workaround #i48383#
 560         DocumentDraw.MouseDown (10,10)
 561         DocumentDraw.MouseUp (10,10)
 562     else
 563         qaErrorLog "  - No application of type Draw is available"
 564     end if
 565     '/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
 566     ToolsOptions
 567     ToPosInOptionlist ( 4 )
 568     EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
 569     for i=1 to EchteAnzahl
 570         gefunden = FALSE
 571         Kontext "OptionenDlg"
 572         Optionsliste.TypeKeys "<Down>"
 573         select case i
 574         case 1 : Kontext "TabSonstigesDraw"
 575             '/// General
 576             printlog "  - General / Allgemein"
 577             if TabSonstigesDraw.exists then
 578                 if TabSonstigesDraw.IsVisible then
 579                     gefunden = TRUE
 580                     Call DialogTest ( TabSonstigesDraw )
 581                 end if
 582             else
 583                 ' Trying to get root cause on some systems it seems the backing window is used. #i48383#
 584                 Kontext "OptionenDlg"
 585                 qaErrorLog "#i48383# wrong focus on opening options"
 586                 gefunden = TRUE
 587             end if
 588         case 2 : Kontext "TabInhalteDraw"
 589             '/// View
 590             printlog "  - View / Ansicht"
 591             if TabInhalteDraw.IsVisible then
 592                 gefunden = TRUE
 593                 Call DialogTest ( TabInhalteDraw )
 594             end if
 595         case 3 : Kontext "Active"
 596             if Active.Exists then
 597                 Warnlog "A messagebox exists => BUG  : " + Active.GetText
 598                 try
 599                     Active.No
 600                 catch
 601                     Active.OK
 602                 endcatch
 603             end if
 604             Kontext "TabRaster"
 605             '/// Grid
 606             printlog "  - Grid / Raster"
 607             if TabRaster.IsVisible then
 608                 gefunden = TRUE
 609                 Call DialogTest ( TabRaster )
 610             end if
 611         case 4 : Kontext "TabDruckenDraw"
 612             '/// Print
 613             printlog "  - Print / Drucken"
 614             if TabDruckenDraw.IsVisible then
 615                 gefunden = TRUE
 616                 Call DialogTest ( TabDruckenDraw )
 617             end if
 618         end select
 619         if gefunden=FALSE then
 620             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 621             EchteAnzahl = EchteAnzahl - 1
 622             if EchteAnzahl < 4 then
 623                 i=11
 624             else
 625                 i=1-1
 626             end if
 627         end if
 628     next i
 629     '/// Close the options dialog
 630     Kontext "OptionenDlg"
 631     OptionenDlg.Cancel
 632     '/// Close the document
 633     if gApplication <> "BACKGROUND" then
 634         Call hCloseDocument
 635     end if
 636 endcase
 637
 638 '-------------------------------------------------------------------------
 639
 640 testcase tToolsOptionsFormula
 641     dim EchteAnzahl as Integer, i as Integer
 642
 643     PrintLog "- Tools/Options/Formula  ( Extras/Optionen/Formel )"
 644     if (0 = iSectionNumber) then
 645         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 646         goto endsub
 647     endif
 648     '/// Create a new document
 649     if gApplication <> "BACKGROUND" then
 650         Call hNewDocument
 651     end if
 652     '/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>
 653     ToolsOptions
 654     ToPosInOptionlist ( 4 )
 655     EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
 656     Kontext "OptionenDlg"
 657     '/// Print
 658     Optionsliste.TypeKeys "<Down>"
 659     printlog "  - Print / Drucken"
 660     Kontext "TabDruckenMath"
 661     Call DialogTest ( TabDruckenMath )
 662     '/// Close the options dialog
 663     Kontext "OptionenDlg"
 664     OptionenDlg.Cancel
 665     '/// Close the document
 666     if gApplication <> "BACKGROUND" then
 667         Call hCloseDocument
 668     end if
 669 endcase
 670