diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba')
-rw-r--r-- | qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba | 168 |
1 files changed, 168 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba b/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba new file mode 100644 index 000000000000..57afd42d5139 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/awt/XToolkit/awt_XToolkit.xba @@ -0,0 +1,168 @@ +<?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="awt_XToolkit" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.awt.XToolkit +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getDesktopWindow()") + bOK = true + Dim oWindow As Object + oWindow = oObj.getDesktopWindow() + Out.Log("Desktop window is NULL : " & isNULL(oWindow)) + ' Has "OK" status always, because Desktop component + ' currently is not supported as visible. + Test.MethodTested("getDesktopWindow()", bOK) + + Test.StartMethod("getWorkArea()") + bOK = true + Dim oRect As Object + oRect = oObj.getWorkArea() + Out.Log("WorkArea is NULL : " & isNULL(oRect)) + if (NOT isNULL(oRect)) then + Out.Log("Returned rectangle is: (" & oRect.X & ", " & oRect.Y & ", " & oRect.Width & ", " & oRect.Height & ")") + end if + Test.MethodTested("getWorkArea()", bOK) + + Test.StartMethod("createWindow()") + bOK = true + Dim oWndDescr As new com.sun.star.awt.WindowDescriptor + Dim oBounds As new com.sun.star.awt.Rectangle + oWndDescr.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr.WindowServiceName = "" + oWndDescr.ParentIndex = -1 + oBounds.X = 10 : oBounds.Y = 20 + oBounds.Width = 110 : oBounds.Height = 120 + oWndDescr.Bounds = oBounds + with com.sun.star.awt.WindowAttribute + oWndDescr.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + + Dim oWnd As Object + oWnd = oObj.createWindow(oWndDescr) + Out.Log("Window is NULL : " & isNULL(oWnd)) + bOK = bOK AND NOT isNULL(oWnd) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oWnd, "com.sun.star.awt.XWindowPeer") + if (NOT bOK) then Out.Log("Returned object doesn't support XWindowPeer interface.") + end if + Test.MethodTested("createWindow()", bOK) + + Test.StartMethod("createWindows()") + bOK = true + Dim oWndDescrs(1) As Object + Dim oWndDescr1 As new com.sun.star.awt.WindowDescriptor + Dim oBounds1 As new com.sun.star.awt.Rectangle + oWndDescr1.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr1.WindowServiceName = "" + 'oWndDescr1.Parent = 0 + oWndDescr1.ParentIndex = -1 + oBounds1.X = 10 : oBounds1.Y = 20 + oBounds1.Width = 110 : oBounds1.Height = 120 + oWndDescr1.Bounds = oBounds1 + with com.sun.star.awt.WindowAttribute + oWndDescr1.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + Dim oWndDescr2 As new com.sun.star.awt.WindowDescriptor + Dim oBounds2 As new com.sun.star.awt.Rectangle + oWndDescr2.Type = com.sun.star.awt.WindowClass.TOP + oWndDescr2.WindowServiceName = "" + 'oWndDescr2.Parent = 0 + oWndDescr2.ParentIndex = -1 + oBounds2.X = 10 : oBounds2.Y = 20 + oBounds2.Width = 110 : oBounds2.Height = 120 + oWndDescr2.Bounds = oBounds2 + with com.sun.star.awt.WindowAttribute + oWndDescr2.WindowAttributes = .CLOSEABLE AND .MOVEABLE AND .SIZEABLE AND .BORDER AND .SHOW + end with + + oWndDescrs(0) = oWndDescr1 + oWndDescrs(1) = oWndDescr2 + + Dim oWindows As Object + + oWindows = oObj.createWindows(oWndDescrs()) + bOK = bOK AND ubound(oWindows) = 1 + bOK = bOK AND hasUnoInterfaces(oWindows(0), "com.sun.star.awt.XWindowPeer") + bOK = bOK AND hasUnoInterfaces(oWindows(1), "com.sun.star.awt.XWindowPeer") + + Test.MethodTested("createWindows()", bOK) + + Test.StartMethod("createScreenCompatibleDevice()") + bOK = true + Dim oDevice As Object + oDevice = oObj.createScreenCompatibleDevice(123, 456) + Out.Log("Device is NULL : " & isNULL(oDevice)) + bOK = bOK AND NOT isNULL(oDevice) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oDevice, "com.sun.star.awt.XDevice") + if (NOT bOK) then Out.Log("Returned object doesn't support XDevice interface.") + end if + Test.MethodTested("createScreenCompatibleDevice()", bOK) + + Test.StartMethod("createRegion()") + bOK = true + Dim oRegion As Object + oRegion = oObj.createRegion() + Out.Log("Region is NULL : " & isNULL(oRegion)) + bOK = bOK AND NOT isNULL(oRegion) + if (bOK) then + bOK = bOK AND hasUnoInterfaces(oRegion, "com.sun.star.awt.XRegion") + if (NOT bOK) then Out.Log("Returned object doesn't support XRegion interface.") + if (bOK) then + oRect = oRegion.getBounds + Out.Log("Returned region's bounds are: (" & oRect.X & ", " & oRect.Y & ", " & oRect.Width & ", " & oRect.Height & ")") + end if + end if + + Test.MethodTested("createRegion()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> |