AOO410/main/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/datatransfer_clipboard_XClipboard.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="datatransfer_clipboard_XClipboard" script:language="StarBasic">


'*************************************************************************
'
'  Licensed to the Apache Software Foundation (ASF) under one
'  or more contributor license agreements.  See the NOTICE file
'  distributed with this work for additional information
'  regarding copyright ownership.  The ASF licenses this file
'  to you under the Apache License, Version 2.0 (the
'  "License"); you may not use this file except in compliance
'  with the License.  You may obtain a copy of the License at
'  
'    http://www.apache.org/licenses/LICENSE-2.0
'  
'  Unless required by applicable law or agreed to in writing,
'  software distributed under the License is distributed on an
'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
'  KIND, either express or implied.  See the License for the
'  specific language governing permissions and limitations
'  under the License.
'
'*************************************************************************





' Be sure that all variables are dimensioned:
option explicit

'*************************************************************************
' This Interface/Service test depends on the following GLOBAL variables,
' which must be specified in the object creation:

'     - Global oOwner As Object
'       Global trans1 As Object
'       Global trans2 As Object

'*************************************************************************







Sub RunTest()

'*************************************************************************
' INTERFACE: 
' com.sun.star.datatransfer.clipboard.XClipboard
'*************************************************************************
On Error Goto ErrHndl
    Dim bOK As Boolean
    Dim transDat1 As Variant, transDat2 As Variant, trans As Variant
    Dim cont As Variant

'    owner = createUnoService("basichelper.ClipboardOwner")

    transDat1 = trans1.getTransferData(NULL_OBJECT)
    transDat2 = trans2.getTransferData(NULL_OBJECT)
    
    Test.StartMethod("setContents()")
    bOK = true
    oObj.setContents(trans1, NULL_OBJECT)
    wait(500)
    
    'Out.Log(owner.hasElements())
    
'    trans = oOwner.getByName("transferable")
'    bOK = bOK AND (trans.getTransferData(NULL_OBJECT) = transDat1)

    Test.StartMethod("getContents()")
    bOK = true
    trans = oObj.getContents()
    
'    msgbox trans.dbg_supportedInterfaces()
    
    bOK = bOK AND (trans.getTransferData(NULL_OBJECT) = transDat1)
    Test.MethodTested("setContents()", bOK)
    Test.MethodTested("getContents()", bOK)

    Test.StartMethod("getName()")
    Dim cbName As String
    
    bOK = true
    cbName = oObj.getName()
    Out.Log("The name of clipboard is '" + cbName + "'")
    Test.MethodTested("getName()", bOK)

Exit Sub
ErrHndl:
    Test.Exception()
    bOK = false
    resume next
End Sub
</script:module>