testautomation/framework/optional/includes/toolbar_behavior.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: toolbar_behavior.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:16 $
  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 : Resource test of toolbar behavior
  37 '*
  38 '\************************************************************************
  39
  40 testcase tToolbarBehavior
  41 '/// context sensitive ///'
  42     hNewDocument()
  43     sleep (5)
  44 '/// presupposion recover ///'
  45 '/// if enabled: view->toolbars->reset ///'
  46         'ViewToolbarsReset
  47         hUseMenu()
  48         printlog hMenuSelectNr(3)
  49         printlog hMenuSelectNr(3)
  50         printlog hMenuSelectNr(-1)
  51         kontext
  52         if active.exists(5) then
  53             active.setPage TabCustomizeMenu
  54             if TabCustomizeMenu.exists(5) then
  55                 printlog "All Tooolbars are available."
  56                 TabCustomizeMenu.cancel
  57             else
  58                 printlog "Resetet Toolbars."
  59             endif
  60         else
  61             printlog "Toolbars resetet"
  62         endif
  63 '/// writer with table ///'
  64     '/// check, that toolbar is not available ///'
  65     kontext "TableObjectBar"
  66     if TableObjectBar.exists(5) then
  67         warnlog "Toolbar is already available?"
  68     else
  69         printlog "Toolbar is not available"
  70     endif
  71     InsertTableWriter
  72     kontext "TabelleEinfuegenWriter"
  73     if TabelleEinfuegenWriter.exists (5) then
  74         TabelleEinfuegenWriter.ok
  75         sleep (2)
  76     else
  77         warnlog "no table"
  78     endif
  79 '/// toolbar is available now ///'
  80     kontext "TableObjectBar"
  81     if TableObjectBar.exists(5) then
  82         printlog "Toolbar is available."
  83     else
  84         warnlog "Toolbar is not available"
  85     endif
  86
  87 '/// close via toolbar->contextmenu->Close Toolbar ///'
  88     if NOT TableObjectBar.isDocked then
  89         TableObjectBar.dock
  90         printlog "Toolbar got docked, to use thier kontext menu"
  91     endif
  92         TableObjectBar.openContextMenu
  93         printlog hMenuSelectNr(-1)
  94         kontext "TableObjectBar"
  95         if TableObjectBar.exists(5) then
  96             warnlog "Toolbar is still available"
  97         else
  98             printlog "Toolbar is not available"
  99         endif
 100 '/// leave table ///'
 101         hTypeKeys("<mod1 end><mod1 end>")
 102         kontext "TableObjectBar"
 103         if TableObjectBar.exists(5) then
 104             warnlog "Toolbar is still available"
 105         else
 106             printlog "Toolbar is not available"
 107         endif
 108 '/// enter table again -> toolbar is available again ///'
 109     hTypeKeys("<mod1 home>")
 110     kontext "TableObjectBar"
 111     if TableObjectBar.exists(5) then
 112         printlog "Toolbar is available."
 113     else
 114         warnlog "Toolbar is not available"
 115     endif
 116
 117     '/// close toolbar permanently ///'
 118     Call hToolbarSelect ( "Table", false )
 119     kontext "TableObjectBar"
 120     if TableObjectBar.exists(5) then
 121         warnlog "Toolbar is still available"
 122     else
 123         printlog "Toolbar is not available"
 124     endif
 125
 126     '/// leave table ///'
 127     hTypeKeys("<mod1 end><mod1 end>")
 128     kontext "TableObjectBar"
 129     if TableObjectBar.exists(5) then
 130         warnlog "Toolbar is available again"
 131     else
 132         printlog "Toolbar is not available"
 133     endif
 134
 135     '/// enter table again: still no toolbar ///'
 136     hTypeKeys("<mod1 home>")
 137     kontext "TableObjectBar"
 138     if TableObjectBar.exists(5) then
 139         warnlog "Toolbar is available again"
 140     else
 141         printlog "Toolbar is not available"
 142     endif
 143
 144 '/// choose view->toolbars->reset ///'
 145         'ViewToolbarsReset
 146         hUseMenu()
 147         printlog hMenuSelectNr(3)
 148         printlog hMenuSelectNr(3)
 149         printlog hMenuSelectNr(-1)
 150         kontext
 151         if active.exists(5) then
 152             active.setPage TabCustomizeMenu
 153             if TabCustomizeMenu.exists(5) then
 154                 warnlog "Can't reset toolbars"
 155                 TabCustomizeMenu.cancel
 156             else
 157                 printlog "Resetet Toolbars."
 158             endif
 159         else
 160             printlog "Toolbars resetet"
 161         endif
 162 '/// toolbar is visible again ///'
 163     kontext "TableObjectBar"
 164     if TableObjectBar.exists(5) then
 165         printlog "Toolbar is available."
 166     else
 167         warnlog "Toolbar is not available"
 168     endif
 169
 170     hCloseDocument()
 171 endcase
 172