blob: 93e389a67d695838c8559d44adcae071196d68c7 (
plain)
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
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' 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 : thorsten.bosbach@sun.com
'*
'* short description : Tools->Options: OpenOffice.org Accessibility
'*
'\******************************************************************************
testcase tOOoAccessibility
Dim lbSave ( 10 ) as Boolean
Dim sSave as String
printlog " - save default setting"
ToolsOptions
hToolsOptions ( "StarOffice", "Accessibility" )
lbSave (9) = AutomaticDetectHC.IsChecked
lbSave (2) = ForPagePreviews.IsChecked
lbSave (3) = HelpTips.IsChecked
sSave = After.GetText
lbSave (4) = AllowAnimatedGraphics.IsChecked
lbSave (5) = AllowAnimatedText.IsChecked
lbSave (6) = AlwaysUseAutomaticFontColor.IsChecked
'lbSave (7) = UseSystemFont.IsChecked
lbSave (10) = UseTextSelectionCursor.IsChecked
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
lbSave (8) = SupportAssistiveTechnologyTools.IsChecked
end if
printlog " - revers/change settings"
if lbSave (9) = TRUE then AutomaticDetectHC.UnCheck else AutomaticDetectHC.Check
if lbSave (2) = TRUE then ForPagePreviews.Uncheck else ForPagePreviews.Check
HelpTips.Check
After.SetText "17"
if lbSave (3) = TRUE then HelpTips.Uncheck else HelpTips.Check
if lbSave (4) = TRUE then AllowAnimatedGraphics.Uncheck else AllowAnimatedGraphics.Check
if lbSave (5) = TRUE then AllowAnimatedText.Uncheck else AllowAnimatedText.Check
if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Uncheck else AlwaysUseAutomaticFontColor.Check
'if lbSave (7) = TRUE then UseSystemFont.Uncheck else UseSystemFont.Check
if lbSave (10) = TRUE then UseTextSelectionCursor.Uncheck else UseTextSelectionCursor.Check
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
if (gPlatgroup <> "unx") then
Printlog "'Support assistive technology tools' won't be tested due to system dialog could come up and look the test out :-("
else
Warnlog "unexpected error 4711 :-)"
endif
' if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Uncheck else SupportAssistiveTechnologyTools.Check
else
if (gPlatgroup <> "unx") then
Warnlog "'Support assistive technology tools' is not available :-("
endif
end if
printlog " - press OK at the options dialog"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Sleep (3)
printlog " - exit/restart StarOffice"
ExitRestartTheOffice
printlog " - check settings"
ToolsOptions
hToolsOptions ( "StarOffice", "Accessibility" )
if AutomaticDetectHC.IsChecked = lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
if ForPagePreviews.IsChecked = lbSave (2) then warnlog "For Page Previews : => changes not saved!"
if HelpTips.IsChecked = lbSave (3) then warnlog "Help Tips : => changes not saved!"
HelpTips.Check
if After.GetText <> "17" then warnlog "After... : => changes not saved!"
if AllowAnimatedGraphics.IsChecked = lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
if AllowAnimatedText.IsChecked = lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
if AlwaysUseAutomaticFontColor.IsChecked = lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
'if UseSystemFont.IsChecked = lbSave (7) then warnlog "Use System Font : => changes not saved!"
if UseTextSelectionCursor.IsChecked = lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
' if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
' if SupportAssistiveTechnologyTools.IsChecked = lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
' end if
printlog " - second settings"
AutomaticDetectHC.UnCheck
ForPagePreviews.Check
HelpTips.Check
After.SetText "1"
AllowAnimatedGraphics.Uncheck
AllowAnimatedText.Check
AlwaysUseAutomaticFontColor.Uncheck
'UseSystemFont.Check
UseTextSelectionCursor.UnCheck
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
SupportAssistiveTechnologyTools.Uncheck
end if
printlog " - press OK at the options dialog"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Sleep (3)
printlog " - check changes"
ToolsOptions
hToolsOptions ( "StarOffice", "Accessibility" )
if AutomaticDetectHC.IsChecked <> FALSE then warnlog "Automatic Detect HC ... : => changes not saved!"
if ForPagePreviews.IsChecked <> TRUE then warnlog "For Page Previews : => changes not saved!"
if HelpTips.IsChecked <> TRUE then warnlog "Help Tips : => changes not saved!"
if After.GetText <> "1" then warnlog "After... : => changes not saved!"
if AllowAnimatedGraphics.IsChecked <> FALSE then warnlog "Allow Animated Graphics : => changes not saved!"
if AllowAnimatedText.IsChecked <> TRUE then warnlog "Allow Animated Text : => changes not saved!"
if AlwaysUseAutomaticFontColor.IsChecked <> FALSE then warnlog "Always Use Automatic Font Color : => changes not saved!"
'if UseSystemFont.IsChecked <> TRUE then warnlog "Use System Font : => changes not saved!"
if UseTextSelectionCursor.IsChecked <> FALSE then warnlog "Use Text Selection Cursor : => changes not saved!"
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
if SupportAssistiveTechnologyTools.IsChecked <> FALSE then warnlog "Support Assistive Technology Tools : => changes not saved!"
end if
if lbSave (9) = TRUE then AutomaticDetectHC.Check else AutomaticDetectHC.UnCheck
if lbSave (2) = TRUE then ForPagePreviews.Check else ForPagePreviews.UnCheck
HelpTips.Check
After.SetText sSave
if lbSave (3) = TRUE then HelpTips.Check else HelpTips.UnCheck
if lbSave (4) = TRUE then AllowAnimatedGraphics.Check else AllowAnimatedGraphics.UnCheck
if lbSave (5) = TRUE then AllowAnimatedText.Check else AllowAnimatedText.UnCheck
if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Check else AlwaysUseAutomaticFontColor.UnCheck
'if lbSave (7) = TRUE then UseSystemFont.Check else UseSystemFont.UnCheck
if lbSave (10) = TRUE then UseTextSelectionCursor.Check else UseTextSelectionCursor.UnCheck
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Check else SupportAssistiveTechnologyTools.UnCheck
end if
printlog " - press OK at the options dialog"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Sleep (3)
printlog " - check reset"
ToolsOptions
hToolsOptions ( "StarOffice", "Accessibility" )
if AutomaticDetectHC.IsChecked <> lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
if ForPagePreviews.IsChecked <> lbSave (2) then warnlog "For Page Previews : => changes not saved!"
if HelpTips.IsChecked <> lbSave (3) then warnlog "Help Tips : => changes not saved!"
HelpTips.Check
if After.GetText <> sSave then warnlog "After... : => changes not saved!"
if AllowAnimatedGraphics.IsChecked <> lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
if AllowAnimatedText.IsChecked <> lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
if AlwaysUseAutomaticFontColor.IsChecked <> lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
'if UseSystemFont.IsChecked <> lbSave (7) then warnlog "Use System Font : => changes not saved!"
if UseTextSelectionCursor.IsChecked <> lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
if SupportAssistiveTechnologyTools.IsChecked <> lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
end if
printlog " - press OK at the options dialog"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Sleep (3)
endcase
|
