incubator-ooo-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ar...@apache.org
Subject svn commit: r1231427 [4/5] - in /incubator/ooo/trunk/main/testautomation: chart2/optional/includes/loadsave/ chart2/required/includes/ chart2/tools/ dbaccess/tools/ framework/optional/includes/ framework/required/includes/ framework/tools/includes/ glo...
Date Sat, 14 Jan 2012 00:57:11 GMT
Modified: incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_lists.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_lists.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_lists.inc (original)
+++ incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_lists.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,427 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : general routines to work with lists (arrays)
+'*
+'\******************************************************************
+
+function ListCount ( lsList() as String ) as Integer
+    'Author: tz
+    '///Returns the number of list entries.
+    '///+<u>Input</u>: The list (only string lists are possible)
+    '///+<u>Return</u>: The number of entries
+    ListCount =  Val(lsList(0))
+end function
+
+'-------------------------------------------------------------------------
+
+function ListCopy ( lsList1() as String, lsList2() as String ) as Boolean
+    'Author: tz
+    '///Copies all entries out of one list into another list.
+    '///+<u>Input</u>:<ol><lo>list which should be copied</li><li>An empty list</li></ol>After this function the 2nd list is a copy of the 1st list.
+    '///+<u>Return</u>: If copy of the list is correct this function returns TRUE otherweise FALSE
+
+    Dim ii as Integer
+
+    ListAllDelete ( lsList2() )
+    for ii=1 to ListCount ( lsList1() )
+        ListAppend ( lsList2(), lsList1(ii) )
+    next ii
+
+    if ListCount ( lsList1() ) = ListCount ( lsList2 () ) then
+        ListCopy = TRUE
+    else
+        ListCopy = FALSE
+    end if
+end function
+
+'-------------------------------------------------------------------------
+
+sub ListAllDelete ( lsList() as String )
+    'Author: tz
+    '///Deletes a complete list.
+    '///+<u>Input</u>: The list (only string lists are possible)
+    lsList(0) = "0"
+end sub
+
+'-------------------------------------------------------------------------
+
+sub ListAppend ( lsList() as String, sNewEntry as String )
+    'Author: tz
+    '///Appends a new entry at the end of the list.
+    '///+<u>Input</u>: <ol><li>the list (only string lists are possible)</li><li>The new entry</li></ol>
+    lsList(0) = Val(lsList(0)) + 1
+    lsList( lsList(0) ) = sNewEntry
+end sub
+
+'-------------------------------------------------------------------------
+
+function ListDelete ( lsList() as String, iNr as Integer ) as Boolean
+    'Author: tz
+    '///Deletes an entry out of the list on a defined position (iNr).
+    '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The position of the entry</li></ol>
+    '///+<u>Return</u>: TRUE if the entry was deleted otherweise FALSE
+
+
+    Dim i%, ListenAnzahl as Integer
+
+    ListenAnzahl = listcount( lsList() )
+
+    if iNr > ListenAnzahl then
+        ListDelete = FALSE
+        Exit Function
+    end if
+
+    for i% = iNr to ListenAnzahl
+        lsList( i% ) = lsList( i% + 1 )
+    next i%
+
+    lsList(0) = ListenAnzahl - 1
+
+    ListDelete = TRUE
+end function
+
+'-------------------------------------------------------------------------
+
+function ListDeleteString ( lsList() as String, sText as String ) as Boolean
+    'Author: tz
+    '///Deletes the 1st string in the list which is equal to the input string.
+    '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The string</li></ol>
+    '///+<u>Return</u>: TRUE if the entry was deleted otherwise FALSE
+    Dim i as Integer : Dim EintragsNr as Integer : Dim ListenAnzahl as Integer
+
+    ListenAnzahl = Val(lsList(0))
+    EintragsNr = 0
+    for i = 1 to ListenAnzahl
+        if lsList(i) = sText then
+            EintragsNr = i
+            i = ListenAnzahl + 1
+        end if
+    next i
+    if EintragsNr = 0 then
+        ListDeleteString = FALSE
+    else
+        ListDeleteString = ListDelete ( lsList(), EintragsNr )
+    end if
+end function
+
+'-------------------------------------------------------------------------
+
+function ListInsert ( lsList() as String, ZeileNr%, sWert$ ) as Boolean
+    'Author: tz
+    '///Inserts a string at a defined position in the list.
+    '///+<u>Input</u>: <ol><li>The list (only string lists are possible)</li><li>The position</li><li>The string</li></ol>
+    '///+<u>Return</u>: TRUE if the entry was inserted otherwise FALSE
+    Dim i% : Dim ListenAnzahl as Integer
+
+    ListenAnzahl = Val(lsList(0))
+    if ZeileNr% > ListenAnzahl then
+        ListInsert = FALSE
+        Exit Function
+    end if
+
+    ' Nach hinten verschieben, hinten beginnend
+    for i% = ListenAnzahl to ZeileNr% step -1
+        lsList( i%+1 ) = lsList( i% )
+    next i%
+
+    ' Einfuegen
+    lsList( ZeileNr% ) = sWert$
+    lsFile(0) = ListenAnzahl + 1
+    ListInsert = TRUE
+
+end function
+
+'-------------------------------------------------------------------------
+
+function ListRead ( lsList() as String, Datei$, optional sEncode as String ) as Boolean
+    'Author: tz
+    '///+Opens a file and insert all rows into a list (row for row).
+    '///+<u>Input</u>: <ol><li>The list (old list entries will be deleted)</li><li>The file</li><li><b>optional</b>: The encoding &quot;UTF8&quot;</li></ol>
+    '///+<u>Return</u>: TRUE or FALSE if this routine can read the file.
+    Dim bUTF8 as Boolean
+    Dim i%
+    Dim CompareList(15000) as String
+
+    if Dir( Datei$ ) = "" then
+        Warnlog "ListRead: " + Datei$ + " is missing!"
+        ListRead = FALSE
+        exit function
+    end if
+
+    if IsMissing ( sEncode ) = TRUE then
+        bUTF8 = FALSE
+    else
+        if UCASE ( sEncode ) = "UFT8" OR UCASE ( sEncode ) = "UTF8" then
+            bUTF8 = TRUE
+        else
+            Warnlog "ListRead :" +  sEncode + " - Encoding is unkown!"
+            bUTF8 = FALSE
+        end if
+    end if
+
+    ListAllDelete ( lsList() )                             ' clean up the list
+
+    if bUTF8 =  TRUE then
+        Dim textin as object, sfa as object, xInput as object                   ' for UTF-8-input-routines
+        Dim iC as Integer
+
+        textin = createUnoService( "com.sun.star.io.TextInputStream" )         ' uno-handling to input an UFT-8-File
+        textin.setEncoding("utf8")                                             '
+        sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )          '
+        xInput = sfa.openFileRead( Datei$ )                                    '
+        textin.setInputStream( xInput )                                        '
+
+        do until textin.isEOF()                                                '
+            i% = Val(lsList(0)) + 1
+            lsList(0) = i%
+            lsList( i% ) = textin.readLine()                                    '
+        loop
+        xInput.closeInput                                                      ' uno-file-close
+
+        'INFO: (TZ) Only to workaround a problem with UNIX-Files...
+        if Right ( lsList(i%), 1 ) = Chr(10) then
+            lsList(i%) = Left ( lsList(i%), Len ( lsList(i%) ) - 1 )
+        end if
+        'INFO: (TBO) Remove the BOM http://www.unicode.org/versions/Unicode4.0.0/ch15.pdf
+        if (left(lsList(1), 1) = chr(&HFEFF)) then
+            lsList(1) = right(lsList(1), Len(lsList(1)) - 1)
+        end if
+    else
+        Dim FileNum%
 
-*****
+        FileNum% = FreeFile
+        Open Datei$ for input  as #FileNum%
+
+        do until EOF(#FileNum%) ' all from LIS-file
+            i% = Val(lsList(0)) + 1
+            lsList(0) = i%
+            Line Input #FileNum%, lsList( i% )
+        loop
+        Close #FileNum%
+    end if
+    ListRead = TRUE
+end function
+
+'-------------------------------------------------------------------------
+
+function ListWrite ( lsList() as String, Datei$, optional sEncode as String) as Boolean
+    'Author: tz
+    '///+Writes a list into a file (an existing file will be deleted before)
+    '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding &quot;UTF8&quot;</li></ol>
+    '///+<u>return</u>: TRUE or FALSE if this routine can read the file.
+
+    Dim bUTF8 as Boolean
+    Dim i%
+
+    if Dir (Datei$) <> "" then
+        Kill(Datei$)  ' the file must be deleted if you use 'UTF8'
+    endif
+
+    if IsMissing ( sEncode ) = TRUE then
+        bUTF8 = FALSE
+    else
+        if UCASE ( sEncode ) = "UTF8" then
+            bUTF8 = TRUE
+        else
+            Warnlog "ListWrite :" +  sEncode + " - Encoding is unkown!"
+            bUTF8 = FALSE
+        end if
+    end if
+
+    if bUTF8 =  TRUE then
+        Dim textout as object, sfa as object, xOutput as object                  ' for UTF-8-output-routines
+
+        textout = createUnoService( "com.sun.star.io.TextOutputStream" )        ' uno-handling to output an UFT-8-File
+        textout.setEncoding("utf8")                                             '
+        sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )           '
+        xOutput = sfa.openFileWrite( Datei$ )                                   '
+        textout.setOutputStream( xOutput )                                      '
+
+        for i%=1 to ListCount ( lsList() )
+            textout.writeString( lsList( i% ) + Chr(13) + Chr(10) )              '
+        next i%
+        xOutput.closeOutput                                                     ' uno-file-close
+    else
+        Dim FileNum% : Dim iLast%
+
+        FileNum% = FreeFile
+        Open Datei$ for Output  as #FileNum%
+        iLast% = Val(lsList(0))
+        i%=1
+        do while i% <= iLast%
+            Print #FileNum%, lsList(i%)
+            i% = i% +1
+        loop
+        Close #FileNum%
+    endif
+
+    ListWrite = TRUE
+end function
+
+'-------------------------------------------------------------------------
+
+function ListReadAppend( lsList() as String , Datei$, optional sEncode as String ) as Boolean
+    'Author: tz
+    '///+Appends a list into a file (If the file exists the file will be deleted before!).
+    '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding &quot;UTF8&quot;</li></ol>
+    '///+<u>return</u>: TRUE or FALSE if this routine can read the file.
+
+    Dim bUTF8 as Boolean
+    Dim i%
+    Dim CompareList() as String
+    Dim isCounter as Integer
+    Dim FileNum%
+
+    if Dir( Datei$ ) = "" then
+        Warnlog "ListReadAppend : " + Datei$ + " is missing!"
+        ListReadAppend = FALSE
+        exit function
+    end if
+
+    isCounter = ListCount ( lsList() )
+
+    if IsMissing ( sEncode ) = TRUE then
+        bUTF8 = FALSE
+    else
+        if UCASE ( sEncode ) = "UFT8" OR UCASE ( sEncode ) = "UTF8" then
+            bUTF8 = TRUE
+        else
+            Warnlog "ListRead : " + sEncode + " - Encoding is unkown!"
+            bUTF8 = FALSE
+        end if
+    end if
+
+    if bUTF8 =  TRUE then
+        Dim textin as object, sfa as object, xInput as object                  ' for UTF-8-input-routines
+
+        textin = createUnoService( "com.sun.star.io.TextInputStream" )         ' uno-handling to input an UFT-8-File
+        textin.setEncoding("utf8")                                             '
+        sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )          '
+        xInput = sfa.openFileRead( Datei$ )                                    '
+        textin.setInputStream( xInput )                                        '
+
+        do until textin.isEOF()                                                '
+            i% = Val(lsList(0)) + 1
+            lsList(0) = i%
+            lsList( i% ) = textin.readLine()                                    '
+        loop
+        xInput.closeInput                                                      ' uno-file-close
+
+        'INFO: (TZ) Only to workaround a problem with UNIX-Files...
+        if Right ( lsList(i%), 1 ) = Chr(10) then
+            lsList(i%) = Left ( lsList(i%), Len ( lsList(i%) ) - 1 )
+        end if
+        '...
+    else
+        FileNum% = FreeFile
+        Open Datei$ for input  as #FileNum%
+
+        do until EOF(FileNum%)                            ' All from LIST-file
+            i% =  Val(lsList(0)) + 1
+            lsList(0) = i%
+            Line Input #FileNum%, lsList( i% )
+        loop
+        Close #FileNum%
+    end if
+
+    ListReadAppend = TRUE
+
+end function
+
+'-------------------------------------------------------------------------
+
+function ListWriteAppend( lsList() as String, Datei$, optional sEncode as String ) as Boolean
+    'Author: tz
+    '///+Writes a list into a file (If the files exist all entries will be appended).
+    '///+<u>Input</u>: <ol><li>The list</li><li>The file</li><li><b>optional</b>: The encoding &quot;UTF8&quot;</li></ol>
+    '///+<u>return</u>: TRUE or FALSE if this routine can read the file.
+
+    Dim bUTF8 as Boolean
+    Dim i%
+    Dim DummyList ( 15000 ) as String
+
+    if IsMissing ( sEncode ) = TRUE then
+        bUTF8 = FALSE
+    else
+        if UCASE ( sEncode ) = "UTF8" then
+            bUTF8 = TRUE
+        else
+            Warnlog "ListRead :" +  sEncode + " - Encoding is unkown!"
+            bUTF8 = FALSE
+        end if
+    end if
+
+    if bUTF8 =  TRUE then
+        Dim sfa as object, xOutput as object, textout as object                 ' for UTF-8-output-routines
+
+        ListRead ( DummyList(), Datei$, "utf8" )                               ' read old file in another list
+        for i% = 1 to ListCount ( lsList() )
+            ListAppend ( DummyList(), lsList(i%) )                              ' add the new list at the old list
+        next i%
+
+        textout = createUnoService( "com.sun.star.io.TextOutputStream" )       ' uno-handling to output an UFT-8-File
+        textout.setEncoding("utf8")                                            '
+        sfa = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )          '
+        xOutput = sfa.openFileWrite( Datei$ )                                  '
+        textout.setOutputStream( xOutput )                                     '
+
+        for i%=1 to ListCount (DummyList())
+            textout.writeString( DummyList( i% ) + Chr(13) + Chr(10 )           '
+        next i%
+        xOutput.closeOutput                                                    ' uno-file-close
+    else
+        Dim FileNum%
+
+        FileNum% = FreeFile
+        Open Datei$ for Append  as #FileNum%
+
+        for i% = 1 to Val(lsList(0))
+            Print #FileNum%, lsList(i%)
+        next i%
+
+        Close #FileNum%
+    end if
+    ListWriteAppend = TRUE
+
+end function
+
+'-------------------------------------------------------------------------
+
+sub ListSort ( lsList() as String, optional UpDown as Boolean )
+    'Author: tz
+    '///+Sorts a list upward per default or downward if optional parameter is FALSE with quicksort method.
+    '///+<u>Input</u>: Unsorted list
+
+    Dim Listenanzahl as Integer, i as Integer, j as Integer
+    Dim Zwischenspeicher as String
+
+    ListenAnzahl = Val(lsList(0))
+    for i=ListenAnzahl-1 to 1 step -1
+        for j=1 to i
+            if UpDown = FALSE then
+                ' upward sorting
+                if uCase ( lsList(j) ) < uCase ( lsList(j+1) ) then
+                    Zwischenspeicher = lsList (j)                               ' invert value (i) with value (i+1)
+                    lsList (j) = lsList(j+1)
+                    lsList (j+1) = Zwischenspeicher
+                end if
+            else
+                ' Downward sorting
+                if uCase ( lsList(j) ) > uCase ( lsList(j+1) ) then
+                    Zwischenspeicher = lsList (j)                               ' invert value (i) with value (i+1)
+                    lsList (j) = lsList(j+1)
+                    lsList (j+1) = Zwischenspeicher
+                end if
+            end if
+        next j
+    next i
+end sub
+
+'*******************************************************************************
 
 function gCompare2Lists( aListOne() as String, aListTwo() as String ) as boolean
 

Modified: incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_menu.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_menu.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_menu.inc (original)
+++ incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_menu.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,33 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : wrappers for accessing menues (context-, bar-, button- menues)
+'*
+'\******************************************************************************
+
+function hMenuItemGetCount as Integer
+
+    '/// OUTPUT: number of entries in the activated menu (without seperators) ///'
+    '///+ menu left open ///'
+    dim iCurrentMenuItem as integer
+    dim iValidMenuItems as integer
+
+    sleep( 2 )
+
+    iValidMenuItems = 0
+    for iCurrentMenuItem = 1 to MenuGetItemCount
+        if ( NOT MenuIsSeperator ( iCurrentMenuItem ) ) then
+            iValidMenuItems = iValidMenuItems + 1
+        endif
+    next iCurrentMenuItem
+    hMenuItemGetCount = iValidMenuItems
 
-*****
+end function
+
+'*******************************************************************************
 
 function hMenuSelectNr ( EintragsNr as Integer ) as String
 

Modified: incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_option2.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_option2.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_option2.inc (original)
+++ incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_option2.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,270 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Tools library for options testcases
+'*
+'\***********************************************************************
+
+function OptionTabPageZaehler ( SollAnzahl as Integer, optional Ausnahme as Boolean )
+    'parameter Ausnahme is depracted
+    Dim IstAnzahl
+    Kontext "ExtrasOptionenDlg"
+    IstAnzahl = Optionsliste.GetItemCount - iSectionNumber
+    if Ausnahme = FALSE then
+        if IstAnzahl <> SollAnzahl then WarnLog "Number of tabpages old :  " + SollAnzahl + "   new :  " + IstAnzahl
+    end if
+    OptionTabPageZaehler = IstAnzahl
+end function
+
+'-------------------------------------------------------------------------
+
+sub ToPosInOptionlist ( Sprung as Integer )
+    Dim i as Integer
+    Kontext "OptionenDlg"
+    Optionsliste.TypeKeys "<HOME>"
+    for i = 1 to 12
+        Optionsliste.TypeKeys "-<DOWN>"
+    next i
+    Optionsliste.Select Sprung
+    Optionsliste.TypeKeys "+"
+end sub
+
+'-------------------------------------------------------------------------
+
+sub DialogeFuerTypenKontrollieren
+    ' Complete test for path-options, for all entries the file-dialog or the path-dialog will be opened
+    Dim i as Integer
+    Dim iCount as Integer
+    Dim iErrorCount as integer
+    dim iExitCounter as integer : iExitCounter = 0
+    Kontext "TabPfade"
+    Typ.TypeKeys "<Down><Down><Home>"
+    iCount = 0
+    iErrorCount = 0
+    for i=1 to Typ.GetItemCount
+        if i<>1 then Typ.TypeKeys "<Down>"
+        printlog "      "+typ.getText
+        if ( bAsianLan <> TRUE ) then
+            try
+                Bearbeiten.Click
+                
+                do while( iExitCounter <= 10 )
+                
+                    kontext "Active"
+                    if ( active.exists() ) then
+                        iErrorCount = iErrorCount + 1
+                        if (iErrorCount > 1) then
+                            Warnlog active.getText
+                        endif
+                        qaErrorlog "#i69014# gallery path doesn't exist: '" + active.getText + "'"
+                        printlog active.getText
+                        active.ok
+                    endif
+                    
+                    Kontext "OeffnenDlg"
+                    if OeffnenDlg.Exists() then
+                        if ( Dateityp.IsVisible ) then 
+                            Warnlog "The normal FileOpen-Dialog is visible with the Filetype-Listbox => BUG!"
+                        endif
+                        OeffnenDlg.Cancel
+                        exit do
+                    endif
+                    
+                    Kontext "PfadeAuswaehlen"
+                    if ( PfadeAuswaehlen.exists() ) then
+                        PfadeAuswaehlen.Cancel
+                        exit do
+                    endif
+                    
+                    iExitCounter = iExitCounter + 1
+                loop
+                Kontext "TabPfade"
+            catch
+                Warnlog "Error on entry " & i & "!"
+                Exceptlog
+            endcatch
+        else
+            try
+                if ( Bearbeiten.IsEnabled ) then
+                    Bearbeiten.Click
+                    
+                    do while( iExitCounter <= 10 ) 
+                    
+                        kontext "Active"
+                        if active.exists () then
+                            iErrorCount = iErrorCount + 1
+                            if (iErrorCount > 1) then
+                                Warnlog active.getText
+                            endif
+                            qaErrorlog "WorkAround for #109107# has to come up only once @'Add-Ins'! else BUG!"
+                            active.ok
+                        endif
+                        
+                        Kontext "OeffnenDlg"
+                        if OeffnenDlg.Exists() then
+                            if ( Dateityp.IsVisible ) then 
+                                Warnlog "The normal FileOpen-Dialog is visible with the Filetype-Listbox => BUG!"
+                            endif
+                            OeffnenDlg.Cancel
+                            exit do
+                        endif
+                        
+                        Kontext "PfadeAuswaehlen"
+                        if ( PfadeAuswaehlen.exists() ) then
+                            PfadeAuswaehlen.Cancel
+                            exit do
+                        end if
+
+                        iExitCounter = iExitCounter + 1
+                    loop
+                    Kontext "TabPfade"
+                else
+                    iCount = iCount + 1
+                end if
+            catch
+                Warnlog "Error on entry " & i & "!"
+                Exceptlog
+            endcatch
+        end if
+    next i
+    if iCount > 3 then Warnlog "There are more than 3 entries are disabled!"
+
+end sub
+
+'-------------------------------------------------------------------------
+
+function hSetMacroSecurity( iLevel as integer ) as integer
+
+    '///<h3>Set macro security level via GUI</h3>
+    '///<i>Set the macro security by accessing the Tools/Options->
+    '///+ OpenOffice.org/Security::Macro... Tabpage</i><br><br>
+
+    '///<u>Parameter(s):</u><br>
+    '///<ol>
 
-*****
+    '///+<li>Desired macro security level (Integer). Following symbolic names are defined:</li>
+    '///<ul>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_LOW (0) for low security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_MEDIUM (1) for medium security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_HIGH (2) for high security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_VERYHIGH (3) for very high security</li>
+    '///</ul>
+
+    '///</ol>
+
+
+    '///<u>Returns:</u><br>
+    '///<ol>
+    '///+<li>Previous security level (Integer)</li>
+    '///<ul>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_LOW (0) for low security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_MEDIUM (1) for medium security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_HIGH (2) for high security</li>
+    '///+<li>GC_MACRO_SECURITY_LEVEL_VERYHIGH (3) for very high security</li>
+    '///+<li>-1 on error</li>
+    '///</ul>
+    '///</ol>
+
+
+
+    '///Switch between macro security levels in Tools/Options
+    '///<ul>
+    const CFN = "hSetMacroSecurity::"
+    const RETVAL_FAILURE = -1
+    const DEFAULT_WAIT_TIME = 2
+
+    dim iOldSecurityLevel as integer
+
+    dim caLevel( 3 ) as string
+    caLevel( 0 ) = "low"
+    caLevel( 1 ) = "medium"
+    caLevel( 2 ) = "high"
+    caLevel( 3 ) = "very high"
+
+    if ( ( iLevel < GC_MACRO_SECURITY_LEVEL_LOW ) or ( iLevel > GC_MACRO_SECURITY_LEVEL_VERYHIGH ) ) then
+        warnlog( CFN & "Invalid index (0...3) passed to function: " & ilevel )
+        hSetMacroSecurity() = RETVAL_FAILURE
+        exit function
+    end if
+
+    '///+<li>Open Tools/Options -> OpenOffice.org/Security</li>
+    ToolsOptions
+    hToolsOptions( "Staroffice" , "Security" )
+
+    '///+<li>Click on the macro security button</li>
+    Kontext "TabSecurity"
+    if ( MacroSecurity.exists( DEFAULT_WAIT_TIME ) ) then
+        MacroSecurity.click()
+
+        '///+<li>Ensure we are on the Security Level page</li>
+        kontext "Active"
+        if ( Active.exists( DEFAULT_WAIT_TIME ) ) then
+
+            Kontext
+            active.setpage TabSecurityLevel
+
+            '///+<li>Get the current setting (=returnvalue)</li>
+            Kontext "TabSecurityLevel"
+            if ( TabSecurityLevel.exists( 2 ) ) then
+                if ( veryhigh.isChecked() ) then
+                    iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_VERYHIGH
+                elseif( high.isChecked() ) then
+                    iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_HIGH
+                elseif( medium.isChecked() ) then
+                    iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM
+                elseif( low.isChecked() ) then
+                    iOldSecurityLevel = GC_MACRO_SECURITY_LEVEL_LOW
+                end if
+            else
+                printlog( CFN & "Security Tabpage not available. Aborting." )
+                kontext "OptionenDlg"
+                if ( OptionenDlg.exists( DEFAULT_WAIT_TIME ) ) then
+                    OptionenDlg.cancel()
+                else
+                    warnlog( CFN & "Unrecoverable error, status unknown." )
+                endif
+                hSetMacroSecurity() = RETVAL_FAILURE
+                exit function
+            endif
+
+            '///+<li>Set the new security level</li>
+            select case iLevel
+            case GC_MACRO_SECURITY_LEVEL_LOW      : low.check()
+            case GC_MACRO_SECURITY_LEVEL_MEDIUM   : medium.check()
+            case GC_MACRO_SECURITY_LEVEL_HIGH     : high.check()
+            case GC_MACRO_SECURITY_LEVEL_VERYHIGH : veryhigh.check()
+            end select
+
+            printlog( CFN & "Setting macro security level to " & caLevel( iLevel ) )
+
+        else
+            printlog( CFN & "Macro Security Dialog did not open. Aborting." )
+            kontext "OptionenDlg"
+            if ( OptionenDlg.exists( DEFAULT_WAIT_TIME ) ) then
+                OptionenDlg.cancel()
+            else
+                warnlog( CFN & "Unrecoverable error, status unknown." )
+            endif
+            hSetMacroSecurity() = RETVAL_FAILURE
+            exit function
+        endif
+
+        '///+<li>Close Tools/Options</li>
+        TabSecurityLevel.ok()
+    else
+        warnlog( CFN & "The Macro Security Button is not available" )
+        iOldSecurityLevel = RETVAL_FAILURE
+    end if
+    Kontext "OptionenDLG"
+    OptionenDLG.OK()
+    '///</ul>
+    hSetMacroSecurity() = iOldSecurityLevel
+end function
+
+'*******************************************************************************
 
 function hGetMacroSecurityAPI() as integer
 

Modified: incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools1.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools1.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools1.inc (original)
+++ incubator/ooo/trunk/main/testautomation/global/tools/includes/required/t_tools1.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,59 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Tools (1)
+'*
+'\******************************************************************************
+
+private SLEEP_TIME_REQUESTED as integer
+private SLEEP_CALLS_SUM as integer
+private SLEEP_TIME_USED as integer
+
+function GetClipboardText as string
+
+    '/// Returns the correct clipboard text (also if there is a 'RETURN' at it's end.
+    Dim i% : Dim CBText$
+    Dim Zwischen$
+
+    wait 500
+    GetClipboardText = ""
+    CBText$ = GetClipboard
+ 
+    if CBText$ = "" then
+        GetClipboardText = ""
+        exit function
+    end if
+ 
+    if asc ( Right( CBText$, 1 )) = 10 then
+        Zwischen$ = Mid( CBText$, 1, len(CBText$)-1 )
+        if Zwischen$ <> "" then
+            if asc ( Right( Zwischen$, 1 )) = 13 then
+                GetClipboardText = Mid( Zwischen$, 1, len(Zwischen$)-1 )
+            else
+                GetClipboardText = Zwischen$
+            end if
+        else
+            GetClipboardText = Zwischen$
+        end if
+    else
+        if asc ( Right( CBText$, 1 )) = 13 then
+            Zwischen$ = Mid( CBText$, 1, len(CBText$)-1 )
+            if asc ( Right( Zwischen$, 1 )) = 10 then
+                GetClipboardText = Mid( Zwischen$, 1, len(Zwischen$)-1 )
+            else
+                GetClipboardText = Zwischen$
+            end if
+        else
+            GetClipboardText = CBText$
+        end if
+    end if
+    
+end function
 
-*****
+'*******************************************************************************
 
 function hDoubleClickInList ( window, Selektion as String, optional bFocus as boolean ) as Boolean
 

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=1231427&r1=1231426&r2=1231427&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 Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,898 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* 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/graphics/optional/includes/impress/i_saveloadlayout.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,56 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description: Save & Load testing of Layout -templates.
+'*
+'\**************************************************************************************
+
+testcase tSaveLoadLayoutEmpty
+    Dim NewFileDir as String
+    NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
+
+    printlog "Create New folder in the Work-directory"
+    printlog "    Will try to create the directory: " + NewFileDir
+    app.mkdir NewFileDir
 
-**************************
+    printlog "Create a new document, add an empty Layout, Save the document in all available Formats, and open the saved files."
+
+    printlog "Make new Presentation"
+    gApplication = "IMPRESS"
+    Call hNewDocument
+
+    printlog "Choose and Insert an empty Layout."
+    printlog "   Choose and Insert an empty Layout."
+    FormatModifyPage
+    sleep (1)
+    kontext "Tasks"
+    LayoutsPreview.TypeKeys "<HOME>"
+    kontext "Pagelayout_UndoDeleteWarning"
+    if Pagelayout_UndoDeleteWarning.exists then
+        Pagelayout_UndoDeleteWarning.ok
+    end if
+    kontext "Tasks"
+    printlog "Press Enter to use the layout on the current slide"
+    LayoutsPreview.TypeKeys "<RETURN>"
+    sleep (5)
+
+    printlog "Save the document in different formats..."
+    printlog "Close the file."
+    printlog "Load the different files."
+    call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below. 
+
+    printlog "Delete the different files."
+    printlog "   Will try to delete the directory: " + NewFileDir
+    app.rmDir NewFileDir
+
+    printlog "tSaveLoadLayoutEmpty ended."
+    printlog "End the test"
+endcase 'tSaveLoadLayoutEmpty
+
+'****************************************************************************************************
 
 testcase tSaveLoadLayoutText
     printlog "Testing layout with text."

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_002_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_002_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_002_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_002_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,21 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description :
+'*
+'\*****************************************************************
+
+sub d_002
+
+    call tdEditCrossFading()
+    call tdEditLayer()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tdEditCrossFading
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_003_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_003_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_003_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_003_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,21 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description :
+'*
+'\*****************************************************************
+
+sub d_003
+
+    call tdViewPagePane()
+    call tdViewSlide()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tdViewPagePane
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_005_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_005_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_005_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_005_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,20 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description :
+'*
+'\*****************************************************************
+
+sub d_005
+
+    call tiFormatLayer()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tiFormatLayer
     

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_007.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_007.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_007.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/draw/d_007.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,20 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description :
+'*
+'\*****************************************************************
+
+sub d_007
+
+    call tdModifyRotate()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tdModifyRotate
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_002_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_002_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_002_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_002_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,20 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Impress Required Test Library (2)
+'*
+'\*****************************************************************
+
+sub im_002_
+
+    call tiEditDeleteSlide()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tiEditDeleteSlide
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_003_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_003_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_003_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_003_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,23 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Impress Resource Test: View Menu
+'*
+'\******************************************************************************
+
+sub im_003_
+
+    call tiViewPanes()
+    call tiViewMasterView()
+    call tiViewSlideMaster()
+    call tiViewToolbar_1()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tiViewPanes
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_004_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_004_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_004_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_004_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,20 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Impress Required Test Library (4)
+'*
+'\*****************************************************************
+
+sub im_004_
+
+    call tiInsertSlideExpandSummary()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tiInsertSlideExpandSummary
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_005_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_005_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_005_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_005_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,20 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Impress Required Test Library (5)
+'*
+'\*****************************************************************
+
+sub im_005_
+
+    call tiFormatModifyLayout()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tiFormatModifyLayout
 

Modified: incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_007_.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_007_.inc?rev=1231427&r1=1231426&r2=1231427&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_007_.inc (original)
+++ incubator/ooo/trunk/main/testautomation/graphics/required/includes/impress/im_007_.inc Sat Jan 14 00:57:08 2012
@@ -1,6 +1,6 @@
 'encoding UTF-8  Do not remove or change this line!
-'*************************************************************************
-'
+'**************************************************************
+'  
 '  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
@@ -17,10 +17,28 @@
 '  KIND, either express or implied.  See the License for the
 '  specific language governing permissions and limitations
 '  under the License.
-'
-'*************************************************************************
+'  
+'**************************************************************
+'*
+'* short description : Impress Required Test Library (7)
+'*
+'\*****************************************************************
+
+sub im_007_
+
+    call tSlideShowSlideShow()
+    call tSlideShowRehearseTimings()
+    call tSlideShowSlideShowSettings()
+    call tSlideShowCustomSlideShow()
+    call tSlideShowSlideTransition()
+    call tSlideShowShowHideSlide()
+    call tSlideShowCustomAnimation()
+    call tSlideShowInteraction()
+    call tSlideShowAnimation()
+
+end sub
 
-*****
+'*******************************************************************************
 
 testcase tSlideShowSlideShow
 



Mime
View raw message