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