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_UnoControlGroupBox" 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
32 *b1cdbd2cSJim Jagielski' REQUIRED VARIABLES for interface/service tests:
33 *b1cdbd2cSJim JagielskiGlobal oComponentInstance As Object
34 *b1cdbd2cSJim JagielskiGlobal oGraphics As Object
35 *b1cdbd2cSJim JagielskiGlobal oContext As Object
36 *b1cdbd2cSJim JagielskiGlobal oWinpeer As Object
37 *b1cdbd2cSJim JagielskiGlobal oToolkit As Object
38 *b1cdbd2cSJim JagielskiGlobal oModel As Object
39 *b1cdbd2cSJim Jagielski  Global oXWindow As Object
40 *b1cdbd2cSJim Jagielski  Global oCtrlShape as Object
41 *b1cdbd2cSJim Jagielski
42 *b1cdbd2cSJim JagielskiSub CreateObj()
43 *b1cdbd2cSJim Jagielski
44 *b1cdbd2cSJim Jagielski'*************************************************************************
45 *b1cdbd2cSJim Jagielski' COMPONENT:
46 *b1cdbd2cSJim Jagielski' toolkit.UnoControlGroupBox
47 *b1cdbd2cSJim Jagielski'*************************************************************************
48 *b1cdbd2cSJim JagielskiOn Error Goto ErrHndl
49 *b1cdbd2cSJim Jagielski
50 *b1cdbd2cSJim Jagielski    Dim bOK As Boolean
51 *b1cdbd2cSJim Jagielski    Dim oShape1 As Object
52 *b1cdbd2cSJim Jagielski    Dim oShape2 As Object
53 *b1cdbd2cSJim Jagielski    Dim oShape3 As Object
54 *b1cdbd2cSJim Jagielski    Dim oCurrCtrl As Object
55 *b1cdbd2cSJim Jagielski    Dim oWin As Object
56 *b1cdbd2cSJim Jagielski    Dim oKit As Object
57 *b1cdbd2cSJim Jagielski    Dim oDevice As Object
58 *b1cdbd2cSJim Jagielski    Dim oDoc2 As Object
59 *b1cdbd2cSJim Jagielski
60 *b1cdbd2cSJim Jagielski    bOK = true
61 *b1cdbd2cSJim Jagielski
62 *b1cdbd2cSJim Jagielski    oDoc = utils.createDocument("swriter", cObjectName)
63 *b1cdbd2cSJim Jagielski    oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
64 *b1cdbd2cSJim Jagielski
65 *b1cdbd2cSJim Jagielski    oShape1 = createUnoControlShape("GroupBox", "UnoControlGroupBox")
66 *b1cdbd2cSJim Jagielski    oShape2 = createUnoControlShape("GroupBox", "UnoControlGroupBox")
67 *b1cdbd2cSJim Jagielski    oShape3 = createControlShape("TextField")
68 *b1cdbd2cSJim Jagielski
69 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape1)
70 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape2)
71 *b1cdbd2cSJim Jagielski    ToolkitTools.addShape(oShape3)
72 *b1cdbd2cSJim Jagielski
73 *b1cdbd2cSJim Jagielski    oModel = oShape1.getControl()
74 *b1cdbd2cSJim Jagielski    oCurrCtrl = oDoc.getCurrentController()
75 *b1cdbd2cSJim Jagielski    oWin = oCurrCtrl.getControl(oModel).getPeer()
76 *b1cdbd2cSJim Jagielski    oKit = oWin.getToolkit()
77 *b1cdbd2cSJim Jagielski    oDevice = oKit.createScreenCompatibleDevice(200,200)
78 *b1cdbd2cSJim Jagielski    oGraphics = oDevice.createGraphics()
79 *b1cdbd2cSJim Jagielski
80 *b1cdbd2cSJim Jagielski    oObj = oCurrCtrl.getControl(oModel)
81 *b1cdbd2cSJim Jagielski    oComponentInstance = oDoc.getCurrentcontroller.getControl(oShape2.getControl())
82 *b1cdbd2cSJim Jagielski    oContext = oDoc
83 *b1cdbd2cSJim Jagielski    oWinpeer = oWin
84 *b1cdbd2cSJim Jagielski    oToolkit = oKit
85 *b1cdbd2cSJim Jagielski    oXWindow =  oDoc2.getCurrentController().getFrame().getComponentWindow()
86 *b1cdbd2cSJim JagielskiExit Sub
87 *b1cdbd2cSJim JagielskiErrHndl:
88 *b1cdbd2cSJim Jagielski    Test.Exception()
89 *b1cdbd2cSJim JagielskiEnd Sub
90 *b1cdbd2cSJim Jagielski
91 *b1cdbd2cSJim JagielskiSub DisposeObj()
92 *b1cdbd2cSJim Jagielski    'Re-open this document to close it successfully
93 *b1cdbd2cSJim Jagielski    Dim oDoc2 As Object
94 *b1cdbd2cSJim Jagielski    oDoc2 = utils.createDocument("swriter", cObjectName &amp; "1")
95 *b1cdbd2cSJim Jagielski    oDoc2.Dispose()
96 *b1cdbd2cSJim JagielskiEnd Sub
97 *b1cdbd2cSJim Jagielski</script:module>
98