#i106290# - Integrate new printing dialog (Writer)

1 files changed, 480 insertions, 495 deletions

diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc
index 09b89a30b630..1b33d5360606 100644
--- a/testautomation/writer/required/includes/w_001a_.inc
+++ b/testautomation/writer/required/includes/w_001a_.inc
@@ -1,495 +1,480 @@
-'**************************************************************************
-'* 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: w_001a_.inc,v $
-'*
-'* $Revision: 1.2 $
-'*
-'* last change: $Author: vg $ $Date: 2008-08-18 12:40:41 $
-'*
-'* 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 : helge.delfs@sun.com
-'*
-'* short description:  Testcases for the Writer Required-test.
-'*
-'\***********************************************************************
-
-sub w_001a_
-
-    printLog Chr(13) + "--------- File Menu (w_001a_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFileProperties
-
-    Call tFileTemplatesOrganize
-    Call tFileTemplatesAddressbookSource
-    Call tFileTemplatesSave
-    Call tFileTemplatesEdit
-
-    Call tFilePagePreview
-    Call tPrintCommon()
-    Call tPrintGeneral()
-    Call tPrintApplication()
-    Call tPrintLayout()
-    Call tPrintOptions()
-    Call tFilePrinterSetup
-
-    'Writer Master Document
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocFilePagePreview
-    gApplication = "WRITER"
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFileProperties
-    PrintLog "- File / Properties"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " File / Properties"
-    FileProperties
-
-    WaitSlot(5000)
-    Kontext
-    try
-        active.SetPage TabDokument
-    catch
-        Warnlog "Dialog 'FileProperties' not up! (Bug#99828)"
-        goto endsub
-    endcatch
-
-    printlog " Switch to Tabpage 'General'"
-    Kontext "TabDokument"
-    Call DialogTest (TabDokument)
-
-    printlog " Switch to Tabpage 'Description'"
-    Kontext
-    active.SetPage TabDokumentinfo
-    Kontext "TabDokumentinfo"
-    Call DialogTest (TabDokumentinfo)
-
-
-    QAErrorlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed."
-    '    printlog " Switch to Tabpage 'User defined'"
-    '    Kontext
-    '    active.SetPage TabBenutzer
-    '    Kontext "TabBenutzer"
-    '    Call DialogTest ( TabBenutzer )
-
-    '    Wait 500
-
-    '    Infofelder.Click
-    '    printlog " Click 'Infofields'"
-    '    Kontext "InfonamenBearbeiten"
-    '    printlog " Close upcoming dialog with 'Cancel'"
-    '    Call DialogTest (InfonamenBearbeiten)
-    '    InfonamenBearbeiten.Cancel
-
-    printlog " Switch to Tabpage 'Internet'"
-    Kontext
-    active.SetPage TabInternet
-    Kontext "TabInternet"
-    Call DialogTest (TabInternet)
-
-    printlog " Switch to Tabpage 'Statistics' and close dialog"
-    Kontext
-    active.SetPage TabStatistik
-    Kontext "TabStatistik"
-    Call DialogTest (TabStatistik)
-    TabStatistik.Close
-
-    Sleep 1
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesOrganize
-    Dim i as integer
-
-    PrintLog " Open new document."
-    Call hNewDocument
-    PrintLog " File / Templates / Organize"
-    FileTemplatesOrganize
-    Kontext "DVVerwalten"
-    For i = 1 to 50
-        if DVVerwalten.Exists then
-            i = 51
-        else
-            Sleep 5
-        end if
-    next i
-    if Not DVVerwalten.Exists then
-        Warnlog "Dialog 'Template Management' not up !"
-        Call hCloseDocument
-        goto endsub
-    end if
-    wait 500
-    PrintLog " Select first entry in left list of dialog 'Template Management' (should be 'My Templates')"
-    ListeLinks.Select 1
-    ListeLinks.TypeKeys "<Home>"
-    Sleep 1
-    Befehle.Click
-    wait 500
-    PrintLog " Select 'Commands -> Import Template'"
-    Call hMenuSelectNr(3)
-    Wait 500
-    PrintLog " Close Filedialog."
-    if gUseSysDlg = False then
-        Kontext "OeffnenDlg"
-        if OeffnenDlg.Exists then
-            OeffnenDlg.Cancel
-        else
-            Warnlog "FileOpen dialog not up!"
-        end if
-    end if
-
-    PrintLog " Select 'Commands -> Printer Settings"
-    Kontext "DVVerwalten"
-    Sleep 1
-    Befehle.Click
-    wait 500
-    Call hMenuSelectNr(4)
-
-    PrintLog " Cancel 'Printer-Setup' dialog"
-    Kontext "DruckerEinrichten"
-    if DruckerEinrichten.Exists then
-        DruckerEinrichten.Cancel
-    else
-        Warnlog "Printersettings dialog is not up!"
-    end if
-
-    PrintLog " Select first entry in right list"
-    Kontext "DVVerwalten"
-    ListeRechts.Select 1
-
-    PrintLog " Select pushbutton 'File..'"
-    if WelcheDatei.IsEnabled then
-        WelcheDatei.Click
-        if gUseSysDlg = False then
-            PrintLog " Cancel Filedialog"
-            Kontext "OeffnenDlg"
-            OeffnenDlg.Cancel
-        end if
-    end if
-
-    PrintLog " Select pushbutton 'Address Book'"
-    Kontext "DVVerwalten"
-    AddressBook.Click
-    Kontext "AddressbookSource"
-    PrintLog " Cancel Dialog 'Address Book-Assignment'"
-    if AddressbookSource.Exists then
-        AddressbookSource.Cancel
-    else
-        Warnlog "the Dialog ' Address Book Source' wasnt up!"
-    end if
-
-    PrintLog " Close dialog"
-    Kontext "DVVerwalten"
-    DVVerwalten.Close
-
-    PrintLog " Close active document."
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesAddressbookSource
-
-    PrintLog " Open new document"
-    Call hNewDocument
-
-    PrintLog " File / Templates /Address Book Source..."
-    UseBindings
-    FileTemplatesAddressbookSource
-
-    WaitSlot(2000)
-    PrintLog " In 'Address Book Assignement' dialog click pushbutton 'Administrate'"
-    Kontext "AddressbookSource"
-    if AddressbookSource.Exists then
-        Call DialogTest (AddressbookSource)
-        Administrate.Click
-        Sleep 2
-        PrintLog " Close 'Data Source Administration' with 'Cancel'"
-        Kontext "DatabaseProperties"
-        if Not DatabaseProperties.Exists then
-            Kontext "AddressSourceAutopilot"
-            if AddressSourceAutopilot.Exists then
-                AddressSourceAutopilot.Cancel
-            end if
-            Kontext "AddressbookSource"
-            AddressbookSource.Cancel
-        else
-            PrintLog " DatabaseProperties.SetPage TabConnection"
-            Kontext "TabConnection"
-            Call DialogTest ( TabConnection )
-            Kontext "DatabaseProperties"
-            DatabaseProperties.Close
-            Kontext "AddressbookSource"
-            PrintLog " Close dialog"
-            AddressbookSource.Cancel
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesSave
-    if gApplication = "MASTERDOCUMENT" then
-        qaErrorLog "    tFileTemplatesSave has been disabled in Masterdocument."
-        goto endsub
-    end if
-    printlog "- File / Templates / Save"
-    Call hNewDocument
-    printlog " Open new document"
-    FileTemplatesSave
-    printlog " File / Templates / Save"
-
-    Kontext "DokumentVorlagen"
-    Call DialogTest ( DokumentVorlagen )
-    printlog " On 'Templates' dialog click 'Organizer'"
-
-    Verwalten.Click
-    Kontext "DVVerwalten"
-    DVVerwalten.Close
-    printlog " Close dialog 'Template Management'"
-
-    Kontext "DokumentVorlagen"
-    DokumentVorlagen.Cancel
-    printlog " Close 'Templates' dialog"
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesEdit
-    printlog "- File / Templates / Edit"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " File / Templates / Edit"
-    FileTemplatesEdit
-
-    if gUseSysDlg = False then
-        printlog " Cancel Filedialog"
-        Kontext "OeffnenDlg"
-        OeffnenDlg.Cancel
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePagePreview
-    PrintLog "- File / Page Preview"
-    Dim gehtnicht as boolean
-    gehtnicht = FALSE
-    printlog " Open new document"
-    Select Case gApplication
-    Case "WRITER"
-        Call hNewDocument
-
-    Case "MASTERDOCUMENT"
-        Call hNewDocument
-
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    printlog " Enter some text in document"
-    Call wTypeKeys("Just a small change!")
-    printlog " File / Page Preview"
-    FilePageView
-    WaitSlot (1000)
-    Kontext "DocPageViewWriter"
-    if DocPageViewWriter.NotExists then
-        Warnlog "Page Preview is not coming up!"
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.No
-            end if
-        end if
-    else
-        if gehtnicht=FALSE then
-            Kontext "PreviewObjectbar"
-            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
-            printlog " Select 'Zoom 100%' in toolbar"
-            try
-                Massstab.Select 4
-            catch
-                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
-            endcatch
-
-            printlog " Click 'Print Page Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            DruckenSeitenansicht.Click
-            Kontext "Active"
-            if Active.Exists then
-                QAErrorlog "No default printer!"
-                Active.ok
-                Sleep 1
-                Kontext "Printing"
-                if Printing.Exists then Printing.Cancel
-            else
-                printlog " Close 'Print' dialog with cancel"
-                Kontext "Printing"
-                Printing.Cancel
-            end if
-
-            printlog " Click 'Print options page preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            Skalierung.Click
-            printlog " Close 'Print Options' dialog with cancel"
-            Kontext "DruckOptionen"
-            Call DialogTest ( DruckOptionen )
-            DruckOptionen.Cancel
-
-            printlog " Close Page Preview with button 'Close Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            SeitenansichtSchliessen.Click
-        else
-            Warnlog "Objectbar not addressable!"
-        end if
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePrinterSetup
-    PrintLog " Open new document"
-    Call hNewDocument
-
-    PrintLog " File / Printer Settings"
-    FilePrintersettings
-    Kontext "Active"
-    WaitSlot(1000)
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorLog "No Default Printer!"
-            Active.Ok
-            Sleep 2
-            Kontext "DruckerEinrichten"
-            if DruckerEinrichten.Exists then
-                Call DialogTest ( DruckerEinrichten )
-                DruckerEinrichten.Cancel
-            end if
-        end if
-    else
-        Kontext "DruckerEinrichten"
-        Call DialogTest ( DruckerEinrichten )
-        DruckerEinrichten.Cancel
-        PrintLog " Cancel 'Printer Setup' dialog"
-    end if
-    PrintLog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFilePagePreview
-    PrintLog "- File / Page Preview"
-    Dim gehtnicht as boolean
-    gehtnicht = FALSE
-    gApplication   = "MASTERDOCUMENT"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Enter some text in document"
-    Call wTypeKeys("Just a small change!")
-    printlog " File / Page Preview"
-    FilePageView
-    WaitSlot (1000)
-    Kontext "DocPageViewWriter"
-    if DocPageViewWriter.NotExists then
-        Warnlog "Page Preview is not coming up!"
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.No
-            end if
-        end if
-    else
-        if gehtnicht=FALSE then
-            Kontext "PreviewObjectbar"
-            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
-            printlog " Select 'Zoom 100%' in toolbar"
-            try
-                Massstab.Select 4
-            catch
-                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
-            endcatch
-
-            printlog " Click 'Print Page Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            DruckenSeitenansicht.Click
-            Kontext "Active"
-            if Active.Exists then
-                QAErrorlog "No default printer!"
-                Active.ok
-                Sleep 1
-                Kontext "Printing"
-                if Printing.Exists then Printing.Cancel
-            else
-                printlog " Close 'Print' dialog with cancel"
-                Kontext "Printing"
-                Printing.Cancel
-            end if
-
-            printlog " Click 'Print options page preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            Skalierung.Click
-            printlog " Close 'Print Options' dialog with cancel"
-            Kontext "DruckOptionen"
-            Call DialogTest ( DruckOptionen )
-            DruckOptionen.Cancel
-
-            printlog " Close Page Preview with button 'Close Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            SeitenansichtSchliessen.Click
-        else
-            Warnlog "Objectbar not addressable!"
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
+'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: w_001a_.inc,v $

