1 <?xml version="1.0" encoding="UTF-8"?>
2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="toolkit_UnoControlContainer" script:language="StarBasic">
4 
5 
6 '*************************************************************************
7 '
8 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
9 '
10 ' Copyright 2000, 2010 Oracle and/or its affiliates.
11 '
12 ' OpenOffice.org - a multi-platform office productivity suite
13 '
14 ' This file is part of OpenOffice.org.
15 '
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.
19 '
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).
25 '
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.
30 '
31 '*************************************************************************
32 '*************************************************************************
33 
34 
35 
36 ' Be sure that all variables are dimensioned:
37 option explicit
38 
39 
40 ' REQUIRED VARIABLES for interface/service tests:
41 Global oComponentInstance As Object
42 Global oGraphics as Object
43 Global oContext as Object
44 Global oWinpeer as Object
45 Global oToolkit as Object
46 Global oModel as Object
47 
48 Global oXWindow as Object
49 Global oCtrlShape as Object
50 
51 Global oXControl1 as Object
52 Global oXControl2 as Object
53 
54 
55 Sub CreateObj()
56 
57 '*************************************************************************
58 ' COMPONENT:
59 ' toolkit.UnoControlContainer
60 '*************************************************************************
61 On Error Goto ErrHndl
62 
63     Dim bOK As Boolean
64     Dim oShape1 As Object
65     Dim oShape2 As Object
66     Dim oShape3 As Object
67     Dim oCurrCtrl As Object
68     Dim oCurrCtrl2 As Object
69     Dim oWin As Object
70     Dim oKit As Object
71     Dim oDevice As Object
72     Dim oDoc2 As Object
73 
74     bOK = true
75 
76     oDoc = utils.createDocument("swriter", cObjectName)
77     oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
78 
79     oShape1 = createControlShape("CommandButton")
80     oShape2 = createUnoControlShape("CommandButton", "UnoControlButton")
81     oShape3 = createControlShape("TextField")
82 
83     ToolkitTools.addShape(oShape1)
84     ToolkitTools.addShape(oShape2)
85     ToolkitTools.addShape(oShape3)
86 
87     oObj = createUnoService("com.sun.star.awt.UnoControlContainer")
88     oComponentInstance = createUnoService("com.sun.star.awt.UnoControlContainer")
89 
90     oCurrCtrl = oDoc.getCurrentController()
91     oXControl1 = oCurrCtrl.getControl(oShape1.getControl())
92     oXControl2 = oCurrCtrl.getControl(oShape2.getControl())
93 
94     oModel = oShape1.getControl()
95     oObj.setModel(oModel)
96     oWin = oCurrCtrl.getControl(oModel).getPeer()
97     oKit = oWin.getToolkit()
98     oContext = oDoc
99     oWinpeer = oWin
100     oToolkit = oKit
101     oXWindow =  oDoc2.getCurrentController().getFrame().getComponentWindow()
102 Exit Sub
103 ErrHndl:
104     Test.Exception()
105 End Sub
106 
107 Sub DisposeObj()
108     'Re-open this document to close it successfully
109     Dim oDoc2 As Object
110     oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
111     oDoc2.Dispose()
112 End Sub
113 </script:module>
114