Commits

Anonymous committed 58755fe

CWS-TOOLING: integrate CWS automationdev300m55writer_fixes
2009-08-27 12:19:34 +0200 hde r275471 : adding a keypress to testcase
2009-08-27 12:07:20 +0200 hde r275468 : adding a sleep after selection of object
2009-08-27 10:21:42 +0200 hde r275462 : warnlog for i102093 removed
2009-08-26 15:50:43 +0200 wg r275429 : 104520
2009-08-26 15:20:25 +0200 hde r275425 : added checkbox Notes
2009-08-25 15:20:06 +0200 hde r275363 : mouse click is observed as obsolete
2009-08-25 13:47:33 +0200 hde r275350 : maximized document window after opening
2009-08-25 10:43:47 +0200 hde r275340 : maximizes document windowon create
2009-08-25 08:52:33 +0200 hde r275333 : #95266#styles for chineses adapted
2009-08-24 15:34:45 +0200 hde r275321 : #104450#several fixes in object selection
2009-08-24 15:34:03 +0200 hde r275320 : #104450#several fixes in object selection
2009-08-21 14:44:36 +0200 wg r275261 : 104404
2009-08-21 14:40:39 +0200 wg r275259 : 104404
2009-08-21 14:39:03 +0200 wg r275258 : 104404
2009-08-21 14:30:37 +0200 wg r275256 : 104404
2009-08-21 14:24:18 +0200 wg r275253 : 104404
2009-08-21 14:21:44 +0200 wg r275252 : 104404
2009-08-21 14:08:41 +0200 wg r275247 : 104404
2009-08-21 14:05:51 +0200 wg r275246 : 104404
2009-08-21 13:20:44 +0200 wg r275242 : 104398
2009-08-21 13:14:05 +0200 wg r275241 : 104398
2009-08-21 13:00:26 +0200 hde r275240 : 102477-warnlog removed from testcase
2009-08-21 12:52:50 +0200 wg r275238 : 104398
2009-08-21 12:50:26 +0200 wg r275237 : 104398
2009-08-21 12:50:07 +0200 hde r275236 : printlog changed
2009-08-21 12:48:43 +0200 hde r275235 : 100240-testcases renamed to a meaningful name
2009-08-21 12:46:59 +0200 wg r275233 : 104398
2009-08-21 12:37:46 +0200 wg r275231 : 104398
2009-08-21 11:37:20 +0200 oc r275229 : #i104395# sleeps added to avoid timing problems
2009-08-21 11:24:19 +0200 wg r275226 : 104393
2009-08-20 15:49:02 +0200 hde r275187 : i100670-made qaerrorlog from warnlog
2009-08-20 15:44:58 +0200 hde r275186 : 104358..html-export excluded

Comments (0)

Files changed (38)

testautomation/global/tools/includes/optional/t_basic_ide_tools.inc

     '///+<li>Verify that a new dialog is opened and has the focus</li>
     if ( DialogWindow.Exists() ) then 
         printlog( CFN & "New dialog is open" )
-        hNewDialog() = true 
+        hNewDialog() = true
+		if ( DialogWindow.IsMax() = false ) then		
+			DialogWindow.Maximize()
+			Wait( 2000 )
+		end if		
     else
         warnlog( CFN & "New dialog is not open" )
         hNewDialog() = false

testautomation/global/tools/includes/required/t_doc1.inc

         else
             FileOpen "FileName", "private:factory/swriter", "FrameName", "_default", "SynchronMode", TRUE
         end if
+        if ( DocumentWriter.IsMax() = false ) then		
+			DocumentWriter.Maximize()
+			Wait( 2000 )
+		end if        				
     case "CALC"
         Kontext "DocumentCalc"
         if gNoNewDoc = TRUE then
         else
             FileOpen "FileName", "private:factory/scalc", "FrameName", "_default", "SynchronMode", TRUE
         end if
+        if ( DocumentCalc.IsMax() = false ) then		
+			DocumentCalc.Maximize()
+			Wait( 2000 )
+		end if        						
     case "IMPRESS"
         Kontext "DocumentImpress"
         if gNoNewDoc = TRUE then
             end if
             Kontext "DocumentImpress"
             Sleep 2
+            if ( DocumentImpress.IsMax() = false ) then		
+            	DocumentImpress.Maximize()
+            	Wait( 2000 )
+            end if        							
         end if
     case "DRAW"
         Kontext "DocumentDraw"
         else
             FileOpen "FileName", "private:factory/sdraw", "FrameName", "_default", "SynchronMode", TRUE
         end if
+        if ( DocumentDraw.IsMax() = false ) then		
+			DocumentDraw.Maximize()
+			Wait( 2000 )
+		end if        									
     case "MASTERDOCUMENT"
         Kontext "DocumentMasterDoc"
         if gNoNewDoc = TRUE then
         sleep (1)
         if Navigator.Exists(5) then Navigator.Close
         Kontext "DocumentMasterDoc"
+        if ( DocumentMasterDoc.IsMax() = false ) then		
+			DocumentMasterDoc.Maximize()
+			Wait( 2000 )
+		end if        											
     case "MATH"
         Kontext "DocumentMath"
         if gNoNewDoc = TRUE then
             FileOpen "FileName", "private:factory/smath", "SynchronMode", TRUE
         else
-            '                                             FileOpen "FileName", "private:factory/smath", "FrameName", "_blank"
             FileOpen "FileName", "private:factory/smath", "FrameName", "_default", "SynchronMode", TRUE
         end if
         Kontext "DocumentMath"
+        if ( DocumentMath.IsMax() = false ) then		
+			DocumentMath.Maximize()
+			Wait( 2000 )
+		end if        													
     case "HTML"
         Kontext "DocumentWriterWeb"
         if gNoNewDoc = TRUE then
             FileOpen "FileName", "private:factory/swriter/web", "FrameName", "_default", "SynchronMode", TRUE
         end if
         Kontext "DocumentWriterWeb"
+        if ( DocumentWriterWeb.IsMax() = false ) then		
+			DocumentWriterWeb.Maximize()
+			Wait( 2000 )
+		end if        															
     case "DATABASE"
         FileOpen "FileName", "private:factory/sdatabase?Interactive", "FrameName", "_default", "SynchronMode", TRUE
         Kontext "DatabaseWizard"

testautomation/global/win/edia_d_h.win

 Rows svx:RadioButton:RID_SVXDLG_SEARCH:RB_CALC_ROWS
 Columns svx:RadioButton:RID_SVXDLG_SEARCH:RB_CALC_COLUMNS
 SearchInAllSheets svx:CheckBox:RID_SVXDLG_SEARCH:CB_ALL_SHEETS
+Notes svx:CheckBox:RID_SVXDLG_SEARCH:CB_NOTES
 
 *FormFolderNameDialog HID_DLG_SAVE_AS
 FolderName dbaccess:Edit:DLG_SAVE_AS:ET_TITLE

testautomation/graphics/optional/g_autocorrection.bas

 
     gApplication = "IMPRESS"
     PrintLog "-------------------------" + gApplication + "-------------------"
-    'qaErrorLog "#i76832# - tToolsAutocorrectCustomQuotes (x4) outcommented due to Bug."
     Call tToolsAutocorrectCustomQuotes (TRUE)
     Call tToolsAutocorrectCustomQuotes (FALSE)
     Call tToolsAutocorrectOption

testautomation/graphics/optional/g_insert.bas

 
     Call tInsertFloatingFrame
     Call tInsertFields
-    QaErrorLog "#79794 - tdInsertObjectOleObjects outcommented due to bug."
-    '    Call tdInsertObjectOleObjects
+    Call tdInsertObjectOleObjects
 
     Printlog "Disabled SnappPointLine test, because of unpredictable mouse moves (07/2002 TBO)"
     'Call tdInsertSnappoint_Line

