testautomation/spreadsheet/required/includes/c_upd_viewmenu.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 - View Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tViewPageBreakPreview
  35 ' #1 tViewToolbars
  36 ' #1 tViewFormularbar
  37 ' #1 tViewStatusbar
  38 ' #1 tViewInputMethodStatus
  39 ' #1 tViewColumnRowHeaders
  40 ' #1 tViewValueHighlighting
  41 ' #1 tViewDataSources
  42 ' #1 tViewNavigator
  43 ' #1 tViewFullScreen
  44 ' #1 tViewZoom
  45 '*
  46 '\***********************************************************************
  47
  48 sub c_upd_viewmenu
  49
  50     Printlog Chr(13) + "--------- View Menu (c_upd_viewmenu.inc) ---------"
  51
  52     call tViewPageBreakPreview
  53     call tViewToolbars
  54     call tViewFormularbar
  55     call tViewStatusbar
  56     call tViewInputMethodStatus
  57     call tViewColumnRowHeaders
  58     call tViewValueHighlighting
  59     call tViewDataSources
  60     call tViewNavigator
  61     call tViewFullScreen
  62     call tViewZoom
  63
  64 end sub
  65
  66 '-----------------------------------------------------------
  67
  68 testcase tViewPageBreakPreview
  69 '///<u><b>View - Normal / Page Break Preview</b></u>
  70
  71     '/// Opening new spreadsheet document for getting defined starting environment
  72     printlog " Opening new spreadsheet document for getting defined starting environment"
  73     call hNewDocument
  74     '/// Activate Page Break Preview by 'View – Page Break Preview'
  75     printlog " Activate Page Break Preview by 'View – Page Break Preview'"
  76     ViewPageBreakPreview
  77     '/// Switch back to normal view by 'View – Normal'
  78     printlog " Switch back to normal view by 'View – Normal'"
  79     ViewNormalView
  80     '/// Close starting document
  81     printlog " Close starting document"
  82     call hCloseDocument
  83
  84 endcase
  85
  86 '-----------------------------------------------------------
  87
  88 testcase tViewToolbars
  89 '///<u><b>View - Toolbars</b></u>
  90
  91     '/// Opening new spreadsheet document for getting defined starting environment
  92     printlog " Opening new spreadsheet document for getting defined starting environment"
  93     call hNewDocument
  94     '/// Switch on/off toolbar '3D-Settings' by 'View - Toolbars'
  95     printlog " Switch on/off toolbar '3D-Settings' by 'View - Toolbars'"
  96     ViewToolbarsThreeDSettings
  97     ViewToolbarsThreeDSettings
  98     '/// Switch on/off toolbar 'Align' by 'View - Toolbars'
  99     printlog " Switch on/off toolbar 'Align' by 'View - Toolbars'"
 100     ViewToolbarsAlign
 101     ViewToolbarsAlign
 102     '/// Switch on/off toolbar 'Drawing' by 'View - Toolbars'
 103     printlog " Switch on/off toolbar 'Drawing' by 'View - Toolbars'"
 104     ViewToolbarsDrawing
 105     ViewToolbarsDrawing
 106     '/// Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'
 107     printlog " Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'"
 108     ViewToolbarsDrawObjectbar
 109     ViewToolbarsDrawObjectbar
 110     '/// Switch on/off toolbar 'Fontwork' by 'View - Toolbars'
 111     printlog " Switch on/off toolbar 'Fontwork' by 'View - Toolbars'"
 112     ViewToolbarsFontwork
 113     ViewToolbarsFontwork
 114     '/// Switch on/off toolbar 'Form Controls' by 'View - Toolbars'
 115     printlog " Switch on/off toolbar 'Form Controls' by 'View - Toolbars'"
 116     ViewToolbarsFormControls
 117     ViewToolbarsFormControls
 118     '/// Switch on/off toolbar 'Form Design' by 'View - Toolbars'
 119     printlog " Switch on/off toolbar 'Form Design' by 'View - Toolbars'"
 120     ViewToolbarsFormDesign
 121     ViewToolbarsFormDesign
 122     '/// Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'
 123     printlog " Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'"
 124     ViewToolbarsFormNavigation
 125     ViewToolbarsFormNavigation
 126     '/// Switch on/off toolbar 'Formatting' by 'View - Toolbars'
 127     printlog " Switch on/off toolbar 'Formatting' by 'View - Toolbars'"
 128     ViewToolbarsFormatting
 129     ViewToolbarsFormatting
 130     '/// Switch on/off toolbar 'Insert' by 'View - Toolbars'
 131     printlog " Switch on/off toolbar 'Insert' by 'View - Toolbars'"
 132     ViewToolbarsInsert
 133     ViewToolbarsInsert
 134     '/// Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'
 135     printlog " Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'"
 136     ViewToolbarsInsertCell
 137     ViewToolbarsInsertCell
 138     '/// Switch on/off toolbar 'Media Playback' by 'View - Toolbars'
 139     printlog " Switch on/off toolbar 'Media Playback' by 'View - Toolbars'"
 140     ViewToolbarsMediaPlayback
 141     ViewToolbarsMediaPlayback
 142     '/// Switch on/off toolbar 'Picture' by 'View - Toolbars'
 143     printlog " Switch on/off toolbar 'Picture' by 'View - Toolbars'"
 144     ViewToolbarsPicture
 145     ViewToolbarsPicture
 146     '/// Switch on/off toolbar 'Standard' by 'View - Toolbars'
 147     printlog " Switch on/off toolbar 'Standard' by 'View - Toolbars'"
 148     ViewToolbarsStandard
 149     ViewToolbarsStandard
 150     '/// Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'
 151     printlog " Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'"
 152     ViewToolbarsTextFormatting
 153     ViewToolbarsTextFormatting
 154     '/// Switch on/off toolbar 'Tools' by 'View - Toolbars'
 155     printlog " Switch on/off toolbar 'Tools' by 'View - Toolbars'"
 156     ViewToolbarsTools
 157     ViewToolbarsTools
 158     '/// Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'
 159     printlog " Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'"
 160     ViewToolbarsInsertHyperlink
 161     ViewToolbarsInsertHyperlink
 162     '/// Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'
 163     printlog " Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'"
 164     ViewToolbarsFormulaBar
 165     ViewToolbarsFormulaBar
 166     '/// Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)
 167     printlog " Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)"
 168     ViewToolbarsConfigure
 169     '/// Close dialog with 'Cancel'
 170     Kontext
 171     Active.SetPage TabCustomizeMenu
 172     Kontext "TabCustomizeMenu"
 173     TabCustomizeMenu.Cancel
 174     '/// Reset toolbars by 'View - Toolbars -  Reset'
 175     printlog " Reset toolbars by 'View - Toolbars -  Reset'"
 176 '    ViewToolbarsReset
 177     qaerrorlog "Reset not possible because of #i84544"
 178     '/// Close document
 179     printlog " Close starting document"
 180     call hCloseDocument
 181
 182 endcase
 183
 184 '-----------------------------------------------------------
 185
 186 testcase tViewFormularbar
 187 '///<u><b>View - Formular Bar</b></u>
 188
 189     '/// Open new Spreadsheet document
 190     printlog " Open new Spreadsheet document"
 191     call hNewDocument
 192     '/// Switch on/off toolbar 'Formular Bar' by 'View -  Formular Bar'
 193     printlog " Switch on/off toolbar 'Formular Bar' by 'View -  Formular Bar'"
 194     ViewToolbarsFormulaBar
 195     ViewToolbarsFormulaBar
 196     '/// Close new document
 197     printlog " Close document"
 198     call hCloseDocument
 199
 200 endcase
 201
 202 '-----------------------------------------------------------
 203
 204 testcase tViewStatusbar
 205 '///<u><b>View - Status Bar</b></u>
 206
 207     '/// Open new Spreadsheet document
 208     printlog " Open new Spreadsheet document"
 209     call hNewDocument
 210     '/// Switch on/off toolbar 'Status Bar' by 'View -  Status Bar'
 211     printlog " Switch on/off toolbar 'Status Bar' by 'View -  Status Bar'"
 212     ViewToolbarsStatusbar
 213     ViewToolbarsStatusbar
 214     '/// Close new document
 215     printlog " Close document"
 216     call hCloseDocument
 217
 218 endcase
 219
 220 '-----------------------------------------------------------
 221
 222 testcase tViewInputMethodStatus
 223 '///<u><b>View - Input Method Status</b></u>
 224
 225     '/// Open new Spreadsheet document
 226     printlog " Open new Spreadsheet document"
 227     call hNewDocument
 228     '/// If enabled (only on UNIX) switch on/off 'View – Input Method Status'
 229     printlog " If enabled (only on UNIX) switch on/off 'View – Input Method Status'"
 230     try
 231         ViewInputMethodStatus
 232         ViewInputMethodStatus
 233     catch
 234         printlog "Input Method Status not available on this system"
 235     endcatch
 236     '/// Close new document
 237     printlog " Close document"
 238     call hCloseDocument
 239
 240 endcase
 241
 242 '-----------------------------------------------------------
 243
 244 testcase tViewColumnRowHeaders
 245 '///<u><b>View - Column And Row Headers</b></u>
 246
 247     '/// Open new Spreadsheet document
 248     printlog " Open new Spreadsheet document"
 249     call hNewDocument
 250     '/// Switch on/off  'View -  Column And Row Headers'
 251     printlog " Switch on/off  'View -  Column And Row Headers'"
 252     ViewColumnAndRowHeaders
 253     ViewColumnAndRowHeaders
 254     '/// Close new document
 255     printlog " Close document"
 256     call hCloseDocument
 257
 258 endcase
 259
 260 '-----------------------------------------------------------
 261
 262 testcase tViewValueHighlighting
 263 '///<u><b>View - Value Highlighting</b></u>
 264
 265     '/// Open new Spreadsheet document
 266     printlog " Open new Spreadsheet document"
 267     call hNewDocument
 268     '/// Switch on/off  'View -  Value Highlighting'
 269     printlog " Switch on/off  'View -  Value Highlighting'"
 270     ViewValueHightlighting
 271     ViewValueHightlighting
 272     '/// Close new document
 273     printlog " Close document"
 274     call hCloseDocument
 275
 276 endcase
 277
 278 '-----------------------------------------------------------
 279
 280 testcase tViewDataSources
 281 '///<u><b>View - Data Sources</b></u>
 282
 283     '/// Open new Spreadsheet document
 284     printlog " Open new Spreadsheet document"
 285     call hNewDocument
 286     '/// Open datasourcebeamer by  'View -  Data Sources'
 287     ViewCurrentDatabaseCalc
 288     '/// Close datasourcebeamer by  'View -  Data Sources'
 289     ViewCurrentDatabaseCalc
 290     '/// Close new document
 291     printlog " Close document"
 292     call hCloseDocument
 293
 294 endcase
 295
 296 '-----------------------------------------------------------
 297
 298 testcase tViewNavigator
 299 '///<u><b>Edit - Navigator</b></u>
 300
 301     '/// Open new Spreadsheet document
 302     printlog " Open new Spreadsheet document"
 303     call hNewDocument
 304     '/// Check if Navigator already exists. If not open Navigator by View-Navigator.
 305     printlog " Check if Navigator already exists. If not open Navigator by View-Navigator."
 306     Kontext "NavigatorCalc"
 307     if NavigatorCalc.exists then
 308         warnlog "Navigator is already enabled"
 309     else
 310         ViewNavigator
 311     end if
 312     Kontext "NavigatorCalc"
 313     call DialogTest ( NavigatorCalc )
 314     '/// Check functionality of button for content by clicking it twice
 315     printlog " Check functionality of button for content by clicking it twice"
 316     Inhalte.Click
 317     Inhalte.Click
 318     '/// Check functionality of toggle button by clicking it twice
 319     printlog " Check functionality of toggle button by clicking it twice"
 320     Umschalten.Click
 321     Umschalten.Click
 322     '/// Check functionality of button for scenarios by clicking it twice
 323     printlog " Check functionality of button for scenarios by clicking it twice"
 324     Szenarien.Click
 325     Szenarien.Click
 326     '/// Check that the dragmodus has 3 modes
 327     qaerrorlog "Dragmodus disabled because of unreliability"
 328 '    printlog " Check that the dragmodus has 3 modes"
 329 '    Dragmodus.OpenMenu
 330 '    waitslot(1000)
 331 '    if hMenuItemGetCount <> 3 then
 332 '        warnlog "Not enough modes for dragmodus"
 333 '    end if
 334 '    hMenuSelectNr (0)
 335     '/// Close Navigator
 336     printlog " Close Navigator"
 337     Kontext "Navigator"
 338     Navigator.Close    'Because of #i78307 the navigatorwindow has to be closed by Navigator.close
 339     Kontext "NavigatorCalc"
 340     if NavigatorCalc.exists then
 341         ViewNavigator
 342         Warnlog "NavigatorCalc.Close doesn't close the navigator"
 343     end if
 344     '/// Close document
 345     printlog " Close document"
 346     hCloseDocument
 347
 348 endcase
 349
 350 '-----------------------------------------------------------
 351
 352 testcase tViewFullScreen
 353 '///<u><b>View - Full Screen</b></u>
 354
 355     '/// Open new Spreadsheet document
 356     printlog " Open new Spreadsheet document"
 357     call hNewDocument
 358     '/// Switch to full screen view by  'View -  Full Screen'
 359     ViewFullScreen
 360     '/// Switch back to normal view
 361     ViewFullScreen
 362     '/// Close new document
 363     printlog " Close document"
 364     call hCloseDocument
 365
 366 endcase
 367
 368 '-----------------------------------------------------------
 369
 370 testcase tViewZoom
 371 '///<u><b>View - Zoom</b></u>
 372
 373     '/// Open new Spreadsheet document
 374     printlog " Open new Spreadsheet document"
 375     call hNewDocument
 376     '/// Open 'Zoom' – dialog by 'View – Zoom'
 377     printlog " Open 'Zoom' – dialog by 'View – Zoom'"
 378     ViewZoom
 379     Kontext "Massstab"
 380     DialogTest ( Massstab )
 381     '/// Check 'Variable'
 382     printlog " Check 'Variable'"
 383     VergroesserungStufenlos.Check
 384     '/// Increase variablezoom by 1
 385     printlog " Increase variablezoom by 1"
 386     Stufenlos.More
 387     '/// Close dialog with 'Cancel'
 388     printlog " Close dialog with 'Cancel'"
 389     Massstab.Cancel
 390     '/// Close new document
 391     printlog " Close document"
 392     call hCloseDocument
 393
 394 endcase
 395