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)
'*
'\******************************************************************************

sub sFileExport

    '/// just exporting is done in qatesttool/framework/first test: 'tGraphicExport' but there is no loading, ///'
    '///+ 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

    '///- all files are saved in [StarOfficePath]/user/work/[applicatoion]/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

    '///+ 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
    '/// deselect all ///'
    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

    '/// Select and copy ///'
    ' Removed by JSK: Sleep 10
    if gApplication = "DRAW" then
        hUseAsyncSlot( "EditSelectAll" )
        printlog "   We just ran EditSelectAll - Application is Draw"
    end if
    if gApplication = "IMPRESS" then
        hUseAsyncSlot( "EditSelectAll" )
        printlog "   We just ran EditSelectAll - Application is Impress"
    end if
    ' Removed by JSK: Sleep 2
    hUseAsyncSlot( "EditCopy" )
    ' Removed by JSK: 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
<<<<<<< .working
    printlog "   '/// - save states ///'"
=======
    printlog  " - save states "
>>>>>>> .merge-right.r273717
    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
<<<<<<< .working
    printlog "'/// - Reset states back to what they were before ///'"
=======
    printlog " - Reset states back to what they were before "
>>>>>>> .merge-right.r273717
    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
    ' Removed by JSK: 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
    '/// 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
        '/// Tools->Options ///'
        ToolsOptions
        '/// select from section 'Language Settings' the item 'Languages' ///'
        hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
        '/// check checkbox 'For the current document only' in section 'Default languages for document' ///'
        AktuellesDokument.Check
        '/// 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"
            '///+ cancel dialog 'Options - ' ///'
            ExtrasOptionenDlg.Cancel
            '///+ call the smart subroutine that tells you a valid language with an dictionary ///'
            sTrieit = hFindSpellHypLanguage
            '///+ Tools->Options ///'
            ToolsOptions
            '///+ select from section 'Language Settings' the item 'Languages' ///'
            hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
            '///+ check checkbox 'For the current document only' in section 'Default languages for document' ///'
            AktuellesDokument.Check
            '/// if smart routine found something, select it in section 'Default languages for document' listbox 'Western' ///'
            '///+ (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
            '/// if a Language is already defined in the textfile ///'
            printlog glLocale (4)
            try
                '/// select it in section 'Default languages for document' listbox 'Western' ///'
                '///+ (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"
        '///+ close dialog 'Options - ' with OK ///'
        ExtrasOptionenDlg.OK
    endif
end sub

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

sub TBOrestart

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

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