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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : Resource test of toolbar behavior
  31 '*
  32 '\************************************************************************
  33
  34 testcase tToolbarBehavior
  35     hNewDocument()
  36     sleep (5)
  37         'ViewToolbarsReset
  38         hUseMenu()
  39         printlog hMenuSelectNr(3)
  40         printlog hMenuSelectNr(3)
  41         printlog hMenuSelectNr(-1)
  42         kontext
  43         if active.exists(5) then
  44             active.setPage TabCustomizeMenu
  45             if TabCustomizeMenu.exists(5) then
  46                 printlog "All Tooolbars are available."
  47                 TabCustomizeMenu.cancel
  48             else
  49                 printlog "Resetet Toolbars."
  50             endif
  51         else
  52             printlog "Toolbars resetet"
  53         endif
  54     kontext "TableObjectBar"
  55     if TableObjectBar.exists(5) then
  56         warnlog "Toolbar is already available?"
  57     else
  58         printlog "Toolbar is not available"
  59     endif
  60     InsertTableWriter
  61     kontext "TabelleEinfuegenWriter"
  62     if TabelleEinfuegenWriter.exists (5) then
  63         TabelleEinfuegenWriter.ok
  64         sleep (2)
  65     else
  66         warnlog "no table"
  67     endif
  68     kontext "TableObjectBar"
  69     if TableObjectBar.exists(5) then
  70         printlog "Toolbar is available."
  71     else
  72         warnlog "Toolbar is not available"
  73     endif
  74
  75     if NOT TableObjectBar.isDocked then
  76         TableObjectBar.dock
  77         printlog "Toolbar got docked, to use thier kontext menu"
  78     endif
  79         TableObjectBar.openContextMenu
  80         printlog hMenuSelectNr(-1)
  81         kontext "TableObjectBar"
  82         if TableObjectBar.exists(5) then
  83             warnlog "Toolbar is still available"
  84         else
  85             printlog "Toolbar is not available"
  86         endif
  87         hTypeKeys("<mod1 end><mod1 end>")
  88         kontext "TableObjectBar"
  89         if TableObjectBar.exists(5) then
  90             warnlog "Toolbar is still available"
  91         else
  92             printlog "Toolbar is not available"
  93         endif
  94     hTypeKeys("<mod1 home>")
  95     kontext "TableObjectBar"
  96     if TableObjectBar.exists(5) then
  97         printlog "Toolbar is available."
  98     else
  99         warnlog "Toolbar is not available"
 100     endif
 101
 102     Call hToolbarSelect ( "Table", false )
 103     kontext "TableObjectBar"
 104     if TableObjectBar.exists(5) then
 105         warnlog "Toolbar is still available"
 106     else
 107         printlog "Toolbar is not available"
 108     endif
 109
 110     hTypeKeys("<mod1 end><mod1 end>")
 111     kontext "TableObjectBar"
 112     if TableObjectBar.exists(5) then
 113         warnlog "Toolbar is available again"
 114     else
 115         printlog "Toolbar is not available"
 116     endif
 117
 118     hTypeKeys("<mod1 home>")
 119     kontext "TableObjectBar"
 120     if TableObjectBar.exists(5) then
 121         warnlog "Toolbar is available again"
 122     else
 123         printlog "Toolbar is not available"
 124     endif
 125
 126         'ViewToolbarsReset
 127         hUseMenu()
 128         printlog hMenuSelectNr(3)
 129         printlog hMenuSelectNr(3)
 130         printlog hMenuSelectNr(-1)
 131         kontext
 132         if active.exists(5) then
 133             active.setPage TabCustomizeMenu
 134             if TabCustomizeMenu.exists(5) then
 135                 warnlog "Can't reset toolbars"
 136                 TabCustomizeMenu.cancel
 137             else
 138                 printlog "Resetet Toolbars."
 139             endif
 140         else
 141             printlog "Toolbars resetet"
 142         endif
 143     kontext "TableObjectBar"
 144     if TableObjectBar.exists(5) then
 145         printlog "Toolbar is available."
 146     else
 147         warnlog "Toolbar is not available"
 148     endif
 149
 150     hCloseDocument()
 151 endcase
 152