INTEGRATION: CWS qadev8 (1.4.2); FILE MERGED

2003/06/04 14:03:59 cn 1.4.2.1: #109975# CHG: new accessibility role

qadevOOo/tests/basic/mod/toolkit/AccessibleButton/toolkit_AccessibleButton.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: toolkit_AccessibleButton.xba,v $ 
 '*
-'*  $Revision: 1.4 $ 
+'*  $Revision: 1.5 $ 
 '*
-'*  last change:$Date: 2003-05-27 12:20:14 $ 
+'*  last change:$Date: 2003-06-11 16:31:46 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -75,6 +75,7 @@ option explicit
 
 Global accText As String
 Global accButton As Object
+Global readOnly as Boolean
 
 
 Sub CreateObj()
@@ -100,6 +101,7 @@ On Error Goto ErrHndl
     oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"OK")
     accButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel")
     accText = oObj.getText()
+    readOnly = true
 
 Exit Sub
 ErrHndl: