merge the formfield patch from ooo-build
[ooovba.git] / testautomation / writer / required / includes / w_009_.inc
bloba136724d32ed3977eeb1cfa8c182423b27eee122
1 '**************************************************************************
2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
3 '*
4 '* Copyright 2008 by Sun Microsystems, Inc.
5 '*
6 '* OpenOffice.org - a multi-platform office productivity suite
7 '*
8 '* $RCSfile: w_009_.inc,v $
9 '*
10 '* $Revision: 1.1 $
12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 08:26:31 $
14 '* This file is part of OpenOffice.org.
16 '* OpenOffice.org is free software: you can redistribute it and/or modify
17 '* it under the terms of the GNU Lesser General Public License version 3
18 '* only, as published by the Free Software Foundation.
20 '* OpenOffice.org is distributed in the hope that it will be useful,
21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 '* GNU Lesser General Public License version 3 for more details
24 '* (a copy is included in the LICENSE file that accompanied this code).
26 '* You should have received a copy of the GNU Lesser General Public License
27 '* version 3 along with OpenOffice.org.  If not, see
28 '* <http://www.openoffice.org/license.html>
29 '* for a copy of the LGPLv3 License.
31 '/************************************************************************
32 '*                                                                **
33 '* owner : helge.delfs@sun.com                                    **
34 '*                                                                **
35 '* short description :   Testcases for the Help-Menu
37 '\******************************************************************
39 sub w_009_
41     printLog Chr(13) + "--------- Menu Help (w_009_.inc) ----------"
42     gApplication = "WRITER"
44     Call tHelpTip
45     Call tHelpExtendedTips
46     Call tHelpAboutStarOffice
48 end sub
50 '-----------------------------------------------------------
52 testcase tHelpTip
53     PrintLog "- Help / Tip"
55     printlog " Open new document"
56     Call hNewDocument
57     printlog " Help / Tips"
58     HelpTips
59     WaitSlot (2000)
60     printlog " Help / Tips"
61     HelpTips
62     printlog " Close active document"
63     Call hCloseDocument
64 endcase
66 '-----------------------------------------------------------
68 testcase tHelpExtendedTips
69     PrintLog "- Help / Extended Tips"
71     printlog " Open new document"
72     Call hNewDocument
73     printlog " Help / Extended Help"
74     HelpEntendedHelp
75     WaitSlot (2000)
76     printlog " Help / Extended Help"
77     HelpEntendedHelp
78     printlog " Close active document"
79     Call hCloseDocument
80 endcase
82 '-----------------------------------------------------------
84 testcase tHelpAboutStarOffice
85     PrintLog "- Help / About StarOffice"
87     printlog " Open new document"
88     Call hNewDocument
89     printlog " Help / About"
90     HelpAboutStarOffice
91     Kontext "UeberStarWriter"
92     DialogTest ( UeberStarWriter )
93     printlog " In About dialog enter key <Strg+Alt+Del>"
94     UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
95     Sleep 3
96     printlog " Close About dialog"
97     UeberStarWriter.OK
98     printlog " Close active document"
99     Call hCloseDocument
100 endcase
102 '-----------------------------------------------------------