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