INTEGRATION: CWS qadev8 (1.1.16); FILE MERGED

2003/06/04 15:31:37 cn 1.1.16.1: #109975# CHG: new accessibility role

qadevOOo/tests/basic/mod/svtools/AccessibleTreeListBox/svtools_AccessibleTreeListBox.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: svtools_AccessibleTreeListBox.xba,v $ 
 '*
-'*  $Revision: 1.1 $ 
+'*  $Revision: 1.2 $ 
 '*
-'*  last change:$Date: 2003-01-27 18:02:31 $ 
+'*  last change:$Date: 2003-06-11 16:29:00 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -105,7 +105,8 @@ On Error Goto ErrHndl
     oWin = createUnoService("com.sun.star.awt.Toolkit").getActiveTopWindow()
 
     xRoot = utils.at_getAccessibleObject(oWin)
-    oObj = utils.at_getAccessibleObjectForRole(xRoot, 53)
+    oObj = utils.at_getAccessibleObjectForRole(xRoot, _
+                                               com.sun.star.accessibility.AccessibleRole.TREE)
     Out.log(oObj.getImplementationName)
 
     multiSelection = false