merge the formfield patch from ooo-build
[ooovba.git] / testautomation / graphics / optional / includes / global / id_008.inc
blobef238ee0c8f7aeb67efb422678b9d6f07c4c93c7
1 'encoding UTF-8  Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: id_008.inc,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org.  If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/************************************************************************
34 '* Owner : wolfram.garten@sun.com
36 '* short description :
38 '******************************************************************
39 ' #1 tiWindowNewWindow
40 ' #1 tidWindow123       'wrn:2
41 '\*****************************************************************
43 testcase tiWindowNewWindow
45     Call  hNewDocument
46     Call hRechteckErstellen ( 10, 10, 20, 40 )
47     WindowNewWindow
48     WaitSlot (2000)
49     Call hCloseDocument
50 endcase
52 testcase tidWindow123
53     goto endsub '' testing TBO: 29.03.2002
54     dim iMenues as integer
55     Call  hNewDocument
56     Call hRechteckErstellen ( 10, 10, 20, 40 )
58     Kontext "DocumentImpress"
59     DocumentImpress.UseMenu
60     iMenues = MenuGetItemCount
61     warnlog "---- Number of Main menus: " & iMenues
62     MenuSelect(Menugetitemid(8))
63     sleep 1
64     iMenues = MenuGetItemCount
65     printlog "---- Number of Main menus: " & iMenues
66     '     MenuSelect(Menugetitemid(14))
67     sleep 1
68     i=1
69     printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
70     i=2
71     printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
72     warnlog "Dynamic entries not accessible ? :-((((("
73     '   i=3
74     '   printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
75     Call hCloseDocument
76 endcase