incubator-ooo-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ar...@apache.org
Subject svn commit: r1231327 [3/3] - in /incubator/ooo/trunk/main/testautomation: global/required/includes/ global/tools/includes/optional/ global/tools/includes/required/ spreadsheet/optional/includes/printscale/ spreadsheet/tools/includes/
Date Fri, 13 Jan 2012 22:00:41 GMT
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 : helge.delfs@oracle.com
-'*
-'* 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 helge.delfs@oracle.com
-    '/// 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 thorsten.bosbach@oracle.com
-    '/// 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 : oliver.craemer@oracle.com
-'*
-'* 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 : oliver.craemer@oracle.com
-'*
-'* 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 : oliver.craemer@oracle.com
-'*
-'* short description : selecting objects in calc
-'*
-'**************************************************************************************************
+************************
 '*
 ' #1 fCalcSelectRange
 ' #1 fCalcNameRange



Mime
View raw message