+'*

+'* $Revision: 1.2 $

+'*

+'* last change: $Author: vg $ $Date: 2008-08-18 12:40:41 $

+'*

+'* 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 : helge.delfs@sun.com

+'*

+'* short description:  Testcases for the Writer Required-test.

+'*

+'\***********************************************************************

+

+sub w_001a_

+

+    printLog Chr(13) + "--------- File Menu (w_001a_.inc) ----------"

+    gApplication = "WRITER"

+

+    Call tFileProperties

+

+    Call tFileTemplatesOrganize

+    Call tFileTemplatesAddressbookSource

+    Call tFileTemplatesSave

+    Call tFileTemplatesEdit

+

+    Call tFilePagePreview

+    Call tPrintCommon()

+    Call tPrintGeneral()

+    Call tPrintApplication()

+    Call tPrintLayout()

+    Call tPrintOptions()

+    Call tFilePrinterSetup

+

+    'Writer Master Document

+    gApplication = "MASTERDOCUMENT"

+    Call tMasterDocFilePagePreview

+    gApplication = "WRITER"

+

+end sub

+

+'-----------------------------------------------------------

+

+testcase tFileProperties

+    PrintLog "- File / Properties"

+

+    printlog " Open new document"

+    Call hNewDocument

+

+    printlog " File / Properties"

