testautomation/writer/tools/includes/w_tool4.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_tool4.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:43:40 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*                                                                **
  33 '* owner : helge.delfs@sun.com                                    **
  34 '*                                                                **
  35 '* short description : Misc tools for writer tests                **
  36 '*                                                                **
  37 '*******************************************************************
  38 '*                                                                **
  39 ' #1 CountItemsInNavigatorGroup(Group as integer) as Integer
  40 ' #1 wCheckOutline
  41 ' #1 wSetZoom
  42 ' #1 wGetSpellcheckDocumentName
  43 ' #1 wToolsSpellcheckCheckWriter
  44 ' #1 wEnableAutoSpellcheck
  45 ' #1 wEnableHyphenation
  46 '*                                                                **
  47 '\******************************************************************
  48
  49 function CountItemsInNavigatorGroup(Group as integer) as Integer
  50     Dim j as integer,SelectInNavigator as integer
  51     'First, select the Navigator depending on the application
  52     Kontext "Navigator"
  53     If Not Navigator.Exists then ViewNavigator
  54     Kontext "NavigatorWriter"
  55
  56     'In Navigator, close all groups and set focus to first group
  57     Sleep 2
  58     if Auswahlliste.GetItemCount<12 then Inhaltsansicht.Click
  59     Wait 500
  60     'Close all groups in Navigator
  61     if Auswahlliste.GetItemCount >12 then
  62         For j= 1 to 12
  63             Auswahlliste.Select j
  64             Auswahlliste.TypeKeys "-"
  65         next j
  66     end if
  67
  68     Wait 500
  69     'Select group given by the function
  70     Auswahlliste.Select Group
  71     ' Open group
  72     Auswahlliste.TypeKeys "+"
  73     Inhaltsansicht.Click
  74     CountItemsInNavigatorGroup = Auswahlliste.GetItemCount - 1
  75     Inhaltsansicht.Click
  76
  77 end function
  78
  79 '*******************************************************************
  80
  81 function wCheckOutline(WhatToFind as string) as boolean
  82     '/// This function checks the Outline in level 1 test.
  83     '/// Purpose is to have a little tolerance, because when resolution changes, the
  84     '/// line breaks are different
  85     wCheckOutline = False
  86     Kontext "DocumentImpressOutlineView"
  87     DocumentImpressOutlineView.TypeKeys "<Home><Down>" ,1
  88     DocumentImpressOutlineView.TypeKeys "<Home><Shift End>"
  89     EditCopy
  90     if GetClipboardText <> WhatToFind then
  91         DocumentImpressOutlineView.TypeKeys "<Home><Up>" ,2
  92         DocumentImpressOutlineView.TypeKeys "<Home><Shift End>"
  93         EditCopy
  94         if GetClipboardText = WhatToFind then
  95             wCheckOutline = True
  96         end if
  97     else
  98         wCheckOutline = True
  99     end if
 100 end function
 101
 102 '*******************************************************************
 103
 104 function wSetZoom (  )
 105     '/// This function sets the zoom size to 100% in a text document
 106
 107     ViewZoom
 108     Kontext "Massstab"
 109     Vergroesserung100.Check
 110     Massstab.OK
 111     Sleep 1
 112
 113
 114 end function
 115
 116 '*******************************************************************
 117
 118 function wGetSpellcheckDocumentName(xCategory as integer) as string
 119     Dim sTemp as string, sReturn as string
 120     '/// This function is to return the document to load in spellcheck test
 121     select case xCategory
 122     case 1:
 123         select case iSprache
 124         case 81, 82, 86, 88
 125             sReturn = "None"
 126         case 1
 127             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_01.odt")
 128         case 3
 129             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_03.odt")
 130         case 7
 131             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_07.odt")
 132         case else
 133             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_" & iSprache & ".odt")
 134         end select
 135
 136     case 2:
 137         select case iSprache
 138         case 81, 82, 86, 88
 139             sReturn = "None"
 140         case 1
 141             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\001.odt")
 142         case 3
 143             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\003.odt")
 144         case 7
 145             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\007.odt")
 146         case else
 147             sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\0" & iSprache & ".odt")
 148         end select
 149     end select
 150
 151     if sReturn <> "None" then
 152         if hFileExists(sTemp) then
 153             sReturn = sTemp
 154         else
 155             sReturn = "Empty"
 156         end if
 157     end if
 158
 159     wGetSpellcheckDocumentName = sReturn
 160
 161 end function
 162
 163 '*******************************************************************
 164
 165 sub wToolsSpellcheckCheckWriter
 166     '/// This function opens the spellcheck-dialog in all applications
 167     Select Case Ucase(gApplication)
 168     Case "WRITER"               : ToolsSpellcheckWriter
 169     Case "MASTERDOCUMENT"       : ToolsSpellcheckWriter
 170     Case "HTML" : ToolsSpellcheckWriter
 171     case "DRAW"         : ToolsSpellcheck
 172     case "IMPRESS"      : ToolsSpellcheck
 173     end select
 174 end sub
 175
 176 '*******************************************************************
 177
 178 sub wEnableAutoSpellcheck(sEnable as boolean)
 179     '/// This function checks option 'AutoCheck' in Options
 180     '/// requires a bool to indicate state
 181     '/// from 680m61 on it is checked by default
 182     ExtrasOptionen
 183     Kontext "ExtrasOptionenDLG"
 184     Call hToolsOptions("LanguageSettings","WritingAids")
 185     Optionen.Select 1
 186     Select Case sEnable
 187     Case true
 188         Optionen.Check
 189     Case false
 190         Optionen.UnCheck
 191     end select
 192     Kontext "ExtrasOptionenDLG"
 193     ExtrasOptionenDLG.Ok
 194
 195 end sub
 196
 197 '*******************************************************************
 198
 199 sub wEnableHyphenation(sEnable as boolean)
 200     '/// This function enables/disables hyphenation
 201     '/// through Format / Paragraph / Textflow
 202     Call hNewDocument
 203     FormatParagraph
 204     Kontext
 205     Active.SetPage TabTextfluss
 206     kontext "TabTextfluss"
 207     Select Case sEnable
 208     case true
 209         Automatisch.Check
 210     case false
 211         Automatisch.UnCheck
 212     end select
 213     TabTextfluss.OK
 214     Call hCloseDocument
 215
 216 end sub