testautomation/framework/optional/includes/fontworkgallery.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: fontworkgallery.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 font work gallery
  37 '*
  38 '\************************************************************************
  39
  40 sub sFontworkGalleryUpdate
  41     dim sApplication
  42     dim i,a as integer
  43
  44     sApplication = array("WRITER","MASTERDOCUMENT","CALC","IMPRESS","DRAW")
  45
  46     ' for every application
  47     a = uBound(sApplication())
  48     for i = 0 to a
  49         gApplication = sApplication(i)
  50         printlog "********** " + gApplication
  51         tFontworkGalleryUpdate
  52     next i
  53 end sub
  54
  55 testcase tFontworkGalleryUpdate
  56     dim j,b as integer
  57
  58 'i67024     -     tbo     sj     Help-IDs missing on the windows items for FontworkAlignment and FontworkCharacterSpacing
  59 'i66989     -     tbo     sj     Fontwork Gallery control has no Help-ID
  60     '/// close all applications, exept the backingwindow, to make sure the right toolbar is used by TestTool ///'
  61     b = getDocumentCount
  62     for j = 1 to b
  63         printlog "closing: " + j
  64         hCloseDocument()
  65     next j
  66     '/// open new application window ///'
  67     hNewDocument()
  68     sleep (5)
  69     '/// if toolbar 'Drawing' is not visible, open it by View - Toolbars - Drawing ///'
  70     Kontext "Drawbar"
  71     if NOT Drawbar.exists then
  72         hToolbarSelect("DRAWING",true)
  73         printlog "opened drawing toolbar"
  74     endif
  75     if Drawbar.exists then
  76         '/// Click button 'Fontwork Gallery' on toolbar 'Drawing' ///'
  77         FontworkGallery.click
  78
  79         Kontext "FontworkGallery"
  80         '/// the dialog 'Fontwork Gallery' has to come up ///'
  81         dialogtest(FontworkGallery)
  82         '/// In the dialog 'Fontwork Gallery' type key <cursor right> ///'
  83         FontworkGallery.typeKeys("<right>", true)
  84         '/// In the dialog 'Fontwork Gallery' press and release right mouse button in the middle of the dialog ///'
  85         FontworkGallery.mousedown(50,50)
  86         FontworkGallery.mouseup(50,50)
  87         '/// on the dialog 'Fontwork Gallery' press button OK ///'
  88         FontworkGallery.OK
  89
  90         '/// an Fontwork object will be inserted now ///'
  91         sleep 5
  92         '/// The toolbar 'Fontwork' has to come up///'
  93         Kontext "FontworkObjectbar"
  94         if FontworkObjectbar.exists then
  95             '/// On the toolbar 'Fontwork' click the button 'Fontwork Gallery' ///'
  96             FontworkGallery.click
  97             '/// dialog 'Fontwork Gallery' has to come up ///'
  98             Kontext "FontworkGallery"
  99             dialogtest(FontworkGallery)
 100             '/// close dialog 'Fontwork Gallery' by clicking CANCEL button ///'
 101             FontworkGallery.cancel
 102
 103             Kontext "FontworkObjectbar"
 104             '/// On the toolbar 'Fontwork' click the button 'Fontwork Shape' ///'
 105             FontworkShape.click
 106             '/// toolbar 'Fontwork Shape' has to come up ///'
 107             Kontext "FontworkShape"
 108             '/// press button 'Plain Text' on toolbar 'Fontwork Shape' ///'
 109             PlainText.click
 110
 111             Kontext "FontworkObjectbar"
 112             '/// On the toolbar 'Fontwork' click the button 'Fontwork Same Letter Heights' ///'
 113             FontworkSameLetterHeights.click
 114             sleep 3
 115
 116             Kontext "FontworkObjectbar"
 117             '/// On the toolbar 'Fontwork' click the button 'Fontwork Alignment' ///'
 118             FontworkAlignment.click
 119             Kontext "FontworkAlignment"
 120             if FontworkAlignment.exists(5) then
 121                 dialogtest(FontworkAlignment)
 122                 FontworkAlignment.close
 123             else
 124                 printlog "beginning workaround lockup"
 125                 hUseMenu()
 126                 hMenuClose()
 127                 sleep 3
 128                 Kontext "FontworkObjectbar"
 129                 FontworkAlignment.click
 130                 Kontext "FontworkAlignment"
 131                 if FontworkAlignment.exists(5) then
 132                     dialogtest(FontworkAlignment)
 133                     FontworkAlignment.close
 134                 else
 135                     warnlog "FontworkAlignment dialog not visible"
 136                 endif
 137             endif
 138
 139             Kontext "FontworkObjectbar"
 140             '/// On the toolbar 'Fontwork' click the button 'Fontwork Character Spacing' ///'
 141             FontworkCharacterSpacing.click
 142             '/// toolbox 'Fontwork Character Spacing' has to come up ///'
 143             Kontext "FontworkCharacterSpacing"
 144             if FontworkCharacterSpacing.exists(5) then
 145                 'dialogtest(FontworkCharacterSpacing)
 146                 '/// try to select the entry 'Custom ...' with keys, since Help Ids are missing ///'
 147                 FontworkCharacterSpacing.typeKeys ("<down><down><down><down><down><return>")
 148                 '/// dialog 'Fontwork Character Spacing' has to come up ///'
 149                 Kontext "FontworkCharacterSpacingCustom"
 150                 if FontworkCharacterSpacingCustom.exists(5) then
 151                     dialogtest(FontworkCharacterSpacingCustom)
 152                     printlog value.getText
 153                     '/// close dialog 'Fontwork Character Spacing' ///'
 154                     FontworkCharacterSpacingCustom.close
 155                 else
 156                     printlog "dialog FontworkCharacterSpacingCustom didn't came up"
 157                 endif
 158                 Kontext "FontworkCharacterSpacing"
 159                 if FontworkCharacterSpacing.exists(5) then
 160                     '/// close dialog 'Fontwork Character Spacing' ///'
 161                     FontworkCharacterSpacing.close
 162                 else
 163                     printlog "dialog FontworkCharacterSpacing was closed in another way"
 164                 endif
 165             else
 166                 warnlog "fontWork characterspacing drop down menu is not visible"
 167             endif
 168         else
 169             warnlog "fontWork toolbar is not visible"
 170         endif
 171     else
 172         warnlog "Draw toolbar is not visible"
 173     endif
 174     hCloseDocument()
 175 endcase
 176