Modified: incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools3.inc URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools3.inc?rev=1231327&r1=1231326&r2=1231327&view=diff ============================================================================== --- incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools3.inc (original) +++ incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools3.inc Fri Jan 13 22:00:40 2012 @@ -1,923 +1,26 @@ '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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. +' Licensed to the Apache Software Foundation (ASF) under one +' or more contributor license agreements. See the NOTICE file +' distributed with this work for additional information +' regarding copyright ownership. The ASF licenses this file +' to you under the Apache License, Version 2.0 (the +' "License"); you may not use this file except in compliance +' with the License. You may obtain a copy of the License at +' +' http://www.apache.org/licenses/LICENSE-2.0 +' +' Unless required by applicable law or agreed to in writing, +' software distributed under the License is distributed on an +' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +' KIND, either express or implied. See the License for the +' specific language governing permissions and limitations +' under the License. ' '************************************************************************* -'* -'* owner : [email protected] -'* -'* short description : Global Tools III -'* -'\****************************************************************************** - -sub hToolbarSelect( sType as string, sOpen as boolean, optional SetToDefault as boolean ) - Dim sDefault as integer, sKontext as string, sPosition as integer - Dim SteppedThrough as boolean - '/// Created by [email protected] - '/// This function opens/closes a toolbar through View/Toolbar menu - '/// Required parameters: - '/// sType as string -> Name of the toolbar to be opened / closed - '/// sOpen as boolean -> Shall the toolbar be opened (true) or closed (false) - '/// optional SetToDefault as boolean -> true if Toolbar-State should be set to default - - Select Case Ucase(sType) - case "3DSETTING" - Kontext "ExtrusionObjectBar" - if ExtrusionObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsThreeDSettings - else - if SetToDefault = True then ViewToolbarsThreeDSettings - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsThreeDSettings - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsThreeDSettings - endif - endif - endif - - - case "ALIGN" - Kontext "Alignmentbar" - if Alignmentbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsAlign - else - if SetToDefault = True then ViewToolbarsAlign - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsAlign - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsAlign - endif - endif - endif - - Case "BULLETSANDNUMBERING" - Kontext "NumObjectbar" - if NumObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsBulletsAndNumbering - else - if SetToDefault = True then ViewToolbarsBulletsAndNumbering - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsBulletsAndNumbering - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsBulletsAndNumbering - endif - endif - endif - - case "COLOR" - Kontext "ColorBar" - if ColorBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsColor - else - if SetToDefault = True then ViewToolbarsColor - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsColor - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsColor - endif - endif - endif - - case "CUSTOMIZE" - ViewToolbarsCustomize - - case "DRAWING" - Kontext "DrawBar" - if DrawBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsDrawing - else - if SetToDefault = True then ViewToolbarsDrawing - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsDrawing - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsDrawing - endif - endif - endif - - case "FORMATTING" - Kontext "TextObjectbar" - if TextObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormatting - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormatting - else - if SetToDefault = True then ViewToolbarsFormatting - endif - endif - endif - - case "FORMCONTROLS" - Kontext "FormControls" - if FormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - else - if SetToDefault = True then ViewToolbarsFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - endif - endif - endif - case "CONTROLS" - Kontext "FormControls" - if FormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - else - if SetToDefault = True then ViewToolbarsFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormControls - endif - endif - endif - - case "FORMDESIGNTOOLS", "FORMDESIGN" - Kontext "FormDesignTools" - if FormDesignTools.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormDesign - else - if SetToDefault = True then ViewToolbarsFormDesign - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormDesign - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormDesign - endif - endif - endif - - case "HTMLSOURCEVIEW" - Kontext "SourceViewToolbar" - if SourceViewToolbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsHTMLSourceView - else - if SetToDefault = True then ViewToolbarsHTMLSourceView - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsHTMLSourceView - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsHTMLSourceView - endif - endif - endif - - case "FORMFILTER" - Kontext "FormsFilterBar" - if FormsFilterBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormFilter - else - if SetToDefault = True then ViewToolbarsFormFilter - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormFilter - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormFilter - endif - endif - endif - - case "FORMNAVIGATION" - Kontext "FormsNavigationBar" - if FormsNavigationBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormNavigation - else - if SetToDefault = True then ViewToolbarsFormNavigation - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormNavigation - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormNavigation - endif - endif - endif - - case "FORMOBJECT" - Kontext "FormsObjectbar" - if FormsObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFormObject - else - if SetToDefault = True then ViewToolbarsFormObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFormObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFormObject - endif - endif - endif - - case "FRAME" - Kontext "FrameObjectbar" - if FrameObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFrame - else - if SetToDefault = True then ViewToolbarsFrame - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFrame - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFrame - endif - endif - endif - - case "FULLSCREEN" - Kontext "FullScreenBar" - if FullScreenBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsFullScreen - else - if SetToDefault = True then ViewToolbarsFullScreen - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsFullScreen - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsFullScreen - endif - endif - endif - - case "GRAPHIC", "DRAWINGOBJECTPROPERTIES" - Kontext "DrawingObjectbar" - if DrawingObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsGraphic - else - if SetToDefault = True then ViewToolbarsGraphic - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsGraphic - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsGraphic - endif - endif - endif - - case "HYPERLINK", "HYPERLINKBAR" - Kontext "Hyperlinkleiste" - if Hyperlinkleiste.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertHyperlink - else - if SetToDefault = True then ViewToolbarsInsertHyperlink - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertHyperlink - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertHyperlink - endif - endif - endif - - - case "INSERT" - Kontext "InsertBar" - if InsertBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsert - else - if SetToDefault = True then ViewToolbarsInsert - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsert - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsert - endif - endif - endif - - case "INSERTOBJECT" - Kontext "InsertObjectBar" - if InsertObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertObject - else - if SetToDefault = True then ViewToolbarsInsertObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertObject - endif - endif - endif - - case "MEDIAPLAYBACK" - Kontext "MediaObjectBar" - if MediaObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMediaPlayback - else - if SetToDefault = True then ViewToolbarsMediaPlayback - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMediaPlayback - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMediaPlayback - endif - endif - endif - - case "MORECONTROLS" - Kontext "MoreControls" - if MoreControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMoreControls - else - if SetToDefault = True then ViewToolbarsMoreControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMoreControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMoreControls - endif - endif - endif - - case "MOREXFORMCONTROLS" - Kontext "MoreXFormControls" - if MoreXFormControls.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsMoreXFormControls - else - if SetToDefault = True then ViewToolbarsMoreXFormControls - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsMoreXFormControls - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsMoreXFormControls - endif - endif - endif - - case "OLEOBJECT" - Kontext "OLEObjectbar" - if OLEObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsOleObject - else - if SetToDefault = True then ViewToolbarsOleObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsOleObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsOleObject - endif - endif - endif - - case "OPTIMIZETABLE" - Kontext "OptimizeTablebar" - if OptimizeTablebar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsOptimizeTable - else - if SetToDefault = True then ViewToolbarsOptimizeTable - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsOptimizeTable - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsOptimizeTable - endif - endif - endif - - case "PAGEPREVIEW" - Kontext "PreviewObjectbar" - if PreviewObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPagePreview - else - if SetToDefault = True then ViewToolbarsPagePreview - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPagePreview - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPagePreview - endif - endif - endif - - case "PATH" - Kontext "BezierObjectBar" - if BezierObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsBezier - else - if SetToDefault = True then ViewToolbarsBezier - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsBezier - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsBezier - endif - endif - endif - - case "PICTURE" - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPicture - else - if SetToDefault = True then ViewToolbarsPicture - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPicture - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPicture - endif - endif - endif - - case "PICTUREFILTER" - Kontext "GraphicFilterBar" - if GraphicFilterBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsPictureFilter - else - if SetToDefault = True then ViewToolbarsPictureFilter - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsPictureFilter - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsPictureFilter - endif - endif - endif - - case "STANDARD" - Kontext "StandardBar" - if StandardBar.Exists then - if StandardBar.IsVisible then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsStandard - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandard - else - if SetToDefault = True then ViewToolbarsStandard - endif - endif - endif - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandard - else - if SetToDefault = True then ViewToolbarsStandard - endif - endif - endif - - case "STANDARDVIEWINGMODE" - Kontext "Viewerbar" - if Viewerbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsStandardView - else - if SetToDefault = True then ViewToolbarsStandardView - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsStandardView - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsStandardView - endif - endif - endif - - case "TABLE" - Kontext "TableObjectbar" - if TableObjectbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTable - else - if SetToDefault = True then ViewToolbarsTable - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTable - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTable - endif - endif - endif - - case "TEXTOBJECT" - Kontext "DrawTextObjectBar" - if DrawTextObjectBar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTextObject - else - if SetToDefault = True then ViewToolbarsTextObject - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTextObject - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTextObject - endif - endif - endif - - case "TOOLS" - Kontext "Toolbar" - if Toolbar.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsTools - else - if SetToDefault = True then ViewToolbarsTools - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsTools - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsTools - endif - endif - endif - - - case "MATH" - Kontext "OL_SW_Rechenleiste" - if OL_SW_Rechenleiste.Exists then - Select Case sOpen - Case False - if IsMissing(SetToDefault) then - ViewToolbarsInsertFormula - else - if SetToDefault = True then ViewToolbarsInsertFormula - endif - Case True - if IsMissing(SetToDefault) = False then - if SetToDefault = True then ViewToolbarsInsertFormula - endif - end select - else - if sOpen = True then - if IsMissing(SetToDefault) then - ViewToolbarsInsertFormula - endif - endif - endif - - case else - Warnlog "No menuentry for parameter " & sType & " found!" - - end select - Sleep 1 - -end sub - -sub hCloseAllToolbars - '/// Created by [email protected] - '/// This function closes all known toolbars which are not docked - '/// only if Build ID is below 8892 - if (gBuild < 8892) AND (gBuild > 8888) then - try - Kontext "ExtrusionObjectBar" - if ExtrusionObjectBar.Exists(0) then if NOT ExtrusionObjectBar.isDocked then ExtrusionObjectBar.close - Kontext "Alignmentbar" - if Alignmentbar.Exists(0) then if NOT Alignmentbar.isDocked then Alignmentbar.close - Kontext "NumObjectbar" - if NumObjectbar.Exists(0) then if NOT NumObjectbar.isDocked then NumObjectbar.close - Kontext "DrawBar" - if DrawBar.Exists(0) then if NOT DrawBar.isDocked then DrawBar.close - Kontext "TextObjectbar" - if TextObjectbar.Exists(0) then if NOT TextObjectbar.isDocked then TextObjectbar.close - Kontext "FormControls" - if FormControls.Exists(0) then if NOT FormControls.isDocked then FormControls.close - Kontext "FormControls" - if FormControls.Exists(0) then if NOT FormControls.isDocked then FormControls.close - Kontext "FormDesignTools" - if FormDesignTools.Exists(0) then if NOT FormDesignTools.isDocked then FormDesignTools.close - Kontext "SourceViewToolbar" - if SourceViewToolbar.Exists(0) then if NOT SourceViewToolbar.isDocked then SourceViewToolbar.close - Kontext "FormsFilterBar" - if FormsFilterBar.Exists(0) then if NOT FormsFilterBar.isDocked then FormsFilterBar.close - Kontext "FormsNavigationBar" - if FormsNavigationBar.Exists(0) then if NOT FormsNavigationBar.isDocked then FormsNavigationBar.close - Kontext "FormsObjectbar" - if FormsObjectbar.Exists(0) then if NOT FormsObjectbar.isDocked then FormsObjectbar.close - Kontext "FrameObjectbar" - if FrameObjectbar.Exists(0) then if NOT FrameObjectbar.isDocked then FrameObjectbar.close - Kontext "FullScreenBar" - if FullScreenBar.Exists(0) then if NOT FullScreenBar.isDocked then FullScreenBar.close - Kontext "DrawingObjectbar" - if DrawingObjectbar.Exists(0) then if NOT DrawingObjectbar.isDocked then DrawingObjectbar.close - Kontext "Hyperlinkleiste" - if Hyperlinkleiste.Exists(0) then if NOT Hyperlinkleiste.isDocked then Hyperlinkleiste.close - Kontext "InsertBar" - if InsertBar.Exists(0) then if NOT InsertBar.isDocked then InsertBar.close - Kontext "InsertObjectBar" - if InsertObjectBar.Exists(0) then if NOT InsertObjectBar.isDocked then InsertObjectBar.close - Kontext "MediaObjectBar" - if MediaObjectBar.Exists(0) then if NOT MediaObjectBar.isDocked then MediaObjectBar.close - Kontext "MoreControls" - if MoreControls.Exists(0) then if NOT MoreControls.isDocked then MoreControls.close - Kontext "OLEObjectbar" - if OLEObjectbar.Exists(0) then if NOT OLEObjectbar.isDocked then OLEObjectbar.close - Kontext "OptimizeTablebar" - if OptimizeTablebar.Exists(0) then if NOT OptimizeTablebar.isDocked then OptimizeTablebar.close - Kontext "PreviewObjectbar" - if PreviewObjectbar.Exists(0) then if NOT PreviewObjectbar.isDocked then PreviewObjectbar.close - Kontext "BezierObjectBar" - if BezierObjectBar.Exists(0) then if NOT BezierObjectBar.isDocked then BezierObjectBar.close - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists(0) then if NOT GraphicObjectbar.isDocked then GraphicObjectbar.close - Kontext "GraphicFilterBar" - if GraphicFilterBar.Exists(0) then if NOT GraphicFilterBar.isDocked then GraphicFilterBar.close - Kontext "StandardBar" - if StandardBar.Exists(0) then if NOT StandardBar.isDocked then StandardBar.close - Kontext "Viewerbar" - if Viewerbar.Exists(0) then if NOT Viewerbar.isDocked then Viewerbar.close - Kontext "TableObjectbar" - if TableObjectbar.Exists(0) then if NOT TableObjectbar.isDocked then TableObjectbar.close - Kontext "DrawTextObjectBar" - if DrawTextObjectBar.Exists(0) then if NOT DrawTextObjectBar.isDocked then DrawTextObjectBar.close - Kontext "Toolbar" - if Toolbar.Exists(0) then if NOT Toolbar.isDocked then Toolbar.close - Kontext "OL_SW_Rechenleiste" - if OL_SW_Rechenleiste.Exists(0) then if NOT OL_SW_Rechenleiste.isDocked then OL_SW_Rechenleiste.close - catch - printlog "tools3.inc::hCloseAllToolbars Can't close some toolbar" - endcatch - endif -end sub - -'******************************************************************************* +***** function hIsAccessbridgeInstalled() as boolean '/// created by HDE
Modified: incubator/ooo/trunk/main/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc?rev=1231327&r1=1231326&r2=1231327&view=diff ============================================================================== --- incubator/ooo/trunk/main/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc (original) +++ incubator/ooo/trunk/main/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc Fri Jan 13 22:00:40 2012 @@ -1,37 +1,26 @@ '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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. +' Licensed to the Apache Software Foundation (ASF) under one +' or more contributor license agreements. See the NOTICE file +' distributed with this work for additional information +' regarding copyright ownership. The ASF licenses this file +' to you under the Apache License, Version 2.0 (the +' "License"); you may not use this file except in compliance +' with the License. You may obtain a copy of the License at +' +' http://www.apache.org/licenses/LICENSE-2.0 +' +' Unless required by applicable law or agreed to in writing, +' software distributed under the License is distributed on an +' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +' KIND, either express or implied. See the License for the +' specific language governing permissions and limitations +' under the License. ' '************************************************************************* -'* -'* owner : [email protected] -'* -'* short description : Check correct print scaling settings -'* -'************************************************************************************************* +*********************** '* ' #1 subPrintScaling ' #1 tPrintScaling Modified: incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_cell_tools.inc URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_cell_tools.inc?rev=1231327&r1=1231326&r2=1231327&view=diff ============================================================================== --- incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_cell_tools.inc (original) +++ incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_cell_tools.inc Fri Jan 13 22:00:40 2012 @@ -1,37 +1,26 @@ '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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. +' Licensed to the Apache Software Foundation (ASF) under one +' or more contributor license agreements. See the NOTICE file +' distributed with this work for additional information +' regarding copyright ownership. The ASF licenses this file +' to you under the Apache License, Version 2.0 (the +' "License"); you may not use this file except in compliance +' with the License. You may obtain a copy of the License at +' +' http://www.apache.org/licenses/LICENSE-2.0 +' +' Unless required by applicable law or agreed to in writing, +' software distributed under the License is distributed on an +' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +' KIND, either express or implied. See the License for the +' specific language governing permissions and limitations +' under the License. ' '************************************************************************* -'* -'* owner : [email protected] -'* -'* short description : tools for working with cells in calc -'* -'************************************************************************************************** +************************ '* ' #1 fCalcGetCellValue 'Returns the value of a given cell ' #1 fCalcCompareCellValue 'Compares the value of a given cell with a given result Modified: incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_select_tools.inc URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_select_tools.inc?rev=1231327&r1=1231326&r2=1231327&view=diff ============================================================================== --- incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_select_tools.inc (original) +++ incubator/ooo/trunk/main/testautomation/spreadsheet/tools/includes/c_select_tools.inc Fri Jan 13 22:00:40 2012 @@ -1,37 +1,26 @@ '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 -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. +' Licensed to the Apache Software Foundation (ASF) under one +' or more contributor license agreements. See the NOTICE file +' distributed with this work for additional information +' regarding copyright ownership. The ASF licenses this file +' to you under the Apache License, Version 2.0 (the +' "License"); you may not use this file except in compliance +' with the License. You may obtain a copy of the License at +' +' http://www.apache.org/licenses/LICENSE-2.0 +' +' Unless required by applicable law or agreed to in writing, +' software distributed under the License is distributed on an +' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +' KIND, either express or implied. See the License for the +' specific language governing permissions and limitations +' under the License. ' '************************************************************************* -'* -'* owner : [email protected] -'* -'* short description : selecting objects in calc -'* -'************************************************************************************************** +************************ '* ' #1 fCalcSelectRange ' #1 fCalcNameRange
