]>
Commit | Line | Data |
---|---|---|
1 | /////////////////////////////////////////////////////////////////////////////// | |
2 | // Name: src/msw/ole/access.cpp | |
3 | // Purpose: implementation of wxIAccessible and wxAccessible | |
4 | // Author: Julian Smart | |
5 | // Modified by: | |
6 | // Created: 2003-02-12 | |
7 | // RCS-ID: $Id$ | |
8 | // Copyright: (c) 2003 Julian Smart | |
9 | // Licence: wxWindows licence | |
10 | /////////////////////////////////////////////////////////////////////////////// | |
11 | ||
12 | // ============================================================================ | |
13 | // declarations | |
14 | // ============================================================================ | |
15 | ||
16 | // ---------------------------------------------------------------------------- | |
17 | // headers | |
18 | // ---------------------------------------------------------------------------- | |
19 | ||
20 | // For compilers that support precompilation, includes "wx.h". | |
21 | #include "wx/wxprec.h" | |
22 | ||
23 | #if defined(__BORLANDC__) | |
24 | #pragma hdrstop | |
25 | #endif | |
26 | ||
27 | #if wxUSE_OLE && wxUSE_ACCESSIBILITY | |
28 | ||
29 | #include "wx/access.h" | |
30 | ||
31 | #ifndef WX_PRECOMP | |
32 | #include "wx/msw/wrapwin.h" | |
33 | #include "wx/window.h" | |
34 | #include "wx/log.h" | |
35 | #endif | |
36 | ||
37 | // for some compilers, the entire ole2.h must be included, not only oleauto.h | |
38 | #if wxUSE_NORLANDER_HEADERS || defined(__WATCOMC__) | |
39 | #include <ole2.h> | |
40 | #endif | |
41 | ||
42 | #include <oleauto.h> | |
43 | #include <oleacc.h> | |
44 | ||
45 | #include "wx/msw/ole/oleutils.h" | |
46 | ||
47 | #ifndef CHILDID_SELF | |
48 | #define CHILDID_SELF 0 | |
49 | #endif | |
50 | ||
51 | #ifndef OBJID_CLIENT | |
52 | #define OBJID_CLIENT 0xFFFFFFFC | |
53 | #endif | |
54 | ||
55 | // Convert to Windows role | |
56 | int wxConvertToWindowsRole(wxAccRole wxrole); | |
57 | ||
58 | // Convert to Windows state | |
59 | long wxConvertToWindowsState(long wxstate); | |
60 | ||
61 | // Convert to Windows selection flag | |
62 | int wxConvertToWindowsSelFlag(wxAccSelectionFlags sel); | |
63 | ||
64 | // Convert from Windows selection flag | |
65 | wxAccSelectionFlags wxConvertFromWindowsSelFlag(int sel); | |
66 | ||
67 | #if wxUSE_VARIANT | |
68 | // ---------------------------------------------------------------------------- | |
69 | // wxIEnumVARIANT interface implementation | |
70 | // ---------------------------------------------------------------------------- | |
71 | ||
72 | class wxIEnumVARIANT : public IEnumVARIANT | |
73 | { | |
74 | public: | |
75 | wxIEnumVARIANT(const wxVariant& variant); | |
76 | virtual ~wxIEnumVARIANT() { } | |
77 | ||
78 | DECLARE_IUNKNOWN_METHODS; | |
79 | ||
80 | // IEnumVARIANT | |
81 | STDMETHODIMP Next(ULONG celt, VARIANT *rgelt, ULONG *pceltFetched); | |
82 | STDMETHODIMP Skip(ULONG celt); | |
83 | STDMETHODIMP Reset(); | |
84 | STDMETHODIMP Clone(IEnumVARIANT **ppenum); | |
85 | ||
86 | private: | |
87 | wxVariant m_variant; // List of further variants | |
88 | int m_nCurrent; // Current enum position | |
89 | ||
90 | wxDECLARE_NO_COPY_CLASS(wxIEnumVARIANT); | |
91 | }; | |
92 | ||
93 | // ---------------------------------------------------------------------------- | |
94 | // wxIEnumVARIANT | |
95 | // ---------------------------------------------------------------------------- | |
96 | ||
97 | BEGIN_IID_TABLE(wxIEnumVARIANT) | |
98 | ADD_IID(Unknown) | |
99 | ADD_IID(EnumVARIANT) | |
100 | END_IID_TABLE; | |
101 | ||
102 | IMPLEMENT_IUNKNOWN_METHODS(wxIEnumVARIANT) | |
103 | ||
104 | // wxVariant contains a list of further variants. | |
105 | wxIEnumVARIANT::wxIEnumVARIANT(const wxVariant& variant) | |
106 | { | |
107 | m_variant = variant; | |
108 | } | |
109 | ||
110 | STDMETHODIMP wxIEnumVARIANT::Next(ULONG celt, | |
111 | VARIANT *rgelt, | |
112 | ULONG *pceltFetched) | |
113 | { | |
114 | wxLogTrace(wxTRACE_OleCalls, wxT("wxIEnumVARIANT::Next")); | |
115 | ||
116 | if ( celt > 1 ) { | |
117 | // we only return 1 element at a time - mainly because I'm too lazy to | |
118 | // implement something which you're never asked for anyhow | |
119 | return S_FALSE; | |
120 | } | |
121 | ||
122 | if (m_variant.GetType() != wxT("list")) | |
123 | return S_FALSE; | |
124 | ||
125 | if ( m_nCurrent < (int) m_variant.GetList().GetCount() ) { | |
126 | if (!wxConvertVariantToOle(m_variant[m_nCurrent++], rgelt[0])) | |
127 | { | |
128 | return S_FALSE; | |
129 | } | |
130 | ||
131 | // TODO: should we AddRef if this is an object? | |
132 | ||
133 | * pceltFetched = 1; | |
134 | return S_OK; | |
135 | } | |
136 | else { | |
137 | // bad index | |
138 | return S_FALSE; | |
139 | } | |
140 | } | |
141 | ||
142 | STDMETHODIMP wxIEnumVARIANT::Skip(ULONG celt) | |
143 | { | |
144 | wxLogTrace(wxTRACE_OleCalls, wxT("wxIEnumVARIANT::Skip")); | |
145 | ||
146 | if (m_variant.GetType() != wxT("list")) | |
147 | return S_FALSE; | |
148 | ||
149 | m_nCurrent += celt; | |
150 | if ( m_nCurrent < (int) m_variant.GetList().GetCount() ) | |
151 | return S_OK; | |
152 | ||
153 | // no, can't skip this many elements | |
154 | m_nCurrent -= celt; | |
155 | ||
156 | return S_FALSE; | |
157 | } | |
158 | ||
159 | STDMETHODIMP wxIEnumVARIANT::Reset() | |
160 | { | |
161 | wxLogTrace(wxTRACE_OleCalls, wxT("wxIEnumVARIANT::Reset")); | |
162 | ||
163 | m_nCurrent = 0; | |
164 | ||
165 | return S_OK; | |
166 | } | |
167 | ||
168 | STDMETHODIMP wxIEnumVARIANT::Clone(IEnumVARIANT **ppenum) | |
169 | { | |
170 | wxLogTrace(wxTRACE_OleCalls, wxT("wxIEnumVARIANT::Clone")); | |
171 | ||
172 | wxIEnumVARIANT *pNew = new wxIEnumVARIANT(m_variant); | |
173 | pNew->AddRef(); | |
174 | *ppenum = pNew; | |
175 | ||
176 | return S_OK; | |
177 | } | |
178 | ||
179 | #endif // wxUSE_VARIANT | |
180 | ||
181 | // ---------------------------------------------------------------------------- | |
182 | // wxIAccessible implementation of IAccessible interface | |
183 | // ---------------------------------------------------------------------------- | |
184 | ||
185 | class wxIAccessible : public IAccessible | |
186 | { | |
187 | public: | |
188 | wxIAccessible(wxAccessible *pAccessible); | |
189 | ||
190 | DECLARE_IUNKNOWN_METHODS; | |
191 | ||
192 | // IAccessible | |
193 | ||
194 | // Navigation and Hierarchy | |
195 | ||
196 | // Retrieves the child element or child object at a given point on the screen. | |
197 | // All visual objects support this method; sound objects do not support it. | |
198 | ||
199 | STDMETHODIMP accHitTest(long xLeft, long yLeft, VARIANT* pVarID); | |
200 | ||
201 | // Retrieves the specified object's current screen location. All visual objects must | |
202 | // support this method; sound objects do not support it. | |
203 | ||
204 | STDMETHODIMP accLocation ( long* pxLeft, long* pyTop, long* pcxWidth, long* pcyHeight, VARIANT varID); | |
205 | ||
206 | // Traverses to another user interface element within a container and retrieves the object. | |
207 | // All visual objects must support this method. | |
208 | ||
209 | STDMETHODIMP accNavigate ( long navDir, VARIANT varStart, VARIANT* pVarEnd); | |
210 | ||
211 | // Retrieves the address of an IDispatch interface for the specified child. | |
212 | // All objects must support this property. | |
213 | ||
214 | STDMETHODIMP get_accChild ( VARIANT varChildID, IDispatch** ppDispChild); | |
215 | ||
216 | // Retrieves the number of children that belong to this object. | |
217 | // All objects must support this property. | |
218 | ||
219 | STDMETHODIMP get_accChildCount ( long* pCountChildren); | |
220 | ||
221 | // Retrieves the IDispatch interface of the object's parent. | |
222 | // All objects support this property. | |
223 | ||
224 | STDMETHODIMP get_accParent ( IDispatch** ppDispParent); | |
225 | ||
226 | // Descriptive Properties and Methods | |
227 | ||
228 | // Performs the object's default action. Not all objects have a default | |
229 | // action. | |
230 | ||
231 | STDMETHODIMP accDoDefaultAction(VARIANT varID); | |
232 | ||
233 | // Retrieves a string that describes the object's default action. | |
234 | // Not all objects have a default action. | |
235 | ||
236 | STDMETHODIMP get_accDefaultAction ( VARIANT varID, BSTR* pszDefaultAction); | |
237 | ||
238 | // Retrieves a string that describes the visual appearance of the specified object. | |
239 | // Not all objects have a description. | |
240 | ||
241 | STDMETHODIMP get_accDescription ( VARIANT varID, BSTR* pszDescription); | |
242 | ||
243 | // Retrieves an object's Help property string. | |
244 | // Not all objects support this property. | |
245 | ||
246 | STDMETHODIMP get_accHelp ( VARIANT varID, BSTR* pszHelp); | |
247 | ||
248 | // Retrieves the full path of the WinHelp file associated with the specified | |
249 | // object and the identifier of the appropriate topic within that file. | |
250 | // Not all objects support this property. | |
251 | ||
252 | STDMETHODIMP get_accHelpTopic ( BSTR* pszHelpFile, VARIANT varChild, long* pidTopic); | |
253 | ||
254 | // Retrieves the specified object's shortcut key or access key, also known as | |
255 | // the mnemonic. All objects that have a shortcut key or access key support | |
256 | // this property. | |
257 | ||
258 | STDMETHODIMP get_accKeyboardShortcut ( VARIANT varID, BSTR* pszKeyboardShortcut); | |
259 | ||
260 | // Retrieves the name of the specified object. | |
261 | // All objects support this property. | |
262 | ||
263 | STDMETHODIMP get_accName ( VARIANT varID, BSTR* pszName); | |
264 | ||
265 | // Retrieves information that describes the role of the specified object. | |
266 | // All objects support this property. | |
267 | ||
268 | STDMETHODIMP get_accRole ( VARIANT varID, VARIANT* pVarRole); | |
269 | ||
270 | // Retrieves the current state of the specified object. | |
271 | // All objects support this property. | |
272 | ||
273 | STDMETHODIMP get_accState ( VARIANT varID, VARIANT* pVarState); | |
274 | ||
275 | // Retrieves the value of the specified object. | |
276 | // Not all objects have a value. | |
277 | ||
278 | STDMETHODIMP get_accValue ( VARIANT varID, BSTR* pszValue); | |
279 | ||
280 | // Selection and Focus | |
281 | ||
282 | // Modifies the selection or moves the keyboard focus of the | |
283 | // specified object. All objects that select or receive the | |
284 | // keyboard focus must support this method. | |
285 | ||
286 | STDMETHODIMP accSelect ( long flagsSelect, VARIANT varID ); | |
287 | ||
288 | // Retrieves the object that has the keyboard focus. All objects | |
289 | // that receive the keyboard focus must support this property. | |
290 | ||
291 | STDMETHODIMP get_accFocus ( VARIANT* pVarID); | |
292 | ||
293 | // Retrieves the selected children of this object. All objects | |
294 | // selected must support this property. | |
295 | ||
296 | STDMETHODIMP get_accSelection ( VARIANT * pVarChildren); | |
297 | ||
298 | // Obsolete | |
299 | ||
300 | STDMETHODIMP put_accName(VARIANT WXUNUSED(varChild), BSTR WXUNUSED(szName)) { return E_FAIL; } | |
301 | STDMETHODIMP put_accValue(VARIANT WXUNUSED(varChild), BSTR WXUNUSED(szName)) { return E_FAIL; } | |
302 | ||
303 | // IDispatch | |
304 | ||
305 | // Get type info | |
306 | ||
307 | STDMETHODIMP GetTypeInfo(unsigned int typeInfo, LCID lcid, ITypeInfo** ppTypeInfo); | |
308 | ||
309 | // Get type info count | |
310 | ||
311 | STDMETHODIMP GetTypeInfoCount(unsigned int* typeInfoCount); | |
312 | ||
313 | // Get ids of names | |
314 | ||
315 | STDMETHODIMP GetIDsOfNames(REFIID riid, OLECHAR** names, unsigned int cNames, | |
316 | LCID lcid, DISPID* dispId); | |
317 | ||
318 | // Invoke | |
319 | ||
320 | STDMETHODIMP Invoke(DISPID dispIdMember, REFIID riid, LCID lcid, | |
321 | WORD wFlags, DISPPARAMS *pDispParams, | |
322 | VARIANT *pVarResult, EXCEPINFO *pExcepInfo, | |
323 | unsigned int *puArgErr ); | |
324 | ||
325 | // Helpers | |
326 | ||
327 | // Gets the standard IAccessible interface for the given child or object. | |
328 | // Call Release if this is non-NULL. | |
329 | IAccessible* GetChildStdAccessible(int id); | |
330 | ||
331 | // Gets the IAccessible interface for the given child or object. | |
332 | // Call Release if this is non-NULL. | |
333 | IAccessible* GetChildAccessible(int id); | |
334 | ||
335 | private: | |
336 | wxAccessible *m_pAccessible; // pointer to C++ class we belong to | |
337 | ||
338 | wxDECLARE_NO_COPY_CLASS(wxIAccessible); | |
339 | }; | |
340 | ||
341 | // ============================================================================ | |
342 | // Implementation | |
343 | // ============================================================================ | |
344 | ||
345 | // ---------------------------------------------------------------------------- | |
346 | // wxIAccessible implementation | |
347 | // ---------------------------------------------------------------------------- | |
348 | BEGIN_IID_TABLE(wxIAccessible) | |
349 | ADD_IID(Unknown) | |
350 | ADD_IID(Accessible) | |
351 | ADD_IID(Dispatch) | |
352 | END_IID_TABLE; | |
353 | ||
354 | IMPLEMENT_IUNKNOWN_METHODS(wxIAccessible) | |
355 | ||
356 | wxIAccessible::wxIAccessible(wxAccessible *pAccessible) | |
357 | { | |
358 | wxASSERT( pAccessible != NULL ); | |
359 | ||
360 | m_pAccessible = pAccessible; | |
361 | } | |
362 | ||
363 | // Retrieves the child element or child object at a given point on the screen. | |
364 | // All visual objects support this method; sound objects do not support it. | |
365 | ||
366 | STDMETHODIMP wxIAccessible::accHitTest(long xLeft, long yLeft, VARIANT* pVarID) | |
367 | { | |
368 | wxLogTrace(wxT("access"), wxT("accHitTest")); | |
369 | wxASSERT (m_pAccessible != NULL); | |
370 | if (!m_pAccessible) | |
371 | return E_FAIL; | |
372 | ||
373 | wxAccessible* childObject = NULL; | |
374 | int childId = 0; | |
375 | VariantInit(pVarID); | |
376 | ||
377 | wxAccStatus status = m_pAccessible->HitTest(wxPoint(xLeft, yLeft), & childId, & childObject); | |
378 | ||
379 | if (status == wxACC_FAIL) | |
380 | return E_FAIL; | |
381 | ||
382 | if (status == wxACC_NOT_IMPLEMENTED) | |
383 | { | |
384 | // Use standard interface instead. | |
385 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
386 | if (!stdInterface) | |
387 | return E_NOTIMPL; | |
388 | else | |
389 | return stdInterface->accHitTest(xLeft, yLeft, pVarID); | |
390 | } | |
391 | ||
392 | if (childObject) | |
393 | { | |
394 | if (childObject == m_pAccessible) | |
395 | { | |
396 | pVarID->vt = VT_I4; | |
397 | pVarID->lVal = CHILDID_SELF; | |
398 | return S_OK; | |
399 | } | |
400 | else | |
401 | { | |
402 | wxIAccessible* childIA = childObject->GetIAccessible(); | |
403 | if (!childIA) | |
404 | return E_NOTIMPL; | |
405 | ||
406 | if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK) | |
407 | return E_FAIL; | |
408 | ||
409 | pVarID->vt = VT_DISPATCH; | |
410 | return S_OK; | |
411 | } | |
412 | } | |
413 | else if (childId > 0) | |
414 | { | |
415 | pVarID->vt = VT_I4; | |
416 | pVarID->lVal = childId; | |
417 | return S_OK; | |
418 | } | |
419 | else | |
420 | { | |
421 | pVarID->vt = VT_EMPTY; | |
422 | return S_FALSE; | |
423 | } | |
424 | ||
425 | #if 0 | |
426 | // all cases above already cause some return action so below line | |
427 | // is unreachable and cause unnecessary warning | |
428 | return E_NOTIMPL; | |
429 | #endif | |
430 | } | |
431 | ||
432 | // Retrieves the specified object's current screen location. All visual objects must | |
433 | // support this method; sound objects do not support it. | |
434 | ||
435 | STDMETHODIMP wxIAccessible::accLocation ( long* pxLeft, long* pyTop, long* pcxWidth, long* pcyHeight, VARIANT varID) | |
436 | { | |
437 | wxLogTrace(wxT("access"), wxT("accLocation")); | |
438 | wxASSERT (m_pAccessible != NULL); | |
439 | if (!m_pAccessible) | |
440 | return E_FAIL; | |
441 | ||
442 | wxRect rect; | |
443 | ||
444 | wxAccStatus status = m_pAccessible->GetLocation(rect, varID.lVal); | |
445 | if (status == wxACC_FAIL) | |
446 | return E_FAIL; | |
447 | ||
448 | if (status == wxACC_NOT_IMPLEMENTED) | |
449 | { | |
450 | // Try to use child object directly. | |
451 | if (varID.lVal > 0) | |
452 | { | |
453 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
454 | if (childAccessible) | |
455 | { | |
456 | varID.lVal = 0; | |
457 | HRESULT hResult = childAccessible->accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, varID); | |
458 | childAccessible->Release(); | |
459 | return hResult; | |
460 | } | |
461 | else if (m_pAccessible->GetIAccessibleStd()) | |
462 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, varID); | |
463 | } | |
464 | else if (m_pAccessible->GetIAccessibleStd()) | |
465 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, varID); | |
466 | } | |
467 | else | |
468 | { | |
469 | *pxLeft = rect.x; | |
470 | *pyTop = rect.y; | |
471 | *pcxWidth = rect.width; | |
472 | *pcyHeight = rect.height; | |
473 | return S_OK; | |
474 | } | |
475 | ||
476 | return E_NOTIMPL; | |
477 | } | |
478 | ||
479 | // Traverses to another user interface element within a container and retrieves the object. | |
480 | // All visual objects must support this method. | |
481 | ||
482 | STDMETHODIMP wxIAccessible::accNavigate ( long navDir, VARIANT varStart, VARIANT* pVarEnd) | |
483 | { | |
484 | wxASSERT (m_pAccessible != NULL); | |
485 | if (!m_pAccessible) | |
486 | return E_FAIL; | |
487 | wxLogTrace(wxT("access"), wxString(wxT("accNavigate for ")) + m_pAccessible->GetWindow()->GetClassInfo()->GetClassName()); | |
488 | ||
489 | if ((varStart.vt != VT_I4 && varStart.vt != VT_EMPTY) | |
490 | #if 0 | |
491 | // according to MSDN and sources varStart.vt is unsigned | |
492 | // so below line cause warning "Condition is always false" | |
493 | || varStart.vt < 0 | |
494 | #endif | |
495 | ) | |
496 | { | |
497 | wxLogTrace(wxT("access"), wxT("Invalid arg for accNavigate")); | |
498 | return E_INVALIDARG; | |
499 | } | |
500 | ||
501 | wxAccessible* elementObject = NULL; | |
502 | int elementId = 0; | |
503 | VariantInit(pVarEnd); | |
504 | wxNavDir navDirWX = wxNAVDIR_FIRSTCHILD; | |
505 | ||
506 | wxString navStr; | |
507 | ||
508 | switch (navDir) | |
509 | { | |
510 | case NAVDIR_DOWN: | |
511 | navDirWX = wxNAVDIR_DOWN; | |
512 | navStr = wxT("wxNAVDIR_DOWN"); | |
513 | break; | |
514 | ||
515 | case NAVDIR_FIRSTCHILD: | |
516 | navDirWX = wxNAVDIR_FIRSTCHILD; | |
517 | navStr = wxT("wxNAVDIR_FIRSTCHILD"); | |
518 | break; | |
519 | ||
520 | case NAVDIR_LASTCHILD: | |
521 | navDirWX = wxNAVDIR_LASTCHILD; | |
522 | navStr = wxT("wxNAVDIR_LASTCHILD"); | |
523 | break; | |
524 | ||
525 | case NAVDIR_LEFT: | |
526 | navDirWX = wxNAVDIR_LEFT; | |
527 | navStr = wxT("wxNAVDIR_LEFT"); | |
528 | break; | |
529 | ||
530 | case NAVDIR_NEXT: | |
531 | navDirWX = wxNAVDIR_NEXT; | |
532 | navStr = wxT("wxNAVDIR_NEXT"); | |
533 | break; | |
534 | ||
535 | case NAVDIR_PREVIOUS: | |
536 | navDirWX = wxNAVDIR_PREVIOUS; | |
537 | navStr = wxT("wxNAVDIR_PREVIOUS"); | |
538 | break; | |
539 | ||
540 | case NAVDIR_RIGHT: | |
541 | navDirWX = wxNAVDIR_RIGHT; | |
542 | navStr = wxT("wxNAVDIR_RIGHT"); | |
543 | break; | |
544 | ||
545 | case NAVDIR_UP: | |
546 | navDirWX = wxNAVDIR_UP; | |
547 | navStr = wxT("wxNAVDIR_UP"); | |
548 | break; | |
549 | default: | |
550 | { | |
551 | wxLogTrace(wxT("access"), wxT("Unknown NAVDIR symbol")); | |
552 | break; | |
553 | } | |
554 | } | |
555 | wxLogTrace(wxT("access"), navStr); | |
556 | ||
557 | wxAccStatus status = m_pAccessible->Navigate(navDirWX, varStart.lVal, & elementId, | |
558 | & elementObject); | |
559 | ||
560 | if (status == wxACC_FAIL) | |
561 | { | |
562 | wxLogTrace(wxT("access"), wxT("wxAccessible::Navigate failed")); | |
563 | return E_FAIL; | |
564 | } | |
565 | ||
566 | if (status == wxACC_FALSE) | |
567 | { | |
568 | wxLogTrace(wxT("access"), wxT("wxAccessible::Navigate found no object in this direction")); | |
569 | return S_FALSE; | |
570 | } | |
571 | ||
572 | if (status == wxACC_NOT_IMPLEMENTED) | |
573 | { | |
574 | wxLogTrace(wxT("access"), wxT("Navigate not implemented")); | |
575 | ||
576 | // Try to use child object directly. | |
577 | if (varStart.vt == VT_I4 && varStart.lVal > 0) | |
578 | { | |
579 | IAccessible* childAccessible = GetChildAccessible(varStart.lVal); | |
580 | if (childAccessible) | |
581 | { | |
582 | varStart.lVal = 0; | |
583 | HRESULT hResult = childAccessible->accNavigate(navDir, varStart, pVarEnd); | |
584 | childAccessible->Release(); | |
585 | return hResult; | |
586 | } | |
587 | else if (m_pAccessible->GetIAccessibleStd()) | |
588 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accNavigate(navDir, varStart, pVarEnd); | |
589 | } | |
590 | else if (m_pAccessible->GetIAccessibleStd()) | |
591 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accNavigate(navDir, varStart, pVarEnd); | |
592 | } | |
593 | else | |
594 | { | |
595 | if (elementObject) | |
596 | { | |
597 | wxLogTrace(wxT("access"), wxT("Getting wxIAccessible and calling QueryInterface for Navigate")); | |
598 | wxIAccessible* objectIA = elementObject->GetIAccessible(); | |
599 | if (!objectIA) | |
600 | { | |
601 | wxLogTrace(wxT("access"), wxT("No wxIAccessible")); | |
602 | return E_FAIL; | |
603 | } | |
604 | ||
605 | HRESULT hResult = objectIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarEnd->pdispVal); | |
606 | if (hResult != S_OK) | |
607 | { | |
608 | wxLogTrace(wxT("access"), wxT("QueryInterface failed")); | |
609 | return E_FAIL; | |
610 | } | |
611 | ||
612 | wxLogTrace(wxT("access"), wxT("Called QueryInterface for Navigate")); | |
613 | pVarEnd->vt = VT_DISPATCH; | |
614 | return S_OK; | |
615 | } | |
616 | else if (elementId > 0) | |
617 | { | |
618 | wxLogTrace(wxT("access"), wxT("Returning element id from Navigate")); | |
619 | pVarEnd->vt = VT_I4; | |
620 | pVarEnd->lVal = elementId; | |
621 | return S_OK; | |
622 | } | |
623 | else | |
624 | { | |
625 | wxLogTrace(wxT("access"), wxT("No object in accNavigate")); | |
626 | pVarEnd->vt = VT_EMPTY; | |
627 | return S_FALSE; | |
628 | } | |
629 | } | |
630 | ||
631 | wxLogTrace(wxT("access"), wxT("Failing Navigate")); | |
632 | return E_NOTIMPL; | |
633 | } | |
634 | ||
635 | // Retrieves the address of an IDispatch interface for the specified child. | |
636 | // All objects must support this property. | |
637 | ||
638 | STDMETHODIMP wxIAccessible::get_accChild ( VARIANT varChildID, IDispatch** ppDispChild) | |
639 | { | |
640 | wxLogTrace(wxT("access"), wxT("get_accChild")); | |
641 | wxASSERT (m_pAccessible != NULL); | |
642 | if (!m_pAccessible) | |
643 | return E_FAIL; | |
644 | ||
645 | if (varChildID.vt != VT_I4) | |
646 | { | |
647 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accChild")); | |
648 | return E_INVALIDARG; | |
649 | } | |
650 | ||
651 | if (varChildID.lVal == CHILDID_SELF) | |
652 | { | |
653 | *ppDispChild = this; | |
654 | AddRef(); | |
655 | return S_OK; | |
656 | } | |
657 | ||
658 | wxAccessible* child = NULL; | |
659 | ||
660 | wxAccStatus status = m_pAccessible->GetChild(varChildID.lVal, & child); | |
661 | if (status == wxACC_FAIL) | |
662 | { | |
663 | wxLogTrace(wxT("access"), wxT("GetChild failed")); | |
664 | return E_FAIL; | |
665 | } | |
666 | ||
667 | if (status == wxACC_NOT_IMPLEMENTED) | |
668 | { | |
669 | // Use standard interface instead. | |
670 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
671 | if (!stdInterface) | |
672 | return E_NOTIMPL; | |
673 | else | |
674 | { | |
675 | wxLogTrace(wxT("access"), wxT("Using standard interface for get_accChild")); | |
676 | return stdInterface->get_accChild (varChildID, ppDispChild); | |
677 | } | |
678 | } | |
679 | else | |
680 | { | |
681 | if (child) | |
682 | { | |
683 | wxIAccessible* objectIA = child->GetIAccessible(); | |
684 | if (!objectIA) | |
685 | return E_NOTIMPL; | |
686 | ||
687 | if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispChild) != S_OK) | |
688 | { | |
689 | wxLogTrace(wxT("access"), wxT("QueryInterface failed in get_accChild")); | |
690 | return E_FAIL; | |
691 | } | |
692 | ||
693 | return S_OK; | |
694 | } | |
695 | else | |
696 | { | |
697 | wxLogTrace(wxT("access"), wxT("Not an accessible object")); | |
698 | return S_FALSE; // Indicates it's not an accessible object | |
699 | } | |
700 | } | |
701 | ||
702 | #if 0 | |
703 | // all cases above already cause some return action so below line | |
704 | // is unreachable and cause unnecessary warning | |
705 | return E_NOTIMPL; | |
706 | #endif | |
707 | } | |
708 | ||
709 | // Retrieves the number of children that belong to this object. | |
710 | // All objects must support this property. | |
711 | ||
712 | STDMETHODIMP wxIAccessible::get_accChildCount ( long* pCountChildren) | |
713 | { | |
714 | wxLogTrace(wxT("access"), wxT("get_accChildCount")); | |
715 | wxASSERT (m_pAccessible != NULL); | |
716 | if (!m_pAccessible) | |
717 | return E_FAIL; | |
718 | ||
719 | int childCount = 0; | |
720 | wxAccStatus status = m_pAccessible->GetChildCount(& childCount); | |
721 | if (status == wxACC_FAIL) | |
722 | return E_FAIL; | |
723 | ||
724 | if (status == wxACC_NOT_IMPLEMENTED) | |
725 | { | |
726 | // Use standard interface instead. | |
727 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
728 | if (!stdInterface) | |
729 | return E_NOTIMPL; | |
730 | else | |
731 | { | |
732 | wxLogTrace(wxT("access"), wxT("Using standard interface for get_accChildCount")); | |
733 | HRESULT res = stdInterface->get_accChildCount (pCountChildren); | |
734 | wxString str; | |
735 | str.Printf(wxT("Number of children was %d"), (int) (*pCountChildren)); | |
736 | wxLogTrace(wxT("access"), str); | |
737 | return res; | |
738 | } | |
739 | } | |
740 | else | |
741 | { | |
742 | * pCountChildren = (long) childCount; | |
743 | return S_OK; | |
744 | } | |
745 | ||
746 | #if 0 | |
747 | // all cases above already cause some return action so below line | |
748 | // is unreachable and cause unnecessary warning | |
749 | return E_NOTIMPL; | |
750 | #endif | |
751 | } | |
752 | ||
753 | // Retrieves the IDispatch interface of the object's parent. | |
754 | // All objects support this property. | |
755 | ||
756 | STDMETHODIMP wxIAccessible::get_accParent ( IDispatch** ppDispParent) | |
757 | { | |
758 | wxLogTrace(wxT("access"), wxT("get_accParent")); | |
759 | wxASSERT (m_pAccessible != NULL); | |
760 | if (!m_pAccessible) | |
761 | return E_FAIL; | |
762 | ||
763 | wxAccessible* parent = NULL; | |
764 | wxAccStatus status = m_pAccessible->GetParent(& parent); | |
765 | ||
766 | if (status == wxACC_FAIL) | |
767 | return E_FAIL; | |
768 | ||
769 | // It doesn't seem acceptable to return S_FALSE with a NULL | |
770 | // ppDispParent, so if we have no wxWidgets parent, we leave | |
771 | // it to the standard interface. | |
772 | if (status == wxACC_NOT_IMPLEMENTED || !parent) | |
773 | { | |
774 | wxLogTrace(wxT("access"), wxT("Using standard interface to get the parent.")); | |
775 | // Use standard interface instead. | |
776 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
777 | if (!stdInterface) | |
778 | return E_NOTIMPL; | |
779 | else | |
780 | return stdInterface->get_accParent (ppDispParent); | |
781 | } | |
782 | else | |
783 | { | |
784 | if (parent) | |
785 | { | |
786 | wxIAccessible* objectIA = parent->GetIAccessible(); | |
787 | if (!objectIA) | |
788 | return E_FAIL; | |
789 | ||
790 | wxLogTrace(wxT("access"), wxT("About to call QueryInterface")); | |
791 | if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispParent) != S_OK) | |
792 | { | |
793 | wxLogTrace(wxT("access"), wxT("Failed QueryInterface")); | |
794 | return E_FAIL; | |
795 | } | |
796 | ||
797 | wxLogTrace(wxT("access"), wxT("Returning S_OK for get_accParent")); | |
798 | return S_OK; | |
799 | } | |
800 | else | |
801 | { | |
802 | // This doesn't seem to be allowed, despite the documentation, | |
803 | // so we handle it higher up by using the standard interface. | |
804 | wxLogTrace(wxT("access"), wxT("Returning NULL parent because there was none")); | |
805 | *ppDispParent = NULL; | |
806 | return S_FALSE; | |
807 | } | |
808 | } | |
809 | ||
810 | #if 0 | |
811 | // all cases above already cause some return action so below line | |
812 | // is unreachable and cause unnecessary warning | |
813 | return E_NOTIMPL; | |
814 | #endif | |
815 | } | |
816 | ||
817 | // Performs the object's default action. Not all objects have a default | |
818 | // action. | |
819 | ||
820 | STDMETHODIMP wxIAccessible::accDoDefaultAction(VARIANT varID) | |
821 | { | |
822 | wxLogTrace(wxT("access"), wxT("accDoDefaultAction")); | |
823 | wxASSERT (m_pAccessible != NULL); | |
824 | if (!m_pAccessible) | |
825 | return E_FAIL; | |
826 | ||
827 | if (varID.vt != VT_I4) | |
828 | { | |
829 | wxLogTrace(wxT("access"), wxT("Invalid arg for accDoDefaultAction")); | |
830 | return E_INVALIDARG; | |
831 | } | |
832 | ||
833 | wxAccStatus status = m_pAccessible->DoDefaultAction(varID.lVal); | |
834 | if (status == wxACC_FAIL) | |
835 | return E_FAIL; | |
836 | ||
837 | if (status == wxACC_NOT_SUPPORTED) | |
838 | return DISP_E_MEMBERNOTFOUND; | |
839 | ||
840 | if (status == wxACC_NOT_IMPLEMENTED) | |
841 | { | |
842 | // Try to use child object directly. | |
843 | if (varID.lVal > 0) | |
844 | { | |
845 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
846 | if (childAccessible) | |
847 | { | |
848 | varID.lVal = 0; | |
849 | HRESULT hResult = childAccessible->accDoDefaultAction(varID); | |
850 | childAccessible->Release(); | |
851 | return hResult; | |
852 | } | |
853 | else if (m_pAccessible->GetIAccessibleStd()) | |
854 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accDoDefaultAction(varID); | |
855 | } | |
856 | else if (m_pAccessible->GetIAccessibleStd()) | |
857 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accDoDefaultAction(varID); | |
858 | } | |
859 | return E_FAIL; | |
860 | } | |
861 | ||
862 | // Retrieves a string that describes the object's default action. | |
863 | // Not all objects have a default action. | |
864 | ||
865 | STDMETHODIMP wxIAccessible::get_accDefaultAction ( VARIANT varID, BSTR* pszDefaultAction) | |
866 | { | |
867 | wxLogTrace(wxT("access"), wxT("get_accDefaultAction")); | |
868 | wxASSERT (m_pAccessible != NULL); | |
869 | if (!m_pAccessible) | |
870 | return E_FAIL; | |
871 | ||
872 | if (varID.vt != VT_I4) | |
873 | { | |
874 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accDefaultAction")); | |
875 | return E_INVALIDARG; | |
876 | } | |
877 | ||
878 | wxString defaultAction; | |
879 | wxAccStatus status = m_pAccessible->GetDefaultAction(varID.lVal, & defaultAction); | |
880 | if (status == wxACC_FAIL) | |
881 | return E_FAIL; | |
882 | ||
883 | if (status == wxACC_NOT_SUPPORTED) | |
884 | return DISP_E_MEMBERNOTFOUND; | |
885 | ||
886 | if (status == wxACC_NOT_IMPLEMENTED) | |
887 | { | |
888 | // Try to use child object directly. | |
889 | if (varID.lVal > 0) | |
890 | { | |
891 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
892 | if (childAccessible) | |
893 | { | |
894 | varID.lVal = 0; | |
895 | HRESULT hResult = childAccessible->get_accDefaultAction(varID, pszDefaultAction); | |
896 | childAccessible->Release(); | |
897 | return hResult; | |
898 | } | |
899 | else if (m_pAccessible->GetIAccessibleStd()) | |
900 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accDefaultAction(varID, pszDefaultAction); | |
901 | } | |
902 | else if (m_pAccessible->GetIAccessibleStd()) | |
903 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accDefaultAction(varID, pszDefaultAction); | |
904 | } | |
905 | else | |
906 | { | |
907 | if (defaultAction.IsEmpty()) | |
908 | { | |
909 | * pszDefaultAction = NULL; | |
910 | return S_FALSE; | |
911 | } | |
912 | else | |
913 | { | |
914 | wxBasicString basicString(defaultAction); | |
915 | * pszDefaultAction = basicString.Get(); | |
916 | return S_OK; | |
917 | } | |
918 | } | |
919 | return E_FAIL; | |
920 | } | |
921 | ||
922 | // Retrieves a string that describes the visual appearance of the specified object. | |
923 | // Not all objects have a description. | |
924 | ||
925 | STDMETHODIMP wxIAccessible::get_accDescription ( VARIANT varID, BSTR* pszDescription) | |
926 | { | |
927 | wxLogTrace(wxT("access"), wxT("get_accDescription")); | |
928 | wxASSERT (m_pAccessible != NULL); | |
929 | if (!m_pAccessible) | |
930 | return E_FAIL; | |
931 | ||
932 | if (varID.vt != VT_I4) | |
933 | { | |
934 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accDescription")); | |
935 | return E_INVALIDARG; | |
936 | } | |
937 | ||
938 | wxString description; | |
939 | wxAccStatus status = m_pAccessible->GetDescription(varID.lVal, & description); | |
940 | if (status == wxACC_FAIL) | |
941 | return E_FAIL; | |
942 | ||
943 | if (status == wxACC_NOT_IMPLEMENTED) | |
944 | { | |
945 | // Try to use child object directly. | |
946 | if (varID.lVal > 0) | |
947 | { | |
948 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
949 | if (childAccessible) | |
950 | { | |
951 | varID.lVal = 0; | |
952 | HRESULT hResult = childAccessible->get_accDescription(varID, pszDescription); | |
953 | childAccessible->Release(); | |
954 | return hResult; | |
955 | } | |
956 | else if (m_pAccessible->GetIAccessibleStd()) | |
957 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accDescription(varID, pszDescription); | |
958 | } | |
959 | else if (m_pAccessible->GetIAccessibleStd()) | |
960 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accDescription(varID, pszDescription); | |
961 | } | |
962 | else | |
963 | { | |
964 | if (description.empty()) | |
965 | { | |
966 | * pszDescription = NULL; | |
967 | return S_FALSE; | |
968 | } | |
969 | else | |
970 | { | |
971 | wxBasicString basicString(description); | |
972 | * pszDescription = basicString.Get(); | |
973 | return S_OK; | |
974 | } | |
975 | } | |
976 | return E_NOTIMPL; | |
977 | } | |
978 | ||
979 | // Retrieves an object's Help property string. | |
980 | // Not all objects support this property. | |
981 | ||
982 | STDMETHODIMP wxIAccessible::get_accHelp ( VARIANT varID, BSTR* pszHelp) | |
983 | { | |
984 | wxLogTrace(wxT("access"), wxT("get_accHelp")); | |
985 | wxASSERT (m_pAccessible != NULL); | |
986 | if (!m_pAccessible) | |
987 | return E_FAIL; | |
988 | ||
989 | if (varID.vt != VT_I4) | |
990 | { | |
991 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accHelp")); | |
992 | return E_INVALIDARG; | |
993 | } | |
994 | ||
995 | wxString helpString; | |
996 | wxAccStatus status = m_pAccessible->GetHelpText(varID.lVal, & helpString); | |
997 | if (status == wxACC_FAIL) | |
998 | return E_FAIL; | |
999 | ||
1000 | if (status == wxACC_NOT_IMPLEMENTED) | |
1001 | { | |
1002 | // Try to use child object directly. | |
1003 | if (varID.lVal > 0) | |
1004 | { | |
1005 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1006 | if (childAccessible) | |
1007 | { | |
1008 | varID.lVal = 0; | |
1009 | HRESULT hResult = childAccessible->get_accHelp(varID, pszHelp); | |
1010 | childAccessible->Release(); | |
1011 | return hResult; | |
1012 | } | |
1013 | else if (m_pAccessible->GetIAccessibleStd()) | |
1014 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accHelp(varID, pszHelp); | |
1015 | } | |
1016 | else if (m_pAccessible->GetIAccessibleStd()) | |
1017 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accHelp (varID, pszHelp); | |
1018 | } | |
1019 | else | |
1020 | { | |
1021 | if (helpString.empty()) | |
1022 | { | |
1023 | * pszHelp = NULL; | |
1024 | return S_FALSE; | |
1025 | } | |
1026 | else | |
1027 | { | |
1028 | wxBasicString basicString(helpString); | |
1029 | * pszHelp = basicString.Get(); | |
1030 | return S_OK; | |
1031 | } | |
1032 | } | |
1033 | return E_NOTIMPL; | |
1034 | } | |
1035 | ||
1036 | // Retrieves the full path of the WinHelp file associated with the specified | |
1037 | // object and the identifier of the appropriate topic within that file. | |
1038 | // Not all objects support this property. | |
1039 | // NOTE: not supported by wxWidgets at this time. Use | |
1040 | // GetHelpText instead. | |
1041 | ||
1042 | STDMETHODIMP wxIAccessible::get_accHelpTopic ( BSTR* pszHelpFile, VARIANT varChild, long* pidTopic) | |
1043 | { | |
1044 | wxLogTrace(wxT("access"), wxT("get_accHelpTopic")); | |
1045 | wxASSERT (m_pAccessible != NULL); | |
1046 | if (!m_pAccessible) | |
1047 | return E_FAIL; | |
1048 | ||
1049 | if (varChild.vt != VT_I4) | |
1050 | { | |
1051 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accHelpTopic")); | |
1052 | return E_INVALIDARG; | |
1053 | } | |
1054 | ||
1055 | wxAccStatus status = wxACC_NOT_IMPLEMENTED; | |
1056 | if (status == wxACC_FAIL) | |
1057 | return E_FAIL; | |
1058 | ||
1059 | if (status == wxACC_NOT_IMPLEMENTED) | |
1060 | { | |
1061 | // Try to use child object directly. | |
1062 | if (varChild.lVal > 0) | |
1063 | { | |
1064 | IAccessible* childAccessible = GetChildAccessible(varChild.lVal); | |
1065 | if (childAccessible) | |
1066 | { | |
1067 | varChild.lVal = 0; | |
1068 | HRESULT hResult = childAccessible->get_accHelpTopic(pszHelpFile, varChild, pidTopic); | |
1069 | childAccessible->Release(); | |
1070 | return hResult; | |
1071 | } | |
1072 | else if (m_pAccessible->GetIAccessibleStd()) | |
1073 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accHelpTopic(pszHelpFile, varChild, pidTopic); | |
1074 | } | |
1075 | else if (m_pAccessible->GetIAccessibleStd()) | |
1076 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accHelpTopic (pszHelpFile, varChild, pidTopic); | |
1077 | } | |
1078 | return E_NOTIMPL; | |
1079 | } | |
1080 | ||
1081 | // Retrieves the specified object's shortcut key or access key, also known as | |
1082 | // the mnemonic. All objects that have a shortcut key or access key support | |
1083 | // this property. | |
1084 | ||
1085 | STDMETHODIMP wxIAccessible::get_accKeyboardShortcut ( VARIANT varID, BSTR* pszKeyboardShortcut) | |
1086 | { | |
1087 | wxLogTrace(wxT("access"), wxT("get_accKeyboardShortcut")); | |
1088 | *pszKeyboardShortcut = NULL; | |
1089 | ||
1090 | wxASSERT (m_pAccessible != NULL); | |
1091 | if (!m_pAccessible) | |
1092 | return E_FAIL; | |
1093 | ||
1094 | if (varID.vt != VT_I4) | |
1095 | { | |
1096 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accKeyboardShortcut")); | |
1097 | return E_INVALIDARG; | |
1098 | } | |
1099 | ||
1100 | wxString keyboardShortcut; | |
1101 | wxAccStatus status = m_pAccessible->GetKeyboardShortcut(varID.lVal, & keyboardShortcut); | |
1102 | if (status == wxACC_FAIL) | |
1103 | return E_FAIL; | |
1104 | ||
1105 | if (status == wxACC_NOT_IMPLEMENTED) | |
1106 | { | |
1107 | // Try to use child object directly. | |
1108 | if (varID.lVal > 0) | |
1109 | { | |
1110 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1111 | if (childAccessible) | |
1112 | { | |
1113 | varID.lVal = 0; | |
1114 | HRESULT hResult = childAccessible->get_accKeyboardShortcut(varID, pszKeyboardShortcut); | |
1115 | childAccessible->Release(); | |
1116 | return hResult; | |
1117 | } | |
1118 | else if (m_pAccessible->GetIAccessibleStd()) | |
1119 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accKeyboardShortcut(varID, pszKeyboardShortcut); | |
1120 | } | |
1121 | else if (m_pAccessible->GetIAccessibleStd()) | |
1122 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accKeyboardShortcut (varID, pszKeyboardShortcut); | |
1123 | } | |
1124 | else | |
1125 | { | |
1126 | if (keyboardShortcut.empty()) | |
1127 | { | |
1128 | * pszKeyboardShortcut = NULL; | |
1129 | return S_FALSE; | |
1130 | } | |
1131 | else | |
1132 | { | |
1133 | wxBasicString basicString(keyboardShortcut); | |
1134 | * pszKeyboardShortcut = basicString.Get(); | |
1135 | return S_OK; | |
1136 | } | |
1137 | } | |
1138 | return E_NOTIMPL; | |
1139 | } | |
1140 | ||
1141 | // Retrieves the name of the specified object. | |
1142 | // All objects support this property. | |
1143 | ||
1144 | STDMETHODIMP wxIAccessible::get_accName ( VARIANT varID, BSTR* pszName) | |
1145 | { | |
1146 | wxLogTrace(wxT("access"), wxT("get_accName")); | |
1147 | *pszName = NULL; | |
1148 | ||
1149 | wxASSERT (m_pAccessible != NULL); | |
1150 | if (!m_pAccessible) | |
1151 | return E_FAIL; | |
1152 | ||
1153 | if (varID.vt != VT_I4) | |
1154 | { | |
1155 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accName")); | |
1156 | return E_INVALIDARG; | |
1157 | } | |
1158 | ||
1159 | wxString name; | |
1160 | ||
1161 | wxAccStatus status = m_pAccessible->GetName(varID.lVal, & name); | |
1162 | ||
1163 | if (status == wxACC_FAIL) | |
1164 | return E_FAIL; | |
1165 | ||
1166 | if (status == wxACC_NOT_IMPLEMENTED) | |
1167 | { | |
1168 | // Try to use child object directly. | |
1169 | if (varID.lVal > 0) | |
1170 | { | |
1171 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1172 | if (childAccessible) | |
1173 | { | |
1174 | varID.lVal = 0; | |
1175 | HRESULT hResult = childAccessible->get_accName(varID, pszName); | |
1176 | childAccessible->Release(); | |
1177 | return hResult; | |
1178 | } | |
1179 | else if (m_pAccessible->GetIAccessibleStd()) | |
1180 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accName(varID, pszName); | |
1181 | } | |
1182 | else if (m_pAccessible->GetIAccessibleStd()) | |
1183 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accName (varID, pszName); | |
1184 | } | |
1185 | else | |
1186 | { | |
1187 | wxBasicString basicString(name); | |
1188 | *pszName = basicString.Get(); | |
1189 | return S_OK; | |
1190 | } | |
1191 | return E_NOTIMPL; | |
1192 | } | |
1193 | ||
1194 | // Retrieves information that describes the role of the specified object. | |
1195 | // All objects support this property. | |
1196 | ||
1197 | STDMETHODIMP wxIAccessible::get_accRole ( VARIANT varID, VARIANT* pVarRole) | |
1198 | { | |
1199 | wxLogTrace(wxT("access"), wxT("get_accRole")); | |
1200 | wxASSERT (m_pAccessible != NULL); | |
1201 | if (!m_pAccessible) | |
1202 | return E_FAIL; | |
1203 | ||
1204 | if (varID.vt != VT_I4) | |
1205 | { | |
1206 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accRole")); | |
1207 | return E_INVALIDARG; | |
1208 | } | |
1209 | ||
1210 | VariantInit(pVarRole); | |
1211 | ||
1212 | wxAccRole role = wxROLE_NONE; | |
1213 | ||
1214 | wxAccStatus status = m_pAccessible->GetRole(varID.lVal, & role); | |
1215 | ||
1216 | if (status == wxACC_FAIL) | |
1217 | return E_FAIL; | |
1218 | ||
1219 | if (status == wxACC_NOT_IMPLEMENTED) | |
1220 | { | |
1221 | // Try to use child object directly. | |
1222 | if (varID.lVal > 0) | |
1223 | { | |
1224 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1225 | if (childAccessible) | |
1226 | { | |
1227 | varID.lVal = 0; | |
1228 | HRESULT hResult = childAccessible->get_accRole(varID, pVarRole); | |
1229 | childAccessible->Release(); | |
1230 | return hResult; | |
1231 | } | |
1232 | else if (m_pAccessible->GetIAccessibleStd()) | |
1233 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accRole(varID, pVarRole); | |
1234 | } | |
1235 | else if (m_pAccessible->GetIAccessibleStd()) | |
1236 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accRole (varID, pVarRole); | |
1237 | } | |
1238 | else | |
1239 | { | |
1240 | if (role == wxROLE_NONE) | |
1241 | { | |
1242 | pVarRole->vt = VT_EMPTY; | |
1243 | return S_OK; | |
1244 | } | |
1245 | ||
1246 | pVarRole->lVal = wxConvertToWindowsRole(role); | |
1247 | pVarRole->vt = VT_I4; | |
1248 | ||
1249 | return S_OK; | |
1250 | } | |
1251 | return E_NOTIMPL; | |
1252 | } | |
1253 | ||
1254 | // Retrieves the current state of the specified object. | |
1255 | // All objects support this property. | |
1256 | ||
1257 | STDMETHODIMP wxIAccessible::get_accState ( VARIANT varID, VARIANT* pVarState) | |
1258 | { | |
1259 | wxLogTrace(wxT("access"), wxT("get_accState")); | |
1260 | wxASSERT (m_pAccessible != NULL); | |
1261 | if (!m_pAccessible) | |
1262 | return E_FAIL; | |
1263 | ||
1264 | if (varID.vt != VT_I4 && varID.vt != VT_EMPTY) | |
1265 | { | |
1266 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accState")); | |
1267 | return E_INVALIDARG; | |
1268 | } | |
1269 | ||
1270 | long wxstate = 0; | |
1271 | ||
1272 | wxAccStatus status = m_pAccessible->GetState(varID.lVal, & wxstate); | |
1273 | if (status == wxACC_FAIL) | |
1274 | return E_FAIL; | |
1275 | ||
1276 | if (status == wxACC_NOT_IMPLEMENTED) | |
1277 | { | |
1278 | // Try to use child object directly. | |
1279 | if (varID.lVal > 0) | |
1280 | { | |
1281 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1282 | if (childAccessible) | |
1283 | { | |
1284 | varID.lVal = 0; | |
1285 | HRESULT hResult = childAccessible->get_accState(varID, pVarState); | |
1286 | childAccessible->Release(); | |
1287 | return hResult; | |
1288 | } | |
1289 | else if (m_pAccessible->GetIAccessibleStd()) | |
1290 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accState(varID, pVarState); | |
1291 | } | |
1292 | else if (m_pAccessible->GetIAccessibleStd()) | |
1293 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accState (varID, pVarState); | |
1294 | } | |
1295 | else | |
1296 | { | |
1297 | long state = wxConvertToWindowsState(wxstate); | |
1298 | pVarState->lVal = state; | |
1299 | pVarState->vt = VT_I4; | |
1300 | return S_OK; | |
1301 | } | |
1302 | return E_NOTIMPL; | |
1303 | } | |
1304 | ||
1305 | // Retrieves the value of the specified object. | |
1306 | // Not all objects have a value. | |
1307 | ||
1308 | STDMETHODIMP wxIAccessible::get_accValue ( VARIANT varID, BSTR* pszValue) | |
1309 | { | |
1310 | wxLogTrace(wxT("access"), wxT("get_accValue")); | |
1311 | wxASSERT (m_pAccessible != NULL); | |
1312 | if (!m_pAccessible) | |
1313 | return E_FAIL; | |
1314 | ||
1315 | if (varID.vt != VT_I4) | |
1316 | { | |
1317 | wxLogTrace(wxT("access"), wxT("Invalid arg for get_accValue")); | |
1318 | return E_INVALIDARG; | |
1319 | } | |
1320 | ||
1321 | wxString strValue; | |
1322 | ||
1323 | wxAccStatus status = m_pAccessible->GetValue(varID.lVal, & strValue); | |
1324 | ||
1325 | if (status == wxACC_FAIL) | |
1326 | return E_FAIL; | |
1327 | ||
1328 | if (status == wxACC_NOT_IMPLEMENTED) | |
1329 | { | |
1330 | // Try to use child object directly. | |
1331 | if (varID.lVal > 0) | |
1332 | { | |
1333 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1334 | if (childAccessible) | |
1335 | { | |
1336 | varID.lVal = 0; | |
1337 | HRESULT hResult = childAccessible->get_accValue(varID, pszValue); | |
1338 | childAccessible->Release(); | |
1339 | return hResult; | |
1340 | } | |
1341 | else if (m_pAccessible->GetIAccessibleStd()) | |
1342 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accValue(varID, pszValue); | |
1343 | } | |
1344 | else if (m_pAccessible->GetIAccessibleStd()) | |
1345 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->get_accValue (varID, pszValue); | |
1346 | } | |
1347 | else | |
1348 | { | |
1349 | wxBasicString basicString(strValue); | |
1350 | * pszValue = basicString.Get(); | |
1351 | return S_OK; | |
1352 | } | |
1353 | return E_NOTIMPL; | |
1354 | } | |
1355 | ||
1356 | // Modifies the selection or moves the keyboard focus of the | |
1357 | // specified object. All objects that select or receive the | |
1358 | // keyboard focus must support this method. | |
1359 | ||
1360 | STDMETHODIMP wxIAccessible::accSelect ( long flagsSelect, VARIANT varID ) | |
1361 | { | |
1362 | wxLogTrace(wxT("access"), wxT("get_accSelect")); | |
1363 | wxASSERT (m_pAccessible != NULL); | |
1364 | if (!m_pAccessible) | |
1365 | return E_FAIL; | |
1366 | ||
1367 | if (varID.vt != VT_I4 && varID.vt != VT_EMPTY) | |
1368 | { | |
1369 | wxLogTrace(wxT("access"), wxT("Invalid arg for accSelect")); | |
1370 | return E_INVALIDARG; | |
1371 | } | |
1372 | ||
1373 | wxAccSelectionFlags wxsel = wxConvertFromWindowsSelFlag(flagsSelect); | |
1374 | ||
1375 | wxAccStatus status = m_pAccessible->Select(varID.lVal, wxsel); | |
1376 | if (status == wxACC_FAIL) | |
1377 | return E_FAIL; | |
1378 | ||
1379 | if (status == wxACC_NOT_IMPLEMENTED) | |
1380 | { | |
1381 | // Try to use child object directly. | |
1382 | if (varID.lVal > 0 && varID.lVal > 0) | |
1383 | { | |
1384 | IAccessible* childAccessible = GetChildAccessible(varID.lVal); | |
1385 | if (childAccessible) | |
1386 | { | |
1387 | varID.lVal = 0; | |
1388 | HRESULT hResult = childAccessible->accSelect(flagsSelect, varID); | |
1389 | childAccessible->Release(); | |
1390 | return hResult; | |
1391 | } | |
1392 | else if (m_pAccessible->GetIAccessibleStd()) | |
1393 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accSelect(flagsSelect, varID); | |
1394 | } | |
1395 | else if (m_pAccessible->GetIAccessibleStd()) | |
1396 | return ((IAccessible*) m_pAccessible->GetIAccessibleStd())->accSelect(flagsSelect, varID); | |
1397 | } | |
1398 | else | |
1399 | return S_OK; | |
1400 | ||
1401 | return E_NOTIMPL; | |
1402 | } | |
1403 | ||
1404 | // Retrieves the object that has the keyboard focus. All objects | |
1405 | // that receive the keyboard focus must support this property. | |
1406 | ||
1407 | STDMETHODIMP wxIAccessible::get_accFocus ( VARIANT* pVarID) | |
1408 | { | |
1409 | wxLogTrace(wxT("access"), wxT("get_accFocus")); | |
1410 | wxASSERT (m_pAccessible != NULL); | |
1411 | if (!m_pAccessible) | |
1412 | return E_FAIL; | |
1413 | ||
1414 | wxAccessible* childObject = NULL; | |
1415 | int childId = 0; | |
1416 | VariantInit(pVarID); | |
1417 | ||
1418 | wxAccStatus status = m_pAccessible->GetFocus(& childId, & childObject); | |
1419 | if (status == wxACC_FAIL) | |
1420 | return E_FAIL; | |
1421 | ||
1422 | if (status == wxACC_NOT_IMPLEMENTED) | |
1423 | { | |
1424 | // Use standard interface instead. | |
1425 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
1426 | if (!stdInterface) | |
1427 | return E_NOTIMPL; | |
1428 | else | |
1429 | return stdInterface->get_accFocus (pVarID); | |
1430 | } | |
1431 | if (childObject) | |
1432 | { | |
1433 | if (childObject == m_pAccessible) | |
1434 | { | |
1435 | pVarID->vt = VT_I4; | |
1436 | pVarID->lVal = CHILDID_SELF; | |
1437 | return S_OK; } | |
1438 | else | |
1439 | { | |
1440 | wxIAccessible* childIA = childObject->GetIAccessible(); | |
1441 | if (!childIA) | |
1442 | return E_NOTIMPL; | |
1443 | ||
1444 | if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK) | |
1445 | return E_FAIL; | |
1446 | ||
1447 | pVarID->vt = VT_DISPATCH; | |
1448 | return S_OK; | |
1449 | } | |
1450 | } | |
1451 | else if (childId > 0) | |
1452 | { | |
1453 | pVarID->vt = VT_I4; | |
1454 | pVarID->lVal = childId; | |
1455 | return S_OK; | |
1456 | } | |
1457 | else | |
1458 | { | |
1459 | pVarID->vt = VT_EMPTY; | |
1460 | return S_FALSE; | |
1461 | } | |
1462 | ||
1463 | #if 0 | |
1464 | // all cases above already cause some return action so below line | |
1465 | // is unreachable and cause unnecessary warning | |
1466 | return E_NOTIMPL; | |
1467 | #endif | |
1468 | } | |
1469 | ||
1470 | // Retrieves the selected children of this object. All objects | |
1471 | // selected must support this property. | |
1472 | ||
1473 | STDMETHODIMP wxIAccessible::get_accSelection ( VARIANT * pVarChildren) | |
1474 | { | |
1475 | #if wxUSE_VARIANT | |
1476 | wxLogTrace(wxT("access"), wxT("get_accSelection")); | |
1477 | wxASSERT (m_pAccessible != NULL); | |
1478 | if (!m_pAccessible) | |
1479 | return E_FAIL; | |
1480 | ||
1481 | VariantInit(pVarChildren); | |
1482 | ||
1483 | wxVariant selections; | |
1484 | wxAccStatus status = m_pAccessible->GetSelections(& selections); | |
1485 | if (status == wxACC_FAIL) | |
1486 | return E_FAIL; | |
1487 | ||
1488 | if (status == wxACC_NOT_IMPLEMENTED) | |
1489 | { | |
1490 | // Use standard interface instead. | |
1491 | IAccessible* stdInterface = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
1492 | if (!stdInterface) | |
1493 | return E_NOTIMPL; | |
1494 | else | |
1495 | return stdInterface->get_accSelection (pVarChildren); | |
1496 | } | |
1497 | else | |
1498 | { | |
1499 | if (selections.GetType() == wxT("long")) | |
1500 | { | |
1501 | pVarChildren->vt = VT_I4; | |
1502 | pVarChildren->lVal = selections.GetLong(); | |
1503 | ||
1504 | return S_OK; | |
1505 | } | |
1506 | else if (selections.GetType() == wxT("void*")) | |
1507 | { | |
1508 | wxAccessible* childObject = (wxAccessible*) selections.GetVoidPtr(); | |
1509 | wxIAccessible* childIA = childObject->GetIAccessible(); | |
1510 | if (!childIA) | |
1511 | return E_NOTIMPL; | |
1512 | ||
1513 | if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarChildren->pdispVal) != S_OK) | |
1514 | return E_FAIL; | |
1515 | ||
1516 | pVarChildren->vt = VT_DISPATCH; | |
1517 | ||
1518 | return S_OK; | |
1519 | } | |
1520 | else if (selections.GetType() == wxT("list")) | |
1521 | { | |
1522 | // TODO: should we AddRef for every "void*" member?? | |
1523 | ||
1524 | wxIEnumVARIANT* enumVariant = new wxIEnumVARIANT(selections); | |
1525 | enumVariant->AddRef(); | |
1526 | ||
1527 | pVarChildren->vt = VT_UNKNOWN; | |
1528 | pVarChildren->punkVal = enumVariant; | |
1529 | ||
1530 | return S_OK; | |
1531 | } | |
1532 | } | |
1533 | #else | |
1534 | wxUnusedVar(pVarChildren); | |
1535 | #endif // wxUSE_VARIANT | |
1536 | ||
1537 | return E_NOTIMPL; | |
1538 | } | |
1539 | ||
1540 | // Get type info | |
1541 | ||
1542 | STDMETHODIMP wxIAccessible::GetTypeInfo(unsigned int WXUNUSED(typeInfo), LCID WXUNUSED(lcid), ITypeInfo** ppTypeInfo) | |
1543 | { | |
1544 | *ppTypeInfo = NULL; | |
1545 | return E_NOTIMPL; | |
1546 | } | |
1547 | ||
1548 | // Get type info count | |
1549 | ||
1550 | STDMETHODIMP wxIAccessible::GetTypeInfoCount(unsigned int* typeInfoCount) | |
1551 | { | |
1552 | *typeInfoCount = 0; | |
1553 | return E_NOTIMPL; | |
1554 | } | |
1555 | ||
1556 | // Get ids of names | |
1557 | ||
1558 | STDMETHODIMP wxIAccessible::GetIDsOfNames(REFIID WXUNUSED(riid), OLECHAR** WXUNUSED(names), unsigned int WXUNUSED(cNames), | |
1559 | LCID WXUNUSED(lcid), DISPID* WXUNUSED(dispId)) | |
1560 | { | |
1561 | return E_NOTIMPL; | |
1562 | } | |
1563 | ||
1564 | // Invoke | |
1565 | ||
1566 | STDMETHODIMP wxIAccessible::Invoke(DISPID WXUNUSED(dispIdMember), REFIID WXUNUSED(riid), LCID WXUNUSED(lcid), | |
1567 | WORD WXUNUSED(wFlags), DISPPARAMS *WXUNUSED(pDispParams), | |
1568 | VARIANT *WXUNUSED(pVarResult), EXCEPINFO *WXUNUSED(pExcepInfo), | |
1569 | unsigned int *WXUNUSED(puArgErr) ) | |
1570 | { | |
1571 | return E_NOTIMPL; | |
1572 | } | |
1573 | ||
1574 | // Gets the standard IAccessible interface for the given child or object. | |
1575 | // Call Release if this is non-NULL. | |
1576 | IAccessible* wxIAccessible::GetChildStdAccessible(int id) | |
1577 | { | |
1578 | if (id == 0) | |
1579 | { | |
1580 | IAccessible* obj = (IAccessible*)m_pAccessible->GetIAccessibleStd(); | |
1581 | ||
1582 | obj->AddRef(); | |
1583 | return obj; | |
1584 | } | |
1585 | else | |
1586 | { | |
1587 | VARIANT var; | |
1588 | VariantInit(& var); | |
1589 | var.vt = VT_I4; | |
1590 | var.lVal = id; | |
1591 | IDispatch* pDispatch = NULL; | |
1592 | if (S_OK == get_accChild ( var, & pDispatch)) | |
1593 | { | |
1594 | IAccessible* childAccessible = NULL; | |
1595 | if (pDispatch->QueryInterface(IID_IAccessible, (LPVOID*) & childAccessible) == S_OK) | |
1596 | { | |
1597 | pDispatch->Release(); | |
1598 | wxIAccessible* c = (wxIAccessible*) childAccessible; | |
1599 | IAccessible* stdChildAccessible = (IAccessible*) c->m_pAccessible->GetIAccessibleStd(); | |
1600 | stdChildAccessible->AddRef(); | |
1601 | childAccessible->Release(); | |
1602 | return stdChildAccessible; | |
1603 | } | |
1604 | else | |
1605 | { | |
1606 | pDispatch->Release(); | |
1607 | } | |
1608 | } | |
1609 | } | |
1610 | ||
1611 | #if 0 | |
1612 | { | |
1613 | // Loop until we find the right id | |
1614 | long nChildren = 0; | |
1615 | this->get_accChildCount(& nChildren); | |
1616 | ||
1617 | int i; | |
1618 | for (i = 0; i < nChildren; i++) | |
1619 | { | |
1620 | long obtained = 0; | |
1621 | VARIANT var; | |
1622 | VariantInit(& var); | |
1623 | var.vt = VT_I4; | |
1624 | if (S_OK == AccessibleChildren(this, i, 1, & var, &obtained)) | |
1625 | { | |
1626 | if (var.lVal == id) | |
1627 | { | |
1628 | VariantInit(& var); | |
1629 | var.vt = VT_DISPATCH; | |
1630 | if (S_OK == AccessibleChildren(this, i, 1, & var, &obtained)) | |
1631 | { | |
1632 | IAccessible* childAccessible = NULL; | |
1633 | if (var.pdispVal->QueryInterface(IID_IAccessible, (LPVOID*) & childAccessible) == S_OK) | |
1634 | { | |
1635 | var.pdispVal->Release(); | |
1636 | return childAccessible; | |
1637 | } | |
1638 | else | |
1639 | { | |
1640 | var.pdispVal->Release(); | |
1641 | } | |
1642 | } | |
1643 | } | |
1644 | break; | |
1645 | } | |
1646 | } | |
1647 | } | |
1648 | #endif | |
1649 | return NULL; | |
1650 | } | |
1651 | ||
1652 | // Gets the IAccessible interface for the given child or object. | |
1653 | // Call Release if this is non-NULL. | |
1654 | IAccessible* wxIAccessible::GetChildAccessible(int id) | |
1655 | { | |
1656 | if (id == 0) | |
1657 | { | |
1658 | IAccessible* obj = this; | |
1659 | ||
1660 | obj->AddRef(); | |
1661 | return obj; | |
1662 | } | |
1663 | else | |
1664 | { | |
1665 | VARIANT var; | |
1666 | VariantInit(& var); | |
1667 | var.vt = VT_I4; | |
1668 | var.lVal = id; | |
1669 | IDispatch* pDispatch = NULL; | |
1670 | if (S_OK == get_accChild ( var, & pDispatch)) | |
1671 | { | |
1672 | IAccessible* childAccessible = NULL; | |
1673 | if (pDispatch->QueryInterface(IID_IAccessible, (LPVOID*) & childAccessible) == S_OK) | |
1674 | { | |
1675 | pDispatch->Release(); | |
1676 | return childAccessible; | |
1677 | } | |
1678 | else | |
1679 | { | |
1680 | pDispatch->Release(); | |
1681 | } | |
1682 | } | |
1683 | } | |
1684 | return NULL; | |
1685 | } | |
1686 | ||
1687 | // ---------------------------------------------------------------------------- | |
1688 | // wxAccessible implementation | |
1689 | // ---------------------------------------------------------------------------- | |
1690 | ||
1691 | // ctors | |
1692 | ||
1693 | // common part of all ctors | |
1694 | void wxAccessible::Init() | |
1695 | { | |
1696 | m_pIAccessibleStd = NULL; | |
1697 | m_pIAccessible = new wxIAccessible(this); | |
1698 | m_pIAccessible->AddRef(); | |
1699 | } | |
1700 | ||
1701 | wxAccessible::wxAccessible(wxWindow* win) | |
1702 | : wxAccessibleBase(win) | |
1703 | { | |
1704 | Init(); | |
1705 | } | |
1706 | ||
1707 | wxAccessible::~wxAccessible() | |
1708 | { | |
1709 | m_pIAccessible->Release(); | |
1710 | if (m_pIAccessibleStd) | |
1711 | ((IAccessible*)m_pIAccessibleStd)->Release(); | |
1712 | } | |
1713 | ||
1714 | // Gets or creates a standard interface for this object. | |
1715 | void* wxAccessible::GetIAccessibleStd() | |
1716 | { | |
1717 | if (m_pIAccessibleStd) | |
1718 | return m_pIAccessibleStd; | |
1719 | ||
1720 | if (GetWindow()) | |
1721 | { | |
1722 | HRESULT retCode = ::CreateStdAccessibleObject((HWND) GetWindow()->GetHWND(), | |
1723 | OBJID_CLIENT, IID_IAccessible, (void**) & m_pIAccessibleStd); | |
1724 | if (retCode == S_OK) | |
1725 | return m_pIAccessibleStd; | |
1726 | else | |
1727 | { | |
1728 | m_pIAccessibleStd = NULL; | |
1729 | return NULL; | |
1730 | } | |
1731 | } | |
1732 | return NULL; | |
1733 | } | |
1734 | ||
1735 | // Sends an event when something changes in an accessible object. | |
1736 | void wxAccessible::NotifyEvent(int eventType, wxWindow* window, wxAccObject objectType, | |
1737 | int objectId) | |
1738 | { | |
1739 | ::NotifyWinEvent((DWORD) eventType, (HWND) window->GetHWND(), | |
1740 | (LONG) objectType, (LONG) objectId); | |
1741 | } | |
1742 | ||
1743 | // Utilities | |
1744 | ||
1745 | // Convert to Windows role | |
1746 | int wxConvertToWindowsRole(wxAccRole wxrole) | |
1747 | { | |
1748 | switch (wxrole) | |
1749 | { | |
1750 | case wxROLE_NONE: | |
1751 | return 0; | |
1752 | case wxROLE_SYSTEM_ALERT: | |
1753 | return ROLE_SYSTEM_ALERT; | |
1754 | case wxROLE_SYSTEM_ANIMATION: | |
1755 | return ROLE_SYSTEM_ANIMATION; | |
1756 | case wxROLE_SYSTEM_APPLICATION: | |
1757 | return ROLE_SYSTEM_APPLICATION; | |
1758 | case wxROLE_SYSTEM_BORDER: | |
1759 | return ROLE_SYSTEM_BORDER; | |
1760 | case wxROLE_SYSTEM_BUTTONDROPDOWN: | |
1761 | return ROLE_SYSTEM_BUTTONDROPDOWN; | |
1762 | case wxROLE_SYSTEM_BUTTONDROPDOWNGRID: | |
1763 | return ROLE_SYSTEM_BUTTONDROPDOWNGRID; | |
1764 | case wxROLE_SYSTEM_BUTTONMENU: | |
1765 | return ROLE_SYSTEM_BUTTONMENU; | |
1766 | case wxROLE_SYSTEM_CARET: | |
1767 | return ROLE_SYSTEM_CARET; | |
1768 | case wxROLE_SYSTEM_CELL: | |
1769 | return ROLE_SYSTEM_CELL; | |
1770 | case wxROLE_SYSTEM_CHARACTER: | |
1771 | return ROLE_SYSTEM_CHARACTER; | |
1772 | case wxROLE_SYSTEM_CHART: | |
1773 | return ROLE_SYSTEM_CHART; | |
1774 | case wxROLE_SYSTEM_CHECKBUTTON: | |
1775 | return ROLE_SYSTEM_CHECKBUTTON; | |
1776 | case wxROLE_SYSTEM_CLIENT: | |
1777 | return ROLE_SYSTEM_CLIENT; | |
1778 | case wxROLE_SYSTEM_CLOCK: | |
1779 | return ROLE_SYSTEM_CLOCK; | |
1780 | case wxROLE_SYSTEM_COLUMN: | |
1781 | return ROLE_SYSTEM_COLUMN; | |
1782 | case wxROLE_SYSTEM_COLUMNHEADER: | |
1783 | return ROLE_SYSTEM_COLUMNHEADER; | |
1784 | case wxROLE_SYSTEM_COMBOBOX: | |
1785 | return ROLE_SYSTEM_COMBOBOX; | |
1786 | case wxROLE_SYSTEM_CURSOR: | |
1787 | return ROLE_SYSTEM_CURSOR; | |
1788 | case wxROLE_SYSTEM_DIAGRAM: | |
1789 | return ROLE_SYSTEM_DIAGRAM; | |
1790 | case wxROLE_SYSTEM_DIAL: | |
1791 | return ROLE_SYSTEM_DIAL; | |
1792 | case wxROLE_SYSTEM_DIALOG: | |
1793 | return ROLE_SYSTEM_DIALOG; | |
1794 | case wxROLE_SYSTEM_DOCUMENT: | |
1795 | return ROLE_SYSTEM_DOCUMENT; | |
1796 | case wxROLE_SYSTEM_DROPLIST: | |
1797 | return ROLE_SYSTEM_DROPLIST; | |
1798 | case wxROLE_SYSTEM_EQUATION: | |
1799 | return ROLE_SYSTEM_EQUATION; | |
1800 | case wxROLE_SYSTEM_GRAPHIC: | |
1801 | return ROLE_SYSTEM_GRAPHIC; | |
1802 | case wxROLE_SYSTEM_GRIP: | |
1803 | return ROLE_SYSTEM_GRIP; | |
1804 | case wxROLE_SYSTEM_GROUPING: | |
1805 | return ROLE_SYSTEM_GROUPING; | |
1806 | case wxROLE_SYSTEM_HELPBALLOON: | |
1807 | return ROLE_SYSTEM_HELPBALLOON; | |
1808 | case wxROLE_SYSTEM_HOTKEYFIELD: | |
1809 | return ROLE_SYSTEM_HOTKEYFIELD; | |
1810 | case wxROLE_SYSTEM_INDICATOR: | |
1811 | return ROLE_SYSTEM_INDICATOR; | |
1812 | case wxROLE_SYSTEM_LINK: | |
1813 | return ROLE_SYSTEM_LINK; | |
1814 | case wxROLE_SYSTEM_LIST: | |
1815 | return ROLE_SYSTEM_LIST; | |
1816 | case wxROLE_SYSTEM_LISTITEM: | |
1817 | return ROLE_SYSTEM_LISTITEM; | |
1818 | case wxROLE_SYSTEM_MENUBAR: | |
1819 | return ROLE_SYSTEM_MENUBAR; | |
1820 | case wxROLE_SYSTEM_MENUITEM: | |
1821 | return ROLE_SYSTEM_MENUITEM; | |
1822 | case wxROLE_SYSTEM_MENUPOPUP: | |
1823 | return ROLE_SYSTEM_MENUPOPUP; | |
1824 | case wxROLE_SYSTEM_OUTLINE: | |
1825 | return ROLE_SYSTEM_OUTLINE; | |
1826 | case wxROLE_SYSTEM_OUTLINEITEM: | |
1827 | return ROLE_SYSTEM_OUTLINEITEM; | |
1828 | case wxROLE_SYSTEM_PAGETAB: | |
1829 | return ROLE_SYSTEM_PAGETAB; | |
1830 | case wxROLE_SYSTEM_PAGETABLIST: | |
1831 | return ROLE_SYSTEM_PAGETABLIST; | |
1832 | case wxROLE_SYSTEM_PANE: | |
1833 | return ROLE_SYSTEM_PANE; | |
1834 | case wxROLE_SYSTEM_PROGRESSBAR: | |
1835 | return ROLE_SYSTEM_PROGRESSBAR; | |
1836 | case wxROLE_SYSTEM_PROPERTYPAGE: | |
1837 | return ROLE_SYSTEM_PROPERTYPAGE; | |
1838 | case wxROLE_SYSTEM_PUSHBUTTON: | |
1839 | return ROLE_SYSTEM_PUSHBUTTON; | |
1840 | case wxROLE_SYSTEM_RADIOBUTTON: | |
1841 | return ROLE_SYSTEM_RADIOBUTTON; | |
1842 | case wxROLE_SYSTEM_ROW: | |
1843 | return ROLE_SYSTEM_ROW; | |
1844 | case wxROLE_SYSTEM_ROWHEADER: | |
1845 | return ROLE_SYSTEM_ROWHEADER; | |
1846 | case wxROLE_SYSTEM_SCROLLBAR: | |
1847 | return ROLE_SYSTEM_SCROLLBAR; | |
1848 | case wxROLE_SYSTEM_SEPARATOR: | |
1849 | return ROLE_SYSTEM_SEPARATOR; | |
1850 | case wxROLE_SYSTEM_SLIDER: | |
1851 | return ROLE_SYSTEM_SLIDER; | |
1852 | case wxROLE_SYSTEM_SOUND: | |
1853 | return ROLE_SYSTEM_SOUND; | |
1854 | case wxROLE_SYSTEM_SPINBUTTON: | |
1855 | return ROLE_SYSTEM_SPINBUTTON; | |
1856 | case wxROLE_SYSTEM_STATICTEXT: | |
1857 | return ROLE_SYSTEM_STATICTEXT; | |
1858 | case wxROLE_SYSTEM_STATUSBAR: | |
1859 | return ROLE_SYSTEM_STATUSBAR; | |
1860 | case wxROLE_SYSTEM_TABLE: | |
1861 | return ROLE_SYSTEM_TABLE; | |
1862 | case wxROLE_SYSTEM_TEXT: | |
1863 | return ROLE_SYSTEM_TEXT; | |
1864 | case wxROLE_SYSTEM_TITLEBAR: | |
1865 | return ROLE_SYSTEM_TITLEBAR; | |
1866 | case wxROLE_SYSTEM_TOOLBAR: | |
1867 | return ROLE_SYSTEM_TOOLBAR; | |
1868 | case wxROLE_SYSTEM_TOOLTIP: | |
1869 | return ROLE_SYSTEM_TOOLTIP; | |
1870 | case wxROLE_SYSTEM_WHITESPACE: | |
1871 | return ROLE_SYSTEM_WHITESPACE; | |
1872 | case wxROLE_SYSTEM_WINDOW: | |
1873 | return ROLE_SYSTEM_WINDOW; | |
1874 | } | |
1875 | return 0; | |
1876 | } | |
1877 | ||
1878 | // Convert to Windows state | |
1879 | long wxConvertToWindowsState(long wxstate) | |
1880 | { | |
1881 | long state = 0; | |
1882 | if (wxstate & wxACC_STATE_SYSTEM_ALERT_HIGH) | |
1883 | state |= STATE_SYSTEM_ALERT_HIGH; | |
1884 | ||
1885 | if (wxstate & wxACC_STATE_SYSTEM_ALERT_MEDIUM) | |
1886 | state |= STATE_SYSTEM_ALERT_MEDIUM; | |
1887 | ||
1888 | if (wxstate & wxACC_STATE_SYSTEM_ALERT_LOW) | |
1889 | state |= STATE_SYSTEM_ALERT_LOW; | |
1890 | ||
1891 | if (wxstate & wxACC_STATE_SYSTEM_ANIMATED) | |
1892 | state |= STATE_SYSTEM_ANIMATED; | |
1893 | ||
1894 | if (wxstate & wxACC_STATE_SYSTEM_BUSY) | |
1895 | state |= STATE_SYSTEM_BUSY; | |
1896 | ||
1897 | if (wxstate & wxACC_STATE_SYSTEM_CHECKED) | |
1898 | state |= STATE_SYSTEM_CHECKED; | |
1899 | ||
1900 | if (wxstate & wxACC_STATE_SYSTEM_COLLAPSED) | |
1901 | state |= STATE_SYSTEM_COLLAPSED; | |
1902 | ||
1903 | if (wxstate & wxACC_STATE_SYSTEM_DEFAULT) | |
1904 | state |= STATE_SYSTEM_DEFAULT; | |
1905 | ||
1906 | if (wxstate & wxACC_STATE_SYSTEM_EXPANDED) | |
1907 | state |= STATE_SYSTEM_EXPANDED; | |
1908 | ||
1909 | if (wxstate & wxACC_STATE_SYSTEM_EXTSELECTABLE) | |
1910 | state |= STATE_SYSTEM_EXTSELECTABLE; | |
1911 | ||
1912 | if (wxstate & wxACC_STATE_SYSTEM_FLOATING) | |
1913 | state |= STATE_SYSTEM_FLOATING; | |
1914 | ||
1915 | if (wxstate & wxACC_STATE_SYSTEM_FOCUSABLE) | |
1916 | state |= STATE_SYSTEM_FOCUSABLE; | |
1917 | ||
1918 | if (wxstate & wxACC_STATE_SYSTEM_FOCUSED) | |
1919 | state |= STATE_SYSTEM_FOCUSED; | |
1920 | ||
1921 | if (wxstate & wxACC_STATE_SYSTEM_HOTTRACKED) | |
1922 | state |= STATE_SYSTEM_HOTTRACKED; | |
1923 | ||
1924 | if (wxstate & wxACC_STATE_SYSTEM_INVISIBLE) | |
1925 | state |= STATE_SYSTEM_INVISIBLE; | |
1926 | ||
1927 | if (wxstate & wxACC_STATE_SYSTEM_INVISIBLE) | |
1928 | state |= STATE_SYSTEM_INVISIBLE; | |
1929 | ||
1930 | if (wxstate & wxACC_STATE_SYSTEM_MIXED) | |
1931 | state |= STATE_SYSTEM_MIXED; | |
1932 | ||
1933 | if (wxstate & wxACC_STATE_SYSTEM_MULTISELECTABLE) | |
1934 | state |= STATE_SYSTEM_MULTISELECTABLE; | |
1935 | ||
1936 | if (wxstate & wxACC_STATE_SYSTEM_OFFSCREEN) | |
1937 | state |= STATE_SYSTEM_OFFSCREEN; | |
1938 | ||
1939 | if (wxstate & wxACC_STATE_SYSTEM_PRESSED) | |
1940 | state |= STATE_SYSTEM_PRESSED; | |
1941 | ||
1942 | // if (wxstate & wxACC_STATE_SYSTEM_PROTECTED) | |
1943 | // state |= STATE_SYSTEM_PROTECTED; | |
1944 | ||
1945 | if (wxstate & wxACC_STATE_SYSTEM_READONLY) | |
1946 | state |= STATE_SYSTEM_READONLY; | |
1947 | ||
1948 | if (wxstate & wxACC_STATE_SYSTEM_SELECTABLE) | |
1949 | state |= STATE_SYSTEM_SELECTABLE; | |
1950 | ||
1951 | if (wxstate & wxACC_STATE_SYSTEM_SELECTED) | |
1952 | state |= STATE_SYSTEM_SELECTED; | |
1953 | ||
1954 | if (wxstate & wxACC_STATE_SYSTEM_SELFVOICING) | |
1955 | state |= STATE_SYSTEM_SELFVOICING; | |
1956 | ||
1957 | if (wxstate & wxACC_STATE_SYSTEM_UNAVAILABLE) | |
1958 | state |= STATE_SYSTEM_UNAVAILABLE; | |
1959 | ||
1960 | return state; | |
1961 | } | |
1962 | ||
1963 | // Convert to Windows selection flag | |
1964 | int wxConvertToWindowsSelFlag(wxAccSelectionFlags wxsel) | |
1965 | { | |
1966 | int sel = 0; | |
1967 | ||
1968 | if (wxsel & wxACC_SEL_TAKEFOCUS) | |
1969 | sel |= SELFLAG_TAKEFOCUS; | |
1970 | if (wxsel & wxACC_SEL_TAKESELECTION) | |
1971 | sel |= SELFLAG_TAKESELECTION; | |
1972 | if (wxsel & wxACC_SEL_EXTENDSELECTION) | |
1973 | sel |= SELFLAG_EXTENDSELECTION; | |
1974 | if (wxsel & wxACC_SEL_ADDSELECTION) | |
1975 | sel |= SELFLAG_ADDSELECTION; | |
1976 | if (wxsel & wxACC_SEL_REMOVESELECTION) | |
1977 | sel |= SELFLAG_REMOVESELECTION; | |
1978 | return sel; | |
1979 | } | |
1980 | ||
1981 | // Convert from Windows selection flag | |
1982 | wxAccSelectionFlags wxConvertFromWindowsSelFlag(int sel) | |
1983 | { | |
1984 | int wxsel = 0; | |
1985 | ||
1986 | if (sel & SELFLAG_TAKEFOCUS) | |
1987 | wxsel |= wxACC_SEL_TAKEFOCUS; | |
1988 | if (sel & SELFLAG_TAKESELECTION) | |
1989 | wxsel |= wxACC_SEL_TAKESELECTION; | |
1990 | if (sel & SELFLAG_EXTENDSELECTION) | |
1991 | wxsel |= wxACC_SEL_EXTENDSELECTION; | |
1992 | if (sel & SELFLAG_ADDSELECTION) | |
1993 | wxsel |= wxACC_SEL_ADDSELECTION; | |
1994 | if (sel & SELFLAG_REMOVESELECTION) | |
1995 | wxsel |= wxACC_SEL_REMOVESELECTION; | |
1996 | return (wxAccSelectionFlags) wxsel; | |
1997 | } | |
1998 | ||
1999 | ||
2000 | #endif // wxUSE_OLE && wxUSE_ACCESSIBILITY |