testautomation/graphics/optional/g_tables.bas

 
 sub main
     Printlog "------------------- Impress Tables Test -------------------------"
-    call hStatusIn ("Graphics","i_tables.bas")
+    call hStatusIn ("Graphics","g_tables.bas")
 
     use "graphics\optional\includes\global\g_tables.inc"
 

testautomation/graphics/optional/includes/global/export_graphic_2.inc

    endif
    hCloseDocument ()
    Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
-   qaerrorlog "#i93258#"
-   'hFileOpen (sDocument)
-   'kontext "Filterauswahl"
-   'if Filterauswahl.exists(10) then
-   '   Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
-   '   Filterauswahl.Cancel
-   '   goto endsub
-   'endif
+   
+   hFileOpen (sDocument)
+   kontext "Filterauswahl"
+   if Filterauswahl.exists(10) then
+      Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+      Filterauswahl.Cancel
+      goto endsub
+   endif
 
-    '' check if the document is writable
-    'if fIsDocumentWritable = false then
-    '    ' make the document writable and check if it's succesfull
-    '    if fMakeDocumentWritable = false then
-    '        warnlog "The document can't be make writeable. Test stopped."
-    '        goto endsub
-    '    endif
-    'endif
+   ' check if the document is writable
+    if fIsDocumentWritable = false then
+        ' make the document writable and check if it's succesfull
+        if fMakeDocumentWritable = false then
+            warnlog "The document can't be make writeable. Test stopped."
+            goto endsub
+        endif
+    endif
 
