INTEGRATION: CWS qadev8 (1.2.2); FILE MERGED

2003/06/05 10:26:13 cn 1.2.2.2: #109975# CHG: new accessibility role
2003/06/04 14:03:29 cn 1.2.2.1: #109975# CHG: new accessibility role

qadevOOo/tests/basic/mod/sc/ScAccessibleCsvRuler/sc_ScAccessibleCsvRuler.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: sc_ScAccessibleCsvRuler.xba,v $ 
 '*
-'*  $Revision: 1.2 $ 
+'*  $Revision: 1.3 $ 
 '*
-'*  last change:$Date: 2003-05-27 12:10:13 $ 
+'*  last change:$Date: 2003-06-11 16:27:37 $ 
 '*
 '*  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 accButton As Object
 Global accText As String
-
+Global readOnly as Boolean
 
 Sub CreateObj()
 
@@ -94,14 +94,18 @@ On Error Goto ErrHndl
     wait(1000)
     oWin = tk.getActiveTopWindow()
     xRoot = utils.at_getAccessibleObject(oWin)
-    accButton = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel")
-    accRB = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.RADIO_BUTTON,"Fixed")
+    accButton = utils.at_getAccessibleObjectForRole(xRoot,_
+                 com.sun.star.accessibility.AccessibleRole.PUSH_BUTTON,"Cancel")
+    accRB = utils.at_getAccessibleObjectForRole(xRoot,_
+                 com.sun.star.accessibility.AccessibleRole.RADIO_BUTTON,"Fixed")
     accRB.doAccessibleAction(0)
     wait(1000)
-    oObj = utils.at_getAccessibleObjectForRole(xRoot, com.sun.star.accessibility.AccessibleRole.TEXT,"Ruler")
+    oObj = utils.at_getAccessibleObjectForRole(xRoot,_
+                         com.sun.star.accessibility.AccessibleRole.TEXT,"Ruler")
     Out.Log("Implementation name: "+oObj.getImplementationName())
     accText = oObj.getText()
     Out.Log("Text: "+accText)
+    readOnly = true
 
 Exit Sub
 ErrHndl: