path: root/testautomation/graphics/tools/id_tools_2.inc

'encoding UTF-8  Do not remove or change this line!
'*******************************************************************************
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'*
'* Copyright 2008 by Sun Microsystems, Inc.
'*
'* OpenOffice.org - a multi-platform office productivity suite
'*
'* $RCSfile: id_tools_2.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 10:43:16 $
'*
'* This file is part of OpenOffice.org.
'*
'* OpenOffice.org is free software: you can redistribute it and/or modify
'* it under the terms of the GNU Lesser General Public License version 3
'* only, as published by the Free Software Foundation.
'*
'* OpenOffice.org is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'* GNU Lesser General Public License version 3 for more details
'* (a copy is included in the LICENSE file that accompanied this code).
'*
'* You should have received a copy of the GNU Lesser General Public License
'* version 3 along with OpenOffice.org.  If not, see
'* <http://www.openoffice.org/license.html>
'* for a copy of the LGPLv3 License.
'*
'/******************************************************************************
'*
'* Owner : wolfram.garten@sun.com
'*
'* short description : some tools (Subs)
'*
'\******************************************************************************

'Subs:
' #1 sFileExport
' #1 callAutocorrectOptions
' #1 sCheckCheck
' #1 sCheckUnderlined
' #1 sCheckSupperscript
' #1 sCheckDash
' #1 sPrintCheckOrder
' #1 writertest
' #1 calctest
' #1 tClipboardFromDrawTest
' #1 Select_Copy
' #1 SaveMeasurementSetFirst
' #1 MeasurementSetFirst
' #1 ResetMeasurement
' #1 SetKontextApplication
' #1 hSetSpellHypLanguage
' #1 hTBOtypeInDoc
' #1 Position_Vergleichen
' #1 g_demoguide
' #1 sFormatTextDrawAnimation
' #1 mouseclickinpresentation
' #1 im_002_
' #1 im_003_
' #1 im_004_
' #1 im_005_
' #1 im_007_
' #1 im_011_
' #1 D_002_
' #1 D_003_
' #1 D_005_
' #1 d_007
' #1 hOpenGallery
' #1 LoadGraphic
' #1 CheckGraphic 
' #1 GetOnlyGraphics
' #1 tSettingsToCM
' #1 tResetSettings
' #1 id_001
' #1 id_002
' #1 id_003
' #1 id_004
' #1 id_005
' #1 id_006
' #1 id_007
' #1 id_008
' #1 id_009
' #1 id_011
' #1 hWalkTheStyles

'\*****************************************************************

