| blob | 6669f413d36d143eb7c5d45c46acfc88142bdaf9 |
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: im_007_.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
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 : Impress Required Test Library (7)
37 '*
38 '\*****************************************************************
40 ' this menue is only in impress availble
41 testcase tSlideShowSlideShow
42 '/// open application ///'
43 Call hNewDocument
44 '/// Slide Show->Slide Show Settings ///'
45 SlideShowPresentationSettings
46 Kontext "Bildschirmpraesentation"
47 '/// check if 'type' 'default' is checked, it has to be the default !///'
48 if standard.IsChecked then
49 if LogoAnzeigen.isEnabled then
50 Warnlog "'Show Logo' is Enabled :-("
51 endif
52 else
53 Warnlog "type 'default' is not checked as default :-("
54 endif
55 '/// check checkbox 'Window' ///'
56 Fenster.Check
57 Printlog "- Presentation in window mode is checked"
58 '/// close dialog with OK 'Slide Show' ///'
59 Bildschirmpraesentation.Ok
60 sleep 3
61 '/// Slide Show->Slide Show ///'
62 SlideShowSlideshow
63 Sleep 5
64 try
65 Kontext "DocumentPresentation"
66 sleep 3
67 '/// Press <Esc> to leave presentation mode ///'
68 DocumentPresentation.Typekeys ("<Escape>")
69 Sleep 3
70 Kontext "DocumentImpress"
71 DocumentImpress.MouseDoubleClick ( 50, 50 )
72 Sleep 3
73 catch
74 ' FileClose
75 warnlog "had to catch <the ball> :-( "
76 ' Kontext "Messagebox"
77 ' if Messagebox.Exists (5) Then Messagebox.No
78 ' Kontext
79 ' sleep (12)
80 ' start sAppExe$
81 ' sleep (6)
82 ' Kontext
83 ' if Office.Exists(2) then Resetapplication
84 ' Warnlog "Slide didn't end, application wasn't in document edit mode"
85 endcatch
86 '/// close application ///'
87 Call hCloseDocument
88 endcase
90 testcase tSlideShowRehearseTimings
91 goto endsub
92 '/// open application ///'
93 Call hNewDocument
94 '/// Slide Show->Slide Show Settings ///'
95 SlideShowPresentationSettings
96 Kontext "Bildschirmpraesentation"
97 '/// check checkbox 'Window' ///'
98 Fenster.Check
99 '/// close dialog with OK 'Slide Show' ///'
100 Bildschirmpraesentation.Ok
101 '/// Slide Show->Rehearse Timings ///'
102 SlideShowRehearseTimings
103 sleep 2
104 Kontext "DocumentPresentation"
105 '/// Press <Esc> to leave presentation mode ///'
106 if DocumentPresentation.Exists (5) then
107 DocumentPresentation.Typekeys ("<Escape>")
108 else
109 Warnlog "SlideShowRehearseTimings mode not accessible"
110 endif
111 Sleep 3
112 if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR
113 DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever !
114 Warnlog "- Slide show mode should have ended"
115 else
116 printlog "SlideShowRehearseTimings mode not accessible :-) "
117 end if
118 sleep 3
119 try
120 Kontext "DocumentImpress"
121 DocumentImpress.MouseDoubleClick ( 50, 50 )
123 sleep 3
124 catch
125 warnlog "Had to catch <the ball> :-( "
126 endcatch
127 sleep 3
128 '/// close application ///'
129 Call hCloseDocument
130 endcase
132 testcase tSlideShowSlideShowSettings
133 '/// open application ///'
134 Call hNewDocument
135 sleep 2
136 '/// Slide Show->Slide Show Settings ///'
137 SlideShowPresentationSettings
138 Kontext "Bildschirmpraesentation"
139 call Dialogtest (Bildschirmpraesentation)
140 '/// check checkbox in section 'Range' - 'From: ///'
141 AbDia.Check
142 '/// select the 3rd item from the top from listbox 'From:' ///'
143 AbDiaName.GetSelText
144 '/// check checkbox 'All Slides' ///'
145 AlleDias.Check
146 '///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///'
147 ' IndividuellePraesentationName
148 '///<b> check checkbox 'window' </b>///'
149 Fenster.Check
150 '/// check checkbox 'default' ///'
151 Standard.Check
152 '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///'
153 Auto.Check
154 '/// set duration of pause to '00:00:05' ///'
155 Zeit.GetText
156 '/// check check box 'Show logo' ///'
157 LogoAnzeigen.Check
158 '///<b> check checkbox 'Change slides maually' </b>///'
159 DiawechselManuel.Check
160 '///<b> check checkbox 'Mouse pointer as pen' </b>///'
161 MauszeigerAlsStift.Check
162 '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///'
163 MauszeigerSichtbar.UnCheck
164 '///<b> check checkbox 'Navigator visible' </b>///'
165 NavigatorSichtbar.Check
166 '///<b> UNcheck checkbox 'animations allowed' </b>///'
167 AnimationenZulassen.UnCheck
168 '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///'
169 DiaWechselAufHintergrund.UnCheck
170 '///<b> check checkbox 'Presentation always on top' </b>///'
171 PraesentationImmerImVordergrund.Check
172 '/// cancel dialog 'Slide Show' ///'
173 Bildschirmpraesentation.Cancel
174 '/// close application ///'
175 Call hCloseDocument
176 endcase
178 testcase tSlideShowCustomSlideShow
179 '/// open application ///'
180 Call hNewDocument
181 sleep 2
182 '/// Slide Show->Custom Slide Show ///'
183 SlideShowCustomSlideshow
184 Kontext "IndividuellePraesentation"
185 call Dialogtest (IndividuellePraesentation)
186 '/// click button 'New' ///'
187 Neu.Click
188 Kontext "IndividuellePraesentationDefinieren"
189 Call DialogTest (IndividuellePraesentationDefinieren)
190 '/// select the first entry in the list 'Existing Slides' ///'
191 SeitenPraesentation.Select 1
192 '/// click button '>>' ///'
193 Hinzufuegen.Click
194 '/// close dialog 'Define Custom Slide Show' with OK ///'
195 IndividuellePraesentationDefinieren.OK
196 Kontext "IndividuellePraesentation"
197 '/// click button 'Copy' ///'
198 Kopieren.Click
199 '/// click button 'Delete' ///'
200 Loeschen.Click
201 '/// click button 'Edit' ///'
202 Bearbeiten.Click
203 Kontext "IndividuellePraesentationDefinieren"
204 '/// select 1st entry in the list 'Selected Slides' ///'
205 SelectedSlides.Select 1
206 '/// click button '<<' ///'
207 Entfernen.Click
208 '/// close dialog 'Define Custom Slide Show' with Cancel ///'
209 IndividuellePraesentationDefinieren.Cancel
210 Kontext "IndividuellePraesentation"
211 '/// check checkbox 'Use Custom Slide Show' ///'
212 IndividuellePraesentationBenutzen.Check
213 sleep 1
214 '///+ UNcheck checkbox 'Use Custom Slide Show' ///'
215 IndividuellePraesentationBenutzen.UnCheck
216 '/// click button 'Start...' ///'
217 Starten.Click
218 sleep 5
219 '/// press key [space] 2 times ///'
220 kontext "DocumentPresentation"
221 DocumentPresentation.TypeKeys "<space>"
222 sleep 1
223 DocumentPresentation.TypeKeys "<space>"
224 sleep 1
225 '/// close dialog 'Custom Slide Shows' ///'
226 ' IndividuellePraesentation.Close ' slide show ends dialog !
227 '/// Slide Show->Slide Show Settings ///'
228 try
229 SlideShowPresentationSettings
230 catch
231 warnlog "Presentation did not end :-("
232 DocumentPresentation.TypeKeys "<escape>"
233 endcatch
234 Kontext "Bildschirmpraesentation"
235 if Bildschirmpraesentation.exists (5) then
236 '/// check checkbox 'Custom Slide Show' ///'
237 RangeCustomSlideShow.Check
238 printlog "check: '" + IndividuellePraesentationName.GetSelText + "'"
239 '/// cancel dialog 'Slide Show' ///'
240 Bildschirmpraesentation.Cancel
241 else
242 warnlog "Dialog not open? SlideShowPresentationSettings"
243 endif
244 '/// Slide Show->Custom Slide Show ///'
245 SlideShowCustomSlideshow
246 Kontext "IndividuellePraesentation"
247 if (IndividuellePraesentation.exists (5)) then
248 '/// click button 'Delete' ///'
249 Loeschen.Click
250 '/// close dialog 'Custom Slide Shows' ///'
251 IndividuellePraesentation.Close
252 else
253 warnlog "Dialog not open? SlideShowCustomSlideshow"
254 endif
255 '/// close application ///'
256 Call hCloseDocument
257 endcase
259 testcase tSlideShowSlideTransition
260 goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug."
261 dim i as integer
262 dim a as integer
263 dim iCount as integer
265 '/// open application ///'
266 Call hNewDocument
267 '/// create rectangle ///'
268 Call hRechteckErstellen ( 10, 10, 20, 40 )
269 sleep 1
270 '/// Slide Show->Slide Transition ///'
271 SlideShowSlideTransition
272 sleep 2
273 '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///'
274 Kontext "Tasks"
275 '/// Select the second entry from teh Listbox 'Applay to selected slides' ///'
276 TransitionApplyToSelectedSlide.select (2)
277 sleep 5 ' takes some time, until it is run
278 Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount
279 Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount
280 iCount = TransitionSound.GetItemCount
281 Printlog "Count of Sounds : " + iCount
283 '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///'
284 TransitionSound.typeKeys "<home>"
285 i = 0
286 for a = 1 to iCount
287 TransitionSound.select (a)
288 kontext "OeffnenDlg"
289 if (OeffnenDlg.exists (5)) then
290 if (0=i) then
291 ' remember when dialog came up
292 i = a
293 OeffnenDlg.cancel
294 else
295 warnlog "File Open Dialog comes up a second time!"
296 OeffnenDlg.cancel
297 endif
298 endif
299 kontext "Tasks"
300 ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>...
301 if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then
302 qaErrorLog "May be Language specific -> Evaluation of TBO; " + a
303 endif
304 next a
305 TransitionSound.select (i)
306 '/// The dialog 'Open' comes up///'
307 sleep 1
308 kontext "OeffnenDlg"
309 if (OeffnenDlg.exists (5)) then
310 '/// Read all entries in Listbox 'File type' ///'
311 for i = 1 to Dateityp.getItemCount
312 printlog "" + i + ":" + Dateityp.getItemText(i)
313 next i
314 '/// cancel dialog 'Open' ///'
315 OeffnenDlg.cancel
316 else
317 warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!"
318 endif
319 kontext "Tasks"
320 sleep (2)
321 '/// check checkbox 'Automatically after' ///'
322 TransitionAutomaticallyAfter.check
323 sleep (2)
324 '/// press key 'Page Up' in box ///'
325 TransitionAutomaticallyAfterTime.typeKeys "<PageUp>"
326 sleep 9
327 '/// check the standard checkbox 'On mouse click' ///'
328 TransitionOnMouseClick.check
329 sleep (2)
330 '/// press button 'Apply to All Slides' ///'
331 TransitionApplyToAllSlides.click
332 sleep (2)
333 '/// press button 'Play' ///'
334 TransitionPlay.click
335 sleep 10
336 '/// press button 'Slide Show' ///'
337 TransitionSlideShow.click
338 sleep 2
339 kontext "DocumentPresentation"
340 if DocumentPresentation.exists (10) then
341 printlog "Presentation started :-)"
342 DocumentPresentation.typeKeys "<escape>"
343 else
344 warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!"
345 endif
346 kontext "Tasks"
348 '/// uncheck and check Checkbox 'Automatic Preview' ///'
349 '/// default is checked ///'
350 if (NOT TransitionAutomaticPreview.isChecked) then
351 warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!"
352 endif
353 sleep (2)
354 TransitionAutomaticPreview.unCheck
355 sleep (2)
356 TransitionAutomaticPreview.Check
357 '/// close application ///'
358 Call hCloseDocument
359 endcase
361 testcase tSlideShowShowHideSlide
362 '/// open application ///'
363 Call hNewDocument
364 '/// create rectangle ///'
365 Call hRechteckErstellen ( 10, 10, 20, 40 )
366 '/// View->Master View->Slides View ///'
367 ViewWorkspaceSlidesView
368 sleep 1
369 '/// Slide Show->Hide Slide ///'
370 SlideShowHideSlide
371 sleep 1
372 '/// Slide Show->Show Slide ///'
373 SlideShowShowSlide
374 '/// close application ///'
375 Call hCloseDocument
376 endcase
378 testcase tSlideShowAnimation
379 '/// open application ///'
380 Call hNewDocument
381 sleep 1
382 '/// create rectangle ///'
383 Call hRechteckErstellen ( 10, 10, 20, 40 )
384 sleep 1
385 '/// Insert ->Animated image ///'
386 Opl_SD_EffekteZulassen
387 Kontext "Animation"
388 sleep 1
389 '/// click button 'Apply Object' ///'
390 BildAufnehmen.Click 'BildAufnehmen
391 '/// click button 'Create' ///'
392 Erstellen.Click
393 sleep 1
394 '/// Select 1st entry from top in 'Alignment' ///'
395 Anpassung.Select 1
396 sleep 1
397 '/// click button 'Create' ///'
398 Erstellen.Click
399 sleep 1
400 '/// click button 'Apply Objects Individually' ///'
401 AlleAufnehmen.Click
402 sleep 1
403 '/// click button 'First Image' ///'
404 ErstesBild.Click
405 sleep 1
406 '/// click button 'Last Image' ///'
407 LetztesBild.Click
408 sleep 1
409 '/// click button 'BAckwards' ///'
410 Rueckwaerts.Click
411 sleep 1
412 '/// click button 'Play' ///'
413 Abspielen.Click
414 sleep 1
415 '/// click in Number field 'Image Number' Less - More ///'
416 AnzahlBilder.Less
417 sleep 1
418 AnzahlBilder.More
419 sleep 1
420 '/// check 'Bitmap Object' ///'
421 AnimationsgruppeBitmapobjekt.Check
422 sleep 1
423 '/// Type '10' into the field 'Duration' ///'
424 AnzeigedauerProBild.SetText "10"
425 '/// click button 'Play' ///'
426 Abspielen.Click
427 '/// wait 5 seconds ///'
428 sleep 5
429 '/// click button 'Stop' ///'
430 try
431 Stopp.Click
432 catch
433 warnlog "Stopbutton doesn't work"
434 endcatch
435 sleep 1
436 '/// Select 1st entry from top in 'Loop Count' ///'
437 AnzahlDurchlaeufe.Select 1
438 sleep 1
439 '/// click button 'Delete Current Image' ///'
440 BildLoeschen.Click
441 sleep 1
442 '/// check 'Group Object' ///'
443 AnimationsgruppeGruppenobjekt.Check
444 sleep 1
445 '/// click button 'Delete All Images' ///'
446 AlleLoeschen.Click
447 kontext "Messagebox"
448 '/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///'
449 if Messagebox.exists (5) then
450 Messagebox.YES
451 else
452 warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( "
453 endif
454 sleep 1
455 kontext "Animation"
456 '/// close dialog 'Animation' ///'
457 Animation.Close
458 '/// close application ///'
459 Call hCloseDocument
460 endcase
462 testcase tSlideShowCustomAnimation
463 dim bError as boolean
465 '/// open application ///'
466 Call hNewDocument
467 '/// create textbox with text ///'
468 Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
469 '/// Slide Show->Custom Animation... ///'
470 SlideShowCustomAnimation
471 Kontext "Tasks"
472 '/// click button 'Add...' ///'
473 EffectAdd.click
474 '/// Dialog 'Custom Animation' comes up ///'
475 kontext
476 '/// Switch to TabPage: Entrance ///'
477 active.setPage(TabEntrance)
478 kontext "TabEntrance"
479 if TabEntrance.exists(5) then
480 DialogTest(TabEntrance)
481 '/// select in the listbox 'Effects' the second entry///'
482 Effects.select(2)
483 Speed.getItemCount
484 AutomaticPreview.unCheck
485 sleep 1
486 AutomaticPreview.Check
487 kontext
488 '/// Switch to TabPage: Emphasis ///'
489 active.setPage(TabEmphasis)
490 kontext "TabEmphasis"
491 if TabEmphasis.exists(5) then
492 DialogTest(TabEmphasis)
493 else
494 bError = true
495 warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
496 endif
497 kontext
498 '/// Switch to TabPage: Exit ///'
499 active.setPage(TabExit)
500 kontext "TabExit"
501 if TabExit.exists(5) then
502 DialogTest(TabExit)
503 else
504 bError = true
505 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work."
506 endif
507 kontext
508 '/// Switch to TabPage: Motion Paths ///'
509 active.setPage(TabMotionPaths)
510 kontext "TabMotionPaths"
511 if TabMotionPaths.exists(5) then
512 DialogTest(TabMotionPaths)
513 Effects.select(7)
514 else
515 bError = true
516 warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
517 endif
518 '/// Close dialog 'Custom Animation' with 'OK' ///'
519 TabMotionPaths.OK
520 bError = false
521 else
522 bError = true
523 warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work."
524 endif
525 Kontext "Tasks"
526 if (NOT bError) then
527 '/// click button 'Change...' ///'
528 EffectChange.click
529 '/// Dialog 'Custom Animation' comes up ///'
530 kontext
531 '/// Switch to TabPage: Entrance ///'
532 active.setPage(TabEntrance)
533 kontext "TabEntrance"
534 if (NOT TabEntrance.exists(5)) then
535 warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work."
536 endif
537 TabEntrance.cancel
538 Kontext "Tasks"
539 EffectStart.getItemCount
540 if EffectProperty.isEnabled then
541 EffectProperty.getItemCount
542 endif
543 '/// CLick on button '...' (Options) ///'
544 EffectOptions.click
545 kontext "TabEffect"
546 if TabEffect.exists(5) then
547 dialogTest(TabEffect)
548 Sound.getItemCount
549 AfterAnimation.getItemCount
550 '/// switch to TabPage 'Timing' ///'
551 Kontext
552 active.setPage TabTiming
553 kontext "TabTiming"
554 if TabTiming.exists(5) then
555 dialogTest(TabTiming)
556 TimingStart.getItemCount
557 Delay.getText
558 Speed.getItemCount
559 Repeat.getItemCount
560 Rewind.ischecked
561 TriggerAnimate.isChecked
562 TriggerStart.isChecked
563 Shape.getItemCount
564 else
565 warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work."
566 endif
567 '/// switch to TabPage 'Timing' ///'
568 Kontext
569 active.setPage TabTextAnimation
570 kontext "TabTextAnimation"
571 if TabTextAnimation.exists(5) then
572 dialogTest(TabTextAnimation)
573 GroupText.getItemCount
574 AnimateAttachedShape.isChecked
575 TabTextAnimation.cancel
576 else
577 warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work."
578 endif
579 else
580 warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work."
581 endif
582 Kontext "Tasks"
583 EffectSpeed.getItemCount
584 EffectList.getItemCount
585 EffectPlay.click
586 '/// Wait five seconds so the Playfunction has ended ///'
587 sleep 5
588 EffectSlideShow.click
589 sleep 1
590 kontext "DocumentPresentation"
591 if DocumentPresentation.exists (5) then
592 printlog "Presentation started :-)"
593 DocumentPresentation.typeKeys "<escape>"
594 else
595 warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!"
596 endif
597 kontext "Tasks"
598 EffectAutomaticPreview.isChecked
599 '/// click button 'Remove' ///'
600 EffectRemove.click
601 endif
602 '/// close application ///'
603 Call hCloseDocument
604 endcase
606 testcase tSlideShowInteraction
607 '/// open application ///'
608 Call hNewDocument
609 sleep 2
610 '/// create rectangle ///'
611 Call hRechteckErstellen (10, 10, 20, 20)
612 sleep 3
613 '/// Slide Show->Interaction ///'
614 SlideShowInteraction
615 Kontext "TabInteraktion"
616 Call DialogTest (TabInteraktion, 1)
617 '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///'
618 AktionBeiMausklick.select 6
619 Printlog AktionBeiMausklick.GetSelText + " chosen"
620 Call DialogTest (TabInteraktion, 2)
621 '///+ click button 'Find' ///'
622 sleep 1
623 suchen.click
624 Kontext "TabInteraktion"
625 '/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///'
626 sleep 1
627 AktionBeiMausklick.select 7
628 sleep 1
629 Printlog AktionBeiMausklick.GetSelText + " chosen"
630 Kontext "TabInteraktion"
631 Call DialogTest (TabInteraktion, 3)
632 '///+ click button 'Browse...' ///'
633 Durchsuchen.click
634 sleep 1
635 kontext "OeffnenDlg"
636 call Dialogtest (OeffnenDlg)
637 '///+ cancel dialog 'open' ///'
638 OeffnenDlg.cancel
639 Kontext "TabInteraktion"
640 sleep 1
641 '/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///'
642 AktionBeiMausklick.select 8
643 Printlog AktionBeiMausklick.GetSelText + " chosen"
644 Call DialogTest (TabInteraktion, 4)
645 '///+ click button 'Browse...' ///'
646 Durchsuchen.click
647 sleep 1
648 Kontext "OeffnenDlg"
649 Call dialogTest (OeffnenDlg)
650 '///+ cancel dialog 'open' ///'
651 OeffnenDlg.Cancel
652 sleep 1
653 Kontext "TabInteraktion"
654 '/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///'
655 AktionBeiMausklick.select 9
656 Printlog AktionBeiMausklick.GetSelText + " chosen"
657 Call DialogTest (TabInteraktion, 7)
658 Kontext "TabInteraktion"
659 '///+ click button 'Browse...' ///'
660 Durchsuchen.Click
661 sleep 1
662 Kontext "OeffnenDlg"
663 Call dialogTest (OeffnenDlg)
664 '///+ cancel dialog 'open' ///'
665 OeffnenDlg.Cancel
666 sleep 1
667 '/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///'
668 Kontext "TabInteraktion"
669 AktionBeiMausklick.select 10
670 Printlog AktionBeiMausklick.GetSelText + " chosen"
671 sleep 3
672 Call DialogTest (TabInteraktion, 6)
673 '///+ click button 'Browse...' ///'
674 Durchsuchen.Click
675 sleep 1
676 Kontext "ScriptSelector"
677 sleep 1
678 Call DialogTest ( ScriptSelector, 1)
679 sleep 1
680 '///+ cancel dialog 'ScriptSelector' ///'
681 ScriptSelector.Cancel
682 sleep 1
683 '/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///'
684 Kontext "TabInteraktion"
685 AktionBeiMausklick.select 11
686 Printlog AktionBeiMausklick.GetSelText + " chosen"
687 Call DialogTest (TabInteraktion, 7)
688 Kontext "TabInteraktion"
689 '/// close dialog 'Interaction' ///'
690 TabInteraktion.Close
691 sleep 2
692 '/// close application ///'
693 Call hCloseDocument
694 endcase