1<?xml version="1.0" encoding="UTF-8"?> 2<script:module xmlns:script="http://openoffice.org/2000/script" script:name="toolkit_AccessibleStatusBar" script:language="StarBasic"> 3 4'************************************************************************* 5' 6' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 7' 8' Copyright 2000, 2010 Oracle and/or its affiliates. 9' 10' OpenOffice.org - a multi-platform office productivity suite 11' 12' This file is part of OpenOffice.org. 13' 14' OpenOffice.org is free software: you can redistribute it and/or modify 15' it under the terms of the GNU Lesser General Public License version 3 16' only, as published by the Free Software Foundation. 17' 18' OpenOffice.org is distributed in the hope that it will be useful, 19' but WITHOUT ANY WARRANTY; without even the implied warranty of 20' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21' GNU Lesser General Public License version 3 for more details 22' (a copy is included in the LICENSE file that accompanied this code). 23' 24' You should have received a copy of the GNU Lesser General Public License 25' version 3 along with OpenOffice.org. If not, see 26' <http://www.openoffice.org/license.html> 27' for a copy of the LGPLv3 License. 28' 29'************************************************************************* 30'************************************************************************* 31 32' Be sure that all variables are dimensioned: 33option explicit 34 35 36' REQUIRED VARIABLES for interface/service tests: 37Global oWin As Object 38 39 40Sub CreateObj() 41 42'************************************************************************* 43' COMPONENT: 44' com.sun.star.toolkit.AccessibleStatusBar 45'************************************************************************* 46On Error Goto ErrHndl 47 48 oDoc = utils.createDocument("swriter", cObjectName) 49 50 Dim xController As Object 51 xController = oDoc.getCurrentController() 52 53 Dim xRoot As Object 54 oWin = utils.at_getCurrentWindow(oDoc) 55 xRoot = utils.at_getAccessibleObject(oWin) 56 oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.STATUS_BAR) 57 58Exit Sub 59ErrHndl: 60 Test.Exception() 61End Sub 62 63Sub fireEvent() 64 Dim newPosSize as Variant 65 newPosSize = oWin.getPosSize() 66 newPosSize.Width = newPosSize.Width - 20 67 newPosSize.Height = newPosSize.Height - 20 68 newPosSize.X = newPosSize.X + 20 69 newPosSize.Y = newPosSize.Y + 20 70 oWin.setPosSize(newPosSize.X, newPosSize.Y, newPosSize.Width, _ 71 newPosSize.Height, com.sun.star.awt.PosSize.POSSIZE) 72End Sub 73</script:module> 74