merge the formfield patch from ooo-build
[ooovba.git] / testautomation / writer / optional / w_contextmenu.bas
blob8d7aacf27549ecab443165e268f2d813657571cc
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_contextmenu.bas,v $
9 '*
10 '* $Revision: 1.1 $
12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $
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 '/************************************************************************
33 '* owner : helge.delfs@sun.com
35 '* short description : Test of contextmenus in writer
37 '\***********************************************************************
39 sub main
40 Dim StartTime
41 StartTime = Now()
43 use "writer\tools\includes\w_tools.inc"
44 use "writer\tools\includes\w_tool1.inc"
45 use "writer\tools\includes\w_tool3.inc"
46 use "writer\tools\includes\w_tool4.inc"
48 use "writer\optional\includes\contextmenu\w_contextmenu1.inc"
50 printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
51 printlog Chr(13) + "******* Writer - Context menu - Test *******"
53 Call hStatusIn ( "writer", "w_contextmenu.bas","Writer Context menu-Test" )
54 Call w_contextmenu1
55 Call hStatusOut
57 Printlog Chr(13) + "End of Autotext - Test :"
58 Printlog "Duration: "+ WieLange ( StartTime )
59 Printlog "Date: " + Date + " Time: " + Time
61 end sub
63 sub LoadIncludeFiles
64 use "global\system\includes\master.inc"
65 use "global\system\includes\gvariabl.inc"
66 Call GetUseFiles
67 gApplication = "WRITER"
68 end sub