sub sFileExport

    printlog " just exporting is done in qatesttool/framework/first test: 'tGraphicExport' but there is no loading, "
    printlog "+ of the created files and the items on the dialogs are not checked completely "
    Dim ExZaehler as Integer
    Dim ExPath as String
    Dim Liste( 50 ) as String
    
    if (gApplication = "IMPRESS") then 
      ExtensionString = "odp"
    else
      ExtensionString = "odg"
    end if

    printlog "- all files are saved in [StarOfficePath]/user/work/[application]/export "
    ExPath = ConvertPath (gOfficePath + "user\work\" + gApplication + "\export\" )
    OutputGrafikTBO = ExPath & "expo"
    Printlog "Create the export-dir for the graphics (  + ExPath + )"
    try
      app.mkDir ( ExPath )
      ExZaehler = GetFileList ( ExPath , "*.*" , Liste() )
      if ExZaehler <> 0 then
         Printlog "The export-dir exists. The test want to delete all Files ( " + ExZaehler + " )!"
         if KillFileList ( Liste() ) = FALSE then
            Warnlog "Not all files can be deleted. " + ListCount ( Liste() ) + " files exists!"
         end if
      end if
    catch
      Warnlog "An error at creating the export-dir, the test ends!"
    exit sub
    endcatch
    
    printlog "+ open the test document qatesttool/graphics/required/input/graphicexport.od ? ] "

end sub

'-------------------------------------------------------------------------
sub callAutocorrectOptions

    ToolsAutocorrect
    Kontext
    active.SetPage TabOptionen
    Kontext "TabOptionen"
end sub

'-------------------------------------------------------------------------------
sub sCheckCheck (i, Pruefung$, bEnabled)

    hTextrahmenErstellen  (Pruefung$,20,20,60,40)

    select case i
' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA
        case 5: bEnabled 'sCheckUnderlined (bEnabled)
        case 6: sCheckSupperscript (bEnabled)
        case 8: sCheckDash (bEnabled)
        case else:
            hTypeKeys "<Home><Shift End>"
            EditCopy
            if (GetClipboardText = Pruefung$) then ' not replaced
                if bEnabled then  ' not as expected
                    warnlog "-    replacement failed"
                endif
            else     ' replaced
                if not bEnabled then  ' not as expected
                    warnlog "-    replacement failed : '" + Pruefung$ + "' - '" + GetClipboardText + "'"
                endif
            endif
    end select

    hTypeKeys "<Home><Shift End><Delete>"
end sub

'-------------------------------------------------------------------------------
sub sCheckUnderlined (bEnabled)

    dim btemp as boolean
    hTypeKeys "<End><Left><Shift Left>"
    try
        ContextOpenHyperlink
        btemp = true
    catch
        btemp = false
    endcatch
    if (bEnabled <> btemp) then
        warnlog "-    replacement failed"
    endif
    kontext
    if active.exists(5) then
        active.ok
    endif
end sub

'-------------------------------------------------------------------------------
sub sCheckSupperscript (bEnabled)

    hTypeKeys "<Home><Right><Right>"
    FormatCharacter
    Kontext
    Active.SetPage TabFontPosition
    Kontext "TabFontPosition"
    if (bEnabled <> Superscript.IsChecked) then
        warnlog "-    replacement failed"
    endif
    TabFontPosition.OK
end sub

'-------------------------------------------------------------------------------
sub sCheckDash (bEnabled)

    ' inserted is 45
    ' en dash is 8211 / alt + 0150
    ' em dash is 8212 / alt + 0151 ' which doen't work atm
    dim sTemp as string
    hTypeKeys "<End><Left><Left><Left><Left><Left><Left><Left><Left><Shift Left>"
    EditCopy
    sTemp = GetClipboard
    if ((asc(sTemp) <> 45) <> bEnabled) then
        warnlog "-    replacement failed : " + bEnabled + " : " + asc(sTemp)
    endif
end sub

'-------------------------------------------------------------------------------
sub sPrintCheckOrder (optional bcheck as boolean)

   dim sTemp as string
   dim sTemp2 as string
   dim i as integer
   printlog " deselect all "
   Printlog "-----------------------------------"
   printlog " select in default order and take Position X in mind ;-) "
   hTypeKeys ("<escape><escape>")
   for i = 1 to 3
      hTypeKeys ("<TAB>")
      sTemp = fGetPositionX()
      Printlog " - " + i +": " + sTemp
      if ((isMissing(bcheck) <> FALSE) AND (bcheck = TRUE)) then
         Select Case i
            Case 1:  sTemp2 = Ueber_Text_1
            Case 2:  sTemp2 = Ueber_Text_2
            Case 3:  sTemp2 = Ueber_Text_3
         End Select
         if sTemp <> sTemp2 then
            warnlog " + " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
         end if
      endif
   next i
   hTypeKeys ("<escape><escape>")
   Printlog "-----------------------------------"
end sub

'--------------------------- Tests for Writer ----------------------------------
sub writertest

   try 
      call Make_And_Check_Formatted_Text_Line_From_Application
   catch 
      warnlog "Something went wrong with testing writertest"
   endcatch

   try
      call Make_Rectangle_From_Application
      call Full_test_Draw
      call Full_test_Impress
      call Full_test_Writer
      call Full_test_Calc
   catch
      warnlog "something wrong with testing writertest"
   endcatch
end sub ' big one

'---------------------------- Tests for Calc -----------------------------------
sub calctest

try
   call Make_Rectangle_From_Application
   call Full_test_Draw
   call Full_test_Impress
   call Full_test_Writer
   call Full_test_Calc
catch
   warnlog "something wrong with calctest"
endcatch
   printlog "currently no specific tests from Calc"
end sub

'-------------------------------------------------------------------------------
sub tClipboardFromDrawTest

    EnableQAErrors = false
    FromApp2 = gApplication
    printlog "gApplication = " + gApplication
    
    if gApplication = "WRITER" then
       call writertest
       exit sub
    end if
    
    if gApplication = "CALC" then
       call calctest
       exit sub
    end if
end sub

'-------------------------------------------------------------------------------
sub Select_Copy

   printlog " Select and copy "
   Sleep 10
   if gApplication = "DRAW" then
      EditSelectAll
      printlog "   We just ran EditSelectAll - Application is Draw"
   end if
   if gApplication = "IMPRESS" then
      EditSelectAll
      printlog "   We just ran EditSelectAll - Application is Impress"
   end if
   Sleep 2
   EditCopy
   Sleep 2
   printlog "   Copied object"
end Sub

'-------------------------------------------------------------------------------
sub SaveMeasurementSetFirst

    if (gApplication = "DRAW") then
       sApplication = "DRAWING"
    elseIf (gApplication = "IMPRESS") then
       sApplication = "IMPRESS"
    elseIf (gApplication = "WRITER") then
       sApplication = "WRITER"
    elseIf (gApplication = "CALC") then
       sApplication = "CALC"
    endif
    printlog " - save states "
    ToolsOptions
     hToolsOptions (sApplication,"General")
     ReferenceOld = Masseinheit.GetSelText
     Masseinheit.TypeKeys= "<HOME>" '(first entry)
     ReferenceNew = Masseinheit.GetSelText
     Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.OK
end Sub

'-------------------------------------------------------------------------------
sub MeasurementSetFirst

    dim f as integer
    if (gApplication = "DRAW") then
       sApplication = "DRAWING"
    elseIf (gApplication = "IMPRESS") then
       sApplication = "IMPRESS"
    elseIf (gApplication = "WRITER") then
       sApplication = "WRITER"
    elseIf (gApplication = "CALC") then
       sApplication = "CALC"
    endif
    ToolsOptions
     hToolsOptions (sApplication,"General")
     if Masseinheit.GetSelText <> ReferenceNew then 'find the right one.
        Masseinheit.TypeKeys "<HOME>"
        for f = 1 to Masseinheit.GetItemCount
            if Masseinheit.GetSelText = ReferenceNew then
               i = Masseinheit.GetItemCount 'find the right one.
            else
               Masseinheit.TypeKeys "<DOWN>"
            endif
        next f
     endif
     Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.OK
end Sub

'-------------------------------------------------------------------------------
sub ResetMeasurement

    dim f as integer
    if (gApplication = "DRAW") then
       sApplication = "DRAWING"
    elseIf (gApplication = "IMPRESS") then
       sApplication = "IMPRESS"
    elseIf (gApplication = "WRITER") then
       sApplication = "WRITER"
    elseIf (gApplication = "CALC") then
       sApplication = "CALC"
    endif
    printlog " - Reset states back to what they were before "
    ToolsOptions
     hToolsOptions (sApplication,"General")
     if Masseinheit.GetSelText <> ReferenceOld then 'find the right one.
        Masseinheit.TypeKeys "<HOME>"
        for f = 1 to Masseinheit.GetItemCount
            if Masseinheit.GetSelText = ReferenceOld then
               i = Masseinheit.GetItemCount 'find the right one.
            else
               Masseinheit.TypeKeys "<DOWN>"
            endif
        next f
     endif
     Kontext "ExtrasOptionenDlg"
    ExtrasOptionenDlg.OK
end Sub

'-------------------------------------------------------------------------------
sub SetKontextApplication
    sleep 1
    Select Case gApplication
      Case "DRAW"
         Kontext "DocumentDraw"
    'Printlog "gApplication / Kontext is now: DocumentDraw"
         sleep 1
      Case "IMPRESS"
         Kontext "DocumentImpress"
    'Printlog "gApplication / Kontext is now is now: DocumentImpress"
         sleep 1
      Case "WRITER"
         Kontext "DocumentWriter"
    'Printlog "gApplication / Kontext is now is now: DocumentWriter"
         sleep 1
      Case "CALC"
         Kontext "DocumentCalc"
    'Printlog "gApplication / Kontext is now is now: DocumentCalc"
         sleep 1
    end select
   sleep 1
end sub

'-------------------------------------------------------------------------------

sub hSetSpellHypLanguage
printlog " select a language with a dictionary, used for spellcheck, thesaurus and hyphenation "
    dim sTrieit as string

    ' only for asian languages i need to set the default language for the current document  to 'English(USA)'
    ' in all other languages the default has a dictionary
    if (bAsianLan or (iSprache=55)) then
        printlog " Tools->Options "
        ToolsOptions
        printlog " select from section 'Language Settings' the item 'Languages' "
        hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
        printlog " check checkbox 'For the current document only' in section 'Default languages for document' "
        AktuellesDokument.Check
        printlog " If there is no Language defined in 'locale-file' (in same directory as this file is) be smart and select one that supports spellchecking "
        if (glLocale(4) = "") then
            Kontext "ExtrasOptionenDlg"
            printlog "+ cancel dialog 'Options - ' "
            ExtrasOptionenDlg.Cancel
            printlog "+ call the smart subroutine that tells you a valid language with an dictionary "
            sTrieit = hFindSpellHypLanguage
            printlog "+ Tools->Options "
            ToolsOptions
            printlog "+ select from section 'Language Settings' the item 'Languages' "
            hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
            printlog "+ check checkbox 'For the current document only' in section 'Default languages for document' "
            AktuellesDokument.Check
            printlog " if smart routine found something, select it in section 'Default languages for document' listbox 'Western' "
            printlog "+ (manual users just select a language that has an icon in front of it ('ABC' with a checkmark) "
            if (sTrieit <> "") then
                try
                    Westlich.Select sTrieit
                catch
                    Asiatisch.Select sTrieit
                endcatch
            else
                qaErrorLog "Sorry no spellbook found: id_tools.inc::hSetSpellHypLanguage"
            endif
        else
        printlog " if a Language is already defined in the textfile "
            printlog glLocale (4)
            try
                printlog " select it in section 'Default languages for document' listbox 'Western' "
                printlog "+ (manual users just select a language that has an icon in front of it ('ABC' with a checkmark) "
                try
                    Westlich.Select glLocale (4)
                catch
                    Asiatisch.Select glLocale (4)
                endcatch
            catch
                warnlog "this language is not available: '" + glLocale (4) + "'"
                dim qaw as string
                qaw = glLocale (4)
            endcatch
        endif
            try
                printlog "selected: '" + Westlich.GetSelText + "'"
            catch
                printlog "selected: '" + Asiatisch.GetSelText + "'"
            endcatch
        Kontext "ExtrasOptionenDlg"
        printlog "+ close dialog 'Options - ' with OK "
        ExtrasOptionenDlg.OK
    endif
end sub

'-------------------------------------------------------------------------------
sub hTBOtypeInDoc

   hRechteckErstellen ( 10, 10, 30, 40 )
end sub

'-------------------------------------------------------------------------------
sub Position_Vergleichen (Ueber_Text_1 as string,Ueber_Text_2 as string,Ueber_Text_3 as string)   ' Ueber_Text_1 : X-Position des Objektes

    dim Dummy_Text as string
    '------------------------------------------------------------  ' Ueber_Text_2 : printlog, bei richtigem Objekt
    'gMouseClick 99,99
    sleep 1
    gMouseClick 50,50
    ContextPositionAndSize
    kontext
    active.SetPage TabPositionAndSize
    kontext "TabPositionAndSize"
    Dummy_Text = PositionX.GetText
    TabPositionAndSize.OK
    sleep 1
    if TabPositionAndSize.exists (5) then printlog "Yo!"
    printlog "What?"
    if Dummy_Text = Ueber_Text_1 then
      Printlog Ueber_Text_2
    else
      warnlog Ueber_Text_3,":  is: ", Dummy_Text,"; should be: ", Ueber_Text_1
    end if
end sub

'-------------------------------------------------------------------------------
sub g_demoguide

    printlog "------------------- g_demoguide.inc ------------------------"
    
    call t_Introduction
    call t_Interoperability
    call t_DrawingEngine

end sub

'--------------------------------------------------------------------
sub sFormatTextDrawAnimation

    TabLauftext.OK
    WaitSlot (3000)
    gMouseClick 99,99
    WaitSlot (3000)
    hTypeKeys("<Tab>")
    WaitSlot (1000)
    hTypeKeys("<F2>")
    WaitSlot (1000)
    FormatTextDraw
    Kontext
    Active.SetPage TabLauftext
    Kontext "TabLauftext"
end sub

'-------------------------------------------------------------------------------
sub mouseclickinpresentation

  Kontext "DocumentPresentation"
  autoexecute=false
  DocumentPresentation.MouseDown ( 50, 50 )   
  printlog " switch slides using mouse clicks "
  DocumentPresentation.MouseUp ( 50, 50 )
  autoexecute=true
end sub

'-------------------------------------------------------------------------------
sub im_002_

   printLog Chr(13) + "--------- im_002_     ---------- $Date: 2008-06-16 10:43:16 $ $Revision: 1.1 $ "

   Call tiEditDeleteSlide
end sub

'-------------------------------------------------------------------------------
sub im_003_

   printLog Chr(13) + "--------- im_003_     ----------"

    Call tiViewMasterView
    Call tiViewSlideMaster
    Call tiViewPanes
'TODO: TBO not necessary here, move to optional
    Call tiViewToolbar_1
end sub

'-------------------------------------------------------------------------------
sub im_004_

   printLog Chr(13) + "---------  im_004_     ----------"

   Call tiInsertSlideExpandSummary
end sub

'-------------------------------------------------------------------------------
sub im_005_

   printLog Chr(13) + "---------  im_005_     ---------- "

   Call tiFormatModifyLayout ' impress only
end sub

'-------------------------------------------------------------------------------
sub im_007_

   printLog Chr(13) + "---------  im_007_     ---------- "

   Call tSlideShowSlideShow
   Call tSlideShowRehearseTimings
   Call tSlideShowSlideShowSettings
   Call tSlideShowCustomSlideShow
   Call tSlideShowSlideTransition

Call tSlideShowShowHideSlide
   Call tSlideShowAnimation
   Call tSlideShowCustomAnimation
   Call tSlideShowInteraction
end sub

'-------------------------------------------------------------------------------
sub im_011_

   printLog Chr(13) + "---------  im_011_     ---------- "

   Call tiDiaLeiste    ' only IMPRESS
end sub

'-------------------------------------------------------------------------------
sub D_002_

   printLog Chr(13) + "---------  D_002_     ---------- "

  Call tdEditCrossFading
  Call tdEditLayer
end sub

'-------------------------------------------------------------------------------
sub D_003_

   printLog Chr(13) + "---------  D_003_     ---------- "

   call tdViewSlide
   call tdViewPagePane
end sub

'-------------------------------------------------------------------------------
sub D_005_

   printLog Chr(13) + "---------  D_005_     ---------- "

   call tiFormatLayer ' only in draw !!!!!
end sub

'-------------------------------------------------------------------------------
sub d_007

   printLog Chr(13) + "---------  d_007     ---------- "

   call tdModifyRotate
end sub

'-------------------------------------------------------------------------------
sub hOpenGallery

    Kontext "DocumentWriter"
    ToolsGallery
    WaitSlot (2000)
    Kontext "Gallery"
        if Gallery.NotExists(2) then
            ToolsGallery
            WaitSlot (2000)
        end if
end sub

'-------------------------------------------------------------------------
sub LoadGraphic ( sFile as String, bOK as Boolean ) as boolean

    Dim iW
    Dim iWMax
    Dim iH
    Dim iHMax
    if app.FileLen(sFile) = "0" then warnlog "   the file (" + (sFile) + ") seems to be zero bytes large."
    call hGrafikEinfuegen ( sFile )
    FormatGraphics
    Kontext
    Active.SetPage TabType
    Kontext "TabType"
        OriginalSize.Click
        iW = Val ( makeNumOutOfText ( Width.GetText ) )
        iH = Val ( makeNumOutOfText ( Height.GetText )
        if instr ( sFile, "photo" ) <> 0 then
            iWMax = 22
            iHMax = 25
        else
            iWMax = 17
            iHMax = 25
        end if
        if iW > iWMax OR iH > iHMax then
            printlog sFile + " :"
            warnlog "Size is too big ( max should be '" + iWMax + "' cm* '" + iHMax + "'cm DinA4 with default borders ), but it is '" + iW + "' * '" + iH + "'"
            LoadGraphic = false
        end if
        TabType.OK
        sleep (1)
    Kontext "DocumentWriter"
        DocumentWriter.TypeKeys "<Delete>"
        sleep (1)
        bOK = TRUE
end sub

'-------------------------------------------------------------------------
sub CheckGraphic ( sFile as String, bOK as Boolean ) as boolean

    if app.FileLen(sFile) = "0" then warnlog "   the file (" + (sFile) + ") seems to be zero bytes large."
    bOK = TRUE
end sub

'-------------------------------------------------------------------------
sub GetOnlyGraphics ( OldList() as String, NewList() as String )

    Dim i as Integer
    Dim sExtension as String

    ListAllDelete ( NewList() )
    for i=1 to ListCount ( OldList() )
        sExtension = lcase ( Right ( OldList(i), 3 ) )
        if sExtension = "jpg" OR sExtension = "gif" OR sExtension = "wmf" OR sExtension = "png" then
            ListAppend ( NewList(), OldList(i) )
        end if
    next i
end sub

'-------------------------------------------------------------------------
sub id_001

   printLog Chr(13) + "---------    id_001    ----------"

   qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
   call tiFilePassword
   call tiFileSaveAs
   call tiFileReload
   call tiFileVersion
   printlog " File->Send not possible to test, because extrnal prg get's called!"
   call tiFileTemplates
'   Call tiFileNew instead i call:
   call tmFileNewFromTemplate
   call tmFileOpen
   call tmFileClose
   call tmFileSave
   call tmFileSaveAs
   call tmFileExit

   call tmFileSaveAll
   call tmFileProperties
   call tdFileExport
   call tmFilePrinterSetting
   ' special cases
   '   Call AutoPilot      'inc\desktop\autopilo.inc
   call tmFileExit ' don't test because unpredictable behaviour
end sub

'------------------------------------------------------------------------------
sub id_002

    printLog Chr(13) + "---------    id_002    ----------"

    call tiEditUndoRedo
    call tiEditRepeat
    call tiEditCutPasteCopySelectall
    call tiEditPasteSpecial
    call tiEditSearchAndReplace
    call tiEditDuplicate
    call tEditPoints
    call tiEditFields
    call tdEditDeleteSlide
    call tiEditLinks
    call tiEditImageMap
    call tiEditObjectProperties
    call tiEditObjectEdit
    call tiEditPlugIn
    call tiEditHyperlink
end sub

'-------------------------------------------------------------------------
sub id_003

   printLog Chr(13) + "---------    id_003    ----------"

   call tiViewNavigator
   call tiViewZoom
   call tiViewToolbar
   Call tToolsCustomize			     'global\required\include
   call tiViewDisplayQuality
   call tiViewLayer
   call tViewSnapLines
   call tViewGrid
end sub

'-------------------------------------------------------------------------
sub id_004

   printLog Chr(13) + "---------    id_004    ----------"

   call tiInsertSlide
   call tiInsertDuplicateSlide
    ' v expand slide
    '  v summary slide
   call tiInsertField
   call tiInsertSpecialCharacter
   call tiInsertHyperlink
   call tiInsertScan
   call tiInsertGraphic
   call tiInsertObjectSound
   call tiInsertObjectVideo
   call tiInsertObjectSound  
   call tiInsertObjectVideo
   call tiInsertChart
   call tiInsertObjectOLEObjects
   call tiInsertSpreadsheet
   call tiInsertFormula
   call tiInsertFloatingFrame
   call tiInsertFile
   call tiInsertPlugin
   call tiInsertSnappointLine
   call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
end sub

'------------------------------------------------------------------------------
sub id_005

   printLog Chr(13) + "---------    id_005    ----------"

   call tiFormatDefault
   call tiFormatLine
   call tdFormatArea
   call tiFormatText
   call tiFormatPositionAndSize
   call tiFormatCharacter
   call tiFormatControlForm
'       ^ Form
   call tiFormatDimensions
   call tiFormatConnector
   call tiFormat3D_Effects
   call tiFormatNumberingBullets
   call tiFormatCaseCharacter
   call tiFormatParagraph
   call tiFormatPage
   call tiFormatStylesAndFormatting
   call tiFormatStylesSlideDesign
   call tiFormatFontwork
   call tiFormatGroup
   printlog " format->group is also modify->group "
'        tiFormatLayer ' not in impress
end sub

'------------------------------------------------------------------------------
sub id_006

    printLog Chr(13) + "---------    id_006    ----------"

    call tiToolsSpellchecking
    call tiToolsSpellcheckingAutomatic
    call tiToolsThesaurus
   call tiToolsHyphenation
   call tiToolsAutoCorrect
   call tChineseTranslation
   call tiToolsMacro
   call tiToolsGallery
   call tiToolsEyedropper
   call tiToolsOptions ' get just called one time here...
   Call tToolsOptionsTest ' global one
end sub

'-------------------------------------------------------------------------------
sub id_007

    printLog Chr(13) + "---------    id_007    ----------"
    ' in imp available via context menu, in draw via modify menu

    call tdModifyFlipVertikal
    call tdModifyFlipHorizontal
    call tdContextConvertIntoCurve
    call tdContextConvertIntoPolygon
    call tdContextConvertIntoContour
    call tdContextConvertInto3D
    call tdContextConvertIntoRotationObject
    call tdContextConvertIntoBitmap
    call tdContextConvertIntoMetaFile
    call tdModifyArrange
    call tdModifyArrangeObjects
    call tdModifyAlignment
    call tdContextDistribution
    call tdContextDescriptionObject
    call tdContextNameObject
    call tdModifyConnectBreak
    call tdModifyShapes
    call tdModifyCombineSplit
end sub

'-------------------------------------------------------------------------------
sub id_008

   printLog Chr(13) + "---------    id_008    ----------"

   Call tiWindowNewWindow
   call tidWindow123 
end sub

'------------------------------------------------------------------------------
sub id_009

   printLog Chr(13) + "---------    id_009    ----------"

    call tCheckIfTheHelpExists
    Call tmHelpContents
    Call tmHelpHelpAgent
    Call tmHelpTips
    Call tmHelpExtendedTips
    Call tmHelpAboutStarOffice

end sub

'------------------------------------------------------------------------------
sub id_011

    printLog Chr(13) + "---------    id_011    ----------"

    call tdBezierToolbar   
    call tiDrawObjectBar
    call tiTextToolbar
    call tiGraphicsObjectBar
    call tiGluepointToolbar

    end sub

'-------------------------------------------------------------------------------'

sub hWalkTheStyles (optional a as integer,optional b as integer)
    dim i as integer
    
    if isMissing (a) then a=1
    if isMissing (b) then b=2
    i=1
    if a <= i AND i <= b then
    Kontext
    printlog " switch to tabpage 'Line' "
    Messagebox.SetPage TabLinie
      kontext "TabLinie"
      Call DialogTest ( TabLinie )
    Kontext
    printlog " switch to tabpage 'Area' "
    Messagebox.SetPage TabArea
      kontext "TabArea"
      Call DialogTest ( TabArea )
    printlog " select radio button 'none' "
      NoFill.Check
      Call DialogTest ( TabArea, 1 )
    printlog " select radio button 'color' "
      Color.Check
      Call DialogTest ( TabArea, 2 )
    printlog " select radio button 'gradient' "
      Gradient.Check
      Call DialogTest ( TabArea, 3 )
    printlog " select radio button 'hatching' "
      Hatching.Check
      Call DialogTest ( TabArea, 4 )
    printlog " select radio button 'bitmap' "
      Bitmap.Check
      Call DialogTest ( TabArea, 5 )
    Kontext
    printlog " switch to tabpage 'shadowing' "
    Messagebox.SetPage TabSchatten
      kontext "TabSchatten"
    printlog " check 'use shadow' "
      Anzeigen.check
      Call DialogTest ( TabSchatten )
    Kontext
    printlog " switch to tabpage 'Transparency' "
    Messagebox.SetPage TabTransparenz
      kontext "TabTransparenz"
    printlog " check 'No transparency' "
      KeineTransparenz.Check
    printlog " check 'Transparency' "
      LineareTransparenz.Check
    printlog " check 'Gradient' "
      Transparenzverlauf.Check
    Kontext
    printlog " switch to tabpage 'Font' "
    Messagebox.SetPage TabFont
      kontext "TabFont"
      Call DialogTest ( TabFont )
    Kontext
    printlog " switch to tabpage 'Font Effect' "
    Messagebox.SetPage TabFontEffects
      kontext "TabFontEffects"
    Kontext
    printlog " switch to tabpage 'indents & spacing' "
    Messagebox.SetPage TabEinzuegeUndAbstaende
      kontext "TabEinzuegeUndAbstaende"
      Call DialogTest ( TabEinzuegeUndAbstaende )
    endif
    i=2
    if a <= i AND i <= b then
    Kontext
    printlog " switch to tabpage 'Organize' "
    Messagebox.SetPage TabVerwalten
      kontext "TabVerwalten"
      Call DialogTest ( TabVerwalten )
    Kontext
    printlog " switch to tabpage 'text' "
    Messagebox.SetPage TabText
      Kontext "TabText"
      Call DialogTest ( TabText )
    Kontext
    printlog " switch to tabpage 'text animation' "
    Messagebox.SetPage TabLauftext
      Kontext "TabLauftext"
      Call DialogTest ( TabLauftext )
    Kontext
    printlog " switch to tabpage 'dimension' "
    Messagebox.SetPage TabBemassung
      Kontext "TabBemassung"
      Call DialogTest ( TabBemassung )
    Kontext
    printlog " switch to tabpage 'connector' "
    Messagebox.setpage TabVerbinder
      Kontext "TabVerbinder"
      Call Dialogtest ( TabVerbinder )
    Kontext
    printlog " switch to tabpage 'alignment' "
    Messagebox.setpage TabAusrichtungAbsatz
      Kontext "TabAusrichtungAbsatz"
         Links.Check
         Rechts.Check
         Zentriert.Check
         Blocksatz.Check
    Kontext
    printlog " switch to tabpage 'Tabs' "
    Messagebox.setpage TabTabulator
      Kontext "TabTabulator"
    printlog " click 'new' "
         Neu.click
    printlog "                                    ' MAYBE CHECK COUNT OF THIS ?? Position               svx:MetricBox:RID_SVXPAGE_TABULATOR:ED_TABPOS "
    printlog " click 'delete all' "
         AlleLoeschen.click
    printlog " click 'new' "
         Neu.click
    printlog " click 'delete' "
         Loeschen.click
    endif
    i=3
    if a <= i AND i <= b then
      Kontext
    printlog " switch to tabpage 'Bullets' "
      Messagebox.SetPage TabBullet
      Kontext "TabBullet"
      sleep 1
      Call DialogTest (TabBullet)
      sleep 1
      Kontext
    printlog " switch to tabpage 'Numbering Type' "
      Messagebox.SetPage TabNumerierungsart
      Kontext "TabNumerierungsart"
      sleep 1
      Call DialogTest (TabNumerierungsart)
      sleep 1
      Kontext
    printlog " switch to tabpage 'Graphics' "
      Messagebox.SetPage TabGrafiken
      Kontext "TabGrafiken"
      sleep 1
      Call DialogTest (TabGrafiken)
      sleep 1
      Kontext
    printlog " switch to tabpage 'Customize' "
      Messagebox.SetPage TabOptionenNumerierung
      Kontext "TabOptionenNumerierung"
      sleep 1
      Call DialogTest (TabOptionenNumerierung)
      sleep 1
    endif
end sub

'---------------------------------------------------------------------------------------