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="svx_AccessibleControlShape" 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' Be sure that all variables are dimensioned: 38option explicit 39 40 41' REQUIRED VARIABLES for interface/service tests: 42Global oShape As Object 43Global accText As String 44Global hasChangeableAttrs As Boolean 45 46 47Sub CreateObj() 48 49'************************************************************************* 50' COMPONENT: 51' svx.AccessibleControlShape 52'************************************************************************* 53On Error Goto ErrHndl 54 Dim bOK As Boolean 55 Dim oWin As Object, xRoot As Object, oDP As Object 56 Dim newSize As New com.sun.star.awt.Size 57 58 oDoc = utils.createDocument("sdraw", cObjectName) 59 oShape = toolkittools.createControlShapeWithDefaultControl("CommandButton") 60 newSize = oShape.getSize() 61 newSize.Width = 2000 62 newSize.Height = 1000 63 oShape.setSize(newSize) 64 oDP = oDoc.getDrawPages().getByIndex(0) 65 oDP.add(oShape) 66 oWin = utils.at_getCurrentWindow(oDoc) 67 xRoot = utils.at_getAccessibleObject(oWin) 68 oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.SHAPE,"PushButton") 69 Out.Log("ImplementationName: "+oObj.getImplementationName()) 70 if hasUNOInterfaces(oObj,"com.sun.star.accessibility.XAccessibleText") then 71 accText = oObj.getText() 72 End If 73 hasChangeableAttrs = true 74 75Exit Sub 76ErrHndl: 77 Test.Exception() 78End Sub 79 80Sub DisposeObj() 81 utils.closeObject(oDoc) 82End Sub 83 84Sub fireEvent() 85 Dim oSize As New com.sun.star.awt.Size 86 oSize = oShape.getSize() 87 oSize.Width = oSize.Width + 100 88 oShape.setSize(oSize) 89End Sub 90</script:module> 91