diff options
Diffstat (limited to 'qadevOOo/tests/basic/mod/svtools')
22 files changed, 0 insertions, 1048 deletions
diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/script.xlb deleted file mode 100644 index 8d44d126a214..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleBrowseBox" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleBrowseBox"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/svtools_AccessibleBrowseBox.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/svtools_AccessibleBrowseBox.xba deleted file mode 100644 index 61f454848be9..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBox/svtools_AccessibleBrowseBox.xba +++ /dev/null @@ -1,115 +0,0 @@ -<?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="svtools_AccessibleBrowseBox" 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 - - -' REQUIRED VARIABLES for interface/service tests: -Global controller As Object - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleBrowseBox -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PANEL) - Out.log(oObj.getImplementationName) - - Dim frame1 As Object, frame2 As Object - frame1 = StarDesktop.getCurrentFrame() - frame2 = frame1.findFrame("_beamer", 4) - frame2.setName("DatasourceBrowser") - controller = frame2.getController() - -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub DisposeObj() - utils.closeObject(oDoc) -End Sub - -Sub fireEvent() - Out.log("fireEvent() called") - - Dim dbContext As Object - dbContext = createUnoService("com.sun.star.sdb.DatabaseContext") - if (dbContext.hasByName("Bibliography")) then - dbContext.revokeObject("Bibliography") - endif - - Dim dbSource As Object - dbSource = createUnoService("com.sun.star.sdb.DataSource") - dbSource.URL = "sdbc:dbase:" + utils.Path2URL("file:///" + utils.getUserPath + "/database/biblio") - dbContext.registerObject("Bibliography", dbSource) - - Dim params(2) As new com.sun.star.beans.PropertyValue - params(0).Name = "DataSourceName" - params(0).Value = "Bibliography" - params(1).Name = "CommandType" - params(1).Value = com.sun.star.sdb.CommandType.TABLE - params(2).Name = "Command" - params(2).Value = "biblio" - - controller.initialize(params()) - wait(2000) -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/script.xlb deleted file mode 100644 index cf9be87447ca..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleBrowseBoxHeaderBar" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleBrowseBoxHeaderBar"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/svtools_AccessibleBrowseBoxHeaderBar.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/svtools_AccessibleBrowseBoxHeaderBar.xba deleted file mode 100644 index 77023c3fc39b..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderBar/svtools_AccessibleBrowseBoxHeaderBar.xba +++ /dev/null @@ -1,85 +0,0 @@ -<?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="svtools_AccessibleBrowseBoxHeaderBar" 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 CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleBrowseBoxHeaderBar -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.TABLE) - Out.log(oObj.getImplementationName) -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub DisposeObj() - utils.closeObject(oDoc) -End Sub - -Sub fireEvent() - -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/script.xlb deleted file mode 100644 index 9aaf5383f8bc..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleBrowseBoxHeaderCell" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleBrowseBoxHeaderCell"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/svtools_AccessibleBrowseBoxHeaderCell.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/svtools_AccessibleBrowseBoxHeaderCell.xba deleted file mode 100644 index 666fad6474f7..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxHeaderCell/svtools_AccessibleBrowseBoxHeaderCell.xba +++ /dev/null @@ -1,98 +0,0 @@ -<?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="svtools_AccessibleBrowseBoxHeaderCell" 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 CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleBrowseBoxHeaderCell -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - Dim frame1 As Object, frame2 As Object - Dim controller As Object - frame1 = StarDesktop.getCurrentFrame() - frame2 = frame1.findFrame("_beamer", 4) - frame2.setName("DatasourceBrowser") - controller = frame2.getController() - - Dim params(2) As new com.sun.star.beans.PropertyValue - params(0).Name = "DataSourceName" - params(0).Value = "Bibliography" - params(1).Name = "CommandType" - params(1).Value = com.sun.star.sdb.CommandType.TABLE - params(2).Name = "Command" - params(2).Value = "biblio" - controller.initialize(params()) - wait(2000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.COLUMN_HEADER, "Identifier") - Out.log(oObj.getImplementationName) -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() - -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/script.xlb deleted file mode 100644 index 3a2e4b97b676..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleBrowseBoxTable" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleBrowseBoxTable"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/svtools_AccessibleBrowseBoxTable.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/svtools_AccessibleBrowseBoxTable.xba deleted file mode 100644 index b7a726de892f..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTable/svtools_AccessibleBrowseBoxTable.xba +++ /dev/null @@ -1,81 +0,0 @@ -<?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="svtools_AccessibleBrowseBoxTable" 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 CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleBrowseBoxTable -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.TABLE, "Table") - Out.log(oObj.getImplementationName) -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() - -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/script.xlb deleted file mode 100644 index 15e06f1da551..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleBrowseBoxTableCell" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleBrowseBoxTableCell"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/svtools_AccessibleBrowseBoxTableCell.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/svtools_AccessibleBrowseBoxTableCell.xba deleted file mode 100644 index e6f8b5df1e9e..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleBrowseBoxTableCell/svtools_AccessibleBrowseBoxTableCell.xba +++ /dev/null @@ -1,98 +0,0 @@ -<?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="svtools_AccessibleBrowseBoxTableCell" 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 CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleBrowseBoxTableCell -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - Dim frame1 As Object, frame2 As Object - Dim controller As Object - frame1 = StarDesktop.getCurrentFrame() - frame2 = frame1.findFrame("_beamer", 4) - frame2.setName("DatasourceBrowser") - controller = frame2.getController() - - Dim params(2) As new com.sun.star.beans.PropertyValue - params(0).Name = "DataSourceName" - params(0).Value = "Bibliography" - params(1).Name = "CommandType" - params(1).Value = com.sun.star.sdb.CommandType.TABLE - params(2).Name = "Command" - params(2).Value = "biblio" - controller.initialize(params()) - wait(2000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.TABLE_CELL) - Out.log(oObj.getImplementationName) -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() - -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/script.xlb deleted file mode 100644 index 84bb1302f21b..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleIconChoiceCtrl" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleIconChoiceCtrl"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/svtools_AccessibleIconChoiceCtrl.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/svtools_AccessibleIconChoiceCtrl.xba deleted file mode 100644 index 882d9bc2e6f3..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrl/svtools_AccessibleIconChoiceCtrl.xba +++ /dev/null @@ -1,98 +0,0 @@ -<?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="svtools_AccessibleIconChoiceCtrl" 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 - - -' REQUIRED VARIABLES for interface/service tests: -Global closeButton As Object -Global multiSelection As Boolean - - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleIconChoiceCtrl -'************************************************************************* -On Error Goto ErrHndl - Dim oWin As Object, xRoot As Object - Dim xController As Object, xDispatcher As Object - Dim tk As Object, urlTransformer As Object - Dim aUrl As new com.sun.star.util.URL - - oDoc = utils.createDocument("swriter", cObjectName) - tk = createUnoService("com.sun.star.awt.Toolkit") - wait(500) - - 'opening Hyperlink Dialog - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - aUrl.Complete = ".uno:HyperlinkDialog" - urlTransformer.parseStrict(aUrl) - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "", 0) - if NOT isNull(xDispatcher) then - xDispatcher.dispatch(aUrl, DimArray()) - wait(1000) - oWin = tk.getActiveTopWindow() - xRoot = utils.at_getAccessibleObject(oWin) - closeButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON, "Close") - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.TREE) - Out.Log("Implementation Name: "+oObj.getImplementationName()) - multiSelection = false - else - Out.Log("Error! Cannot open Hyperlink dialog.") - End If - -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub DisposeObj() - if NOT isNull(closeButton) then - closeButton.doAccessibleAction(0) - wait(1000) - End If - utils.closeObject(oDoc) -End Sub - -Sub fireEvent() - oObj.selectAccessibleChild(1) - oObj.selectAccessibleChild(0) -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/script.xlb deleted file mode 100644 index 6f46292399bd..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleIconChoiceCtrlEntry" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleIconChoiceCtrlEntry"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/svtools_AccessibleIconChoiceCtrlEntry.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/svtools_AccessibleIconChoiceCtrlEntry.xba deleted file mode 100644 index 2833c8b1726f..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleIconChoiceCtrlEntry/svtools_AccessibleIconChoiceCtrlEntry.xba +++ /dev/null @@ -1,97 +0,0 @@ -<?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="svtools_AccessibleIconChoiceCtrlEntry" 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 - - -' REQUIRED VARIABLES for interface/service tests: -Global closeButton As Object - -'Required for ifc.accessibility.XAccessibleText -Global accText As String -Global readOnly as Boolean - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleIconChoiceCtrlEntry -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".uno:HyperlinkDialog" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "", 0) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot,_ - com.sun.star.accessibility.AccessibleRole.LABEL, "Internet") - Out.log(oObj.getImplementationName) - - closeButton = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON, "Close") - accText = "Internet" - readOnly = true -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub DisposeObj() - closeButton.soAccessibleAction(0) - utils.closeObject(oDoc) -End Sub - -Sub fireEvent() - -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/script.xlb deleted file mode 100644 index 4a0245810089..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleTabBarPage" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleTabBarPage"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/svtools_AccessibleTabBarPage.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/svtools_AccessibleTabBarPage.xba deleted file mode 100644 index 31b998a5396d..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPage/svtools_AccessibleTabBarPage.xba +++ /dev/null @@ -1,66 +0,0 @@ -<?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="svtools_AccessibleTabBarPage" 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 CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleTabBarPage -'************************************************************************* -On Error Goto ErrHndl - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("sdraw", cObjectName) - - oWin = utils.at_getCurrentWindow(oDoc) - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.PAGE_TAB) - - Out.log(oObj.getImplementationName) -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/script.xlb deleted file mode 100644 index 0a8715db28c7..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleTabBarPageList" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleTabBarPageList"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/svtools_AccessibleTabBarPageList.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/svtools_AccessibleTabBarPageList.xba deleted file mode 100644 index add0261e7567..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTabBarPageList/svtools_AccessibleTabBarPageList.xba +++ /dev/null @@ -1,75 +0,0 @@ -<?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="svtools_AccessibleTabBarPageList" 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 - - -' REQUIRED VARIABLES for interface/service tests: - -' Required for XAccessibleSelection -Global multiSelection As Boolean - - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleTabBarPageList -'************************************************************************* -On Error Goto ErrHndl - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("sdraw", cObjectName) - - oWin = utils.at_getCurrentWindow(oDoc) - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PAGE_TAB_LIST) - Out.log(oObj.getImplementationName) - - multiSelection = false -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() - Dim oPage As Object - oPage = oDoc.getDrawPages().getByIndex(0) - oPage.Name = "New name" - oPage.Name = "Slide 1" -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/script.xlb deleted file mode 100644 index 8e33c86bf389..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleTreeListBox" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleTreeListBox"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/svtools_AccessibleTreeListBox.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/svtools_AccessibleTreeListBox.xba deleted file mode 100644 index 28ae95af7f0a..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/svtools_AccessibleTreeListBox.xba +++ /dev/null @@ -1,87 +0,0 @@ -<?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="svtools_AccessibleTreeListBox" 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 - - -' REQUIRED VARIABLES for interface/service tests: -' Required for XAccessibleSelection -Global multiSelection As Boolean - - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleTreeListBox -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.TREE) - Out.log(oObj.getImplementationName) - - multiSelection = false -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() - oObj.grabFocus() -End Sub -</script:module> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/script.xlb b/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/script.xlb deleted file mode 100644 index 962db06a0175..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="svtools_AccessibleTreeListBoxEntry" library:readonly="false" library:passwordprotected="false"> -"<library:element library:name="svtools_AccessibleTreeListBoxEntry"/> -"</library:library> diff --git a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/svtools_AccessibleTreeListBoxEntry.xba b/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/svtools_AccessibleTreeListBoxEntry.xba deleted file mode 100644 index 7f493975bbc2..000000000000 --- a/qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBoxEntry/svtools_AccessibleTreeListBoxEntry.xba +++ /dev/null @@ -1,93 +0,0 @@ -<?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="svtools_AccessibleTreeListBoxEntry" 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 - - -' REQUIRED VARIABLES for interface/service tests: - -' Required for XAccessibleSelection -Global multiSelection As Boolean - -' Required for XAccessibleText -Global accText As String -Global readOnly as Boolean - -Sub CreateObj() - -'************************************************************************* -' COMPONENT: -' svtools.AccessibleTreeListBoxEntry -'************************************************************************* -On Error Goto ErrHndl - Dim bOK As Boolean - Dim oWin As Object, xRoot As Object - Dim xController As Object - - oDoc = utils.createDocument("swriter", cObjectName) - - 'opening DatasourceBrowser - Dim urlTransformer As Object - urlTransformer = createUNOService("com.sun.star.util.URLTransformer") - Dim aUrl As new com.sun.star.util.URL - aUrl.Complete = ".component:DB/DataSourceBrowser" - urlTransformer.parseStrict(aUrl) - Dim xDispatcher As Object - xController = oDoc.getCurrentController() - xDispatcher = xController.queryDispatch(aUrl, "_beamer", 12) - Dim no_args() - xDispatcher.dispatch(aUrl, no_args) - wait(1000) - - oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow() - - xRoot = utils.at_getAccessibleObject(oWin) - oObj = utils.at_getAccessibleObjectForRole(xRoot, _ - com.sun.star.accessibility.AccessibleRole.LABEL , "Bibliography") - Out.log(oObj.getImplementationName) - - multiSelection = false - accText = "Bibliography" - readOnly = true - -Exit Sub -ErrHndl: - Test.Exception() -End Sub - -Sub fireEvent() -End Sub -</script:module> |