+    FileProperties

+

+    WaitSlot(5000)

+    Kontext

+    try

+        active.SetPage TabDokument

+    catch

+        Warnlog "Dialog 'FileProperties' not up! (Bug#99828)"

+        goto endsub

+    endcatch

+

+    printlog " Switch to Tabpage 'General'"

+    Kontext "TabDokument"

+    Call DialogTest (TabDokument)

+

+    printlog " Switch to Tabpage 'Description'"

+    Kontext

+    active.SetPage TabDokumentinfo

+    Kontext "TabDokumentinfo"

+    Call DialogTest (TabDokumentinfo)

+

+

+    QAErrorlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed."

+    '    printlog " Switch to Tabpage 'User defined'"

+    '    Kontext

+    '    active.SetPage TabBenutzer

+    '    Kontext "TabBenutzer"

+    '    Call DialogTest ( TabBenutzer )

+

+    '    Wait 500

+

+    '    Infofelder.Click

+    '    printlog " Click 'Infofields'"

+    '    Kontext "InfonamenBearbeiten"

+    '    printlog " Close upcoming dialog with 'Cancel'"

+    '    Call DialogTest (InfonamenBearbeiten)

+    '    InfonamenBearbeiten.Cancel

+

+    printlog " Switch to Tabpage 'Internet'"

+    Kontext

+    active.SetPage TabInternet

+    Kontext "TabInternet"

+    Call DialogTest (TabInternet)

+

+    printlog " Switch to Tabpage 'Statistics' and close dialog"

+    Kontext

+    active.SetPage TabStatistik

+    Kontext "TabStatistik"

+    Call DialogTest (TabStatistik)

+    TabStatistik.Close

+

+    Sleep 1

+    printlog " Close active document"

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFileTemplatesOrganize

+    Dim i as integer

+

+    PrintLog " Open new document."

+    Call hNewDocument

+    PrintLog " File / Templates / Organize"

+    FileTemplatesOrganize

+    Kontext "DVVerwalten"

+    For i = 1 to 50

+        if DVVerwalten.Exists then

+            i = 51

+        else

+            Sleep 5

+        end if

+    next i

+    if Not DVVerwalten.Exists then

+        Warnlog "Dialog 'Template Management' not up !"

+        Call hCloseDocument

+        goto endsub

+    end if

+    wait 500

+    PrintLog " Select first entry in left list of dialog 'Template Management' (should be 'My Templates')"

+    ListeLinks.Select 1

+    ListeLinks.TypeKeys "<Home>"

+    Sleep 1

+    Befehle.Click

+    wait 500

+    PrintLog " Select 'Commands -> Import Template'"

+    Call hMenuSelectNr(3)

+    Wait 500

+    PrintLog " Close Filedialog."

+    if gUseSysDlg = False then

+        Kontext "OeffnenDlg"

+        if OeffnenDlg.Exists then

+            OeffnenDlg.Cancel

+        else

+            Warnlog "FileOpen dialog not up!"

+        end if

+    end if

+

+    PrintLog " Select 'Commands -> Printer Settings"

+    Kontext "DVVerwalten"

+    Sleep 1

+    Befehle.Click

+    wait 500

+    Call hMenuSelectNr(4)

+

+    PrintLog " Cancel 'Printer-Setup' dialog"

+    Kontext "DruckerEinrichten"

+    if DruckerEinrichten.Exists then

+        DruckerEinrichten.Cancel

