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

annotate dwt/accessibility/AccessibleObject.d @ 217:d5b1c263ee37

utils import

author	Frank Benoit <benoit@tionex.de>
date	Sun, 06 Apr 2008 22:24:38 +0200
parents	e0ffca35fe59
children	d0081b1505da

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;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	27 import dwt.dwthelper.Integer;
217 d5b1c263ee37 utils import Frank Benoit <benoit@tionex.de> parents: 195 diff changeset	28 import dwt.dwthelper.utils;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	29 import tango.io.Stdout;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	30 import tango.stdc.stringz;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	31 import tango.text.Util;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	32 import Math = tango.math.Math;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	33
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	34 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	35 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	36 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	37 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	38 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	39 AccessibleObject parent;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	40 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	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 * 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	43 * 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	44 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	45 bool isLightweight = false;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	46
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	47 static char[] actionNamePtr;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	48 static char[] descriptionPtr;
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 char[] keybindingPtr;
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 char[] namePtr;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	51 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	52 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	53 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	54 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	55 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	56 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	57 static /const/ bool DEBUG;
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	58 static bool static_this_completed = false;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	59
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	60 package static void static_this() {
62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	61 if( static_this_completed ) return;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	62 DEBUG = Display.DEBUG;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	63 ATK_ACTION_TYPE = ATK.g_type_from_name ("AtkAction");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	64 ATK_COMPONENT_TYPE = ATK.g_type_from_name ("AtkComponent");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	65 ATK_HYPERTEXT_TYPE = ATK.g_type_from_name ("AtkHypertext");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	66 ATK_SELECTION_TYPE = ATK.g_type_from_name ("AtkSelection");
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	67 ATK_TEXT_TYPE = ATK.g_type_from_name ("AtkText");
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	68 static_this_completed = true;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	69 }
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	70
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	71 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	72 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	73 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	74 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	75 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	76 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	77 AccessibleObjects[handle] = 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	78 if (DEBUG) Stdout.formatln("new AccessibleObject: {}", 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	79 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	80
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	81 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	82 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	83 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	84 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	85
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 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	87 auto atkObject = cast(AtkObject*)obj;
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 if (DEBUG) Stdout.formatln ("-->atkAction_get_keybinding");
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 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	90 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	91 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	92 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	93 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	94 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	95 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	96 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	97 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	98 }
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 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	100 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	101
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	102 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	103 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	104 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	105 char[] res = fromStringz( parentResult );
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	106 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	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 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	109 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	110 }
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 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	112 if (keybindingPtr !is null ) OS.g_free (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	113 char[] name = event.result.dup ~ \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	114 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	115 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	116 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	117 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	118
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 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	120 auto atkObject = cast(AtkObject*)obj;
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 if (DEBUG) Stdout.formatln ("-->atkAction_get_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	122 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	123 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	124 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	125 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	126 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	127 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	128 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	129 }
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 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	132 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	133
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	134 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	135 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	136 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	137 char[] 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	138 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	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 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	141 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	142 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	143 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	144 if (actionNamePtr !is null) OS.g_free (actionNamePtr.ptr);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	145
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	146 char[] name = event.result.dup ~ \0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	147 auto p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	148 actionNamePtr = p ? p[ 0 .. name.length ] : null;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	149 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	150 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	151
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 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	153 auto atkObject = cast(AtkObject*)obj;
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	154 if (DEBUG) Stdout.formatln ("-->atkComponent_get_extents");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	155 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	156 if (object is null) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	157 *x = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	158 *y = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	159 *width = 0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	160 *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	161 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	162 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	163 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	164 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	165 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	166 }
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 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	168 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	169
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	170 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	171 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	172 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	173 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	174 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	175 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	176 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	177 /* 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	178 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	179 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	180 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	181 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	182 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	183 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	184 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	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 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	187 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	188 }
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 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	190 /* 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	191 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	192 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	193 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	194 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	195 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	196 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	197 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	198 }
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 *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	200 *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	201 *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	202 *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	203 //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	204 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	205
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 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	207 auto atkObject = cast(AtkObject*)obj;
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	208 if (DEBUG) Stdout.formatln ("-->atkComponent_get_position, object: {} x:{} y:{} coord:{}", atkObject, 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	209 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	210 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	211 *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	212 *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	213 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	214 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	215 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	216 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	217 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	218 }
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 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	220 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	221
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	222 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	223 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	224 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	225 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	226 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	227 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	228 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	229 /* 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	230 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	231 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	232 auto window = OS.GTK_WIDGET_WINDOW (topLevel);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	233 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	234 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	235 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	236 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	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 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	239 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	240 }
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 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	242 /* 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	243 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	244 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	245 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	246 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	247 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	248 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	249 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	250 }
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 *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	252 *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	253 //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	254 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	255
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	256 //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	257 //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	258 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	259 auto atkObject = cast(AtkObject*)obj;
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	260 if (DEBUG) Stdout.formatln ("-->atkComponent_get_size");
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 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	262 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	263 *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	264 *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	265 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	266 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	267 if (componentIface.get_extents !is null) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	268 //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	269 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	270 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	271 }
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 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	273 if (listeners.length is 0) return 0;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	274
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	275 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	276 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	277 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	278 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	279 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	280 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	281 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	282 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	283 }
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 *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	285 *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	286 //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	287 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	288
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 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	290 auto atkObject = cast(AtkObject*)obj;
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	291 if (DEBUG) Stdout.formatln ("-->atkComponent_ref_accessible_at_point");
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 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	293 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	294 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	295 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	296 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	297 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	298 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	299 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	300 }
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 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	302 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	303
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	304 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	305 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	306 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	307 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	308 /* 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	309 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	310 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	311 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	312 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	313 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	314 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	315 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	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 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	318 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	319 }
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 (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	321 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	322 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	323 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	324 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	325 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	326 }
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 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	328 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	329
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 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	331 auto atkObject = cast(AtkObject*)obj;
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	332 if (DEBUG) Stdout.formatln ("-->atkHypertext_get_link");
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 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	334 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	335
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 package static extern(C) int atkHypertext_get_n_links (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	337 auto atkObject = cast(AtkObject*)obj;
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	338 if (DEBUG) Stdout.formatln ("-->atkHypertext_get_n_links");
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 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	340 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	341
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 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	343 auto atkObject = cast(AtkObject*)obj;
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	344 if (DEBUG) Stdout.formatln ("-->atkHypertext_get_link_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	345 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	346 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	347
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	348 package static extern(C) char* atkObject_get_description (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	349 if (DEBUG) Stdout.formatln ("-->atkObject_get_description");
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 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	351 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	352 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	353 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	354 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	355 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	356 }
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 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	358 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	359
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	360 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	361 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	362 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	363 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	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 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	366 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	367 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	368 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	369 if (descriptionPtr !is null) OS.g_free (descriptionPtr.ptr);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	370
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	371 char[] name = event.result.dup ~ \0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	372 char* p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	373 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	374 return descriptionPtr.ptr; }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	375
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	376 package static extern(C) char* atkObject_get_name (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	377 if (DEBUG) Stdout.formatln ("-->atkObject_get_name: {}", 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	378 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	379 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	380 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	381 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	382 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	383 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	384 }
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 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	386 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	387
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	388 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	389 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	390 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	391 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	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 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	394 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	395 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	396 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	397 if (namePtr !is null) OS.g_free (namePtr.ptr);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	398 char[] name = event.result.dup ~ \0;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	399 char* p = cast(char*)OS.g_malloc (name.length);
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	400 namePtr = p ? p[ 0 .. name.length ] : null;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	401 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	402 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	403
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	404 package static extern(C) int atkObject_get_n_children (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	405 if (DEBUG) Stdout.formatln ("-->atkObject_get_n_children: {}", 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	406 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	407 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	408 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	409 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	410 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	411 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	412 }
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 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	414 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	415
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	416 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	417 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	418 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	419 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	420 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	421 }
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 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	423 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	424
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	425 package static extern(C) int atkObject_get_index_in_parent (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	426 if (DEBUG) Stdout.formatln ("-->atkObjectCB_get_index_in_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	427 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	428 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	429 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	430 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	431 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	432 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	433 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	434
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	435 package static extern(C) AtkObject* atkObject_get_parent (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	436 if (DEBUG) Stdout.formatln ("-->atkObject_get_parent: {}", 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	437 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	438 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	439 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	440 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	441 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	442 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	443 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	444
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	445 package static extern(C) int atkObject_get_role (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	446 if (DEBUG) Stdout.formatln ("-->atkObject_get_role: {}", 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	447 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	448 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	449 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	450 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	451 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	452 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	453 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	454 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	455 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	456 }
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 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	458 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	459 /* 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	460 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	461 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	462 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	463 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	464 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	465 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	466 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	467 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	468 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	469 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	470 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	471 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	472 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	473 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	474 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	475 case ACC.ROLE_SLIDER: return ATK.ATK_ROLE_SLIDER;
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_TABLE: return ATK.ATK_ROLE_TABLE;
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_TABLECELL: return ATK.ATK_ROLE_TABLE_CELL;
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_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	479 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	480 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	481 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	482 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	483 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	484 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	485 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	486 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	487 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	488 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	489 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	490 }
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 }
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 }
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 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	494 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	495 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	496 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	497
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	498 package static extern(C) AtkObject* atkObject_ref_child (AtkObject* atkObject, int /long/ 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	499 if (DEBUG) Stdout.formatln ("-->atkObject_ref_child: {} of: {}", index, 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	500 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	501 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	502 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	503 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	504 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	505 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	506 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	507 }
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 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	509 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	510 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	511 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	512
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	513 package static extern(C) AtkStateSet * atkObject_ref_state_set (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	514 if (DEBUG) Stdout.formatln ("-->atkObject_ref_state_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	515 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	516 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	517 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	518 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	519 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	520 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	521 }
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 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	523 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	524
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	525 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	526 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	527 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	528 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	529 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	530 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	531 }
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 (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	533 /* 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	534 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	535 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	536 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	537 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	538 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	539 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	540 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	541 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	542 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	543 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	544 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	545 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	546 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	547 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	548 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	549 /* 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	550 }
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 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	552 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	553
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 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	555 auto atkObject = cast(AtkObject*)obj;
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	556 if (DEBUG) Stdout.formatln ("-->atkSelection_is_child_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	557 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	558 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	559 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	560 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	561 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	562 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	563 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	564 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	565 }
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 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	567 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	568
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	569 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	570 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	571 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	572 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	573 }
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 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	575 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	576 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	577 }
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 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	579 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	580
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 package static extern(C) AtkObject* atkSelection_ref_selection (void* obj, int index) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	582 auto atkObject = cast(AtkObject*)obj;
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	583 if (DEBUG) Stdout.formatln ("-->atkSelection_ref_selection");
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 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	585 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	586 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	587 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	588 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	589 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	590 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	591 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	592 }
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 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	594 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	595
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	596 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	597 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	598 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	599 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	600 }
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 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	602 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	603 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	604 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	605 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	606 }
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 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	608 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	609
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 package static extern(C) int atkText_get_caret_offset (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	611 auto atkObject = cast(AtkObject*)obj;
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	612 if (DEBUG) Stdout.formatln ("-->atkText_get_caret_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	613 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	614 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	615 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	616 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	617 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	618 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	619 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	620 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	621 }
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 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	623 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	624
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	625 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	626 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	627 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	628 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	629 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	630 }
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 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	632 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	633
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 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	635 auto atkObject = cast(AtkObject*)obj;
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	636 if (DEBUG) Stdout.formatln ("-->atkText_get_character_at_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	637 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	638 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	639 char[] text = object.getText ();
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 (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	641 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	642 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	643 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	644 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	645 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	646 }
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 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	648 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	649
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 package static extern(C) int atkText_get_character_count (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	651 auto atkObject = cast(AtkObject*)obj;
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	652 if (DEBUG) Stdout.formatln ("-->atkText_get_character_count");
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 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	654 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	655 char[] text = object.getText ();
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 (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	657 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	658 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	659 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	660 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	661 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	662 }
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 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	664 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	665
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 package static extern(C) int atkText_get_n_selections (void* obj) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	667 auto atkObject = cast(AtkObject*)obj;
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	668 if (DEBUG) Stdout.formatln("-->atkText_get_n_selections");
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 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	670 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	671 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	672 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	673 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	674 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	675 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	676 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	677 }
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 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	679 if (listeners.length is 0) return parentResult;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	680
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	681 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	682 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	683 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	684 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	685 }
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 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	687 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	688
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 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	690 auto atkObject = cast(AtkObject*)obj;
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	691 if (DEBUG) Stdout.formatln ("-->atkText_get_selection");
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 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	693 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	694 *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	695 *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	696 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	697 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	698 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	699 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	700 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	701 }
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 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	703 if (listeners.length is 0) return null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	704
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	705 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	706 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	707 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	708 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	709 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	710 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	711 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	712 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	713 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	714 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	715 }
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 *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	717 *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	718 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	719 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	720
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 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	722 auto atkObject = cast(AtkObject*)obj;
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	723 if (DEBUG) Stdout.formatln ("-->atkText_get_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	724 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	725 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	726 char[] text = object.getText ();
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 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	728 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	729 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	730 } 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	731 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	732 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	733 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	734 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	735 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	736 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	737 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	738 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	739 }
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 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	741 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	742
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 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	744 auto atkObject = cast(AtkObject*)obj;
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	745 if (DEBUG) Stdout.formatln ("-->atkText_get_text_after_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	746 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	747 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	748 int offset = cast(int)/64/offset_value;
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 char[] text = object.getText ();
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 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	751 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	752 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	753 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	754 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	755 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	756 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	757 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	758 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	759 }
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 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	761 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	762 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	763 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	764 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	765 }
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 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	767 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	768 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	769 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	770 }
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 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	772 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	773 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	774 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	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 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	778 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	779 }
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 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	781 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	782 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	783 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	784 }
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 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	786 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	787 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	788 }
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 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	790 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	791 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	792 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	793 }
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 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	795 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	796 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	797 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	798 }
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 = 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	800 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	801 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	802 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	803 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	804 }
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 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	806 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	807 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	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 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	811 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	812 }
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 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	814 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	815 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	816 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	817 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	818 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	819 } 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	820 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	821 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	822 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	823 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	824 }
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 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	826 }
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 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	828 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	829 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	830 }
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 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	832 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	833 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	834 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	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 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	838 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	839 }
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 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	841 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	842 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	843 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	844 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	845 }
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 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	847 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	848 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	849 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	850 }
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 = 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	852 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	853 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	854 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	855 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	856 }
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 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	858 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	859 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	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 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	863 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	864 }
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 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	866 int lineStart1 = locate( text, '\n' );
195 e0ffca35fe59 Fix: more ==/is Frank Benoit <benoit@tionex.de> parents: 158 diff changeset	867 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	868 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	869 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	870 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	871 }
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 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	873 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	874 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	875 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	876 }
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 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	878 int lineStart2 = locate( text, '\n' );
195 e0ffca35fe59 Fix: more ==/is Frank Benoit <benoit@tionex.de> parents: 158 diff changeset	879 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	880 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	881 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	882 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	883 }
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 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	885 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	886 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	887 }
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 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	889 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	890 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	891 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	892 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	893 }
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 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	895 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	896 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	897 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	898 }
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 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	900 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	901 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	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 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	904 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	905 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	906 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	907 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	908 }
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 *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	910 *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	911 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	912 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	913 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	914 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	915 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	916 }
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 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	918 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	919
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 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	921 auto atkObject = cast(AtkObject*)obj;
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	922 if (DEBUG) Stdout.formatln ("-->atkText_get_text_at_offset: {} start: {} end: {}", offset_value, 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	923 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	924 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	925 int offset = offset_value;
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 char[] text = object.getText ();
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 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	928 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	929 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	930 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	931 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	932 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	933 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	934 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	935 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	936 }
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 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	938 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	939 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	940 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	941 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	942 }
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 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	944 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	945 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	946 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	947 }
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 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	949 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	950 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	951 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	952 }
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 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	954 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	955 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	956 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	957 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	958 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	959 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	960 }
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 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	962 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	963 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	964 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	965 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	966 }
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 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	968 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	969 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	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 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	973 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	974 }
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 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	976 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	977 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	978 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	979 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	980 }
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 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	982 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	983 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	984 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	985 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	986 }
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 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	988 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	989 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	990 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	991 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	992 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	993 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	994 }
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 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	996 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	997 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	998 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	999 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	1000 }
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 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	1002 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	1003 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	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 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	1007 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	1008 }
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 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	1010 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	1011 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	1012 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	1013 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	1014 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	1015 }
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 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	1017 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	1018 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	1019 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	1020 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	1021 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1022 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	1023 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	1024 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1025 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	1026 }
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 *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	1028 *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	1029 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	1030 auto result = cast(char*) OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1031 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1032 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	1033 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	1034 }
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 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	1036 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1037
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 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	1039 auto atkObject = cast(AtkObject*)obj;
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	1040 if (DEBUG) Stdout.formatln ("-->atkText_get_text_before_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	1041 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	1042 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	1043 int offset = offset_value;
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 char[] text = object.getText ();
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 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	1046 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	1047 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	1048 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	1049 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	1050 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	1051 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	1052 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	1053 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	1054 }
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 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	1056 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	1057 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	1058 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	1059 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	1060 }
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 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	1062 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	1063 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	1064 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	1065 }
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 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	1067 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	1068 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	1069 }
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 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	1071 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	1072 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	1073 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	1074 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	1075 }
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 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	1077 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	1078 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	1079 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	1080 }
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 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	1082 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	1083 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	1084 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	1085 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	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 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	1089 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	1090 }
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 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	1092 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	1093 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	1094 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	1095 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	1096 }
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 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	1098 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	1099 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	1100 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	1101 }
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 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	1103 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	1104 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	1105 }
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 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	1107 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	1108 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	1109 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	1110 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	1111 }
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 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	1113 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	1114 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	1115 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	1116 }
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 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	1118 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	1119 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	1120 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	1121 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	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 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	1125 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	1126 }
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 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	1128 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	1129 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	1130 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	1131 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	1132 }
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 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	1134 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	1135 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	1136 }
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 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	1138 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	1139 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	1140 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	1141 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	1142 }
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 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	1144 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	1145 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	1146 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	1147 }
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1148 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	1149 }
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 *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	1151 *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	1152 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	1153 auto result = cast(char*)OS.g_malloc (text.length+1);
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1154 result[ 0 .. text.length ] = text;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1155 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	1156 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	1157 }
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 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	1159 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1160
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	1161 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	1162 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	1163 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	1164 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	1165 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1166
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	1167 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	1168 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	1169 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1170
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	1171 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	1172 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	1173 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1174
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	1175 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	1176 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	1177 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	1178 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	1179 }
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 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	1181 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1182
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	1183 AccessibleObject getChildByIndex (int childIndex) {
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1184 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	1185 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	1186 }
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 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	1188 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1189
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	1190 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	1191 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	1192 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	1193 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	1194 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1195
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 char[] getText () {
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 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	1198 char[] parentText = ""; //$NON-NLS-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	1199 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	1200 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	1201 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	1202 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	1203 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	1204 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1205 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	1206 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	1207 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	1208 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	1209 }
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 }
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 }
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 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	1213 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	1214 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	1215 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	1216 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	1217 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	1218 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	1219 }
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 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	1221 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1222
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	1223 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	1224 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	1225 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	1226 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	1227 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1228
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	1229 private static extern(C) void gObjectClass_finalize (GObject* 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 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	1231 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	1232 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	1233 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	1234 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	1235 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	1236 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	1237 }
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 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1239
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	1240 static int nextIndexOfChar (char[] string, char[] searchChars, int 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	1241 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	1242 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	1243 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	1244 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	1245 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	1246 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1247 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	1248 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1249
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	1250 static int nextIndexOfNotChar (char[] string, char[] searchChars, int 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	1251 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	1252 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	1253 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	1254 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	1255 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	1256 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	1257 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1258 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	1259 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1260
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	1261 static int previousIndexOfChar (char[] string, char[] searchChars, int 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 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	1263 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	1264 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	1265 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	1266 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	1267 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	1268 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	1269 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1270 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	1271 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1272
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	1273 static int previousIndexOfNotChar (char[] string, char[] searchChars, int 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	1274 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	1275 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	1276 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	1277 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	1278 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	1279 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	1280 }
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 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	1282 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1283
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	1284 void 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	1285 if (DEBUG) Stdout.formatln("AccessibleObject.release: {}", 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 accessible = null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1287 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	1288 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	1289 }
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 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	1291 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1292
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	1293 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	1294 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	1295 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	1296 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1297
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	1298 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	1299 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	1300 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1301
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	1302 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	1303 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	1304 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	1305 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	1306 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	1307 }
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 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1309
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	1310 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	1311 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	1312 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1313
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	1314 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	1315 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	1316 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1317
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	1318 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	1319 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	1320 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	1321 } 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	1322 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	1323 }
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 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1325
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	1326 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	1327 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	1328 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1329
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	1330 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	1331 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	1332 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	1333 if (listeners.length is 0) return;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1334
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	1335 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	1336 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	1337 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	1338 }
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 (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	1340 AtkObject[] idsToKeep = new AtkObject[]( children.length );
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1341 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	1342 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	1343 /* 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	1344 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	1345 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	1346 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	1347 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	1348 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	1349 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	1350 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	1351 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	1352 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	1353 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1354 if( auto intChild = cast(Integer)event.children[i] ){
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1355 object.id = intChild.intValue ();
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1356 }
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1357 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	1358 /* 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	1359 }
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 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	1361 }
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 } 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	1363 /* 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	1364 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	1365 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	1366 AccessibleObject object = null;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1367 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	1368 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	1369 } 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	1370 /* 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	1371 }
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 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	1373 object.index = childIndex++;
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1374 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	1375 }
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 }
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 }
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 /* 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	1379 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	1380 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	1381 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	1382 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	1383 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1384 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1385 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	1386 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: diff changeset	1387 }

Mercurial > projects > dwt-linux

annotate dwt/accessibility/AccessibleObject.d @ 217:d5b1c263ee37