Skip to content

C
core
Kaydet (Commit) 28506dad authored tarafından Vladimir Glazounov's avatar Vladimir Glazounov
Dosyalara gözat
Seçenekler

INTEGRATION: CWS qadev8 (1.4.2); FILE MERGED 

2003/06/04 14:04:28 cn 1.4.2.1: #109975# CHG: new accessibility role
üst 203afa0c
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 2 deletions
qadevOOo/tests/basic/mod/toolkit/AccessibleMenu/toolkit_AccessibleMenu.xba
Dosyayı görüntüle @ 28506dad
...@@ -7,9 +7,9 @@ ...@@ -7,9 +7,9 @@
'* '*
'* $RCSfile: toolkit_AccessibleMenu.xba,v $ '* $RCSfile: toolkit_AccessibleMenu.xba,v $
'* '*
'* $Revision: 1.4 $ '* $Revision: 1.5 $
'* '*
'* last change:$Date: 2003-05-27 12:21:48 $ '* last change:$Date: 2003-06-11 16:32:41 $
'* '*
'* The Contents of this file are made available subject to the terms of '* The Contents of this file are made available subject to the terms of
'* either of the following licenses '* either of the following licenses
...@@ -75,6 +75,7 @@ option explicit ...@@ -75,6 +75,7 @@ option explicit
Global accText As String Global accText As String
Global menu As Object Global menu As Object
Global multiSelection As Boolean Global multiSelection As Boolean
Global readOnly as Boolean
Sub CreateObj() Sub CreateObj()
...@@ -98,6 +99,8 @@ On Error Goto ErrHndl ...@@ -98,6 +99,8 @@ On Error Goto ErrHndl
multiSelection = false multiSelection = false
accText = oObj.getText() accText = oObj.getText()
readOnly = true
Exit Sub Exit Sub
ErrHndl: ErrHndl:
Test.Exception() Test.Exception()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment