testautomation/chart2/required/includes/ch2_format1.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: ch2_format1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Continue Chart resource test - Menu FORMAT
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatXAxisMainGrid
  41 ' #1 tFormatYAxisMainGrid
  42 ' #1 tFormatZAxisMainGrid
  43 ' #1 tFormatXAxisMinorGrid
  44 ' #1 tFormatYAxisMinorGrid
  45 ' #1 tFormatZAxisMinorGrid
  46 ' #1 tFormatAllAxesGrids
  47 ' #1 tFormatLegend
  48 ' #1 tFormatChartWall
  49 ' #1 tFormatChartFloor
  50 ' #1 tFormatChartArea
  51 ' #1 tFormatChartType
  52 ' #1 tFormatDataRanges
  53 ' #1 tFormat3DView
  54 '*
  55 '\************************************************************************
  56
  57 testcase tFormatXAxisMainGrid
  58 '///<u><b>Dialog test after invoking Format::Grid::X Axis Main Grid</b></u>
  59
  60 '///<ul>
  61    '///+<li>Load simple chart document</li>
  62    if fLoadVerySimpleChartAndSaveLocal() > 0 then
  63        warnlog "Loading test document seems to have failed -> Check this out!"
  64        goto endsub
  65    endif
  66    '///+<li>Select chart using navigator</li>
  67    call fSelectFirstOLE
  68    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
  69    EditObjectEdit
  70    sleep(1)
  71    '///+<li>Invoke Format::Chart Type</li>
  72    if fInvokeChartTypeDialog() > 0 then
  73        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
  74        Call hCloseDocument
  75        goto endsub
  76    endif
  77    '///+<li>Change Chart type to STOCK</li>
  78    if fSetChartType( "stock" ) > 0 then
  79        warnlog "Something went wrong setting chart type to STOCK -> Check this out! (Previous log may help you)"
  80        Call hCloseDocument
  81        goto endsub
  82    endif
  83    '///+<li>Close Chart Type dialog</li>
  84    if fCloseChartTypeDialogOK() > 0 then
  85        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
  86        Call hCloseDocument
  87        goto endsub
  88    endif
  89    '///+<li>Invoke Insert::Grids</li>
  90    if fInvokeGridsDialog() > 0 then
  91        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
  92        Call hCloseDocument
  93        goto endsub
  94    endif
  95    Kontext "InsertGridsDialog"
  96    '///+<li>Check Main Grid X Axis</li>
  97    if fSetGrid( MainGridXAxis , TRUE ) > 0 then
  98        warnlog "Something went wrong enabling Main Grid X Axis  -> Check this out! (Previous log may help you)"
  99        Call hCloseDocument
 100        goto endsub
 101    endif
 102    '///+<li>Close Grids dialog</li>
 103    if fCloseGridsDialogOK() > 0 then
 104        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 105        Call hCloseDocument
 106        goto endsub
 107    endif
 108    '///+<li>Invoke Format::Grid::X Axis Main Grid</li>
 109    FormatGridXAxisMainGrid
 110    '///+<li>Check if tab-page Line exists</li>
 111    Kontext "TabFormatChartLine"
 112    call DialogTest ( TabFormatChartLine )
 113    '///+<li>Close dialog</li>
 114    TabFormatChartLine.Cancel
 115    '///+<li>Close document</li>
 116    Kontext "DocumentCalc"
 117    DocumentCalc.TypeKeys "<Escape>"
 118    Call hCloseDocument
 119 '///</ul>
 120
 121 endcase
 122 '-------------------------------------------------------------
 123 testcase tFormatYAxisMainGrid
 124 '///<u><b>Dialog test after invoking Format::Grid::Y Axis Main Grid</b></u>
 125
 126 '///<ul>
 127    '///+<li>Load simple chart document</li>
 128    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 129        warnlog "Loading test document seems to have failed -> Check this out!"
 130        goto endsub
 131    endif
 132    '///+<li>Select chart using navigator</li>
 133    call fSelectFirstOLE
 134    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 135    EditObjectEdit
 136    sleep(1)
 137    '///+<li>Invoke Format::Chart Type</li>
 138    if fInvokeChartTypeDialog() > 0 then
 139        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 140        Call hCloseDocument
 141        goto endsub
 142    endif
 143    '///+<li>Change Chart type to AREA</li>
 144    if fSetChartType( "area" ) > 0 then
 145        warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)"
 146        Call hCloseDocument
 147        goto endsub
 148    endif
 149    '///+<li>Close Chart Type dialog</li>
 150    if fCloseChartTypeDialogOK() > 0 then
 151        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 152        Call hCloseDocument
 153        goto endsub
 154    endif
 155    '///+<li>Invoke Format::Grid::Y Axis Main Grid</li>
 156    FormatGridYAxisMainGrid
 157    '///+<li>Check if tab-page Line exists</li>
 158    Kontext "TabFormatChartLine"
 159    call DialogTest ( TabFormatChartLine )
 160    '///+<li>Close dialog</li>
 161    TabFormatChartLine.Cancel
 162    '///+<li>Close document</li>
 163    Kontext "DocumentCalc"
 164    DocumentCalc.TypeKeys "<Escape>"
 165    Call hCloseDocument
 166 '///</ul>
 167
 168 endcase
 169 '-------------------------------------------------------------
 170 testcase tFormatZAxisMainGrid
 171 '///<u><b>Dialog test after invoking Format::Grid::Z Axis Main Grid</b></u>
 172
 173 '///<ul>
 174    '///+<li>Load simple chart document</li>
 175    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 176        warnlog "Loading test document seems to have failed -> Check this out!"
 177        goto endsub
 178    endif
 179    '///+<li>Select chart using navigator</li>
 180    call fSelectFirstOLE
 181    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 182    EditObjectEdit
 183    sleep(1)
 184    '///+<li>Invoke Format::Chart Type</li>
 185    if fInvokeChartTypeDialog() > 0 then
 186        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 187        Call hCloseDocument
 188        goto endsub
 189    endif
 190    '///+<li>Change Chart type to LINE</li>
 191    if fSetChartType( "line" ) > 0 then
 192        warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)"
 193        Call hCloseDocument
 194        goto endsub
 195    endif
 196    '///+<li>Change Chart type Variant to #4 (3D Variant)</li>
 197    if fSetChartTypeVariant( 4 ) > 0 then
 198        warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)"
 199        Call hCloseDocument
 200        goto endsub
 201    endif
 202    '///+<li>Close Chart Type dialog</li>
 203    if fCloseChartTypeDialogOK() > 0 then
 204        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 205        Call hCloseDocument
 206        goto endsub
 207    endif
 208    '///+<li>Invoke Insert::Grids</li>
 209    if fInvokeGridsDialog() > 0 then
 210        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 211        Call hCloseDocument
 212        goto endsub
 213    endif
 214    Kontext "InsertGridsDialog"
 215    '///+<li>Check Main Grid Z Axis</li>
 216    if fSetGrid( MainGridZAxis , TRUE ) > 0 then
 217        warnlog "Something went wrong enabling Main Grid X Axis  -> Check this out! (Previous log may help you)"
 218        Call hCloseDocument
 219        goto endsub
 220    endif
 221    '///+<li>Close Grids dialog</li>
 222    if fCloseGridsDialogOK() > 0 then
 223        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 224        Call hCloseDocument
 225        goto endsub
 226    endif
 227    '///+<li>Invoke Format::Grid::Z Axis Main Grid</li>
 228    FormatGridZAxisMainGrid
 229    '///+<li>Check if tab-page Line exists</li>
 230    Kontext "TabFormatChartLine"
 231    call DialogTest ( TabFormatChartLine )
 232    '///+<li>Close dialog</li>
 233    TabFormatChartLine.Cancel
 234    '///+<li>Close document</li>
 235    Kontext "DocumentCalc"
 236    DocumentCalc.TypeKeys "<Escape>"
 237    Call hCloseDocument
 238 '///</ul>
 239
 240 endcase
 241 '
 242 '-------------------------------------------------------------------------------
 243 '
 244 testcase tFormatXAxisMinorGrid
 245 '///<u><b>Dialog test after invoking Format::Grid::X Axis Minor Grid</b></u>
 246    '/// Load simple chart document
 247    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 248        warnlog "Loading test document seems to have failed -> Check this out!"
 249        goto endsub
 250    endif
 251    '/// Select chart using navigator
 252    call fSelectFirstOLE
 253    '/// Invoke Edit::Object::Edit to enter Inplace Mode
 254    EditObjectEdit
 255    sleep(1)
 256    '/// Invoke Format::Chart Type
 257    if fInvokeChartTypeDialog() > 0 then
 258        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 259        Call hCloseDocument
 260        goto endsub
 261    endif
 262    '/// Change Chart type to xy chart
 263    if fSetChartType( "xy" ) > 0 then
 264        warnlog "Something went wrong setting chart type to xy chart -> Check this out! (Previous log may help you)"
 265        Call hCloseDocument
 266        goto endsub
 267    endif
 268    '/// Close Chart Type dialog
 269    if fCloseChartTypeDialogOK() > 0 then
 270        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 271        Call hCloseDocument
 272        goto endsub
 273    endif
 274    '/// Invoke Insert::Grids
 275    if fInvokeGridsDialog() > 0 then
 276        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 277        Call hCloseDocument
 278        goto endsub
 279    endif
 280    Kontext "InsertGridsDialog"
 281    '/// Check Minor Grid X Axis
 282    if fSetGrid( MinorGridXAxis , TRUE ) > 0 then
 283        warnlog "Something went wrong enabling Minor Grid Y Axis  -> Check this out! (Previous log may help you)"
 284        Call hCloseDocument
 285        goto endsub
 286    endif
 287    '/// Close Grids dialog
 288    if fCloseGridsDialogOK() > 0 then
 289        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 290        Call hCloseDocument
 291        goto endsub
 292    endif
 293    '/// Invoke Format::Grid::X Axis Minor Grid
 294    FormatGridXAxisMinorGrid
 295    '/// Check if tab-page Line exists
 296    Kontext "TabFormatChartLine"
 297    call DialogTest ( TabFormatChartLine )
 298    '/// Close dialog
 299    TabFormatChartLine.Cancel
 300    '/// Close document
 301    Kontext "DocumentCalc"
 302    DocumentCalc.TypeKeys "<Escape>"
 303    Call hCloseDocument
 304 endcase
 305 '
 306 '-------------------------------------------------------------------------------
 307 '
 308 testcase tFormatYAxisMinorGrid
 309 '///<u><b>Dialog test after invoking Format::Grid::Y Axis Minor Grid</b></u>
 310
 311 '///<ul>
 312    '///+<li>Load simple chart document</li>
 313    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 314        warnlog "Loading test document seems to have failed -> Check this out!"
 315        goto endsub
 316    endif
 317    '///+<li>Select chart using navigator</li>
 318    call fSelectFirstOLE
 319    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 320    EditObjectEdit
 321    sleep(1)
 322    '///+<li>Invoke Format::Chart Type</li>
 323    if fInvokeChartTypeDialog() > 0 then
 324        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 325        Call hCloseDocument
 326        goto endsub
 327    endif
 328    '///+<li>Change Chart type to NET</li>
 329    if fSetChartType( "net" ) > 0 then
 330        warnlog "Something went wrong setting chart type to NET -> Check this out! (Previous log may help you)"
 331        Call hCloseDocument
 332        goto endsub
 333    endif
 334    '///+<li>Close Chart Type dialog</li>
 335    if fCloseChartTypeDialogOK() > 0 then
 336        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 337        Call hCloseDocument
 338        goto endsub
 339    endif
 340    '///+<li>Invoke Insert::Grids</li>
 341    if fInvokeGridsDialog() > 0 then
 342        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 343        Call hCloseDocument
 344        goto endsub
 345    endif
 346    Kontext "InsertGridsDialog"
 347    '///+<li>Check Minor Grid Y Axis</li>
 348    if fSetGrid( MinorGridYAxis , TRUE ) > 0 then
 349        warnlog "Something went wrong enabling Minor Grid Y Axis  -> Check this out! (Previous log may help you)"
 350        Call hCloseDocument
 351        goto endsub
 352    endif
 353    '///+<li>Close Grids dialog</li>
 354    if fCloseGridsDialogOK() > 0 then
 355        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 356        Call hCloseDocument
 357        goto endsub
 358    endif
 359    '///+<li>Invoke Format::Grid::Y Axis Minor Grid</li>
 360    FormatGridYAxisMinorGrid
 361    '///+<li>Check if tab-page Line exists</li>
 362    Kontext "TabFormatChartLine"
 363    call DialogTest ( TabFormatChartLine )
 364    '///+<li>Close dialog</li>
 365    TabFormatChartLine.Cancel
 366    '///+<li>Close document</li>
 367    Kontext "DocumentCalc"
 368    DocumentCalc.TypeKeys "<Escape>"
 369    Call hCloseDocument
 370 '///</ul>
 371
 372 endcase
 373 '
 374 '-------------------------------------------------------------------------------
 375 '
 376 testcase tFormatAllAxesGrids
 377 '///<u><b>Dialog test after invoking Format::Grid::All Grids</b></u>
 378
 379 '///<ul>
 380    '///+<li>Load simple chart document</li>
 381    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 382        warnlog "Loading test document seems to have failed -> Check this out!"
 383        goto endsub
 384    endif
 385    '///+<li>Select chart using navigator</li>
 386    call fSelectFirstOLE
 387    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 388    EditObjectEdit
 389    sleep(1)
 390    '///+<li>Invoke Format::Chart Type</li>
 391    if fInvokeChartTypeDialog() > 0 then
 392        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 393        Call hCloseDocument
 394        goto endsub
 395    endif
 396    '///+<li>Change Chart type to XY</li>
 397    if fSetChartType( "xy" ) > 0 then
 398        warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)"
 399        Call hCloseDocument
 400        goto endsub
 401    endif
 402    '///+<li>Change Chart type Variant to #4 (3D Variant)</li>
 403    if fSetChartTypeVariant( 4 ) > 0 then
 404        warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)"
 405        Call hCloseDocument
 406        goto endsub
 407    endif
 408    '///+<li>Close Chart Type dialog</li>
 409    if fCloseChartTypeDialogOK() > 0 then
 410        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 411        Call hCloseDocument
 412        goto endsub
 413    endif
 414    '///+<li>Invoke Format::Grid::All Grids</li>
 415    FormatGridAllAxisGrids
 416    '///+<li>Check if tab-page Line exists</li>
 417    Kontext "TabFormatChartLine"
 418    call DialogTest ( TabFormatChartLine )
 419    '///+<li>Close dialog</li>
 420    TabFormatChartLine.Cancel
 421    '///+<li>Close document</li>
 422    Kontext "DocumentCalc"
 423    DocumentCalc.TypeKeys "<Escape>"
 424    Call hCloseDocument
 425 '///</ul>
 426
 427 endcase
 428 '-------------------------------------------------------------
 429 testcase tFormatLegend
 430     '///<u><b>Dialog test after invoking Format::Legend</b></u>
 431
 432     '///<ul>
 433     '///+<li>Load simple chart document</li>
 434     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 435         warnlog "Loading test document seems to have failed -> Check this out!"
 436         goto endsub
 437     endif
 438     '///+<li>Select chart using navigator</li>
 439     call fSelectFirstOLE
 440     '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 441     EditObjectEdit
 442     sleep(1)
 443     '///+<li>Invoke Format::Chart Type</li>
 444     if fInvokeChartTypeDialog() > 0 then
 445         warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 446         Call hCloseDocument
 447         goto endsub
 448     endif
 449     '///+<li>Change Chart type to PIE</li>
 450     if fSetChartType( "pie" ) > 0 then
 451         warnlog "Something went wrong setting chart type to PIE -> Check this out! (Previous log may help you)"
 452         Call hCloseDocument
 453         goto endsub
 454     endif
 455     '///+<li>Close Chart Type dialog</li>
 456     if fCloseChartTypeDialogOK() > 0 then
 457         warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 458         Call hCloseDocument
 459         goto endsub
 460     endif
 461     '///+<li>Invoke Format::Legend</li>
 462     FormatLegend
 463     '///+<li>Goto tab-page Borders</li>
 464     Kontext
 465     active.SetPage TabFormatChartBorders
 466     '///+<li>Check if tab-page Borders exists</li>
 467     Kontext "TabFormatChartBorders"
 468     call DialogTest ( TabFormatChartBorders )
 469
 470     '///+<li>Goto tab-page Area</li>
 471     Kontext
 472     active.SetPage TabArea
 473     '///+<li>Check if tab-page Area exists</li>
 474     Kontext "TabArea"
 475     call DialogTest ( TabArea )
 476
 477     '///+<li>Goto tab-page Transparency</li>
 478     Kontext
 479     active.SetPage TabTransparency
 480     '///+<li>Check if tab-page Transparency exists</li>
 481     Kontext "TabTransparency"
 482     call DialogTest ( TabTransparency )
 483
 484     '///+<li>Goto tab-page Characters</li>
 485     Kontext
 486     active.SetPage TabFont
 487     '///+<li>Check if tab-page Characters exists</li>
 488     Kontext "TabFont"
 489     call DialogTest ( TabFont )
 490
 491     '///+<li>Goto tab-page Font Effects</li>
 492     Kontext
 493     active.SetPage TabFontEffects
 494     '///+<li>Check if tab-page Font Effects exists</li>
 495     Kontext "TabFontEffects"
 496     call DialogTest ( TabFontEffects )
 497
 498     '///+<li>Goto tab-page Position</li>
 499     Kontext
 500     active.SetPage TabLegendPosition
 501     '///+<li>Check if tab-page Alignment exists</li>
 502     Kontext "TabLegendPosition"
 503     call DialogTest ( TabLegendPosition )
 504
 505     if gAsianSup = true then
 506         Kontext
 507         Active.SetPage TabAsianTypography
 508         Kontext "TabAsianTypography"
 509         call DialogTest ( TabAsianTypography )
 510         TabAsianTypography.Cancel
 511     else
 512         '///+<li>Close dialog</li>
 513         TabLegendPosition.Cancel
 514     endif
 515     '///+<li>Close document</li>
 516     Kontext "DocumentCalc"
 517     DocumentCalc.TypeKeys "<Escape>"
 518     Call hCloseDocument
 519     '///</ul>
 520
 521 endcase
 522 '-------------------------------------------------------------
 523 testcase tFormatChartWall
 524 '///<u><b>Dialog test after invoking Format::Chart Wall</b></u>
 525
 526 '///<ul>
 527    '///+<li>Load simple chart document</li>
 528    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 529        warnlog "Loading test document seems to have failed -> Check this out!"
 530        goto endsub
 531    endif
 532    '///+<li>Select chart using navigator</li>
 533    call fSelectFirstOLE
 534    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 535    EditObjectEdit
 536    sleep(1)
 537    '///+<li>Invoke Format::Chart Wall</li>
 538    FormatChartWall
 539    '///+<li>Goto tab-page Borders</li>
 540    Kontext
 541    active.SetPage TabFormatChartBorders
 542    '///+<li>Check if tab-page Borders exists</li>
 543    Kontext "TabFormatChartBorders"
 544    call DialogTest ( TabFormatChartBorders )
 545
 546    '///+<li>Goto tab-page Area</li>
 547    Kontext
 548    active.SetPage TabArea
 549    '///+<li>Check if tab-page Area exists</li>
 550    Kontext "TabArea"
 551    call DialogTest ( TabArea )
 552
 553    '///+<li>Goto tab-page Transparency</li>
 554    Kontext
 555    active.SetPage TabTransparency
 556    '///+<li>Check if tab-page Transparency exists</li>
 557    Kontext "TabTransparency"
 558    call DialogTest ( TabTransparency )
 559
 560    '///+<li>Close dialog</li>
 561    TabTransparency.Cancel
 562    '///+<li>Close document</li>
 563    Kontext "DocumentCalc"
 564    DocumentCalc.TypeKeys "<Escape>"
 565    Call hCloseDocument
 566 '///</ul>
 567
 568 endcase
 569 '-------------------------------------------------------------
 570 testcase tFormatChartFloor
 571 '///<u><b>Dialog test after invoking Format::Chart Floor</b></u>
 572
 573 '///<ul>
 574    '///+<li>Load simple chart document</li>
 575    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 576        warnlog "Loading test document seems to have failed -> Check this out!"
 577        goto endsub
 578    endif
 579    '///+<li>Select chart using navigator</li>
 580    call fSelectFirstOLE
 581    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 582    EditObjectEdit
 583    sleep(1)
 584    '///+<li>Convert chart to 3D (this will enable the Chart Floor)</li>
 585    if NOT fConvertChartTo3D() then
 586        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 587        Call hCloseDocument
 588        goto endsub
 589    endif
 590    '///+<li>Invoke Format::Chart Floor</li>
 591    FormatChartFloor
 592    '///+<li>Goto tab-page Area</li>
 593    Kontext
 594    active.SetPage TabArea
 595    '///+<li>Check if tab-page Area exists</li>
 596    Kontext "TabArea"
 597    call DialogTest ( TabArea )
 598
 599    '///+<li>Goto tab-page Transparency</li>
 600    Kontext
 601    active.SetPage TabTransparency
 602    '///+<li>Check if tab-page Transparency exists</li>
 603    Kontext "TabTransparency"
 604    call DialogTest ( TabTransparency )
 605
 606    '///+<li>Goto tab-page Borders</li>
 607    Kontext
 608    active.SetPage TabFormatChartBorders
 609    '///+<li>Check if tab-page Borders exists</li>
 610    Kontext "TabFormatChartBorders"
 611    call DialogTest ( TabFormatChartBorders )
 612
 613    '///+<li>Close dialog</li>
 614    TabFormatChartBorders.Cancel
 615    '///+<li>Close document</li>
 616    Kontext "DocumentCalc"
 617    DocumentCalc.TypeKeys "<Escape>"
 618    Call hCloseDocument
 619 '///</ul>
 620
 621 endcase
 622 '-------------------------------------------------------------
 623 testcase tFormatChartArea
 624 '///<u><b>Dialog test after invoking Format::Chart Area</b></u>
 625
 626 '///<ul>
 627    '///+<li>Load simple chart document</li>
 628    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 629        warnlog "Loading test document seems to have failed -> Check this out!"
 630        goto endsub
 631    endif
 632    '///+<li>Select chart using navigator</li>
 633    call fSelectFirstOLE
 634    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 635    EditObjectEdit
 636    sleep(1)
 637    '///+<li>Invoke Format::Chart Area</li>
 638    FormatChartArea
 639    '///+<li>Goto tab-page Transparency</li>
 640    Kontext
 641    active.SetPage TabTransparency
 642    '///+<li>Check if tab-page Transparency exists</li>
 643    Kontext "TabTransparency"
 644    call DialogTest ( TabTransparency )
 645
 646    '///+<li>Goto tab-page Borders</li>
 647    Kontext
 648    active.SetPage TabFormatChartBorders
 649    '///+<li>Check if tab-page Borders exists</li>
 650    Kontext "TabFormatChartBorders"
 651    call DialogTest ( TabFormatChartBorders )
 652
 653    '///+<li>Goto tab-page Area</li>
 654    Kontext
 655    active.SetPage TabArea
 656    '///+<li>Check if tab-page Area exists</li>
 657    Kontext "TabArea"
 658    call DialogTest ( TabArea )
 659
 660    '///+<li>Close dialog</li>
 661    TabArea.Cancel
 662    '///+<li>Close document</li>
 663    Kontext "DocumentCalc"
 664    DocumentCalc.TypeKeys "<Escape>"
 665    Call hCloseDocument
 666 '///</ul>
 667
 668 endcase
 669 '-------------------------------------------------------------
 670 testcase tFormatChartType
 671 '///<u><b>Dialog test after invoking Format::Chart Type</b></u>
 672
 673 '///<ul>
 674    '///+<li>Load simple chart document</li>
 675    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 676        warnlog "Loading test document seems to have failed -> Check this out!"
 677        goto endsub
 678    endif
 679    '///+<li>Select chart using navigator</li>
 680    call fSelectFirstOLE
 681    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 682    EditObjectEdit
 683    sleep(1)
 684    '///+<li>Invoke Format::Chart Type</li>
 685    FormatChartType
 686    '///+<li>Check if Chart Type dialog exists</li>
 687    Kontext "ChartType"
 688    call DialogTest ( ChartType )
 689    '///+<li>Change Chart type to LINE</li>
 690    if fSetChartType( "line" ) > 0 then
 691        warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)"
 692        Call hCloseDocument
 693        goto endsub
 694    endif
 695    '///+<li>Invoke Smooth Lines Properties</li>
 696    if fInvokeSmoothLineProperties() > 0 then
 697        warnlog "Something went wrong invoking Smooth Lines Properties -> Check this out! (Previous log may help you)"
 698        Call hCloseDocument
 699        goto endsub
 700    endif
 701    '///+<li>Check if the Smooth Line Properties dialog exists</li>
 702    Kontext "SmoothLineProperties"
 703    call DialogTest ( SmoothLineProperties )
 704    '///+<li>Close Smooth Lines Properties</li>
 705    if fCloseSmoothLinePropertiesOK() > 0 then
 706        warnlog "Something went wrong closing Smooth Lines Properties -> Check this out! (Previous log may help you)"
 707        Call hCloseDocument
 708        goto endsub
 709    endif
 710    '///+<li>Close dialog</li>
 711    Kontext "ChartType"
 712    ChartType.Cancel
 713    '///+<li>Close document</li>
 714    Kontext "DocumentCalc"
 715    DocumentCalc.TypeKeys "<Escape>"
 716    Call hCloseDocument
 717 '///</ul>
 718
 719 endcase
 720 '-------------------------------------------------------------
 721 testcase tFormatDataRanges
 722 '///<u><b>Dialog test after invoking Format::Data Ranges</b></u>
 723
 724 '///<ul>
 725    '///+<li>Load simple chart document</li>
 726    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 727        warnlog "Loading test document seems to have failed -> Check this out!"
 728        goto endsub
 729    endif
 730    '///+<li>Select chart using navigator</li>
 731    call fSelectFirstOLE
 732    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 733    EditObjectEdit
 734    sleep(1)
 735    '///+<li>Invoke Format::Data Ranges</li>
 736    FormatDataRanges
 737    '///+<li>Goto tab-page Data Range</li>
 738    Kontext
 739    active.SetPage TabFormatDataRangesDataRange
 740    '///+<li>Check if tab-page Data Range exists</li>
 741    Kontext "TabFormatDataRangesDataRange"
 742    call DialogTest ( TabFormatDataRangesDataRange )
 743    qaErrorLog "Implode dialog using range select button when feature is implemented"
 744
 745    '///+<li>Goto tab-page Data Series</li>
 746    Kontext
 747    active.SetPage TabFormatDataRangesDataSeries
 748    '///+<li>Check if tab-page Data Series exists</li>
 749    Kontext "TabFormatDataRangesDataSeries"
 750    call DialogTest ( TabFormatDataRangesDataSeries )
 751    MoveDown.Click
 752    qaErrorLog "Implode dialog using range select button when feature is implemented"
 753
 754     '///+<li>Close dialog</li>
 755    TabFormatDataRangesDataSeries.Cancel
 756    '///+<li>Close document</li>
 757    Kontext "DocumentCalc"
 758    DocumentCalc.TypeKeys "<Escape>"
 759    Call hCloseDocument
 760 '///</ul>
 761
 762 endcase
 763 '-------------------------------------------------------------
 764 testcase tFormat3DView
 765 '///<u><b>Dialog test after invoking Format::3D View</b></u>
 766
 767 '///<ul>
 768    '///+<li>Load simple chart document</li>
 769    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 770        warnlog "Loading test document seems to have failed -> Check this out!"
 771        goto endsub
 772    endif
 773    '///+<li>Select chart using navigator</li>
 774    call fSelectFirstOLE
 775    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 776    EditObjectEdit
 777    sleep(1)
 778    '///+<li>Convert chart to 3D</li>
 779    if NOT fConvertChartTo3D() then
 780        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 781        Call hCloseDocument
 782        goto endsub
 783    endif
 784    '///+<li>Invoke Format::3D View</li>
 785    Format3DView
 786    '///+<li>Goto tab-page Perspective</li>
 787    Kontext
 788    active.SetPage TabFormat3DViewGeometry
 789    '///+<li>Check if tab-page Perspective exists</li>
 790    Kontext "TabFormat3DViewGeometry"
 791    call DialogTest ( TabFormat3DViewGeometry )
 792
 793    '///+<li>Goto tab-page Appearance</li>
 794    Kontext
 795    active.SetPage TabFormat3DViewAppearance
 796    '///+<li>Check if tab-page Appearance exists</li>
 797    Kontext "TabFormat3DViewAppearance"
 798    call DialogTest ( TabFormat3DViewAppearance )
 799
 800    '///+<li>Goto tab-page Illumination</li>
 801    Kontext
 802    active.SetPage TabFormat3DViewIllumination
 803    '///+<li>Check if tab-page Illumination exists</li>
 804    Kontext "TabFormat3DViewIllumination"
 805    call DialogTest ( TabFormat3DViewIllumination )
 806    '///+<li>Click Color select button</li>
 807    ColorSelect.Click
 808    '///+<li>Check if Color dialog exists</li>
 809    Kontext "FarbeDLG"
 810    call DialogTest ( FarbeDLG )
 811    '///+<li>Close dialog</li>
 812    FarbeDLG.Cancel
 813    Kontext "TabFormat3DViewIllumination"
 814
 815    '///+<li>Click Ambient Light select button</li>
 816    AmbientLightSelect.Click
 817    '///+<li>Check if Color dialog exists</li>
 818    Kontext "FarbeDLG"
 819    call DialogTest ( FarbeDLG )
 820    '///+<li>Close dialog</li>
 821    FarbeDLG.Cancel
 822
 823    '///+<li>Close dialog</li>
 824    Kontext "TabFormat3DViewIllumination"
 825    TabFormat3DViewIllumination.Cancel
 826    '///+<li>Close document</li>
 827    Kontext "DocumentCalc"
 828    DocumentCalc.TypeKeys "<Escape>"
 829    Call hCloseDocument
 830 '///</ul>
 831
 832 endcase
 833 '-------------------------------------------------------------
 834 '
 835