| blob | e8f8ffe8cf043b1c37243d19537cf4d375ee0d39 |
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: ch2_lvl1_wizard.inc,v $
10 '*
11 '* $Revision: 1.2 $
12 '*
13 '* last change: $Author: obo $ $Date: 2008-07-22 10:36:56 $
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 : oliver.craemer@sun.com
35 '*
36 '* short description : Chart wizard general functionality
37 '*
38 '************************************************************************
39 '*
40 ' #1 tCreateNew3DChart ' Create a new 3D chart and check the preserved values
41 ' #1 tCreateNewLineChart ' Create a new line chart and check the preserved values
42 '*
43 '\************************************************************************
45 testcase tCreateNew3DChart
46 Dim sInputFile as STRING
47 Dim sOutputFile as STRING
48 Dim sControlString as STRING
49 Dim iChartVariant as integer
50 Dim iChartVariantText as string
53 sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/randomData.ods" )
54 sOutputFile = convertpath ( gOfficePath & "user/work/tCreateNew3DChart.ods" )
56 printlog "Load test document TesttoolPath/chart2/optional/input/randomData.ods"
57 call hFileOpen(sInputFile)
58 sleep(2)
59 printlog "Save document as OfficePath/user/work/tCreateNew3DChart.ods"
60 if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
61 warnlog "Saving test document localy failed -> Aborting"
62 call hCloseDocument
63 goto endsub
64 endif
65 printlog "Insert / Chart"
66 InsertChart
67 sleep(5)
68 Kontext "ChartType"
69 printlog "Choose the Chart type bar (should be the second in the top-down list)"
70 if fSetChartType( "bar" ) > 0 then
71 warnlog "Something went wrong setting chart type to BAR."
72 endif
73 printlog "Select 2nd chart variant from left"
74 if fSetChartTypeVariant( 2 ) > 0 then
75 warnlog "Something went wrong setting chart type VARIANT."
76 endif
77 printlog "Check 3D Look checkbox"
78 if fSetChartType3D( TRUE ) > 0 then
79 warnlog "Something went wrong setting 3D chart."
80 endif
81 printlog "Change Chart type look to simple"
82 if fSetChartLook3D( "simple" ) > 0 then
83 warnlog "Something went wrong setting 3D look."
84 endif
85 printlog "Change Chart shape to cone"
86 if fSetChartShape3D( "cone" ) > 0 then
87 warnlog "Something went wrong setting 3D shape."
88 endif
89 printlog "Change to Data Range tab page by clicking the Next-button"
90 Kontext "ChartWizard"
91 GoNext.Click
92 Kontext "TabChartTypeDataRange"
93 printlog "Set data range text box to $Sheet1.$A$2:$E$13"
94 if fSetTextBox ( DataRange , "$Sheet1.$A$2:$E$13" ) > 0 then
95 warnlog "Something went wrong setting Text."
96 endif
97 printlog "Select data series in Rows radiobox"
98 if fSetRadioButton ( Rows ) > 0 then
99 warnlog "Something went wrong selecting 'Data Series in: Rows'."
100 endif
101 printlog "Uncheck First row as label checkbox"
102 if fSetCheckBox ( FirstRowAsLabel , FALSE ) > 0 then
103 warnlog "Something went wrong unselecting 'First row as label'."
104 endif
105 printlog "Change to Data Series tab page by clicking the Next-button"
106 Kontext "ChartWizard"
107 GoNext.Click
108 Kontext "TabChartTypeDataSeries"
109 printlog "Select last (12th) entry in Data Series list on the left"
110 if fSetListBoxByItem ( DataSeries , 12 ) > 0 then
111 warnlog "Something went wrong selecting 'Data Series' item no. 12."
112 endif
113 printlog "Click on the add-button"
114 AddButton.Click
115 printlog "Set Range for Name text field to A17"
116 if fSetTextBox ( RangeFor , "A17" ) > 0 then
117 warnlog "Something went wrong setting Text."
118 endif
119 printlog "Select 2nd entry in Data Ranges (Y-Values) list on the right"
120 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
121 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
122 endif
123 printlog "Set Range for Y-Values text field to B17:E17"
124 if fSetTextBox ( RangeFor , "B17:E17" ) > 0 then
125 warnlog "Something went wrong setting Text."
126 endif
127 printlog "Change to Chart Elements tab-page by clicking the Next-button"
128 Kontext "ChartWizard"
129 GoNext.Click
130 Kontext "TabChartTypeChartElements"
131 printlog "Set 'Title' text box to MyTitle"
132 if fSetTextBox ( Title , "MyTitle" ) > 0 then
133 warnlog "Something went wrong setting Text."
134 endif
135 printlog "Set 'Subtitle' text box to 1 2 3"
136 if fSetTextBox ( Subtitle , "1 2 3" ) > 0 then
137 warnlog "Something went wrong setting Text."
138 endif
139 printlog "Set 'X Title' text box to Grått"
140 if fSetTextBox ( TitleXAxis , "Grått" ) > 0 then
141 warnlog "Something went wrong setting Text."
142 endif
143 printlog "Set 'Y Title' text box to Gräulich"
144 if fSetTextBox ( TitleYAxis , "Gräulich" ) > 0 then
145 warnlog "Something went wrong setting Text."
146 endif
147 printlog "Set 'Z Title' text box to 灰色"
148 if fSetTextBox ( TitleZAxis , "灰色" ) > 0 then
149 warnlog "Something went wrong setting Text."
150 endif
151 printlog "Check X Axis-checkbox"
152 if fSetCheckBox ( GridLinesXAxis , TRUE ) > 0 then
153 warnlog "Something went wrong checking 'X Axis'."
154 endif
155 printlog "Uncheck Y Axis-checkbox"
156 if fSetCheckBox ( GridLinesYAxis , FALSE ) > 0 then
157 warnlog "Something went wrong unchecking 'Y Axis'."
158 endif
159 printlog "heck Z Axis-checkbox"
160 if fSetCheckBox ( GridLinesZAxis , TRUE ) > 0 then
161 warnlog "Something went wrong checking 'Z Axis'."
162 endif
163 printlog "Select under Legend (on the right) the Left radio-button"
164 if fSetRadioButton ( PositionLeft ) > 0 then
165 warnlog "Something went wrong selecting 'Legend Display Left'."
166 endif
167 printlog "Click the Finish-button"
168 Kontext "ChartWizard"
169 ChartWizard.OK
170 sleep(2)
171 printlog "File / Save"
172 FileSave
173 Kontext "DocumentCalc"
174 printlog "Press ESCAPE button (deselecting the OLE object)"
175 DocumentCalc.TypeKeys "<Escape>"
176 printlog "Close the document"
177 Call hCloseDocument
178 sleep(2)
179 printlog "Open saved file again"
180 call hFileOpen(sOutputFile)
181 sleep(2)
182 printlog "Select chart OLE using navigator"
183 call fSelectFirstOLE
184 printlog "Edit / Object / Edit to enter inplace mode of the chart"
185 printlog "(enabling the chart menus and editing possibilities)"
186 EditObjectEdit
187 printlog "Format / Chart Type"
188 FormatChartType
189 sleep(1)
190 Kontext "ChartType"
191 printlog "Check if chart type is 'bar'"
192 if ChooseType.GetSelIndex <> 2 Then
193 warnlog "Selected chart type (bar) wasn't preserved after save and reload."
194 endif
195 printlog "Check that variant is 'stacked'"
196 iChartVariant = variant.GetSelIndex
197 iChartVariantText = variant.GetSelText(iChartVariant)
198 printlog "Check that the chart variant is 'Stacked' (2nd entry)"
199 if iChartVariant <> 2 then
200 warnlog "Instead of chart variant 'Stacked' (2) the variant " & iChartVariant & "(" & iChartVariantText & ") has been used - FAILED"
201 end if
202 printlog "Check the the '3D Look' box is checked"
203 if NOT Look3D.IsChecked then
204 warnlog "Check box 3D (enabled) wasn't preserved after save and reload."
205 endif
206 printlog "Check that 3D look is 'simple' (=default)"
207 if Scheme3D.GetSelIndex <> 1 then
208 warnlog "Default 3D Look ('simple') has not been preserved after save and reload."
209 endif
210 printlog "Check that 3D shape 'cone' is selected"
211 if BarColumnShape.GetSelIndex <> 3 Then
212 warnlog "3D Shape CONE wasn't preserved after save and reload."
213 endif
214 Kontext "ChartType"
215 printlog "Leave dialog with CANCEL button."
216 ChartType.CANCEL
217 printlog "Invoke Format / Data Ranges"
218 FormatDataRanges
219 printlog "Goto tab-page Data Range"
220 printlog "Verify now the made settings in the 'Data Ranges' dialog:"
221 Kontext
222 Active.SetPage TabFormatDataRangesDataRange
223 Kontext "TabFormatDataRangesDataRange"
224 if TabFormatDataRangesDataRange.Exists(2) then
225 printlog "Check substrings $A$2:$E$13 and $A$17:$E$17 in 'Data Range'"
226 sControlString = DataRange.GetText
227 if instr ( sControlString , "$A$2:$E$13" ) = 0 Then
228 warnlog "Data range wasn't correctly preserved after save and reload and does not caontain $A$2:$E$13."
229 endif
230 if instr ( sControlString , "$A$17:$E$17" ) = 0 Then
231 warnlog "#i72241# - Data range wasn't correctly preserved after save and reload and does not contain $A$17:$E$17."
232 endif
233 printlog "Check that radio button 'rows' is checked"
234 if NOT Rows.IsChecked then
235 warnlog "Radio Button ROWS (enabled) wasn't preserved after save and reload."
236 endif
237 printlog "Check that radio button 'columns is unchecked."
238 if Columns.IsChecked then
239 warnlog "Radio Button COLUMNS (disabled) wasn't preserved after save and reload."
240 endif
241 printlog "Check if 'First row as label' checkbox is unchecked"
242 if FirstRowAsLabel.IsChecked then
243 warnlog "Check box 'First row as label' (disabled) wasn't preserved after save and reload."
244 endif
245 printlog "Check that 'First column as label' checkbox is checked."
246 if NOT FirstColumnAsLabel.IsChecked then
247 warnlog "#i72241# - Check box 'First column as label' (enabled) wasn't preserved after save and reload."
248 endif
249 else
250 warnlog "Tab page 'Data Range' not visible!"
251 end if
252 printlog "Go to tab page 'Data Series'"
253 Kontext
254 Active.SetPage TabFormatDataRangesDataSeries
255 Kontext "TabFormatDataRangesDataSeries"
256 if TabFormatDataRangesDataSeries.Exists(2) then
257 printlog "Check if added range (13 in list on the left) was preserved."
258 if fSetListBoxByItem ( DataSeries , 13 ) > 0 then
259 warnlog "Selecting 13th item in Data Series seems to fail. Added range wasn't preserved."
260 else
261 printlog "Select 'Name'-entry in Data Ranges list on the right."
262 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
263 warnlog "Something went wrong selecting 'Data Ranges' item No. 1."
264 else
265 printlog "Check that the string $A$17 exists in range for 'Name'"
266 sControlString = RangeFor.GetText
267 printlog "'Range for name' is: " & sControlString
268 if instr ( sControlString , "$A$17" ) = 0 Then
269 warnlog "#i72241# - 'Range for name' wasn't correctly preserved after save and reload."
270 else
271 printlog "Select 'Y-Values' in Data Ranges list on the right."
272 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
273 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
274 else
275 printlog "Check that the string $B$17:$E$17 is in range for 'Y-Values'"
276 sControlString = RangeFor.GetText
277 if instr ( sControlString , "$B$17:$E$17" ) = 0 Then
278 warnlog "'Range for Y-Values' wasn't correctly preserved after save and reload."
279 endif
280 endif
281 endif
282 endif
283 endif
284 printlog "Close the dialog with 'cancel'-button"
285 TabFormatDataRangesDataSeries.Cancel
286 else
287 warnlog "Tab page 'Data series' not visible!"
288 end if
289 if fInvokeTitlesDialog() = 0 then
290 printlog "Insert / Title"
291 printlog "Verify now the made settings in the 'Titles' dialog:"
292 Kontext "InsertTitleDialog"
293 printlog "Check that 'Title' text field contains 'MyTitle'"
294 sControlString = MainTitle.GetText
295 if sControlString <> "MyTitle" then
296 warnlog "Title string 'MyTitle' wasn't preserved after save and reload."
297 endif
298 printlog "Check that 'Subtitle'text field contains 1 2 3"
299 sControlString = SubTitle.GetText
300 if sControlString <> "1 2 3" then
301 warnlog "Subtitle string '1 2 3' wasn't preserved after save and reload."
302 endif
303 printlog "Check that 'X Title' text field contains Grått"
304 sControlString = TitleXAxis.GetText
305 printlog "'X Title' is: " & sControlString
306 if sControlString <> "Grått" then
307 warnlog "X Title string 'Grått' wasn't preserved after save and reload."
308 endif
309 printlog "Check that 'Y Title' text field contains 'Gräulich'"
310 sControlString = TitleYAxis.GetText
311 if sControlString <> "Gräulich" then
312 warnlog "Y Title string 'Gräulich' wasn't preserved after save and reload."
313 endif
314 printlog "Check that 'Z Title' text field contains 灰色"
315 sControlString = TitleZAxis.GetText
316 printlog "'Z Title' is: " & sControlString
317 if sControlString <> "灰色" then
318 warnlog "Z Title string '灰色' wasn't preserved after save and reload."
319 endif
320 printlog "Close the Title-dialog by pressing 'Cancel'-button"
321 InsertTitleDialog.Cancel
322 endif
323 if fInvokeGridsDialog() = 0 then
324 printlog "Insert / Grid"
325 Kontext "InsertGridsDialog"
326 printlog "Check that 'Main Grid X Axis' checkbox is checked"
327 if NOT MainGridXaxis.IsChecked then
328 warnlog "Check box 'Gridlines X Axis' (checked) wasn't preserved after save and reload."
329 endif
330 printlog "Check that 'Main Grid Y Axis' checkbox is checked"
331 if MainGridYaxis.IsChecked then
332 warnlog "Check box 'Gridlines Y Axis' (unchecked) wasn't preserved after save and reload."
333 endif
334 printlog "Check that 'Main Grid Z Axis' checkbox is checked"
335 if NOT MainGridZaxis.IsChecked then
336 warnlog "Check box 'Gridlines Z Axis' (checked) wasn't preserved after save and reload."
337 endif
338 printlog "Check that 'Minor Grid X Axis' checkbox is unchecked"
339 if MinorGridXaxis.IsChecked then
340 warnlog "Check box 'Minor Grid X Axis' (unchecked) wasn't preserved after save and reload."
341 endif
342 printlog "Check that 'Minor Grid Y Axis' checkbox is unchecked"
343 if MinorGridYaxis.IsChecked then
344 warnlog "Check box 'Minor Grid Y Axis' (unchecked) wasn't preserved after save and reload."
345 endif
346 printlog "Check that 'Minor Grid Z Axis' checkbox is unchecked"
347 if MinorGridZaxis.IsChecked then
348 warnlog "Check box 'Minor Grid Z Axis' (unchecked) wasn't preserved after save and reload."
349 endif
350 printlog "Leave dialog with Cancel-button."
351 InsertGridsDialog.Cancel
352 endif
353 if fInvokeLegendDialog() = 0 then
354 printlog "Insert / Legend"
355 Kontext "InsertLegendDialog"
356 printlog "Check that 'Legend Display' checkbox is checked"
357 if NOT Display.IsChecked then
358 warnlog "Check box 'Legend Display' (enabled) wasn't preserved after save and reload."
359 endif
360 printlog "Check that 'Left' radio button is selected"
361 if NOT PositionLeft.IsChecked then
362 warnlog "Radio button 'Left' (enabled) wasn't preserved after save and reload."
363 endif
364 printlog "Cancel InsertLegend-dialog"
365 Kontext "InsertLegendDialog"
366 InsertLegendDialog.Cancel
367 end if
368 Kontext "DocumentCalc"
369 DocumentCalc.TypeKeys "<Escape>"
370 printlog "Close document"
371 Call hCloseDocument
372 endcase
373 '
374 '--------------------------------------------------------------------
375 '
376 testcase tCreateNewLineChart
377 dim sInputFile as STRING
378 dim sOutputFile as STRING
379 dim sControlString as STRING
380 sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/randomData.ods" )
381 sOutputFile = convertpath ( gOfficepath & "user/work/tCreateNewLineChart.ods" )
382 printlog "File / Load TesttoolPath/chart2/optional/input/randomData.ods"
383 call hFileOpen(sInputFile)
384 sleep(2)
385 printlog "Save document as Officepath/user/work/tCreateNewLineChart.ods"
386 if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
387 warnlog "Saving test document localy failed -> Aborting"
388 call hCloseDocument
389 goto endsub
390 endif
391 printlog "Insert / Chart"
392 InsertChart
393 printlog "Change Chart type to LINE (5th entry from the top)"
394 Kontext "ChartType"
395 if NOT ChartType.Exists(5) then
396 warnlog "Chart Wizard was not visible. EXITING!"
397 goto endsub
398 else
399 printlog "Chart Wizard visible."
400 end if
401 if fSetChartType ( "line" ) > 0 then
402 warnlog "Something went wrong setting chart type to LINE."
403 endif
404 printlog "Select 3rd Change chart type variant (lines only)"
405 if fSetChartTypeVariant ( 3 ) > 0 then
406 warnlog "Something went wrong setting chart type to 3rd variant (lines only)."
407 endif
408 printlog "Enable 'Stack Series' and select 'Percent'"
409 if fSetStackSeries ( "percent" ) > 0 then
410 warnlog "Something went wrong setting Stack Series to Percent."
411 endif
412 '/// Enable 'Smooth Lines'
413 printlog "Enable 'Smooth Lines'"
414 if fSetSmoothLines ( TRUE ) > 0 then
415 warnlog "Something went wrong enabling Smooth Lines."
416 endif
417 printlog "Invoke 'Smooth Lines' dialog"
418 if fInvokeSmoothLineProperties() > 0 then
419 warnlog "Something went wrong invoking Smooth Lines Dialog."
420 endif
421 printlog "Check B-Spline"
422 BSpline.check
423 printlog "Set Resolution to 33"
424 Resolution.SetText "33"
425 printlog "et Data Points Order to 5"
426 DataPointsOrder.SetText "5"
427 printlog "Close 'Smooth Lines' dialog"
428 if fCloseSmoothLinePropertiesOK() > 0 then
429 warnlog "Something went wrong closing Smooth Lines Dialog."
430 endif
431 printlog "Change to Data Range tab-page"
432 Kontext "ChartWizard"
433 GoNext.Click
434 Kontext "TabChartTypeDataRange"
435 printlog "Set Data Range text box to $Sheet1.$A$1:$F$13;$Sheet1.$A$17:$F$17"
436 if fSetTextBox ( DataRange , "$Sheet1.$A$1:$F$13;$Sheet1.$A$17:$F$17" ) > 0 then
437 warnlog "Something went wrong setting Text."
438 endif
439 printlog "Change to Data Series tab-page"
440 Kontext "ChartWizard"
441 GoNext.Click
442 Kontext "TabChartTypeDataSeries"
443 printlog "Select 3rd entry in Data Series"
444 if fSetListBoxByItem ( DataSeries , 3 ) > 0 then
445 warnlog "Something went wrong selecting 'Data Series' item No. 3."
446 endif
447 printlog "Remove series labeled 'John'"
448 RemoveButton.Click
449 printlog "Select 4th entry in Data Series"
450 if fSetListBoxByItem ( DataSeries , 4 ) > 0 then
451 warnlog "Something went wrong selecting 'Data Series' item No. 4."
452 endif
453 printlog "Select 2nd entry in Data Ranges"
454 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
455 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
456 endif
457 printlog "Set 'Range for Y-Values' text box to $Sheet1.$F$2:$F$13;$Sheet1.$D$17"
458 if fSetTextBox ( RangeFor , "$Sheet1.$F$2:$F$13;$Sheet1.$D$17" ) > 0 then
459 warnlog "Something went wrong setting Text."
460 endif
461 printlog "Set 'Categories' text box to $Sheet1.$A$2:$A$13;$Sheet1.$A$1"
462 if fSetTextBox ( Categories , "$Sheet1.$A$2:$A$13;$Sheet1.$A$19" ) > 0 then
463 warnlog "Something went wrong setting Text."
464 endif
465 printlog "Change to Chart Elements tab-page"
466 Kontext "ChartWizard"
467 GoNext.Click
468 Kontext "TabChartTypeChartElements"
469 printlog "Uncheck 'Y Axis'"
470 if fSetCheckBox ( GridLinesYAxis , FALSE ) > 0 then
471 warnlog "Something went wrong unselecting 'Y Axis'."
472 endif
473 printlog "Uncheck 'Legend Display'"
474 if fSetCheckBox ( Display , FALSE ) > 0 then
475 warnlog "Something went wrong unselecting 'Legend Display'."
476 endif
477 printlog "Create Chart by clicking Finish-button"
478 Kontext "ChartWizard"
479 ChartWizard.OK
480 sleep(2)
481 printlog "File / Save"
482 FileSave
483 Kontext "DocumentCalc"
484 printlog "Press twice <ESCAPE>-key"
485 DocumentCalc.TypeKeys "<Escape>" , 2
486 printlog "File / Close document"
487 Call hCloseDocument
488 sleep(2)
489 printlog "Open saved file again"
490 call hFileOpen(sOutputFile)
491 sleep(2)
492 printlog "Open the Navigator (F5)"
493 printlog "Select the first OLE object in the Navigator"
494 call fSelectFirstOLE
495 printlog "Edit / Object / Edit to enter Inplace Mode"
496 EditObjectEdit
497 printlog "Format / Chart Type"
498 FormatChartType
499 Kontext "ChartType"
500 if ChartType.Exists(2) then
501 printlog "Check if chart type is LINE"
502 if ChooseType.GetSelIndex <> 5 then
503 warnlog "Selected chart type wasn't preserved after save and reload."
504 endif
505 printlog "Check if chart variant is LINES ONLY (third variant in non-CTL versions from the left)"
506 if Variant.GetSelIndex <> 3 then
507 warnlog "Selected chart type variant wasn't preserved after save and reload."
508 end if
509 printlog "Check if 'Stack Series' box is checked"
510 if NOT StackSeries.IsChecked then
511 warnlog "Check box 'Stack Series' (enabled) wasn't preserved after save and reload."
512 endif
513 printlog "Check if 'Percent' radio button is checked"
514 if NOT Percent.IsChecked then
515 warnlog "Radio button box 'Percent' (enabled) wasn't preserved after save and reload."
516 endif
517 printlog "Check if 'Smooth Lines' box is checked"
518 if NOT SmoothLines.IsChecked then
519 warnlog "Check box 'Smooth Lines' (enabled) wasn't preserved after save and reload."
520 endif
521 printlog "Invoke 'Smooth Lines' dialog"
522 if fInvokeSmoothLineProperties() > 0 then
523 warnlog "Something went wrong invoking Smooth Lines dialog."
524 endif
525 printlog "Check if 'B-Spline' radio button is checked"
526 if NOT BSpline.IsChecked then
527 warnlog "Radio button box 'B-Spline' (enabled) wasn't preserved after save and reload."
528 endif
529 printlog "Check if 'Resolution' has value '33'"
530 if Resolution.GetText <> "33" then
531 warnlog "Value for Resolution '33' wasn't preserved after save and reload."
532 endif
533 printlog "Check if 'Data Points Order' has value '5'"
534 if DataPointsOrder.GetText <> "5" then
535 warnlog "Value for Data Points Order '5' wasn't preserved after save and reload."
536 endif
537 printlog "Close 'Smooth Lines' dialog"
538 if fCloseSmoothLinePropertiesOK() > 0 then
539 warnlog "Something went wrong closing Smooth Lines Dialog."
540 endif
541 printlog "Leave Chart Type dialog with Cancel"
542 Kontext "ChartType"
543 if ChartType.Exists(2) then
544 ChartType.Cancel
545 else
546 warnlog "ChartType dialog was not visible!?"
547 end if
548 else
549 warnlog "Chart Type dialog was not up!"
550 end if
551 printlog "Format / Data Ranges"
552 FormatDataRanges
553 Kontext
554 Active.SetPage TabChartTypeDataRange
555 Kontext "TabChartTypeDataRange"
556 if TabChartTypeDataRange.Exists(2) then
557 printlog "Check substrings '$A$2:$C$13', '$A$19', '$B$1:$C$13', '$E$1:$F$13' and '$B$17:$E$17' in Data Range"
558 sControlString = DataRange.GetText
559 printlog "Data Range is: " & sControlString
560 if instr ( sControlString , "$A$2:$C$13" ) = 0 Then
561 warnlog "Data range wasn't correctly preserved after save and reload: $A$2:$C$13"
562 endif
563 if instr ( sControlString , "$A$19" ) = 0 Then
564 warnlog "Data range wasn't correctly preserved after save and reload: $A$19"
565 endif
566 if instr ( sControlString , "$B$1:$C$13" ) = 0 Then
567 QAErrorlog "#i100780#Data range wasn't correctly preserved after save and reload: $B$1:$C$13"
568 endif
569 if instr ( sControlString , "$E$1:$F$13" ) = 0 Then
570 warnlog "Data range wasn't correctly preserved after save and reload: $E$1:$F$13"
571 endif
572 if instr ( sControlString , "$B$17:$E$17" ) = 0 Then
573 warnlog "Data range wasn't correctly preserved after save and reload: $B$17:$E$17"
574 endif
575 printlog "Check if Radio Button ROWS is checked"
576 if Rows.IsChecked then
577 warnlog "Radio Button ROWS (disabled) wasn't preserved after save and reload."
578 endif
579 printlog "Check if Radio Button COLUMNS is unchecked"
580 if NOT Columns.IsChecked then
581 warnlog "Radio Button COLUMNS (enabled) wasn't preserved after save and reload."
582 endif
583 printlog "Check if 'First row as label' box is unchecked"
584 if NOT FirstRowAsLabel.IsChecked then
585 warnlog "Check box 'First row as label' (enabled) wasn't preserved after save and reload."
586 endif
587 printlog "Check if 'First column as label' box is checked"
588 if NOT FirstColumnAsLabel.IsChecked then
589 warnlog "Check box 'First column as label' (enabled) wasn't preserved after save and reload."
590 endif
591 else
592 warnlog "Tab page Data Range was not up!"
593 FormatDataRanges
594 end if
595 printlog "Switch to tab page Data Series"
596 Kontext
597 Active.SetPage TabFormatDataRangesDataSeries
598 Kontext "TabChartTypeDataSeries"
599 if TabChartTypeDataSeries.Exists(2) then
600 printlog "Select 4th entry in Data Series"
601 if fSetListBoxByItem ( DataSeries , 4 ) > 0 then
602 warnlog "Selecting 4th item in Data Series failed. EXITING!"
603 TabChartTypeDataSeries.Cancel
604 call hCloseDocument
605 goto endsub
606 endif
607 printlog "Select Name in Data Ranges"
608 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
609 warnlog "Something went wrong selecting 'Data Ranges' item No. 1."
610 endif
611 printlog "Check substring '$F$1' in Range for Name"
612 sControlString = RangeFor.GetText
613 printlog "'Range for name' is: " & sControlString
614 if instr ( sControlString , "$F$1" ) = 0 Then
615 warnlog "'Range for name' wasn't correctly preserved after save and reload."
616 endif
617 printlog "Select Y-Values in Data Ranges"
618 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
619 warnlog "Something went wrong selecting 'Data Ranges' item No. 2. EXITING!"
620 TabChartTypeDataSeries.Cancel
621 call hCloseDocument
622 goto endsub
623 endif
624 printlog "Check substring '$F$2:$F$13' and '$D$17'in Range for Name"
625 sControlString = RangeFor.GetText
626 if instr ( sControlString , "$F$2:$F$13" ) = 0 Then
627 warnlog "'Range for Y-Values' wasn't correctly preserved after save and reload."
628 endif
629 if instr ( sControlString , "$D$17" ) = 0 Then
630 warnlog "'Range for Y-Values' wasn't correctly preserved after save and reload."
631 endif
632 printlog "Check substring '$A$2:$A$13' and '$A$19'in Categories"
633 sControlString = Categories.GetText
634 if instr ( sControlString , "$A$2:$A$13" ) = 0 Then
635 warnlog "'Categories' wasn't correctly preserved after save and reload."
636 endif
637 if instr ( sControlString , "$A$19" ) = 0 Then
638 warnlog "'Categories' wasn't correctly preserved after save and reload."
639 endif
640 printlog "Leave tab page data series with CANCEL"
641 TabChartTypeDataSeries.Cancel
642 else
643 warnlog "Tab page Data Series was not up!"
644 end if
645 printlog "Insert / Title"
646 InsertTitle
647 Kontext "InsertTitleDialog"
648 if InsertTitleDialog.Exists(2) then
649 printlog "Check if 'Title' text box is empty"
650 sControlString = MainTitle.GetText
651 if sControlString <> "" then
652 warnlog "Empty Title string wasn't preserved after save and reload."
653 endif
654 printlog "Check if 'Subtitle' text box is empty"
655 sControlString = SubTitle.GetText
656 if sControlString <> "" then
657 warnlog "Empty Subtitle string wasn't preserved after save and reload."
658 endif
659 printlog "Check if 'X Title' text box is empty"
660 sControlString = TitleXaxis.GetText
661 if sControlString <> "" then
662 warnlog "Empty X Title string wasn't preserved after save and reload."
663 endif
664 printlog "Check if 'Y Title' text box is empty"
665 sControlString = TitleYaxis.GetText
666 if sControlString <> "" then
667 warnlog "Empty Y Title string wasn't preserved after save and reload."
668 endif
669 printlog "Check if 'Z Title' text box is empty"
670 sControlString = TitleZaxis.GetText
671 if sControlString <> "" then
672 warnlog "Empty Z Title string wasn't preserved after save and reload."
673 endif
674 printlog "Leaving Title dialog with Cancel"
675 InsertTitleDialog.Cancel
676 else
677 warnlog "Title dialog was not up!"
678 end if
679 printlog "Insert / Grids"
680 If fInvokeGridsDialog = 0 then
681 Kontext "InsertGridsDialog"
682 printlog "Check if 'Gridlines X Axis' box is checked"
683 if MainGridXaxis.IsChecked then
684 warnlog "Check box 'Gridlines X Axis' (disabled) wasn't preserved after save and reload."
685 endif
686 printlog "Check if 'Gridlines Y Axis' box is unchecked"
687 if MainGridYaxis.IsChecked then
688 warnlog "Check box 'Gridlines Y Axis' (disabled) wasn't preserved after save and reload."
689 endif
690 printlog "Check if 'Gridlines Z Axis' box is checked"
691 if MainGridZaxis.IsEnabled then
692 warnlog "Check box 'Gridlines Z Axis' shouldn't be enabled after save and reload."
693 endif
694 printlog "Leave dialog with CANCEL"
695 InsertGridsDialog.Cancel
696 else
697 warnlog "Insert Grids dialog was not up!"
698 end if
699 printlog "Insert / Legend"
700 if fInvokeLegendDialog() = 0 then
701 printlog "Check if 'Legend Display' box is checked"
702 Kontext "InsertLegendDialog"
703 if Display.IsChecked then
704 warnlog "Check box 'Legend Display' (disabled) wasn't preserved after save and reload."
705 endif
706 printlog "Leave dialog with CANCEL."
707 InsertLegendDialog.Cancel
708 else
709 warnlog "Insert Legend dialog was not up!"
710 end if
711 printlog "Press ESCAPE button (deselecting the OLE object)"
712 Kontext "DocumentCalc"
713 DocumentCalc.TypeKeys "<Escape>"
714 printlog "Close document"
715 Call hCloseDocument
716 endcase
717 '
718 '--------------------------------------------------------------------
719 '
720 testcase tCreateNewBubbleChart
721 dim sInputFile as STRING
722 dim sOutputFile as STRING
723 dim sControlString as STRING
724 sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/BubbleChartData.ods" )
725 sOutputFile = convertpath ( gOfficepath & "user/work/tCreateNewBubbleChart.ods" )
726 printlog "File / Load TesttoolPath/chart2/optional/input/BubbleChartData.ods"
727 call hFileOpen(sInputFile)
728 sleep(2)
729 printlog "Save document as Officepath/user/work/tCreateNewBubbleChart.ods"
730 if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
731 warnlog "Saving test document localy failed -> Aborting"
732 call hCloseDocument
733 goto endsub
734 endif
735 printlog "Insert / Chart"
736 InsertChart
737 printlog "Change Chart type to BUBBLE (7th entry from the top)"
738 Kontext "ChartType"
739 if NOT ChartType.Exists(5) then
740 warnlog "Chart Wizard was not visible. EXITING!"
741 goto endsub
742 else
743 printlog "Chart Wizard visible."
744 end if
745 if fSetChartType ( "bubble" ) > 0 then
746 warnlog "Something went wrong setting chart type to Bubble Chart."
747 endif
748 printlog "Select 1st chart type variant (Bubble Chart)"
749 if fSetChartTypeVariant ( 1 ) > 0 then
750 warnlog "Something went wrong setting chart type to 1st variant (Bubble Chart)."
751 endif
752 printlog "Change to Data Range tab-page"
753 Kontext "ChartWizard"
754 GoNext.Click
755 Kontext "TabChartTypeDataRange"
756 printlog "Set Data Range text box to $Sheet1.$A$2:$C$5;$Sheet1.$A$13:$C$16"
757 if fSetTextBox ( DataRange , "$Sheet1.$A$2:$C$5;$Sheet1.$A$13:$C$16" ) > 0 then
758 warnlog "Something went wrong setting Text."
759 endif
760 printlog "Change to Data Series tab-page"
761 Kontext "ChartWizard"
762 GoNext.Click
763 Kontext "TabChartTypeDataSeries"
764 '### Name ###
765 printlog "Select 1st entry in Data Series"
766 if fSetListBoxByItem ( DataSeries , 1 ) > 0 then
767 warnlog "Something went wrong selecting 'Data Series' item No. 1."
768 endif
769 printlog "Select 1st entry in Data Ranges"
770 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
771 warnlog "Something went wrong selecting 'Data Ranges' item No. 1."
772 endif
773 printlog "Set 'Range for Name' text box to $Sheet1.$C$1"
774 if fSetTextBox ( RangeFor , "$Sheet1.$C$1" ) > 0 then
775 warnlog "Something went wrong setting Text."
776 endif
777 '### Bubble Sizes ###
778 printlog "Select 2nd entry in Data Ranges"
779 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
780 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
781 endif
782 printlog "Set 'Range for Bubble Sizes' text box to $Sheet1.$C$2:$C$5"
783 if fSetTextBox ( RangeFor , "$Sheet1.$C$2:$C$5" ) > 0 then
784 warnlog "Something went wrong setting Text."
785 endif
786 '### X-Values ###
787 printlog "Select 3rd entry in Data Ranges"
788 if fSetListBoxByItem ( DataRanges , 3 ) > 0 then
789 warnlog "Something went wrong selecting 'Data Ranges' item No. 3."
790 endif
791 printlog "Set 'X-Values' text box to $Sheet1.$A$2:$A$5"
792 if fSetTextBox ( RangeFor , "$Sheet1.$A$2:$A$5" ) > 0 then
793 warnlog "Something went wrong setting Text."
794 endif
795 '### Y-Values ###
796 printlog "Select 4th entry in Data Ranges"
797 if fSetListBoxByItem ( DataRanges , 4 ) > 0 then
798 warnlog "Something went wrong selecting 'Data Ranges' item No. 4."
799 endif
800 printlog "Set 'Y-Values' text box to $Sheet1.$B$2:$B$5"
801 if fSetTextBox ( RangeFor , "$Sheet1.$B$2:$B$5" ) > 0 then
802 warnlog "Something went wrong setting Text."
803 endif
804 printlog "Add data series"
805 AddButton.Click
806 '### Name ###
807 printlog "Select 1st entry in Data Ranges"
808 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
809 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
810 endif
811 printlog "Set 'Range for Name' text box to $Sheet1.$C$12"
812 if fSetTextBox ( RangeFor , "$Sheet1.$C$12" ) > 0 then
813 warnlog "Something went wrong setting Text."
814 endif
815 '### Bubble Sizes ###
816 printlog "Select 2nd entry in Data Ranges"
817 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
818 warnlog "Something went wrong selecting 'Data Ranges' item No. 2."
819 endif
820 printlog "Set 'Range for Bubble Sizes' text box to $Sheet1.$C$13:$C$16"
821 if fSetTextBox ( RangeFor , "$Sheet1.$C$13:$C$16" ) > 0 then
822 warnlog "Something went wrong setting Text."
823 endif
824 '### X-Values ###
825 printlog "Select 3rd entry in Data Ranges"
826 if fSetListBoxByItem ( DataRanges , 3 ) > 0 then
827 warnlog "Something went wrong selecting 'Data Ranges' item No. 3."
828 endif
829 printlog "Set 'X-Values' text box to $Sheet1.$A$13:$A$16"
830 if fSetTextBox ( RangeFor , "$Sheet1.$A$13:$A$16" ) > 0 then
831 warnlog "Something went wrong setting Text."
832 endif
833 '### Y-Values ###
834 printlog "Select 4th entry in Data Ranges"
835 if fSetListBoxByItem ( DataRanges , 4 ) > 0 then
836 warnlog "Something went wrong selecting 'Data Ranges' item No. 4."
837 endif
838 printlog "Set 'Y-Values' text box to $Sheet1.$B$13:$B$16"
839 if fSetTextBox ( RangeFor , "$Sheet1.$B$13:$B$16" ) > 0 then
840 warnlog "Something went wrong setting Text."
841 endif
843 printlog "Change to Chart Elements tab-page"
844 Kontext "ChartWizard"
845 GoNext.Click
846 Kontext "TabChartTypeChartElements"
847 printlog "Uncheck 'Y Axis'"
848 if fSetCheckBox ( GridLinesYAxis , FALSE ) > 0 then
849 warnlog "Something went wrong unselecting 'Y Axis'."
850 endif
851 printlog "Uncheck 'Legend Display'"
852 if fSetCheckBox ( Display , FALSE ) > 0 then
853 warnlog "Something went wrong unselecting 'Legend Display'."
854 endif
855 printlog "Create Chart by clicking Finish-button"
856 Kontext "ChartWizard"
857 ChartWizard.OK
858 sleep(2)
859 printlog "File / Save"
860 FileSave
861 Kontext "DocumentCalc"
862 printlog "Press twice <ESCAPE>-key"
863 DocumentCalc.TypeKeys "<Escape>" , 2
864 printlog "File / Close document"
865 Call hCloseDocument
866 sleep(2)
867 printlog "Open saved file again"
868 call hFileOpen(sOutputFile)
869 sleep(2)
870 printlog "Open the Navigator (F5)"
871 printlog "Select the first OLE object in the Navigator"
872 call fSelectFirstOLE
873 printlog "Edit / Object / Edit to enter Inplace Mode"
874 EditObjectEdit
875 printlog "Format / Chart Type"
876 FormatChartType
877 Kontext "ChartType"
878 if ChartType.Exists(2) then
879 printlog "Check if chart type is BUBBLE CHART"
880 if ChooseType.GetSelIndex <> 7 then
881 warnlog "Selected chart type wasn't preserved after save and reload."
882 endif
883 printlog "Check if chart variant is BUBBLE CHART (1st variant in non-CTL versions from the left)"
884 if Variant.GetSelIndex <> 1 then
885 warnlog "Selected chart type variant wasn't preserved after save and reload."
886 end if
887 printlog "Leave Chart Type dialog with Cancel"
888 Kontext "ChartType"
889 if ChartType.Exists(2) then
890 ChartType.Cancel
891 else
892 warnlog "ChartType dialog was not visible!?"
893 end if
894 else
895 warnlog "Chart Type dialog was not up!"
896 end if
897 printlog "Format / Data Ranges"
898 FormatDataRanges
899 Kontext
900 Active.SetPage TabChartTypeDataRange
901 Kontext "TabChartTypeDataRange"
902 if TabChartTypeDataRange.Exists(2) then
903 printlog "Check substrings '$A$2:$C$5', '$C$1', '$B$13:$C$16', '$C$12' in Data Range"
904 sControlString = DataRange.GetText
905 printlog "Data Range is: " & sControlString
906 if instr ( sControlString , "$A$2:$C$5" ) = 0 Then
907 warnlog "Data range wasn't correctly preserved after save and reload: $A$2:$C$13"
908 endif
909 if instr ( sControlString , "$C$1" ) = 0 Then
910 warnlog "Data range wasn't correctly preserved after save and reload: $A$19"
911 endif
912 if instr ( sControlString , "$B$13:$C$16" ) = 0 Then
913 QAErrorlog "#i100780#Data range wasn't correctly preserved after save and reload: $B$13:$C$16"
914 endif
915 if instr ( sControlString , "$C$12" ) = 0 Then
916 warnlog "Data range wasn't correctly preserved after save and reload: $E$1:$F$13"
917 endif
918 printlog "Check if Radio Button ROWS is checked"
919 if Rows.IsChecked then
920 warnlog "Radio Button ROWS (disabled) wasn't preserved after save and reload."
921 endif
922 printlog "Check if Radio Button COLUMNS is unchecked"
923 if NOT Columns.IsChecked then
924 warnlog "Radio Button COLUMNS (enabled) wasn't preserved after save and reload."
925 endif
926 printlog "Check if 'First row as label' box is checked"
927 if NOT FirstRowAsLabel.IsChecked then
928 warnlog "Check box 'First row as label' (checked) wasn't preserved after save and reload."
929 endif
930 printlog "Check if 'First column as label' box is not checked"
931 if FirstColumnAsLabel.IsChecked then
932 warnlog "Check box 'First column as label' (unchecked) wasn't preserved after save and reload."
933 endif
934 else
935 warnlog "Tab page Data Range was not up!"
936 FormatDataRanges
937 end if
938 printlog "Switch to tab page Data Series"
939 Kontext
940 Active.SetPage TabFormatDataRangesDataSeries
941 Kontext "TabChartTypeDataSeries"
942 if TabChartTypeDataSeries.Exists(2) then
943 printlog "Select 1st entry in Data Series"
944 if fSetListBoxByItem ( DataSeries , 1 ) > 0 then
945 warnlog "Selecting 1st item in Data Series failed. EXITING!"
946 TabChartTypeDataSeries.Cancel
947 call hCloseDocument
948 goto endsub
949 endif
950 printlog "Select Name in Data Ranges"
951 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
952 warnlog "Something went wrong selecting 'Data Ranges' item No. 1."
953 endif
954 printlog "Check substring '$C$1' in Range for Name"
955 sControlString = RangeFor.GetText
956 printlog "'Range for name' is: " & sControlString
957 if instr ( sControlString , "$C$1" ) = 0 Then
958 warnlog "'Range for name' wasn't correctly preserved after save and reload."
959 endif
961 printlog "Select Bubble Sizes in Data Ranges"
962 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
963 warnlog "Something went wrong selecting 'Data Ranges' item No. 2. EXITING!"
964 TabChartTypeDataSeries.Cancel
965 call hCloseDocument
966 goto endsub
967 endif
968 printlog "Check substring '$C$2:$C$5'in Range for Name"
969 sControlString = RangeFor.GetText
970 if instr ( sControlString , "$C$2:$C$5" ) = 0 Then
971 warnlog "'Range for Bubble Sizes' wasn't correctly preserved after save and reload."
972 endif
974 printlog "Select X-Values in Data Ranges"
975 if fSetListBoxByItem ( DataRanges , 3 ) > 0 then
976 warnlog "Something went wrong selecting 'Data Ranges' item No. 3. EXITING!"
977 TabChartTypeDataSeries.Cancel
978 call hCloseDocument
979 goto endsub
980 endif
981 printlog "Check substring '$A$2:$A$5' in Range for Name"
982 sControlString = RangeFor.GetText
983 if instr ( sControlString , "$A$2:$A$5" ) = 0 Then
984 warnlog "'Range for X-Values' wasn't correctly preserved after save and reload."
985 endif
987 printlog "Select Y-Values in Data Ranges"
988 if fSetListBoxByItem ( DataRanges , 4 ) > 0 then
989 warnlog "Something went wrong selecting 'Data Ranges' item No. 4. EXITING!"
990 TabChartTypeDataSeries.Cancel
991 call hCloseDocument
992 goto endsub
993 endif
994 printlog "Check substring '$B$2:$B$5' in Range for Name"
995 sControlString = RangeFor.GetText
996 if instr ( sControlString , "$B$2:$B$5" ) = 0 Then
997 warnlog "'Range for Y-Values' wasn't correctly preserved after save and reload."
998 endif
1000 printlog "Select 2nd entry in Data Series"
1001 if fSetListBoxByItem ( DataSeries , 2 ) > 0 then
1002 warnlog "Selecting 1st item in Data Series failed. EXITING!"
1003 TabChartTypeDataSeries.Cancel
1004 call hCloseDocument
1005 goto endsub
1006 endif
1007 printlog "Select Name in Data Ranges"
1008 if fSetListBoxByItem ( DataRanges , 1 ) > 0 then
1009 warnlog "Something went wrong selecting 'Data Ranges' item No. 1."
1010 endif
1011 printlog "Check substring '$C$12' in Range for Name"
1012 sControlString = RangeFor.GetText
1013 printlog "'Range for name' is: " & sControlString
1014 if instr ( sControlString , "$C$12" ) = 0 Then
1015 warnlog "'Range for name' wasn't correctly preserved after save and reload."
1016 endif
1018 printlog "Select Bubble Sizes in Data Ranges"
1019 if fSetListBoxByItem ( DataRanges , 2 ) > 0 then
1020 warnlog "Something went wrong selecting 'Data Ranges' item No. 2. EXITING!"
1021 TabChartTypeDataSeries.Cancel
1022 call hCloseDocument
1023 goto endsub
1024 endif
1025 printlog "Check substring '$C$13:$C$16'in Range for Name"
1026 sControlString = RangeFor.GetText
1027 if instr ( sControlString , "$C$13:$C$16" ) = 0 Then
1028 warnlog "'Range for Bubble Sizes' wasn't correctly preserved after save and reload."
1029 endif
1031 printlog "Select X-Values in Data Ranges"
1032 if fSetListBoxByItem ( DataRanges , 3 ) > 0 then
1033 warnlog "Something went wrong selecting 'Data Ranges' item No. 3. EXITING!"
1034 TabChartTypeDataSeries.Cancel
1035 call hCloseDocument
1036 goto endsub
1037 endif
1038 printlog "Check substring '$A$13:$A$16' in Range for Name"
1039 sControlString = RangeFor.GetText
1040 if instr ( sControlString , "$A$13:$A$16" ) = 0 Then
1041 warnlog "'Range for X-Values' wasn't correctly preserved after save and reload."
1042 endif
1044 printlog "Select Y-Values in Data Ranges"
1045 if fSetListBoxByItem ( DataRanges , 4 ) > 0 then
1046 warnlog "Something went wrong selecting 'Data Ranges' item No. 4. EXITING!"
1047 TabChartTypeDataSeries.Cancel
1048 call hCloseDocument
1049 goto endsub
1050 endif
1051 printlog "Check substring '$B$13:$B$16' in Range for Name"
1052 sControlString = RangeFor.GetText
1053 if instr ( sControlString , "$B$13:$B$16" ) = 0 Then
1054 warnlog "'Range for Y-Values' wasn't correctly preserved after save and reload."
1055 endif
1057 printlog "Leave tab page data series with CANCEL"
1058 TabChartTypeDataSeries.Cancel
1059 else
1060 warnlog "Tab page Data Series was not up!"
1061 end if
1062 printlog "Insert / Title"
1063 InsertTitle
1064 Kontext "InsertTitleDialog"
1065 if InsertTitleDialog.Exists(2) then
1066 printlog "Check if 'Title' text box is empty"
1067 sControlString = MainTitle.GetText
1068 if sControlString <> "" then
1069 warnlog "Empty Title string wasn't preserved after save and reload."
1070 endif
1071 printlog "Check if 'Subtitle' text box is empty"
1072 sControlString = SubTitle.GetText
1073 if sControlString <> "" then
1074 warnlog "Empty Subtitle string wasn't preserved after save and reload."
1075 endif
1076 printlog "Check if 'X Title' text box is empty"
1077 sControlString = TitleXaxis.GetText
1078 if sControlString <> "" then
1079 warnlog "Empty X Title string wasn't preserved after save and reload."
1080 endif
1081 printlog "Check if 'Y Title' text box is empty"
1082 sControlString = TitleYaxis.GetText
1083 if sControlString <> "" then
1084 warnlog "Empty Y Title string wasn't preserved after save and reload."
1085 endif
1086 printlog "Check if 'Z Title' text box is empty"
1087 sControlString = TitleZaxis.GetText
1088 if sControlString <> "" then
1089 warnlog "Empty Z Title string wasn't preserved after save and reload."
1090 endif
1091 printlog "Leaving Title dialog with Cancel"
1092 InsertTitleDialog.Cancel
1093 else
1094 warnlog "Title dialog was not up!"
1095 end if
1096 printlog "Insert / Grids"
1097 If fInvokeGridsDialog = 0 then
1098 Kontext "InsertGridsDialog"
1099 printlog "Check if 'Gridlines X Axis' box is checked"
1100 if MainGridXaxis.IsChecked then
1101 warnlog "Check box 'Gridlines X Axis' (disabled) wasn't preserved after save and reload."
1102 endif
1103 printlog "Check if 'Gridlines Y Axis' box is unchecked"
1104 if MainGridYaxis.IsChecked then
1105 warnlog "Check box 'Gridlines Y Axis' (disabled) wasn't preserved after save and reload."
1106 endif
1107 printlog "Check if 'Gridlines Z Axis' box is checked"
1108 if MainGridZaxis.IsEnabled then
1109 warnlog "Check box 'Gridlines Z Axis' shouldn't be enabled after save and reload."
1110 endif
1111 printlog "Leave dialog with CANCEL"
1112 InsertGridsDialog.Cancel
1113 else
1114 warnlog "Insert Grids dialog was not up!"
1115 end if
1116 printlog "Insert / Legend"
1117 if fInvokeLegendDialog() = 0 then
1118 printlog "Check if 'Legend Display' box is checked"
1119 Kontext "InsertLegendDialog"
1120 if Display.IsChecked then
1121 warnlog "Check box 'Legend Display' (disabled) wasn't preserved after save and reload."
1122 endif
1123 printlog "Leave dialog with CANCEL."
1124 InsertLegendDialog.Cancel
1125 else
1126 warnlog "Insert Legend dialog was not up!"
1127 end if
1128 printlog "Press ESCAPE button (deselecting the OLE object)"
1129 Kontext "DocumentCalc"
1130 DocumentCalc.TypeKeys "<Escape>"
1131 printlog "Close document"
1132 Call hCloseDocument
1133 endcase