testautomation/framework/required/includes/standard_toolbar_5.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: standard_toolbar_5.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : global update test (Standardbar)
  37 '*
  38 '\***************************************************************************
  39
  40
  41 testcase tStandardBar_5
  42
  43     '///<h1>Update test: Configure the Standard Bar via Tools/Customize</h1>
  44     '///<ul>
  45
  46     '///+<li>open a new document</li>
  47     hCreateDocument()
  48
  49     '///+<li>open context menu on Standardbar and select the 2'th item (Customize)</li>
  50     printlog "Customize ..."
  51
  52     kontext "standardbar"
  53     Standardbar.OpenContextmenu()
  54     waitslot
  55     hMenuselectNr( 2 )
  56     waitslot
  57
  58     '///+<li>Select all tabpages ( Menu, Keyboard, Toolbars, Events )</li>
  59     '///<ol>
  60     '///+<li>Menu</li>
  61     hToolsCustomizeSelectTab( "menu" )
  62     call dialogtest( TabCustomizeMenu )
  63
  64     '///+<li>Keyboard</li>
  65     hToolsCustomizeSelectTab( "keyboard" )
  66     call dialogtest( Tabtastatur )
  67
  68     '///+<li>Toolbars</li>
  69     hToolsCustomizeSelectTab( "toolbars" )
  70     call dialogtest( TabCustomizeToolbars )
  71
  72     '///+<li>Events</li>
  73     hToolsCustomizeSelectTab( "events" )
  74     call dialogtest( TabCustomizeEvents )
  75
  76     '///+<li>Click on 'OK' at Event-Tabpage</li>
  77     kontext "tabcustomizeevents"
  78     TabCustomizeEvents.OK()
  79     '///</ol>
  80
  81     '///+<li>Open context menu on Standardbar and select the 2nd item (Customize Toolbar)</li>
  82     kontext "standardbar"
  83     Standardbar.OpenContextmenu()
  84     waitslot
  85     hMenuselectNr (2)
  86     waitslot
  87
  88     '///+<li>Close the Customize-Toolbars-Dialog with OK</li>
  89     kontext "tabcustomizetoolbars"
  90     TabCustomizeToolbars.OK()
  91
  92     '///+<li>Reset the StandardBar to defaults</li>
  93     printlog "Reset"
  94     hResetStandardBar()
  95
  96     '///+<li>close the document</li>
  97     hDestroyDocument()
  98     '///</ul>
  99
 100 endcase
 101
 102