projects/dwt2: org.eclipse.swt.win32.win32.x86/src/org/eclipse/swt/accessibility/Accessible.d annotate

annotate org.eclipse.swt.win32.win32.x86/src/org/eclipse/swt/accessibility/Accessible.d @ 86:12b890a6392a

Work on databinding

author	Frank Benoit <benoit@tionex.de>
date	Sat, 18 Apr 2009 13:58:35 +0200
parents	b98647bc0aef
children

rev	line source
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1 /*******************************************************************************
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	2 * Copyright (c) 2000, 2008 IBM Corporation and others.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	3 * All rights reserved. This program and the accompanying materials
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	4 * are made available under the terms of the Eclipse Public License v1.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	5 * which accompanies this distribution, and is available at
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	6 * http://www.eclipse.org/legal/epl-v10.html
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	7 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	8 * Contributors:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	9 * IBM Corporation - initial API and implementation
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	10 * Port to the D programming language:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	11 * Frank Benoit <benoit@tionex.de>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	12 *******************************************************************************/
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	13 module org.eclipse.swt.accessibility.Accessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	14
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	15 import org.eclipse.swt.SWT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	16 import org.eclipse.swt.SWTException;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	17 import org.eclipse.swt.internal.ole.win32.COM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	18 import org.eclipse.swt.internal.ole.win32.OAIDL;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	19 import org.eclipse.swt.internal.ole.win32.ifs;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	20 import org.eclipse.swt.internal.ole.win32.extras;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	21 import org.eclipse.swt.internal.win32.OS;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	22 import org.eclipse.swt.internal.SWTEventListener;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	23 import org.eclipse.swt.ole.win32.OLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	24 import org.eclipse.swt.ole.win32.Variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	25 import org.eclipse.swt.widgets.Control;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	26 import org.eclipse.swt.widgets.Table;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	27 import org.eclipse.swt.widgets.TableItem;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	28 import org.eclipse.swt.widgets.Tree;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	29 import org.eclipse.swt.widgets.TreeItem;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	30 import org.eclipse.swt.widgets.Widget;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	31
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	32 import org.eclipse.swt.accessibility.ACC;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	33 import org.eclipse.swt.accessibility.AccessibleControlListener;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	34 import org.eclipse.swt.accessibility.AccessibleListener;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	35 import org.eclipse.swt.accessibility.AccessibleTextListener;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	36 import org.eclipse.swt.accessibility.AccessibleControlEvent;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	37 import org.eclipse.swt.accessibility.AccessibleEvent;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	38
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	39 import java.lang.all;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	40 import java.util.Vector;
19 52184e4b815c no more direct tango.core.Thread. Rename JThread to java.lang.Thread. Frank Benoit <benoit@tionex.de> parents: 11 diff changeset	41 import java.lang.Thread;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	42
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	43 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	44 * Instances of this class provide a bridge between application
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	45 * code and assistive technology clients. Many platforms provide
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	46 * default accessible behavior for most widgets, and this class
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	47 * allows that default behavior to be overridden. Applications
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	48 * can get the default Accessible object for a control by sending
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	49 * it <code>getAccessible</code>, and then add an accessible listener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	50 * to override simple items like the name and help string, or they
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	51 * can add an accessible control listener to override complex items.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	52 * As a rule of thumb, an application would only want to use the
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	53 * accessible control listener to implement accessibility for a
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	54 * custom control.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	55 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	56 * @see Control#getAccessible
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	57 * @see AccessibleListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	58 * @see AccessibleEvent
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	59 * @see AccessibleControlListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	60 * @see AccessibleControlEvent
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	61 * @see <a href="http://www.eclipse.org/swt/snippets/#accessibility">Accessibility snippets</a>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	62 * @see <a href="http://www.eclipse.org/swt/">Sample code and further information</a>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	63 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	64 * @since 2.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	65 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	66 public class Accessible {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	67 int refCount = 0, enumIndex = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	68 _IAccessibleImpl objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	69 _IEnumVARIANTImpl objIEnumVARIANT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	70 IAccessible iaccessible;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	71 Vector accessibleListeners;
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	72 Vector accessibleControlListeners;
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	73 Vector textListeners;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	74 Object[] variants;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	75 Control control;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	76
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	77 this(Control control) {
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	78 accessibleListeners = new Vector();
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	79 accessibleControlListeners = new Vector();
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	80 textListeners = new Vector ();
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	81 this.control = control;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	82 int /long/[] ppvObject = new int /long/[1];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	83 /* CreateStdAccessibleObject([in] hwnd, [in] idObject, [in] riidInterface, [out] ppvObject).
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	84 * AddRef has already been called on ppvObject by the callee and must be released by the caller.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	85 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	86 HRESULT result = COM.CreateStdAccessibleObject(control.handle, COM.OBJID_CLIENT, &COM.IIDIAccessible, cast(void**)&iaccessible);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	87 /* The object needs to be checked, because if the CreateStdAccessibleObject()
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	88 * symbol is not found, the return value is S_OK.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	89 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	90 if (iaccessible is null) return;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	91 if (result !is COM.S_OK) OLE.error(OLE.ERROR_CANNOT_CREATE_OBJECT, result);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	92
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	93 objIAccessible = new _IAccessibleImpl(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	94
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	95 //PORTING_FIXME: i don't understand this...
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	96 /+
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	97 int /long/ ppVtable = objIAccessible.ppVtable;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	98 int /long/[] pVtable = new int /long/[1];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	99 COM.MoveMemory(pVtable, ppVtable, OS.PTR_SIZEOF);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	100 int /long/[] funcs = new int /long/[28];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	101 COM.MoveMemory(funcs, pVtable[0], OS.PTR_SIZEOF * funcs.length);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	102 funcs[9] = COM.get_accChild_CALLBACK(funcs[9]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	103 funcs[10] = COM.get_accName_CALLBACK(funcs[10]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	104 funcs[11] = COM.get_accValue_CALLBACK(funcs[11]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	105 funcs[12] = COM.get_accDescription_CALLBACK(funcs[12]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	106 funcs[13] = COM.get_accRole_CALLBACK(funcs[13]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	107 funcs[14] = COM.get_accState_CALLBACK(funcs[14]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	108 funcs[15] = COM.get_accHelp_CALLBACK(funcs[15]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	109 funcs[16] = COM.get_accHelpTopic_CALLBACK(funcs[16]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	110 funcs[17] = COM.get_accKeyboardShortcut_CALLBACK(funcs[17]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	111 funcs[20] = COM.get_accDefaultAction_CALLBACK(funcs[20]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	112 funcs[21] = COM.accSelect_CALLBACK(funcs[21]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	113 funcs[22] = COM.accLocation_CALLBACK(funcs[22]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	114 funcs[23] = COM.accNavigate_CALLBACK(funcs[23]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	115 funcs[25] = COM.accDoDefaultAction_CALLBACK(funcs[25]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	116 funcs[26] = COM.put_accName_CALLBACK(funcs[26]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	117 funcs[27] = COM.put_accValue_CALLBACK(funcs[27]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	118 COM.MoveMemory(pVtable[0], funcs, OS.PTR_SIZEOF * funcs.length);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	119 +/
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	120
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	121 objIEnumVARIANT = new _IEnumVARIANTImpl(this) ;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	122 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	123 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	124
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	125 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	126 * Invokes platform specific functionality to allocate a new accessible object.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	127 * <p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	128 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	129 * API for <code>Accessible</code>. It is marked public only so that it
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	130 * can be shared within the packages provided by SWT. It is not
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	131 * available on all platforms, and should never be called from
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	132 * application code.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	133 * </p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	134 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	135 * @param control the control to get the accessible object for
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	136 * @return the platform specific accessible object
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	137 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	138 public static Accessible internal_new_Accessible(Control control) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	139 return new Accessible(control);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	140 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	141
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	142 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	143 * Adds the listener to the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	144 * be notified when an accessible client asks for certain strings,
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	145 * such as name, description, help, or keyboard shortcut. The
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	146 * listener is notified by sending it one of the messages defined
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	147 * in the <code>AccessibleListener</code> interface.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	148 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	149 * @param listener the listener that should be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	150 * is asked for a name, description, help, or keyboard shortcut string
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	151 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	152 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	153 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	154 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	155 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	156 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	157 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	158 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	159 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	160 * @see AccessibleListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	161 * @see #removeAccessibleListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	162 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	163 public void addAccessibleListener(AccessibleListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	164 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	165 if (listener is null) SWT.error(__FILE__, __LINE__, SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	166 accessibleListeners.addElement(cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	167 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	168
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	169 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	170 * Adds the listener to the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	171 * be notified when an accessible client asks for custom control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	172 * specific information. The listener is notified by sending it
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	173 * one of the messages defined in the <code>AccessibleControlListener</code>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	174 * interface.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	175 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	176 * @param listener the listener that should be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	177 * is asked for custom control specific information
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	178 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	179 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	180 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	181 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	182 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	183 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	184 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	185 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	186 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	187 * @see AccessibleControlListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	188 * @see #removeAccessibleControlListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	189 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	190 public void addAccessibleControlListener(AccessibleControlListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	191 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	192 if (listener is null) SWT.error(__FILE__, __LINE__, SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	193 accessibleControlListeners.addElement(cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	194 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	195
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	196 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	197 * Adds the listener to the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	198 * be notified when an accessible client asks for custom text control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	199 * specific information. The listener is notified by sending it
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	200 * one of the messages defined in the <code>AccessibleTextListener</code>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	201 * interface.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	202 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	203 * @param listener the listener that should be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	204 * is asked for custom text control specific information
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	205 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	206 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	207 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	208 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	209 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	210 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	211 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	212 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	213 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	214 * @see AccessibleTextListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	215 * @see #removeAccessibleTextListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	216 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	217 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	218 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	219 public void addAccessibleTextListener (AccessibleTextListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	220 checkWidget ();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	221 if (listener is null) SWT.error (SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	222 textListeners.addElement(cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	223 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	224
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	225 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	226 * Returns the control for this Accessible object.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	227 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	228 * @return the receiver's control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	229 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	230 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	231 public Control getControl() {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	232 return control;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	233 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	234
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	235 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	236 * Invokes platform specific functionality to dispose an accessible object.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	237 * <p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	238 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	239 * API for <code>Accessible</code>. It is marked public only so that it
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	240 * can be shared within the packages provided by SWT. It is not
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	241 * available on all platforms, and should never be called from
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	242 * application code.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	243 * </p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	244 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	245 public void internal_dispose_Accessible() {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	246 if (iaccessible !is null) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	247 iaccessible.Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	248 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	249 iaccessible = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	250 Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	251 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	252
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	253 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	254 * Invokes platform specific functionality to handle a window message.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	255 * <p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	256 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	257 * API for <code>Accessible</code>. It is marked public only so that it
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	258 * can be shared within the packages provided by SWT. It is not
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	259 * available on all platforms, and should never be called from
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	260 * application code.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	261 * </p>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	262 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	263 public int /long/ internal_WM_GETOBJECT (int /long/ wParam, int /long/ lParam) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	264 if (objIAccessible is null) return 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	265 if (lParam is COM.OBJID_CLIENT) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	266 /* LresultFromObject([in] riid, [in] wParam, [in] pAcc)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	267 * The argument pAcc is owned by the caller so reference count does not
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	268 * need to be incremented.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	269 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	270 return COM.LresultFromObject(&COM.IIDIAccessible, wParam, cast(IAccessible)objIAccessible);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	271 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	272 return 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	273 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	274
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	275 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	276 * Removes the listener from the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	277 * be notified when an accessible client asks for certain strings,
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	278 * such as name, description, help, or keyboard shortcut.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	279 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	280 * @param listener the listener that should no longer be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	281 * is asked for a name, description, help, or keyboard shortcut string
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	282 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	283 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	284 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	285 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	286 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	287 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	288 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	289 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	290 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	291 * @see AccessibleListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	292 * @see #addAccessibleListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	293 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	294 public void removeAccessibleListener(AccessibleListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	295 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	296 if (listener is null) SWT.error(__FILE__, __LINE__, SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	297 accessibleListeners.removeElement(cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	298 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	299
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	300 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	301 * Removes the listener from the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	302 * be notified when an accessible client asks for custom control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	303 * specific information.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	304 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	305 * @param listener the listener that should no longer be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	306 * is asked for custom control specific information
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	307 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	308 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	309 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	310 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	311 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	312 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	313 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	314 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	315 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	316 * @see AccessibleControlListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	317 * @see #addAccessibleControlListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	318 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	319 public void removeAccessibleControlListener(AccessibleControlListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	320 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	321 if (listener is null) SWT.error(__FILE__, __LINE__, SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	322 accessibleControlListeners.removeElement(cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	323 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	324
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	325 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	326 * Removes the listener from the collection of listeners who will
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	327 * be notified when an accessible client asks for custom text control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	328 * specific information.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	329 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	330 * @param listener the listener that should no longer be notified when the receiver
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	331 * is asked for custom text control specific information
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	332 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	333 * @exception IllegalArgumentException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	334 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	335 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	336 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	337 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	338 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	339 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	340 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	341 * @see AccessibleTextListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	342 * @see #addAccessibleTextListener
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	343 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	344 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	345 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	346 public void removeAccessibleTextListener (AccessibleTextListener listener) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	347 checkWidget ();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	348 if (listener is null) SWT.error (SWT.ERROR_NULL_ARGUMENT);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	349 textListeners.removeElement (cast(Object)listener);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	350 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	351
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	352 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	353 * Sends a message to accessible clients that the child selection
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	354 * within a custom container control has changed.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	355 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	356 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	357 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	358 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	359 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	360 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	361 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	362 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	363 public void selectionChanged () {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	364 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	365 COM.NotifyWinEvent (COM.EVENT_OBJECT_SELECTIONWITHIN, control.handle, COM.OBJID_CLIENT, COM.CHILDID_SELF);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	366 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	367
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	368 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	369 * Sends a message to accessible clients indicating that the focus
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	370 * has changed within a custom control.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	371 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	372 * @param childID an identifier specifying a child of the control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	373 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	374 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	375 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	376 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	377 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	378 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	379 public void setFocus(int childID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	380 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	381 COM.NotifyWinEvent (COM.EVENT_OBJECT_FOCUS, control.handle, COM.OBJID_CLIENT, childIDToOs(childID));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	382 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	383
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	384 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	385 * Sends a message to accessible clients that the text
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	386 * caret has moved within a custom control.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	387 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	388 * @param index the new caret index within the control
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	389 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	390 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	391 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	392 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	393 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	394 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	395 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	396 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	397 public void textCaretMoved (int index) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	398 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	399 COM.NotifyWinEvent (COM.EVENT_OBJECT_LOCATIONCHANGE, control.handle, COM.OBJID_CARET, COM.CHILDID_SELF);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	400 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	401
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	402 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	403 * Sends a message to accessible clients that the text
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	404 * within a custom control has changed.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	405 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	406 * @param type the type of change, one of <code>ACC.NOTIFY_TEXT_INSERT</code>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	407 * or <code>ACC.NOTIFY_TEXT_DELETE</code>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	408 * @param startIndex the text index within the control where the insertion or deletion begins
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	409 * @param length the non-negative length in characters of the insertion or deletion
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	410 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	411 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	412 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	413 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	414 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	415 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	416 * @see ACC#TEXT_INSERT
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	417 * @see ACC#TEXT_DELETE
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	418 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	419 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	420 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	421 public void textChanged (int type, int startIndex, int length) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	422 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	423 COM.NotifyWinEvent (COM.EVENT_OBJECT_VALUECHANGE, control.handle, COM.OBJID_CLIENT, COM.CHILDID_SELF);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	424 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	425
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	426 /**
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	427 * Sends a message to accessible clients that the text
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	428 * selection has changed within a custom control.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	429 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	430 * @exception SWTException <ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	431 * <li>ERROR_WIDGET_DISPOSED - if the receiver's control has been disposed</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	432 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver's control</li>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	433 * </ul>
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	434 *
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	435 * @since 3.0
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	436 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	437 public void textSelectionChanged () {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	438 checkWidget();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	439 // not an MSAA event
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	440 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	441
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	442 /* QueryInterface([in] iid, [out] ppvObject)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	443 * Ownership of ppvObject transfers from callee to caller so reference count on ppvObject
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	444 * must be incremented before returning. Caller is responsible for releasing ppvObject.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	445 */
43 b98647bc0aef swt win compiles for d2+phobos Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	446 HRESULT QueryInterface(REFCIID riid, void** ppvObject) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	447 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	448
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	449 if (COM.IsEqualGUID(riid, &COM.IIDIUnknown)) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	450 ppvObject = cast(void)cast(IUnknown) objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	451 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	452 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	453 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	454
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	455 if (COM.IsEqualGUID(riid, &COM.IIDIDispatch)) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	456 ppvObject = cast(void)cast(IDispatch) objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	457 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	458 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	459 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	460
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	461 if (COM.IsEqualGUID(riid, &COM.IIDIAccessible)) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	462 ppvObject = cast(void)cast(IAccessible) objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	463 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	464 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	465 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	466
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	467 if (COM.IsEqualGUID(riid, &COM.IIDIEnumVARIANT)) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	468 ppvObject = cast(void)cast(IEnumVARIANT) objIEnumVARIANT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	469 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	470 enumIndex = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	471 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	472 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	473
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	474 HRESULT result = iaccessible.QueryInterface(riid, ppvObject);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	475 return result;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	476 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	477
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	478 ULONG AddRef() {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	479 refCount++;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	480 return refCount;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	481 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	482
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	483 ULONG Release() {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	484 refCount--;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	485
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	486 if (refCount is 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	487 objIAccessible = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	488 objIEnumVARIANT = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	489 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	490 return refCount;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	491 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	492
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	493 HRESULT accDoDefaultAction(VARIANT variant) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	494 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	495 // Currently, we don't let the application override this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	496 int code = iaccessible.accDoDefaultAction(variant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	497 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	498 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	499 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	500
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	501 HRESULT accHitTest(LONG xLeft, LONG yTop, VARIANT* pvarChild) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	502 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	503 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	504 return iaccessible.accHitTest(xLeft, yTop, pvarChild);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	505 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	506
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	507 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	508 event.childID = ACC.CHILDID_NONE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	509 event.x = xLeft;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	510 event.y = yTop;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	511 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	512 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	513 listener.getChildAtPoint(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	514 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	515 int childID = event.childID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	516 if (childID is ACC.CHILDID_NONE) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	517 return iaccessible.accHitTest(xLeft, yTop, pvarChild);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	518 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	519 //TODO - use VARIANT structure
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	520 pvarChild.vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	521 pvarChild.lVal = childIDToOs(childID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	522 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	523 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	524
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	525 HRESULT accLocation(LONG* pxLeft, LONG* pyTop, LONG* pcxWidth, LONG* pcyHeight, VARIANT variant) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	526 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	527 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	528 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	529 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	530
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	531 /* Get the default location from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	532 int osLeft = 0, osTop = 0, osWidth = 0, osHeight = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	533 int code = iaccessible.accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, variant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	534 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	535 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	536 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	537 int[1] pLeft, pTop, pWidth, pHeight;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	538 COM.MoveMemory(pLeft.ptr, pxLeft, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	539 COM.MoveMemory(pTop.ptr, pyTop, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	540 COM.MoveMemory(pWidth.ptr, pcxWidth, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	541 COM.MoveMemory(pHeight.ptr, pcyHeight, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	542 osLeft = pLeft[0]; osTop = pTop[0]; osWidth = pWidth[0]; osHeight = pHeight[0];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	543 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	544
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	545 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	546 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	547 event.x = osLeft;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	548 event.y = osTop;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	549 event.width = osWidth;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	550 event.height = osHeight;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	551 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	552 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	553 listener.getLocation(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	554 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	555 OS.MoveMemory(pxLeft, &event.x, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	556 OS.MoveMemory(pyTop, &event.y, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	557 OS.MoveMemory(pcxWidth, &event.width, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	558 OS.MoveMemory(pcyHeight, &event.height, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	559 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	560 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	561
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	562 HRESULT accNavigate(LONG navDir, VARIANT variant, VARIANT* pvarEndUpAt) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	563 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	564 // Currently, we don't let the application override this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	565 int code = iaccessible.accNavigate(navDir, variant, pvarEndUpAt);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	566 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	567 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	568 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	569
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	570 HRESULT accSelect(LONG flagsSelect, VARIANT variant) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	571 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	572 // Currently, we don't let the application override this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	573 int code = iaccessible.accSelect(flagsSelect, variant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	574 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	575 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	576 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	577
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	578 /* get_accChild([in] varChild, [out] ppdispChild)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	579 * Ownership of ppdispChild transfers from callee to caller so reference count on ppdispChild
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	580 * must be incremented before returning. The caller is responsible for releasing ppdispChild.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	581 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	582 HRESULT get_accChild(VARIANT variant, LPDISPATCH* ppdispChild) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	583 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	584 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	585 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	586 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	587 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	588 int code = iaccessible.get_accChild(variant, ppdispChild);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	589 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	590 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	591 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	592
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	593 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	594 event.childID = osToChildID(v.lVal);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	595 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	596 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	597 listener.getChild(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	598 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	599 Accessible accessible = event.accessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	600 if (accessible !is null) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	601 accessible.AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	602 *ppdispChild = accessible.objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	603 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	604 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	605 return COM.S_FALSE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	606 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	607
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	608 HRESULT get_accChildCount(LONG* pcountChildren) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	609 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	610
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	611 /* Get the default child count from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	612 int osChildCount = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	613 int code = iaccessible.get_accChildCount(pcountChildren);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	614 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	615 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	616 int[1] pChildCount;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	617 COM.MoveMemory(pChildCount.ptr, pcountChildren, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	618 osChildCount = pChildCount[0];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	619 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	620
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	621 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	622 event.childID = ACC.CHILDID_SELF;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	623 event.detail = osChildCount;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	624 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	625 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	626 listener.getChildCount(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	627 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	628
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	629 *pcountChildren = event.detail;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	630 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	631 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	632
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	633 HRESULT get_accDefaultAction(VARIANT variant, BSTR* pszDefaultAction) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	634 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	635 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	636 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	637 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	638
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	639 /* Get the default defaultAction from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	640 String osDefaultAction = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	641 int code = iaccessible.get_accDefaultAction(variant, pszDefaultAction);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	642 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	643 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	644 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	645 osDefaultAction = BSTRToStr( *pszDefaultAction, true );
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	646 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	647
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	648 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	649 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	650 event.result = osDefaultAction;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	651 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	652 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	653 listener.getDefaultAction(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	654 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	655 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	656 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	657 *pszDefaultAction = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	658 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	659 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	660
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	661 HRESULT get_accDescription(VARIANT variant, BSTR* pszDescription) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	662 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	663 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	664 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	665 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	666
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	667 /* Get the default description from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	668 String osDescription = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	669 int code = iaccessible.get_accDescription(variant, pszDescription);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	670 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	671 // TEMPORARY CODE - process tree even if there are no apps listening
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	672 if (accessibleListeners.size() is 0 && !( null is cast(Tree)control )) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	673 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	674 int size = COM.SysStringByteLen(*pszDescription);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	675 if (size > 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	676 size = (size + 1) /2;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	677 osDescription = WCHARzToStr(*pszDescription, size);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	678 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	679 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	680
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	681 AccessibleEvent event = new AccessibleEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	682 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	683 event.result = osDescription;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	684
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	685 // TEMPORARY CODE
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	686 /* Currently our tree columns are emulated using custom draw,
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	687 * so we need to create the description using the tree column
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	688 * header text and tree item text. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	689 if (v.lVal !is COM.CHILDID_SELF) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	690 if (auto tree = cast(Tree)control ) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	691 int columnCount = tree.getColumnCount ();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	692 if (columnCount > 1) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	693 HWND hwnd = control.handle;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	694 int hItem;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	695 if (OS.COMCTL32_MAJOR >= 6) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	696 hItem = OS.SendMessage (hwnd, OS.TVM_MAPACCIDTOHTREEITEM, v.lVal, 0);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	697 } else {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	698 hItem = v.lVal;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	699 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	700 Widget widget = tree.getDisplay ().findWidget (hwnd, hItem);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	701 event.result = "";
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	702 if (widget !is null ) if( auto item = cast(TreeItem) widget ) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	703 for (int i = 1; i < columnCount; i++) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	704 event.result ~= tree.getColumn(i).getText() ~ ": " ~ item.getText(i);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	705 if (i + 1 < columnCount) event.result ~= ", ";
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	706 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	707 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	708 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	709 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	710 }
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	711 for (int i = 0; i < accessibleListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	712 AccessibleListener listener = cast(AccessibleListener) accessibleListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	713 listener.getDescription(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	714 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	715 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	716 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	717 *pszDescription = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	718 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	719 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	720
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	721 /* get_accFocus([out] int pvarChild)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	722 * Ownership of pvarChild transfers from callee to caller so reference count on pvarChild
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	723 * must be incremented before returning. The caller is responsible for releasing pvarChild.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	724 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	725 HRESULT get_accFocus(VARIANT* pvarChild) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	726 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	727
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	728 /* Get the default focus child from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	729 int osChild = ACC.CHILDID_NONE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	730 int code = iaccessible.get_accFocus(pvarChild);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	731 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	732 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	733 //TODO - use VARIANT structure
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	734 short[1] pvt;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	735 COM.MoveMemory(pvt.ptr, pvarChild, 2);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	736 if (pvt[0] is COM.VT_I4) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	737 int[1] pChild;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	738 COM.MoveMemory(pChild.ptr, pvarChild + 8, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	739 osChild = osToChildID(pChild[0]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	740 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	741 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	742
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	743 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	744 event.childID = osChild;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	745 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	746 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	747 listener.getFocus(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	748 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	749 Accessible accessible = event.accessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	750 if (accessible !is null) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	751 accessible.AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	752 pvarChild.vt = COM.VT_DISPATCH;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	753 pvarChild.byRef = cast(void*)cast(IDispatch)accessible.objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	754 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	755 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	756 int childID = event.childID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	757 if (childID is ACC.CHILDID_NONE) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	758 pvarChild.vt = COM.VT_EMPTY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	759 return COM.S_FALSE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	760 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	761 if (childID is ACC.CHILDID_SELF) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	762 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	763 pvarChild.vt = COM.VT_DISPATCH;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	764 pvarChild.byRef = cast(void*)cast(IDispatch)objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	765 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	766 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	767 pvarChild.vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	768 pvarChild.lVal = childIDToOs(childID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	769 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	770 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	771
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	772 HRESULT get_accHelp(VARIANT variant, BSTR* pszHelp) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	773 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	774 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	775 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	776 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	777
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	778 /* Get the default help string from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	779 String osHelp = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	780 int code = iaccessible.get_accHelp(variant, pszHelp);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	781 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	782 if (accessibleListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	783 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	784 // the original SysString is clearuped and bstr set to null
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	785 osHelp = BSTRToStr(*pszHelp, true);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	786 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	787
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	788 AccessibleEvent event = new AccessibleEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	789 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	790 event.result = osHelp;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	791 for (int i = 0; i < accessibleListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	792 AccessibleListener listener = cast(AccessibleListener) accessibleListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	793 listener.getHelp(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	794 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	795 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	796 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	797 *pszHelp = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	798 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	799 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	800
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	801 HRESULT get_accHelpTopic(BSTR* pszHelpFile, VARIANT variant, LONG* pidTopic) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	802 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	803 // Currently, we don't let the application override this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	804 int code = iaccessible.get_accHelpTopic(pszHelpFile, variant, pidTopic);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	805 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	806 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	807 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	808
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	809 HRESULT get_accKeyboardShortcut(VARIANT variant, BSTR* pszKeyboardShortcut) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	810 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	811 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	812 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	813 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	814
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	815 /* Get the default keyboard shortcut from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	816 String osKeyboardShortcut = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	817 int code = iaccessible.get_accKeyboardShortcut(variant, pszKeyboardShortcut);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	818 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	819 if (accessibleListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	820 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	821 // the original SysString is clearuped and bstr set to null
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	822 osKeyboardShortcut = BSTRToStr(*pszKeyboardShortcut, true);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	823 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	824
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	825 AccessibleEvent event = new AccessibleEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	826 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	827 event.result = osKeyboardShortcut;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	828 for (int i = 0; i < accessibleListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	829 AccessibleListener listener = cast(AccessibleListener) accessibleListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	830 listener.getKeyboardShortcut(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	831 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	832 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	833 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	834 *pszKeyboardShortcut = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	835 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	836 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	837
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	838 HRESULT get_accName(VARIANT variant, BSTR* pszName) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	839 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	840 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	841 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	842 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	843
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	844 /* Get the default name from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	845 String osName = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	846 int code = iaccessible.get_accName(variant, pszName);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	847 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	848 if (accessibleListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	849 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	850 // the original SysString is clearuped and bstr set to null
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	851 osName = BSTRToStr(*pszName, true);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	852 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	853
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	854 AccessibleEvent event = new AccessibleEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	855 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	856 event.result = osName;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	857 for (int i = 0; i < accessibleListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	858 AccessibleListener listener = cast(AccessibleListener) accessibleListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	859 listener.getName(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	860 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	861 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	862 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	863 *pszName = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	864 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	865 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	866
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	867 /* get_accParent([out] ppdispParent)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	868 * Ownership of ppdispParent transfers from callee to caller so reference count on ppdispParent
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	869 * must be incremented before returning. The caller is responsible for releasing ppdispParent.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	870 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	871 HRESULT get_accParent(LPDISPATCH* ppdispParent) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	872 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	873 // Currently, we don't let the application override this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	874 return iaccessible.get_accParent(ppdispParent);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	875 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	876
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	877 HRESULT get_accRole(VARIANT variant, VARIANT* pvarRole) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	878 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	879 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	880 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	881 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	882
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	883 /* Get the default role from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	884 int osRole = COM.ROLE_SYSTEM_CLIENT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	885 int code = iaccessible.get_accRole(variant, pvarRole);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	886 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	887 // TEMPORARY CODE - process tree and table even if there are no apps listening
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	888 if (accessibleControlListeners.size() is 0 && !( null !is cast(Tree)control \|\| null !is cast(Table)control )) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	889 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	890 //TODO - use VARIANT structure
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	891 short[1] pvt;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	892 COM.MoveMemory(pvt.ptr, pvarRole, 2);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	893 if (pvt[0] is COM.VT_I4) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	894 int[1] pRole;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	895 COM.MoveMemory(pRole.ptr, pvarRole + 8, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	896 osRole = pRole[0];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	897 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	898 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	899
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	900 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	901 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	902 event.detail = osToRole(osRole);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	903 // TEMPORARY CODE
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	904 /* Currently our checkbox table and tree are emulated using state mask
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	905 * images, so we need to specify 'checkbox' role for the items. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	906 if (v.lVal !is COM.CHILDID_SELF) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	907 if ( null !is cast(Tree)control \|\| null !is cast(Table)control ) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	908 if ((control.getStyle() & SWT.CHECK) !is 0) event.detail = ACC.ROLE_CHECKBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	909 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	910 }
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	911 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	912 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	913 listener.getRole(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	914 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	915 int role = roleToOs(event.detail);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	916 pvarRole.vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	917 pvarRole.lVal = role;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	918 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	919 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	920
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	921 /* get_accSelection([out] pvarChildren)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	922 * Ownership of pvarChildren transfers from callee to caller so reference count on pvarChildren
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	923 * must be incremented before returning. The caller is responsible for releasing pvarChildren.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	924 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	925 HRESULT get_accSelection(VARIANT* pvarChildren) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	926 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	927
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	928 /* Get the default selection from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	929 int osChild = ACC.CHILDID_NONE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	930 int code = iaccessible.get_accSelection(pvarChildren);
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	931 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	932 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	933 //TODO - use VARIANT structure
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	934 short[1] pvt;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	935 COM.MoveMemory(pvt.ptr, pvarChildren, 2);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	936 if (pvt[0] is COM.VT_I4) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	937 int[1] pChild;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	938 COM.MoveMemory(pChild.ptr, pvarChildren + 8, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	939 osChild = osToChildID(pChild[0]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	940 } else if (pvt[0] is COM.VT_UNKNOWN) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	941 osChild = ACC.CHILDID_MULTIPLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	942 /* Should get IEnumVARIANT from punkVal field, and enumerate children... */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	943 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	944 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	945
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	946 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	947 event.childID = osChild;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	948 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	949 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	950 listener.getSelection(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	951 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	952 Accessible accessible = event.accessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	953 if (accessible !is null) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	954 accessible.AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	955 pvarChildren.vt = COM.VT_DISPATCH;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	956 pvarChildren.byRef = cast(void*)cast(IDispatch)accessible.objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	957 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	958 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	959 int childID = event.childID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	960 if (childID is ACC.CHILDID_NONE) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	961 pvarChildren.vt = COM.VT_EMPTY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	962 return COM.S_FALSE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	963 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	964 if (childID is ACC.CHILDID_MULTIPLE) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	965 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	966 pvarChildren.vt = COM.VT_UNKNOWN;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	967 pvarChildren.byRef = cast(void*)cast(IUnknown)objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	968 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	969 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	970 if (childID is ACC.CHILDID_SELF) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	971 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	972 pvarChildren.vt = COM.VT_DISPATCH;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	973 pvarChildren.byRef = cast(void*)cast(IDispatch)objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	974 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	975 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	976 pvarChildren.vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	977 pvarChildren.lVal = childIDToOs(childID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	978 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	979 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	980
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	981 HRESULT get_accState(VARIANT variant, VARIANT* pvarState) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	982 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	983 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	984 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	985 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	986
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	987 /* Get the default state from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	988 int osState = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	989 int code = iaccessible.get_accState(variant, pvarState);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	990 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	991 // TEMPORARY CODE - process tree and table even if there are no apps listening
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	992 if (accessibleControlListeners.size() is 0 && !( null !is cast(Tree)control \|\| null !is cast(Table)control )) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	993 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	994 //TODO - use VARIANT structure
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	995 short[1] pvt;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	996 COM.MoveMemory(pvt.ptr, pvarState, 2);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	997 if (pvt[0] is COM.VT_I4) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	998 int[1] pState;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	999 COM.MoveMemory(pState.ptr, pvarState + 8, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1000 osState = pState[0];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1001 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1002 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1003 bool grayed = false;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1004 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1005 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1006 event.detail = osToState(osState);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1007 // TEMPORARY CODE
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1008 /* Currently our checkbox table and tree are emulated using state mask
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1009 * images, so we need to determine if the item state is 'checked'. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1010 if (v.lVal !is COM.CHILDID_SELF) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1011 if (null !is cast(Tree)control && (control.getStyle() & SWT.CHECK) !is 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1012 auto hwnd = control.handle;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1013 TVITEM tvItem;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1014 tvItem.mask = OS.TVIF_HANDLE \| OS.TVIF_STATE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1015 tvItem.stateMask = OS.TVIS_STATEIMAGEMASK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1016 if (OS.COMCTL32_MAJOR >= 6) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1017 tvItem.hItem = cast(HTREEITEM) OS.SendMessage (hwnd, OS.TVM_MAPACCIDTOHTREEITEM, v.lVal, 0);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1018 } else {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1019 tvItem.hItem = cast(HTREEITEM) v.lVal;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1020 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1021 auto result = OS.SendMessage (hwnd, OS.TVM_GETITEM, 0, &tvItem);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1022 bool checked = (result !is 0) && (((tvItem.state >> 12) & 1) is 0);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1023 if (checked) event.detail \|= ACC.STATE_CHECKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1024 grayed = tvItem.state >> 12 > 2;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1025 } else if (null !is cast(Table)control && (control.getStyle() & SWT.CHECK) !is 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1026 Table table = cast(Table) control;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1027 int index = event.childID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1028 if (0 <= index && index < table.getItemCount()) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1029 TableItem item = table.getItem(index);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1030 if (item.getChecked()) event.detail \|= ACC.STATE_CHECKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1031 if (item.getGrayed()) grayed = true;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1032 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1033 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1034 }
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1035 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1036 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1037 listener.getState(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1038 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1039 int state = stateToOs(event.detail);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1040 if ((state & ACC.STATE_CHECKED) !is 0 && grayed) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1041 state &= ~ COM.STATE_SYSTEM_CHECKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1042 state \|= COM.STATE_SYSTEM_MIXED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1043 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1044 pvarState.vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1045 pvarState.lVal = state;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1046 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1047 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1048
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1049 HRESULT get_accValue(VARIANT variant, BSTR* pszValue) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1050 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1051 VARIANT* v = &variant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1052 //COM.MoveMemory(v, variant, VARIANT.sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1053 if ((v.vt & 0xFFFF) !is COM.VT_I4) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1054
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1055 /* Get the default value string from the OS. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1056 String osValue = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1057 int code = iaccessible.get_accValue(variant, pszValue);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1058 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1059 if (accessibleControlListeners.size() is 0) return code;
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1060 if (code is COM.S_OK) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1061 int size = COM.SysStringByteLen(*pszValue);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1062 if (size > 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1063 osValue = WCHARsToStr((*pszValue)[ 0 .. size ]);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1064 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1065 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1066
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1067 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1068 event.childID = osToChildID(v.lVal);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1069 event.result = osValue;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1070 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1071 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1072 listener.getValue(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1073 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1074 if (event.result is null) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1075 auto ptr = COM.SysAllocString(StrToWCHARz(event.result));
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1076 *pszValue = ptr;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1077 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1078 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1079
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1080 HRESULT put_accName(VARIANT variant, BSTR* szName) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1081 // MSAA: this method is no longer supported
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1082 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1083 // We don't implement this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1084 int code = iaccessible.put_accName(variant, szName);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1085 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1086 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1087 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1088
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1089 HRESULT put_accValue(VARIANT variant, BSTR* szValue) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1090 // MSAA: this method is typically only used for edit controls
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1091 if (iaccessible is null) return COM.CO_E_OBJNOTCONNECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1092 // We don't implement this. Forward to the proxy.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1093 int code = iaccessible.put_accValue(variant, szValue);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1094 if (code is COM.E_INVALIDARG) code = COM.S_FALSE; // proxy doesn't know about app childID
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1095 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1096 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1097
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1098 /* IEnumVARIANT methods: Next, Skip, Reset, Clone */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1099 /* Retrieve the next celt items in the enumeration sequence.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1100 * If there are fewer than the requested number of elements left
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1101 * in the sequence, retrieve the remaining elements.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1102 * The number of elements actually retrieved is returned in pceltFetched
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1103 * (unless the caller passed in NULL for that parameter).
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1104 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1105
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1106 /* Next([in] celt, [out] rgvar, [in, out] pceltFetched)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1107 * Ownership of rgvar transfers from callee to caller so reference count on rgvar
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1108 * must be incremented before returning. The caller is responsible for releasing rgvar.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1109 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1110 HRESULT Next(ULONG celt, VARIANT rgvar, ULONG pceltFetched) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1111 /* If there are no listeners, query the proxy for
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1112 * its IEnumVariant, and get the Next items from it.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1113 */
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1114 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1115 IEnumVARIANT ienumvariant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1116 int code = iaccessible.QueryInterface(&COM.IIDIEnumVARIANT, cast(void**)&ienumvariant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1117 if (code !is COM.S_OK) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1118 uint[1] celtFetched;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1119 code = ienumvariant.Next(celt, rgvar, celtFetched.ptr);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1120 ienumvariant.Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1121 COM.MoveMemory(pceltFetched, celtFetched.ptr, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1122 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1123 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1124
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1125 if (rgvar is null) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1126 if (pceltFetched is null && celt !is 1) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1127 if (enumIndex is 0) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1128 AccessibleControlEvent event = new AccessibleControlEvent(this);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1129 event.childID = ACC.CHILDID_SELF;
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1130 for (int i = 0; i < accessibleControlListeners.size(); i++) {
43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1131 AccessibleControlListener listener = cast(AccessibleControlListener) accessibleControlListeners.elementAt(i);
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1132 listener.getChildren(event);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1133 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1134 variants = event.children;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1135 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1136 Object[] nextItems = null;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1137 if (variants !is null && celt >= 1) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1138 int endIndex = enumIndex + celt - 1;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1139 if (endIndex > (variants.length - 1)) endIndex = variants.length - 1;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1140 if (enumIndex <= endIndex) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1141 nextItems = new Object[endIndex - enumIndex + 1];
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1142 for (int i = 0; i < nextItems.length; i++) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1143 Object child = variants[enumIndex];
86 12b890a6392a Work on databinding Frank Benoit <benoit@tionex.de> parents: 43 diff changeset	1144 if (auto val = cast(Integer)child ) {
12b890a6392a Work on databinding Frank Benoit <benoit@tionex.de> parents: 43 diff changeset	1145 nextItems[i] = new Integer(childIDToOs(val.intValue()));
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1146 } else {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1147 nextItems[i] = child;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1148 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1149 enumIndex++;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1150 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1151 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1152 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1153 if (nextItems !is null) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1154 for (int i = 0; i < nextItems.length; i++) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1155 Object nextItem = nextItems[i];
86 12b890a6392a Work on databinding Frank Benoit <benoit@tionex.de> parents: 43 diff changeset	1156 if (auto val = cast(Integer)nextItem ) {
12b890a6392a Work on databinding Frank Benoit <benoit@tionex.de> parents: 43 diff changeset	1157 int item = val.intValue();
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1158 rgvar[i].vt = COM.VT_I4;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1159 rgvar[i].byRef = cast(void*)item;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1160 COM.MoveMemory(rgvar + i * VARIANT.sizeof + 8, &item, 4);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1161 } else {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1162 Accessible accessible = cast(Accessible) nextItem;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1163 accessible.AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1164 rgvar[i].vt = COM.VT_DISPATCH;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1165 rgvar[i].byRef = cast(void*)accessible.objIAccessible;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1166 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1167 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1168 if (pceltFetched !is null)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1169 *pceltFetched = nextItems.length;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1170 if (nextItems.length is celt) return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1171 } else {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1172 if (pceltFetched !is null){
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1173 int zero = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1174 *pceltFetched = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1175 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1176 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1177 return COM.S_FALSE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1178 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1179
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1180 /* Skip over the specified number of elements in the enumeration sequence. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1181 HRESULT Skip(ULONG celt) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1182 /* If there are no listeners, query the proxy
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1183 * for its IEnumVariant, and tell it to Skip.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1184 */
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1185 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1186 IEnumVARIANT ienumvariant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1187 int code = iaccessible.QueryInterface(&COM.IIDIEnumVARIANT, cast(void**)&ienumvariant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1188 if (code !is COM.S_OK) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1189 code = ienumvariant.Skip(celt);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1190 ienumvariant.Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1191 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1192 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1193
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1194 if (celt < 1 ) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1195 enumIndex += celt;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1196 if (enumIndex > (variants.length - 1)) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1197 enumIndex = variants.length - 1;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1198 return COM.S_FALSE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1199 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1200 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1201 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1202
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1203 /* Reset the enumeration sequence to the beginning. */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1204 HRESULT Reset() {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1205 /* If there are no listeners, query the proxy
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1206 * for its IEnumVariant, and tell it to Reset.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1207 */
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1208 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1209 IEnumVARIANT ienumvariant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1210 int code = iaccessible.QueryInterface(&COM.IIDIEnumVARIANT, cast(void**)&ienumvariant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1211 if (code !is COM.S_OK) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1212 code = ienumvariant.Reset();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1213 ienumvariant.Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1214 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1215 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1216
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1217 enumIndex = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1218 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1219 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1220
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1221 /* Clone([out] ppEnum)
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1222 * Ownership of ppEnum transfers from callee to caller so reference count on ppEnum
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1223 * must be incremented before returning. The caller is responsible for releasing ppEnum.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1224 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1225 int Clone(IEnumVARIANT* ppEnum) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1226 /* If there are no listeners, query the proxy for
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1227 * its IEnumVariant, and get the Clone from it.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1228 */
11 43904fec5dca Readded the use of Vector to omit tango.core.Array dependency. Frank Benoit <benoit@tionex.de> parents: 9 diff changeset	1229 if (accessibleControlListeners.size() is 0) {
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1230 IEnumVARIANT ienumvariant;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1231 int code = iaccessible.QueryInterface(&COM.IIDIEnumVARIANT, cast(void**)&ienumvariant);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1232 if (code !is COM.S_OK) return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1233 IEnumVARIANT[1] pEnum;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1234 code = ienumvariant.Clone(pEnum.ptr);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1235 ienumvariant.Release();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1236 COM.MoveMemory(ppEnum, pEnum.ptr, (void*).sizeof);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1237 return code;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1238 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1239
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1240 if (ppEnum is null) return COM.E_INVALIDARG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1241 *ppEnum = objIEnumVARIANT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1242 AddRef();
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1243 return COM.S_OK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1244 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1245
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1246 int childIDToOs(int childID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1247 if (childID is ACC.CHILDID_SELF) return COM.CHILDID_SELF;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1248 /*
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1249 * Feature of Windows:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1250 * In Windows XP, tree item ids are 1-based indices. Previous versions
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1251 * of Windows use the tree item handle for the accessible child ID.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1252 * For backward compatibility, we still take a handle childID for tree
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1253 * items on XP. All other childIDs are 1-based indices.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1254 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1255 if (!(cast(Tree)control )) return childID + 1;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1256 if (OS.COMCTL32_MAJOR < 6) return childID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1257 return OS.SendMessage (control.handle, OS.TVM_MAPHTREEITEMTOACCID, childID, 0);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1258 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1259
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1260 int osToChildID(int osChildID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1261 if (osChildID is COM.CHILDID_SELF) return ACC.CHILDID_SELF;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1262 /*
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1263 * Feature of Windows:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1264 * In Windows XP, tree item ids are 1-based indices. Previous versions
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1265 * of Windows use the tree item handle for the accessible child ID.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1266 * For backward compatibility, we still take a handle childID for tree
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1267 * items on XP. All other childIDs are 1-based indices.
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1268 */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1269 if (!(cast(Tree)control )) return osChildID - 1;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1270 if (OS.COMCTL32_MAJOR < 6) return osChildID;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1271 return OS.SendMessage (control.handle, OS.TVM_MAPACCIDTOHTREEITEM, osChildID, 0);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1272 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1273
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1274 int stateToOs(int state) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1275 int osState = 0;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1276 if ((state & ACC.STATE_SELECTED) !is 0) osState \|= COM.STATE_SYSTEM_SELECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1277 if ((state & ACC.STATE_SELECTABLE) !is 0) osState \|= COM.STATE_SYSTEM_SELECTABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1278 if ((state & ACC.STATE_MULTISELECTABLE) !is 0) osState \|= COM.STATE_SYSTEM_MULTISELECTABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1279 if ((state & ACC.STATE_FOCUSED) !is 0) osState \|= COM.STATE_SYSTEM_FOCUSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1280 if ((state & ACC.STATE_FOCUSABLE) !is 0) osState \|= COM.STATE_SYSTEM_FOCUSABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1281 if ((state & ACC.STATE_PRESSED) !is 0) osState \|= COM.STATE_SYSTEM_PRESSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1282 if ((state & ACC.STATE_CHECKED) !is 0) osState \|= COM.STATE_SYSTEM_CHECKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1283 if ((state & ACC.STATE_EXPANDED) !is 0) osState \|= COM.STATE_SYSTEM_EXPANDED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1284 if ((state & ACC.STATE_COLLAPSED) !is 0) osState \|= COM.STATE_SYSTEM_COLLAPSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1285 if ((state & ACC.STATE_HOTTRACKED) !is 0) osState \|= COM.STATE_SYSTEM_HOTTRACKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1286 if ((state & ACC.STATE_BUSY) !is 0) osState \|= COM.STATE_SYSTEM_BUSY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1287 if ((state & ACC.STATE_READONLY) !is 0) osState \|= COM.STATE_SYSTEM_READONLY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1288 if ((state & ACC.STATE_INVISIBLE) !is 0) osState \|= COM.STATE_SYSTEM_INVISIBLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1289 if ((state & ACC.STATE_OFFSCREEN) !is 0) osState \|= COM.STATE_SYSTEM_OFFSCREEN;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1290 if ((state & ACC.STATE_SIZEABLE) !is 0) osState \|= COM.STATE_SYSTEM_SIZEABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1291 if ((state & ACC.STATE_LINKED) !is 0) osState \|= COM.STATE_SYSTEM_LINKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1292 return osState;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1293 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1294
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1295 int osToState(int osState) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1296 int state = ACC.STATE_NORMAL;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1297 if ((osState & COM.STATE_SYSTEM_SELECTED) !is 0) state \|= ACC.STATE_SELECTED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1298 if ((osState & COM.STATE_SYSTEM_SELECTABLE) !is 0) state \|= ACC.STATE_SELECTABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1299 if ((osState & COM.STATE_SYSTEM_MULTISELECTABLE) !is 0) state \|= ACC.STATE_MULTISELECTABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1300 if ((osState & COM.STATE_SYSTEM_FOCUSED) !is 0) state \|= ACC.STATE_FOCUSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1301 if ((osState & COM.STATE_SYSTEM_FOCUSABLE) !is 0) state \|= ACC.STATE_FOCUSABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1302 if ((osState & COM.STATE_SYSTEM_PRESSED) !is 0) state \|= ACC.STATE_PRESSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1303 if ((osState & COM.STATE_SYSTEM_CHECKED) !is 0) state \|= ACC.STATE_CHECKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1304 if ((osState & COM.STATE_SYSTEM_EXPANDED) !is 0) state \|= ACC.STATE_EXPANDED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1305 if ((osState & COM.STATE_SYSTEM_COLLAPSED) !is 0) state \|= ACC.STATE_COLLAPSED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1306 if ((osState & COM.STATE_SYSTEM_HOTTRACKED) !is 0) state \|= ACC.STATE_HOTTRACKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1307 if ((osState & COM.STATE_SYSTEM_BUSY) !is 0) state \|= ACC.STATE_BUSY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1308 if ((osState & COM.STATE_SYSTEM_READONLY) !is 0) state \|= ACC.STATE_READONLY;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1309 if ((osState & COM.STATE_SYSTEM_INVISIBLE) !is 0) state \|= ACC.STATE_INVISIBLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1310 if ((osState & COM.STATE_SYSTEM_OFFSCREEN) !is 0) state \|= ACC.STATE_OFFSCREEN;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1311 if ((osState & COM.STATE_SYSTEM_SIZEABLE) !is 0) state \|= ACC.STATE_SIZEABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1312 if ((osState & COM.STATE_SYSTEM_LINKED) !is 0) state \|= ACC.STATE_LINKED;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1313 return state;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1314 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1315
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1316 int roleToOs(int role) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1317 switch (role) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1318 case ACC.ROLE_CLIENT_AREA: return COM.ROLE_SYSTEM_CLIENT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1319 case ACC.ROLE_WINDOW: return COM.ROLE_SYSTEM_WINDOW;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1320 case ACC.ROLE_MENUBAR: return COM.ROLE_SYSTEM_MENUBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1321 case ACC.ROLE_MENU: return COM.ROLE_SYSTEM_MENUPOPUP;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1322 case ACC.ROLE_MENUITEM: return COM.ROLE_SYSTEM_MENUITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1323 case ACC.ROLE_SEPARATOR: return COM.ROLE_SYSTEM_SEPARATOR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1324 case ACC.ROLE_TOOLTIP: return COM.ROLE_SYSTEM_TOOLTIP;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1325 case ACC.ROLE_SCROLLBAR: return COM.ROLE_SYSTEM_SCROLLBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1326 case ACC.ROLE_DIALOG: return COM.ROLE_SYSTEM_DIALOG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1327 case ACC.ROLE_LABEL: return COM.ROLE_SYSTEM_STATICTEXT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1328 case ACC.ROLE_PUSHBUTTON: return COM.ROLE_SYSTEM_PUSHBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1329 case ACC.ROLE_CHECKBUTTON: return COM.ROLE_SYSTEM_CHECKBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1330 case ACC.ROLE_RADIOBUTTON: return COM.ROLE_SYSTEM_RADIOBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1331 case ACC.ROLE_COMBOBOX: return COM.ROLE_SYSTEM_COMBOBOX;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1332 case ACC.ROLE_TEXT: return COM.ROLE_SYSTEM_TEXT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1333 case ACC.ROLE_TOOLBAR: return COM.ROLE_SYSTEM_TOOLBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1334 case ACC.ROLE_LIST: return COM.ROLE_SYSTEM_LIST;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1335 case ACC.ROLE_LISTITEM: return COM.ROLE_SYSTEM_LISTITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1336 case ACC.ROLE_TABLE: return COM.ROLE_SYSTEM_TABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1337 case ACC.ROLE_TABLECELL: return COM.ROLE_SYSTEM_CELL;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1338 case ACC.ROLE_TABLECOLUMNHEADER: return COM.ROLE_SYSTEM_COLUMNHEADER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1339 case ACC.ROLE_TABLEROWHEADER: return COM.ROLE_SYSTEM_ROWHEADER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1340 case ACC.ROLE_TREE: return COM.ROLE_SYSTEM_OUTLINE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1341 case ACC.ROLE_TREEITEM: return COM.ROLE_SYSTEM_OUTLINEITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1342 case ACC.ROLE_TABFOLDER: return COM.ROLE_SYSTEM_PAGETABLIST;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1343 case ACC.ROLE_TABITEM: return COM.ROLE_SYSTEM_PAGETAB;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1344 case ACC.ROLE_PROGRESSBAR: return COM.ROLE_SYSTEM_PROGRESSBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1345 case ACC.ROLE_SLIDER: return COM.ROLE_SYSTEM_SLIDER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1346 case ACC.ROLE_LINK: return COM.ROLE_SYSTEM_LINK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1347 default:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1348 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1349 return COM.ROLE_SYSTEM_CLIENT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1350 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1351
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1352 int osToRole(int osRole) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1353 switch (osRole) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1354 case COM.ROLE_SYSTEM_CLIENT: return ACC.ROLE_CLIENT_AREA;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1355 case COM.ROLE_SYSTEM_WINDOW: return ACC.ROLE_WINDOW;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1356 case COM.ROLE_SYSTEM_MENUBAR: return ACC.ROLE_MENUBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1357 case COM.ROLE_SYSTEM_MENUPOPUP: return ACC.ROLE_MENU;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1358 case COM.ROLE_SYSTEM_MENUITEM: return ACC.ROLE_MENUITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1359 case COM.ROLE_SYSTEM_SEPARATOR: return ACC.ROLE_SEPARATOR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1360 case COM.ROLE_SYSTEM_TOOLTIP: return ACC.ROLE_TOOLTIP;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1361 case COM.ROLE_SYSTEM_SCROLLBAR: return ACC.ROLE_SCROLLBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1362 case COM.ROLE_SYSTEM_DIALOG: return ACC.ROLE_DIALOG;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1363 case COM.ROLE_SYSTEM_STATICTEXT: return ACC.ROLE_LABEL;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1364 case COM.ROLE_SYSTEM_PUSHBUTTON: return ACC.ROLE_PUSHBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1365 case COM.ROLE_SYSTEM_CHECKBUTTON: return ACC.ROLE_CHECKBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1366 case COM.ROLE_SYSTEM_RADIOBUTTON: return ACC.ROLE_RADIOBUTTON;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1367 case COM.ROLE_SYSTEM_COMBOBOX: return ACC.ROLE_COMBOBOX;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1368 case COM.ROLE_SYSTEM_TEXT: return ACC.ROLE_TEXT;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1369 case COM.ROLE_SYSTEM_TOOLBAR: return ACC.ROLE_TOOLBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1370 case COM.ROLE_SYSTEM_LIST: return ACC.ROLE_LIST;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1371 case COM.ROLE_SYSTEM_LISTITEM: return ACC.ROLE_LISTITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1372 case COM.ROLE_SYSTEM_TABLE: return ACC.ROLE_TABLE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1373 case COM.ROLE_SYSTEM_CELL: return ACC.ROLE_TABLECELL;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1374 case COM.ROLE_SYSTEM_COLUMNHEADER: return ACC.ROLE_TABLECOLUMNHEADER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1375 case COM.ROLE_SYSTEM_ROWHEADER: return ACC.ROLE_TABLEROWHEADER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1376 case COM.ROLE_SYSTEM_OUTLINE: return ACC.ROLE_TREE;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1377 case COM.ROLE_SYSTEM_OUTLINEITEM: return ACC.ROLE_TREEITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1378 case COM.ROLE_SYSTEM_PAGETABLIST: return ACC.ROLE_TABFOLDER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1379 case COM.ROLE_SYSTEM_PAGETAB: return ACC.ROLE_TABITEM;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1380 case COM.ROLE_SYSTEM_PROGRESSBAR: return ACC.ROLE_PROGRESSBAR;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1381 case COM.ROLE_SYSTEM_SLIDER: return ACC.ROLE_SLIDER;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1382 case COM.ROLE_SYSTEM_LINK: return ACC.ROLE_LINK;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1383 default:
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1384 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1385 return ACC.ROLE_CLIENT_AREA;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1386 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1387
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1388 /* checkWidget was copied from Widget, and rewritten to work in this package */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1389 void checkWidget () {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1390 if (!isValidThread ()) SWT.error (SWT.ERROR_THREAD_INVALID_ACCESS);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1391 if (control.isDisposed ()) SWT.error (SWT.ERROR_WIDGET_DISPOSED);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1392 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1393
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1394 /* isValidThread was copied from Widget, and rewritten to work in this package */
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1395 WINBOOL isValidThread () {
19 52184e4b815c no more direct tango.core.Thread. Rename JThread to java.lang.Thread. Frank Benoit <benoit@tionex.de> parents: 11 diff changeset	1396 return control.getDisplay ().getThread () is Thread.currentThread ();
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1397 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1398 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1399
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1400 class _IAccessibleImpl : IAccessible {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1401
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1402 Accessible parent;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1403 this(Accessible p) { parent = p; }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1404 extern (Windows):
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1405 // interface of IUnknown
43 b98647bc0aef swt win compiles for d2+phobos Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	1406 HRESULT QueryInterface(REFCIID riid, void ** ppvObject) { return parent.QueryInterface(riid, ppvObject); }
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1407 ULONG AddRef() { return parent.AddRef(); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1408 ULONG Release() { return parent.Release(); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1409
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1410 // interface of IDispatch
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1411 HRESULT GetTypeInfoCount(UINT * pctinfo) { return COM.E_NOTIMPL; }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1412 HRESULT GetTypeInfo(UINT iTInfo, LCID lcid, ITypeInfo * ppTInfo) { return COM.E_NOTIMPL; }
43 b98647bc0aef swt win compiles for d2+phobos Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	1413 HRESULT GetIDsOfNames(REFCIID riid, LPCOLESTR * rgszNames, UINT cNames, LCID lcid, DISPID * rgDispId) { return COM.E_NOTIMPL; }
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1414 HRESULT Invoke(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS* pDispParams,VARIANT* pVarResult,EXCEPINFO* pExcepInfo,UINT* puArgErr) { return COM.E_NOTIMPL; }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1415
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1416 // interface of IAccessible
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1417 HRESULT get_accParent(LPDISPATCH * ppdispParent) { return parent.get_accParent(ppdispParent); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1418 HRESULT get_accChildCount(LONG* pcountChildren) { return parent.get_accChildCount(pcountChildren); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1419 HRESULT get_accChild(VARIANT varChildID, LPDISPATCH* ppdispChild) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1420 return parent.get_accChild(varChildID, ppdispChild);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1421 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1422 HRESULT get_accName(VARIANT varID, BSTR* pszName) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1423 return parent.get_accName(varID, pszName);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1424 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1425 HRESULT get_accValue(VARIANT varID, BSTR* pszValue) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1426 return parent.get_accValue(varID, pszValue);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1427 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1428 HRESULT get_accDescription(VARIANT varID,BSTR* pszDescription) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1429 return parent.get_accDescription(varID, pszDescription);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1430 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1431 HRESULT get_accRole(VARIANT varID, VARIANT* pvarRole) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1432 return parent.get_accRole(varID, pvarRole);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1433 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1434 HRESULT get_accState(VARIANT varID, VARIANT* pvarState) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1435 return parent.get_accState(varID, pvarState);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1436 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1437 HRESULT get_accHelp(VARIANT varID, BSTR* pszHelp) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1438 return parent.get_accHelp(varID, pszHelp);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1439 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1440 HRESULT get_accHelpTopic(BSTR* pszHelpFile, VARIANT varChild, LONG* pidTopic) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1441 return parent.get_accHelpTopic(pszHelpFile, varChild, pidTopic);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1442 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1443 HRESULT get_accKeyboardShortcut(VARIANT varID, BSTR* pszKeyboardShortcut) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1444 return parent.get_accKeyboardShortcut(varID, pszKeyboardShortcut);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1445 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1446 HRESULT get_accFocus(VARIANT* pvarID) { return parent.get_accFocus(pvarID); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1447 HRESULT get_accSelection(VARIANT* pvarChildren) { return parent.get_accSelection(pvarChildren); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1448 HRESULT get_accDefaultAction(VARIANT varID,BSTR* pszDefaultAction) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1449 return parent.get_accDefaultAction(varID, pszDefaultAction);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1450 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1451 HRESULT accSelect(LONG flagsSelect, VARIANT varID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1452 return parent.accSelect(flagsSelect, varID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1453 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1454 HRESULT accLocation(LONG* pxLeft, LONG* pyTop, LONG* pcxWidth, LONG* pcyHeight, VARIANT varID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1455 return parent.accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, varID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1456 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1457 HRESULT accNavigate(LONG navDir, VARIANT varStart, VARIANT* pvarEnd) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1458 return parent.accNavigate(navDir, varStart, pvarEnd);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1459 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1460 HRESULT accHitTest(LONG xLeft, LONG yTop, VARIANT* pvarID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1461 return parent.accHitTest(xLeft, yTop, pvarID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1462 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1463 HRESULT accDoDefaultAction(VARIANT varID) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1464 return parent.accDoDefaultAction(varID);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1465 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1466 HRESULT put_accName(VARIANT varID, BSTR* szName) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1467 return parent.put_accName(varID, szName);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1468 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1469 HRESULT put_accValue(VARIANT varID, BSTR* szValue) {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1470 return parent.put_accValue(varID, szValue);
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1471 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1472 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1473
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1474 class _IEnumVARIANTImpl : IEnumVARIANT {
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1475
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1476 Accessible parent;
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1477 this(Accessible a) { parent = a; }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1478 extern (Windows):
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1479 // interface of IUnknown
43 b98647bc0aef swt win compiles for d2+phobos Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	1480 HRESULT QueryInterface(REFCIID riid, void ** ppvObject) { return parent.QueryInterface(riid, ppvObject); }
0 6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1481 ULONG AddRef() { return parent.AddRef(); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1482 ULONG Release() { return parent.Release(); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1483
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1484 // interface of IEnumVARIANT
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1485 HRESULT Next(ULONG celt, VARIANT rgvar, ULONG pceltFetched) { return parent.Next(celt, rgvar, pceltFetched); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1486 HRESULT Skip(ULONG celt) { return parent.Skip(celt); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1487 HRESULT Reset() { return parent.Reset(); }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1488 HRESULT Clone(LPENUMVARIANT * ppenum) { return COM.E_NOTIMPL;}
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1489 }
6dd524f61e62 add dwt win and basic java stuff Frank Benoit <benoit@tionex.de> parents: diff changeset	1490

Mercurial > projects > dwt2

annotate org.eclipse.swt.win32.win32.x86/src/org/eclipse/swt/accessibility/Accessible.d @ 86:12b890a6392a