projects/dwt-linux: dwt/accessibility/AccessibleObject.d annotate

annotate dwt/accessibility/AccessibleObject.d @ 361:4bffbf81e2d6

redirect direct prints to DwtLogger

author	Frank Benoit <benoit@tionex.de>
date	Fri, 20 Mar 2009 21:00:06 +0100
parents	ffb904674b52
children

rev	line source
72 5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1 /*******************************************************************************
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	2 * Copyright (c) 2000, 2007 IBM Corporation and others.
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	3 * All rights reserved. This program and the accompanying materials
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	4 * are made available under the terms of the Eclipse Public License v1.0
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	5 * which accompanies this distribution, and is available at
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	6 * http://www.eclipse.org/legal/epl-v10.html
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	7 *
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	8 * Contributors:
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	9 * IBM Corporation - initial API and implementation
72 5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	10 * Port to the D programming language:
5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	11 * Frank Benoit <benoit@tionex.de>
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	12 *******************************************************************************/
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	13 module dwt.accessibility.AccessibleObject;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	14
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	15 import dwt.internal.accessibility.gtk.ATK;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	16 import dwt.internal.gtk.OS;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	17 import dwt.accessibility.Accessible;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	18 import dwt.accessibility.AccessibleListener;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	19 import dwt.accessibility.AccessibleControlListener;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	20 import dwt.accessibility.AccessibleTextListener;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	21 import dwt.accessibility.AccessibleEvent;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	22 import dwt.accessibility.AccessibleControlEvent;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	23 import dwt.accessibility.AccessibleTextEvent;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	24 import dwt.accessibility.ACC;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	25 import dwt.accessibility.AccessibleFactory;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	26 import dwt.widgets.Display;
217 d5b1c263ee37 utils import Frank Benoit <benoit@tionex.de> parents: 195 diff changeset	27 import dwt.dwthelper.utils;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	28 import tango.text.Util;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	29 import Math = tango.math.Math;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	30
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	31 class AccessibleObject {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	32 AtkObject* handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	33 int /long/ parentType;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	34 int index = -1, id = ACC.CHILDID_SELF;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	35 Accessible accessible;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	36 AccessibleObject parent;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	37 AccessibleObject[AtkObject*] children;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	38 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	39 * a lightweight object does not correspond to a concrete gtk widget, but
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	40 * to a logical child of a widget (eg.- a CTabItem, which is simply drawn)
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	41 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	42 bool isLightweight = false;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	43
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	44 static String actionNamePtr;
380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	45 static String descriptionPtr;
380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	46 static String keybindingPtr;
380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	47 static String namePtr;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	48 static AccessibleObject[AtkObject*] AccessibleObjects;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	49 static /const/ uint ATK_ACTION_TYPE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	50 static /const/ uint ATK_COMPONENT_TYPE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	51 static /const/ uint ATK_HYPERTEXT_TYPE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	52 static /const/ uint ATK_SELECTION_TYPE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	53 static /const/ uint ATK_TEXT_TYPE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	54 static /const/ bool DEBUG;
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	55 static bool static_this_completed = false;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	56
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	57 package static void static_this() {
62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	58 if( static_this_completed ) return;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	59 DEBUG = Display.DEBUG;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	60 ATK_ACTION_TYPE = ATK.g_type_from_name ("AtkAction");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	61 ATK_COMPONENT_TYPE = ATK.g_type_from_name ("AtkComponent");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	62 ATK_HYPERTEXT_TYPE = ATK.g_type_from_name ("AtkHypertext");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	63 ATK_SELECTION_TYPE = ATK.g_type_from_name ("AtkSelection");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	64 ATK_TEXT_TYPE = ATK.g_type_from_name ("AtkText");
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	65 static_this_completed = true;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	66 }
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	67
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	68 this (int /long/ type, GtkWidget* widget, Accessible accessible, int /long/ parentType, bool isLightweight) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	69 handle = cast(AtkObject*)ATK.g_object_new (type, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	70 this.parentType = parentType;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	71 ATK.atk_object_initialize (handle, widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	72 this.accessible = accessible;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	73 this.isLightweight = isLightweight;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	74 AccessibleObjects[handle] = this;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	75 if (DEBUG) getDwtLogger().info("new AccessibleObject: {}", handle);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	76 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	77
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	78 void addChild (AccessibleObject child) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	79 children[child.handle] = child;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	80 child.setParent (this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	81 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	82
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	83 package static extern(C) char* atkAction_get_keybinding (void* obj, int index) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	84 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	85 if (DEBUG) getDwtLogger().info ("-->atkAction_get_keybinding");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	86 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	87 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	88 char* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	89 if (ATK.g_type_is_a (object.parentType, ATK_ACTION_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	90 auto superType = cast(AtkActionIface*)ATK.g_type_interface_peek_parent (ATK.ATK_ACTION_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	91 AtkActionIface* actionIface = superType;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	92 if (actionIface.get_keybinding !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	93 parentResult = actionIface.get_keybinding( object.handle, index );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	94 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	95 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	96 AccessibleListener[] listeners = object.getAccessibleListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	97 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	98
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	99 AccessibleEvent event = new AccessibleEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	100 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	101 if (parentResult !is null) {
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	102 String res = fromStringz( parentResult );
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	103 event.result = res.dup;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	104 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	105 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	106 listeners [i].getKeyboardShortcut (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	107 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	108 if (event.result is null) return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	109 if (keybindingPtr !is null ) OS.g_free (keybindingPtr.ptr);
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	110 String name = event.result.dup ~ \0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	111 char* p = cast(char*) OS.g_malloc (name.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	112 keybindingPtr = p ? p[ 0 .. name.length ] : null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	113 return keybindingPtr.ptr;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	114 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	115
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	116 package static extern(C) char* atkAction_get_name (void* obj, int index) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	117 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	118 if (DEBUG) getDwtLogger().info ("-->atkAction_get_name");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	119 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	120 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	121 char* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	122 if (ATK.g_type_is_a (object.parentType, ATK_ACTION_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	123 auto actionIface = cast(AtkActionIface*)ATK.g_type_interface_peek_parent (ATK.ATK_ACTION_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	124 if (actionIface.get_name !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	125 parentResult = actionIface.get_name( object.handle, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	126 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	127 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	128 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	129 if (listeners.length is 0) return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	130
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	131 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	132 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	133 if (parentResult !is null) {
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	134 String res = fromStringz( parentResult );
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	135 event.result = res.dup;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	136 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	137 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	138 listeners [i].getDefaultAction (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	139 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	140 if (event.result is null) return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	141 if (actionNamePtr !is null) OS.g_free (actionNamePtr.ptr);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	142
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	143 String name = event.result.dup ~ \0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	144 auto p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	145 actionNamePtr = p ? p[ 0 .. name.length ] : null;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	146 return actionNamePtr.ptr;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	147 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	148
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	149 package static extern(C) void atkComponent_get_extents (void* obj, int* x, int* y, int* width, int* height, int coord_type) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	150 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	151 if (DEBUG) getDwtLogger().info ("-->atkComponent_get_extents");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	152 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	153 if (object is null) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	154 *x = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	155 *y = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	156 *width = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	157 *height = 0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	158 if (ATK.g_type_is_a (object.parentType, ATK_COMPONENT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	159 auto componentIface = cast(AtkComponentIface*) ATK.g_type_interface_peek_parent (ATK.ATK_COMPONENT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	160 if (componentIface.get_extents !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	161 componentIface.get_extents( object.handle, x, y, width, height, coord_type);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	162 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	163 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	164 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	165 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	166
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	167 int parentX = x, parentY = y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	168 int parentWidth = width, parentHeight = height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	169 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	170 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	171 event.x = parentX; event.y = parentY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	172 event.width = parentWidth; event.height = parentHeight;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	173 if (coord_type is ATK.ATK_XY_WINDOW) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	174 /* translate control -> display, for filling in event to be dispatched */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	175 auto gtkAccessible = ATK.GTK_ACCESSIBLE (object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	176 auto topLevel = ATK.gtk_widget_get_toplevel (gtkAccessible.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	177 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	178 int topWindowX, topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	179 OS.gdk_window_get_origin (window, &topWindowX, &topWindowY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	180 event.x += topWindowX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	181 event.y += topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	182 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	183 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	184 listeners [i].getLocation (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	185 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	186 if (coord_type is ATK.ATK_XY_WINDOW) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	187 /* translate display -> control, for answering to the OS */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	188 auto gtkAccessible = ATK.GTK_ACCESSIBLE (object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	189 auto topLevel = ATK.gtk_widget_get_toplevel (gtkAccessible.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	190 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	191 int topWindowX, topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	192 OS.gdk_window_get_origin (window, &topWindowX, &topWindowY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	193 event.x -= topWindowX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	194 event.y -= topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	195 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	196 *x = event.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	197 *y = event.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	198 *width = event.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	199 *height = event.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	200 //return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	201 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	202
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	203 package static extern(C) void atkComponent_get_position (void* obj, int* x, int* y, int coord_type) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	204 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	205 if (DEBUG) getDwtLogger().info ("-->atkComponent_get_position, object: {} x:{} y:{} coord:{}", atkObject, x, y, coord_type);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	206 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	207 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	208 *x=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	209 *y=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	210 if (ATK.g_type_is_a (object.parentType, ATK_COMPONENT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	211 auto componentIface = cast(AtkComponentIface*)ATK.g_type_interface_peek_parent (ATK.ATK_COMPONENT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	212 if (componentIface.get_extents !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	213 componentIface.get_position( object.handle, x, y, coord_type);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	214 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	215 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	216 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	217 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	218
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	219 int parentX, parentY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	220 parentX = *x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	221 parentY = *y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	222 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	223 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	224 event.x = parentX; event.y = parentY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	225 if (coord_type is ATK.ATK_XY_WINDOW) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	226 /* translate control -> display, for filling in event to be dispatched */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	227 auto gtkAccessible = ATK.GTK_ACCESSIBLE (object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	228 auto topLevel = ATK.gtk_widget_get_toplevel (gtkAccessible.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	229 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	230 int topWindowX, topWindowY;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	231 OS.gdk_window_get_origin (window, &topWindowX, &topWindowY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	232 event.x += topWindowX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	233 event.y += topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	234 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	235 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	236 listeners [i].getLocation (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	237 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	238 if (coord_type is ATK.ATK_XY_WINDOW) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	239 /* translate display -> control, for answering to the OS */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	240 auto gtkAccessible = ATK.GTK_ACCESSIBLE (object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	241 auto topLevel = ATK.gtk_widget_get_toplevel (gtkAccessible.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	242 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	243 int topWindowX, topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	244 OS.gdk_window_get_origin (window, &topWindowX, &topWindowY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	245 event.x -= topWindowX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	246 event.y -= topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	247 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	248 *x=event.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	249 *y=event.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	250 //return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	251 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	252
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	253 //PORTING_FIXME: what about the coord_type? componentIface.get_size( object.handle, width, height, coord_type);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	254 //package static extern(C) void atkComponent_get_size (void* obj, int* width, int* height, int coord_type) {
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	255 package static extern(C) void atkComponent_get_size (void* obj, int* width, int* height) {
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	256 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	257 if (DEBUG) getDwtLogger().info ("-->atkComponent_get_size");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	258 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	259 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	260 *width=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	261 *height=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	262 if (ATK.g_type_is_a (object.parentType, ATK_COMPONENT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	263 auto componentIface = cast(AtkComponentIface*)ATK.g_type_interface_peek_parent (ATK.ATK_COMPONENT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	264 if (componentIface.get_extents !is null) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	265 //PORTING_FIXME: what about the coord_type? componentIface.get_size( object.handle, width, height, coord_type);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	266 componentIface.get_size( object.handle, width, height);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	267 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	268 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	269 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	270 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	271
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	272 int parentWidth, parentHeight;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	273 parentWidth= *width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	274 parentHeight= *height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	275 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	276 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	277 event.width = parentWidth; event.height = parentHeight;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	278 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	279 listeners [i].getLocation (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	280 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	281 *width=event.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	282 *height=event.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	283 //return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	284 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	285
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	286 package static extern(C) AtkObject* atkComponent_ref_accessible_at_point (void* obj, int x, int y, int coord_type) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	287 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	288 if (DEBUG) getDwtLogger().info ("-->atkComponent_ref_accessible_at_point");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	289 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	290 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	291 AtkObject* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	292 if (ATK.g_type_is_a (object.parentType, ATK_COMPONENT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	293 auto componentIface = cast(AtkComponentIface*)ATK.g_type_interface_peek_parent (ATK.ATK_COMPONENT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	294 if (componentIface.ref_accessible_at_point !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	295 parentResult = componentIface.ref_accessible_at_point( object.handle, x, y, coord_type);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	296 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	297 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	298 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	299 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	300
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	301 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	302 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	303 event.x = x; event.y = y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	304 if (coord_type is ATK.ATK_XY_WINDOW) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	305 /* translate control -> display, for filling in the event to be dispatched */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	306 auto gtkAccessible = ATK.GTK_ACCESSIBLE (object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	307 auto topLevel = ATK.gtk_widget_get_toplevel (gtkAccessible.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	308 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	309 int topWindowX, topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	310 OS.gdk_window_get_origin (window, &topWindowX, &topWindowY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	311 event.x += topWindowX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	312 event.y += topWindowY;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	313 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	314 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	315 listeners [i].getChildAtPoint (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	316 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	317 if (event.childID is object.id) event.childID = ACC.CHILDID_SELF;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	318 AccessibleObject accObj = object.getChildByID (event.childID);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	319 if (accObj !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	320 if (parentResult !is null) OS.g_object_unref (parentResult);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	321 OS.g_object_ref (accObj.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	322 return accObj.handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	323 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	324 return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	325 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	326
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	327 package static extern(C) AtkHyperlink* atkHypertext_get_link (void* obj, int link_index) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	328 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	329 if (DEBUG) getDwtLogger().info ("-->atkHypertext_get_link");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	330 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	331 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	332
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	333 package static extern(C) int atkHypertext_get_n_links (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	334 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	335 if (DEBUG) getDwtLogger().info ("-->atkHypertext_get_n_links");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	336 return 0; /* read hyperlink's name */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	337 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	338
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	339 package static extern(C) int atkHypertext_get_link_index (void* obj, int char_index) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	340 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	341 if (DEBUG) getDwtLogger().info ("-->atkHypertext_get_link_index");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	342 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	343 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	344
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	345 package static extern(C) char* atkObject_get_description (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	346 if (DEBUG) getDwtLogger().info ("-->atkObject_get_description");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	347 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	348 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	349 char* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	350 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	351 if (objectClass.get_description !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	352 parentResult = objectClass.get_description(object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	353 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	354 AccessibleListener[] listeners = object.getAccessibleListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	355 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	356
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	357 AccessibleEvent event = new AccessibleEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	358 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	359 if (parentResult !is null) {
158 de2578a843a7 Tango update to rev 3158, TracedException>Exception, fromUtf8z>fromStringz,Fix Bug in MenuItem Thanx to nascent for the report. Frank Benoit <benoit@tionex.de> parents: 104 diff changeset	360 event.result = fromStringz( parentResult ).dup;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	361 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	362 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	363 listeners [i].getDescription (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	364 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	365 if (event.result is null) return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	366 if (descriptionPtr !is null) OS.g_free (descriptionPtr.ptr);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	367
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	368 String name = event.result.dup ~ \0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	369 char* p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	370 descriptionPtr = p ? p[ 0 .. name.length ] : null;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	371 return descriptionPtr.ptr; }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	372
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	373 package static extern(C) char* atkObject_get_name (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	374 if (DEBUG) getDwtLogger().info ("-->atkObject_get_name: {}", atkObject);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	375 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	376 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	377 char* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	378 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	379 if (objectClass.get_name !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	380 parentResult = objectClass.get_name( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	381 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	382 AccessibleListener[] listeners = object.getAccessibleListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	383 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	384
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	385 AccessibleEvent event = new AccessibleEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	386 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	387 if (parentResult !is null) {
158 de2578a843a7 Tango update to rev 3158, TracedException>Exception, fromUtf8z>fromStringz,Fix Bug in MenuItem Thanx to nascent for the report. Frank Benoit <benoit@tionex.de> parents: 104 diff changeset	388 event.result = fromStringz( parentResult ).dup;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	389 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	390 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	391 listeners [i].getName (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	392 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	393 if (event.result is null) return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	394 if (namePtr !is null) OS.g_free (namePtr.ptr);
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	395 String name = event.result.dup ~ \0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	396 char* p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	397 namePtr = p ? p[ 0 .. name.length ] : null;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	398 return namePtr.ptr;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	399 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	400
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	401 package static extern(C) int atkObject_get_n_children (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	402 if (DEBUG) getDwtLogger().info ("-->atkObject_get_n_children: {}", atkObject);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	403 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	404 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	405 int /long/ parentResult = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	406 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	407 if (objectClass.get_n_children !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	408 parentResult = objectClass.get_n_children( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	409 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	410 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	411 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	412
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	413 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	414 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	415 event.detail = cast(int)/64/parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	416 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	417 listeners [i].getChildCount (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	418 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	419 return event.detail;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	420 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	421
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	422 package static extern(C) int atkObject_get_index_in_parent (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	423 if (DEBUG) getDwtLogger().info ("-->atkObjectCB_get_index_in_parent. ");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	424 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	425 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	426 if (object.index !is -1) return object.index;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	427 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	428 if (objectClass.get_index_in_parent is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	429 return objectClass.get_index_in_parent(object. handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	430 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	431
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	432 package static extern(C) AtkObject* atkObject_get_parent (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	433 if (DEBUG) getDwtLogger().info ("-->atkObject_get_parent: {}", atkObject);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	434 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	435 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	436 if (object.parent !is null) return object.parent.handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	437 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	438 if (objectClass.get_parent is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	439 return objectClass.get_parent( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	440 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	441
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	442 package static extern(C) int atkObject_get_role (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	443 if (DEBUG) getDwtLogger().info ("-->atkObject_get_role: {}", atkObject);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	444 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	445 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	446 if (object.getAccessibleListeners ().length !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	447 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	448 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	449 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	450 event.detail = -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	451 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	452 listeners [i].getRole (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	453 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	454 if (event.detail !is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	455 switch (event.detail) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	456 /* Convert from win32 role values to atk role values */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	457 case ACC.ROLE_CHECKBUTTON: return ATK.ATK_ROLE_CHECK_BOX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	458 case ACC.ROLE_CLIENT_AREA: return ATK.ATK_ROLE_DRAWING_AREA;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	459 case ACC.ROLE_COMBOBOX: return ATK.ATK_ROLE_COMBO_BOX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	460 case ACC.ROLE_DIALOG: return ATK.ATK_ROLE_DIALOG;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	461 case ACC.ROLE_LABEL: return ATK.ATK_ROLE_LABEL;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	462 case ACC.ROLE_LINK: return ATK.ATK_ROLE_TEXT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	463 case ACC.ROLE_LIST: return ATK.ATK_ROLE_LIST;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	464 case ACC.ROLE_LISTITEM: return ATK.ATK_ROLE_LIST_ITEM;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	465 case ACC.ROLE_MENU: return ATK.ATK_ROLE_MENU;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	466 case ACC.ROLE_MENUBAR: return ATK.ATK_ROLE_MENU_BAR;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	467 case ACC.ROLE_MENUITEM: return ATK.ATK_ROLE_MENU_ITEM;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	468 case ACC.ROLE_PROGRESSBAR: return ATK.ATK_ROLE_PROGRESS_BAR;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	469 case ACC.ROLE_PUSHBUTTON: return ATK.ATK_ROLE_PUSH_BUTTON;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	470 case ACC.ROLE_SCROLLBAR: return ATK.ATK_ROLE_SCROLL_BAR;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	471 case ACC.ROLE_SEPARATOR: return ATK.ATK_ROLE_SEPARATOR;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	472 case ACC.ROLE_SLIDER: return ATK.ATK_ROLE_SLIDER;
240 ce446666f5a2 Update to SWT 3.4M7 Frank Benoit <benoit@tionex.de> parents: 238 diff changeset	473 case ACC.ROLE_TABLE: return ATK.ATK_ROLE_LIST;
ce446666f5a2 Update to SWT 3.4M7 Frank Benoit <benoit@tionex.de> parents: 238 diff changeset	474 case ACC.ROLE_TABLECELL: return ATK.ATK_ROLE_LIST_ITEM;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	475 case ACC.ROLE_TABLECOLUMNHEADER: return ATK.ATK_ROLE_TABLE_COLUMN_HEADER;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	476 case ACC.ROLE_TABLEROWHEADER: return ATK.ATK_ROLE_TABLE_ROW_HEADER;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	477 case ACC.ROLE_TABFOLDER: return ATK.ATK_ROLE_PAGE_TAB_LIST;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	478 case ACC.ROLE_TABITEM: return ATK.ATK_ROLE_PAGE_TAB;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	479 case ACC.ROLE_TEXT: return ATK.ATK_ROLE_TEXT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	480 case ACC.ROLE_TOOLBAR: return ATK.ATK_ROLE_TOOL_BAR;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	481 case ACC.ROLE_TOOLTIP: return ATK.ATK_ROLE_TOOL_TIP;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	482 case ACC.ROLE_TREE: return ATK.ATK_ROLE_TREE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	483 case ACC.ROLE_TREEITEM: return ATK.ATK_ROLE_LIST_ITEM;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	484 case ACC.ROLE_RADIOBUTTON: return ATK.ATK_ROLE_RADIO_BUTTON;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	485 case ACC.ROLE_WINDOW: return ATK.ATK_ROLE_WINDOW;
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	486 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	487 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	488 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	489 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	490 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	491 if (objectClass.get_role is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	492 return objectClass.get_role( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	493 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	494
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	495 package static extern(C) AtkObject* atkObject_ref_child (AtkObject* atkObject, int /long/ index) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	496 if (DEBUG) getDwtLogger().info ("-->atkObject_ref_child: {} of: {}", index, atkObject);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	497 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	498 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	499 object.updateChildren ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	500 AccessibleObject accObject = object.getChildByIndex (cast(int)/64/index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	501 if (accObject !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	502 OS.g_object_ref (accObject.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	503 return accObject.handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	504 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	505 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	506 if (objectClass.ref_child is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	507 return objectClass.ref_child( object.handle, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	508 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	509
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	510 package static extern(C) AtkStateSet * atkObject_ref_state_set (AtkObject* atkObject) {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	511 if (DEBUG) getDwtLogger().info ("-->atkObject_ref_state_set");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	512 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	513 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	514 AtkStateSet* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	515 auto objectClass = cast(AtkObjectClass*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	516 if (objectClass.ref_state_set !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	517 parentResult = objectClass.ref_state_set( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	518 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	519 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	520 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	521
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	522 auto set = parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	523 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	524 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	525 event.detail = -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	526 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	527 listeners [i].getState (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	528 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	529 if (event.detail !is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	530 /* Convert from win32 state values to atk state values */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	531 int state = event.detail;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	532 if ((state & ACC.STATE_BUSY) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_BUSY);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	533 if ((state & ACC.STATE_CHECKED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_CHECKED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	534 if ((state & ACC.STATE_EXPANDED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_EXPANDED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	535 if ((state & ACC.STATE_FOCUSABLE) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_FOCUSABLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	536 if ((state & ACC.STATE_FOCUSED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_FOCUSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	537 if ((state & ACC.STATE_HOTTRACKED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_ARMED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	538 if ((state & ACC.STATE_INVISIBLE) is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_VISIBLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	539 if ((state & ACC.STATE_MULTISELECTABLE) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_MULTISELECTABLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	540 if ((state & ACC.STATE_OFFSCREEN) is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_SHOWING);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	541 if ((state & ACC.STATE_PRESSED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_PRESSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	542 if ((state & ACC.STATE_READONLY) is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_EDITABLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	543 if ((state & ACC.STATE_SELECTABLE) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_SELECTABLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	544 if ((state & ACC.STATE_SELECTED) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_SELECTED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	545 if ((state & ACC.STATE_SIZEABLE) !is 0) ATK.atk_state_set_add_state (set, ATK.ATK_STATE_RESIZABLE);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	546 /* Note: STATE_COLLAPSED, STATE_LINKED and STATE_NORMAL have no ATK equivalents */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	547 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	548 return set;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	549 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	550
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	551 package static extern(C) int atkSelection_is_child_selected (void* obj, int index) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	552 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	553 if (DEBUG) getDwtLogger().info ("-->atkSelection_is_child_selected");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	554 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	555 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	556 int /long/ parentResult = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	557 if (ATK.g_type_is_a (object.parentType, ATK_SELECTION_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	558 auto selectionIface = cast(AtkSelectionIface*)ATK.g_type_interface_peek_parent (ATK.ATK_SELECTION_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	559 if (selectionIface.is_child_selected !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	560 parentResult = selectionIface.is_child_selected( object.handle, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	561 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	562 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	563 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	564 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	565
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	566 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	567 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	568 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	569 listeners [i].getSelection (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	570 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	571 AccessibleObject accessibleObject = object.getChildByID (event.childID);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	572 if (accessibleObject !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	573 return accessibleObject.index is index ? 1 : 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	574 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	575 return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	576 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	577
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	578 package static extern(C) AtkObject* atkSelection_ref_selection (void* obj, int index) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	579 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	580 if (DEBUG) getDwtLogger().info ("-->atkSelection_ref_selection");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	581 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	582 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	583 AtkObject* parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	584 if (ATK.g_type_is_a (object.parentType, ATK_SELECTION_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	585 auto selectionIface = cast(AtkSelectionIface*)ATK.g_type_interface_peek_parent (ATK.ATK_SELECTION_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	586 if (selectionIface.ref_selection !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	587 parentResult = selectionIface.ref_selection( object.handle, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	588 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	589 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	590 AccessibleControlListener[] listeners = object.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	591 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	592
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	593 AccessibleControlEvent event = new AccessibleControlEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	594 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	595 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	596 listeners [i].getSelection (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	597 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	598 AccessibleObject accObj = object.getChildByID (event.childID);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	599 if (accObj !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	600 if (parentResult !is null) OS.g_object_unref (parentResult);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	601 OS.g_object_ref (accObj.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	602 return accObj.handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	603 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	604 return parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	605 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	606
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	607 package static extern(C) int atkText_get_caret_offset (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	608 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	609 if (DEBUG) getDwtLogger().info ("-->atkText_get_caret_offset");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	610 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	611 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	612 int /long/ parentResult = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	613 if (ATK.g_type_is_a (object.parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	614 auto textIface = cast(AtkTextIface*)ATK.g_type_interface_peek_parent (ATK.ATK_TEXT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	615 if (textIface.get_caret_offset !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	616 parentResult = textIface.get_caret_offset( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	617 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	618 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	619 AccessibleTextListener[] listeners = object.getTextListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	620 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	621
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	622 AccessibleTextEvent event = new AccessibleTextEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	623 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	624 event.offset = cast(int)/64/parentResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	625 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	626 listeners [i].getCaretOffset (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	627 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	628 return event.offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	629 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	630
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	631 package static extern(C) uint atkText_get_character_at_offset (void* obj, int offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	632 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	633 if (DEBUG) getDwtLogger().info ("-->atkText_get_character_at_offset");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	634 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	635 if (object is null) return 0;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	636 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	637 if (text !is null) return text[cast(int)/64/offset ]; // TODO
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	638 if (ATK.g_type_is_a (object.parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	639 auto textIface = cast(AtkTextIface*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	640 if (textIface.get_character_at_offset !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	641 return textIface.get_character_at_offset( object.handle, offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	642 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	643 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	644 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	645 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	646
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	647 package static extern(C) int atkText_get_character_count (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	648 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	649 if (DEBUG) getDwtLogger().info ("-->atkText_get_character_count");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	650 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	651 if (object is null) return 0;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	652 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	653 if (text !is null) return text.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	654 if (ATK.g_type_is_a (object.parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	655 auto textIface = cast(AtkTextIface*)ATK.g_type_class_peek (object.parentType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	656 if (textIface.get_character_count !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	657 return textIface.get_character_count( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	658 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	659 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	660 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	661 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	662
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	663 package static extern(C) int atkText_get_n_selections (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	664 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	665 if (DEBUG) getDwtLogger().info("-->atkText_get_n_selections");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	666 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	667 if (object is null) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	668 int /long/ parentResult = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	669 if (ATK.g_type_is_a (object.parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	670 auto textIface = cast(AtkTextIface*)ATK.g_type_interface_peek_parent (ATK.ATK_TEXT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	671 if (textIface.get_n_selections !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	672 parentResult = textIface.get_n_selections( object.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	673 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	674 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	675 AccessibleTextListener[] listeners = object.getTextListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	676 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	677
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	678 AccessibleTextEvent event = new AccessibleTextEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	679 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	680 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	681 listeners [i].getSelectionRange (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	682 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	683 return event.length is 0 ? parentResult : 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	684 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	685
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	686 package static extern(C) char* atkText_get_selection (void* obj, int selection_num, int* start_offset, int* end_offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	687 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	688 if (DEBUG) getDwtLogger().info ("-->atkText_get_selection");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	689 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	690 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	691 *start_offset=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	692 *end_offset=0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	693 if (ATK.g_type_is_a (object.parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	694 auto textIface = cast(AtkTextIface*)ATK.g_type_interface_peek_parent (ATK.ATK_TEXT_GET_IFACE (object.handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	695 if (textIface.get_selection !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	696 textIface.get_selection( object.handle, selection_num, start_offset, end_offset );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	697 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	698 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	699 AccessibleTextListener[] listeners = object.getTextListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	700 if (listeners.length is 0) return null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	701
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	702 AccessibleTextEvent event = new AccessibleTextEvent (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	703 event.childID = object.id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	704 int parentStart;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	705 int parentEnd;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	706 parentStart= *start_offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	707 parentEnd= *end_offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	708 event.offset = parentStart;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	709 event.length = parentEnd - parentStart;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	710 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	711 listeners [i].getSelectionRange (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	712 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	713 *start_offset = event.offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	714 *end_offset = event.offset + event.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	715 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	716 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	717
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	718 package static extern(C) char* atkText_get_text (void* obj, int start_offset, int end_offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	719 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	720 if (DEBUG) getDwtLogger().info ("-->atkText_get_text: {},{}", start_offset, end_offset);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	721 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	722 if (object is null) return null;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	723 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	724 if (text.length > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	725 if (end_offset is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	726 end_offset = text.length ;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	727 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	728 end_offset = Math.min (end_offset, text.length );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	729 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	730 start_offset = Math.min (start_offset, end_offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	731 text = text[ start_offset .. end_offset ];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	732 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	733 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	734 result[ text.length ] = '\0';
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	735 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	736 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	737 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	738 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	739
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	740 package static extern(C) char* atkText_get_text_after_offset (void* obj, int offset_value, int boundary_type, int* start_offset, int* end_offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	741 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	742 if (DEBUG) getDwtLogger().info ("-->atkText_get_text_after_offset");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	743 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	744 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	745 int offset = cast(int)/64/offset_value;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	746 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	747 if (text.length > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	748 int length = text.length ;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	749 offset = Math.min (offset, length - 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	750 int startBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	751 int endBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	752 switch (cast(int)/64/boundary_type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	753 case ATK.ATK_TEXT_BOUNDARY_CHAR: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	754 if (length > offset) endBounds++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	755 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	756 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	757 case ATK.ATK_TEXT_BOUNDARY_WORD_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	758 int wordStart1 = nextIndexOfChar (text, " !?.\n", offset - 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	759 if (wordStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	760 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	761 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	762 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	763 wordStart1 = nextIndexOfNotChar (text, " !?.\n", wordStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	764 if (wordStart1 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	765 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	766 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	767 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	768 startBounds = wordStart1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	769 int wordStart2 = nextIndexOfChar (text, " !?.\n", wordStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	770 if (wordStart2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	771 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	772 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	773 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	774 endBounds = nextIndexOfNotChar (text, " !?.\n", wordStart2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	775 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	776 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	777 case ATK.ATK_TEXT_BOUNDARY_WORD_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	778 int previousWordEnd = previousIndexOfNotChar (text, " \n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	779 if (previousWordEnd is -1 \|\| previousWordEnd !is offset - 1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	780 offset = nextIndexOfNotChar (text, " \n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	781 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	782 if (offset is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	783 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	784 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	785 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	786 int wordEnd1 = nextIndexOfChar (text, " !?.\n", cast(int)/64/offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	787 if (wordEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	788 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	789 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	790 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	791 wordEnd1 = nextIndexOfNotChar (text, "!?.", wordEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	792 if (wordEnd1 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	793 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	794 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	795 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	796 startBounds = wordEnd1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	797 int wordEnd2 = nextIndexOfNotChar (text, " \n", wordEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	798 if (wordEnd2 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	799 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	800 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	801 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	802 wordEnd2 = nextIndexOfChar (text, " !?.\n", wordEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	803 if (wordEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	804 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	805 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	806 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	807 endBounds = nextIndexOfNotChar (text, "!?.", wordEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	808 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	809 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	810 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	811 int previousSentenceEnd = previousIndexOfChar (text, "!?.", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	812 int previousText = previousIndexOfNotChar (text, " !?.\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	813 int sentenceStart1 = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	814 if (previousSentenceEnd >= previousText) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	815 sentenceStart1 = nextIndexOfNotChar (text, " !?.\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	816 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	817 sentenceStart1 = nextIndexOfChar (text, "!?.", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	818 if (sentenceStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	819 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	820 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	821 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	822 sentenceStart1 = nextIndexOfNotChar (text, " !?.\n", sentenceStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	823 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	824 if (sentenceStart1 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	825 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	826 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	827 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	828 startBounds = sentenceStart1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	829 int sentenceStart2 = nextIndexOfChar (text, "!?.", sentenceStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	830 if (sentenceStart2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	831 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	832 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	833 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	834 endBounds = nextIndexOfNotChar (text, " !?.\n", sentenceStart2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	835 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	836 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	837 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	838 int sentenceEnd1 = nextIndexOfChar (text, "!?.", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	839 if (sentenceEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	840 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	841 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	842 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	843 sentenceEnd1 = nextIndexOfNotChar (text, "!?.", sentenceEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	844 if (sentenceEnd1 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	845 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	846 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	847 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	848 startBounds = sentenceEnd1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	849 int sentenceEnd2 = nextIndexOfNotChar (text, " \n", sentenceEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	850 if (sentenceEnd2 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	851 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	852 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	853 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	854 sentenceEnd2 = nextIndexOfChar (text, "!?.", sentenceEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	855 if (sentenceEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	856 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	857 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	858 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	859 endBounds = nextIndexOfNotChar (text, "!?.", sentenceEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	860 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	861 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	862 case ATK.ATK_TEXT_BOUNDARY_LINE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	863 int lineStart1 = locate( text, '\n' );
195 e0ffca35fe59 Fix: more ==/is Frank Benoit <benoit@tionex.de> parents: 158 diff changeset	864 if( lineStart1 is text.length ) lineStart1 = -1;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	865 if (lineStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	866 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	867 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	868 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	869 lineStart1 = nextIndexOfNotChar (text, "\n", lineStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	870 if (lineStart1 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	871 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	872 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	873 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	874 startBounds = lineStart1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	875 int lineStart2 = locate( text, '\n' );
195 e0ffca35fe59 Fix: more ==/is Frank Benoit <benoit@tionex.de> parents: 158 diff changeset	876 if( lineStart2 is text.length ) lineStart2 = -1;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	877 if (lineStart2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	878 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	879 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	880 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	881 lineStart2 = nextIndexOfNotChar (text, "\n", lineStart2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	882 endBounds = lineStart2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	883 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	884 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	885 case ATK.ATK_TEXT_BOUNDARY_LINE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	886 int lineEnd1 = nextIndexOfChar (text, "\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	887 if (lineEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	888 startBounds = endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	889 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	890 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	891 startBounds = lineEnd1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	892 if (startBounds is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	893 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	894 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	895 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	896 int lineEnd2 = nextIndexOfChar (text, "\n", lineEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	897 if (lineEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	898 endBounds = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	899 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	900 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	901 endBounds = lineEnd2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	902 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	903 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	904 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	905 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	906 *start_offset=startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	907 *end_offset=endBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	908 text = text[startBounds .. endBounds ];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	909 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	910 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	911 result[ text.length ] = '\0';
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	912 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	913 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	914 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	915 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	916
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	917 package static extern(C) char* atkText_get_text_at_offset (void* obj, int offset_value, int boundary_type, int* start_offset, int* end_offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	918 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	919 if (DEBUG) getDwtLogger().info ("-->atkText_get_text_at_offset: {} start: {} end: {}", offset_value, start_offset, end_offset);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	920 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	921 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	922 int offset = offset_value;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	923 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	924 if (text.length > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	925 int length = text.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	926 offset = Math.min (offset, length - 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	927 int startBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	928 int endBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	929 switch (boundary_type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	930 case ATK.ATK_TEXT_BOUNDARY_CHAR: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	931 if (length > offset) endBounds++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	932 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	933 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	934 case ATK.ATK_TEXT_BOUNDARY_WORD_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	935 int wordStart1 = previousIndexOfNotChar (text, " !?.\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	936 if (wordStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	937 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	938 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	939 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	940 wordStart1 = previousIndexOfChar (text, " !?.\n", wordStart1) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	941 if (wordStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	942 startBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	943 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	944 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	945 startBounds = wordStart1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	946 int wordStart2 = nextIndexOfChar (text, " !?.\n", wordStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	947 endBounds = nextIndexOfNotChar (text, " !?.\n", wordStart2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	948 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	949 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	950 case ATK.ATK_TEXT_BOUNDARY_WORD_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	951 int wordEnd1 = previousIndexOfNotChar (text, "!?.", offset + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	952 wordEnd1 = previousIndexOfChar (text, " !?.\n", wordEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	953 wordEnd1 = previousIndexOfNotChar (text, " \n", wordEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	954 if (wordEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	955 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	956 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	957 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	958 startBounds = wordEnd1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	959 int wordEnd2 = nextIndexOfNotChar (text, " \n", startBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	960 if (wordEnd2 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	961 endBounds = startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	962 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	963 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	964 wordEnd2 = nextIndexOfChar (text, " !?.\n", wordEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	965 if (wordEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	966 endBounds = startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	967 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	968 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	969 endBounds = nextIndexOfNotChar (text, "!?.", wordEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	970 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	971 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	972 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	973 int sentenceStart1 = previousIndexOfNotChar (text, " !?.\n", offset + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	974 if (sentenceStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	975 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	976 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	977 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	978 sentenceStart1 = previousIndexOfChar (text, "!?.", sentenceStart1) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	979 startBounds = nextIndexOfNotChar (text, " \n", sentenceStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	980 int sentenceStart2 = nextIndexOfChar (text, "!?.", startBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	981 endBounds = nextIndexOfNotChar (text, " !?.\n", sentenceStart2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	982 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	983 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	984 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	985 int sentenceEnd1 = previousIndexOfNotChar (text, "!?.", offset + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	986 sentenceEnd1 = previousIndexOfChar (text, "!?.", sentenceEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	987 sentenceEnd1 = previousIndexOfNotChar (text, " \n", sentenceEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	988 if (sentenceEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	989 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	990 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	991 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	992 startBounds = sentenceEnd1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	993 int sentenceEnd2 = nextIndexOfNotChar (text, " \n", startBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	994 if (sentenceEnd2 is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	995 endBounds = startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	996 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	997 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	998 sentenceEnd2 = nextIndexOfChar (text, "!?.", sentenceEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	999 if (sentenceEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1000 endBounds = startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1001 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1002 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1003 endBounds = nextIndexOfNotChar (text, "!?.", sentenceEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1004 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1005 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1006 case ATK.ATK_TEXT_BOUNDARY_LINE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1007 startBounds = previousIndexOfChar (text, "\n", offset) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1008 int lineEnd2 = nextIndexOfChar (text, "\n", startBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1009 if (lineEnd2 < length) lineEnd2++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1010 endBounds = lineEnd2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1011 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1012 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1013 case ATK.ATK_TEXT_BOUNDARY_LINE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1014 int lineEnd1 = previousIndexOfChar (text, "\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1015 if (lineEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1016 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1017 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1018 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1019 startBounds = lineEnd1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1020 endBounds = nextIndexOfChar (text, "\n", lineEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1021 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1022 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1023 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1024 *start_offset=startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1025 *end_offset=endBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1026 text = text[startBounds .. endBounds];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1027 auto result = cast(char*) OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1028 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1029 result[ text.length ] = '\0';
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1030 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1031 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1032 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1033 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1034
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1035 package static extern(C) char* atkText_get_text_before_offset (void* obj, int offset_value, int boundary_type, int* start_offset, int* end_offset) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1036 auto atkObject = cast(AtkObject*)obj;
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	1037 if (DEBUG) getDwtLogger().info ("-->atkText_get_text_before_offset");
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1038 AccessibleObject object = getAccessibleObject (atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1039 if (object is null) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1040 int offset = offset_value;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1041 String text = object.getText ();
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1042 if (text.length > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1043 int length = text.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1044 offset = Math.min (offset, length - 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1045 int startBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1046 int endBounds = offset;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1047 switch (boundary_type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1048 case ATK.ATK_TEXT_BOUNDARY_CHAR: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1049 if (length >= offset && offset > 0) startBounds--;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1050 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1051 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1052 case ATK.ATK_TEXT_BOUNDARY_WORD_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1053 int wordStart1 = previousIndexOfChar (text, " !?.\n", offset - 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1054 if (wordStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1055 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1056 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1057 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1058 int wordStart2 = previousIndexOfNotChar (text, " !?.\n", wordStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1059 if (wordStart2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1060 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1061 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1062 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1063 endBounds = wordStart1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1064 startBounds = previousIndexOfChar (text, " !?.\n", wordStart2) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1065 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1066 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1067 case ATK.ATK_TEXT_BOUNDARY_WORD_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1068 int wordEnd1 =previousIndexOfChar (text, " !?.\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1069 if (wordEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1070 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1071 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1072 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1073 wordEnd1 = previousIndexOfNotChar (text, " \n", wordEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1074 if (wordEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1075 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1076 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1077 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1078 endBounds = wordEnd1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1079 int wordEnd2 = previousIndexOfNotChar (text, " !?.\n", endBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1080 wordEnd2 = previousIndexOfChar (text, " !?.\n", wordEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1081 if (wordEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1082 startBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1083 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1084 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1085 startBounds = previousIndexOfNotChar (text, " \n", wordEnd2 + 1) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1086 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1087 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1088 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1089 int sentenceStart1 = previousIndexOfChar (text, "!?.", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1090 if (sentenceStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1091 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1092 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1093 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1094 int sentenceStart2 = previousIndexOfNotChar (text, "!?.", sentenceStart1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1095 if (sentenceStart2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1096 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1097 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1098 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1099 endBounds = sentenceStart1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1100 startBounds = previousIndexOfChar (text, "!?.", sentenceStart2) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1101 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1102 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1103 case ATK.ATK_TEXT_BOUNDARY_SENTENCE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1104 int sentenceEnd1 = previousIndexOfChar (text, "!?.", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1105 if (sentenceEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1106 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1107 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1108 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1109 sentenceEnd1 = previousIndexOfNotChar (text, " \n", sentenceEnd1 + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1110 if (sentenceEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1111 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1112 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1113 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1114 endBounds = sentenceEnd1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1115 int sentenceEnd2 = previousIndexOfNotChar (text, "!?.", endBounds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1116 sentenceEnd2 = previousIndexOfChar (text, "!?.", sentenceEnd2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1117 if (sentenceEnd2 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1118 startBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1119 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1120 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1121 startBounds = previousIndexOfNotChar (text, " \n", sentenceEnd2 + 1) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1122 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1123 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1124 case ATK.ATK_TEXT_BOUNDARY_LINE_START: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1125 int lineStart1 = previousIndexOfChar (text, "\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1126 if (lineStart1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1127 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1128 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1129 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1130 endBounds = lineStart1 + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1131 startBounds = previousIndexOfChar (text, "\n", lineStart1) + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1132 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1133 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1134 case ATK.ATK_TEXT_BOUNDARY_LINE_END: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1135 int lineEnd1 = previousIndexOfChar (text, "\n", offset);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1136 if (lineEnd1 is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1137 startBounds = endBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1138 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1139 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1140 endBounds = lineEnd1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1141 startBounds = previousIndexOfChar (text, "\n", lineEnd1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1142 if (startBounds is -1) startBounds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1143 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1144 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1145 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1146 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1147 *start_offset=startBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1148 *end_offset=endBounds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1149 text = text[startBounds .. endBounds];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1150 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1151 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1152 result[ text.length ] = '\0';
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1153 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1154 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1155 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1156 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1157
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1158 AccessibleListener[] getAccessibleListeners () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1159 if (accessible is null) return new AccessibleListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1160 AccessibleListener[] result = accessible.getAccessibleListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1161 return result !is null ? result : new AccessibleListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1162 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1163
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1164 static AccessibleObject getAccessibleObject (AtkObject* atkObject) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1165 return AccessibleObjects[atkObject];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1166 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1167
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1168 AccessibleObject getChildByHandle (AtkObject* handle) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1169 return children[handle];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1170 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1171
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1172 AccessibleObject getChildByID (int childId) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1173 if (childId is ACC.CHILDID_SELF) return this;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1174 foreach( object; children ){
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1175 if (object.id is childId) return object;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1176 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1177 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1178 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1179
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1180 AccessibleObject getChildByIndex (int childIndex) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1181 foreach( object; children ){
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1182 if (object.index is childIndex) return object;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1183 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1184 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1185 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1186
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1187 AccessibleControlListener[] getControlListeners () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1188 if (accessible is null) return new AccessibleControlListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1189 AccessibleControlListener[] result = accessible.getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1190 return result !is null ? result : new AccessibleControlListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1191 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1192
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1193 String getText () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1194 char* parentResult;
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1195 String parentText = ""; //$NON-NLS-1$
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1196 if (ATK.g_type_is_a (parentType, ATK_TEXT_TYPE)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1197 auto textIface = cast(AtkTextIface*)ATK.g_type_interface_peek_parent (ATK.ATK_TEXT_GET_IFACE (handle));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1198 int /long/ characterCount = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1199 if (textIface.get_character_count !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1200 characterCount = textIface.get_character_count( handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1201 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1202 if (characterCount > 0 && textIface.get_text !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1203 parentResult = textIface.get_text( handle, 0, characterCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1204 if (parentResult !is null) {
158 de2578a843a7 Tango update to rev 3158, TracedException>Exception, fromUtf8z>fromStringz,Fix Bug in MenuItem Thanx to nascent for the report. Frank Benoit <benoit@tionex.de> parents: 104 diff changeset	1205 parentText = fromStringz( parentResult ).dup;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1206 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1207 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1208 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1209 AccessibleControlListener[] controlListeners = getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1210 if (controlListeners.length is 0) return parentText;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1211 AccessibleControlEvent event = new AccessibleControlEvent (this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1212 event.childID = id;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1213 event.result = parentText;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1214 for (int i = 0; i < controlListeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1215 controlListeners [i].getValue (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1216 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1217 return event.result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1218 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1219
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1220 AccessibleTextListener[] getTextListeners () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1221 if (accessible is null) return new AccessibleTextListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1222 AccessibleTextListener[] result = accessible.getTextListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1223 return result !is null ? result : new AccessibleTextListener [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1224 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1225
321 ffb904674b52 Fixes for LLVMDC Frank Benoit <benoit@tionex.de> parents: 255 diff changeset	1226 package static extern(C) void gObjectClass_finalize (GObject* atkObject) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1227 auto superType = ATK.g_type_class_peek_parent (ATK.G_OBJECT_GET_CLASS (cast(GTypeInstance*)atkObject));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1228 auto objectClassStruct = cast(GObjectClass)ATK.G_OBJECT_CLASS (cast(GTypeClass)superType);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1229 objectClassStruct.finalize(atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1230 AccessibleObject object = getAccessibleObject (cast(AtkObject*)atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1231 if (object !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1232 AccessibleObjects.remove (cast(AtkObject*)atkObject);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1233 object.release ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1234 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1235 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1236
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1237 static int nextIndexOfChar (String string, String searchChars, int startIndex) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1238 int result = string.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1239 for (int i = 0; i < searchChars.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1240 char current = searchChars[i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1241 int index = locate( string, current, startIndex );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1242 if (index !is string.length ) result = Math.min (result, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1243 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1244 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1245 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1246
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1247 static int nextIndexOfNotChar (String string, String searchChars, int startIndex) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1248 int length = string.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1249 int index = startIndex;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1250 while (index < length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1251 char current = string[index];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1252 if ( !contains( searchChars, current)) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1253 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1254 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1255 return index;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1256 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1257
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1258 static int previousIndexOfChar (String string, String searchChars, int startIndex) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1259 int result = -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1260 if (startIndex < 0) return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1261 string = string[0 .. startIndex];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1262 for (int i = 0; i < searchChars.length ; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1263 char current = searchChars[i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1264 int index = locatePrior( string, current);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1265 if (index !is string.length ) result = Math.max (result, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1266 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1267 return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1268 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1269
238 380bad9f6852 reverted char[] to String Frank Benoit <benoit@tionex.de> parents: 223 diff changeset	1270 static int previousIndexOfNotChar (String string, String searchChars, int startIndex) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1271 if (startIndex < 0) return -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1272 int index = startIndex - 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1273 while (index >= 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1274 char current = string[index];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1275 if ( !contains(searchChars, current)) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1276 index--;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1277 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1278 return index;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1279 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1280
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1281 void release () {
361 4bffbf81e2d6 redirect direct prints to DwtLogger Frank Benoit <benoit@tionex.de> parents: 321 diff changeset	1282 if (DEBUG) getDwtLogger().info("AccessibleObject.release: {}", handle);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1283 accessible = null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1284 foreach( child; children ){
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1285 if (child.isLightweight) OS.g_object_unref (child.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1286 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1287 if (parent !is null) parent.removeChild (this, false);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1288 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1289
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1290 void removeChild (AccessibleObject child, bool unref) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1291 children.remove (child.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1292 if (unref && child.isLightweight) OS.g_object_unref (child.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1293 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1294
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1295 void selectionChanged () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1296 OS.g_signal_emit_by_name0 (handle, ATK.selection_changed.ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1297 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1298
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1299 void setFocus (int childID) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1300 updateChildren ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1301 AccessibleObject accObject = getChildByID (childID);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1302 if (accObject !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1303 ATK.atk_focus_tracker_notify (accObject.handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1304 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1305 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1306
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1307 void setParent (AccessibleObject parent) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1308 this.parent = parent;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1309 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1310
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1311 void textCaretMoved(int index) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1312 OS.g_signal_emit_by_name1 (handle, ATK.text_caret_moved.ptr, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1313 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1314
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1315 void textChanged(int type, int startIndex, int length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1316 if (type is ACC.TEXT_DELETE) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1317 OS.g_signal_emit_by_name2 (handle, ATK.text_changed_delete.ptr, startIndex, length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1318 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1319 OS.g_signal_emit_by_name2 (handle, ATK.text_changed_insert.ptr, startIndex, length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1320 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1321 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1322
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1323 void textSelectionChanged() {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1324 OS.g_signal_emit_by_name0 (handle, ATK.text_selection_changed.ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1325 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1326
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1327 void updateChildren () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1328 if (isLightweight) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1329 AccessibleControlListener[] listeners = getControlListeners ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1330 if (listeners.length is 0) return;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1331
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1332 AccessibleControlEvent event = new AccessibleControlEvent (this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1333 for (int i = 0; i < listeners.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1334 listeners [i].getChildren (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1335 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1336 if (event.children !is null && event.children.length > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1337 AtkObject[] idsToKeep = new AtkObject[]( children.length );
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1338 idsToKeep.length = 0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1339 if ( null !is (cast(Integer)event.children[0] )) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1340 /* an array of child id's (Integers) was answered */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1341 auto parentType = AccessibleFactory.getDefaultParentType ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1342 for (int i = 0; i < event.children.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1343 AccessibleObject object = getChildByIndex (i);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1344 if (object is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1345 auto childType = AccessibleFactory.getChildType (accessible, i);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1346 object = new AccessibleObject (childType, null, accessible, parentType, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1347 AccessibleObjects[object.handle] = object;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1348 addChild (object);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1349 object.index = i;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1350 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1351 if( auto intChild = cast(Integer)event.children[i] ){
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1352 object.id = intChild.intValue ();
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1353 }
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1354 else {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1355 /* a non-ID value was given so don't set the ID */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1356 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1357 idsToKeep ~= object.handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1358 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1359 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1360 /* an array of Accessible children was answered */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1361 int childIndex = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1362 for (int i = 0; i < event.children.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1363 AccessibleObject object = null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1364 if( auto accChild = cast(Accessible)event.children[i] ){
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1365 object = accChild.accessibleObject;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1366 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1367 /* a non-Accessible value was given so nothing to do here */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1368 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1369 if (object !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1370 object.index = childIndex++;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1371 idsToKeep ~= object.handle;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1372 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1373 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1374 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1375 /* remove old children that were not provided as children anymore */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1376 foreach( id; children.keys ){
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1377 if ( !tango.core.Array.contains( idsToKeep, id )) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1378 AccessibleObject object = cast(AccessibleObject) children[id];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1379 removeChild (object, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1380 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1381 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1382 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1383 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1384 }

Mercurial > projects > dwt-linux

annotate dwt/accessibility/AccessibleObject.d @ 361:4bffbf81e2d6