+    else

+        Warnlog "Printersettings dialog is not up!"

+    end if

+

+    PrintLog " Select first entry in right list"

+    Kontext "DVVerwalten"

+    ListeRechts.Select 1

+

+    PrintLog " Select pushbutton 'File..'"

+    if WelcheDatei.IsEnabled then

+        WelcheDatei.Click

+        if gUseSysDlg = False then

+            PrintLog " Cancel Filedialog"

+            Kontext "OeffnenDlg"

+            OeffnenDlg.Cancel

+        end if

+    end if

+

+    PrintLog " Select pushbutton 'Address Book'"

+    Kontext "DVVerwalten"

+    AddressBook.Click

+    Kontext "AddressbookSource"

+    PrintLog " Cancel Dialog 'Address Book-Assignment'"

+    if AddressbookSource.Exists then

+        AddressbookSource.Cancel

+    else

+        Warnlog "the Dialog ' Address Book Source' wasnt up!"

+    end if

+

+    PrintLog " Close dialog"

+    Kontext "DVVerwalten"

+    DVVerwalten.Close

+

+    PrintLog " Close active document."

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFileTemplatesAddressbookSource

+

+    PrintLog " Open new document"

+    Call hNewDocument

+

+    PrintLog " File / Templates /Address Book Source..."

+    UseBindings

+    FileTemplatesAddressbookSource

+

+    WaitSlot(2000)

+    PrintLog " In 'Address Book Assignement' dialog click pushbutton 'Administrate'"

+    Kontext "AddressbookSource"

+    if AddressbookSource.Exists then

+        Call DialogTest (AddressbookSource)

+        Administrate.Click

+        Sleep 2

+        PrintLog " Close 'Data Source Administration' with 'Cancel'"

+        Kontext "DatabaseProperties"

+        if Not DatabaseProperties.Exists then

+            Kontext "AddressSourceAutopilot"

+            if AddressSourceAutopilot.Exists then

+                AddressSourceAutopilot.Cancel

+            end if

+            Kontext "AddressbookSource"

+            AddressbookSource.Cancel

+        else

+            PrintLog " DatabaseProperties.SetPage TabConnection"

+            Kontext "TabConnection"

+            Call DialogTest ( TabConnection )

+            Kontext "DatabaseProperties"

+            DatabaseProperties.Close

+            Kontext "AddressbookSource"

+            PrintLog " Close dialog"

+            AddressbookSource.Cancel

+        end if

+    end if

+

+    printlog " Close active document"

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFileTemplatesSave

+    if gApplication = "MASTERDOCUMENT" then

+        qaErrorLog "    tFileTemplatesSave has been disabled in Masterdocument."

+        goto endsub

+    end if

+    printlog "- File / Templates / Save"

+    Call hNewDocument

+    printlog " Open new document"

+    FileTemplatesSave

+    printlog " File / Templates / Save"

+

+    Kontext "DokumentVorlagen"

+    Call DialogTest ( DokumentVorlagen )

+    printlog " On 'Templates' dialog click 'Organizer'"

+

+    Verwalten.Click

+    Kontext "DVVerwalten"

+    DVVerwalten.Close

+    printlog " Close dialog 'Template Management'"

+

+    Kontext "DokumentVorlagen"

+    DokumentVorlagen.Cancel

+    printlog " Close 'Templates' dialog"

+

+    printlog " Close active document"

+    Call hCloseDocument

+    gApplication = "WRITER"

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFileTemplatesEdit

+    printlog "- File / Templates / Edit"

+

+    printlog " Open new document"

+    Call hNewDocument

+    printlog " File / Templates / Edit"

+    FileTemplatesEdit

+

+    if gUseSysDlg = False then

+        printlog " Cancel Filedialog"

+        Kontext "OeffnenDlg"

+        OeffnenDlg.Cancel

+    end if

+

+    printlog " Close active document"

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFilePagePreview

+    PrintLog "- File / Page Preview"

+    Dim gehtnicht as boolean

+    gehtnicht = FALSE

+    printlog " Open new document"

+    Select Case gApplication

+    Case "WRITER"

+        Call hNewDocument

+

+    Case "MASTERDOCUMENT"

+        Call hNewDocument

+

+    Case "HTML"

+        printlog "Not in Writer/Web!"

+        goto endsub

+    end select

+

+    printlog " Enter some text in document"

