INTEGRATION: CWS qadev8 (1.4.2); FILE MERGED

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

qadevOOo/tests/basic/mod/toolkit/AccessibleCheckBox/toolkit_AccessibleCheckBox.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: toolkit_AccessibleCheckBox.xba,v $ 
 '*
-'*  $Revision: 1.4 $ 
+'*  $Revision: 1.5 $ 
 '*
-'*  last change:$Date: 2003-05-27 12:20:25 $ 
+'*  last change:$Date: 2003-06-11 16:31:56 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -74,7 +74,7 @@ option explicit
 ' REQUIRED VARIABLES for interface/service tests:
 Global accText As String
 Global accButton As Object
-
+Global readOnly as Boolean
 
 Sub CreateObj()
 
@@ -100,6 +100,8 @@ On Error Goto ErrHndl
     Out.Log("Implementation name: "+oObj.getImplementationName())
     accButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel")
     accText = oObj.getText()
+    readOnly = true
+    
 Exit Sub
 ErrHndl:
     Test.Exception()