testautomation/framework/optional/includes/options_so_5.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: options_so_5.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : general option test
  37 '*
  38 '\******************************************************************************
  39
  40
  41 testcase func_StarOfficeView_3
  42
  43    Dim bSave as Boolean
  44    Dim iSave as Integer
  45    Dim xPos, yPos as Integer
  46
  47    '///StarOffice / View => 'Buttons' ( flat/3D-buttons, large/normal )
  48    printlog " - view"
  49    printlog "   - buttons"
  50
  51    '///+open a new writer doc
  52    hNewDocument
  53
  54    '///+save the sizes of the writer doc
  55    Kontext "DocumentWriter"
  56    xPos = DocumentWriter.getSizeX
  57    yPos = DocumentWriter.getSizeY
  58
  59    '///+open tools/options/staroffice/view
  60    ToolsOptions
  61    hToolsOptions ( "StarOffice", "View" )
  62
  63    '///+save the default settings for 'large buttons' and 'flat buttons'
  64    iSave = IconScale.getSelIndex()
  65
  66    '///+select 'large buttons'
  67    printlog "     - set buttonsize to 'large'"
  68    IconScale.Select( 3 )
  69
  70    '///+click OK for the options dialog
  71    Kontext "ExtrasOptionenDlg"
  72    ExtrasOptionenDlg.OK
  73    Sleep (2)
  74
  75    '///+check if the buttons in the toolbars are bigger ( testtool : comparison between the sizes before and after the changes )
  76    Kontext "DocumentWriter"
  77    if DocumentWriter.getSizeX = xPos AND DocumentWriter.getSizeY = yPos then
  78       warnlog "Perhaps the buttons are not large!"
  79       endif
  80
  81    '///+open tools/options/staroffice/view
  82    ToolsOptions
  83    hToolsOptions ( "StarOffice", "View" )
  84
  85    '///+select buttonsize 'small'
  86    printlog "     - set buttonsize to 'small'"
  87    IconScale.Select( 2 )
  88
  89    '///+click OK for the options dialog
  90    Kontext "ExtrasOptionenDlg"
  91    ExtrasOptionenDlg.OK
  92    Sleep (2)
  93
  94    '///+check if the buttons in the toolbars are normal ( testtool : comparison between the saved sizes before the changes )
  95    Kontext "DocumentWriter"
  96    if DocumentWriter.getSizeX <> xPos OR DocumentWriter.getSizeY <> yPos then
  97       warnlog "Perhaps the buttons are not small!"
  98       endif
  99
 100    '///+open tools/options/staroffice/view
 101    ToolsOptions
 102    hToolsOptions ( "StarOffice", "View" )
 103
 104    '///+set 'Icon Size' back to the default
 105    printlog "     - large buttons => default"
 106    if iSave <> 1 then
 107       IconScale.Select( iSave )
 108       endif
 109
 110    '///+click OK for the options dialog
 111    Kontext "ExtrasOptionenDlg"
 112    ExtrasOptionenDlg.OK
 113    Sleep (2)
 114
 115    '///+close the writer doc
 116    hCloseDocument
 117 endcase
 118
 119 '*******************************************************************************
 120
 121 testcase func_StarOfficeView_4
 122   Dim bSave ( 10 ) as Boolean
 123   Dim i as Integer, iCount as Integer
 124
 125 '///StarOffice / View => 'Options'
 126  printlog " - view"
 127  printlog "   - options"
 128
 129 '///open a new writer doc
 130    hNewDocument
 131
 132 '///+open tools / options / StarOffice / View
 133 '///+save settings for all 'options'
 134    ToolsOptions
 135    hToolsOptions ( "StarOffice", "View" )
 136    bSave(4) = VorschauInSchriftlisten.IsChecked
 137    bSave(6) = SchriftenHistorie.IsChecked
 138
 139 '///<b>inactive menu items</b>
 140  printlog "     - inactive menu items : => check"
 141 '///+click OK for the options dialog
 142    Kontext "ExtrasOptionenDlg"
 143    ExtrasOptionenDlg.OK
 144    Sleep (2)
 145
 146 '///+open the context menu on a writer doc and save the number of menu items
 147    Kontext "DocumentWriter"
 148    DocumentWriter.OpenContextMenu
 149    iCount = hMenuItemGetCount
 150    Sleep (2)
 151    hMenuClose
 152
 153 '///+open tools / options / StarOffice / View
 154    ToolsOptions
 155    hToolsOptions ( "StarOffice", "View" )
 156  printlog "     - inactive menu items : => uncheck"
 157 '///+click OK for the options dialog
 158    Kontext "ExtrasOptionenDlg"
 159    ExtrasOptionenDlg.OK
 160    Sleep (2)
 161
 162 '///+open the context menu on a writer doc and compare the number of menu items with the numbers before
 163 '///+ the behaviour changed: the checkbox in the options does not affect the context menu! ///'
 164    Kontext "DocumentWriter"
 165    DocumentWriter.OpenContextMenu
 166    if hMenuItemGetCount <> iCount then
 167       Warnlog "The number of entries at the context menu on a writer doc is NOT the same at 'show inactive' is checked or not => BUG!"
 168    end if
 169    Sleep (2)
 170    hMenuClose
 171
 172 '///<b>single line tab headings</b>
 173 '///+open tools / options / StarOffice / View
 174    ToolsOptions
 175    hToolsOptions ( "StarOffice", "View" )
 176  printlog "     - preview in fontlist : => Uncheck"
 177 '///check 'preview in fontlist'
 178    VorschauInSchriftlisten.Check
 179 '///+click OK for the options dialog
 180    Kontext "ExtrasOptionenDlg"
 181    ExtrasOptionenDlg.OK
 182    Sleep (2)
 183
 184 '///+select all Fonts in the fontlist in object bar => testtool cannot check if the preview is shown
 185    Kontext "textobjectbar"
 186    if textobjectbar.exists then
 187    for i=1 to Schriftart.GetItemCount
 188       Schriftart.Select i
 189    next i
 190    else
 191    warnlog "No Textobjectbar?"
 192    endif
 193
 194 '///+open tools / options / StarOffice / View
 195    ToolsOptions
 196    hToolsOptions ( "StarOffice", "View" )
 197  printlog "     - preview in fontlist : => check"
 198 '///uncheck 'preview in fontlist'
 199    VorschauInSchriftlisten.UnCheck
 200 '///+click OK for the options dialog
 201    Kontext "ExtrasOptionenDlg"
 202    ExtrasOptionenDlg.OK
 203    Sleep (2)
 204
 205 '///+select all Fonts in the fontlist in object bar => testtool cannot check if the preview is not shown
 206    Kontext "textobjectbar"
 207    for i=1 to Schriftart.GetItemCount
 208       Schriftart.Select i
 209    next i
 210
 211 '///<b>font history</b>
 212 '///+open tools / options / StarOffice / View
 213    ToolsOptions
 214    hToolsOptions ( "StarOffice", "View" )
 215    if bSave(4) = TRUE then VorschauInSchriftlisten.Check else VorschauInSchriftlisten.UnCheck
 216 '///reset 'preview in fontlist' to default
 217  printlog "     - font history : => Uncheck"
 218 '///check 'font history'
 219    SchriftenHistorie.Check
 220 '///+click OK for the options dialog
 221    Kontext "ExtrasOptionenDlg"
 222    ExtrasOptionenDlg.OK
 223    Sleep (2)
 224
 225 '///+select all Fonts in the fontlist in object bar => testtool cannot check if font history is not shown
 226    Kontext "textobjectbar"
 227    for i=1 to Schriftart.GetItemCount
 228       Schriftart.Select i
 229    next i
 230
 231 '///+open tools / options / StarOffice / View
 232    ToolsOptions
 233    hToolsOptions ( "StarOffice", "View" )
 234  printlog "     - font history : => check"
 235 '///uncheck 'font history'
 236    SchriftenHistorie.UnCheck
 237 '///+click OK for the options dialog
 238    Kontext "ExtrasOptionenDlg"
 239    ExtrasOptionenDlg.OK
 240    Sleep (2)
 241
 242 '///+select all Fonts in the fontlist in object bar => testtool cannot check if font history is not shown
 243    Kontext "textobjectbar"
 244    for i=1 to Schriftart.GetItemCount
 245       Schriftart.Select i
 246    next i
 247
 248 '///+open tools / options / StarOffice / View
 249    ToolsOptions
 250    hToolsOptions ( "StarOffice", "View" )
 251 '///reset 'font history' to default
 252    if bSave(6) = TRUE then SchriftenHistorie.Check else SchriftenHistorie.UnCheck
 253 '///+click OK for the options dialog
 254    Kontext "ExtrasOptionenDlg"
 255    ExtrasOptionenDlg.OK
 256    Sleep (2)
 257
 258 '///close the writer document
 259    hCloseDocument
 260
 261 endcase
 262
 263 '*******************************************************************************
 264
 265 testcase func_StarOfficeView_5
 266
 267    '///StarOffice / View => '3D'
 268    Dim bSave ( 5 ) as Boolean
 269    Dim i as Integer
 270
 271    printlog " - view"
 272    printlog "   - 3D-view"
 273
 274    '///<b>disable OpenGL</b>
 275    '///+open tools / options / StarOffice / View
 276    '///+save all settings for OpenGL
 277    printlog "     - use OpenGL => Uncheck"
 278    ToolsOptions
 279    hToolsOptions ( "StarOffice", "View" )
 280    bSave (1) = OpenGL.IsChecked
 281    bSave (2) = OptimierteAusgabe.IsChecked
 282
 283    '///+uncheck OpenGL
 284    OpenGL.Uncheck
 285    '///+click OK for the options dialog
 286    Kontext "ExtrasOptionenDlg"
 287    ExtrasOptionenDlg.OK
 288    Sleep (2)
 289
 290    '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 291    Call Make3D
 292
 293    printlog "     - use OpenGL => Check   + optimized output => UnCheck"
 294    '///<b>enable OpenGL and disable optimized output</b>
 295    '///+open tools / options / StarOffice / View
 296    ToolsOptions
 297    hToolsOptions ( "StarOffice", "View" )
 298    '///+check 'OpenGL' and uncheck 'optimized output'
 299    OpenGL.Check
 300    OptimierteAusgabe.Uncheck
 301    '///+click OK for the options dialog
 302    Kontext "ExtrasOptionenDlg"
 303    ExtrasOptionenDlg.OK
 304    Sleep (2)
 305
 306    '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 307    Call Make3D
 308
 309    printlog "     - use OpenGL => Check   + optimized output => Check"
 310    '///<b>enable OpenGL and enable optimized output</b>
 311    '///+open tools / options / StarOffice / View
 312    ToolsOptions
 313    hToolsOptions ( "StarOffice", "View" )
 314    '///+check 'OpenGL' and check 'optimized output'
 315    OpenGL.Check
 316    OptimierteAusgabe.Check
 317    '///+click OK for the options dialog
 318    Kontext "ExtrasOptionenDlg"
 319    ExtrasOptionenDlg.OK
 320    Sleep (2)
 321
 322 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 323    Call Make3D
 324
 325  printlog "     - use dithering => uncheck"
 326 '///<b>disable 'use dithering'</b>
 327 '///+open tools / options / StarOffice / View
 328    ToolsOptions
 329    hToolsOptions ( "StarOffice", "View" )
 330 '///+set 'OpenGL' and 'optimized output' to default and uncheck 'dithering'
 331    if bSave(2) = TRUE then OptimierteAusgabe.Check else OptimierteAusgabe.Check
 332    if bSave(1) = TRUE then OpenGL.Check else OpenGL.UnCheck
 333    bSave (3) = Dithering.IsChecked
 334    Dithering.Uncheck
 335 '///+click OK for the options dialog
 336    Kontext "ExtrasOptionenDlg"
 337    ExtrasOptionenDlg.OK
 338    Sleep (2)
 339
 340 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 341    Call Make3D
 342
 343 '///<b>enable 'use dithering'</b>
 344  printlog "     - use dithering => Check"
 345 '///+open tools / options / StarOffice / View
 346    ToolsOptions
 347    hToolsOptions ( "StarOffice", "View" )
 348 '///+check 'dithering'
 349    Dithering.Check
 350 '///+click OK for the options dialog
 351    Kontext "ExtrasOptionenDlg"
 352    ExtrasOptionenDlg.OK
 353    Sleep (2)
 354
 355 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 356    Call Make3D
 357
 358  printlog "     - use OpenGL => UnCheck  + Dithering => UnCheck!"
 359 '///<b>disable 'OpenGL' and 'use dithering'</b>
 360 '///+open tools / options / StarOffice / View
 361    ToolsOptions
 362    hToolsOptions ( "StarOffice", "View" )
 363 '///+uncheck 'OpenGL' and 'dithering'
 364    OpenGL.Uncheck
 365    Dithering.UnCheck
 366 '///+click OK for the options dialog
 367    Kontext "ExtrasOptionenDlg"
 368    ExtrasOptionenDlg.OK
 369    Sleep (2)
 370
 371 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 372    Call Make3D
 373
 374  printlog "     - Object refresh after interaction => check!"
 375 '///<b>enable 'Object refresh after interaction'</b>
 376 '///+open tools / options / StarOffice / View
 377    ToolsOptions
 378    hToolsOptions ( "StarOffice", "View" )
 379 '///+set 'OpenGL' and 'Dithering' to default
 380    if bSave(1) = TRUE then OpenGL.check else OpenGL.UnCheck
 381    if bSave(3) = TRUE then Dithering.Check else Dithering.UnCheck
 382    bSave (4) = Volldarstellung.IsChecked
 383 '///+check 'Object refresh after interaction'
 384    Volldarstellung.Check
 385 '///+click OK for the options dialog
 386    Kontext "ExtrasOptionenDlg"
 387    ExtrasOptionenDlg.OK
 388    Sleep (2)
 389
 390 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 391    Call Make3D
 392
 393  printlog "     - use OpenGL => UnCheck  + Object refresh after interaction => check!"
 394 '///<b>disable OpenGL and enable 'Object refresh after interaction'</b>
 395 '///+open tools / options / StarOffice / View
 396    ToolsOptions
 397    hToolsOptions ( "StarOffice", "View" )
 398 '///+uncheck 'OpenGL' and check 'Object refresh after interaction'
 399    OpenGL.Uncheck
 400    Volldarstellung.Check
 401 '///+click OK for the options dialog
 402    Kontext "ExtrasOptionenDlg"
 403    ExtrasOptionenDlg.OK
 404    Sleep (2)
 405
 406 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 407    Call Make3D
 408
 409  printlog "     - Object refresh after interaction => UnCheck!"
 410 '///<b>disable 'Object refresh after interaction'</b>
 411 '///+open tools / options / StarOffice / View
 412    ToolsOptions
 413    hToolsOptions ( "StarOffice", "View" )
 414    if bSave(1) = TRUE then OpenGL.check else OpenGL.UnCheck
 415 '///+set 'OpenGL' to default and uncheck 'Object refresh after interaction'
 416    Volldarstellung.UnCheck
 417 '///+click OK for the options dialog
 418    Kontext "ExtrasOptionenDlg"
 419    ExtrasOptionenDlg.OK
 420    Sleep (2)
 421
 422 '///+open a impress-doc, create cube and close the document => testtool can only test if this feature does not crash
 423    Call Make3D
 424
 425  printlog "     - reset to default"
 426 '///<b>reset all 3D-Options to default</b>
 427 '///+open tools / options / StarOffice / View
 428    ToolsOptions
 429    hToolsOptions ( "StarOffice", "View" )
 430 '///+set all settings back to default
 431    if bSave(4) = TRUE then Volldarstellung.check else Volldarstellung.UnCheck
 432 '///+click OK for the options dialog
 433    Kontext "ExtrasOptionenDlg"
 434    ExtrasOptionenDlg.OK
 435    Sleep (2)
 436
 437    gApplication = "WRITER"
 438 endcase
 439
 440 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 441 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 442 testcase func_StarOfficeView_6
 443 '///StarOffice / View => Anti Aliasing - only on UNIX
 444   Dim bSave as Boolean
 445   Dim sSave as String
 446   Dim i as Integer
 447
 448   if gPlatgroup <> "unx" then
 449      printlog "No test for 'anti aliasing' fonts on windows platforms!"
 450      goto endsub
 451   end if
 452
 453 '///open a new writer-document
 454  printlog "open a new writer-document"
 455    gApplication = "WRITER"
 456    hNewDocument
 457
 458  printlog " - view"
 459  printlog "   - anti aliasing"
 460
 461 '///+open tools / options / StarOffice / view
 462    ToolsOptions
 463    hToolsOptions ( "StarOffice", "View" )
 464
 465 '///+save the raw data for 'Font anti aliasing'
 466    bSave = FontAntiAliasing.IsChecked
 467    FontAntiAliasing.Check
 468    sSave = AAPixel.GetText
 469
 470 '///+activate 'font anti aliasing' and change pixelsize to 5
 471  printlog " change pixelsize to 5"
 472    AAPixel.SetText "5"
 473
 474 '///+close options dialog with OK
 475    Kontext "ExtrasOptionenDlg"
 476    ExtrasOptionenDlg.OK
 477
 478 '///+open all menus for the writer doc
 479    for i=1 to 8
 480       Kontext "DocumentWriter"
 481       DocumentWriter.UseMenu
 482       hMenuSelectNr i
 483       Sleep (2)
 484       hMenuClose
 485    next i
 486
 487 '///open tools / options / StarOffice / view
 488  printlog " change pixelsize to 15"
 489    ToolsOptions
 490    hToolsOptions ( "StarOffice", "View" )
 491 '///+activate 'font anti aliasing' and change pixelsize to 15
 492    AAPixel.SetText "15"
 493
 494 '///+close options dialog with OK
 495    Kontext "ExtrasOptionenDlg"
 496    ExtrasOptionenDlg.OK
 497
 498 '///+open all menus for the writer doc
 499    for i=1 to 8
 500       Kontext "DocumentWriter"
 501       DocumentWriter.UseMenu
 502       hMenuSelectNr i
 503       Sleep (2)
 504       hMenuClose
 505    next i
 506
 507 '///open tools / options / StarOffice / view
 508  printlog " change pixelsize to 25"
 509    ToolsOptions
 510    hToolsOptions ( "StarOffice", "View" )
 511 '///+activate 'font anti aliasing' and change pixelsize to 25
 512    AAPixel.SetText "25"
 513
 514 '///+close options dialog with OK
 515    Kontext "ExtrasOptionenDlg"
 516    ExtrasOptionenDlg.OK
 517
 518 '///+open all menus for the writer doc
 519    for i=1 to 8
 520       Kontext "DocumentWriter"
 521       DocumentWriter.UseMenu
 522       hMenuSelectNr i
 523       Sleep (2)
 524       hMenuClose
 525    next i
 526
 527 '///open tools / options / StarOffice / view
 528  printlog " reset all changes to raw data"
 529    ToolsOptions
 530    hToolsOptions ( "StarOffice", "View" )
 531 '///+reset all changes
 532    AAPixel.SetText sSave
 533    if bSave = TRUE then FontAntiAliasing.Check else FontAntiAliasing.UnCheck
 534
 535 '///+close options dialog with OK
 536    Kontext "ExtrasOptionenDlg"
 537    ExtrasOptionenDlg.OK
 538
 539 '///+close the writer doc
 540    hCloseDocument
 541
 542 endcase
 543
 544 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 545 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 546 testcase func_StarOfficePrint_1
 547   Dim bSave as Boolean, bSave2 as Boolean
 548   Dim i as Integer
 549
 550    gApplication = "DRAW"
 551
 552 '///StarOffice / Print => Printer Warnings
 553  printlog "   - printer warnings"
 554
 555 '///<b>check 'printer size'</b>
 556  printlog "     - Paper size => active"
 557
 558 '///+open tools / options / StarOffice / print
 559    ToolsOptions
 560    hToolsOptions ( "StarOffice", "Print" )
 561
 562 '///+save settings for 'paper size'
 563    bSave = PaperSize.IsChecked
 564 '///+check 'paper size'
 565    PaperSize.Check
 566
 567 '///+click OK for the options dialog
 568    Kontext "ExtrasOptionenDlg"
 569    ExtrasOptionenDlg.OK
 570    Sleep (2)
 571
 572 '///+open a new drawing document
 573    hNewDocument
 574 '///+open format / page
 575    FormatSlideDraw
 576 '///+select the page tabpage and select the first entry out of the Format list ( A0 )
 577    Kontext
 578    Active.Setpage TabSeite
 579    Kontext "TabSeite"
 580    Papierformat.Select 1            ' select the format A0
 581 '///+click OK
 582    TabSeite.OK
 583
 584 '///+file / print
 585    FilePrint
 586    Kontext "DruckenDlg"
 587 '///+click OK in the print-dialog
 588    if DruckenDlg.Exists then
 589       DruckenDlg.OK
 590       Sleep 5
 591 '///+wait a little bit => then you have to get a warning about the size of your document
 592       Kontext "WarningPrintOptions"
 593       if WarningPrintOptions.Exists(3) then
 594          WarningPrintOptions.Cancel
 595       else
 596          Warnlog "The warning-message for papersize does not turn up!"
 597       end if
 598    else
 599       Kontext "Active"
 600       if Active.Exists then Warnlog Active.GetText
 601       Active.OK
 602    end if
 603 '///+click cancel => the document shouldn't be printed
 604
 605 '///close the document
 606    hCloseDocument
 607
 608 '///<b>uncheck 'printer size'</b>
 609  printlog "     - Paper size => disabled"
 610 '///+open tools / options / StarOffice / print
 611    ToolsOptions
 612    hToolsOptions ( "StarOffice", "Print" )
 613
 614 '///+uncheck 'paper size'
 615    PaperSize.uncheck
 616
 617 '///+click OK for the options dialog
 618    Kontext "ExtrasOptionenDlg"
 619    ExtrasOptionenDlg.OK
 620    Sleep (2)
 621
 622 '///+open a new drawing document
 623    hNewDocument
 624 '///+open format / page
 625    FormatSlideDraw
 626 '///+select the page tabpage and select the first entry out of the Format list ( A0 )
 627    Kontext
 628    Active.Setpage TabSeite
 629    Kontext "TabSeite"
 630    Papierformat.Select 1            ' select the format A0
 631 '///+click OK
 632    TabSeite.OK
 633
 634 '///+file / print
 635    FilePrint
 636    Kontext "DruckenDlg"
 637 '///+click OK in the print-dialog
 638    if DruckenDlg.Exists then
 639       DruckenDlg.OK
 640       Sleep 5
 641 '///+wait a little bit => the document should be printed without a warning
 642       Kontext "WarningPrintOptions"
 643       if WarningPrintOptions.Exists(3) then
 644          WarningPrintOptions.Cancel
 645          Printlog "The warning-message for papersize does exist => not realy a BUG"
 646       end if
 647    else
 648       Kontext "Active"
 649       if Active.Exists then Warnlog Active.GetText
 650       Active.OK
 651    end if
 652
 653 '///close the document
 654    hCloseDocument
 655
 656 '///<b>check 'transparency'</b>
 657  printlog "     - Transparency => active"
 658 '///+open tools / options / StarOffice / print
 659    ToolsOptions
 660    hToolsOptions ( "StarOffice", "Print" )
 661
 662 '///+save settings for 'trancparency'
 663    bSave2 = Transparency.IsChecked
 664 '///+uncheck 'paper size'
 665    PaperSize.Uncheck
 666 '///+check 'tranceparency'
 667    Transparency.Check
 668
 669 '///+click OK for the options dialog
 670    Kontext "ExtrasOptionenDlg"
 671    ExtrasOptionenDlg.OK
 672    Sleep (2)
 673
 674 '///+open a new drawing document
 675    hNewDocument
 676 '///+create a rectangle
 677    hRechteckErstellen ( 30, 30, 60, 60 )
 678
 679 '///+format/area => transparency => check transparency
 680    FormatArea
 681    Kontext
 682    Active.Setpage TabTransparenz
 683    Kontext "TabTransparenz"
 684    LineareTransparenz.Check
 685 '///+click OK
 686    TabTransparenz.OK
 687
 688 '///+file / print
 689    FilePrint
 690    Kontext "DruckenDlg"
 691 '///+click OK in the print-dialog
 692    if DruckenDlg.Exists then
 693       DruckenDlg.OK
 694       Sleep 5
 695 '///+wait a little bit => then you have to get a warning about the printing trancparency
 696       Kontext "WarningPrintOptions"
 697       if WarningPrintOptions.Exists(3) then
 698          WarningPrintOptions.Cancel
 699       else
 700          Warnlog "The warning-message for papersize does not turn up!"
 701       end if
 702    else
 703       Kontext "Active"
 704       if Active.Exists then Warnlog Active.GetText
 705       Active.OK
 706    end if
 707 '///+click cancel => the document shouldn't be printed
 708
 709 '///close the document
 710    hCloseDocument
 711
 712 '///<b>uncheck 'transparency'</b>
 713  printlog "     - Transparency => disabled"
 714 '///+open tools / options / StarOffice / print
 715    ToolsOptions
 716    hToolsOptions ( "StarOffice", "Print" )
 717
 718 '///+uncheck 'tranceparency'
 719    Transparency.Uncheck
 720
 721 '///+click OK for the options dialog
 722    Kontext "ExtrasOptionenDlg"
 723    ExtrasOptionenDlg.OK
 724    Sleep (2)
 725
 726 '///+open a new drawing document
 727    hNewDocument
 728 '///+create a rectangle
 729    hRechteckErstellen ( 30, 30, 60, 60 )
 730
 731 '///+format/area => transparency => check transparency
 732    FormatArea
 733    Kontext
 734    Active.Setpage TabTransparenz
 735    Kontext "TabTransparenz"
 736    LineareTransparenz.Check
 737 '///+click OK
 738    TabTransparenz.OK
 739
 740 '///+file / print
 741    FilePrint
 742    Kontext "DruckenDlg"
 743 '///+click OK in the print-dialog
 744    if DruckenDlg.Exists then
 745       DruckenDlg.OK
 746       Sleep 5
 747 '///+wait a little bit => then you have to get a warning about the printing trancparency
 748       Kontext "WarningPrintTransparency"
 749       if WarningPrintTransparency.Exists(3) then
 750          WarningPrintTransparency.Cancel
 751          Warnlog "The warning-message for papersize does exist => BUG!"
 752       end if
 753    else
 754       Kontext "Active"
 755       if Active.Exists then Warnlog Active.GetText
 756       Active.OK
 757    end if
 758 '///+click cancel => the document shouldn't be printed
 759
 760 '///close the document => perhaps it take some time, before you can close the document
 761    for i=1 to 100
 762       FileClose
 763       Sleep 2
 764       Kontext "Active"
 765       if Active.Exists then
 766          try
 767             Active.OK
 768             Sleep ( 5 )
 769          catch
 770             Active.No
 771             i=101
 772          endcatch
 773       end if
 774    next i
 775
 776 '///reset the printing options
 777  printlog "     - reset the printing options"
 778
 779 '///+open tools / options / StarOffice / print
 780    ToolsOptions
 781    hToolsOptions ( "StarOffice", "Print" )
 782 '///+reset 'paper size' and 'trancparency' to default
 783    if bSave  = TRUE then PaperSize.Check else PaperSize.Uncheck
 784    if bSave2 = TRUE then Transparency.Check  else Transparency.Uncheck
 785
 786 '///+click OK for the options dialog
 787    Kontext "ExtrasOptionenDlg"
 788    ExtrasOptionenDlg.OK
 789    Sleep (2)
 790
 791 endcase
 792