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="awt_XDataTransferProviderAccess" 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
37
38
39Sub RunTest()
40
41'*************************************************************************
42' INTERFACE:
43' com.sun.star.awt.XDataTransferProviderAccess
44'*************************************************************************
45On Error Goto ErrHndl
46    Dim bOK As Boolean
47
48    ' Here create a window for testing getDragGestureRecognizer(), getDragSource(), getDropTarget() methods
49    Dim oWndDescr As new com.sun.star.awt.WindowDescriptor
50    Dim oBounds As new com.sun.star.awt.Rectangle
51    oWndDescr.Type = com.sun.star.awt.WindowClass.TOP
52    oWndDescr.WindowServiceName = ""
53    oWndDescr.ParentIndex = -1
54    oBounds.X = 10 : oBounds.Y = 20
55    oBounds.Width = 110 : oBounds.Height = 120
56    oWndDescr.Bounds = oBounds
57    with com.sun.star.awt.WindowAttribute
58        oWndDescr.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW
59    end with
60
61    Dim oWnd As Object
62    oWnd = oObj.createWindow(oWndDescr)
63
64    Test.StartMethod("getDragGestureRecognizer()")
65    bOK = true
66    Dim oRecognizer As Object
67    oRecognizer = oObj.getDragGestureRecognizer(oWnd)
68    Out.Log("Recognizer is NULL : " &amp; isNULL(oRecognizer))
69    bOK = bOK AND NOT isNULL(oRecognizer)
70    if (bOK) then
71        bOK = bOK AND hasUnoInterfaces(oRecognizer, "com.sun.star.datatransfer.dnd.XDragGestureRecognizer")
72        if (NOT bOK) then Out.Log("Returned object doesn't support XDragGestureRecognizer interface.")
73    end if
74    Test.MethodTested("getDragGestureRecognizer()", bOK)
75
76    Test.StartMethod("getDragSource()")
77    bOK = true
78    Dim oDragSource As Object
79    oDragSource = oObj.getDragSource(oWnd)
80    Out.Log("DragSource is NULL : " &amp; isNULL(oDragSource))
81    bOK = bOK AND NOT isNULL(oDragSource)
82    if (bOK) then
83        bOK = bOK AND hasUnoInterfaces(oDragSource, "com.sun.star.datatransfer.dnd.XDragSource")
84        if (NOT bOK) then Out.Log("Returned object doesn't support XDragSource interface.")
85    end if
86    Test.MethodTested("getDragSource()", bOK)
87
88    Test.StartMethod("getDropTarget()")
89    bOK = true
90    Dim oDropTarget As Object
91    oDropTarget = oObj.getDropTarget(oWnd)
92    Out.Log("DropTarget is NULL : " &amp; isNULL(oDropTarget))
93    bOK = bOK AND NOT isNULL(oDropTarget)
94    if (bOK) then
95        bOK = bOK AND hasUnoInterfaces(oDropTarget, "com.sun.star.datatransfer.dnd.XDropTarget")
96        if (NOT bOK) then Out.Log("Returned object doesn't support XDropTarget interface.")
97    end if
98     Test.MethodTested("getDropTarget()", bOK)
99
100    Test.StartMethod("getClipboard()")
101    bOK = true
102    Dim oClipboard As Object
103    oClipboard = oObj.getClipboard("")
104    Out.Log("Clipboard is NULL : " &amp; isNULL(oClipboard))
105    bOK = bOK AND NOT isNULL(oClipboard)
106    if (bOK) then
107        bOK = bOK AND hasUnoInterfaces(oClipboard, "com.sun.star.datatransfer.clipboard.XClipboard")
108        if (NOT bOK) then Out.Log("Returned object doesn't support XClipboard interface.")
109    end if
110    Test.MethodTested("getClipboard()", bOK)
111
112Exit Sub
113ErrHndl:
114    Test.Exception()
115    bOK = false
116    resume next
117End Sub
118</script:module>
119