testautomation/global/required/includes/g_customize.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_customize.inc,v $
  10 '*
  11 '* $Revision: 1.4 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:41:02 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* Owner : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : update and resouce test for tools/customize
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1  tToolsCustomize
  41 '*
  42 '\***********************************************************************
  43
  44 testcase tToolsCustomize
  45
  46     Dim iCountMsgBox as integer
  47     '/// open application ///'
  48     Call hNewDocument
  49     sleep 2
  50     '/// Tools->Customize... ///'
  51     ToolsCustomize
  52     sleep 3
  53     Kontext
  54     '/// switch to tabpage 'Menus' ///'
  55     try
  56         Active.SetPage TabCustomizeMenu             ' 1 ------------------
  57     catch
  58         warnlog "couldn't switch to tabpage 'Menus'"
  59     endcatch
  60     Kontext "TabCustomizeMenu"
  61     if TabCustomizeMenu.exists(5) then
  62         Call DialogTest ( TabCustomizeMenu )
  63         '/// Go in 'Menu' list-box one item down
  64         Menu.typeKeys("<down>")
  65         '/// Go in 'Entries' list-box one item down
  66         Entries.typeKeys("<down>")
  67         sleep(2)
  68         '/// click button 'new' ///'
  69         BtnNew.Click
  70         sleep(1)
  71         '/// 'New Menu' dialog comes up ///'
  72         Kontext "MenuOrganiser"
  73         Call DialogTest ( MenuOrganiser )
  74         '/// Cancel dialog 'New Menu' ///'
  75         MenuOrganiser.cancel
  76         sleep(2)
  77
  78         Kontext "TabCustomizeMenu"
  79         '/// In 'Menu' list-box select one item up
  80         Menu.Select(1)
  81         sleep(1)
  82         '/// Click on button 'Menu' ///'
  83         MenuBtn.openMenu
  84         printlog "opened first one"
  85         sleep(1)
  86         '/// Select the first entry 'Move' ///'
  87         hMenuSelectNr(1)
  88         '/// Dialog 'Move Menu' comes up ///'
  89         Kontext "MenuOrganiser"
  90         Call DialogTest ( MenuOrganiser )
  91         '/// Click on the 'Up'-button ///'
  92         ButtonUp.click
  93         '/// Click on the 'Down'-button ///'
  94         ButtonDown.click
  95         '/// Cancel Dialog 'Move Menu' ///'
  96         MenuOrganiser.cancel
  97
  98         Kontext "TabCustomizeMenu"
  99         '/// Click Button 'Add Commands' ///'
 100         AddCommands.click
 101         '/// Dialog 'Add Commands' comes up ///'
 102         Kontext "ScriptSelector"
 103         call DialogTest(ScriptSelector)
 104         LibraryTreeList.typeKeys ("<down>")
 105         ScriptList.typeKeys ("<down>")
 106         '/// Close Dialog 'Add Commands' ///'
 107         ScriptSelector.cancel
 108
 109         Kontext "TabCustomizeMenu"
 110         '/// Click button 'Command' ///'
 111         Command.click
 112         printlog "opened second one"
 113         WaitSlot()
 114         '/// Select the first entry 'Add Submenu' ///'
 115         hMenuSelectNr(1)
 116         '/// Dialog 'Name' comes up ///'
 117         Kontext "CustomizeMenuName"
 118         call DialogTest (CustomizeMenuName)
 119         Eingabefeld.typeKeys ("A")
 120         '/// Cancel Dialog 'Name' ///'
 121         CustomizeMenuName.cancel
 122
 123         WaitSlot()
 124         Kontext "TabCustomizeMenu"
 125         '/// Click button 'Command' ///'
 126         Command.click
 127         printlog "opened third one"
 128         WaitSlot()
 129         '/// Select the third entry 'Rename' ///'
 130         hMenuSelectNr(3)
 131         '/// Dialog 'Name' comes up ///'
 132         Kontext "CustomizeMenuReName"
 133         call DialogTest (CustomizeMenuReName)
 134         Eingabefeld.typeKeys ("A")
 135         '/// Cancel Dialog 'Name' ///'
 136         CustomizeMenuReName.cancel
 137
 138         Kontext "TabCustomizeMenu"
 139         '/// click button 'downwards' ///'
 140         BtnDown.Click
 141         '/// click button 'upwards' ///'
 142         BtnUp.Click
 143         '/// click button 'Reset' ///'
 144         ResetBtn.Click
 145         kontext
 146         printlog "survived all menu comands"
 147         if Messagebox.exists (5) then
 148             if Messagebox.GetRT = 304 then
 149                 printlog "Messagebox: Menu configuration will be reset...: '"+Messagebox.getText+"'"
 150                 call DialogTest(Messagebox, 50)
 151                 Messagebox.yes
 152             endif
 153         endif
 154     endif
 155
 156         Kontext
 157         '/// switch to tabpage 'Toolbars' ///'
 158     try
 159         Messagebox.SetPage TabCustomizeToolbars    ' 4 ------------------
 160     catch
 161         warnlog "couldn't switch to tabpage 'Toolbars'"
 162     endcatch
 163     Kontext "TabCustomizeToolbars"
 164     if TabCustomizeToolbars.exists(5) then
 165         Call DialogTest ( TabCustomizeToolbars )
 166         Menu.typeKeys("<down>")
 167         ToolbarContents.typeKeys("<down>")
 168         SaveIn.typeKeys("<down>")
 169         '/// click button 'new' ///'
 170         BtnNew.Click
 171         waitslot
 172         '/// Dialog 'Name' comes up ///'
 173         Kontext "NewToolbar"
 174         Call DialogTest ( NewToolbar )
 175         ToolbarName.typeKeys("<down>")
 176         SaveIn.typeKeys("<down>")
 177         '/// Cancel dialog 'Name' ///'
 178         NewToolbar.cancel
 179         waitslot
 180
 181         Kontext "TabCustomizeToolbars"
 182         '/// Click Button 'Add Commands...' ///'
 183         SaveIn.typeKeys("<up>")
 184         AddCommands.click
 185         '/// Dialog 'Add Commands' comes up ///'
 186         Kontext "ScriptSelector"
 187         call DialogTest (ScriptSelector)
 188         LibraryTreeList.typeKeys("<down>")
 189         ScriptList.typeKeys("<down>")
 190         '/// Close Dialog 'Add Commands' ///'
 191         ScriptSelector.cancel
 192
 193         waitslot
 194         Kontext "TabCustomizeToolbars"
 195         '/// Click button 'Command' ///'
 196         Command.click
 197         '/// Select the firste entry 'Rename' ///'
 198         hMenuSelectNr(1)
 199         '/// Dialog 'Name' comes up ///'
 200         Kontext "CustomizeToolbarsReName"
 201         if NOT CustomizeToolbarsReName.exists(2) then
 202         Kontext "TabCustomizeToolbars"
 203         ToolbarContents.typeKeys("<down>")
 204         else
 205         CustomizeToolbarsReName.cancel()
 206         endif
 207
 208         Kontext "TabCustomizeToolbars"
 209         Command.click
 210         hMenuSelectNr(1)
 211         Kontext "CustomizeToolbarsReName"
 212         call DialogTest (CustomizeToolbarsReName)
 213         Eingabefeld.typeKeys ("A")
 214         '/// Cancel Dialog 'Name' ///'
 215         CustomizeToolbarsReName.close
 216
 217         waitslot
 218         Kontext "TabCustomizeToolbars"
 219         '/// Click button 'Command' ///'
 220         Command.click
 221         '/// Select the fifth entry 'Change Icon' ///'
 222         hMenuSelectNr(5)
 223         '/// Dialog 'Change Icon' comes up ///'
 224         Kontext "ChangeIcon"
 225         call DialogTest (ChangeIcon)
 226         '/// Click button 'Import...' on dialog Change 'Icon' ///'
 227         Import.click
 228         '/// Dialog 'Open' comes up ///'
 229         Kontext "GeneralFileDialog"
 230         '/// Cancel dialog 'Open' ///'
 231         GeneralFileDialog.cancel
 232         '/// Cancel Dialog 'Change Icon' ///'
 233         Kontext "ChangeIcon"
 234         ChangeIcon.cancel
 235
 236         Kontext "TabCustomizeToolbars"
 237         '/// click button 'downwards' ///'
 238         BtnDown.Click
 239         '/// click button 'upwards' ///'
 240         BtnUp.Click
 241         '/// click button 'Reset' ///'
 242         ResetBtn.Click
 243         kontext
 244         if Messagebox.exists (5) then
 245             if Messagebox.GetRT = 304 then
 246                 printlog "Messagebox: Menu configuration will be reset...: '"+Messagebox.getText+"'"
 247                 call DialogTest(Messagebox, 50)
 248                 Messagebox.no
 249             endif
 250         endif
 251
 252         WaitSlot()
 253         Kontext "TabCustomizeToolbars"
 254         '/// On Tab Page 'Customize Menus' click on Button 'Toolbar' ///'
 255         MenuBtn.openMenu
 256         WaitSlot()
 257         hMenuSelectNr(1)
 258         kontext
 259         sleep 3
 260         if Messagebox.exists (5) then
 261             if Messagebox.GetRT = 304 then
 262                 printlog "Messagebox: Toolbar configuration will be reset...: '"+Messagebox.getText+"'"
 263                 call DialogTest(Messagebox, 50)
 264                 Messagebox.no
 265             endif
 266         endif
 267     endif
 268         Kontext
 269         '/// switch to tabpage 'Events' ///'
 270     try
 271         Messagebox.SetPage TabCustomizeEvents      ' 5 ------------------
 272     catch
 273         warnlog "couldn't switch to tabpage 'Events'"
 274     endcatch
 275     Kontext "TabCustomizeEvents"
 276     if TabCustomizeEvents.exists(5) then
 277         Call DialogTest ( TabCustomizeEvents )
 278         SaveIn.typeKeys("<down>")
 279         EventListbox.typeKeys("<down>")
 280         WaitSlot()
 281         '/// click button 'Assign Macro' ///'
 282         AssignMacro.Click
 283         WaitSlot()
 284         ' If Java is not [correctly] installed a messagebox will be shown
 285         Kontext "Messagebox"
 286         if Messagebox.Exists(2) then
 287             for iCountMsgBox = 1 to 20
 288                 Kontext "Messagebox"
 289                 if MessageBox.Exists(2) then
 290                     if MessageBox.GetRT = 304 then
 291                         if iCountMsgBox = 1 then
 292                             warnlog "Java runtime is defective. Detection failed!"
 293                         endif
 294                         '.getRT is need because otherwise the operation will be done
 295                         'on the opened tab control behind the message box
 296                         QAErrorLog "Dialog (" & iCountMsgBox & "): " & Messagebox.GetText
 297                         if iCountMsgBox > 15 then
 298                             warnlog "Now the message box occours " & iCountMsgBox & " instead of 15 times!"
 299                         endif
 300                         Messagebox.OK
 301                     endif
 302                 else
 303                     exit for
 304                 endif
 305             next iCountMsgBox
 306         endif
 307         '/// Dialog 'MacroSelector' comes up ///'
 308         Kontext "ScriptSelector"
 309         call DialogTest (ScriptSelector)
 310         LibraryTreeList.typeKeys("<down>")
 311         ScriptList.typeKeys("<down>")
 312         '/// Cancel Dialog 'MacroSelector' ///'
 313         ScriptSelector.cancel
 314         '/// click button 'Remove Macro' ///'
 315         Kontext "TabCustomizeEvents"
 316         RemoveMacro.Click
 317         WaitSlot()
 318         '/// Press Button 'Reset' ///'
 319         ResetBtn.click
 320         '/// cancel dialog 'Customize' ///'
 321         Kontext "TabCustomizeEvents"
 322         TabCustomizeEvents.cancel
 323     endif
 324
 325     '/// close application ///'
 326     Call hCloseDocument
 327 endcase
 328