+    Call wTypeKeys("Just a small change!")

+    printlog " File / Page Preview"

+    FilePageView

+    WaitSlot (1000)

+    Kontext "DocPageViewWriter"

+    if DocPageViewWriter.NotExists then

+        Warnlog "Page Preview is not coming up!"

+        Kontext "Active"

+        if Active.Exists then

+            if Active.GetRT = 304 then

+                Active.No

+            end if

+        end if

+    else

+        if gehtnicht=FALSE then

+            Kontext "PreviewObjectbar"

+            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)

+            printlog " Select 'Zoom 100%' in toolbar"

+            try

+                Massstab.Select 4

+            catch

+                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"

+            endcatch

+

+            printlog " Click 'Print Page Preview' in toolbar"

+            Kontext "PreviewObjectbar"

+            DruckenSeitenansicht.Click

+            Kontext "Active"

+            if Active.Exists then

+                QAErrorlog "No default printer!"

+                Active.ok

+                Sleep 1

+                Kontext "Printing"

+                if Printing.Exists then Printing.Cancel

+            else

+                printlog " Close 'Print' dialog with cancel"

+                Kontext "Printing"

+                Printing.Cancel

+            end if

+

+            printlog " Close Page Preview with button 'Close Preview' in toolbar"

+            Kontext "PreviewObjectbar"

+            SeitenansichtSchliessen.Click

+        else

+            Warnlog "Objectbar not addressable!"

+        end if

+    end if

+    printlog " Close active document"

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tFilePrinterSetup

+    PrintLog " Open new document"

+    Call hNewDocument

+

+    PrintLog " File / Printer Settings"

+    FilePrintersettings

+    Kontext "Active"

+    WaitSlot(1000)

+    if Active.Exists then

+        if Active.GetRT = 304 then

+            QAErrorLog "No Default Printer!"

+            Active.Ok

+            Sleep 2

+            Kontext "DruckerEinrichten"

+            if DruckerEinrichten.Exists then

+                Call DialogTest ( DruckerEinrichten )

+                DruckerEinrichten.Cancel

+            end if

+        end if

+    else

+        Kontext "DruckerEinrichten"

+        Call DialogTest ( DruckerEinrichten )

+        DruckerEinrichten.Cancel

+        PrintLog " Cancel 'Printer Setup' dialog"

+    end if

+    PrintLog " Close active document"

+    Call hCloseDocument

+endcase

+

+'-----------------------------------------------------------

+

+testcase tMasterDocFilePagePreview

+    PrintLog "- File / Page Preview"

+    Dim gehtnicht as boolean

+    gehtnicht = FALSE

+    gApplication   = "MASTERDOCUMENT"

+    printlog " Open new document"

+    Call hNewDocument

+

+    printlog " Enter some text in document"

+    Call wTypeKeys("Just a small change!")

+    printlog " File / Page Preview"

+    FilePageView

+    WaitSlot (1000)

+    Kontext "DocPageViewWriter"

+    if DocPageViewWriter.NotExists then

+        Warnlog "Page Preview is not coming up!"

+        Kontext "Active"

+        if Active.Exists then

+            if Active.GetRT = 304 then

+                Active.No

+            end if

+        end if

+    else

+        if gehtnicht=FALSE then

+            Kontext "PreviewObjectbar"

+            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)

+            printlog " Select 'Zoom 100%' in toolbar"

+            try

+                Massstab.Select 4

+            catch

+                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"

+            endcatch

+

+            printlog " Click 'Print Page Preview' in toolbar"

+            Kontext "PreviewObjectbar"

+            DruckenSeitenansicht.Click

+            Kontext "Active"

+            if Active.Exists then

+                QAErrorlog "No default printer!"

+                Active.ok

+                Sleep 1

+                Kontext "Printing"

+                if Printing.Exists then Printing.Cancel

+            else

+                printlog " Close 'Print' dialog with cancel"

+                Kontext "Printing"

+                Printing.Cancel

+            end if

+

+            printlog " Close Page Preview with button 'Close Preview' in toolbar"

+            Kontext "PreviewObjectbar"

+            SeitenansichtSchliessen.Click

+        else

+            Warnlog "Objectbar not addressable!"

+        end if

+    end if

+

+    printlog " Close active document"

+    Call hCloseDocument

+    gApplication = "WRITER"

+endcase