| blob | a1420ad014b20a1912aeddccf36bdc4aac65c77a |
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: gallery.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
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 : wolfram.garten@sun.com
35 '*
36 '* short description : Global Required/resource test: Checking the gallery
37 '*
38 '*******************************************************************
39 '*
40 ' #1 tGallery_DialogTest ' Open gallery, pin - unpin, dock - undock, close gallery
41 ' #1 tGallery_ActivateAndUpdateAllThemes ' Activate all gallery-themes and update this theme
42 ' #1 tGallery_CheckNames ' Check the names for all themes depends on language
43 ' #1 tGallery_CheckContextMenuForGalleryThemes ' Test the context menu on themes window
44 ' #1 tGallery_CreateAndWorkWithANewGalleryThemes ' Create a new theme, add graphics and work with it
45 ' #1 tGallery_GalleryView_Preview ' Preview-feature in Gallery Beamer-window
46 ' #1 tGallery_GalleryView_Insert ' Insert gallery objects in all applications
47 ' #1 tGallery_GalleryView_Delete ' Delete gallery objects out of Beamer window
48 ' #0 hOpenGallery ' Open the gallery
49 ' #1 tGallery_Quick_check
50 '*
51 '\******************************************************************
52 testcase tGallery_DialogTest
53 printlog "- Working with Gallery-Beamer!"
54 gApplication = "WRITER"
55 call hNewDocument
56 call hOpenGallery
57 Kontext "DocumentWriter"
58 printlog "- undock the Gallery Beamer"
59 Kontext "Gallery"
60 Gallery.Undock ( AlignTop )
61 sleep(2)
62 printlog " - move the gallery window"
63 Gallery.move ( 20, 20 )
64 sleep(2)
65 printlog "- dock the Gallery Beamer"
66 Gallery.Dock ( AlignTop )
67 sleep(2)
68 printlog "- close the Gallery Beamer"
69 ToolsGallery
70 call hCloseDocument
71 endcase
73 '-------------------------------------------------------------------------
75 testcase tGallery_ActivateAndUpdateAllThemes
76 Dim iThemeCount as Integer
77 Dim i as Integer
78 Dim j as Integer
79 Dim Gallerytext as string
80 printlog "activate and update all gallery-themes"
81 gApplication = "WRITER"
82 call hNewDocument
83 Kontext
84 call hOpenGallery
85 Kontext "Gallery"
86 iThemeCount = Gallerys.GetItemCount
87 for i=1 to iThemeCount
88 if gNetzInst = FALSE then
89 Kontext "Gallery"
90 Gallerytext = Gallerys.GetItemText(i)
91 printlog "- " + i + ". entry (" & Gallerytext & ")"
92 Gallerys.Select i
93 Gallerys.MouseMove ( 10, 10 )
94 Gallerys.OpenContextMenu
95 sleep (3)
96 printlog " - update"
97 hMenuSelectNr (1)
98 sleep (3)
99 Kontext "Messagebox"
100 if Messagebox.Exists(3) then
101 if Messagebox.getRT=304 then
102 printlog "- 'MyTheme' is the " & i & "'s entry."
103 Messagebox.No
104 end if
105 else
106 for j = 1 to 800
107 Kontext "AktualisierenGallery"
108 if AktualisierenGallery.Exists then
109 printlog "DEBUG (j): " & j
110 sleep (1)
111 else
112 printlog "DEBUG: 800 reached!"
113 j=801
114 end if
115 next j
116 end if
117 end if
118 next i
119 call hCloseDocument
120 endcase
122 '-------------------------------------------------------------------------
124 testcase tGallery_CheckNames
125 Dim iThemeCount as Integer
126 Dim i as Integer
127 Dim j as Integer
128 Dim ssList (100) as String
129 Dim siList (100) as String
130 Dim sFileName as String
131 Dim iGalleryThemes as integer
133 if gOOO = true then
134 sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_oo_" + iSprache + ".txt" )
135 else
136 sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_" + iSprache + ".txt" )
137 end if
139 gApplication = "WRITER"
140 call hNewDocument
141 Kontext
142 call hOpenGallery
143 printlog "- check the number of gallery-themes"
144 Kontext "Gallery"
145 if NOT gOOO then
146 if bAsianLan then
147 iGalleryThemes = 29 ' Flags are not allowed!
148 else
149 iGalleryThemes = 30
150 end if
151 else
152 if bAsianLan then
153 iGalleryThemes = 6 ' Flags are not allowed!
154 else
155 iGalleryThemes = 6
156 end if
157 end if
158 iThemeCount = Gallerys.GetItemCount
159 if (iThemeCount <> iGalleryThemes) then
160 warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'"
161 end if
162 for i=1 to iThemeCount
163 Gallerys.Select i
164 ListAppend ( siList(), Gallerys.GetSelText )
165 next i
166 printlog "- check the names of gallery-themes"
167 if Dir ( sFilename ) = "" then
168 warnlog "The file for comparison does not exists. The file will be written!"
169 warnlog "Please control : " + sFilename
170 ListWrite ( siList(), sFilename, "utf8" )
171 else
172 printlog " file for comparison is : " + sFilename
173 ListRead ( ssList (), sFilename, "uft8" )
174 gCompare2Lists ( siList(), ssList () )
175 end if
176 ToolsGallery
177 call hCloseDocument
178 endcase
180 '-------------------------------------------------------------------------
182 testcase tGallery_CheckContextMenuForGalleryThemes
183 Dim iForBidden as Integer
184 Dim iMenuEntries as Integer
185 Dim i as Integer
186 Dim iThemeCount as Integer
187 printlog "check the contextmenu for the gallery-themes"
188 gApplication = "WRITER"
189 call hNewDocument
190 call hOpenGallery
191 Kontext "Gallery"
192 iThemeCount = Gallerys.GetItemCount
193 Gallerys.MouseMove ( 10, 10 )
194 for i=1 to iThemeCount
195 Kontext "Gallery"
196 printlog "- " + i + ". entry"
197 sleep 1
198 Gallerys.Select 1
199 sleep (1)
200 Gallerys.Select i
201 sleep (1)
202 Gallerys.OpenContextMenu
203 sleep (2)
204 iMenuEntries = hMenuItemGetCount
205 if iMenuEntries <> 3 then
206 if gNetzInst = FALSE then
207 warnlog "There are not 3 entries! => no test on the contextmenu!"
208 else
209 if iMenuEntries <> 1 then
210 warnlog "Net-Inst : There are not 1 entries! => no test on the contextmenu!"
211 else
212 sleep (3)
213 hMenuSelectNr(1)
214 Kontext
215 if Active.GetPageCount <> 1 then
216 warnlog "There are more than 1 Tabpage in Net-Installation ( perhaps no root-installation )!"
217 end if
218 Active.SetPage TabAllgemeinGallery
219 Kontext "TabAllgemeinGallery"
220 TabAllgemeinGallery.Cancel
221 sleep (1)
222 end if
223 end if
224 else
225 sleep (1)
226 hMenuSelectNr(2)
227 Kontext "GalleryNewTitle"
228 GalleryNewTitle.Cancel
229 sleep(1)
230 Kontext "Gallery"
231 Gallerys.OpenContextMenu
232 sleep (3)
233 hMenuSelectNr (3)
234 Kontext
235 Active.SetPage TabAllgemeinGallery
236 Active.SetPage TabDateien
237 Kontext "TabDateien"
238 TabDateien.Cancel
239 sleep(1)
240 end if
241 next i
242 ToolsGallery
243 call hCloseDocument
244 endcase
246 '-------------------------------------------------------------------------
248 testcase tGallery_CreateAndWorkWithANewGalleryThemes
249 Dim iMenuEntries as Integer
250 Dim j as Integer
251 printlog "Open a new Writer document"
252 printlog "Tools / Gallery"
253 printlog "create a new gallery-theme ( TT-theme )"
254 gApplication = "WRITER"
255 call hNewDocument
256 call hOpenGallery
257 iMenuEntries = Gallerys.GetItemCount
258 printlog "- Clicking on 'New Theme' and creating a new theme"
259 NewTheme.Click
260 printlog "+Activate General tabpage and insert TT-theme as name"
261 Kontext
262 Active.SetPage TabAllgemeinGallery
263 Kontext "TabAllgemeinGallery"
264 NeuesThema.SetText "TT-theme"
265 sleep (1)
266 printlog " - named the new theme 'TT-theme' on the general-page"
267 printlog " - insert all files out of '[gTestToolpath]\global\input\graf_inp' in the files-page"
268 printlog "+Activate Files tabpage"
269 Kontext
270 Active.SetPage TabDateien
271 Kontext "TabDateien"
272 printlog " - click 'add' without a selected file => insert-graphic-dialog has to be be visible"
273 printlog "+Click on Add (If no file is selected the Graphic-Insert dialog has to be be opened -> close it)"
274 Hinzufuegen.Click
275 sleep (1)
276 Kontext "GrafikEinfuegenDlg"
277 GrafikEinfuegenDlg.Cancel
278 sleep (1)
279 printlog " - click 'find files' to insert the path for graphics"
280 printlog "+Click on Find Files => select-path dialog will be visible"
281 Kontext "TabDateien"
282 Suche.Click
283 sleep (1)
284 printlog "+Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on Select"
285 Kontext "OeffnenDlg"
286 Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) )
287 sleep (1)
288 Auswaehlen.Click
289 sleep (10)
290 printlog "+Click on Add for some graphics"
291 printlog " - 'add' one by one"
292 Kontext "TabDateien"
293 DateiListe.Select 1
294 WaitSlot(1000)
295 Hinzufuegen.Click
296 printlog "Checking if Apply window is closed"
297 Kontext "ApplyGallery"
298 for j=1 to 100
299 if ApplyGallery.Exists then
300 sleep (1)
301 else
302 j=101
303 endif
304 next j
306 sleep (1)
307 Kontext "TabDateien"
308 printlog "add the 2nd one"
309 DateiListe.Select 1
310 Hinzufuegen.Click
311 printlog "Checking if Apply window is closed"
312 Kontext "ApplyGallery"
313 for j=1 to 100
314 if ApplyGallery.Exists then
315 sleep (1)
316 else
317 j=101
318 endif
319 next j
320 sleep (1)
321 Kontext "TabDateien"
323 printlog "+Click on Add all for rest of the graphics"
324 printlog " - 'add all' for the rest of the files"
325 DateiListe.Select 1
326 HinzufuegenAlle.Click
327 sleep (8)
328 printlog " - apply-dialog -> cancel"
329 Kontext "ApplyGallery"
330 for j=1 to 100
331 if ApplyGallery.Exists then
332 sleep (1)
333 else
334 j=101
335 endif
336 next j
337 sleep (1)
338 Kontext "TabDateien"
340 if DateiListe.GetItemCount > 1 then
341 printlog " - 'add all' for the rest of the files"
342 DateiListe.Select 1
343 HinzufuegenAlle.Click
344 sleep (8)
345 Kontext "ApplyGallery"
346 for j=1 to 100
347 If ApplyGallery.Exists then
348 sleep (1)
349 else
350 j=101
351 end if
352 next j
353 end if
354 Kontext "TabDateien"
355 printlog " - click 'OK' for the tabpages"
356 TabDateien.OK
357 printlog "+Check if the new entry is inserted and select it"
358 printlog " - check if the new entrie is inserted and select it"
359 Kontext "Gallery"
360 if Gallerys.GetItemCount <> ( iMenuEntries + 1 ) then
361 warnlog "No new theme was created => the test ends here"
362 ToolsGallery
363 call hCloseDocument
364 else
365 printlog "make mouseclick to set focus"
366 gMouseClick 50,50
367 Kontext "Gallery"
368 Gallerys.Select "TT-theme"
369 Gallerys.MouseMove ( 10, 10 )
370 sleep (1)
371 Gallerys.OpenContextMenu
372 printlog "+Update the entry (1. entry in context menu ) => cancel it"
373 sleep (3)
374 hMenuSelectNr (1)
375 sleep (1)
376 Kontext "AktualisierenGallery"
377 if AktualisierenGallery.Exists <> TRUE then
378 AktualisierenGallery.Cancel
379 end if
380 do
381 sleep 1
382 loop while AktualisierenGallery.Exists
383 Kontext "Gallery"
384 Gallerys.Select "TT-theme"
385 Gallerys.OpenContextMenu
386 printlog "+Update it (1. entry in context menu )"
387 sleep (3)
388 hMenuSelectNr (1)
389 for j=1 to 100
390 Kontext "AktualisierenGallery"
391 if AktualisierenGallery.Exists <> TRUE then
392 j=101
393 else
394 sleep (1)
395 end if
396 next j
397 printlog " - rename ( 3. entry in context-menu )"
398 Kontext "Gallery"
399 Gallerys.OpenContextMenu
400 sleep (3)
401 hMenuSelectNr (3)
402 Kontext "GalleryNewTitle"
403 Title.SetText "New TT-theme"
404 GalleryNewTitle.OK
405 Kontext "Gallery"
406 Gallerys.Select "New TT-theme"
407 printlog " - add new graphics in properties ( 4. entry in context-menu )"
408 Kontext "Gallery"
409 Gallerys.OpenContextMenu
410 sleep (3)
411 hMenuSelectNr (4)
412 Kontext
413 Active.SetPage TabDateien
414 Kontext "TabDateien"
415 Suche.Click
416 Kontext "OeffnenDlg"
417 Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) )
418 Auswaehlen.Click
419 sleep (10)
420 Kontext "TabDateien"
421 DateiListe.Select 1
422 Hinzufuegen.Click
423 TabDateien.OK
424 printlog " - delete the entry ( 2. entry in context-menu )"
425 printlog " - messagebox -> no"
426 Kontext "Gallery"
427 Gallerys.Select "New TT-theme"
428 sleep (5)
429 Gallerys.OpenContextMenu
430 sleep (3)
431 hMenuSelectNr (2)
432 Kontext "Active"
433 sleep (1)
434 Active.No
435 printlog " - messagebox -> yes"
436 Kontext "Gallery"
437 sleep (1)
438 Gallerys.Select "New TT-theme"
439 sleep (1)
440 Gallerys.OpenContextMenu
441 sleep (3)
442 hMenuSelectNr (2)
443 Kontext "Active"
444 Active.Yes
445 try
446 Kontext "Gallery"
447 Gallerys.Select "New TT-theme"
448 warnlog "The entry isn't deleted!"
449 catch
450 endcatch
451 end if
452 sleep 10
453 ToolsGallery
454 call hCloseDocument
455 endcase
457 '-------------------------------------------------------------------------
459 testcase tGallery_GalleryView_Preview
460 Dim jpeg_bkg as Integer
461 Dim iAnimation as Integer
462 Dim iSound as Integer
463 Dim i as Integer
464 Dim iPreview as Integer
465 Dim iTitle as Integer
466 if NOT gOOO then
467 select case iSprache
468 case 01 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 28
469 case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6
470 case 31 : jpeg_bkg = 3 : iAnimation = 3 : iSound = 11
471 case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29
472 case 34 : jpeg_bkg = 11 : iAnimation = 1 : iSound = 28
473 case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10
474 case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27
475 case 46 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17
476 case 48 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17
477 case 49 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16
478 case 55 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 28
479 case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10 'FHA TODO: Find out the right numbers for Asian languages.
480 case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
481 case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
482 case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
483 case else : jpeg_bkg = 10 : iAnimation = 1 : iSound = 17
484 warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
485 end select
486 else ' Testing OOO
487 select case iSprache
488 case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
489 case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
490 case 31 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 1
491 case 33 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 2
492 case 34 : jpeg_bkg = 1 : iAnimation = 1 : iSound = 2
493 case 36 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
494 case 39 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
495 case 46 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
496 case 48 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
497 case 49 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
498 case 55 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
499 case 81 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 'FHA TODO: Find out the right numbers for Asian languages.
500 case 82 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
501 case 86 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 3
502 case 88 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
503 case else : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
504 warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
505 end select
506 end if
507 printlog "open a writer and the gallery"
508 gApplication = "WRITER"
509 call hNewDocument
510 Kontext
511 call hOpenGallery
512 for i=1 to 3
513 if i=1 then
514 Gallerys.Select jpeg_bkg
515 printlog "selected gallery-theme : Backgrounds (Jpeg-files)"
516 end if
517 if i=2 then
518 Gallerys.Select iAnimation
519 printlog "selected gallery-theme : Animation"
520 end if
521 if i=3 then
522 Gallerys.Select iSound
523 printlog "selected gallery-theme : Sound"
524 end if
525 if gNetzInst = FALSE then
526 iPreview = 2 : iTitle = 3
527 else
528 iPreview = 2 : iTitle = 0
529 end if
530 printlog "- list-view"
531 printlog " - open the list-view"
532 ListView.Click
533 sleep (1)
534 printlog " - Press Home + Enter to focus and enter Preview-mode."
535 View.TypeKeys "<HOME>"
536 View.TypeKeys "<RETURN>"
537 sleep (2)
538 View.TypeKeys "<RETURN>"
539 sleep (2)
540 printlog " - preview out of context menu on/off"
541 View.TypeKeys "<HOME>"
542 Sleep (2)
543 View.OpenContextMenu true
544 sleep (3)
545 hMenuSelectNr ( iPreview )
546 sleep (3)
547 kontext "Gallery"
548 Sleep (2)
549 View.OpenContextMenu true
550 sleep (2)
551 hMenuSelectNr ( iPreview )
552 sleep (3)
553 if gNetzInst = FALSE then
554 printlog " - title"
555 Kontext "Gallery"
556 sleep (2)
557 View.OpenContextMenu true
558 sleep (3)
559 hMenuSelectNr ( iTitle )
560 Kontext "GalleryNewTitle"
561 sleep (1)
562 GalleryNewTitle.Cancel
563 sleep (1)
564 Kontext "Gallery"
565 end if
566 View.OpenContextMenu true
567 sleep (3)
568 hMenuSelectNr ( iPreview )
569 sleep (3)
570 View.OpenContextMenu true
571 sleep (3)
572 printlog MenuIsItemChecked (MenuGetItemID(iPreview+1))
573 if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then
574 Printlog " Entered Preview-mode correctly"
575 sleep (1)
576 else
577 Warnlog " Didnt seem to enter preview-mode correctly."
578 end if
579 MenuSelect (0)
580 sleep (1)
581 printlog "- icon-view"
582 if IconView.isEnabled then
583 IconView.Click
584 qaErrorLog "The bug 64543 has been fixed! Please report to FHA."
585 end if
586 sleep (1)
587 View.TypeKeys "<HOME>"
588 printlog " - Enter to get out of Preview-mode"
589 View.TypeKeys "<RETURN>"
590 sleep (2)
591 View.TypeKeys "<RETURN>"
592 sleep (2)
593 printlog " - preview out of context menu on/off"
594 View.TypeKeys "<HOME>"
595 sleep (3)
596 View.OpenContextMenu true
597 sleep (3)
598 hMenuSelectNr ( iPreview )
599 sleep (3)
600 View.OpenContextMenu true
601 sleep (3)
602 hMenuSelectNr ( iPreview )
603 sleep (3)
604 if gNetzInst = FALSE then
605 printlog " - title"
606 try
607 View.OpenContextMenu true
608 sleep (3)
609 catch
610 warnlog "Could not open Contextmenu for Title nr:" +iTitle
611 endcatch
612 hMenuSelectNr ( iTitle )
613 Kontext "GalleryNewTitle"
614 GalleryNewTitle.Cancel
615 Kontext "Gallery"
616 end if
617 next i
618 sleep 1 ' else crash
619 ToolsGallery
621 kontext "Mplayer"
622 if Mplayer.Exists then
623 if (gApplication = "IMPRESS") then
624 kontext "DocumentImpress"
625 else
626 kontext "DocumentDraw"
627 end if
628 ToolsMediaPlayer
629 else
630 if (gApplication = "IMPRESS") then
631 kontext "DocumentImpress"
632 else
633 kontext "DocumentDraw"
634 end if
635 end if
637 call hCloseDocument
638 endcase
640 '-------------------------------------------------------------------------
642 testcase tGallery_GalleryView_Insert
643 Dim jpeg_bkg as Integer
644 Dim iAnimation as Integer
645 Dim i as Integer
646 Dim j as Integer
647 Dim k as Integer
648 if NOT gOOO then
649 select case iSprache
650 case 01 : jpeg_bkg = 3 : iAnimation = 1
651 case 07 : jpeg_bkg = 29 : iAnimation = 1
652 case 31 : jpeg_bkg = 3 : iAnimation = 3
653 case 33 : jpeg_bkg = 13 : iAnimation = 1
654 case 34 : jpeg_bkg = 7 : iAnimation = 1
655 case 36 : jpeg_bkg = 12 : iAnimation = 1
656 case 39 : jpeg_bkg = 10 : iAnimation = 1
657 case 46 : jpeg_bkg = 1 : iAnimation = 2
658 case 48 : jpeg_bkg = 3 : iAnimation = 1
659 case 49 : jpeg_bkg = 1 : iAnimation = 2
660 case 55 : jpeg_bkg = 8 : iAnimation = 1
661 case 81 : jpeg_bkg = 1 : iAnimation = 3
662 case 82 : jpeg_bkg = 1 : iAnimation = 17
663 case 86 : jpeg_bkg = 17 : iAnimation = 15
664 case 88 : jpeg_bkg = 17 : iAnimation = 15
665 case else : jpeg_bkg = 1 : iAnimation = 2
666 warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
667 end select
668 else ' Testing OOO
669 select case iSprache
670 case 01 : jpeg_bkg = 3 : iAnimation = 1
671 case 07 : jpeg_bkg = 5 : iAnimation = 1
672 case 31 : jpeg_bkg = 3 : iAnimation = 3
673 case 33 : jpeg_bkg = 5 : iAnimation = 1
674 case 34 : jpeg_bkg = 6 : iAnimation = 1
675 case 36 : jpeg_bkg = 5 : iAnimation = 1
676 case 39 : jpeg_bkg = 5 : iAnimation = 1
677 case 46 : jpeg_bkg = 1 : iAnimation = 2
678 case 48 : jpeg_bkg = 3 : iAnimation = 1
679 case 49 : jpeg_bkg = 1 : iAnimation = 2
680 case 55 : jpeg_bkg = 6 : iAnimation = 1
681 case 81 : jpeg_bkg = 1 : iAnimation = 3
682 case 82 : jpeg_bkg = 1 : iAnimation = 1
683 case 86 : jpeg_bkg = 5 : iAnimation = 5
684 case 88 : jpeg_bkg = 5 : iAnimation = 1
685 case else : jpeg_bkg = 1 : iAnimation = 2
686 warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
687 end select
688 end if
689 for i=1 to 4 ' each application
690 if i=1 then gApplication = "WRITER"
691 if i=2 then gApplication = "CALC"
692 if i=3 then gApplication = "IMPRESS"
693 if i=4 then gApplication = "DRAW"
695 printlog gApplication 'Chr(13)
696 call hNewDocument
697 call hOpenGallery
698 ' kontext "GraphicObjectbar"
699 ' if GraphicObjectbar.Exists then GraphicObjectbar.Close
700 for j=1 to 2 ' the two gallery-theme
701 if j=1 then
702 Gallerys.Select jpeg_bkg
703 printlog " selected gallery-theme : Backgrounds"
704 end if
706 if j=2 then
707 Gallerys.Select iAnimation
708 printlog " selected gallery-theme : Animation"
709 end if
711 if i=1 then ' test for writer
712 for k=1 to 2
713 if k=1 then
714 ListView.Click
715 printlog " - insert on list view"
716 else
717 IconView.Click
718 printlog " - insert on icon view"
719 end if
721 sleep (2)
722 View.Mousedown ( 5, 18 )
723 View.Mouseup ( 5, 18 )
724 View.typekeys "<DOWN>,<UP>"
726 sleep (3)
727 View.TypeKeys "<SHIFT F10>" ' OpenContextMenu
728 sleep (3)
729 hMenuSelectNr ( 1 )
731 if j=1 then
732 printlog " - copy"
733 sleep (1)
734 hMenuSelectNr ( 1 )
735 sleep (2)
736 else
737 printlog " - copy"
738 sleep (1)
739 hMenuSelectNr ( 1 )
740 sleep (3)
742 printlog " - link"
743 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
744 sleep (1)
745 hMenuSelectNr ( 1 )
746 hMenuSelectNr ( 2 )
747 sleep (3)
749 printlog " - background -> page"
750 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
751 sleep (2)
752 hMenuSelectNr ( 1 )
753 hMenuSelectNr ( 3 )
754 hMenuSelectNr ( 1 )
755 sleep (3)
757 printlog " - background -> paragraph"
758 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
759 sleep (2)
760 hMenuSelectNr ( 1 )
761 hMenuSelectNr ( 3 )
762 hMenuSelectNr ( 2 )
763 sleep (3)
764 end if
766 kontext "GraphicObjectbar"
767 if GraphicObjectbar.Exists then
768 if GraphicObjectbar.isDocked = False then
769 GraphicObjectbar.Move 900,900
770 end if
771 end if
772 kontext "Gallery"
774 next k
775 else ' test for other applications ( calc, impress, draw )
776 kontext "GraphicObjectbar"
777 if GraphicObjectbar.Exists then
778 if GraphicObjectbar.isDocked = False then
779 GraphicObjectbar.Move 900,900
780 end if
781 end if
782 kontext "Gallery"
784 kontext "Gluepointsobjectbar"
785 if Gluepointsobjectbar.Exists then
786 if Gluepointsobjectbar.isDocked = false then
787 Gluepointsobjectbar.Move 900,900
788 end if
789 end if
790 kontext "Gallery"
792 kontext "Optionsbar"
793 if Optionsbar.Exists then
794 if Optionsbar.isDocked = false then
795 Optionsbar.Move 900,900
796 end if
797 end if
798 kontext "Gallery"
800 for k=1 to 2
801 if k=1 then
802 ListView.Click
803 printlog " - insert on list view"
804 else
805 IconView.Click
806 printlog " - insert on icon view"
807 end if
809 sleep (1)
810 View.Mousedown ( 5, 18 )
811 View.Mouseup ( 5, 18 )
812 View.typekeys "<DOWN>,<UP>"
814 sleep (1)
815 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
816 printlog " - copy"
817 sleep (3)
818 hMenuSelectNr ( 1 )
819 hMenuSelectNr ( 1 )
820 sleep (3)
822 if j=2 then
823 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
824 printlog " - link"
825 sleep (3)
826 hMenuSelectNr ( 1 )
827 hMenuSelectNr ( 2 )
828 sleep (2)
829 end if
831 next k
832 end if
833 next j
834 ToolsGallery
835 WaitSlot (2000)
836 call hCloseDocument
837 WaitSlot (2000)
838 next i
839 endcase
841 '-------------------------------------------------------------------------
843 testcase tGallery_GalleryView_Delete
844 Dim jpeg_bkg as Integer
845 Dim iAnimation as Integer
846 Dim iSound as Integer
847 Dim i as Integer
848 Dim j as Integer
849 Dim k as Integer
851 if gNetzInst = TRUE then
852 ' TODO: since we now only know net- installations, make it work!
853 printlog "No test for 'net' installations, because there are no rights to delete objects out of Gallery!"
854 'NOTE: Jump to NotForNetInst...
855 Goto NotForNetInst
856 end if
858 select case iSprache
859 case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
860 case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6
861 case 31 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
862 case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29
863 case 34 : jpeg_bkg = 7 : iAnimation = 1 : iSound = 28
864 case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10
865 case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27
866 case 46 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 18
867 case 49 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
868 case 55 : jpeg_bkg = 8 : iAnimation = 1 : iSound = 30
869 case 81 : jpeg_bkg = 1 : iAnimation = 3 : iSound = 10
870 case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
871 case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
872 case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
873 case else : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
874 warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )"
875 end select
877 gApplication = "WRITER"
878 call hNewDocument
879 call hOpenGallery
880 for i=1 to 3
881 Kontext "Gallery"
882 if i=1 then
883 Gallerys.Select jpeg_bkg
884 printlog " selected gallery-theme : Backgrounds"
885 end if
887 if i=2 then
888 Gallerys.Select iAnimation
889 printlog " selected gallery-theme : Animation"
890 end if
892 if i=3 then
893 Gallerys.Select iSound
894 printlog " selected gallery-theme : Sound"
895 end if
897 for j=1 to 2
898 Kontext "Gallery"
899 if j=1 then
900 IconView.Click
901 printlog " Icon view"
902 sleep 1
903 end if
904 if j=2 then
905 ListView.Click
906 printlog " List view"
907 end if
909 for k=1 to 2
910 Kontext "Gallery"
911 sleep (1)
912 View.MouseMove ( 5, 15 )
913 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu true
914 hMenuSelectNr ( 4 )
915 kontext "Active"
916 if k=1 then
917 Active.No
918 printlog " delete one object => no"
919 else
920 Active.Yes
921 printlog " delete one object => yes"
922 end if
923 next k
924 next j
925 next i
926 ToolsGallery
927 call hCloseDocument
928 'NOTE: Jump End NotForNetInst
929 NotForNetInst:
930 endcase
932 '-------------------------------------------------------------------------
933 testcase tGallery_Quick_check
935 dim sFile(1) as string
936 dim i as integer
938 sFile(0) = ConvertPath ( gOfficeBasisPath + "share/gallery/apples.gif" ) '
939 sFile(1) = ConvertPath ( gOfficeBasisPath + "share/gallery/bullets/coffee_1.gif" ) '
940 call hNewDocument
941 for i = 0 to 1
942 gMouseclick 1, 50
943 if FileExists(sFile(i)) then
944 if (FileLen(sFile(i)) > 0 ) then
945 call hGrafikEinfuegen ( sFile(i) )
946 else
947 warnlog "File lenght is 0: '" + sFile(i) + "'"
948 end if
949 else
950 warnlog "File doesn't exist: '" + sFile(i) + "'"
951 end if
952 next i
953 call hCloseDocument
954 endcase