-   'hTypeKeys ("<escape><tab>")
-   'fGetSizeXY sx1, sy, TRUE
-   'if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
-   '   Kontext "BMPOptionen"
-   '   if BMPOptionen.Exists (2) then
-   '      Original.Check
-   '      BMPOptionen.OK
-   '      sleep 5
-   '   endif
-   '   if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
-   '      Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
-   '   else
-   '      warnlog "File didn't get saved :-("
-   '   endif
+   hTypeKeys ("<escape><tab>")
+   fGetSizeXY sx1, sy, TRUE
+   if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+      Kontext "BMPOptionen"
+      if BMPOptionen.Exists (2) then
+         Original.Check
+         BMPOptionen.OK
+         sleep 5
+      endif
+      if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
+         Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
+      else
+         warnlog "File didn't get saved :-("
+      endif
      
-    '  qaerrorlog "#i92902: Export to bmp: bmp options not respected"
-      'sleep 5
-      'hNewDocument()
-      'sleep 5
-      'Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
-      'bTemp = FALSE
-      'fGetSizeXY sx1, sY, bTemp
-      'if (bTemp = FALSE) then
-      '   warnlog "Selected original size NOT OK :-("
-      'endif
-   'endif
-   'hCloseDocument ()
+      sleep 5
+      hNewDocument()
+      sleep 5
+      Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
+      bTemp = FALSE
+      fGetSizeXY sx1, sY, bTemp
+      if (bTemp = FALSE) then
+         warnlog "Selected original size NOT OK :-("
+      endif
+   endif
+   hCloseDocument ()
+   
    Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
    hNewDocument()
    hTypeKeys "<TAB>"
       kontext "DocumentDraw"
       DocumentDraw.TypeKeys ("<escape><tab>")
       
-      qaerrorlog "#i92902: Export to bmp: bmp options not respected"
-      'ContextOriginalSize
-      'bTemp = FALSE
-      'fGetSizeXY sx1, sY, bTemp
-      'if (bTemp = FALSE) then
-      '   warnlog "Selected original size NOT OK :-("
-      'endif
+      ContextOriginalSize
+      bTemp = FALSE
+      fGetSizeXY sx1, sY, bTemp
+      if (bTemp = FALSE) then
+         warnlog "Selected original size NOT OK :-("
+      endif
       
    endif
    if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then

testautomation/graphics/optional/includes/global/g_insert.inc

 '\*************************************************************************************
 
 testcase tdInsertObjectOleObjects
-    QaErrorLog "#79794# - tdInsertObjectOleObjects outcommented due to bug."
-    goto endsub
+
     Dim Zaehler as Integer
     Dim i as integer
     Dim a as integer

testautomation/graphics/optional/includes/impress/i_pengine.inc

             kontext "TabMotionPaths"
             if TabMotionPaths.exists(5) then
                 DialogTest(TabMotionPaths)
-                qaErrorLog("#i44701# selection needs to be made on the page where you say 'OK'")
                 Effects.select(2)
             else
                 bError = true

testautomation/graphics/optional/includes/impress/i_pengine2.inc

            kontext "TabMotionPaths"
               if TabMotionPaths.exists(5) then
                  DialogTest(TabMotionPaths)
-'                 qaErrorLog("#i44701# selection needs to be made on the page where you say 'OK'")
                  TestAnimations
               else
                  bError = true

testautomation/graphics/optional/includes/impress/i_us_present.inc

 '00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
 
 testcase i_us_presentation7
-    'qaErrorLog "#i70754# - i_us_presentation7 outcommented due to bug."
-    'goto endsub
+
     dim sFilter as string
     dim sFileName as string
     dim PresentationFile6 as string

testautomation/graphics/required/includes/impress/i_opt_1_.inc

     printlog "Checking if we are on slide 3."
     i = fGetSlideNumber()
     if (i<>3) then
-                warnlog "We are on the wrong slide! Should be 2 but it is: " & i
+                warnlog "We are on the wrong slide! Should be 3 but it is: " & i
     endif
 
     printlog "Close the navigator View->Navigator."

testautomation/graphics/required/includes/impress/im_002_.inc

 '\*****************************************************************
 
 testcase tiEditDeleteSlide
-'/// open application ///'
+printlog "open application"
    Call hNewDocument
-'/// Insert->Slide; press 'OK' ///'
+printlog "Insert->Slide; press 'OK' "
    InsertSlide
    sleep 2
    hTypekeys "<Pagedown>"
    sleep 2
-'/// Edit->Delete Slide ///'
+printlog "Edit->Delete Slide "
    try
       EditDeleteSlide
    catch
       warnlog "Error when deleting slide"
    endcatch
    Call hCloseDocument
-'/// close application ///'
+printlog "close application "
 endcase
 
 

testautomation/graphics/required/includes/impress/im_003_.inc

 ' #1 tiViewSlideMaster
 ' #1 tiViewToolbar_1
 '\**********************************************************************************
+testcase tiViewPanes
 
-testcase tiViewPanes
     goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test
     dim bState as boolean
-    '/// open application ///'
+    printlog "open application "
     Call hCloseDocument
     Call hNewDocument
     sleep 1
         ViewTaskSlide
     endif
     kontext "Tasks"
-    '/// Deactivate all but "masterpages" ///'
+    printlog "Deactivate all but masterpages "
     View.OpenMenu
     hMenuSelectNr (2)
     View.OpenMenu
         endif
         kontext "Tasks"
         sleep 1
-        '/// View->Task Pane ///'
+        printlog "View->Task Pane "
         ViewTaskPane
         sleep 1
         if (Tasks.exists) then
             warnlog "View->Task Panel failed"
             ViewTaskPane
         endif
-        '/// View->Task Pane ///'
+        printlog "View->Task Pane "
         ViewTaskPane
         sleep 1
         if (NOT Tasks.exists) then
             warnlog "View->Slide Panel failed."
             ViewTaskSlide
         endif
-        '/// View->Slide Pane ///'
+        printlog "View->Slide Pane "
         ViewTaskSlide
         sleep 1
         if (NOT Slides.exists) then
         endif
     catch
         warnlog "View->Slide Pane couldn't get executed"
-    endcatch
+    endcatch 
 
-    '/// Reactivate all pages in the Task-panel ///'
+    printlog "Reactivate all pages in the Task-panel "
     kontext "Tasks"
     View.OpenMenu
     hMenuSelectNr (2)
     hMenuSelectNr (3)
     View.OpenMenu
     hMenuSelectNr (4)
-endcase
+    
+endcase 'tiViewPanes
+'---------------------------------------------------------
+testcase tiViewMasterView
 
-testcase tiViewMasterView
-'/// open application ///'
-   Call hNewDocument
-'/// View->Master View->Drawing View ///'
-   sleep 1
-   ViewWorkspaceDrawingView
-'     Kontext "DocumentImpress"
-'     gMouseClick 70,70
+    printlog "open application"
+    Call hNewDocument
+    printlog "View->Master View->Drawing View"
+    sleep 1
+    ViewWorkspaceDrawingView
      sleep 5
-'/// View->Master View->Outline View ///'
-   ViewWorkspaceOutlineView
-'     Kontext "DocumentImpressOutlineView"
-'     DocumentImpressOutlineView.MouseDown 70,70
-'     DocumentImpressOutlineView.MouseUp 70,70
+    printlog "View->Master View->Outline View "
+    ViewWorkspaceOutlineView
      sleep 1
-'/// View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-'     Kontext "DocumentImpressSlideView"
-'     DocumentImpressSlideView.MouseDown 70,70
-'     DocumentImpressSlideView.MouseUp 70,70
+    printlog "View->Master View->Slides View "
+    ViewWorkspaceSlidesView
      sleep 1
-'/// View->Master View->Notes View ///'
-   ViewWorkspaceNotesView
+    printlog "View->Master View->Notes View "
+    ViewWorkspaceNotesView
       sleep 1
-'/// View->Master View->Handout View ///'
-   ViewWorkspaceHandoutView
+    printlog "View->Master View->Handout View "
+    ViewWorkspaceHandoutView
       sleep 1
-'/// View->Master View->Drawing View ///'
-   ViewWorkspaceDrawingView
-'/// close application ///'
+    printlog "View->Master View->Drawing View "
+    ViewWorkspaceDrawingView
+    printlog "close application "
       sleep 1
-   Call hCloseDocument
-endcase
-
+    Call hCloseDocument
+   
+endcase 'tiViewMasterView
+'---------------------------------------------------------
 testcase tiViewSlideMaster
-'/// open application with : File->Autopilot->Presentation; OK; OK ///'
-'   Call  hNewDocument
-      FileAutopilotPresentation                ' to get a title :-)
-      sleep 2
-      Kontext "AutopilotPraesentation1"
-      AutopilotPraesentation1.Ok
-      sleep 1
-      Kontext "Seitenlayout"  ' aka: Modify Slide
-      if Seitenlayout.exists(5) then
-           warnlog "Slidelayout has to vanish; moved to sidebar"
-           Seitenlayout.OK
-      endif
-   kontext "DocumentImpress"
-   sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Drawing ///'
-   ViewDrawing
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Title ///'
-   try
-      ViewTitle
-      Errorlog "View - Master - Title Slide Master should NOT be accessable"
-   catch
-      printlog "View - Master - Title Slide Master not accessable - good"
-   endcatch
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// View->Master->Handout ///'
-   ViewHandout
-   Sleep 1
-'   ViewSlide
-   Sleep 1
-'/// View->Master->Notes ///'
-   ViewNotes
-   kontext "DocumentImpress"
-   Sleep 1
-'/// View->Slide ///'
-   ViewSlide
-   Sleep 1
-'/// close application ///'
-   Call  hCloseDocument
-endcase
-
+    
+    printlog "open application with : File->Autopilot->Presentation; OK; OK "
+    FileAutopilotPresentation                ' to get a title :-)
+    sleep 2
+    Kontext "AutopilotPraesentation1"
+    AutopilotPraesentation1.Ok
+    sleep 1
+    Kontext "Seitenlayout"  ' aka: Modify Slide
+    if Seitenlayout.exists(5) then
+        warnlog "Slidelayout has to vanish; moved to sidebar"
+        Seitenlayout.OK
+    endif
+    kontext "DocumentImpress"
+    sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "View->Master->Drawing "
+    ViewDrawing
+    Sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "View->Master->Title "
+    try
+    ViewTitle
+    Errorlog "View - Master - Title Slide Master should NOT be accessable"
+    catch
+    printlog "View - Master - Title Slide Master not accessable - good"
+    endcatch
+    Sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "View->Master->Handout "
+    ViewHandout
+    Sleep 1
+    '   ViewSlide
+    Sleep 1
+    printlog "View->Master->Notes "
+    ViewNotes
+    kontext "DocumentImpress"
+    Sleep 1
+    printlog "View->Slide "
+    ViewSlide
+    Sleep 1
+    printlog "close application "
+    Call  hCloseDocument
+   
+endcase 'tiViewSlideMaster
+'--------------------------------------------------------
 testcase tiViewToolbar_1
-  Dim Zaehler as integer
-  Dim i as integer
-
-'/// open application ///'
- Call hNewDocument
-  sleep 2
-'/// Insert->Graphic... : "global\input\graf_inp\desp.bmp" ///'
-  InsertGraphicsFromFile
-  sleep 2
-   Kontext "GrafikEinfuegenDlg"
-   sleep 1
-   Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 1
-   Oeffnen.Click
-   sleep 3
-   Kontext "Messagebox"
+    
+    Dim Zaehler as integer
+    Dim i as integer
+    
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp "
+    InsertGraphicsFromFile
+    sleep 2
+    Kontext "GrafikEinfuegenDlg"
+    sleep 1
+    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+    sleep 1
+    Oeffnen.Click
+    sleep 3
+    Kontext "Messagebox"
     if Messagebox.Exists then
-      Warnlog Messagebox.GetText
-      Messagebox.OK
+        Warnlog Messagebox.GetText
+        Messagebox.OK
     end if
-   Kontext "DocumentImpress"
-'/// select graphic ///'
-   EditSelectAll
-   sleep 2
-   Kontext "GraphicObjectbar"
+    Kontext "DocumentImpress"
+    printlog "select graphic "
+    EditSelectAll
+    sleep 2
+    Kontext "GraphicObjectbar"
     sleep 1
-'/// The Graphics Toolbar has to be visible now; If not -> ERROR ///'
+    printlog "The Graphics Toolbar has to be visible now; If not -> ERROR "
     if GraphicObjectbar.Exists Then
-       Printlog "- graphic object toolbar exists"
-       Zaehler=Grafikmodus.GetItemCount
-       for i = 1 to Zaehler
-           Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")"
-           Grafikmodus.Select i
-           sleep 3
-       next i
-       sleep 3
+        Printlog "- graphic object toolbar exists"
+        Zaehler=Grafikmodus.GetItemCount
+        for i = 1 to Zaehler
+            Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")"
+            Grafikmodus.Select i
+            sleep 3
+        next i
+        sleep 3
     else
-       Warnlog "- No graphic function toolbar visible"
+        Warnlog "- No graphic function toolbar visible"
     end if
-'/// close application ///'
-  Call hCloseDocument
-endcase
-
-
+    printlog "close application "
+    Call hCloseDocument
+    
+endcase 'tiViewToolbar_1

testautomation/graphics/required/includes/impress/im_004_.inc

 
 testcase tiInsertSlideExpandSummary
 
-'/// open application ///'
+printlog "open application "
    Call hNewDocument
-   ' presupposition
-'/// View->Master View->Outline View ///'
+printlog "View->Master View->Outline View "
       ViewWorkspaceOutlineView
       Sleep 1
       Kontext "DocumentImpressOutlineView"
-'/// Type 2 rows ///'
+printlog "Type 2 rows "
       DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi"
-'/// View->Master View->Drawing View ///'
+printlog "View->Master View->Drawing View "
       ViewWorkspaceDrawingView
       Sleep 1
-   ' test menue entries
-'/// Insert->Summery Slide ///'
+printlog "Insert->Summery Slide "
    InsertSummerySlide
    Sleep 1
-'/// Insert->Expand Slide ///'
+printlog "Insert->Expand Slide "
    InsertExpandSlide
    Sleep 2
-'/// close application ///'
+printlog "close application "
    Call  hCloseDocument
 endcase
 

testautomation/graphics/required/includes/impress/im_005_.inc

 
 testcase tiFormatModifyLayout
 
-'/// open application ///'
-   Call  hNewDocument
-'/// Impress: Format->Modify Layout ///'
-'/// Draw   : kontext menu: Slide-> Modify Slide (always disabled :-( ?///'
-   FormatPage ' 27046 SID_MODIFYPAGE
-      Kontext "SeitenLayout"
-      DialogTest ( SeitenLayout )
-      sleep 1
-'/// cancel dialog 'Page Setup' ///'
-      SeitenLayout.Cancel
-'/// close application ///'
-   Call hCloseDocument
-endcase
-
-
+    printlog "open application "
+    Call  hNewDocument
+    printlog "Impress: Format->Modify Layout "
+    printlog "Draw   : kontext menu: Slide-> Modify Slide (always disabled :-( ?"
+    FormatPage 
+    Kontext "SeitenLayout"
+    DialogTest ( SeitenLayout )
+    sleep 1
+    printlog "cancel dialog 'Page Setup' "
+    SeitenLayout.Cancel
+    printlog "close application "
+    Call hCloseDocument
+    
+endcase 'tiFormatModifyLayout

testautomation/graphics/required/includes/impress/im_007_.inc

 '*
 '\*****************************************************************
 
-' this menue is only in impress availble
 testcase tSlideShowSlideShow
 
-'/// open application ///'
- Call hNewDocument
-'/// Slide Show->Slide Show Settings ///'
+    printlog "open application "
+    Call hNewDocument
+    printlog "Slide Show->Slide Show Settings "
     SlideShowPresentationSettings
-       Kontext "Bildschirmpraesentation"
-  '/// check if 'type' 'default' is checked, it has to be the default !///'
-       if standard.IsChecked then
-          if LogoAnzeigen.isEnabled then
-             Warnlog "'Show Logo' is Enabled :-("
-          endif
-       else
-          Warnlog "type 'default' is not checked as default :-("
-       endif
-  '/// check checkbox 'Window' ///'
-       Fenster.Check
-       Printlog "-  Presentation in window mode is checked"
-  '/// close dialog with OK 'Slide Show' ///'
+    Kontext "Bildschirmpraesentation"
+    printlog "check if 'type' 'default' is checked, it has to be the default !"
+    if standard.IsChecked then
+        if LogoAnzeigen.isEnabled then
+            Warnlog "'Show Logo' is Enabled :-("
+        endif
+    else
+        Warnlog "type 'default' is not checked as default :-("
+    endif
+    printlog "check checkbox 'Window' "
+    Fenster.Check
+    Printlog "-  Presentation in window mode is checked"
+    printlog "close dialog with OK 'Slide Show' "
     Bildschirmpraesentation.Ok
     sleep 3
-'/// Slide Show->Slide Show ///'
+    printlog "Slide Show->Slide Show "
     SlideShowSlideshow
     Sleep 5
     try
-       Kontext "DocumentPresentation"
-       sleep 3
-'/// Press <Esc> to leave presentation mode ///'
-       DocumentPresentation.Typekeys ("<Escape>")
-       Sleep 3
-       Kontext "DocumentImpress"
-       DocumentImpress.MouseDoubleClick ( 50, 50 )
-       Sleep 3
+        Kontext "DocumentPresentation"
+        sleep 3
+        printlog "Press <Esc> to leave presentation mode "
+        DocumentPresentation.Typekeys ("<Escape>")
+        Sleep 3
+        Kontext "DocumentImpress"
+        DocumentImpress.MouseDoubleClick ( 50, 50 )
+        Sleep 3
     catch
 '       FileClose
-       warnlog "had to catch <the ball> :-( "
+        warnlog "had to catch <the ball> :-( "
 '   	 Kontext "Messagebox"
 '       if Messagebox.Exists (5) Then Messagebox.No
 '       Kontext
 '       if Office.Exists(2) then Resetapplication
 '       Warnlog "Slide didn't end, application wasn't in document edit mode"
     endcatch
-'/// close application ///'
- Call hCloseDocument
+    printlog "close application "
+    Call hCloseDocument
 
  endcase 'tSlideShowSlideShow
 '-------------------------------------------------------------------------------
 testcase tSlideShowRehearseTimings
 
     goto endsub
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// Slide Show->Slide Show Settings ///'
+    printlog "Slide Show->Slide Show Settings "
     SlideShowPresentationSettings
     Kontext "Bildschirmpraesentation"
-    '/// check checkbox 'Window' ///'
+    printlog "check checkbox 'Window' "
     Fenster.Check
-    '/// close dialog with OK 'Slide Show' ///'
+    printlog "close dialog with OK 'Slide Show' "
     Bildschirmpraesentation.Ok
-    '/// Slide Show->Rehearse Timings ///'
+    printlog "Slide Show->Rehearse Timings "
     SlideShowRehearseTimings
     sleep 2
     Kontext "DocumentPresentation"
-    '/// Press <Esc> to leave presentation mode ///'
+    printlog "Press <Esc> to leave presentation mode "
       if DocumentPresentation.Exists (5) then
          DocumentPresentation.Typekeys ("<Escape>")
       else
          warnlog "Had to catch <the ball> :-( "
       endcatch
     sleep 3
-'/// close application ///'
- Call hCloseDocument
+    printlog "close application "
+    Call hCloseDocument
 
  endcase 'tSlideShowRehearseTimings
 '-------------------------------------------------------------------------------
 testcase tSlideShowSlideShowSettings
 
-'/// open application ///'
- Call hNewDocument
-   sleep 2
-'/// Slide Show->Slide Show Settings ///'
-   SlideShowPresentationSettings
-      Kontext "Bildschirmpraesentation"
-      call Dialogtest (Bildschirmpraesentation)
-      '/// check checkbox in section 'Range' - 'From: ///'
-      AbDia.Check
-         '/// select the 3rd item from the top from listbox 'From:' ///'
-         AbDiaName.GetSelText
-      '/// check checkbox 'All Slides' ///'
-      AlleDias.Check
-'///'      RangeCustomSlideShow         ' gets tested in tSlideShowCustomSlideShow ///'
-'         IndividuellePraesentationName
-      '///<b> check checkbox 'window' </b>///'
-      Fenster.Check
-      '/// check checkbox 'default' ///'
-      Standard.Check
-      '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///'
-      Auto.Check
-         '/// set duration of pause to '00:00:05' ///'
-         Zeit.GetText
-         '/// check check box 'Show logo' ///'
-         LogoAnzeigen.Check
-      '///<b> check checkbox 'Change slides maually' </b>///'
-      DiawechselManuel.Check
-      '///<b> check checkbox 'Mouse pointer as pen' </b>///'
-         MauszeigerAlsStift.Check
-      '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///'
-      MauszeigerSichtbar.UnCheck
-      '///<b> check checkbox 'Navigator visible' </b>///'
-      NavigatorSichtbar.Check
-      '///<b> UNcheck checkbox 'animations allowed' </b>///'
-      AnimationenZulassen.UnCheck
-      '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///'
-      DiaWechselAufHintergrund.UnCheck
-      '///<b> check checkbox 'Presentation always on top' </b>///'
-      PraesentationImmerImVordergrund.Check
-   '/// cancel dialog 'Slide Show' ///'
-   Bildschirmpraesentation.Cancel
-'/// close application ///'
- Call hCloseDocument
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "Slide Show->Slide Show Settings "
+    SlideShowPresentationSettings
+    Kontext "Bildschirmpraesentation"
+    call Dialogtest (Bildschirmpraesentation)
+    printlog "check checkbox in section 'Range' - 'From: "
+    AbDia.Check
+    printlog "select the 3rd item from the top from listbox 'From:' "
+    AbDiaName.GetSelText
+    printlog "check checkbox 'All Slides' "
+    AlleDias.Check
+    '"      RangeCustomSlideShow         ' gets tested in tSlideShowCustomSlideShow "
+    '         IndividuellePraesentationName
+    printlog "check checkbox 'window'"
+    Fenster.Check
+    printlog "check checkbox 'default' "
+    Standard.Check
+    printlog "check check box 'Auto' -> implies looping of slideshow in fullscreen mode"
+    Auto.Check
+    printlog "set duration of pause to '00:00:05' "
+    Zeit.GetText
+    printlog "check check box 'Show logo' "
+    LogoAnzeigen.Check
+    printlog "check checkbox 'Change slides maually'"
+    DiawechselManuel.Check
+    printlog "check checkbox 'Mouse pointer as pen'"
+    MauszeigerAlsStift.Check
+    printlog "UNcheck checkbox 'Mouse pointer visible'"
+    MauszeigerSichtbar.UnCheck
+    printlog "check checkbox 'Navigator visible'"
+    NavigatorSichtbar.Check
+    printlog "UNcheck checkbox 'animations allowed'"
+    AnimationenZulassen.UnCheck
+    printlog "UNcheck checkbox 'Change slides by clicking on background'"
+    DiaWechselAufHintergrund.UnCheck
+    printlog "check checkbox 'Presentation always on top'"
+    PraesentationImmerImVordergrund.Check
+    printlog "cancel dialog 'Slide Show' "
+    Bildschirmpraesentation.Cancel
+    printlog "close application "
+    Call hCloseDocument
  
 endcase 'tSlideShowSlideShowSettings
 '-------------------------------------------------------------------------------
 testcase tSlideShowCustomSlideShow
-
-   '/// open application ///'
-   Call hNewDocument
-   sleep 2
-   '/// Slide Show->Custom Slide Show ///'
-   SlideShowCustomSlideshow
-      Kontext "IndividuellePraesentation"
-      call Dialogtest (IndividuellePraesentation)
-      '/// click button 'New' ///'
-      Neu.Click
-         Kontext "IndividuellePraesentationDefinieren"
-         Call DialogTest (IndividuellePraesentationDefinieren)
-         '/// select the first entry in the list 'Existing Slides' ///'
-         SeitenPraesentation.Select 1
-         '/// click button '>>' ///'
-         Hinzufuegen.Click
-         '/// close dialog 'Define Custom Slide Show' with OK ///'
-      IndividuellePraesentationDefinieren.OK
-      Kontext "IndividuellePraesentation"
-      '/// click button 'Copy' ///'
-      Kopieren.Click
-      '/// click button 'Delete' ///'
-      Loeschen.Click
-      '/// click button 'Edit' ///'
-      Bearbeiten.Click
-         Kontext "IndividuellePraesentationDefinieren"
-         '/// select 1st entry in the list 'Selected Slides' ///'
-         SelectedSlides.Select 1
-         '/// click button '<<' ///'
-         Entfernen.Click
-         '/// close dialog 'Define Custom Slide Show' with Cancel ///'
-      IndividuellePraesentationDefinieren.Cancel
-      Kontext "IndividuellePraesentation"
-      '/// check checkbox 'Use Custom Slide Show' ///'
-      IndividuellePraesentationBenutzen.Check
-      sleep 1
-      '///+ UNcheck checkbox 'Use Custom Slide Show' ///'
-      IndividuellePraesentationBenutzen.UnCheck
-      '/// click button 'Start...' ///'
-      Starten.Click
-         sleep 5
-         '/// press key [space] 2 times ///'
-         kontext "DocumentPresentation"
-         DocumentPresentation.TypeKeys "<space>"
-         sleep 1
-         DocumentPresentation.TypeKeys "<space>"
-         sleep 1
-      '/// close dialog 'Custom Slide Shows' ///'
-'   IndividuellePraesentation.Close ' slide show ends dialog !
-   '/// Slide Show->Slide Show Settings ///'
+    
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "Slide Show->Custom Slide Show "
+    SlideShowCustomSlideshow
+    Kontext "IndividuellePraesentation"
+    call Dialogtest (IndividuellePraesentation)
+    printlog "click button 'New' "
+    Neu.Click
+    Kontext "IndividuellePraesentationDefinieren"
+    Call DialogTest (IndividuellePraesentationDefinieren)
+    printlog "select the first entry in the list 'Existing Slides' "
+    SeitenPraesentation.Select 1
+    printlog "click button '>>' "
+    Hinzufuegen.Click
+    printlog "close dialog 'Define Custom Slide Show' with OK "
+    IndividuellePraesentationDefinieren.OK
+    Kontext "IndividuellePraesentation"
+    printlog "click button 'Copy' "
+    Kopieren.Click
+    printlog "click button 'Delete' "
+    Loeschen.Click
+    printlog "click button 'Edit' "
+    Bearbeiten.Click
+    Kontext "IndividuellePraesentationDefinieren"
+    printlog "select 1st entry in the list 'Selected Slides' "
+    SelectedSlides.Select 1
+    printlog "click button '<<' "
+    Entfernen.Click
+    printlog "close dialog 'Define Custom Slide Show' with Cancel "
+    IndividuellePraesentationDefinieren.Cancel
+    Kontext "IndividuellePraesentation"
+    printlog "check checkbox 'Use Custom Slide Show' "
+    IndividuellePraesentationBenutzen.Check
+    sleep 1
+    printlog "+ UNcheck checkbox 'Use Custom Slide Show' "
+    IndividuellePraesentationBenutzen.UnCheck
+    printlog "click button 'Start...' "
+    Starten.Click
+    sleep 5
+    printlog "press key [space] 2 times "
+    kontext "DocumentPresentation"
+    DocumentPresentation.TypeKeys "<space>"
+    sleep 1
+    DocumentPresentation.TypeKeys "<space>"
+    sleep 1
+    printlog "close dialog 'Custom Slide Shows' "
+    '   IndividuellePraesentation.Close ' slide show ends dialog !
+    printlog "Slide Show->Slide Show Settings "
    try
       SlideShowPresentationSettings
    catch
    endcatch
       Kontext "Bildschirmpraesentation"
       if Bildschirmpraesentation.exists (5) then
-         '/// check checkbox 'Custom Slide Show' ///'
+         printlog "check checkbox 'Custom Slide Show' "
          RangeCustomSlideShow.Check
          printlog "check: '" + IndividuellePraesentationName.GetSelText + "'"
-         '/// cancel dialog 'Slide Show' ///'
+         printlog "cancel dialog 'Slide Show' "
          Bildschirmpraesentation.Cancel
       else
          warnlog "Dialog not open? SlideShowPresentationSettings"
       endif
-   '/// Slide Show->Custom Slide Show ///'
+   printlog "Slide Show->Custom Slide Show "
    SlideShowCustomSlideshow
       Kontext "IndividuellePraesentation"
       if (IndividuellePraesentation.exists (5)) then
-         '/// click button 'Delete' ///'
+         printlog "click button 'Delete' "
          Loeschen.Click
-         '/// close dialog 'Custom Slide Shows' ///'
+         printlog "close dialog 'Custom Slide Shows' "
          IndividuellePraesentation.Close
       else
          warnlog "Dialog not open? SlideShowCustomSlideshow"
       endif
-   '/// close application ///'
+   printlog "close application "
    Call hCloseDocument
    
 endcase 'tSlideShowCustomSlideShow
 '------------------------------------------------------------------------------
 testcase tSlideShowSlideTransition
 
-    goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug."
     dim i as integer
     dim a as integer
     dim iCount as integer
 
-    '/// open application ///'
+    printlog "open application "
     Call hNewDocument
-    '/// create rectangle ///'
+    printlog "create rectangle "
     Call hRechteckErstellen ( 10, 10, 20, 40 )
     sleep 1
-    '/// Slide Show->Slide Transition ///'
+    printlog "Slide Show->Slide Transition "
     SlideShowSlideTransition
     sleep 2
-    '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///'
+    printlog "The 'Slide Transition' in the right 'Tasks' Pane has to come up "
     Kontext "Tasks"
-        '/// Select the second entry from teh Listbox 'Applay to selected slides' ///'
+        printlog "Select the second entry from teh Listbox 'Applay to selected slides' "
         TransitionApplyToSelectedSlide.select (2)
         sleep 5 ' takes some time, until it is run
         Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount
         iCount = TransitionSound.GetItemCount
         Printlog "Count of Sounds  : " + iCount
 
-        '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///'
+        printlog "One Entry of the Listbox 'Sound' is 'Other sound...', select it "
         TransitionSound.typeKeys "<home>"
         i = 0
         for a = 1 to iCount
             endif
         next a
         TransitionSound.select (i)
-        '/// The dialog 'Open' comes up///'
+        printlog "The dialog 'Open' comes up"
         sleep 1
         kontext "OeffnenDlg"
         if (OeffnenDlg.exists (5)) then
-            '/// Read all entries in Listbox 'File type' ///'
+            printlog "Read all entries in Listbox 'File type' "
             for i = 1 to Dateityp.getItemCount
                 printlog "" + i + ":" + Dateityp.getItemText(i)
             next i
-            '/// cancel dialog 'Open' ///'
+            printlog "cancel dialog 'Open' "
             OeffnenDlg.cancel
         else
             warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!"
         endif
         kontext "Tasks"
         sleep (2)
-        '/// check checkbox 'Automatically after' ///'
+        printlog "check checkbox 'Automatically after' "
         TransitionAutomaticallyAfter.check
         sleep (2)
-        '/// press key 'Page Up' in box ///'
+        printlog "press key 'Page Up' in box "
         TransitionAutomaticallyAfterTime.typeKeys "<PageUp>"
         sleep 9
-        '/// check the standard checkbox 'On mouse click' ///'
+        printlog "check the standard checkbox 'On mouse click' "
         TransitionOnMouseClick.check
         sleep (2)
-        '/// press button 'Apply to All Slides' ///'
+        printlog "press button 'Apply to All Slides' "
         TransitionApplyToAllSlides.click
         sleep (2)
-        '/// press button 'Play' ///'
+        printlog "press button 'Play' "
         TransitionPlay.click
         sleep 10
-        '/// press button 'Slide Show' ///'
+        printlog "press button 'Slide Show' "
         TransitionSlideShow.click
         sleep 2
         kontext "DocumentPresentation"
         endif
         kontext "Tasks"
 
-        '/// uncheck and check Checkbox 'Automatic Preview' ///'
-        '/// default is checked ///'
+        printlog "uncheck and check Checkbox 'Automatic Preview' "
+        printlog "default is checked "
         if (NOT TransitionAutomaticPreview.isChecked) then
             warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!"
         endif
         TransitionAutomaticPreview.unCheck
         sleep (2)
         TransitionAutomaticPreview.Check
-    '/// close application ///'
+    printlog "close application "
     Call hCloseDocument
     
 endcase 'tSlideShowSlideTransition
 '-------------------------------------------------------------------------------
 testcase tSlideShowShowHideSlide
-
-'/// open application ///'
- Call hNewDocument
-'/// create rectangle ///'
-   Call hRechteckErstellen ( 10, 10, 20, 40 )
-'/// View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-   sleep 1
-'/// Slide Show->Hide Slide ///'
-   SlideShowHideSlide
-   sleep 1
-'/// Slide Show->Show Slide ///'
-   SlideShowShowSlide
-'/// close application ///'
- Call hCloseDocument
-endcase
-
-testcase tSlideShowAnimation
-'/// open application ///'
-   Call hNewDocument
-   sleep 1
-'/// create rectangle ///'
-   Call hRechteckErstellen ( 10, 10, 20, 40 )
-   sleep 1
-'/// Insert ->Animated image ///'
- Opl_SD_EffekteZulassen
- Kontext "Animation"
-     sleep 1
-'/// click button 'Apply Object' ///'
-     BildAufnehmen.Click  'BildAufnehmen
-'/// click button 'Create' ///'
-      Erstellen.Click
-     sleep 1
-'/// Select 1st entry from top in 'Alignment' ///'
-      Anpassung.Select 1
-     sleep 1
-'/// click button 'Create' ///'
-      Erstellen.Click
-     sleep 1
-'/// click button 'Apply Objects Individually' ///'
-      AlleAufnehmen.Click
-     sleep 1
-'/// click button 'First Image' ///'
-      ErstesBild.Click
-     sleep 1
-'/// click button 'Last Image' ///'
-      LetztesBild.Click
-     sleep 1
-'/// click button 'BAckwards' ///'
-      Rueckwaerts.Click
-     sleep 1
-'/// click button 'Play' ///'
-      Abspielen.Click
-     sleep 1
-'/// click in Number field 'Image Number' Less - More ///'
-      AnzahlBilder.Less
-     sleep 1
-      AnzahlBilder.More
-     sleep 1
-'/// check 'Bitmap Object' ///'
-   AnimationsgruppeBitmapobjekt.Check
-     sleep 1
-'/// Type '10' into the field 'Duration' ///'
-      AnzeigedauerProBild.SetText "10"
-'/// click button 'Play' ///'
-      Abspielen.Click
-'/// wait 5 seconds ///'
-      sleep 5
-'/// click button 'Stop' ///'
-     try
-        Stopp.Click
-     catch
-        warnlog "Stopbutton doesn't work"
-     endcatch
-     sleep 1
-'/// Select 1st entry from top in 'Loop Count' ///'
-      AnzahlDurchlaeufe.Select 1
-     sleep 1
-'/// click button 'Delete Current Image' ///'
-      BildLoeschen.Click
-     sleep 1
-'/// check 'Group Object' ///'
-   AnimationsgruppeGruppenobjekt.Check
-     sleep 1
-'/// click button 'Delete All Images' ///'
-      AlleLoeschen.Click
-      kontext "Messagebox"
-'/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///'
-      if Messagebox.exists (5) then
+    
+    printlog "open application "
+    Call hNewDocument
+    printlog "create rectangle "
+    Call hRechteckErstellen ( 10, 10, 20, 40 )
+    printlog "View->Master View->Slides View "
+    ViewWorkspaceSlidesView
+    sleep 1
+    printlog "Slide Show->Hide Slide "
+    SlideShowHideSlide
+    sleep 1
+    printlog "Slide Show->Show Slide "
+    SlideShowShowSlide
+    printlog "close application "
+    Call hCloseDocument
+    endcase
+    
+    testcase tSlideShowAnimation
+    printlog "open application "
+    Call hNewDocument
+    sleep 1
+    printlog "create rectangle "
+    Call hRechteckErstellen ( 10, 10, 20, 40 )
+    sleep 1
+    printlog "Insert ->Animated image "
+    Opl_SD_EffekteZulassen
+    Kontext "Animation"
+    sleep 1
+    printlog "click button 'Apply Object' "
+    BildAufnehmen.Click  'BildAufnehmen
+    printlog "click button 'Create' "
+    Erstellen.Click
+    sleep 1
+    printlog "Select 1st entry from top in 'Alignment' "
+    Anpassung.Select 1
+    sleep 1
+    printlog "click button 'Create' "
+    Erstellen.Click
+    sleep 1
+    printlog "click button 'Apply Objects Individually' "
+    AlleAufnehmen.Click
+    sleep 1
+    printlog "click button 'First Image' "
+    ErstesBild.Click
+    sleep 1
+    printlog "click button 'Last Image' "
+    LetztesBild.Click
+    sleep 1
+    printlog "click button 'BAckwards' "
+    Rueckwaerts.Click
+    sleep 1
+    printlog "click button 'Play' "
+    Abspielen.Click
+    sleep 1
+    printlog "click in Number field 'Image Number' Less - More "
+    AnzahlBilder.Less
+    sleep 1
+    AnzahlBilder.More
+    sleep 1
+    printlog "check 'Bitmap Object' "
+    AnimationsgruppeBitmapobjekt.Check
+    sleep 1
+    printlog "Type '10' into the field 'Duration' "
+    AnzeigedauerProBild.SetText "10"
+    printlog "click button 'Play' "
+    Abspielen.Click
+    printlog "wait 5 seconds "
+    sleep 5
+    printlog "click button 'Stop' "
+    try
+    Stopp.Click
+    catch
+    warnlog "Stopbutton doesn't work"
+    endcatch
+    sleep 1
+    printlog "Select 1st entry from top in 'Loop Count' "
+    AnzahlDurchlaeufe.Select 1
+    sleep 1
+    printlog "click button 'Delete Current Image' "
+    BildLoeschen.Click
+    sleep 1
+    printlog "check 'Group Object' "
+    AnimationsgruppeGruppenobjekt.Check
+    sleep 1
+    printlog "click button 'Delete All Images' "
+    AlleLoeschen.Click
+    kontext "Messagebox"
+    printlog "there has to be a messagebox 'Really delete?' say YES!; else ERROR "
+    if Messagebox.exists (5) then
          Messagebox.YES
-      else
+    else
          warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( "
-      endif
-     sleep 1
-     kontext "Animation"
-'/// close dialog 'Animation' ///'
-      Animation.Close
-'/// close application ///'
-   Call hCloseDocument
+    endif
+    sleep 1
+    kontext "Animation"
+    printlog "close dialog 'Animation' "
+    Animation.Close
+    printlog "close application "
+    Call hCloseDocument
    
 endcase 'tSlideShowShowHideSlide
 '-------------------------------------------------------------------------------
     Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 )
     printlog "Slide Show->Custom Animation..."
     SlideShowCustomAnimation
-        Kontext "Tasks"
-        printlog "click button 'Add...'printlog "
-        EffectAdd.click
-        printlog "Dialog 'Custom Animation' comes up"
+    Kontext "Tasks"
+    printlog "click button 'Add...'printlog "
+    EffectAdd.click
+    printlog "Dialog 'Custom Animation' comes up"
+    kontext
+    printlog "Switch to TabPage: Entrance"
+    active.setPage(TabEntrance)
+    kontext "TabEntrance"
+    if TabEntrance.exists(5) then
+        DialogTest(TabEntrance)
+        printlog "select in the listbox 'Effects' the second entry"
+        Effects.select(2)
+        Speed.getItemCount
+        AutomaticPreview.unCheck
+        sleep 1
+        AutomaticPreview.Check
         kontext
-        printlog "Switch to TabPage: Entrance"
-        active.setPage(TabEntrance)
-        kontext "TabEntrance"
-        if TabEntrance.exists(5) then
-            DialogTest(TabEntrance)
-            printlog "select in the listbox 'Effects' the second entry"
-            Effects.select(2)
-            Speed.getItemCount
-            AutomaticPreview.unCheck
-            sleep 1
-            AutomaticPreview.Check
-            kontext
-            
-            printlog "Switch to TabPage: Emphasis"
-            active.setPage(TabEmphasis)
-            kontext "TabEmphasis"
-            if TabEmphasis.exists(5) then
-                DialogTest(TabEmphasis)
-            else
-                bError = true
-                warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
-            endif
-            kontext
+        
+        printlog "Switch to TabPage: Emphasis"
+        active.setPage(TabEmphasis)
+        kontext "TabEmphasis"
+        if TabEmphasis.exists(5) then
+            DialogTest(TabEmphasis)
+        else
+            bError = true
+            warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work."
+        endif
+        kontext
             
             printlog "Switch to TabPage: Exit"
             active.setPage(TabExit)
 '-------------------------------------------------------------------------------
 testcase tSlideShowInteraction
 
-'/// open application ///'
- Call hNewDocument
- sleep 2
-'/// create rectangle ///'
-   Call hRechteckErstellen (10, 10, 20, 20)
-   sleep 3
-'/// Slide Show->Interaction ///'
-   SlideShowInteraction
-      Kontext "TabInteraktion"
-      Call DialogTest (TabInteraktion, 1)
-   '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///'
-      AktionBeiMausklick.select 6
-      Printlog AktionBeiMausklick.GetSelText + " chosen"
-      Call DialogTest (TabInteraktion, 2)
-   '///+ click button 'Find' ///'
-      sleep 1
-      suchen.click
-      Kontext "TabInteraktion"
-'/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///'
-      sleep 1
-      AktionBeiMausklick.select 7
-      sleep 1
-      Printlog AktionBeiMausklick.GetSelText + " chosen"
-      Kontext "TabInteraktion"
-      Call DialogTest (TabInteraktion, 3)
-   '///+ click button 'Browse...' ///'
-      Durchsuchen.click
-        sleep 1
-         kontext "OeffnenDlg"
-         call Dialogtest (OeffnenDlg)
-   '///+ cancel dialog 'open' ///'
-      OeffnenDlg.cancel
-      Kontext "TabInteraktion"
-      sleep 1
-'/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///'
-      AktionBeiMausklick.select 8
-      Printlog AktionBeiMausklick.GetSelText + " chosen"
-      Call DialogTest (TabInteraktion, 4)
-   '///+ click button 'Browse...' ///'
-      Durchsuchen.click
-   sleep 1
-      Kontext "OeffnenDlg"
-      Call dialogTest (OeffnenDlg)
-      '///+ cancel dialog 'open' ///'
-         OeffnenDlg.Cancel
-      sleep 1
-     Kontext "TabInteraktion"
-'/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///'
-         AktionBeiMausklick.select 9
-         Printlog AktionBeiMausklick.GetSelText + " chosen"
-            Call DialogTest (TabInteraktion, 7)
-            Kontext "TabInteraktion"
-   '///+ click button 'Browse...' ///'
-            Durchsuchen.Click
-            sleep 1
-               Kontext "OeffnenDlg"
-               Call dialogTest (OeffnenDlg)
-   '///+ cancel dialog 'open' ///'
-               OeffnenDlg.Cancel
-         sleep 1
-'/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///'
-      Kontext "TabInteraktion"
-      AktionBeiMausklick.select 10
-        Printlog AktionBeiMausklick.GetSelText + " chosen"
-      sleep 3
-      Call DialogTest (TabInteraktion, 6)
-   '///+ click button 'Browse...' ///'
-           Durchsuchen.Click
-           sleep 1
-           Kontext "ScriptSelector"
-           sleep 1
-           Call DialogTest ( ScriptSelector, 1)
-           sleep 1
-   '///+ cancel dialog 'ScriptSelector' ///'
-           ScriptSelector.Cancel
-           sleep 1
-'/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///'
-      Kontext "TabInteraktion"
-      AktionBeiMausklick.select 11
-      Printlog AktionBeiMausklick.GetSelText + " chosen"
-      Call DialogTest (TabInteraktion, 7)
-      Kontext "TabInteraktion"
-'/// close dialog 'Interaction' ///'
-      TabInteraktion.Close
-      sleep 2
-'/// close application ///'
- Call hCloseDocument
+    printlog "open application "
+    Call hNewDocument
+    sleep 2
+    printlog "create rectangle "
+    Call hRechteckErstellen (10, 10, 20, 20)
+    sleep 3
+    printlog "Slide Show->Interaction "
+    SlideShowInteraction
+    Kontext "TabInteraktion"
+    Call DialogTest (TabInteraktion, 1)
+    printlog "+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' "
+    AktionBeiMausklick.select 6
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Call DialogTest (TabInteraktion, 2)
+    printlog "+ click button 'Find' "
+    sleep 1
+    suchen.click
+    Kontext "TabInteraktion"
+    printlog "Select 7th entry from top in 'Action at mouse click' : 'Go to document' "
+    sleep 1
+    AktionBeiMausklick.select 7
+    sleep 1
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Kontext "TabInteraktion"
+    Call DialogTest (TabInteraktion, 3)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.click
+    sleep 1
+    kontext "OeffnenDlg"
+    call Dialogtest (OeffnenDlg)
+    printlog "+ cancel dialog 'open' "
+    OeffnenDlg.cancel
+    Kontext "TabInteraktion"
+    sleep 1
+    printlog "Select 9th entry from top in 'Action at mouse click' : 'Play Sound' "
+    AktionBeiMausklick.select 8
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Call DialogTest (TabInteraktion, 4)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.click
+    sleep 1
+    Kontext "OeffnenDlg"
+    Call dialogTest (OeffnenDlg)
+    printlog "cancel dialog 'open' "
+    OeffnenDlg.Cancel
+    sleep 1
+    Kontext "TabInteraktion"
+    printlog "Select 8th entry from top in 'Action at mouse click' : 'Run Program' "
+    AktionBeiMausklick.select 9
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Call DialogTest (TabInteraktion, 7)
+    Kontext "TabInteraktion"
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.Click
+    sleep 1
+    Kontext "OeffnenDlg"
+    Call dialogTest (OeffnenDlg)
+    printlog "+ cancel dialog 'open' "
+    OeffnenDlg.Cancel
+    sleep 1
+    printlog "Select 9th entry from top in 'Action at mouse click' : 'Run Macro' "
+    Kontext "TabInteraktion"
+    AktionBeiMausklick.select 10
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    sleep 3
+    Call DialogTest (TabInteraktion, 6)
+    printlog "+ click button 'Browse...' "
+    Durchsuchen.Click
+    sleep 1
+    Kontext "ScriptSelector"
+    sleep 1
+    Call DialogTest ( ScriptSelector, 1)
+    sleep 1
+    printlog "+ cancel dialog 'ScriptSelector' "
+    ScriptSelector.Cancel
+    sleep 1
+    printlog "Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' "
+    Kontext "TabInteraktion"
+    AktionBeiMausklick.select 11
+    Printlog AktionBeiMausklick.GetSelText + " chosen"
+    Call DialogTest (TabInteraktion, 7)
+    Kontext "TabInteraktion"
+    printlog "close dialog 'Interaction' "
+    TabInteraktion.Close
+    sleep 2
+    printlog "close application "
+    Call hCloseDocument
  
 endcase 'tSlideShowInteraction

testautomation/graphics/required/includes/impress/im_011_.inc

 '\*****************************************************************
 
 testcase tiDiaLeiste
-
-' only in IMPRESS
-  dim sTemp as string
-  Dim i,x as integer
-
-'/// open application ///'
-   Call hNewDocument
-   sleep 1
-'/// Change options so the presentation won't start from the current, but the first slide. ///'
-   ToolsOptions
-   hToolsOptions ( "IMPRESS", "General" )
-   MitAktuellerSeite.Uncheck
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-'/// insert a graphic: "global\input\graf_inp\desp.bmp") ///'
-  Printlog "- Insert graphic from file so there is something for the slide mode"
-   hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 3
-'///+ Insert->Slide ///'
-   InsertSlide
-   sleep 2
-   hTypekeys "<Pagedown>"
-   sleep 2
-'///+ insert a graphic: "global\input\graf_inp\desp.bmp") ///'
-   hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
-   sleep 3
-'///+ View->Master View->Slides View ///'
-   ViewWorkspaceSlidesView
-   sleep 2
-'-------------------------------- Ueberblendeffekt ----------------------------------------
-   Printlog "- Test blend effect"
-   Kontext "SlideViewObjectbar"  ' CORRECT
-   sleep 5
-
-   if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount
-'/// select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar ///'
-   Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount)
-   Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText
-
-'   Printlog Geschwindigkeit.GetRT  ' 341 listbox
-'   Printlog Diawechsel.GetRT       ' 341 listbox
-'   Printlog Zeit.GetRT             ' 353 spinfield
-'   Printlog DiasProReihe.GetRT     ' 353 spinfield
-'   Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button
-'   Printlog DiaAnzeigen.GetRT               doesn't work, but behave as button
-
-'-------------------------------- Geschwindigkeit -----------------------------------------
-  Printlog "- Check different speed settings"
-   Kontext "SlideViewObjectbar"
-'/// select every item in list 'Transition Speed' ///'
-   x = Geschwindigkeit.GetItemCount
-   for i = 1 to x
-       Geschwindigkeit.Select i
-       Printlog "     changed to: " + Geschwindigkeit.GetSelText
-   next i
-'-------------------------------- Diawechsel ----------------------------------------------
-   Printlog "- Style of slide change"
-   Kontext "SlideViewObjectbar"
-'/// select every item in list 'Auto Transition' ///'
-   x = Diawechsel.GetItemCount
-   for i = 1 to x
-       Diawechsel.Select i
-       Printlog "     Changed to: " + Diawechsel.GetSelText + "; is time enabled ?: "+Zeit.IsEnabled
-   next i
-'-------------------------------- Diawechsel Zeitintervall --------------------------------
-   Printlog "- Zeitintervall testen"
-   Kontext "SlideViewObjectbar"
-'/// select last entry 'Automatic' in listbox 'Auto Transition' ///'
-   Diawechsel.Select (Diawechsel.GetItemCount) ' automatic is usually the last one
-   sleep 1
-   if (Zeit.IsEnabled = FALSE) Then Warnlog "- Time should be editable, if automatic is chosen"
-'/// type "15" into the field 'Time' ///'
-   Zeit.SetText "15"
-   sleep 1
-   Printlog "    Time set to: " + Zeit.GetText
-'-------------------------------- Praesentation mit Zeitnahme ------------------------------
-   Printlog "- Presentation with rehearsed timings"
-   Kontext "SlideViewObjectbar"
-'/// click button 'Rehearse Timings' ///'
-   PraesentationMitZeitnahme.Click
-   sleep 2
-   Kontext "DocumentPresentation"
-   if DocumentPresentation.exists (5) then
-      sleep 5
-'/// wait some seconds and click with mouse ///'
-      DocumentPresentation.MouseDown 50,50
-      DocumentPresentation.MouseUp 50,50
-      sleep 2
-'/// wait some seconds and click with mouse ///'
-      DocumentPresentation.MouseDown 50,50
-      DocumentPresentation.MouseUp 50,50
-      sleep 3
-   else
-      warnlog "Didn't switch into presentation mode :-("
-   endif
-   Kontext "DocumentPresentation"
-   if DocumentPresentation.exists (5) then
-      warnlog "We are still in presentation mode :-( WHY!!!!???"
-   endif
-'------------------------------- Dia anzeigen ja/nein --------------------------------------
-   Printlog "- Show slide yes/no"
-   Kontext "SlideViewObjectbar"
-'/// click button 'Show/Hide Slide' ///'
-   DiaAnzeigen.Click
-   sleep 3
-'/// click button 'Show/Hide Slide' ///'
-   DiaAnzeigen.Click
-'------------------------------- Dias pro Reihe --------------------------------------------
-   Printlog "- Presentation with rehearsed timings"
-   Kontext "SlideViewObjectbar"
-   sTemp = DiasProReihe.GetText
-'/// press button 'less' in field 'Slides Per Row' ///'
-      DiasProReihe.Less
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (less)"
-   sTemp = DiasProReihe.GetText
-'/// press button 'more' in field 'Slides Per Row' ///'
-      DiasProReihe.more
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (more 1)"
-   sTemp = DiasProReihe.GetText
-'/// press button 'more' in field 'Slides Per Row' ///'
-      DiasProReihe.more
-      if sTemp = DiasProReihe.GetText then warnlog "   nothing changed (more 2)"
- kontext
- if active.exists then