1 *b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?>
2 *b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3 *b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="toolkit_UnoControlComboBox" script:language="StarBasic">
4 *b1cdbd2cSJim Jagielski
5 *b1cdbd2cSJim Jagielski
6 *b1cdbd2cSJim Jagielski'*************************************************************************
7 *b1cdbd2cSJim Jagielski'
8 *b1cdbd2cSJim Jagielski'  Licensed to the Apache Software Foundation (ASF) under one
9 *b1cdbd2cSJim Jagielski'  or more contributor license agreements.  See the NOTICE file
10 *b1cdbd2cSJim Jagielski'  distributed with this work for additional information
11 *b1cdbd2cSJim Jagielski'  regarding copyright ownership.  The ASF licenses this file
12 *b1cdbd2cSJim Jagielski'  to you under the Apache License, Version 2.0 (the
13 *b1cdbd2cSJim Jagielski'  "License"); you may not use this file except in compliance
14 *b1cdbd2cSJim Jagielski'  with the License.  You may obtain a copy of the License at
15 *b1cdbd2cSJim Jagielski'
16 *b1cdbd2cSJim Jagielski'    http://www.apache.org/licenses/LICENSE-2.0
17 *b1cdbd2cSJim Jagielski'
18 *b1cdbd2cSJim Jagielski'  Unless required by applicable law or agreed to in writing,
19 *b1cdbd2cSJim Jagielski'  software distributed under the License is distributed on an
20 *b1cdbd2cSJim Jagielski'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21 *b1cdbd2cSJim Jagielski'  KIND, either express or implied.  See the License for the
22 *b1cdbd2cSJim Jagielski'  specific language governing permissions and limitations
23 *b1cdbd2cSJim Jagielski'  under the License.
24 *b1cdbd2cSJim Jagielski'
25 *b1cdbd2cSJim Jagielski'*************************************************************************
26 *b1cdbd2cSJim Jagielski
27 *b1cdbd2cSJim Jagielski
28 *b1cdbd2cSJim Jagielski
29 *b1cdbd2cSJim Jagielski
30 *b1cdbd2cSJim Jagielski
31 *b1cdbd2cSJim Jagielski' Be sure that all variables are dimensioned:
32 *b1cdbd2cSJim Jagielskioption explicit
33 *b1cdbd2cSJim Jagielski
34 *b1cdbd2cSJim Jagielski
35 *b1cdbd2cSJim Jagielski' REQUIRED VARIABLES for interface/service tests:
36 *b1cdbd2cSJim JagielskiGlobal oComponentInstance As Object
37 *b1cdbd2cSJim JagielskiGlobal oGraphics as Object
38 *b1cdbd2cSJim JagielskiGlobal oContext as Object
39 *b1cdbd2cSJim JagielskiGlobal oWinpeer as Object
40 *b1cdbd2cSJim JagielskiGlobal oToolkit as Object
41 *b1cdbd2cSJim JagielskiGlobal oModel as Object
42 *b1cdbd2cSJim Jagielski
43 *b1cdbd2cSJim JagielskiGlobal oXWindow as Object
44 *b1cdbd2cSJim JagielskiGlobal oCtrlShape as Object
45 *b1cdbd2cSJim Jagielski
46 *b1cdbd2cSJim Jagielski
47 *b1cdbd2cSJim JagielskiSub CreateObj()
48 *b1cdbd2cSJim Jagielski
49 *b1cdbd2cSJim Jagielski'*************************************************************************
50 *b1cdbd2cSJim Jagielski' COMPONENT:
51 *b1cdbd2cSJim Jagielski' toolkit.UnoControlComboBox
52 *b1cdbd2cSJim Jagielski'*************************************************************************
53 *b1cdbd2cSJim JagielskiOn Error Goto ErrHndl
54 *b1cdbd2cSJim Jagielski    Dim oShape1 As Object
55 *b1cdbd2cSJim Jagielski    Dim oShape2 As Object
56 *b1cdbd2cSJim Jagielski    Dim oShape3 As Object
57 *b1cdbd2cSJim Jagielski    Dim oCurrCtrl As Object
58 *b1cdbd2cSJim Jagielski    Dim oWin As Object
59 *b1cdbd2cSJim Jagielski    Dim oKit As Object
60 *b1cdbd2cSJim Jagielski    Dim oDevice As Object
61 *b1cdbd2cSJim Jagielski    Dim oDoc2 As Object
62 *b1cdbd2cSJim Jagielski
63 *b1cdbd2cSJim Jagielski    oDoc = utils.createDocument("swriter", cObjectName)
64 *b1cdbd2cSJim Jagielski    oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
65 *b1cdbd2cSJim Jagielski
66 *b1cdbd2cSJim Jagielski    oShape1 = createUnoControlShape("ComboBox", "UnoControlComboBox")
67 *b1cdbd2cSJim Jagielski    oShape2 = createUnoControlShape("ComboBox", "UnoControlComboBox")
68 *b1cdbd2cSJim Jagielski    oShape3 = createControlShape("TextField")
69 *b1cdbd2cSJim Jagielski
70 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape1)
71 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape2)
72 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape3)
73 *b1cdbd2cSJim Jagielski
74 *b1cdbd2cSJim Jagielski    oModel = oShape1.getControl()
75 *b1cdbd2cSJim Jagielski    oCurrCtrl = oDoc.getCurrentController()
76 *b1cdbd2cSJim Jagielski    oWin = oCurrCtrl.getControl(oModel).getPeer()
77 *b1cdbd2cSJim Jagielski    oKit = oWin.getToolkit()
78 *b1cdbd2cSJim Jagielski    oDevice = oKit.createScreenCompatibleDevice(200,200)
79 *b1cdbd2cSJim Jagielski    oGraphics = oDevice.createGraphics()
80 *b1cdbd2cSJim Jagielski
81 *b1cdbd2cSJim Jagielski    oObj = oCurrCtrl.getControl(oModel)
82 *b1cdbd2cSJim Jagielski    oComponentInstance = oDoc.getCurrentcontroller.getControl(oShape2.getControl())
83 *b1cdbd2cSJim Jagielski    oContext = oDoc
84 *b1cdbd2cSJim Jagielski    oWinpeer = oWin
85 *b1cdbd2cSJim Jagielski    oToolkit = oKit
86 *b1cdbd2cSJim Jagielski    oXWindow =  oDoc2.getCurrentController().getFrame().getComponentWindow()
87 *b1cdbd2cSJim JagielskiExit Sub
88 *b1cdbd2cSJim JagielskiErrHndl:
89 *b1cdbd2cSJim Jagielski    Test.Exception()
90 *b1cdbd2cSJim JagielskiEnd Sub
91 *b1cdbd2cSJim Jagielski
92 *b1cdbd2cSJim JagielskiSub DisposeObj()
93 *b1cdbd2cSJim Jagielski    'Re-open this document to close it successfully
94 *b1cdbd2cSJim Jagielski    Dim oDoc2 As Object
95 *b1cdbd2cSJim Jagielski    oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
96 *b1cdbd2cSJim Jagielski    oDoc2.Dispose()
97 *b1cdbd2cSJim JagielskiEnd Sub
98 *b1cdbd2cSJim Jagielski</script:module>
99