'encoding UTF-8 Do not remove or change this line! '************************************************************************** ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2000, 2010 Oracle and/or its affiliates. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU Lesser General Public License version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' '/*********************************************************************** '* '* owner : oliver.craemer@sun.com '* '* short description : Resource Test - View Menu '* '************************************************************************ '* ' #1 tViewPageBreakPreview ' #1 tViewToolbars ' #1 tViewFormularbar ' #1 tViewStatusbar ' #1 tViewInputMethodStatus ' #1 tViewColumnRowHeaders ' #1 tViewValueHighlighting ' #1 tViewDataSources ' #1 tViewNavigator ' #1 tViewFullScreen ' #1 tViewZoom '* '\*********************************************************************** sub c_upd_viewmenu Printlog Chr(13) + "--------- View Menu (c_upd_viewmenu.inc) ---------" call tViewPageBreakPreview call tViewToolbars call tViewFormularbar call tViewStatusbar call tViewInputMethodStatus call tViewColumnRowHeaders call tViewValueHighlighting call tViewDataSources call tViewNavigator call tViewFullScreen call tViewZoom end sub '----------------------------------------------------------- testcase tViewPageBreakPreview '///View - Normal / Page Break Preview '/// Opening new spreadsheet document for getting defined starting environment printlog " Opening new spreadsheet document for getting defined starting environment" call hNewDocument '/// Activate Page Break Preview by 'View – Page Break Preview' printlog " Activate Page Break Preview by 'View – Page Break Preview'" ViewPageBreakPreview '/// Switch back to normal view by 'View – Normal' printlog " Switch back to normal view by 'View – Normal'" ViewNormalView '/// Close starting document printlog " Close starting document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewToolbars '///View - Toolbars '/// Opening new spreadsheet document for getting defined starting environment printlog " Opening new spreadsheet document for getting defined starting environment" call hNewDocument '/// Switch on/off toolbar '3D-Settings' by 'View - Toolbars' printlog " Switch on/off toolbar '3D-Settings' by 'View - Toolbars'" ViewToolbarsThreeDSettings ViewToolbarsThreeDSettings '/// Switch on/off toolbar 'Align' by 'View - Toolbars' printlog " Switch on/off toolbar 'Align' by 'View - Toolbars'" ViewToolbarsAlign ViewToolbarsAlign '/// Switch on/off toolbar 'Drawing' by 'View - Toolbars' printlog " Switch on/off toolbar 'Drawing' by 'View - Toolbars'" ViewToolbarsDrawing ViewToolbarsDrawing '/// Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars' printlog " Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'" ViewToolbarsDrawObjectbar ViewToolbarsDrawObjectbar '/// Switch on/off toolbar 'Fontwork' by 'View - Toolbars' printlog " Switch on/off toolbar 'Fontwork' by 'View - Toolbars'" ViewToolbarsFontwork ViewToolbarsFontwork '/// Switch on/off toolbar 'Form Controls' by 'View - Toolbars' printlog " Switch on/off toolbar 'Form Controls' by 'View - Toolbars'" ViewToolbarsFormControls ViewToolbarsFormControls '/// Switch on/off toolbar 'Form Design' by 'View - Toolbars' printlog " Switch on/off toolbar 'Form Design' by 'View - Toolbars'" ViewToolbarsFormDesign ViewToolbarsFormDesign '/// Switch on/off toolbar 'Form Navigation' by 'View - Toolbars' printlog " Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'" ViewToolbarsFormNavigation ViewToolbarsFormNavigation '/// Switch on/off toolbar 'Formatting' by 'View - Toolbars' printlog " Switch on/off toolbar 'Formatting' by 'View - Toolbars'" ViewToolbarsFormatting ViewToolbarsFormatting '/// Switch on/off toolbar 'Insert' by 'View - Toolbars' printlog " Switch on/off toolbar 'Insert' by 'View - Toolbars'" ViewToolbarsInsert ViewToolbarsInsert '/// Switch on/off toolbar 'Insert Cells' by 'View - Toolbars' printlog " Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'" ViewToolbarsInsertCell ViewToolbarsInsertCell '/// Switch on/off toolbar 'Media Playback' by 'View - Toolbars' printlog " Switch on/off toolbar 'Media Playback' by 'View - Toolbars'" ViewToolbarsMediaPlayback ViewToolbarsMediaPlayback '/// Switch on/off toolbar 'Picture' by 'View - Toolbars' printlog " Switch on/off toolbar 'Picture' by 'View - Toolbars'" ViewToolbarsPicture ViewToolbarsPicture '/// Switch on/off toolbar 'Standard' by 'View - Toolbars' printlog " Switch on/off toolbar 'Standard' by 'View - Toolbars'" ViewToolbarsStandard ViewToolbarsStandard '/// Switch on/off toolbar 'Text Formatting' by 'View - Toolbars' printlog " Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'" ViewToolbarsTextFormatting ViewToolbarsTextFormatting '/// Switch on/off toolbar 'Tools' by 'View - Toolbars' printlog " Switch on/off toolbar 'Tools' by 'View - Toolbars'" ViewToolbarsTools ViewToolbarsTools '/// Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars' printlog " Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'" ViewToolbarsInsertHyperlink ViewToolbarsInsertHyperlink '/// Switch on/off toolbar 'Formular Bar' by 'View - Toolbars' printlog " Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'" ViewToolbarsFormulaBar ViewToolbarsFormulaBar '/// Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize) printlog " Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)" ViewToolbarsConfigure '/// Close dialog with 'Cancel' Kontext Active.SetPage TabCustomizeMenu Kontext "TabCustomizeMenu" TabCustomizeMenu.Cancel '/// Reset toolbars by 'View - Toolbars - Reset' printlog " Reset toolbars by 'View - Toolbars - Reset'" ' ViewToolbarsReset qaerrorlog "Reset not possible because of #i84544" '/// Close document printlog " Close starting document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewFormularbar '///View - Formular Bar '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Switch on/off toolbar 'Formular Bar' by 'View - Formular Bar' printlog " Switch on/off toolbar 'Formular Bar' by 'View - Formular Bar'" ViewToolbarsFormulaBar ViewToolbarsFormulaBar '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewStatusbar '///View - Status Bar '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Switch on/off toolbar 'Status Bar' by 'View - Status Bar' printlog " Switch on/off toolbar 'Status Bar' by 'View - Status Bar'" ViewToolbarsStatusbar ViewToolbarsStatusbar '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewInputMethodStatus '///View - Input Method Status '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// If enabled (only on UNIX) switch on/off 'View – Input Method Status' printlog " If enabled (only on UNIX) switch on/off 'View – Input Method Status'" try ViewInputMethodStatus ViewInputMethodStatus catch printlog "Input Method Status not available on this system" endcatch '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewColumnRowHeaders '///View - Column And Row Headers '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Switch on/off 'View - Column And Row Headers' printlog " Switch on/off 'View - Column And Row Headers'" ViewColumnAndRowHeaders ViewColumnAndRowHeaders '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewValueHighlighting '///View - Value Highlighting '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Switch on/off 'View - Value Highlighting' printlog " Switch on/off 'View - Value Highlighting'" ViewValueHightlighting ViewValueHightlighting '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewDataSources '///View - Data Sources '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Open datasourcebeamer by 'View - Data Sources' ViewCurrentDatabaseCalc '/// Close datasourcebeamer by 'View - Data Sources' ViewCurrentDatabaseCalc '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewNavigator '///Edit - Navigator '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Check if Navigator already exists. If not open Navigator by View-Navigator. printlog " Check if Navigator already exists. If not open Navigator by View-Navigator." Kontext "NavigatorCalc" if NavigatorCalc.exists then warnlog "Navigator is already enabled" else ViewNavigator end if Kontext "NavigatorCalc" call DialogTest ( NavigatorCalc ) '/// Check functionality of button for content by clicking it twice printlog " Check functionality of button for content by clicking it twice" Inhalte.Click Inhalte.Click '/// Check functionality of toggle button by clicking it twice printlog " Check functionality of toggle button by clicking it twice" Umschalten.Click Umschalten.Click '/// Check functionality of button for scenarios by clicking it twice printlog " Check functionality of button for scenarios by clicking it twice" Szenarien.Click Szenarien.Click '/// Check that the dragmodus has 3 modes qaerrorlog "Dragmodus disabled because of unreliability" ' printlog " Check that the dragmodus has 3 modes" ' Dragmodus.OpenMenu ' waitslot(1000) ' if hMenuItemGetCount <> 3 then ' warnlog "Not enough modes for dragmodus" ' end if ' hMenuSelectNr (0) '/// Close Navigator printlog " Close Navigator" Kontext "Navigator" Navigator.Close 'Because of #i78307 the navigatorwindow has to be closed by Navigator.close Kontext "NavigatorCalc" if NavigatorCalc.exists then ViewNavigator Warnlog "NavigatorCalc.Close doesn't close the navigator" end if '/// Close document printlog " Close document" hCloseDocument endcase '----------------------------------------------------------- testcase tViewFullScreen '///View - Full Screen '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Switch to full screen view by 'View - Full Screen' ViewFullScreen '/// Switch back to normal view ViewFullScreen '/// Close new document printlog " Close document" call hCloseDocument endcase '----------------------------------------------------------- testcase tViewZoom '///View - Zoom '/// Open new Spreadsheet document printlog " Open new Spreadsheet document" call hNewDocument '/// Open 'Zoom' – dialog by 'View – Zoom' printlog " Open 'Zoom' – dialog by 'View – Zoom'" ViewZoom Kontext "Massstab" DialogTest ( Massstab ) '/// Check 'Variable' printlog " Check 'Variable'" VergroesserungStufenlos.Check '/// Increase variablezoom by 1 printlog " Increase variablezoom by 1" Stufenlos.More '/// Close dialog with 'Cancel' printlog " Close dialog with 'Cancel'" Massstab.Cancel '/// Close new document printlog " Close document" call hCloseDocument endcase