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
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
'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 : oliver.craemer@oracle.com
'*
'* short description : selecting objects in calc
'*
'**************************************************************************************************
'*
' #1 fCalcSelectRange
' #1 fCalcNameRange
' #1 fCalcSelectCell
' #1 fCalcGetSelectionString
' #1 fCalcSelectSheet
' #1 fNavigatorSelectObject
'*
'\************************************************************************************************
function fCalcSelectRange ( sSelectThis ) as boolean
'///<b>Select a range in calc and check success
'///+Valid cell reference and name should work here
'///+RETURNS: BOOLEAN</b>
fCalcSelectRange = FALSE
'///<ul>
'///<li>Check if 'formula bar' is visible</li>///
Kontext "RechenleisteCalc"
if not RechenleisteCalc.isvisible then
'///<li>-> Throw warning and Invoke 'formula bar' if invisible</li>///
'///<li>-> NOTE: The testcase developer has to take care herself that function is entered correctly</li>///
warnlog "Formula bar was expected to be visible"
ViewToolbarsFormulaBar
end if
sleep(2)
'///<li>Select the desired range</li>///
Kontext "RechenleisteCalc"
Bereich.TypeKeys "<MOD1 A>"
Bereich.TypeKeys ( sSelectThis )
sleep(1)
Bereich.TypeKeys "<RETURN>"
sleep(2)
'///<li>Check if input leads to success</li>///
kontext
'///<li>If a MsgBox is in the way the selection must have failed</li>///
if active.exists then
if active.getRT = 304 then
'///<li>-> NOTE: Only throw a PrintLog if selection fails because failture may be the desired result!</li>///
'///<li>-> FURTHER NOTE: We retrun FALSE to check this in the calling routine</li>///
printlog "Selecting the range failed due to known reason, e.g. wrong selection or invalid name"
Active.OK
else
'///<li>Only throw a waring if a dialog of unexpected resource type appears</li>///
warnlog "OOPS, don't know what's disturbing now -> CHECK IT OUT!"
end if
else
'///<li>Everything OK? -> TRUE</li>///
fCalcSelectRange = TRUE
end if
end function
'///</ul>
'-------------------------------------------------------------------------
function fCalcNameRange ( sNameThis ) as boolean
'///<b>This is just an alias function to avoid confusion -> see 'fCalcSelectRange'<b>
'///With the integration of CWS 'rangename' the function 'fCalcSelectRange'
'///+could also be used to name a previous selected range
fCalcNameRange = fCalcSelectRange ( sNameThis )
end function
'
'--------------------------------------------------------------------
'
function fCalcSelectCell ( sSelectThisCell ) as boolean
'///<b>This is just an alias function to avoid confusion -> see 'fCalcSelectRange'<b>
fCalcSelectCell = fCalcSelectRange ( sSelectThisCell )
end function
'
'--------------------------------------------------------------------
'
function fCalcGetSelectionString() as String
'///<b>Obtain range (e.g. 'A1:E10') or range name in 'formula bar'
'///+RETURNS: STRING</b>///
'///<ul>
'///<li>Check if 'formula bar' is visible</li>///
Kontext "RechenleisteCalc"
if not RechenleisteCalc.isvisible then
'///<li>-> Throw warning and Invoke 'formula bar' if invisible</li>///
'///<li>-> NOTE: The testcase developer has to take care herself that function is entered correctly</li>///
warnlog "Formula bar was expected to be visible"
ViewToolbarsFormulaBar
end if
sleep(2)
'///<li>Get and return string in range selection list box</li>///
Kontext "RechenleisteCalc"
fCalcGetSelectionString = Bereich.GetSelText
'///</ul>
end function
'
'--------------------------------------------------------------------
'
function fCalcSelectSheet ( sSelectThisSheet ) as boolean
'///<b>Select a sheet by name (STRING) or number (INTEGER)///
'///+RETURNS: boolean (success)</u>///
fCalcSelectSheet = FALSE
'///<ul>
try
Kontext "DocumentCalc"
'///<li>Invoke Edit::Sheet::Select</li>///
EditSheetSelect
Kontext "SelectSheets"
'///<li>Select sheet no. or sheet name in listbox</li>///
SheetSelectionBox.Select ( sSelectThisSheet )
'///<li>OK</li>///
SelectSheets.OK
'///<li>Return true</li>///
fCalcSelectSheet = TRUE
catch
warnlog "Something went wrong while selecting a sheet by name"
'///<li>In case of failture lookup 'Select sheets' dialog andd close it if exists</li>///
Kontext "SelectSheets"
if SelectSheets.exists(2) then
SelectSheets.Cancel
end if
endcatch
'///</ul>
end function
'
'-------------------------------------------------------------------------
'
function fNavigatorSelectObject ( sWhatObject as STRING , iObjectPosition as INTEGER )
'///<b>Select any Object in Navigator</b>
'///<b>STRING: sWhatObject</b> - A keyword to choose desired obeject category
'///+Posible values: sheets, range names, database ranges, linked areas, graphics, ole objects, notes, drawing objects
'///<b>INTEGER: iObjectPosition</b> - Position of object (>=1) within 'sWhatObject'
'///+<b>NOTE:</b>You're moving within a treelistbox which is quite messy to handle.
'///+In case 'iObjectPosition' is larger than the real number of objects in category you're end up in another categories.
'///+<b>WITHOUT ANY WARNING!</b>
'///<b>RETURNS:</b> BOOLEAN (success)</b>
'///-----
'///<ul>
dim bNavigatorWasVisible as boolean
bNavigatorWasVisible = FALSE
dim iIndex
dim iCategoryPosition as INTEGER
fNavigatorSelectObject = FALSE
'///<li>Translate 'sWhatObject' to postion number of desired object category</li>///
select case lcase ( sWhatObject )
case "sheets" : iCategoryPosition = 1
case "range names" : iCategoryPosition = 2
case "database ranges" : iCategoryPosition = 3
case "linked areas" : iCategoryPosition = 4
case "graphics" : iCategoryPosition = 5
case "ole objects" : iCategoryPosition = 6
case "notes" : iCategoryPosition = 7
case "drawing objects" : iCategoryPosition = 8
case else
warnlog "Invalid keyword -> Aborting fNavigatorSelectObject()"
exit function
end select
'///<li>Check if Navigator is visible</li>///
Kontext "NavigatorCalc"
if NavigatorCalc.exists (3) then
'///<li>Remember state of visibiliy TRUE/FALSE</li>///
bNavigatorWasVisible = TRUE
else
'///<li>Invoke navigator if not visible</li>///
ViewNavigator
end if
try
Kontext "NavigatorCalc"
'///<li>Go to Top in Navigator</li>///
liste.TypeKeys "<HOME>"
'///<li>Travel top to bottom through all categories</li>///
for iIndex = 1 to 8
'///<li>Make sure all elements in category are hidden, apply '-' key</li>///
liste.TypeKeys "-<DOWN>"
next iIndex
'///<li>Select desired category</li>///
liste.select ( iCategoryPosition )
'///<li>Unfold elements of selected category</li>///
liste.TypeKeys "+"
'///<li>Select desired position within category</li>///
liste.select ( iCategoryPosition + iObjectPosition )
'///<li>Hit 'RETURN' key to select element in document</li>///
liste.TypeKeys "<RETURN>"
'///<li>Return 'TRUE' for 'fNavigatorSelectObject'</li>///
fNavigatorSelectObject = TRUE
catch
warnlog "Selecting the desired object failed. Perhaps your input wasn't valid"
endcatch
'///<li>Close navigator if it wasn't visible before entering this function</li>///
if bNavigatorWasVisible = TRUE then
printlog "Leaving navigator open as initially found"
else
ViewNavigator
printlog "Closing navigator as initially found"
end if
'///</ul>
end function
|
