+
+void MyFrame::OnQuery(wxCommandEvent& WXUNUSED(event))
+{
+ m_textCtrl->Clear();
+ IAccessible* accessibleFrame = NULL;
+ if (S_OK != AccessibleObjectFromWindow((HWND) GetHWND(), OBJID_CLIENT,
+ IID_IAccessible, (void**) & accessibleFrame))
+ {
+ Log(wxT("Could not get object."));
+ return;
+ }
+ if (accessibleFrame)
+ {
+ //Log(wxT("Got an IAccessible for the frame."));
+ LogObject(0, accessibleFrame);
+ Log(wxT("Checking children using AccessibleChildren()..."));
+
+ // Now check the AccessibleChildren function works OK
+ long childCount = 0;
+ if (S_OK != accessibleFrame->get_accChildCount(& childCount))
+ {
+ Log(wxT("Could not get number of children."));
+ accessibleFrame->Release();
+ return;
+ }
+ else if (childCount == 0)
+ {
+ Log(wxT("No children."));
+ accessibleFrame->Release();
+ return;
+ }
+
+
+ long obtained = 0;
+ VARIANT *var = new VARIANT[childCount];
+ int i;
+ for (i = 0; i < childCount; i++)
+ {
+ VariantInit(& (var[i]));
+ var[i].vt = VT_DISPATCH;
+ }
+
+ if (S_OK == AccessibleChildren(accessibleFrame, 0, childCount, var, &obtained))
+ {
+ for (i = 0; i < childCount; i++)
+ {
+ IAccessible* childAccessible = NULL;
+ if (var[i].pdispVal)
+ {
+ if (var[i].pdispVal->QueryInterface(IID_IAccessible, (LPVOID*) & childAccessible) == S_OK)
+ {
+ var[i].pdispVal->Release();
+
+ wxString name, role;
+ GetInfo(childAccessible, 0, name, role);
+ wxString str;
+ str.Printf(wxT("Found child %s/%s"), name.c_str(), role.c_str());
+ Log(str);
+ childAccessible->Release();
+ }
+ else
+ {
+ var[i].pdispVal->Release();
+ }
+ }
+ }
+ }
+ else
+ {
+ Log(wxT("AccessibleChildren failed."));
+ }
+ delete[] var;
+
+
+ accessibleFrame->Release();
+ }
+}
+
+// Log messages to the text control
+void MyFrame::Log(const wxString& text)
+{
+ if (m_textCtrl)
+ {
+ wxString text2(text);
+ text2.Replace(wxT("\n"), wxT(" "));
+ text2.Replace(wxT("\r"), wxT(" "));
+ m_textCtrl->SetInsertionPointEnd();
+ m_textCtrl->WriteText(text2 + wxT("\n"));
+ }
+}
+
+// Recursively give information about an object
+void MyFrame::LogObject(int indent, IAccessible* obj)
+{
+ wxString name, role;
+ if (indent == 0)
+ {
+ GetInfo(obj, 0, name, role);
+
+ wxString str;
+ str.Printf(wxT("Name = %s; Role = %s"), name.c_str(), role.c_str());
+ str.Pad(indent, wxT(' '), false);
+ Log(str);
+ }
+
+ long childCount = 0;
+ if (S_OK == obj->get_accChildCount(& childCount))
+ {
+ wxString str;
+ str.Printf(wxT("There are %d children."), (int) childCount);
+ str.Pad(indent, wxT(' '), false);
+ Log(str);
+ Log(wxT(""));
+ }
+
+ int i;
+ for (i = 1; i <= childCount; i++)
+ {
+ GetInfo(obj, i, name, role);
+
+ wxString str;
+ str.Printf(wxT("%d) Name = %s; Role = %s"), i, name.c_str(), role.c_str());
+ str.Pad(indent, wxT(' '), false);
+ Log(str);
+
+ VARIANT var;
+ VariantInit(& var);
+ var.vt = VT_I4;
+ var.lVal = i;
+ IDispatch* pDisp = NULL;
+ IAccessible* childObject = NULL;
+
+ if (S_OK == obj->get_accChild(var, & pDisp) && pDisp)
+ {
+ wxString str;
+ str.Printf(wxT("This is a real object."));
+ str.Pad(indent+4, wxT(' '), false);
+ Log(str);
+
+ if (pDisp->QueryInterface(IID_IAccessible, (LPVOID*) & childObject) == S_OK)
+ {
+ LogObject(indent + 4, childObject);
+ childObject->Release();
+ }
+ pDisp->Release();
+ }
+ else
+ {
+ wxString str;
+ str.Printf(wxT("This is an element."));
+ str.Pad(indent+4, wxT(' '), false);
+ Log(str);
+ }
+ // Log(wxT(""));
+ }
+
+}
+
+// Get info for a child (id > 0) or object (id == 0)
+void MyFrame::GetInfo(IAccessible* accessible, int id, wxString& name, wxString& role)
+{
+ VARIANT var;
+ VariantInit(& var);
+ var.vt = VT_I4;
+ var.lVal = id;
+
+ BSTR bStrName = 0;
+ HRESULT hResult = accessible->get_accName(var, & bStrName);
+
+ if (hResult == S_OK)
+ {
+ name = wxConvertStringFromOle(bStrName);
+ SysFreeString(bStrName);
+ }
+ else
+ {
+ name = wxT("NO NAME");
+ }
+
+ VARIANT varRole;
+ VariantInit(& varRole);
+
+ hResult = accessible->get_accRole(var, & varRole);
+
+ if (hResult == S_OK && varRole.vt == VT_I4)
+ {
+ wxChar buf[256];
+ GetRoleText(varRole.lVal, buf, 256);
+
+ role = buf;
+ }
+ else
+ {
+ role = wxT("NO ROLE");
+ }
+}
+
+/*
+ * SplitterWindowAccessible implementation
+ */
+
+// Gets the name of the specified object.
+wxAccStatus SplitterWindowAccessible::GetName(int childId, wxString* name)
+{
+ if (childId == wxACC_SELF)
+ {
+ * name = wxT("Splitter window");
+ return wxACC_OK;
+ }
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ // Two windows, and the sash.
+ if (childId == 1 || childId == 3)
+ return wxACC_NOT_IMPLEMENTED;
+ else if (childId == 2)
+ {
+ *name = wxT("Sash");
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Can return either a child object, or an integer
+// representing the child element, starting from 1.
+wxAccStatus SplitterWindowAccessible::HitTest(const wxPoint& pt, int* childId, wxAccessible** WXUNUSED(childObject))
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ wxPoint clientPt = splitter->ScreenToClient(pt);
+ if (splitter->SashHitTest(clientPt.x, clientPt.y, 1))
+ {
+ // We're over the sash
+ *childId = 2;
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns the rectangle for this object (id = 0) or a child element (id > 0).
+wxAccStatus SplitterWindowAccessible::GetLocation(wxRect& rect, int elementId)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && elementId == 2 && splitter->IsSplit())
+ {
+ wxSize clientSize = splitter->GetClientSize();
+ if (splitter->GetSplitMode() == wxSPLIT_VERTICAL)
+ {
+ rect.x = splitter->GetSashPosition();
+ rect.y = 0;
+ rect.SetPosition(splitter->ClientToScreen(rect.GetPosition()));
+ rect.width = splitter->GetSashSize();
+ rect.height = clientSize.y;
+ }
+ else
+ {
+ rect.x = 0;
+ rect.y = splitter->GetSashPosition();
+ rect.SetPosition(splitter->ClientToScreen(rect.GetPosition()));
+ rect.width = clientSize.x;
+ rect.height = splitter->GetSashSize();
+ }
+ return wxACC_OK;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Navigates from fromId to toId/toObject.
+wxAccStatus SplitterWindowAccessible::Navigate(wxNavDir navDir, int fromId,
+ int* toId, wxAccessible** toObject)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit())
+ {
+ switch (navDir)
+ {
+ case wxNAVDIR_DOWN:
+ {
+ if (splitter->GetSplitMode() != wxSPLIT_VERTICAL)
+ {
+ if (fromId == 1)
+ {
+ *toId = 2;
+ *toObject = NULL;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 3;
+ *toObject = splitter->GetWindow2()->GetAccessible();
+ return wxACC_OK;
+ }
+ }
+ return wxACC_FALSE;
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+ }
+ case wxNAVDIR_FIRSTCHILD:
+ {
+ if (fromId == 2)
+ return wxACC_FALSE;
+ }
+ break;
+
+ case wxNAVDIR_LASTCHILD:
+ {
+ if (fromId == 2)
+ return wxACC_FALSE;
+ }
+ break;
+
+ case wxNAVDIR_LEFT:
+ {
+ if (splitter->GetSplitMode() != wxSPLIT_HORIZONTAL)
+ {
+ if (fromId == 3)
+ {
+ *toId = 2;
+ *toObject = NULL;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 1;
+ *toObject = splitter->GetWindow1()->GetAccessible();
+ return wxACC_OK;
+ }
+ }
+ return wxACC_FALSE;
+ }
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+
+ case wxNAVDIR_NEXT:
+ {
+ if (fromId == 1)
+ {
+ *toId = 2;
+ *toObject = NULL;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 3;
+ *toObject = splitter->GetWindow2()->GetAccessible();
+ return wxACC_OK;
+ }
+ return wxACC_FALSE;
+ }
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+
+ case wxNAVDIR_PREVIOUS:
+ {
+ if (fromId == 3)
+ {
+ *toId = 2;
+ *toObject = NULL;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 1;
+ *toObject = splitter->GetWindow1()->GetAccessible();
+ return wxACC_OK;
+ }
+ return wxACC_FALSE;
+ }
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+
+ case wxNAVDIR_RIGHT:
+ {
+ if (splitter->GetSplitMode() != wxSPLIT_HORIZONTAL)
+ {
+ if (fromId == 1)
+ {
+ *toId = 2;
+ *toObject = NULL;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 3;
+ *toObject = splitter->GetWindow2()->GetAccessible();
+ return wxACC_OK;
+ }
+ }
+ // Can't go right spatially if split horizontally.
+ return wxACC_FALSE;
+ }
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+
+ case wxNAVDIR_UP:
+ {
+ if (splitter->GetSplitMode() != wxSPLIT_VERTICAL)
+ {
+ if (fromId == 3)
+ {
+ *toId = 2;
+ return wxACC_OK;
+ }
+ else if (fromId == 2)
+ {
+ *toId = 1;
+ *toObject = splitter->GetWindow1()->GetAccessible();
+ return wxACC_OK;
+ }
+ }
+
+ // Can't go up spatially if split vertically.
+ return wxACC_FALSE;
+ #if 0
+ // below line is not executed due to earlier return
+ break;
+ #endif
+ }
+ }
+
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets the number of children.
+wxAccStatus SplitterWindowAccessible::GetChildCount(int* childCount)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ // Two windows, and the sash.
+ *childCount = 3;
+ return wxACC_OK;
+ }
+ else
+ {
+ // No sash -- 1 or 0 windows.
+ if (splitter->GetWindow1() || splitter->GetWindow2())
+ {
+ *childCount = 1;
+ return wxACC_OK;
+ }
+ else
+ {
+ *childCount = 0;
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets the specified child (starting from 1).
+// If *child is NULL and return value is wxACC_OK,
+// this means that the child is a simple element and
+// not an accessible object.
+wxAccStatus SplitterWindowAccessible::GetChild(int childId, wxAccessible** child)
+{
+ if (childId == wxACC_SELF)
+ {
+ *child = this;
+ return wxACC_OK;
+ }
+
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ // Two windows, and the sash.
+ if (childId == 1)
+ {
+ *child = splitter->GetWindow1()->GetAccessible();
+ }
+ else if (childId == 2)
+ {
+ *child = NULL; // Sash
+ }
+ else if (childId == 3)
+ {
+ *child = splitter->GetWindow2()->GetAccessible();
+ }
+ else
+ {
+ return wxACC_FAIL;
+ }
+ return wxACC_OK;
+ }
+ else
+ {
+ // No sash -- 1 or 0 windows.
+ if (childId == 1)
+ {
+ if (splitter->GetWindow1())
+ {
+ *child = splitter->GetWindow1()->GetAccessible();
+ return wxACC_OK;
+ }
+ else if (splitter->GetWindow2())
+ {
+ *child = splitter->GetWindow2()->GetAccessible();
+ return wxACC_OK;
+ }
+ else
+ {
+ return wxACC_FAIL;
+ }
+ }
+ else
+ return wxACC_FAIL;
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets the parent, or NULL.
+wxAccStatus SplitterWindowAccessible::GetParent(wxAccessible** WXUNUSED(parent))
+{
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Performs the default action. childId is 0 (the action for this object)
+// or > 0 (the action for a child).
+// Return wxACC_NOT_SUPPORTED if there is no default action for this
+// window (e.g. an edit control).
+wxAccStatus SplitterWindowAccessible::DoDefaultAction(int WXUNUSED(childId))
+{
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets the default action for this object (0) or > 0 (the action for a child).
+// Return wxACC_OK even if there is no action. actionName is the action, or the empty
+// string if there is no action.
+// The retrieved string describes the action that is performed on an object,
+// not what the object does as a result. For example, a toolbar button that prints
+// a document has a default action of "Press" rather than "Prints the current document."
+wxAccStatus SplitterWindowAccessible::GetDefaultAction(int childId, wxString* WXUNUSED(actionName))
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit() && childId == 2)
+ {
+ // No default action for the splitter.
+ return wxACC_FALSE;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns the description for this object or a child.
+wxAccStatus SplitterWindowAccessible::GetDescription(int childId, wxString* description)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ if (childId == 2)
+ {
+ * description = _("The splitter window sash.");
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns help text for this object or a child, similar to tooltip text.
+wxAccStatus SplitterWindowAccessible::GetHelpText(int childId, wxString* helpText)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ if (childId == 2)
+ {
+ * helpText = _("The splitter window sash.");
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns the keyboard shortcut for this object or child.
+// Return e.g. ALT+K
+wxAccStatus SplitterWindowAccessible::GetKeyboardShortcut(int childId, wxString* WXUNUSED(shortcut))
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit() && childId == 2)
+ {
+ // No keyboard shortcut for the splitter.
+ return wxACC_FALSE;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns a role constant.
+wxAccStatus SplitterWindowAccessible::GetRole(int childId, wxAccRole* role)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter)
+ {
+ if (splitter->IsSplit())
+ {
+ if (childId == 2)
+ {
+ * role = wxROLE_SYSTEM_GRIP;
+ return wxACC_OK;
+ }
+ }
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns a state constant.
+wxAccStatus SplitterWindowAccessible::GetState(int childId, long* state)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit() && childId == 2)
+ {
+ // No particular state. Not sure what would be appropriate here.
+ *state = wxACC_STATE_SYSTEM_UNAVAILABLE;
+ return wxACC_OK;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Returns a localized string representing the value for the object
+// or child.
+wxAccStatus SplitterWindowAccessible::GetValue(int childId, wxString* strValue)
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit() && childId == 2)
+ {
+ // The sash position is the value.
+ wxString pos;
+ pos << splitter->GetSashPosition();
+ *strValue = pos;
+
+ return wxACC_OK;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Selects the object or child.
+wxAccStatus SplitterWindowAccessible::Select(int childId, wxAccSelectionFlags WXUNUSED(selectFlags))
+{
+ wxSplitterWindow* splitter = wxDynamicCast(GetWindow(), wxSplitterWindow);
+ if (splitter && splitter->IsSplit() && childId == 2)
+ {
+ // Can't select the sash.
+ return wxACC_FALSE;
+ }
+ // Let the framework handle the other cases.
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets the window with the keyboard focus.
+// If childId is 0 and child is NULL, no object in
+// this subhierarchy has the focus.
+// If this object has the focus, child should be 'this'.
+wxAccStatus SplitterWindowAccessible::GetFocus(int* WXUNUSED(childId), wxAccessible** WXUNUSED(child))
+{
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+// Gets a variant representing the selected children
+// of this object.
+// Acceptable values:
+// - a null variant (IsNull() returns true)
+// - a list variant (GetType() == wxT("list"))
+// - an integer representing the selected child element,
+// or 0 if this object is selected (GetType() == wxT("long"))
+// - a "void*" pointer to a wxAccessible child object
+wxAccStatus SplitterWindowAccessible::GetSelections(wxVariant* WXUNUSED(selections))
+{
+ return wxACC_NOT_IMPLEMENTED;
+}
+
+#endif // wxUSE_ACCESSIBILITY
projects / wxWidgets.git / blobdiff