office-gobmx/testautomation/global/required/includes/g_customize.inc
2010-07-22 13:30:29 +02:00

331 lines
11 KiB
PHP

'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org. If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* Owner : thorsten.bosbach@oracle.com
'*
'* short description : update and resouce test for tools/customize
'*
'************************************************************************
'*
' #1 tToolsCustomize
'*
'\***********************************************************************
testcase tToolsCustomize
Dim iCountMsgBox as integer
'/// open application ///'
Call hNewDocument
sleep 2
'/// Tools->Customize... ///'
ToolsCustomize
sleep 3
Kontext
'/// switch to tabpage 'Menus' ///'
try
Active.SetPage TabCustomizeMenu ' 1 ------------------
catch
warnlog "couldn't switch to tabpage 'Menus'"
endcatch
Kontext "TabCustomizeMenu"
if TabCustomizeMenu.exists(5) then
Call DialogTest ( TabCustomizeMenu )
'/// Go in 'Menu' list-box one item down
Menu.typeKeys("<down>")
'/// Go in 'Entries' list-box one item down
Entries.typeKeys("<down>")
sleep(2)
'/// click button 'new' ///'
BtnNew.Click
sleep(1)
'/// 'New Menu' dialog comes up ///'
Kontext "MenuOrganiser"
Call DialogTest ( MenuOrganiser )
'/// Cancel dialog 'New Menu' ///'
MenuOrganiser.cancel
sleep(2)
Kontext "TabCustomizeMenu"
'/// In 'Menu' list-box select one item up
Menu.Select(1)
sleep(1)
'/// Click on button 'Menu' ///'
MenuBtn.openMenu
printlog "opened first one"
sleep(1)
'/// Select the first entry 'Move' ///'
hMenuSelectNr(1)
'/// Dialog 'Move Menu' comes up ///'
Kontext "MenuOrganiser"
Call DialogTest ( MenuOrganiser )
'/// Click on the 'Up'-button ///'
ButtonUp.click
'/// Click on the 'Down'-button ///'
ButtonDown.click
'/// Cancel Dialog 'Move Menu' ///'
MenuOrganiser.cancel
Kontext "TabCustomizeMenu"
'/// Click Button 'Add Commands' ///'
AddCommands.click
'/// Dialog 'Add Commands' comes up ///'
Kontext "ScriptSelector"
call DialogTest(ScriptSelector)
LibraryTreeList.typeKeys ("<down>")
ScriptList.typeKeys ("<down>")
'/// Close Dialog 'Add Commands' ///'
ScriptSelector.cancel
Kontext "TabCustomizeMenu"
'/// Click button 'Command' ///'
sleep(1)
Command.click
printlog "opened second one"
WaitSlot()
'/// Select the first entry 'Add Submenu' ///'
hMenuSelectNr(1)
'/// Dialog 'Name' comes up ///'
Kontext "CustomizeMenuName"
call DialogTest (CustomizeMenuName)
Eingabefeld.typeKeys ("A")
'/// Cancel Dialog 'Name' ///'
CustomizeMenuName.cancel
WaitSlot()
Kontext "TabCustomizeMenu"
'/// Click button 'Command' ///'
sleep(1)
Command.click
printlog "opened third one"
WaitSlot()
'/// Select the third entry 'Rename' ///'
hMenuSelectNr(3)
'/// Dialog 'Name' comes up ///'
Kontext "CustomizeMenuReName"
call DialogTest (CustomizeMenuReName)
Eingabefeld.typeKeys ("A")
'/// Cancel Dialog 'Name' ///'
CustomizeMenuReName.cancel
Kontext "TabCustomizeMenu"
'/// click button 'downwards' ///'
BtnDown.Click
'/// click button 'upwards' ///'
BtnUp.Click
'/// click button 'Reset' ///'
ResetBtn.Click
kontext
printlog "survived all menu comands"
if Messagebox.exists (5) then
if Messagebox.GetRT = 304 then
printlog "Messagebox: Menu configuration will be reset...: '"+Messagebox.getText+"'"
call DialogTest(Messagebox, 50)
Messagebox.yes
endif
endif
endif
Kontext
'/// switch to tabpage 'Toolbars' ///'
try
Messagebox.SetPage TabCustomizeToolbars ' 4 ------------------
catch
warnlog "couldn't switch to tabpage 'Toolbars'"
endcatch
Kontext "TabCustomizeToolbars"
if TabCustomizeToolbars.exists(5) then
Call DialogTest ( TabCustomizeToolbars )
Menu.typeKeys("<down>")
ToolbarContents.typeKeys("<down>")
SaveIn.typeKeys("<down>")
'/// click button 'new' ///'
BtnNew.Click
waitslot
'/// Dialog 'Name' comes up ///'
Kontext "NewToolbar"
Call DialogTest ( NewToolbar )
ToolbarName.typeKeys("<down>")
SaveIn.typeKeys("<down>")
'/// Cancel dialog 'Name' ///'
NewToolbar.cancel
waitslot
Kontext "TabCustomizeToolbars"
'/// Click Button 'Add Commands...' ///'
SaveIn.typeKeys("<up>")
AddCommands.click
'/// Dialog 'Add Commands' comes up ///'
Kontext "ScriptSelector"
call DialogTest (ScriptSelector)
LibraryTreeList.typeKeys("<down>")
ScriptList.typeKeys("<down>")
'/// Close Dialog 'Add Commands' ///'
ScriptSelector.cancel
waitslot
Kontext "TabCustomizeToolbars"
sleep(1)
'/// Click button 'Command' ///'
Command.click
waitslot
'/// Select the firste entry 'Rename' ///'
hMenuSelectNr(1)
'/// Dialog 'Name' comes up ///'
Kontext "CustomizeToolbarsReName"
if NOT CustomizeToolbarsReName.exists(2) then
Kontext "TabCustomizeToolbars"
ToolbarContents.typeKeys("<down>")
else
CustomizeToolbarsReName.cancel()
endif
Kontext "TabCustomizeToolbars"
sleep(1)
Command.click
waitslot
hMenuSelectNr(1)
Kontext "CustomizeToolbarsReName"
call DialogTest (CustomizeToolbarsReName)
Eingabefeld.typeKeys ("A")
'/// Cancel Dialog 'Name' ///'
CustomizeToolbarsReName.close
waitslot
Kontext "TabCustomizeToolbars"
'/// Click button 'Command' ///'
sleep(1)
Command.click
waitslot
'/// Select the fifth entry 'Change Icon' ///'
hMenuSelectNr(5)
'/// Dialog 'Change Icon' comes up ///'
Kontext "ChangeIcon"
call DialogTest (ChangeIcon)
'/// Click button 'Import...' on dialog Change 'Icon' ///'
Import.click
'/// Dialog 'Open' comes up ///'
Kontext "GeneralFileDialog"
'/// Cancel dialog 'Open' ///'
GeneralFileDialog.cancel
'/// Cancel Dialog 'Change Icon' ///'
Kontext "ChangeIcon"
ChangeIcon.cancel
Kontext "TabCustomizeToolbars"
'/// click button 'downwards' ///'
BtnDown.Click
'/// click button 'upwards' ///'
BtnUp.Click
'/// click button 'Reset' ///'
ResetBtn.Click
kontext
if Messagebox.exists (5) then
if Messagebox.GetRT = 304 then
printlog "Messagebox: Menu configuration will be reset...: '"+Messagebox.getText+"'"
call DialogTest(Messagebox, 50)
Messagebox.no
endif
endif
WaitSlot()
Kontext "TabCustomizeToolbars"
'/// On Tab Page 'Customize Menus' click on Button 'Toolbar' ///'
sleep(1)
MenuBtn.openMenu
WaitSlot()
hMenuSelectNr(1)
kontext
sleep 3
if Messagebox.exists (5) then
if Messagebox.GetRT = 304 then
printlog "Messagebox: Toolbar configuration will be reset...: '"+Messagebox.getText+"'"
call DialogTest(Messagebox, 50)
Messagebox.no
endif
endif
endif
Kontext
'/// switch to tabpage 'Events' ///'
try
Messagebox.SetPage TabCustomizeEvents ' 5 ------------------
catch
warnlog "couldn't switch to tabpage 'Events'"
endcatch
Kontext "TabCustomizeEvents"
if TabCustomizeEvents.exists(5) then
Call DialogTest ( TabCustomizeEvents )
SaveIn.typeKeys("<down>")
EventListbox.typeKeys("<down>")
WaitSlot()
'/// click button 'Assign Macro' ///'
AssignMacro.Click
WaitSlot()
' If Java is not [correctly] installed a messagebox will be shown
Kontext "Messagebox"
if Messagebox.Exists(2) then
for iCountMsgBox = 1 to 20
Kontext "Messagebox"
if MessageBox.Exists(2) then
if MessageBox.GetRT = 304 then
if iCountMsgBox = 1 then
warnlog "Java runtime is defective. Detection failed!"
endif
'.getRT is need because otherwise the operation will be done
'on the opened tab control behind the message box
QAErrorLog "Dialog (" & iCountMsgBox & "): " & Messagebox.GetText
if iCountMsgBox > 15 then
warnlog "Now the message box occours " & iCountMsgBox & " instead of 15 times!"
endif
Messagebox.OK
endif
else
exit for
endif
next iCountMsgBox
endif
'/// Dialog 'MacroSelector' comes up ///'
Kontext "ScriptSelector"
call DialogTest (ScriptSelector)
LibraryTreeList.typeKeys("<down>")
ScriptList.typeKeys("<down>")
'/// Cancel Dialog 'MacroSelector' ///'
ScriptSelector.cancel
'/// click button 'Remove Macro' ///'
Kontext "TabCustomizeEvents"
RemoveMacro.Click
WaitSlot()
'/// Press Button 'Reset' ///'
ResetBtn.click
'/// cancel dialog 'Customize' ///'
Kontext "TabCustomizeEvents"
TabCustomizeEvents.cancel
endif
'/// close application ///'
Call hCloseDocument
endcase