1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="awt_XControl" script:language="StarBasic">
4cdf0e10cSrcweir
5cdf0e10cSrcweir
6cdf0e10cSrcweir'*************************************************************************
7cdf0e10cSrcweir'
8*3e6afcd2SAndrew Rist'  Licensed to the Apache Software Foundation (ASF) under one
9*3e6afcd2SAndrew Rist'  or more contributor license agreements.  See the NOTICE file
10*3e6afcd2SAndrew Rist'  distributed with this work for additional information
11*3e6afcd2SAndrew Rist'  regarding copyright ownership.  The ASF licenses this file
12*3e6afcd2SAndrew Rist'  to you under the Apache License, Version 2.0 (the
13*3e6afcd2SAndrew Rist'  "License"); you may not use this file except in compliance
14*3e6afcd2SAndrew Rist'  with the License.  You may obtain a copy of the License at
15*3e6afcd2SAndrew Rist'
16*3e6afcd2SAndrew Rist'    http://www.apache.org/licenses/LICENSE-2.0
17*3e6afcd2SAndrew Rist'
18*3e6afcd2SAndrew Rist'  Unless required by applicable law or agreed to in writing,
19*3e6afcd2SAndrew Rist'  software distributed under the License is distributed on an
20*3e6afcd2SAndrew Rist'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21*3e6afcd2SAndrew Rist'  KIND, either express or implied.  See the License for the
22*3e6afcd2SAndrew Rist'  specific language governing permissions and limitations
23*3e6afcd2SAndrew Rist'  under the License.
24cdf0e10cSrcweir'
25cdf0e10cSrcweir'*************************************************************************
26cdf0e10cSrcweir
27cdf0e10cSrcweir
28cdf0e10cSrcweir
29*3e6afcd2SAndrew Rist
30*3e6afcd2SAndrew Rist
31cdf0e10cSrcweir' Be sure that all variables are dimensioned:
32cdf0e10cSrcweiroption explicit
33cdf0e10cSrcweir
34cdf0e10cSrcweir'*************************************************************************
35cdf0e10cSrcweir' This Interface/Service test depends on the following GLOBAL variables,
36cdf0e10cSrcweir' which must be specified in the object creation:
37cdf0e10cSrcweir
38cdf0e10cSrcweir'Global oModel As Object
39cdf0e10cSrcweir'Global oContext As Object
40cdf0e10cSrcweir'Global oWinpeer As Object
41cdf0e10cSrcweir'Global oToolkit As Object
42cdf0e10cSrcweir
43cdf0e10cSrcweir'*************************************************************************
44cdf0e10cSrcweir
45cdf0e10cSrcweir
46cdf0e10cSrcweir
47cdf0e10cSrcweir
48cdf0e10cSrcweir
49cdf0e10cSrcweirSub RunTest()
50cdf0e10cSrcweir
51cdf0e10cSrcweir'*************************************************************************
52cdf0e10cSrcweir' INTERFACE:
53cdf0e10cSrcweir' com.sun.star.awt.XControl
54cdf0e10cSrcweir'*************************************************************************
55cdf0e10cSrcweirOn Error Goto ErrHndl
56cdf0e10cSrcweir    Dim bOK As Boolean
57cdf0e10cSrcweir
58cdf0e10cSrcweir    If isNull(oContext) then
59cdf0e10cSrcweir       Out.Log("'oContext' as global variable required!")
60cdf0e10cSrcweir    End If
61cdf0e10cSrcweir    If isNull(oWinpeer) then
62cdf0e10cSrcweir       Out.Log("'oWinper' as global variable required!")
63cdf0e10cSrcweir    End If
64cdf0e10cSrcweir    If isNull(oToolkit) then
65cdf0e10cSrcweir       Out.Log("'oToolkit' as global variable required!")
66cdf0e10cSrcweir    End If
67cdf0e10cSrcweir
68cdf0e10cSrcweir    Test.StartMethod("setContext()")
69cdf0e10cSrcweir    bOK = true
70cdf0e10cSrcweir    oObj.setContext(oContext)
71cdf0e10cSrcweir    Test.MethodTested("setContext()", bOK)
72cdf0e10cSrcweir
73cdf0e10cSrcweir    Test.StartMethod("getContext()")
74cdf0e10cSrcweir    bOK = hasUnoInterfaces(oObj.getContext(), "com.sun.star.uno.XInterface")
75cdf0e10cSrcweir    Test.MethodTested("getContext()", bOK)
76cdf0e10cSrcweir
77cdf0e10cSrcweir    Test.StartMethod("createPeer()")
78cdf0e10cSrcweir    bOK = true
79cdf0e10cSrcweir    oObj.createPeer(oToolkit, oWinpeer)
80cdf0e10cSrcweir    Test.MethodTested("createPeer()", bOK)
81cdf0e10cSrcweir
82cdf0e10cSrcweir    Test.StartMethod("getPeer()")
83cdf0e10cSrcweir    bOK = hasUnoInterfaces(oObj.getPeer(),"com.sun.star.awt.XWindowPeer")
84cdf0e10cSrcweir    Test.MethodTested("getPeer()", bOK)
85cdf0e10cSrcweir
86cdf0e10cSrcweir    Test.StartMethod("setModel()")
87cdf0e10cSrcweir    bOK = true
88cdf0e10cSrcweir    oObj.setModel(oModel)
89cdf0e10cSrcweir    Test.StartMethod("getModel()")
90cdf0e10cSrcweir    bOK = bOK AND hasUnoInterfaces(oObj.getModel(), "com.sun.star.awt.XControlModel")
91cdf0e10cSrcweir    Test.MethodTested("setModel()", bOK)
92cdf0e10cSrcweir    Test.MethodTested("getModel()", bOK)
93cdf0e10cSrcweir
94cdf0e10cSrcweir    Test.StartMethod("getView()")
95cdf0e10cSrcweir    bOK = hasUnoInterfaces(oObj.getView(), "com.sun.star.awt.XView")
96cdf0e10cSrcweir    Test.MethodTested("getView()", bOK)
97cdf0e10cSrcweir
98cdf0e10cSrcweir    Test.StartMethod("setDesignMode()")
99cdf0e10cSrcweir    bOK = true
100cdf0e10cSrcweir    oObj.setDesignMode(true)
101cdf0e10cSrcweir    Test.StartMethod("isDesignMode()")
102cdf0e10cSrcweir    bOk = bOk AND oObj.isDesignMode()
103cdf0e10cSrcweir    oObj.setDesignMode(false)
104cdf0e10cSrcweir    bOk = bOk AND NOT oObj.isDesignMode()
105cdf0e10cSrcweir    Test.MethodTested("setDesignMode()", bOK)
106cdf0e10cSrcweir    Test.MethodTested("isDesignMode()", bOK)
107cdf0e10cSrcweir
108cdf0e10cSrcweir    Test.StartMethod("isTransparent()")
109cdf0e10cSrcweir    bOk = VarType(oObj.isTransparent()) = 11
110cdf0e10cSrcweir    Test.MethodTested("isTransparent()", bOK)
111cdf0e10cSrcweir
112cdf0e10cSrcweirExit Sub
113cdf0e10cSrcweirErrHndl:
114cdf0e10cSrcweir    Test.Exception()
115cdf0e10cSrcweir    bOK = false
116cdf0e10cSrcweir    resume next
117cdf0e10cSrcweirEnd Sub
118cdf0e10cSrcweir</script:module>
119