mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 01:34:36 -08:00
Code Issues Projects Releases Wiki Activity

Set accessibility subroles for child frame (bug#31324)

Browse source 
; Depends on patch in bug#31440.

* src/nsterm.m (x_set_parent_frame): Set subrole depending on whether
frame is a child or not.
This commit is contained in:
Alan Third 2018-05-13 11:02:00 +01:00
parent de6a876373
commit defd53a56c
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/nsterm.m
View file

@ -1962,7 +1962,15 @@ x_set_parent_frame (struct frame *f, Lisp_Object new_value, Lisp_Object old_valu
child = [FRAME_NS_VIEW (f) window];
if ([child parentWindow] != nil)
[[child parentWindow] removeChildWindow:child];
{
[[child parentWindow] removeChildWindow:child];
#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 101000
#if MAC_OS_X_VERSION_MIN_REQUIRED < 101000
if ([child respondsToSelector:@selector(setAccessibilitySubrole:)]
#endif
[child setAccessibilitySubrole:NSAccessibilityStandardWindowSubrole];
#endif
}
if (!NILP (new_value))
{
@ -1970,6 +1978,12 @@ x_set_parent_frame (struct frame *f, Lisp_Object new_value, Lisp_Object old_valu
[parent addChildWindow: child
ordered: NSWindowAbove];
#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 101000
#if MAC_OS_X_VERSION_MIN_REQUIRED < 101000
if ([child respondsToSelector:@selector(setAccessibilitySubrole:)]
#endif
[child setAccessibilitySubrole:NSAccessibilityFloatingWindowSubrole];
#endif
}
unblock_input ();