merge the formfield patch from ooo-build
[ooovba.git] / testautomation / graphics / optional / includes / impress / im_007_.inc
blob6669f413d36d143eb7c5d45c46acfc88142bdaf9
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 $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/************************************************************************
34 '* Owner : wolfram.garten@sun.com
36 '* short description : Impress Required Test Library (7)
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