///////////////////////////////////////////////////////////////////////////////
-// Name: msw/ole/access.cpp
+// Name: src/msw/ole/access.cpp
// Purpose: implementation of wxIAccessible and wxAccessible
// Author: Julian Smart
// Modified by:
// Created: 2003-02-12
// RCS-ID: $Id$
// Copyright: (c) 2003 Julian Smart
-// Licence: wxWidgets licence
+// Licence: wxWindows licence
///////////////////////////////////////////////////////////////////////////////
// ============================================================================
// headers
// ----------------------------------------------------------------------------
-#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
- #pragma implementation "access.h"
-#endif
-
// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"
#if defined(__BORLANDC__)
#pragma hdrstop
#endif
-#ifndef WX_PRECOMP
-#include "wx/window.h"
-#endif
-
-#include "wx/setup.h"
#if wxUSE_OLE && wxUSE_ACCESSIBILITY
-#include "wx/log.h"
#include "wx/access.h"
-#include "wx/msw/wrapwin.h"
+#ifndef WX_PRECOMP
+ #include "wx/msw/wrapwin.h"
+ #include "wx/window.h"
+ #include "wx/log.h"
+#endif
// for some compilers, the entire ole2.h must be included, not only oleauto.h
#if wxUSE_NORLANDER_HEADERS || defined(__WATCOMC__)
#include <oleauto.h>
#include <oleacc.h>
-#include <winable.h>
#include "wx/msw/ole/oleutils.h"
// Convert from Windows selection flag
wxAccSelectionFlags wxConvertFromWindowsSelFlag(int sel);
+#if wxUSE_VARIANT
// ----------------------------------------------------------------------------
// wxIEnumVARIANT interface implementation
// ----------------------------------------------------------------------------
wxVariant m_variant; // List of further variants
int m_nCurrent; // Current enum position
- DECLARE_NO_COPY_CLASS(wxIEnumVARIANT)
+ wxDECLARE_NO_COPY_CLASS(wxIEnumVARIANT);
};
// ----------------------------------------------------------------------------
return S_OK;
}
+#endif // wxUSE_VARIANT
// ----------------------------------------------------------------------------
// wxIAccessible implementation of IAccessible interface
public:
wxIAccessible(wxAccessible *pAccessible);
+ // Called to indicate object should prepare to be deleted.
+ void Quiesce();
+
DECLARE_IUNKNOWN_METHODS;
// IAccessible
// Navigation and Hierarchy
// Retrieves the child element or child object at a given point on the screen.
- // All visual objects support this method; sound objects do not support it.
+ // All visual objects support this method; sound objects do not support it.
STDMETHODIMP accHitTest(long xLeft, long yLeft, VARIANT* pVarID);
// Retrieves the specified object's current screen location. All visual objects must
- // support this method; sound objects do not support it.
+ // support this method; sound objects do not support it.
STDMETHODIMP accLocation ( long* pxLeft, long* pyTop, long* pcxWidth, long* pcyHeight, VARIANT varID);
// Retrieves the address of an IDispatch interface for the specified child.
// All objects must support this property.
-
+
STDMETHODIMP get_accChild ( VARIANT varChildID, IDispatch** ppDispChild);
// Retrieves the number of children that belong to this object.
// All objects must support this property.
-
+
STDMETHODIMP get_accChildCount ( long* pCountChildren);
// Retrieves the IDispatch interface of the object's parent.
// All objects support this property.
-
+
STDMETHODIMP get_accParent ( IDispatch** ppDispParent);
// Descriptive Properties and Methods
// Performs the object's default action. Not all objects have a default
// action.
-
+
STDMETHODIMP accDoDefaultAction(VARIANT varID);
// Retrieves a string that describes the object's default action.
// Not all objects have a default action.
-
+
STDMETHODIMP get_accDefaultAction ( VARIANT varID, BSTR* pszDefaultAction);
// Retrieves a string that describes the visual appearance of the specified object.
// Retrieves the full path of the WinHelp file associated with the specified
// object and the identifier of the appropriate topic within that file.
// Not all objects support this property.
-
+
STDMETHODIMP get_accHelpTopic ( BSTR* pszHelpFile, VARIANT varChild, long* pidTopic);
// Retrieves the specified object's shortcut key or access key, also known as
// the mnemonic. All objects that have a shortcut key or access key support
// this property.
-
+
STDMETHODIMP get_accKeyboardShortcut ( VARIANT varID, BSTR* pszKeyboardShortcut);
// Retrieves the name of the specified object.
// All objects support this property.
-
+
STDMETHODIMP get_accName ( VARIANT varID, BSTR* pszName);
// Retrieves information that describes the role of the specified object.
// Retrieves the current state of the specified object.
// All objects support this property.
-
+
STDMETHODIMP get_accState ( VARIANT varID, VARIANT* pVarState);
-
+
// Retrieves the value of the specified object.
// Not all objects have a value.
// Retrieves the object that has the keyboard focus. All objects
// that receive the keyboard focus must support this property.
-
+
STDMETHODIMP get_accFocus ( VARIANT* pVarID);
// Retrieves the selected children of this object. All objects
// selected must support this property.
-
+
STDMETHODIMP get_accSelection ( VARIANT * pVarChildren);
// Obsolete
- STDMETHODIMP put_accName(VARIANT varChild, BSTR szName) { return E_FAIL; }
- STDMETHODIMP put_accValue(VARIANT varChild, BSTR szName) { return E_FAIL; }
+ STDMETHODIMP put_accName(VARIANT WXUNUSED(varChild), BSTR WXUNUSED(szName)) { return E_FAIL; }
+ STDMETHODIMP put_accValue(VARIANT WXUNUSED(varChild), BSTR WXUNUSED(szName)) { return E_FAIL; }
// IDispatch
// Invoke
- STDMETHODIMP Invoke(DISPID dispIdMember, REFIID riid, LCID lcid,
- WORD wFlags, DISPPARAMS *pDispParams,
- VARIANT *pVarResult, EXCEPINFO *pExcepInfo,
+ STDMETHODIMP Invoke(DISPID dispIdMember, REFIID riid, LCID lcid,
+ WORD wFlags, DISPPARAMS *pDispParams,
+ VARIANT *pVarResult, EXCEPINFO *pExcepInfo,
unsigned int *puArgErr );
// Helpers
private:
wxAccessible *m_pAccessible; // pointer to C++ class we belong to
+ bool m_bQuiescing; // Object is to be deleted
- DECLARE_NO_COPY_CLASS(wxIAccessible)
+ wxDECLARE_NO_COPY_CLASS(wxIAccessible);
};
// ============================================================================
wxASSERT( pAccessible != NULL );
m_pAccessible = pAccessible;
+ m_bQuiescing = false;
+}
+
+// Called to indicate object should prepare to be deleted.
+
+void wxIAccessible::Quiesce()
+{
+ m_bQuiescing = true;
+ m_pAccessible = NULL;
}
// Retrieves the child element or child object at a given point on the screen.
-// All visual objects support this method; sound objects do not support it.
+// All visual objects support this method; sound objects do not support it.
STDMETHODIMP wxIAccessible::accHitTest(long xLeft, long yLeft, VARIANT* pVarID)
{
wxLogTrace(wxT("access"), wxT("accHitTest"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
wxAccessible* childObject = NULL;
int childId = 0;
VariantInit(pVarID);
-
+
wxAccStatus status = m_pAccessible->HitTest(wxPoint(xLeft, yLeft), & childId, & childObject);
-
+
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Use standard interface instead.
else
return stdInterface->accHitTest(xLeft, yLeft, pVarID);
}
-
+
if (childObject)
{
if (childObject == m_pAccessible)
if (!childIA)
return E_NOTIMPL;
- if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK)
- return E_FAIL;
-
+ if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK)
+ return E_FAIL;
+
pVarID->vt = VT_DISPATCH;
return S_OK;
}
pVarID->vt = VT_EMPTY;
return S_FALSE;
}
-
- #if 0
+
+ #if 0
// all cases above already cause some return action so below line
// is unreachable and cause unnecessary warning
return E_NOTIMPL;
}
// Retrieves the specified object's current screen location. All visual objects must
-// support this method; sound objects do not support it.
+// support this method; sound objects do not support it.
STDMETHODIMP wxIAccessible::accLocation ( long* pxLeft, long* pyTop, long* pcxWidth, long* pcyHeight, VARIANT varID)
{
wxLogTrace(wxT("access"), wxT("accLocation"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
wxRect rect;
wxAccStatus status = m_pAccessible->GetLocation(rect, varID.lVal);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
STDMETHODIMP wxIAccessible::accNavigate ( long navDir, VARIANT varStart, VARIANT* pVarEnd)
{
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
wxLogTrace(wxT("access"), wxString(wxT("accNavigate for ")) + m_pAccessible->GetWindow()->GetClassInfo()->GetClassName());
- if ((varStart.vt != VT_I4 && varStart.vt != VT_EMPTY)
+ if ((varStart.vt != VT_I4 && varStart.vt != VT_EMPTY)
#if 0
// according to MSDN and sources varStart.vt is unsigned
// so below line cause warning "Condition is always false"
wxLogTrace(wxT("access"), wxT("Invalid arg for accNavigate"));
return E_INVALIDARG;
}
-
+
wxAccessible* elementObject = NULL;
int elementId = 0;
VariantInit(pVarEnd);
}
}
wxLogTrace(wxT("access"), navStr);
-
+
wxAccStatus status = m_pAccessible->Navigate(navDirWX, varStart.lVal, & elementId,
& elementObject);
wxLogTrace(wxT("access"), wxT("wxAccessible::Navigate failed"));
return E_FAIL;
}
-
+
if (status == wxACC_FALSE)
{
wxLogTrace(wxT("access"), wxT("wxAccessible::Navigate found no object in this direction"));
return S_FALSE;
}
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
wxLogTrace(wxT("access"), wxT("Navigate not implemented"));
return E_FAIL;
}
- HRESULT hResult = objectIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarEnd->pdispVal);
+ HRESULT hResult = objectIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarEnd->pdispVal);
if (hResult != S_OK)
{
wxLogTrace(wxT("access"), wxT("QueryInterface failed"));
- return E_FAIL;
+ return E_FAIL;
}
-
+
wxLogTrace(wxT("access"), wxT("Called QueryInterface for Navigate"));
pVarEnd->vt = VT_DISPATCH;
return S_OK;
// Retrieves the address of an IDispatch interface for the specified child.
// All objects must support this property.
-
+
STDMETHODIMP wxIAccessible::get_accChild ( VARIANT varChildID, IDispatch** ppDispChild)
{
wxLogTrace(wxT("access"), wxT("get_accChild"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varChildID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accChild"));
AddRef();
return S_OK;
}
-
+
wxAccessible* child = NULL;
wxAccStatus status = m_pAccessible->GetChild(varChildID.lVal, & child);
wxLogTrace(wxT("access"), wxT("GetChild failed"));
return E_FAIL;
}
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Use standard interface instead.
if (!objectIA)
return E_NOTIMPL;
- if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispChild) != S_OK)
+ if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispChild) != S_OK)
{
wxLogTrace(wxT("access"), wxT("QueryInterface failed in get_accChild"));
- return E_FAIL;
+ return E_FAIL;
}
-
+
return S_OK;
}
else
}
}
- #if 0
+ #if 0
// all cases above already cause some return action so below line
// is unreachable and cause unnecessary warning
return E_NOTIMPL;
// Retrieves the number of children that belong to this object.
// All objects must support this property.
-
+
STDMETHODIMP wxIAccessible::get_accChildCount ( long* pCountChildren)
{
wxLogTrace(wxT("access"), wxT("get_accChildCount"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
int childCount = 0;
wxAccStatus status = m_pAccessible->GetChildCount(& childCount);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Use standard interface instead.
return S_OK;
}
- #if 0
+ #if 0
// all cases above already cause some return action so below line
// is unreachable and cause unnecessary warning
return E_NOTIMPL;
// Retrieves the IDispatch interface of the object's parent.
// All objects support this property.
-
+
STDMETHODIMP wxIAccessible::get_accParent ( IDispatch** ppDispParent)
{
wxLogTrace(wxT("access"), wxT("get_accParent"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
wxAccessible* parent = NULL;
wxAccStatus status = m_pAccessible->GetParent(& parent);
return E_FAIL;
wxLogTrace(wxT("access"), wxT("About to call QueryInterface"));
- if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispParent) != S_OK)
+ if (objectIA->QueryInterface(IID_IDispatch, (LPVOID*) ppDispParent) != S_OK)
{
wxLogTrace(wxT("access"), wxT("Failed QueryInterface"));
- return E_FAIL;
+ return E_FAIL;
}
-
+
wxLogTrace(wxT("access"), wxT("Returning S_OK for get_accParent"));
return S_OK;
}
}
}
- #if 0
+ #if 0
// all cases above already cause some return action so below line
// is unreachable and cause unnecessary warning
return E_NOTIMPL;
// Performs the object's default action. Not all objects have a default
// action.
-
+
STDMETHODIMP wxIAccessible::accDoDefaultAction(VARIANT varID)
{
wxLogTrace(wxT("access"), wxT("accDoDefaultAction"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for accDoDefaultAction"));
return E_INVALIDARG;
}
-
+
wxAccStatus status = m_pAccessible->DoDefaultAction(varID.lVal);
if (status == wxACC_FAIL)
return E_FAIL;
if (status == wxACC_NOT_SUPPORTED)
return DISP_E_MEMBERNOTFOUND;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
// Retrieves a string that describes the object's default action.
// Not all objects have a default action.
-
+
STDMETHODIMP wxIAccessible::get_accDefaultAction ( VARIANT varID, BSTR* pszDefaultAction)
{
wxLogTrace(wxT("access"), wxT("get_accDefaultAction"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accDefaultAction"));
return E_INVALIDARG;
}
-
+
wxString defaultAction;
wxAccStatus status = m_pAccessible->GetDefaultAction(varID.lVal, & defaultAction);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_SUPPORTED)
return DISP_E_MEMBERNOTFOUND;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
STDMETHODIMP wxIAccessible::get_accDescription ( VARIANT varID, BSTR* pszDescription)
{
wxLogTrace(wxT("access"), wxT("get_accDescription"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accDescription"));
return E_INVALIDARG;
}
-
+
wxString description;
wxAccStatus status = m_pAccessible->GetDescription(varID.lVal, & description);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
}
else
{
- if (description.IsEmpty())
+ if (description.empty())
{
* pszDescription = NULL;
return S_FALSE;
wxBasicString basicString(description);
* pszDescription = basicString.Get();
return S_OK;
- }
+ }
}
return E_NOTIMPL;
}
STDMETHODIMP wxIAccessible::get_accHelp ( VARIANT varID, BSTR* pszHelp)
{
wxLogTrace(wxT("access"), wxT("get_accHelp"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accHelp"));
return E_INVALIDARG;
}
-
+
wxString helpString;
wxAccStatus status = m_pAccessible->GetHelpText(varID.lVal, & helpString);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
}
else
{
- if (helpString.IsEmpty())
+ if (helpString.empty())
{
* pszHelp = NULL;
return S_FALSE;
wxBasicString basicString(helpString);
* pszHelp = basicString.Get();
return S_OK;
- }
+ }
}
return E_NOTIMPL;
}
// Not all objects support this property.
// NOTE: not supported by wxWidgets at this time. Use
// GetHelpText instead.
-
+
STDMETHODIMP wxIAccessible::get_accHelpTopic ( BSTR* pszHelpFile, VARIANT varChild, long* pidTopic)
{
wxLogTrace(wxT("access"), wxT("get_accHelpTopic"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varChild.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accHelpTopic"));
return E_INVALIDARG;
}
-
+
wxAccStatus status = wxACC_NOT_IMPLEMENTED;
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
// Retrieves the specified object's shortcut key or access key, also known as
// the mnemonic. All objects that have a shortcut key or access key support
// this property.
-
+
STDMETHODIMP wxIAccessible::get_accKeyboardShortcut ( VARIANT varID, BSTR* pszKeyboardShortcut)
{
wxLogTrace(wxT("access"), wxT("get_accKeyboardShortcut"));
*pszKeyboardShortcut = NULL;
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accKeyboardShortcut"));
return E_INVALIDARG;
}
-
+
wxString keyboardShortcut;
wxAccStatus status = m_pAccessible->GetKeyboardShortcut(varID.lVal, & keyboardShortcut);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
}
else
{
- if (keyboardShortcut.IsEmpty())
+ if (keyboardShortcut.empty())
{
* pszKeyboardShortcut = NULL;
return S_FALSE;
wxBasicString basicString(keyboardShortcut);
* pszKeyboardShortcut = basicString.Get();
return S_OK;
- }
+ }
}
return E_NOTIMPL;
}
// Retrieves the name of the specified object.
// All objects support this property.
-
+
STDMETHODIMP wxIAccessible::get_accName ( VARIANT varID, BSTR* pszName)
{
wxLogTrace(wxT("access"), wxT("get_accName"));
*pszName = NULL;
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accName"));
return E_INVALIDARG;
}
-
+
wxString name;
-
+
wxAccStatus status = m_pAccessible->GetName(varID.lVal, & name);
-
+
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
STDMETHODIMP wxIAccessible::get_accRole ( VARIANT varID, VARIANT* pVarRole)
{
wxLogTrace(wxT("access"), wxT("get_accRole"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accRole"));
return E_INVALIDARG;
}
-
+
VariantInit(pVarRole);
wxAccRole role = wxROLE_NONE;
-
+
wxAccStatus status = m_pAccessible->GetRole(varID.lVal, & role);
-
+
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
// Retrieves the current state of the specified object.
// All objects support this property.
-
+
STDMETHODIMP wxIAccessible::get_accState ( VARIANT varID, VARIANT* pVarState)
{
wxLogTrace(wxT("access"), wxT("get_accState"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4 && varID.vt != VT_EMPTY)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accState"));
}
long wxstate = 0;
-
+
wxAccStatus status = m_pAccessible->GetState(varID.lVal, & wxstate);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
}
return E_NOTIMPL;
}
-
+
// Retrieves the value of the specified object.
// Not all objects have a value.
STDMETHODIMP wxIAccessible::get_accValue ( VARIANT varID, BSTR* pszValue)
{
wxLogTrace(wxT("access"), wxT("get_accValue"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for get_accValue"));
return E_INVALIDARG;
}
-
+
wxString strValue;
-
+
wxAccStatus status = m_pAccessible->GetValue(varID.lVal, & strValue);
-
+
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
STDMETHODIMP wxIAccessible::accSelect ( long flagsSelect, VARIANT varID )
{
wxLogTrace(wxT("access"), wxT("get_accSelect"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
if (varID.vt != VT_I4 && varID.vt != VT_EMPTY)
{
wxLogTrace(wxT("access"), wxT("Invalid arg for accSelect"));
return E_INVALIDARG;
}
-
+
wxAccSelectionFlags wxsel = wxConvertFromWindowsSelFlag(flagsSelect);
wxAccStatus status = m_pAccessible->Select(varID.lVal, wxsel);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Try to use child object directly.
// Retrieves the object that has the keyboard focus. All objects
// that receive the keyboard focus must support this property.
-
+
STDMETHODIMP wxIAccessible::get_accFocus ( VARIANT* pVarID)
{
wxLogTrace(wxT("access"), wxT("get_accFocus"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
-
+
wxAccessible* childObject = NULL;
int childId = 0;
VariantInit(pVarID);
-
+
wxAccStatus status = m_pAccessible->GetFocus(& childId, & childObject);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Use standard interface instead.
if (!childIA)
return E_NOTIMPL;
- if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK)
- return E_FAIL;
-
+ if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarID->pdispVal) != S_OK)
+ return E_FAIL;
+
pVarID->vt = VT_DISPATCH;
return S_OK;
}
pVarID->vt = VT_EMPTY;
return S_FALSE;
}
-
- #if 0
+
+ #if 0
// all cases above already cause some return action so below line
// is unreachable and cause unnecessary warning
return E_NOTIMPL;
// Retrieves the selected children of this object. All objects
// selected must support this property.
-
+
STDMETHODIMP wxIAccessible::get_accSelection ( VARIANT * pVarChildren)
{
+#if wxUSE_VARIANT
wxLogTrace(wxT("access"), wxT("get_accSelection"));
- wxASSERT (m_pAccessible != NULL);
+ wxASSERT( ( m_pAccessible != NULL ) || ( m_bQuiescing == true ) );
if (!m_pAccessible)
return E_FAIL;
VariantInit(pVarChildren);
-
+
wxVariant selections;
wxAccStatus status = m_pAccessible->GetSelections(& selections);
if (status == wxACC_FAIL)
return E_FAIL;
-
+
if (status == wxACC_NOT_IMPLEMENTED)
{
// Use standard interface instead.
if (!childIA)
return E_NOTIMPL;
- if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarChildren->pdispVal) != S_OK)
- return E_FAIL;
-
+ if (childIA->QueryInterface(IID_IDispatch, (LPVOID*) & pVarChildren->pdispVal) != S_OK)
+ return E_FAIL;
+
pVarChildren->vt = VT_DISPATCH;
return S_OK;
return S_OK;
}
}
+#else
+ wxUnusedVar(pVarChildren);
+#endif // wxUSE_VARIANT
return E_NOTIMPL;
}
// Invoke
-STDMETHODIMP wxIAccessible::Invoke(DISPID WXUNUSED(dispIdMember), REFIID WXUNUSED(riid), LCID WXUNUSED(lcid),
- WORD WXUNUSED(wFlags), DISPPARAMS *WXUNUSED(pDispParams),
- VARIANT *WXUNUSED(pVarResult), EXCEPINFO *WXUNUSED(pExcepInfo),
+STDMETHODIMP wxIAccessible::Invoke(DISPID WXUNUSED(dispIdMember), REFIID WXUNUSED(riid), LCID WXUNUSED(lcid),
+ WORD WXUNUSED(wFlags), DISPPARAMS *WXUNUSED(pDispParams),
+ VARIANT *WXUNUSED(pVarResult), EXCEPINFO *WXUNUSED(pExcepInfo),
unsigned int *WXUNUSED(puArgErr) )
{
return E_NOTIMPL;
else
{
pDispatch->Release();
- }
+ }
}
}
else
{
var.pdispVal->Release();
- }
+ }
}
}
break;
else
{
pDispatch->Release();
- }
+ }
}
}
return NULL;
wxAccessible::~wxAccessible()
{
+ m_pIAccessible->Quiesce();
m_pIAccessible->Release();
if (m_pIAccessibleStd)
((IAccessible*)m_pIAccessibleStd)->Release();
{
switch (wxrole)
{
+ case wxROLE_NONE:
+ return 0;
case wxROLE_SYSTEM_ALERT:
return ROLE_SYSTEM_ALERT;
case wxROLE_SYSTEM_ANIMATION:
}
-#endif //USE_ACCESSIBILITY
+#endif // wxUSE_OLE && wxUSE_ACCESSIBILITY
projects / wxWidgets.git / blobdiff