You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@openoffice.apache.org by ar...@apache.org on 2012/01/14 01:57:11 UTC
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...
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 "UTF8"</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 "UTF8"</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 "UTF8"</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 "UTF8"</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