projects/dwt-linux: dwt/widgets/Display.d annotate

annotate dwt/widgets/Display.d @ 69:7cf1deebc8d4

Combo

author	Frank Benoit <benoit@tionex.de>
date	Tue, 15 Jan 2008 04:10:36 +0100
parents	15b21862b0ac
children	295b29fc7d13

rev	line source
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1 /*******************************************************************************
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2 * Copyright (c) 2000, 2007 IBM Corporation and others.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	3 * All rights reserved. This program and the accompanying materials
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	4 * are made available under the terms of the Eclipse Public License v1.0
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	5 * which accompanies this distribution, and is available at
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	6 * http://www.eclipse.org/legal/epl-v10.html
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	7 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	8 * Contributors:
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	9 * IBM Corporation - initial API and implementation
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	10 *******************************************************************************/
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	11 module dwt.widgets.Display;
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	12
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	13 import dwt.SWT;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	14 import dwt.graphics.Color;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	15 import dwt.graphics.Cursor;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	16 import dwt.graphics.Device;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	17 import dwt.graphics.DeviceData;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	18 import dwt.graphics.Font;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	19 import dwt.graphics.GCData;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	20 import dwt.graphics.Image;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	21 import dwt.graphics.ImageData;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	22 import dwt.graphics.PaletteData;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	23 import dwt.graphics.Point;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	24 import dwt.graphics.Rectangle;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	25 import dwt.graphics.Resource;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	26 import dwt.internal.Compatibility;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	27 import dwt.internal.Converter;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	28 import dwt.internal.Lock;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	29 import dwt.internal.LONG;
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	30 import dwt.internal.gtk.OS;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	31 import dwt.widgets.Caret;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	32 import dwt.widgets.Control;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	33 import dwt.widgets.Event;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	34 import dwt.widgets.EventTable;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	35 import dwt.widgets.Listener;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	36 import dwt.widgets.Menu;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	37 import dwt.widgets.Monitor;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	38 import dwt.widgets.Shell;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	39 import dwt.widgets.Synchronizer;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	40 import dwt.widgets.Tray;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	41 import dwt.widgets.Widget;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	42
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	43 import tango.stdc.string;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	44 import tango.stdc.stringz;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	45 import dwt.dwthelper.utils;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	46 import dwt.dwthelper.Runnable;
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	47
46 8015c460f713 Synchronizer Frank Benoit <benoit@tionex.de> parents: 42 diff changeset	48 import tango.core.Thread;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	49 import tango.io.Stdout;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	50
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	51 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	52 * Instances of this class are responsible for managing the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	53 * connection between SWT and the underlying operating
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	54 * system. Their most important function is to implement
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	55 * the SWT event loop in terms of the platform event model.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	56 * They also provide various methods for accessing information
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	57 * about the operating system, and have overall control over
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	58 * the operating system resources which SWT allocates.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	59 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	60 * Applications which are built with SWT will <em>almost always</em>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	61 * require only a single display. In particular, some platforms
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	62 * which SWT supports will not allow more than one <em>active</em>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	63 * display. In other words, some platforms do not support
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	64 * creating a new display if one already exists that has not been
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	65 * sent the <code>dispose()</code> message.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	66 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	67 * In SWT, the thread which creates a <code>Display</code>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	68 * instance is distinguished as the <em>user-interface thread</em>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	69 * for that display.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	70 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	71 * The user-interface thread for a particular display has the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	72 * following special attributes:
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	73 * <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	74 * <li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	75 * The event loop for that display must be run from the thread.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	76 * </li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	77 * <li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	78 * Some SWT API methods (notably, most of the public methods in
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	79 * <code>Widget</code> and its subclasses), may only be called
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	80 * from the thread. (To support multi-threaded user-interface
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	81 * applications, class <code>Display</code> provides inter-thread
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	82 * communication methods which allow threads other than the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	83 * user-interface thread to request that it perform operations
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	84 * on their behalf.)
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	85 * </li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	86 * <li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	87 * The thread is not allowed to construct other
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	88 * <code>Display</code>s until that display has been disposed.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	89 * (Note that, this is in addition to the restriction mentioned
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	90 * above concerning platform support for multiple displays. Thus,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	91 * the only way to have multiple simultaneously active displays,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	92 * even on platforms which support it, is to have multiple threads.)
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	93 * </li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	94 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	95 * Enforcing these attributes allows SWT to be implemented directly
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	96 * on the underlying operating system's event model. This has
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	97 * numerous benefits including smaller footprint, better use of
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	98 * resources, safer memory management, clearer program logic,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	99 * better performance, and fewer overall operating system threads
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	100 * required. The down side however, is that care must be taken
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	101 * (only) when constructing multi-threaded applications to use the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	102 * inter-thread communication mechanisms which this class provides
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	103 * when required.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	104 * </p><p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	105 * All SWT API methods which may only be called from the user-interface
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	106 * thread are distinguished in their documentation by indicating that
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	107 * they throw the "<code>ERROR_THREAD_INVALID_ACCESS</code>"
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	108 * SWT exception.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	109 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	110 * <dl>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	111 * <dt><b>Styles:</b></dt>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	112 * <dd>(none)</dd>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	113 * <dt><b>Events:</b></dt>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	114 * <dd>Close, Dispose, Settings</dd>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	115 * </dl>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	116 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	117 * IMPORTANT: This class is <em>not</em> intended to be subclassed.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	118 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	119 * @see #syncExec
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	120 * @see #asyncExec
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	121 * @see #wake
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	122 * @see #readAndDispatch
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	123 * @see #sleep
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	124 * @see Device#dispose
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	125 */
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	126 public class Display : Device {
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	127
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	128 /* Events Dispatching and Callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	129 int gdkEventCount;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	130 GdkEvent* [] gdkEvents;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	131 Widget [] gdkEventWidgets;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	132 int [] dispatchEvents;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	133 Event [] eventQueue;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	134 GPollFD[] fds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	135 int allocated_nfds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	136 bool wake_state;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	137 int max_priority, timeout;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	138 void/Callback*/ eventCallback, filterCallback;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	139
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	140 CallbackData*[int] windowProcCallbackDatas; // to prevent GC from collect
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	141
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	142 CallbackData filterProcCallbackData;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	143 EventTable eventTable, filterTable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	144 static char[] APP_NAME = "SWT";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	145 static const char[] DISPATCH_EVENT_KEY = "dwt.internal.gtk.dispatchEvent";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	146 static const char[] ADD_WIDGET_KEY = "dwt.internal.addWidget";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	147 GClosure*[] closures;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	148 int [] signalIds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	149
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	150 /* Widget Table */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	151 int [] indexTable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	152 int freeSlot;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	153 GtkWidget* lastHandle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	154 Widget lastWidget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	155 Widget [] widgetTable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	156 const static int GROW_SIZE = 1024;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	157 static int SWT_OBJECT_INDEX;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	158 static int SWT_OBJECT_INDEX1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	159 static int SWT_OBJECT_INDEX2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	160
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	161 /* Focus */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	162 int focusEvent;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	163 Control focusControl;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	164 Shell activeShell;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	165 bool activePending;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	166 bool ignoreActivate, ignoreFocus;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	167
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	168 /* Input method resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	169 Control imControl;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	170 GtkWindow* preeditWindow;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	171 GtkLabel* preeditLabel;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	172
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	173 /* Sync/Async Widget Communication */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	174 Synchronizer synchronizer;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	175 Thread thread;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	176
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	177 /* Display Shutdown */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	178 Runnable [] disposeList;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	179
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	180 /* System Tray */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	181 Tray tray;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	182
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	183 /* Timers */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	184 int [] timerIds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	185 Runnable [] timerList;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	186 CallbackData timerProcCallbackData;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	187
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	188 /* Caret */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	189 Caret currentCaret;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	190 int caretId;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	191 CallbackData caretProcCallbackData;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	192
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	193 /* Mnemonics */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	194 Control mnemonicControl;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	195
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	196 /* Mouse hover */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	197 int mouseHoverId;
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	198 GtkWidget* mouseHoverHandle;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	199 CallbackData mouseHoverProcCallbackData;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	200
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	201 /* Menu position callback */
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	202
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	203 /* Tooltip size allocate callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	204
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	205 /* Shell map callback */
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	206 CallbackData shellMapProcCallbackData;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	207 GClosure* shellMapProcClosure;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	208
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	209 /* Idle proc callback */
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	210 CallbackData idleProcCallbackData;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	211 int idleHandle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	212 static const char[] ADD_IDLE_PROC_KEY = "dwt.internal.gtk2.addIdleProc";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	213 static const char[] REMOVE_IDLE_PROC_KEY = "dwt.internal.gtk2.removeIdleProc";
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	214
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	215 Object idleLock;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	216 bool idleNeeded;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	217
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	218 /* GtkTreeView callbacks */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	219 int[] treeSelection;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	220 int treeSelectionLength;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	221
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	222 /* Set direction callback */
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	223 CallbackData setDirectionCallbackData;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	224
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	225 /* Get all children callback */
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	226 CallbackData allChildrenProcCallbackData;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	227 GList* allChildren;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	228
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	229 /* Settings callbacks */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	230 GtkWidget* shellHandle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	231 bool settingsChanged, runSettingsFld;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	232 CallbackData styleSetProcCallbackData;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	233
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	234 /* Entry focus behaviour */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	235 bool entrySelectOnFocus;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	236
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	237 /* Enter/Exit events */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	238 Control currentControl;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	239
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	240 /* Flush exposes */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	241 int /long/ checkIfEventProc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	242 void/Callback*/ checkIfEventCallback;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	243 GdkWindow* flushWindow;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	244 bool flushAll;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	245 GdkRectangle* flushRect;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	246 XExposeEvent* exposeEvent;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	247 XVisibilityEvent* visibilityEvent;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	248 //int /long/ [] flushData = new int /long/ [1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	249
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	250 /* System Resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	251 Font systemFont;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	252 Image errorImage, infoImage, questionImage, warningImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	253 Cursor [] cursors;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	254 Resource [] resources;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	255 static const int RESOURCE_SIZE = 1 + 4 + SWT.CURSOR_HAND + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	256
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	257 /* Colors */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	258 GdkColor* COLOR_WIDGET_DARK_SHADOW, COLOR_WIDGET_NORMAL_SHADOW, COLOR_WIDGET_LIGHT_SHADOW;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	259 GdkColor* COLOR_WIDGET_HIGHLIGHT_SHADOW, COLOR_WIDGET_BACKGROUND, COLOR_WIDGET_FOREGROUND, COLOR_WIDGET_BORDER;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	260 GdkColor* COLOR_LIST_FOREGROUND, COLOR_LIST_BACKGROUND, COLOR_LIST_SELECTION, COLOR_LIST_SELECTION_TEXT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	261 GdkColor* COLOR_INFO_BACKGROUND, COLOR_INFO_FOREGROUND;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	262 GdkColor* COLOR_TITLE_FOREGROUND, COLOR_TITLE_BACKGROUND, COLOR_TITLE_BACKGROUND_GRADIENT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	263 GdkColor* COLOR_TITLE_INACTIVE_FOREGROUND, COLOR_TITLE_INACTIVE_BACKGROUND, COLOR_TITLE_INACTIVE_BACKGROUND_GRADIENT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	264
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	265 /* Popup Menus */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	266 Menu [] popups;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	267
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	268 /* Click count*/
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	269 int clickCount = 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	270
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	271 /* Timestamp of the Last Received Events */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	272 int lastEventTime, lastUserEventTime;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	273
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	274 /* Fixed Subclass */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	275 static int /long/ fixed_type;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	276 static int /long/ fixed_info_ptr;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	277
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	278 /* Renderer Subclass */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	279 static int /long/ text_renderer_type, pixbuf_renderer_type, toggle_renderer_type;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	280 static int /long/ text_renderer_info_ptr, pixbuf_renderer_info_ptr, toggle_renderer_info_ptr;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	281
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	282 /* Key Mappings */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	283 static const int [] [] KeyTable = [
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	284
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	285 /* Keyboard and Mouse Masks */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	286 [OS.GDK_Alt_L, SWT.ALT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	287 [OS.GDK_Alt_R, SWT.ALT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	288 [OS.GDK_Meta_L, SWT.ALT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	289 [OS.GDK_Meta_R, SWT.ALT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	290 [OS.GDK_Shift_L, SWT.SHIFT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	291 [OS.GDK_Shift_R, SWT.SHIFT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	292 [OS.GDK_Control_L, SWT.CONTROL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	293 [OS.GDK_Control_R, SWT.CONTROL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	294 // [OS.GDK_????, SWT.COMMAND],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	295 // [OS.GDK_????, SWT.COMMAND],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	296
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	297 /* Non-Numeric Keypad Keys */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	298 [OS.GDK_Up, SWT.ARROW_UP],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	299 [OS.GDK_KP_Up, SWT.ARROW_UP],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	300 [OS.GDK_Down, SWT.ARROW_DOWN],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	301 [OS.GDK_KP_Down, SWT.ARROW_DOWN],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	302 [OS.GDK_Left, SWT.ARROW_LEFT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	303 [OS.GDK_KP_Left, SWT.ARROW_LEFT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	304 [OS.GDK_Right, SWT.ARROW_RIGHT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	305 [OS.GDK_KP_Right, SWT.ARROW_RIGHT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	306 [OS.GDK_Page_Up, SWT.PAGE_UP],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	307 [OS.GDK_KP_Page_Up, SWT.PAGE_UP],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	308 [OS.GDK_Page_Down, SWT.PAGE_DOWN],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	309 [OS.GDK_KP_Page_Down, SWT.PAGE_DOWN],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	310 [OS.GDK_Home, SWT.HOME],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	311 [OS.GDK_KP_Home, SWT.HOME],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	312 [OS.GDK_End, SWT.END],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	313 [OS.GDK_KP_End, SWT.END],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	314 [OS.GDK_Insert, SWT.INSERT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	315 [OS.GDK_KP_Insert, SWT.INSERT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	316
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	317 /* Virtual and Ascii Keys */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	318 [OS.GDK_BackSpace, SWT.BS],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	319 [OS.GDK_Return, SWT.CR],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	320 [OS.GDK_Delete, SWT.DEL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	321 [OS.GDK_KP_Delete, SWT.DEL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	322 [OS.GDK_Escape, SWT.ESC],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	323 [OS.GDK_Linefeed, SWT.LF],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	324 [OS.GDK_Tab, SWT.TAB],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	325 [OS.GDK_ISO_Left_Tab, SWT.TAB],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	326
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	327 /* Functions Keys */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	328 [OS.GDK_F1, SWT.F1],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	329 [OS.GDK_F2, SWT.F2],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	330 [OS.GDK_F3, SWT.F3],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	331 [OS.GDK_F4, SWT.F4],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	332 [OS.GDK_F5, SWT.F5],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	333 [OS.GDK_F6, SWT.F6],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	334 [OS.GDK_F7, SWT.F7],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	335 [OS.GDK_F8, SWT.F8],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	336 [OS.GDK_F9, SWT.F9],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	337 [OS.GDK_F10, SWT.F10],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	338 [OS.GDK_F11, SWT.F11],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	339 [OS.GDK_F12, SWT.F12],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	340 [OS.GDK_F13, SWT.F13],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	341 [OS.GDK_F14, SWT.F14],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	342 [OS.GDK_F15, SWT.F15],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	343
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	344 /* Numeric Keypad Keys */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	345 [OS.GDK_KP_Multiply, SWT.KEYPAD_MULTIPLY],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	346 [OS.GDK_KP_Add, SWT.KEYPAD_ADD],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	347 [OS.GDK_KP_Enter, SWT.KEYPAD_CR],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	348 [OS.GDK_KP_Subtract, SWT.KEYPAD_SUBTRACT],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	349 [OS.GDK_KP_Decimal, SWT.KEYPAD_DECIMAL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	350 [OS.GDK_KP_Divide, SWT.KEYPAD_DIVIDE],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	351 [OS.GDK_KP_0, SWT.KEYPAD_0],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	352 [OS.GDK_KP_1, SWT.KEYPAD_1],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	353 [OS.GDK_KP_2, SWT.KEYPAD_2],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	354 [OS.GDK_KP_3, SWT.KEYPAD_3],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	355 [OS.GDK_KP_4, SWT.KEYPAD_4],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	356 [OS.GDK_KP_5, SWT.KEYPAD_5],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	357 [OS.GDK_KP_6, SWT.KEYPAD_6],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	358 [OS.GDK_KP_7, SWT.KEYPAD_7],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	359 [OS.GDK_KP_8, SWT.KEYPAD_8],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	360 [OS.GDK_KP_9, SWT.KEYPAD_9],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	361 [OS.GDK_KP_Equal, SWT.KEYPAD_EQUAL],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	362
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	363 /* Other keys */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	364 [OS.GDK_Caps_Lock, SWT.CAPS_LOCK],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	365 [OS.GDK_Num_Lock, SWT.NUM_LOCK],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	366 [OS.GDK_Scroll_Lock, SWT.SCROLL_LOCK],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	367 [OS.GDK_Pause, SWT.PAUSE],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	368 [OS.GDK_Break, SWT.BREAK],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	369 [OS.GDK_Print, SWT.PRINT_SCREEN],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	370 [OS.GDK_Help, SWT.HELP],
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	371
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	372 ];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	373
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	374 /* Multiple Displays. */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	375 static Display Default;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	376 static Display [] Displays;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	377
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	378 /* Package name */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	379 static const char[] PACKAGE_PREFIX = "dwt.widgets.";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	380 /* This code is intentionally commented.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	381 * ".class" can not be used on CLDC.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	382 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	383 // static {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	384 // char[] name = Display.class.getName ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	385 // int index = name.lastIndexOf ('.');
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	386 // PACKAGE_NAME = name.substring (0, index + 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	387 // }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	388
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	389 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	390 * In order to support CLDC, .class cannot be used because
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	391 * it does not compile on some Java compilers when they are
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	392 * targeted for CLDC. Use Class.forName() instead.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	393 */
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	394 synchronized static void static_this() {
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	395 Displays = new Display [4];
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	396 initDeviceFinder();
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	397 SWT_OBJECT_INDEX = OS.g_quark_from_string ("SWT_OBJECT_INDEX");
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	398 SWT_OBJECT_INDEX1 = OS.g_quark_from_string ("SWT_OBJECT_INDEX1");
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	399 SWT_OBJECT_INDEX2 = OS.g_quark_from_string ("SWT_OBJECT_INDEX2");
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	400 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	401
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	402 /* GTK Version */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	403 static const int MAJOR = 2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	404 static const int MINOR = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	405 static const int MICRO = 6;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	406
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	407 /* Display Data */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	408 Object data;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	409 char[] [] keys;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	410 Object [] values;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	411
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	412 /* Initial Guesses for Shell Trimmings. */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	413 int borderTrimWidth = 4, borderTrimHeight = 4;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	414 int resizeTrimWidth = 6, resizeTrimHeight = 6;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	415 int titleBorderTrimWidth = 5, titleBorderTrimHeight = 28;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	416 int titleResizeTrimWidth = 6, titleResizeTrimHeight = 29;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	417 int titleTrimWidth = 0, titleTrimHeight = 23;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	418 bool ignoreTrim;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	419
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	420 /* Window Manager */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	421 char[] windowManager;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	422
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	423 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	424 * TEMPORARY CODE. Install the runnable that
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	425 * gets the current display. This code will
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	426 * be removed in the future.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	427 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	428 private static void initDeviceFinder(){
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	429 DeviceFinder = new class() Runnable {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	430 public void run () {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	431 Device device = getCurrent ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	432 if (device is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	433 device = getDefault ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	434 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	435 setDevice (device);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	436 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	437 };
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	438 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	439
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	440 /*
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	441 * TEMPORARY CODE.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	442 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	443 static void setDevice (Device device) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	444 CurrentDevice = device;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	445 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	446
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	447 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	448 * Constructs a new instance of this class.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	449 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	450 * Note: The resulting display is marked as the <em>current</em>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	451 * display. If this is the first display which has been
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	452 * constructed since the application started, it is also
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	453 * marked as the <em>default</em> display.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	454 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	455 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	456 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	457 * <li>ERROR_THREAD_INVALID_ACCESS - if called from a thread that already created an existing display</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	458 * <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	459 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	460 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	461 * @see #getCurrent
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	462 * @see #getDefault
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	463 * @see Widget#checkSubclass
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	464 * @see Shell
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	465 */
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	466 public this () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	467 this (null);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	468 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	469
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	470 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	471 * Constructs a new instance of this class using the parameter.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	472 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	473 * @param data the device data
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	474 */
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	475 public this (DeviceData data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	476 super (data);
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	477 synchronizer = new Synchronizer (this);
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	478 idleLock = new Object();
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	479 flushRect = new GdkRectangle ();
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	480 exposeEvent = new XExposeEvent ();
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	481 visibilityEvent = new XVisibilityEvent ();
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	482 cursors = new Cursor [SWT.CURSOR_HAND + 1];
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	483 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	484
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	485 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	486 * Adds the listener to the collection of listeners who will
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	487 * be notified when an event of the given type occurs anywhere
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	488 * in a widget. The event type is one of the event constants
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	489 * defined in class <code>SWT</code>. When the event does occur,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	490 * the listener is notified by sending it the <code>handleEvent()</code>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	491 * message.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	492 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	493 * Setting the type of an event to <code>SWT.None</code> from
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	494 * within the <code>handleEvent()</code> method can be used to
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	495 * change the event type and stop subsequent Java listeners
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	496 * from running. Because event filters run before other listeners,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	497 * event filters can both block other listeners and set arbitrary
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	498 * fields within an event. For this reason, event filters are both
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	499 * powerful and dangerous. They should generally be avoided for
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	500 * performance, debugging and code maintenance reasons.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	501 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	502 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	503 * @param eventType the type of event to listen for
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	504 * @param listener the listener which should be notified when the event occurs
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	505 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	506 * @exception IllegalArgumentException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	507 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	508 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	509 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	510 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	511 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	512 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	513 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	514 * @see Listener
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	515 * @see SWT
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	516 * @see #removeFilter
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	517 * @see #removeListener
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	518 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	519 * @since 3.0
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	520 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	521 public void addFilter (int eventType, Listener listener) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	522 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	523 if (listener is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	524 if (filterTable is null) filterTable = new EventTable ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	525 filterTable.hook (eventType, listener);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	526 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	527
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	528 void addGdkEvent (GdkEvent* event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	529 if (gdkEvents is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	530 int length = GROW_SIZE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	531 gdkEvents.length = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	532 gdkEventWidgets.length = length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	533 gdkEventCount = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	534 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	535 if (gdkEventCount is gdkEvents.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	536 int length = gdkEventCount + GROW_SIZE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	537 GdkEvent* [] newEvents = new GdkEvent* [length];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	538 SimpleType!(GdkEvent*).arraycopy (gdkEvents, 0, newEvents, 0, gdkEventCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	539 gdkEvents = newEvents;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	540 Widget [] newWidgets = new Widget [length];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	541 System.arraycopy (gdkEventWidgets, 0, newWidgets, 0, gdkEventCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	542 gdkEventWidgets = newWidgets;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	543 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	544 Widget widget = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	545 GtkWidget* handle = OS.gtk_get_event_widget (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	546 if (handle !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	547 do {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	548 widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	549 } while (widget is null && (handle = OS.gtk_widget_get_parent (handle)) !is null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	550 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	551 gdkEvents [gdkEventCount] = event;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	552 gdkEventWidgets [gdkEventCount] = widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	553 gdkEventCount++;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	554 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	555
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	556 void addIdleProc() {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	557 synchronized (idleLock){
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	558 this.idleNeeded = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	559 if (idleHandle is 0) {
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	560 idleProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	561 idleProcCallbackData.data = null;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	562 idleHandle = OS.g_idle_add ( &idleProcFunc, &idleProcCallbackData );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	563 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	564 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	565 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	566
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	567 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	568 * Adds the listener to the collection of listeners who will
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	569 * be notified when an event of the given type occurs. The event
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	570 * type is one of the event constants defined in class <code>SWT</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	571 * When the event does occur in the display, the listener is notified by
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	572 * sending it the <code>handleEvent()</code> message.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	573 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	574 * @param eventType the type of event to listen for
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	575 * @param listener the listener which should be notified when the event occurs
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	576 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	577 * @exception IllegalArgumentException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	578 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	579 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	580 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	581 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	582 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	583 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	584 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	585 * @see Listener
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	586 * @see SWT
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	587 * @see #removeListener
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	588 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	589 * @since 2.0
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	590 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	591 public void addListener (int eventType, Listener listener) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	592 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	593 if (listener is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	594 if (eventTable is null) eventTable = new EventTable ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	595 eventTable.hook (eventType, listener);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	596 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	597
69 7cf1deebc8d4 Combo Frank Benoit <benoit@tionex.de> parents: 67 diff changeset	598 void allChildrenCollect( GtkWidget* widget, int recurse ){
7cf1deebc8d4 Combo Frank Benoit <benoit@tionex.de> parents: 67 diff changeset	599 allChildrenProcCallbackData.display = this;
7cf1deebc8d4 Combo Frank Benoit <benoit@tionex.de> parents: 67 diff changeset	600 allChildrenProcCallbackData.data = cast(void*)recurse;
7cf1deebc8d4 Combo Frank Benoit <benoit@tionex.de> parents: 67 diff changeset	601 OS.gtk_container_forall (cast(GtkContainer*)widget, cast(GtkCallback)&allChildrenProcFunc, &allChildrenProcCallbackData);
7cf1deebc8d4 Combo Frank Benoit <benoit@tionex.de> parents: 67 diff changeset	602 }
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	603 private static extern(C) int /long/ allChildrenProcFunc (GtkWidget* handle, void* user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	604 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	605 CallbackData* cbdata = cast(CallbackData*)user_data;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	606 return cbdata.display.allChildrenProc( cast(GtkWidget*)handle, cast(int)cbdata.data );
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	607 }
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	608 int /long/ allChildrenProc (GtkWidget* widget, int /long/ recurse) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	609 allChildren = OS.g_list_append (allChildren, widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	610 if (recurse !is 0 && OS.GTK_IS_CONTAINER (cast(GTypeInstance*)widget)) {
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	611 allChildrenProcCallbackData.display = this;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	612 allChildrenProcCallbackData.data = cast(void*)recurse;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	613 OS.gtk_container_forall (cast(GtkContainer*)widget, cast(GtkCallback)&allChildrenProcFunc, &allChildrenProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	614 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	615 return 0;
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	616 }
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	617
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	618 void addMouseHoverTimeout (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	619 if (mouseHoverId !is 0) OS.gtk_timeout_remove (mouseHoverId);
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	620 mouseHoverProcCallbackData.display = this;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	621 mouseHoverProcCallbackData.data = cast(void*)handle;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	622 mouseHoverId = OS.gtk_timeout_add (400, &mouseHoverProcFunc, &mouseHoverProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	623 mouseHoverHandle = handle;
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	624 }
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	625
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	626 void addPopup (Menu menu) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	627 if (popups is null) popups = new Menu [4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	628 int length = popups.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	629 for (int i=0; i<length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	630 if (popups [i] is menu) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	631 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	632 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	633 while (index < length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	634 if (popups [index] is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	635 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	636 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	637 if (index is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	638 Menu [] newPopups = new Menu [length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	639 System.arraycopy (popups, 0, newPopups, 0, length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	640 popups = newPopups;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	641 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	642 popups [index] = menu;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	643 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	644
28 10acbb123580 Widget and TypedListener Frank Benoit <benoit@tionex.de> parents: 27 diff changeset	645 void addWidget (GtkWidget* handle, Widget widget) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	646 if (handle is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	647 if (freeSlot is -1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	648 int len = (freeSlot = indexTable.length) + GROW_SIZE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	649 int[] newIndexTable = new int[len];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	650 Widget[] newWidgetTable = new Widget [len];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	651 System.arraycopy (indexTable, 0, newIndexTable, 0, freeSlot);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	652 System.arraycopy (widgetTable, 0, newWidgetTable, 0, freeSlot);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	653 for (int i = freeSlot; i < len - 1; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	654 newIndexTable[i] = i + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	655 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	656 newIndexTable[len - 1] = -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	657 indexTable = newIndexTable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	658 widgetTable = newWidgetTable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	659 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	660 int index = freeSlot + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	661 OS.g_object_set_qdata (cast(GObject)handle, SWT_OBJECT_INDEX, cast(void)index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	662 int oldSlot = freeSlot;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	663 freeSlot = indexTable[oldSlot];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	664 indexTable [oldSlot] = -2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	665 widgetTable [oldSlot] = widget;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	666 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	667
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	668 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	669 * Causes the <code>run()</code> method of the runnable to
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	670 * be invoked by the user-interface thread at the next
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	671 * reasonable opportunity. The caller of this method continues
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	672 * to run in parallel, and is not notified when the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	673 * runnable has completed. Specifying <code>null</code> as the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	674 * runnable simply wakes the user-interface thread when run.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	675 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	676 * Note that at the time the runnable is invoked, widgets
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	677 * that have the receiver as their display may have been
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	678 * disposed. Therefore, it is necessary to check for this
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	679 * case inside the runnable before accessing the widget.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	680 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	681 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	682 * @param runnable code to run on the user-interface thread or <code>null</code>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	683 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	684 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	685 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	686 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	687 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	688 * @see #syncExec
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	689 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	690 public void asyncExec (Runnable runnable) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	691 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	692 synchronized (idleLock) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	693 if (idleNeeded && idleHandle is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	694 //NOTE: calling unlocked function in OS
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	695 idleHandle = OS.g_idle_add (&idleProcFunc, cast(void*) this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	696 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	697 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	698 synchronizer.asyncExec (runnable);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	699 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	700
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	701 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	702 * Causes the system hardware to emit a short sound
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	703 * (if it supports this capability).
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	704 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	705 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	706 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	707 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	708 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	709 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	710 public void beep () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	711 if (!isValidThread ()) error (SWT.ERROR_THREAD_INVALID_ACCESS);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	712 OS.gdk_beep();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	713 if (!OS.GDK_WINDOWING_X11 ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	714 OS.gdk_flush ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	715 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	716 void* xDisplay = OS.GDK_DISPLAY ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	717 OS.XFlush (xDisplay);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	718 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	719 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	720
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	721 int /long/ cellDataProc (int /long/ tree_column, int /long/ cell, int /long/ tree_model, int /long/ iter, GtkWidget* data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	722 Widget widget = getWidget (data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	723 if (widget 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: 54 diff changeset	724 return widget.cellDataProc (tree_column, cell, tree_model, iter, data);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	725 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	726
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	727 protected void checkDevice () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	728 if (thread is null) error (SWT.ERROR_WIDGET_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	729 if (thread !is Thread.getThis ()) error (SWT.ERROR_THREAD_INVALID_ACCESS);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	730 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	731 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	732
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	733 static synchronized void checkDisplay (Thread thread, bool multiple) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	734 for (int i=0; i<Displays.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	735 if (Displays [i] !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	736 if (!multiple) SWT.error (SWT.ERROR_NOT_IMPLEMENTED, null, " [multiple displays]");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	737 if (Displays [i].thread is thread) SWT.error (SWT.ERROR_THREAD_INVALID_ACCESS);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	738 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	739 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	740 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	741
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	742 private static extern(C) int checkIfEventProcFunc (void* display, XEvent* xEvent, char* userData) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	743 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	744 auto disp = cast(Display)userData;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	745 return disp.checkIfEventProcMeth( display, xEvent );
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	746 }
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	747
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	748 int checkIfEventProcMeth (void* display, XEvent* xEvent) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	749 int type = xEvent.type;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	750 switch (type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	751 case OS.VisibilityNotify:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	752 case OS.Expose:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	753 case OS.GraphicsExpose:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	754 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	755 default:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	756 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	757 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	758 GdkWindow* window = OS.gdk_window_lookup ( xEvent.xany.window );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	759 if (window 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: 54 diff changeset	760 if (flushWindow !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	761 if (flushAll) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	762 auto tempWindow = window;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	763 do {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	764 if (tempWindow is flushWindow) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	765 } while ((tempWindow = OS.gdk_window_get_parent (tempWindow)) !is null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	766 if (tempWindow !is flushWindow) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	767 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	768 if (window !is flushWindow) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	769 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	770 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	771 exposeEvent = cast(XExposeEvent*)xEvent;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	772 switch (type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	773 case OS.Expose:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	774 case OS.GraphicsExpose: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	775 flushRect.x = exposeEvent.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	776 flushRect.y = exposeEvent.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	777 flushRect.width = exposeEvent.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	778 flushRect.height = exposeEvent.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	779 OS.gdk_window_invalidate_rect (window, flushRect, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	780 exposeEvent.type = -1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	781 memmove (xEvent, exposeEvent, XExposeEvent.sizeof);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	782 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	783 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	784 case OS.VisibilityNotify: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	785 memmove (visibilityEvent, xEvent, XVisibilityEvent.sizeof);
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	786 GtkWidget* handle;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	787 OS.gdk_window_get_user_data (window, cast(void**) & handle);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	788 Widget widget = handle !is null ? getWidget (handle) : null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	789 if (auto control = cast(Control)widget ) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	790 if (window is control.paintWindow ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	791 if (visibilityEvent.state is OS.VisibilityFullyObscured) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	792 control.state \|= Widget.OBSCURED;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	793 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	794 control.state &= ~Widget.OBSCURED;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	795 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	796 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	797 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	798 break;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	799 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	800 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	801 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	802 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	803 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	804
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	805 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	806 * Checks that this class can be subclassed.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	807 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	808 * IMPORTANT: See the comment in <code>Widget.checkSubclass()</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	809 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	810 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	811 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	812 * <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	813 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	814 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	815 * @see Widget#checkSubclass
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	816 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	817 protected void checkSubclass () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	818 //PORTING_TODO if (!isValidClass (getClass ())) error (SWT.ERROR_INVALID_SUBCLASS);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	819 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	820
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	821 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	822 * Requests that the connection between SWT and the underlying
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	823 * operating system be closed.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	824 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	825 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	826 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	827 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	828 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	829 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	830 * @see Device#dispose
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	831 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	832 * @since 2.0
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	833 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	834 public void close () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	835 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	836 Event event = new Event ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	837 sendEvent (SWT.Close, event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	838 if (event.doit) dispose ();
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	839 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	840
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	841 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	842 * Creates the device in the operating system. If the device
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	843 * does not have a handle, this method may do nothing depending
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	844 * on the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	845 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	846 * This method is called before <code>init</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	847 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	848 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	849 * @param data the DeviceData which describes the receiver
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	850 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	851 * @see #init
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	852 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	853 protected void create (DeviceData data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	854 checkSubclass ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	855 checkDisplay(thread = Thread.getThis (), false);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	856 createDisplay (data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	857 register ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	858 if (Default is null) Default = this;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	859 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	860
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	861 synchronized void createDisplay (DeviceData data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	862 /* Required for g_main_context_wakeup */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	863 if (!OS.g_thread_supported ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	864 OS.g_thread_init (null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	865 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	866 OS.gtk_set_locale();
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	867 int cnt = 0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	868 if (!OS.gtk_init_check (&cnt, null)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	869 SWT.error (SWT.ERROR_NO_HANDLES, null, " [gtk_init_check() failed]");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	870 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	871 if (OS.GDK_WINDOWING_X11 ()) xDisplay = cast(void*) OS.GDK_DISPLAY ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	872 char* ptr = OS.gtk_check_version (MAJOR, MINOR, MICRO);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	873 if (ptr !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	874 char [] buffer = fromUtf8z(ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	875 Stdout.formatln ("***WARNING: {}", buffer );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	876 Stdout.formatln ("***WARNING: SWT requires GTK {}.{}.{}", MAJOR, MINOR, MICRO );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	877 int major = OS.gtk_major_version (), minor = OS.gtk_minor_version (), micro = OS.gtk_micro_version ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	878 Stdout.formatln ("***WARNING: Detected: {}.{}.{}", major, minor, micro);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	879 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	880 if (fixed_type is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	881 GTypeInfo* fixed_info = new GTypeInfo ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	882 fixed_info.class_size = GtkFixedClass.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	883 fixed_info.class_init = & fixedClassInitProcFunc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	884 fixed_info.instance_size = GtkFixed.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	885 fixed_type = OS.g_type_register_static (OS.GTK_TYPE_FIXED (), "SwtFixed".ptr, fixed_info, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	886 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	887 if (text_renderer_type is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	888 GTypeInfo* renderer_info = new GTypeInfo ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	889 renderer_info.class_size = GtkCellRendererTextClass.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	890 renderer_info.class_init = & rendererClassInitProcFunc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	891 renderer_info.instance_size = GtkCellRendererText.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	892 text_renderer_type = OS.g_type_register_static (OS.GTK_TYPE_CELL_RENDERER_TEXT (), "SwtTextRenderer".ptr, renderer_info, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	893 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	894 if (pixbuf_renderer_type is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	895 GTypeInfo* renderer_info = new GTypeInfo ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	896 renderer_info.class_size = GtkCellRendererPixbufClass.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	897 renderer_info.class_init = & rendererClassInitProcFunc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	898 renderer_info.instance_size = GtkCellRendererPixbuf.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	899 pixbuf_renderer_type = OS.g_type_register_static (OS.GTK_TYPE_CELL_RENDERER_PIXBUF (), "SwtPixbufRenderer".ptr, renderer_info, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	900 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	901 if (toggle_renderer_type is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	902 GTypeInfo* renderer_info = new GTypeInfo ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	903 renderer_info.class_size = GtkCellRendererToggleClass.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	904 renderer_info.class_init = & rendererClassInitProcFunc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	905 renderer_info.instance_size = GtkCellRendererToggle.sizeof;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	906 toggle_renderer_type = OS.g_type_register_static (OS.GTK_TYPE_CELL_RENDERER_TOGGLE (), "SwtToggleRenderer".ptr, renderer_info, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	907 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	908
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	909 OS.gtk_widget_set_default_direction (OS.GTK_TEXT_DIR_LTR);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	910 OS.gdk_rgb_init ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	911 char* p = toStringz(APP_NAME);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	912 OS.g_set_prgname (p);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	913 OS.gdk_set_program_class (p);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	914 OS.gtk_rc_parse_string ("style \"swt-flat\" { GtkToolbar::shadow-type = none } widget \"*.swt-toolbar-flat\" style : highest \"swt-flat\"".ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	915
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	916 /* Initialize the hidden shell */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	917 shellHandle = OS.gtk_window_new (OS.GTK_WINDOW_TOPLEVEL);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	918 if (shellHandle is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	919 OS.gtk_widget_realize (shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	920
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	921 /* Initialize the filter and event callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	922 OS.gdk_event_handler_set (&eventProcFunc, cast(void*)this, null);
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	923 //filterProcCallbackData.display = this;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	924 //filterProcCallbackData.data = null;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	925 //OS.gdk_window_add_filter (null, &filterProcFunc, cast(void*)&filterProcCallbackData );
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	926 doWindowAddFilter( &filterProcCallbackData, null, null );
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	927 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	928
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	929 /*
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	930 * Used by Shell
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	931 */
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	932 package void doWindowAddFilter( CallbackData* cbdata, GdkWindow* window, GtkWidget* widget ){
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	933 cbdata.display = this;
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	934 cbdata.data = widget;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	935 OS.gdk_window_add_filter (window, &filterProcFunc, cbdata );
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	936 }
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	937
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	938 package void doWindowRemoveFilter( CallbackData* cbdata, GdkWindow* window, GtkWidget* widget ){
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	939 cbdata.display = this;
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	940 cbdata.data = widget;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	941 OS.gdk_window_remove_filter(window, &filterProcFunc, cbdata );
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	942 }
6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	943
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	944 Image createImage (char[] name) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	945 auto style = OS.gtk_widget_get_default_style ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	946 char[] buffer = name;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	947 auto pixbuf = OS.gtk_icon_set_render_icon (
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	948 OS.gtk_icon_factory_lookup_default (buffer.ptr), style,
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	949 OS.GTK_TEXT_DIR_NONE,
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	950 OS.GTK_STATE_NORMAL,
27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	951 OS.GTK_ICON_SIZE_DIALOG, null, null );
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	952 if (pixbuf 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: 54 diff changeset	953 int width = OS.gdk_pixbuf_get_width (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	954 int height = OS.gdk_pixbuf_get_height (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	955 int stride = OS.gdk_pixbuf_get_rowstride (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	956 bool hasAlpha = cast(bool)OS.gdk_pixbuf_get_has_alpha (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	957 char* pixels = OS.gdk_pixbuf_get_pixels (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	958 byte [] data = new byte [stride * height];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	959 memmove (data.ptr, pixels, data.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	960 OS.g_object_unref (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	961 ImageData imageData = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	962 if (hasAlpha) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	963 PaletteData palette = new PaletteData (0xFF000000, 0xFF0000, 0xFF00);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	964 imageData = new ImageData (width, height, 32, palette);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	965 byte [] alpha = new byte [stride * height];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	966 for (int y=0; y<height; y++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	967 for (int x=0; x<width; x++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	968 alpha [ywidth+x] = data [ystride+x*4+3];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	969 data [ystride+x4+3] = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	970 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	971 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	972 imageData.setAlphas (0, 0, width * height, alpha, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	973 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	974 PaletteData palette = new PaletteData (0xFF0000, 0xFF00, 0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	975 imageData = new ImageData (width, height, 24, palette);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	976 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	977 imageData.data = data;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	978 imageData.bytesPerLine = stride;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	979 return new Image (this, imageData);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	980 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	981
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	982 static GdkPixbuf* createPixbuf(Image image) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	983 int w, h;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	984 OS.gdk_drawable_get_size (image.pixmap, &w, &h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	985 auto colormap = OS.gdk_colormap_get_system ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	986 GdkPixbuf* pixbuf;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	987 bool hasMask = image.mask !is null && OS.gdk_drawable_get_depth (image.mask) is 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	988 if (hasMask) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	989 pixbuf = OS.gdk_pixbuf_new (OS.GDK_COLORSPACE_RGB, true, 8, w, h );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	990 if (pixbuf is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	991 OS.gdk_pixbuf_get_from_drawable (pixbuf, image.pixmap, colormap, 0, 0, 0, 0, w, h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	992 auto maskPixbuf = OS.gdk_pixbuf_new(OS.GDK_COLORSPACE_RGB, false, 8, w, h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	993 if (maskPixbuf is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	994 OS.gdk_pixbuf_get_from_drawable(maskPixbuf, image.mask, null, 0, 0, 0, 0, w, h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	995 int stride = OS.gdk_pixbuf_get_rowstride(pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	996 auto pixels = OS.gdk_pixbuf_get_pixels(pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	997 byte[] line = new byte[stride];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	998 int maskStride = OS.gdk_pixbuf_get_rowstride(maskPixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	999 auto maskPixels = OS.gdk_pixbuf_get_pixels(maskPixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1000 byte[] maskLine = new byte[maskStride];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1001 for (int y=0; y<h; y++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1002 auto offset = pixels + (y * stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1003 memmove(line.ptr, offset, stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1004 auto maskOffset = maskPixels + (y * maskStride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1005 memmove(maskLine.ptr, maskOffset, maskStride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1006 for (int x=0; x<w; x++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1007 if (maskLine[x * 3] is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1008 line[x * 4 + 3] = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1009 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1010 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1011 memmove(offset, line.ptr, stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1012 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1013 OS.g_object_unref(maskPixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1014 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1015 ImageData data = image.getImageData ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1016 bool hasAlpha = data.getTransparencyType () is SWT.TRANSPARENCY_ALPHA;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1017 pixbuf = OS.gdk_pixbuf_new (OS.GDK_COLORSPACE_RGB, hasAlpha, 8, w, h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1018 if (pixbuf is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1019 OS.gdk_pixbuf_get_from_drawable (pixbuf, image.pixmap, colormap, 0, 0, 0, 0, w, h);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1020 if (hasAlpha) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1021 byte [] alpha = data.alphaData;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1022 int stride = OS.gdk_pixbuf_get_rowstride (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1023 auto pixels = OS.gdk_pixbuf_get_pixels (pixbuf);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1024 byte [] line = new byte [stride];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1025 for (int y = 0; y < h; y++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1026 auto offset = pixels + (y * stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1027 memmove (line.ptr, offset, stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1028 for (int x = 0; x < w; x++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1029 line [x4+3] = alpha [yw+x];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1030 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1031 memmove (offset, line.ptr, stride);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1032 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1033 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1034 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1035 return pixbuf;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1036 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1037
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1038 synchronized void deregister () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1039 for (int i=0; i<Displays.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1040 if (this is Displays [i]) Displays [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1041 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1042 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1043
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1044 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1045 * Destroys the device in the operating system and releases
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1046 * the device's handle. If the device does not have a handle,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1047 * this method may do nothing depending on the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1048 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1049 * This method is called after <code>release</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1050 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1051 * @see Device#dispose
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1052 * @see #release
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1053 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1054 protected void destroy () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1055 if (this is Default) Default = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1056 deregister ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1057 destroyDisplay ();
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1058 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1059
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1060 void destroyDisplay () {
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1061 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1062
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1063 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1064 * Returns the display which the given thread is the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1065 * user-interface thread for, or null if the given thread
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1066 * is not a user-interface thread for any display. Specifying
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1067 * <code>null</code> as the thread will return <code>null</code>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1068 * for the display.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1069 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1070 * @param thread the user-interface thread
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1071 * @return the display for the given thread
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1072 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1073 public static synchronized Display findDisplay (Thread thread) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1074 for (int i=0; i<Displays.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1075 Display display = Displays [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1076 if (display !is null && display.thread is thread) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1077 return display;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1078 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1079 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1080 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1081 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1082
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1083 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1084 * Causes the <code>run()</code> method of the runnable to
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1085 * be invoked by the user-interface thread just before the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1086 * receiver is disposed. Specifying a <code>null</code> runnable
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1087 * is ignored.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1088 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1089 * @param runnable code to run at dispose time.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1090 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1091 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1092 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1093 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1094 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1095 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1096 public void disposeExec (Runnable runnable) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1097 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1098 if (disposeList is null) disposeList = new Runnable [4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1099 for (int i=0; i<disposeList.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1100 if (disposeList [i] is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1101 disposeList [i] = runnable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1102 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1103 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1104 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1105 Runnable [] newDisposeList = new Runnable [disposeList.length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1106 SimpleType!(Runnable).arraycopy (disposeList, 0, newDisposeList, 0, disposeList.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1107 newDisposeList [disposeList.length] = runnable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1108 disposeList = newDisposeList;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1109 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1110
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1111 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1112 * Does whatever display specific cleanup is required, and then
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1113 * uses the code in <code>SWTError.error</code> to handle the error.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1114 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1115 * @param code the descriptive error code
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1116 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1117 * @see SWTError#error
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1118 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1119 void error (int code) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1120 SWT.error (code);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1121 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1122
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1123 private static extern(C) void eventProcFunc (GdkEvent* event, void* data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1124 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1125 Display disp = cast(Display)data;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1126 disp.eventProcMeth(event);
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1127 }
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1128 void eventProcMeth (GdkEvent* event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1129 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1130 * Use gdk_event_get_time() rather than event.time or
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1131 * gtk_get_current_event_time(). If the event does not
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1132 * have a time stamp, then the field will contain garbage.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1133 * Note that calling gtk_get_current_event_time() from
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1134 * outside of gtk_main_do_event() seems to always
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1135 * return zero.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1136 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1137 int time = OS.gdk_event_get_time (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1138 if (time !is 0) lastEventTime = time;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1139
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1140 int eventType = OS.GDK_EVENT_TYPE (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1141 switch (eventType) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1142 case OS.GDK_BUTTON_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1143 case OS.GDK_KEY_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1144 lastUserEventTime = time;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	1145 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1146 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1147 bool dispatch = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1148 if (dispatchEvents !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1149 dispatch = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1150 for (int i = 0; i < dispatchEvents.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1151 if (eventType is dispatchEvents [i]) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1152 dispatch = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1153 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1154 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1155 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1156 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1157 if (!dispatch) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1158 addGdkEvent (OS.gdk_event_copy (event));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1159 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1160 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1161 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1162 * Feature in GTK. GTK implements modality by adding a grab
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1163 * to the GTK top level window. Normally, all mouse and
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1164 * keyboard events are delivered to child widgets and the
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1165 * shell when the grab is active. When an override redirect
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1166 * shell is created as a child of a dialog, then events are
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1167 * grabbed by the dialog instead of the override redirect
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1168 * shell. The fix is to add a temporary grab to the override
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1169 * redirect window when there is not already a grab in a
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1170 * child widget of the override redirect shell (for example,
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1171 * in a scroll bar).
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1172 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1173 Shell shell = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1174 Control control = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1175 auto grabHandle = OS.gtk_grab_get_current ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1176 if (grabHandle !is null && OS.GTK_IS_WINDOW (cast(GTypeInstance)grabHandle) && OS.gtk_window_get_modal (cast(GtkWindow)grabHandle)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1177 switch (eventType) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1178 case OS.GDK_KEY_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1179 case OS.GDK_KEY_RELEASE:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1180 case OS.GDK_ENTER_NOTIFY:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1181 case OS.GDK_LEAVE_NOTIFY:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1182 case OS.GDK_BUTTON_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1183 case OS.GDK_2BUTTON_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1184 case OS.GDK_3BUTTON_PRESS:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1185 case OS.GDK_BUTTON_RELEASE:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1186 case OS.GDK_MOTION_NOTIFY: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1187 auto window = OS.GDK_EVENT_WINDOW (cast(GdkEventAny*)event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1188 do {
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1189 GtkWidget* handle;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1190 OS.gdk_window_get_user_data (window, cast(void**) &handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1191 if (handle !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1192 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1193 if (widget !is null && (null !is cast(Control)widget)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1194 control = cast(Control) widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1195 break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1196 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1197 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1198 } while ((window = OS.gdk_window_get_parent (window)) !is null);
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	1199 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1200 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1201 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1202 if (control !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1203 shell = control.getShell ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1204 if ((shell.style & SWT.ON_TOP) !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1205 OS.gtk_grab_add (shell.shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1206 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1207 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1208 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1209 OS.gtk_main_do_event (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1210 if (dispatchEvents is null) putGdkEvents ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1211 if (control !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1212 if (shell !is null && !shell.isDisposed () && (shell.style & SWT.ON_TOP) !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1213 OS.gtk_grab_remove (shell.shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1214 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1215 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1216 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1217 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1218
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1219 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1220 * Given the operating system handle for a widget, returns
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1221 * the instance of the <code>Widget</code> subclass which
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1222 * represents it in the currently running application, if
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1223 * such exists, or null if no matching widget can be found.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1224 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1225 * <b>IMPORTANT:</b> This method should not be called from
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1226 * application code. The arguments are platform-specific.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1227 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1228 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1229 * @param handle the handle for the widget
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1230 * @return the SWT widget that the handle represents
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1231 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1232 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1233 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1234 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1235 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1236 */
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1237 public Widget findWidget (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1238 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1239 return getWidget (handle);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1240 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1241
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1242 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1243 * Given the operating system handle for a widget,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1244 * and widget-specific id, returns the instance of
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1245 * the <code>Widget</code> subclass which represents
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1246 * the handle/id pair in the currently running application,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1247 * if such exists, or null if no matching widget can be found.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1248 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1249 * <b>IMPORTANT:</b> This method should not be called from
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1250 * application code. The arguments are platform-specific.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1251 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1252 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1253 * @param handle the handle for the widget
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1254 * @param id the id for the subwidget (usually an item)
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1255 * @return the SWT widget that the handle/id pair represents
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1256 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1257 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1258 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1259 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1260 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1261 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1262 * @since 3.1
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1263 */
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1264 public Widget findWidget (GtkWidget* handle, int id) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1265 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1266 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1267 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1268
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1269 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1270 * Given a widget and a widget-specific id, returns the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1271 * instance of the <code>Widget</code> subclass which represents
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1272 * the widget/id pair in the currently running application,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1273 * if such exists, or null if no matching widget can be found.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1274 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1275 * @param widget the widget
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1276 * @param id the id for the subwidget (usually an item)
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1277 * @return the SWT subwidget (usually an item) that the widget/id pair represents
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1278 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1279 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1280 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1281 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1282 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1283 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1284 * @since 3.3
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1285 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1286 public Widget findWidget (Widget widget, int id) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1287 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1288 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1289 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1290
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1291 private static extern(C) void fixedClassInitProcFunc (void* g_class, void* class_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1292 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1293 GtkWidgetClass* klass = cast(GtkWidgetClass*)g_class;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1294 klass.map = &fixedMapProcFunc;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1295 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1296
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1297 private static extern(C) void fixedMapProcFunc (GtkWidget * handle) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1298 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1299 Display display = getCurrent ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1300 Widget widget = display.getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1301 if (widget !is null) widget.fixedMapProc (handle);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1302 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1303
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1304 private static extern(C) void rendererClassInitProcFunc (void* g_class, void* class_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1305 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1306 GtkCellRendererClass* klass = cast(GtkCellRendererClass*)g_class;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1307 klass.render = &rendererRenderProcFunc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1308 klass.get_size = &rendererGetSizeProcFunc;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1309 }
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1310 private static extern(C) void rendererGetSizeProcFunc(GtkCellRenderer cell, GtkWidget handle, GdkRectangle cell_area, int x_offset, int y_offset, int width, int *height) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1311 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1312 Display display = getCurrent ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1313 Widget widget = display.getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1314 if (widget !is null) widget.rendererGetSizeProc (cell, handle, cell_area, x_offset, y_offset, width, height);
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1315 }
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1316 private static extern(C) void rendererRenderProcFunc(GtkCellRenderer * cell, GdkDrawable * window, GtkWidget * handle, GdkRectangle background_area, GdkRectangle cell_area, GdkRectangle *expose_area, int flags){
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1317 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1318 Display display = getCurrent ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1319 Widget widget = display.getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1320 if (widget !is null) widget.rendererRenderProc (cell, window, handle, background_area, cell_area, expose_area, flags);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1321 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1322
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1323 void flushExposes (GdkWindow* window, bool all) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1324 OS.gdk_flush ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1325 OS.gdk_flush ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1326 if (OS.GDK_WINDOWING_X11 ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1327 this.flushWindow = window;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1328 this.flushAll = all;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1329 auto xDisplay = OS.GDK_DISPLAY ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1330 auto xEvent = cast(XEvent*)OS.g_malloc (XEvent.sizeof);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1331 OS.XCheckIfEvent (xDisplay, xEvent, &checkIfEventProcFunc, cast(char*)this );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1332 OS.g_free (xEvent);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1333 this.flushWindow = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1334 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1335 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1336
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1337 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1338 * Returns the currently active <code>Shell</code>, or null
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1339 * if no shell belonging to the currently running application
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1340 * is active.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1341 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1342 * @return the active shell or null
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1343 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1344 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1345 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1346 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1347 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1348 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1349 public Shell getActiveShell () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1350 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1351 return activeShell;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1352 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1353
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1354 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1355 * Returns a rectangle describing the receiver's size and location.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1356 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1357 * @return the bounding rectangle
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1358 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1359 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1360 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1361 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1362 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1363 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1364 public Rectangle getBounds () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1365 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1366 return new Rectangle (0, 0, OS.gdk_screen_width (), OS.gdk_screen_height ());
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1367 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1368
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1369 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1370 * Returns the display which the currently running thread is
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1371 * the user-interface thread for, or null if the currently
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1372 * running thread is not a user-interface thread for any display.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1373 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1374 * @return the current display
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1375 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1376 public static synchronized Display getCurrent () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1377 Thread current = Thread.getThis ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1378 for (int i=0; i<Displays.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1379 Display display = Displays [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1380 if (display !is null && display.thread is current) return display;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1381 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1382 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1383 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1384
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1385 int getCaretBlinkTime () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1386 // checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1387 auto settings = OS.gtk_settings_get_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1388 if (settings is null) return 500;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1389 int buffer;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1390 OS.g_object_get1 (settings, OS.gtk_cursor_blink.ptr, &buffer );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1391 if (buffer is 0) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1392 OS.g_object_get1 (settings, OS.gtk_cursor_blink_time.ptr, &buffer);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1393 if (buffer is 0) return 500;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1394 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1395 * By experimentation, GTK application don't use the whole
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1396 * blink cycle time. Instead, they divide up the time, using
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1397 * an effective blink rate of about 1/2 the total time.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1398 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1399 return buffer / 2;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1400 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1401
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1402 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1403 * Returns the control which the on-screen pointer is currently
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1404 * over top of, or null if it is not currently over one of the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1405 * controls built by the currently running application.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1406 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1407 * @return the control under the cursor
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1408 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1409 * @exception SWTException <ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1410 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1411 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1412 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1413 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1414 public Control getCursorControl () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1415 checkDevice();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1416 int x, y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1417 auto window = OS.gdk_window_at_pointer (&x, &y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1418 if (window is null) return null;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1419 GtkWidget* handle;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1420 OS.gdk_window_get_user_data (window, cast(void**)&handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1421 if (handle 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: 54 diff changeset	1422 do {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1423 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1424 if (widget !is null && (null !is cast(Control)widget)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1425 Control control = cast(Control) widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1426 if (control.isEnabled ()) return control;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1427 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1428 } while ((handle = OS.gtk_widget_get_parent (handle)) !is null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1429 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1430 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1431
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	1432 bool filterEvent (Event event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1433 if (filterTable !is null) filterTable.sendEvent (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1434 return false;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1435 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1436
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	1437 bool filters (int eventType) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1438 if (filterTable is null) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1439 return filterTable.hooks (eventType);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1440 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1441
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	1442 private static extern(C) int filterProcFunc (GdkXEvent* xEvent, GdkEvent* gdkEvent, void* data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	1443 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1444 auto callbackdata = cast(CallbackData*)data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1445 auto disp = callbackdata.display;
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	1446 if( disp is null ) return 0;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	1447 auto res = disp.filterProcMeth(xEvent,gdkEvent,callbackdata);
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	1448 return res;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1449 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1450
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	1451 int filterProcMeth (GdkXEvent* xEvent, GdkEvent* gdkEvent, CallbackData* callbackData) {
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1452 if( callbackData.data is null ){
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1453 /*
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1454 * Feature in GTK. When button 4, 5, 6, or 7 is released, GTK
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1455 * does not deliver a corresponding GTK event. Button 6 and 7
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1456 * are mapped to buttons 4 and 5 in SWT. The fix is to change
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1457 * the button number of the event to a negative number so that
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1458 * it gets dispatched by GTK. SWT has been modified to look
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1459 * for negative button numbers.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1460 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1461 XButtonEvent* mouseEvent = cast(XButtonEvent*) xEvent;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1462 if (mouseEvent.type is OS.ButtonRelease) {
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1463 switch (mouseEvent.button) {
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1464 case 6:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1465 case 7:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1466 mouseEvent.button = -mouseEvent.button;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1467 break;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	1468 default:
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1469 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1470 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1471 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1472 Widget widget = getWidget (cast(GtkWidget*)callbackData.data);
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 30 diff changeset	1473 if (widget is null) return 0;
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	1474 return widget.filterProc (cast(XEvent*)xEvent, gdkEvent, callbackData.data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1475 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1476
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1477 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1478 * Returns the location of the on-screen pointer relative
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1479 * to the top left corner of the screen.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1480 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1481 * @return the cursor location
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1482 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1483 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1484 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1485 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1486 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1487 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1488 public Point getCursorLocation () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1489 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1490 int x, y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1491 OS.gdk_window_get_pointer (null, &x, &y, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1492 return new Point (x, y);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1493 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1494
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1495 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1496 * Returns an array containing the recommended cursor sizes.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1497 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1498 * @return the array of cursor sizes
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1499 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1500 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1501 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1502 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1503 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1504 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1505 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1506 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1507 public Point [] getCursorSizes () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1508 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1509 return [new Point (16, 16), new Point (32, 32)];
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1510 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1511
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1512 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1513 * Returns the application defined property of the receiver
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1514 * with the specified name, or null if it has not been set.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1515 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1516 * Applications may have associated arbitrary objects with the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1517 * receiver in this fashion. If the objects stored in the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1518 * properties need to be notified when the display is disposed
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1519 * of, it is the application's responsibility to provide a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1520 * <code>disposeExec()</code> handler which does so.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1521 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1522 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1523 * @param key the name of the property
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1524 * @return the value of the property or null if it has not been set
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1525 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1526 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1527 * <li>ERROR_NULL_ARGUMENT - if the key is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1528 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1529 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1530 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1531 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1532 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1533 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1534 * @see #setData(String, Object)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1535 * @see #disposeExec(Runnable)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1536 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1537 public Object getData (char[] key) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1538 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1539 if (key is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1540 if (key ==/eq/ DISPATCH_EVENT_KEY) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1541 return new ArrayWrapperInt(dispatchEvents);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1542 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1543 if (keys 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: 54 diff changeset	1544 for (int i=0; i<keys.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1545 if (keys [i] ==/eq/ key) return values [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1546 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1547 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1548 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1549
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1550 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1551 * Returns the application defined, display specific data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1552 * associated with the receiver, or null if it has not been
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1553 * set. The <em>display specific data</em> is a single,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1554 * unnamed field that is stored with every display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1555 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1556 * Applications may put arbitrary objects in this field. If
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1557 * the object stored in the display specific data needs to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1558 * be notified when the display is disposed of, it is the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1559 * application's responsibility to provide a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1560 * <code>disposeExec()</code> handler which does so.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1561 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1562 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1563 * @return the display specific data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1564 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1565 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1566 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1567 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1568 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1569 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1570 * @see #setData(Object)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1571 * @see #disposeExec(Runnable)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1572 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1573 public Object getData () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1574 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1575 return data;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1576 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1577
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1578 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1579 * Returns a point whose x coordinate is the horizontal
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1580 * dots per inch of the display, and whose y coordinate
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1581 * is the vertical dots per inch of the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1582 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1583 * @return the horizontal and vertical DPI
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1584 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1585 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1586 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1587 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1588 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1589 public Point getDPI () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1590 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1591 int widthMM = OS.gdk_screen_width_mm ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1592 int width = OS.gdk_screen_width ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1593 int dpi = Compatibility.round (254 * width, widthMM * 10);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1594 return new Point (dpi, dpi);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1595 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1596
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1597 int /long/ gtk_fixed_get_type () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1598 return fixed_type;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1599 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1600
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1601 int /long/ gtk_cell_renderer_text_get_type () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1602 return text_renderer_type;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1603 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1604
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1605 int /long/ gtk_cell_renderer_pixbuf_get_type () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1606 return pixbuf_renderer_type;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1607 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1608
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1609 int /long/ gtk_cell_renderer_toggle_get_type () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1610 return toggle_renderer_type;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1611 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1612
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1613 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1614 * Returns the default display. One is created (making the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1615 * thread that invokes this method its user-interface thread)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1616 * if it did not already exist.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1617 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1618 * @return the default display
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1619 */
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1620 public static synchronized Display getDefault () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1621 if (Default is null) Default = new Display ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1622 return Default;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	1623 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1624
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1625 // /+static bool isValidClass (Class clazz) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1626 // //PORTING_TODO char[] name = clazz.getName ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1627 // //PORTING_TODO int index = name.lastIndexOf ('.');
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1628 // //PORTING_TODO return name.substring (0, index + 1)==/eq/ PACKAGE_PREFIX;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1629 // return true;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	1630 // }+/
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1631
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1632 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1633 * Returns the button dismissal alignment, one of <code>LEFT</code> or <code>RIGHT</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1634 * The button dismissal alignment is the ordering that should be used when positioning the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1635 * default dismissal button for a dialog. For example, in a dialog that contains an OK and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1636 * CANCEL button, on platforms where the button dismissal alignment is <code>LEFT</code>, the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1637 * button ordering should be OK/CANCEL. When button dismissal alignment is <code>RIGHT</code>,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1638 * the button ordering should be CANCEL/OK.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1639 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1640 * @return the button dismissal order
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1641 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1642 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1643 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1644 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1645 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1646 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1647 * @since 2.1
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1648 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1649 public int getDismissalAlignment () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1650 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1651 return SWT.RIGHT;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1652 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1653
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1654 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1655 * Returns the longest duration, in milliseconds, between
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1656 * two mouse button clicks that will be considered a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1657 * <em>double click</em> by the underlying operating system.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1658 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1659 * @return the double click time
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1660 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1661 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1662 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1663 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1664 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1665 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1666 public int getDoubleClickTime () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1667 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1668 auto settings = OS.gtk_settings_get_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1669 int buffer;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1670 OS.g_object_get1 (settings, OS.gtk_double_click_time.ptr, &buffer);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1671 return buffer;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1672 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1673
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1674 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1675 * Returns the control which currently has keyboard focus,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1676 * or null if keyboard events are not currently going to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1677 * any of the controls built by the currently running
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1678 * application.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1679 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1680 * @return the control under the cursor
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1681 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1682 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1683 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1684 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1685 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1686 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1687 public Control getFocusControl () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1688 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1689 if (focusControl !is null && !focusControl.isDisposed ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1690 return focusControl;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1691 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1692 if (activeShell 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: 54 diff changeset	1693 auto shellHandle = activeShell.shellHandle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1694 auto handle = OS.gtk_window_get_focus (cast(GtkWindow*)shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1695 if (handle 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: 54 diff changeset	1696 do {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1697 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1698 if (widget !is null && (null !is cast(Control)widget)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1699 Control control = cast(Control) widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1700 return control.isEnabled () ? control : null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1701 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1702 } while ((handle = OS.gtk_widget_get_parent (handle)) !is null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1703 return null;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1704 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1705
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1706 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1707 * Returns true when the high contrast mode is enabled.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1708 * Otherwise, false is returned.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1709 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1710 * Note: This operation is a hint and is not supported on
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1711 * platforms that do not have this concept.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1712 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1713 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1714 * @return the high contrast mode
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1715 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1716 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1717 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1718 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1719 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1720 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1721 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1722 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1723 public bool getHighContrast () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1724 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1725 return false;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1726 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1727
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1728 public int getDepth () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1729 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1730 auto visual = OS.gdk_visual_get_system();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1731 return visual.depth;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1732 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1733
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1734 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1735 * Returns the maximum allowed depth of icons on this display, in bits per pixel.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1736 * On some platforms, this may be different than the actual depth of the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1737 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1738 * @return the maximum icon depth
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1739 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1740 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1741 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1742 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1743 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1744 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1745 * @see Device#getDepth
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1746 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1747 public int getIconDepth () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1748 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1749 return getDepth ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1750 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1751
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1752 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1753 * Returns an array containing the recommended icon sizes.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1754 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1755 * @return the array of icon sizes
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1756 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1757 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1758 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1759 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1760 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1761 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1762 * @see Decorations#setImages(Image[])
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1763 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1764 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1765 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1766 public Point [] getIconSizes () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1767 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1768 return [new Point (16, 16), new Point (32, 32)];
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1769 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1770
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1771 int getLastEventTime () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1772 return lastEventTime;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1773 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1774
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1775 int getMessageCount () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1776 return synchronizer.getMessageCount ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1777 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1778
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1779 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1780 * Returns the work area, an EWMH property to store the size
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1781 * and position of the screen not covered by dock and panel
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1782 * windows. See http://freedesktop.org/Standards/wm-spec.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1783 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1784 Rectangle getWorkArea() {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1785 auto atom = OS.gdk_atom_intern ("_NET_WORKAREA".ptr, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1786 if (atom is null/OS.GDK_NONE/) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1787 void* actualType;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1788 int actualFormat;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1789 int actualLength;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1790 char* data;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1791 if (!OS.gdk_property_get (cast(GdkDrawable)OS.GDK_ROOT_PARENT (), atom, null/OS.GDK_NONE*/, 0, 16, 0, &actualType, &actualFormat, &actualLength, &data)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1792 return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1793 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1794 Rectangle result = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1795 if (data !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1796 if (actualLength is 16) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1797 int[] values = (cast(int*)data)[0..4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1798 result = new Rectangle (values [0],values [1],values [2],values [3]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1799 } else if (actualLength is 32) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1800 long[] values = (cast(long*)data)[0..4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1801 result = new Rectangle (cast(int)values [0],cast(int)values [1],cast(int)values [2],cast(int)values [3]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1802 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1803 OS.g_free (data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1804 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1805 return result;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1806 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1807
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1808 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1809 * Returns an array of monitors attached to the device.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1810 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1811 * @return the array of monitors
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1812 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1813 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1814 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1815 public dwt.widgets.Monitor.Monitor [] getMonitors () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1816 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1817 dwt.widgets.Monitor.Monitor [] monitors = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1818 Rectangle workArea = getWorkArea();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1819 auto screen = OS.gdk_screen_get_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1820 if (screen !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1821 int monitorCount = OS.gdk_screen_get_n_monitors (screen);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1822 if (monitorCount > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1823 monitors = new dwt.widgets.Monitor.Monitor [monitorCount];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1824 GdkRectangle* dest = new GdkRectangle ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1825 for (int i = 0; i < monitorCount; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1826 OS.gdk_screen_get_monitor_geometry (screen, i, dest);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1827 auto monitor = new dwt.widgets.Monitor.Monitor ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1828 monitor.handle = i;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1829 monitor.x = dest.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1830 monitor.y = dest.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1831 monitor.width = dest.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1832 monitor.height = dest.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1833 if (i is 0 && workArea !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1834 monitor.clientX = workArea.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1835 monitor.clientY = workArea.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1836 monitor.clientWidth = workArea.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1837 monitor.clientHeight = workArea.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1838 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1839 monitor.clientX = monitor.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1840 monitor.clientY = monitor.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1841 monitor.clientWidth = monitor.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1842 monitor.clientHeight = monitor.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1843 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1844 monitors [i] = monitor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1845 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1846 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1847 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1848 if (monitors is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1849 /* No multimonitor support detected, default to one monitor */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1850 auto monitor = new dwt.widgets.Monitor.Monitor ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1851 Rectangle bounds = getBounds ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1852 monitor.x = bounds.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1853 monitor.y = bounds.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1854 monitor.width = bounds.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1855 monitor.height = bounds.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1856 if (workArea !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1857 monitor.clientX = workArea.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1858 monitor.clientY = workArea.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1859 monitor.clientWidth = workArea.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1860 monitor.clientHeight = workArea.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1861 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1862 monitor.clientX = monitor.x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1863 monitor.clientY = monitor.y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1864 monitor.clientWidth = monitor.width;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1865 monitor.clientHeight = monitor.height;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1866 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1867 monitors = [ monitor ];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1868 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1869 return monitors;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1870 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1871
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1872 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1873 * Returns the primary monitor for that device.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1874 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1875 * @return the primary monitor
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1876 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1877 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1878 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1879 public dwt.widgets.Monitor.Monitor getPrimaryMonitor () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1880 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1881 auto monitors = getMonitors ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1882 return monitors [0];
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1883 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1884
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1885 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1886 * Returns a (possibly empty) array containing all shells which have
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1887 * not been disposed and have the receiver as their display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1888 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1889 * @return the receiver's shells
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1890 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1891 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1892 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1893 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1894 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1895 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1896 public Shell [] getShells () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1897 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1898 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1899 Shell [] result = new Shell [16];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1900 for (int i = 0; i < widgetTable.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1901 Widget widget = widgetTable [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1902 if (widget !is null && (null !is cast(Shell)widget)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1903 int j = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1904 while (j < index) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1905 if (result [j] is widget) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1906 j++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1907 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1908 if (j is index) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1909 if (index is result.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1910 Shell [] newResult = new Shell [index + 16];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1911 System.arraycopy (result, 0, newResult, 0, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1912 result = newResult;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1913 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1914 result [index++] = cast(Shell) widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1915 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1916 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1917 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1918 if (index is result.length) return result;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1919 Shell [] newResult = new Shell [index];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1920 System.arraycopy (result, 0, newResult, 0, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1921 return newResult;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1922 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1923
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1924 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1925 * Returns the thread that has invoked <code>syncExec</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1926 * or null if no such runnable is currently being invoked by
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1927 * the user-interface thread.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1928 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1929 * Note: If a runnable invoked by asyncExec is currently
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1930 * running, this method will return null.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1931 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1932 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1933 * @return the receiver's sync-interface thread
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1934 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1935 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1936 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1937 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1938 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1939 public Thread getSyncThread () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1940 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1941 return synchronizer.syncThread;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1942 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1943
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1944 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1945 * Returns the matching standard color for the given
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1946 * constant, which should be one of the color constants
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1947 * specified in class <code>SWT</code>. Any value other
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1948 * than one of the SWT color constants which is passed
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1949 * in will result in the color black. This color should
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1950 * not be free'd because it was allocated by the system,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1951 * not the application.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1952 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1953 * @param id the color constant
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1954 * @return the matching color
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1955 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1956 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1957 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1958 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1959 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1960 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1961 * @see SWT
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1962 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1963 public Color getSystemColor (int id) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1964 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1965 GdkColor* gdkColor = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1966 switch (id) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1967 case SWT.COLOR_INFO_FOREGROUND: gdkColor = COLOR_INFO_FOREGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1968 case SWT.COLOR_INFO_BACKGROUND: gdkColor = COLOR_INFO_BACKGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1969 case SWT.COLOR_TITLE_FOREGROUND: gdkColor = COLOR_TITLE_FOREGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1970 case SWT.COLOR_TITLE_BACKGROUND: gdkColor = COLOR_TITLE_BACKGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1971 case SWT.COLOR_TITLE_BACKGROUND_GRADIENT: gdkColor = COLOR_TITLE_BACKGROUND_GRADIENT; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1972 case SWT.COLOR_TITLE_INACTIVE_FOREGROUND: gdkColor = COLOR_TITLE_INACTIVE_FOREGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1973 case SWT.COLOR_TITLE_INACTIVE_BACKGROUND: gdkColor = COLOR_TITLE_INACTIVE_BACKGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1974 case SWT.COLOR_TITLE_INACTIVE_BACKGROUND_GRADIENT: gdkColor = COLOR_TITLE_INACTIVE_BACKGROUND_GRADIENT; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1975 case SWT.COLOR_WIDGET_DARK_SHADOW: gdkColor = COLOR_WIDGET_DARK_SHADOW; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1976 case SWT.COLOR_WIDGET_NORMAL_SHADOW: gdkColor = COLOR_WIDGET_NORMAL_SHADOW; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1977 case SWT.COLOR_WIDGET_LIGHT_SHADOW: gdkColor = COLOR_WIDGET_LIGHT_SHADOW; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1978 case SWT.COLOR_WIDGET_HIGHLIGHT_SHADOW: gdkColor = COLOR_WIDGET_HIGHLIGHT_SHADOW; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1979 case SWT.COLOR_WIDGET_BACKGROUND: gdkColor = COLOR_WIDGET_BACKGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1980 case SWT.COLOR_WIDGET_FOREGROUND: gdkColor = COLOR_WIDGET_FOREGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1981 case SWT.COLOR_WIDGET_BORDER: gdkColor = COLOR_WIDGET_BORDER; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1982 case SWT.COLOR_LIST_FOREGROUND: gdkColor = COLOR_LIST_FOREGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1983 case SWT.COLOR_LIST_BACKGROUND: gdkColor = COLOR_LIST_BACKGROUND; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1984 case SWT.COLOR_LIST_SELECTION: gdkColor = COLOR_LIST_SELECTION; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1985 case SWT.COLOR_LIST_SELECTION_TEXT: gdkColor = COLOR_LIST_SELECTION_TEXT; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1986 default:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1987 return super.getSystemColor (id);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1988 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1989 if (gdkColor is null) return super.getSystemColor (SWT.COLOR_BLACK);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	1990 return Color.gtk_new (this, gdkColor);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1991 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1992
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1993 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1994 * Returns the matching standard platform cursor for the given
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1995 * constant, which should be one of the cursor constants
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1996 * specified in class <code>SWT</code>. This cursor should
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1997 * not be free'd because it was allocated by the system,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1998 * not the application. A value of <code>null</code> will
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	1999 * be returned if the supplied constant is not an SWT cursor
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2000 * constant.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2001 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2002 * @param id the SWT cursor constant
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2003 * @return the corresponding cursor or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2004 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2005 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2006 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2007 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2008 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2009 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2010 * @see SWT#CURSOR_ARROW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2011 * @see SWT#CURSOR_WAIT
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2012 * @see SWT#CURSOR_CROSS
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2013 * @see SWT#CURSOR_APPSTARTING
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2014 * @see SWT#CURSOR_HELP
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2015 * @see SWT#CURSOR_SIZEALL
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2016 * @see SWT#CURSOR_SIZENESW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2017 * @see SWT#CURSOR_SIZENS
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2018 * @see SWT#CURSOR_SIZENWSE
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2019 * @see SWT#CURSOR_SIZEWE
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2020 * @see SWT#CURSOR_SIZEN
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2021 * @see SWT#CURSOR_SIZES
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2022 * @see SWT#CURSOR_SIZEE
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2023 * @see SWT#CURSOR_SIZEW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2024 * @see SWT#CURSOR_SIZENE
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2025 * @see SWT#CURSOR_SIZESE
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2026 * @see SWT#CURSOR_SIZESW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2027 * @see SWT#CURSOR_SIZENW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2028 * @see SWT#CURSOR_UPARROW
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2029 * @see SWT#CURSOR_IBEAM
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2030 * @see SWT#CURSOR_NO
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2031 * @see SWT#CURSOR_HAND
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2032 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2033 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2034 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2035 public Cursor getSystemCursor (int id) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2036 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2037 if (!(0 <= id && id < cursors.length)) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2038 if (cursors [id] is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2039 cursors [id] = new Cursor (this, id);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2040 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2041 return cursors [id];
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2042 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2043
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2044 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2045 * Returns the matching standard platform image for the given
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2046 * constant, which should be one of the icon constants
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2047 * specified in class <code>SWT</code>. This image should
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2048 * not be free'd because it was allocated by the system,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2049 * not the application. A value of <code>null</code> will
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2050 * be returned either if the supplied constant is not an
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2051 * SWT icon constant or if the platform does not define an
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2052 * image that corresponds to the constant.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2053 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2054 * @param id the SWT icon constant
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2055 * @return the corresponding image or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2056 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2057 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2058 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2059 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2060 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2061 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2062 * @see SWT#ICON_ERROR
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2063 * @see SWT#ICON_INFORMATION
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2064 * @see SWT#ICON_QUESTION
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2065 * @see SWT#ICON_WARNING
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2066 * @see SWT#ICON_WORKING
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2067 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2068 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2069 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2070 public Image getSystemImage (int id) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2071 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2072 switch (id) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2073 case SWT.ICON_ERROR:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2074 if (errorImage is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2075 errorImage = createImage ("gtk-dialog-error");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2076 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2077 return errorImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2078 case SWT.ICON_INFORMATION:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2079 case SWT.ICON_WORKING:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2080 if (infoImage is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2081 infoImage = createImage ("gtk-dialog-info");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2082 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2083 return infoImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2084 case SWT.ICON_QUESTION:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2085 if (questionImage is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2086 questionImage = createImage ("gtk-dialog-question");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2087 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2088 return questionImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2089 case SWT.ICON_WARNING:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2090 if (warningImage is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2091 warningImage = createImage ("gtk-dialog-warning");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2092 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2093 return warningImage;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	2094 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2095 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2096 return null;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2097 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2098
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2099 void initializeSystemColors () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2100 GdkColor* gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2101
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2102 /* Get Tooltip resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2103 auto tooltipShellHandle = OS.gtk_window_new (OS.GTK_WINDOW_POPUP);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2104 if (tooltipShellHandle is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2105 // byte[] gtk_tooltips = Converter.wcsToMbcs (null, "gtk-tooltips", true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2106 OS.gtk_widget_set_name (tooltipShellHandle, "gtk-tooltips".ptr );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2107 OS.gtk_widget_realize (tooltipShellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2108 auto tooltipStyle = OS.gtk_widget_get_style (tooltipShellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2109 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2110 OS.gtk_style_get_fg (tooltipStyle, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2111 COLOR_INFO_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2112 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2113 OS.gtk_style_get_bg (tooltipStyle, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2114 COLOR_INFO_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2115 OS.gtk_widget_destroy (tooltipShellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2116
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2117 /* Get Shell resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2118 auto style = OS.gtk_widget_get_style (shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2119 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2120 OS.gtk_style_get_black (style, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2121 COLOR_WIDGET_DARK_SHADOW = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2122 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2123 OS.gtk_style_get_dark (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2124 COLOR_WIDGET_NORMAL_SHADOW = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2125 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2126 OS.gtk_style_get_bg (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2127 COLOR_WIDGET_LIGHT_SHADOW = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2128 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2129 OS.gtk_style_get_light (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2130 COLOR_WIDGET_HIGHLIGHT_SHADOW = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2131 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2132 OS.gtk_style_get_fg (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2133 COLOR_WIDGET_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2134 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2135 OS.gtk_style_get_bg (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2136 COLOR_WIDGET_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2137 //gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2138 //OS.gtk_style_get_text (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2139 //COLOR_TEXT_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2140 //gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2141 //OS.gtk_style_get_base (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2142 //COLOR_TEXT_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2143 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2144 OS.gtk_style_get_text (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2145 COLOR_LIST_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2146 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2147 OS.gtk_style_get_base (style, OS.GTK_STATE_NORMAL, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2148 COLOR_LIST_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2149 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2150 OS.gtk_style_get_text (style, OS.GTK_STATE_SELECTED, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2151 COLOR_LIST_SELECTION_TEXT = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2152 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2153 OS.gtk_style_get_base (style, OS.GTK_STATE_SELECTED, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2154 COLOR_LIST_SELECTION = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2155 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2156 OS.gtk_style_get_bg (style, OS.GTK_STATE_SELECTED, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2157 COLOR_TITLE_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2158 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2159 OS.gtk_style_get_fg (style, OS.GTK_STATE_SELECTED, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2160 COLOR_TITLE_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2161 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2162 OS.gtk_style_get_light (style, OS.GTK_STATE_SELECTED, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2163 COLOR_TITLE_BACKGROUND_GRADIENT = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2164 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2165 OS.gtk_style_get_bg (style, OS.GTK_STATE_INSENSITIVE, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2166 COLOR_TITLE_INACTIVE_BACKGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2167 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2168 OS.gtk_style_get_fg (style, OS.GTK_STATE_INSENSITIVE, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2169 COLOR_TITLE_INACTIVE_FOREGROUND = gdkColor;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2170 gdkColor = new GdkColor();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2171 OS.gtk_style_get_light (style, OS.GTK_STATE_INSENSITIVE, gdkColor);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2172 COLOR_TITLE_INACTIVE_BACKGROUND_GRADIENT = gdkColor;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2173 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2174
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2175 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2176 * Returns a reasonable font for applications to use.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2177 * On some platforms, this will match the "default font"
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2178 * or "system font" if such can be found. This font
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2179 * should not be free'd because it was allocated by the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2180 * system, not the application.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2181 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2182 * Typically, applications which want the default look
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2183 * should simply not set the font on the widgets they
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2184 * create. Widgets are always created with the correct
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2185 * default font for the class of user-interface component
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2186 * they represent.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2187 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2188 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2189 * @return a font
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2190 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2191 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2192 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2193 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2194 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2195 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2196 public Font getSystemFont () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2197 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2198 if (systemFont !is null) return systemFont;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2199 auto style = OS.gtk_widget_get_style (shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2200 auto defaultFont = OS.pango_font_description_copy (OS.gtk_style_get_font_desc (style));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2201 return systemFont = Font.gtk_new (this, defaultFont);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2202 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2203
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2204 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2205 * Returns the single instance of the system tray or null
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2206 * when there is no system tray available for the platform.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2207 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2208 * @return the system tray or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2209 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2210 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2211 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2212 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2213 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2214 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2215 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2216 public Tray getSystemTray () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2217 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2218 if (tray !is null) return tray;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2219 return tray = new Tray (this, SWT.NONE);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2220 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2221
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2222 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2223 * Returns the user-interface thread for the receiver.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2224 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2225 * @return the receiver's user-interface thread
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2226 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2227 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2228 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2229 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2230 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2231 public Thread getThread () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2232 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2233 return thread;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2234 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2235
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2236 Widget getWidget (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2237 if (handle 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: 54 diff changeset	2238 if (lastWidget !is null && lastHandle is handle) return lastWidget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2239 auto index = cast(int) OS.g_object_get_qdata ( cast(GObject*)handle, SWT_OBJECT_INDEX) - 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2240 if (0 <= index && index < widgetTable.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2241 lastHandle = handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2242 return lastWidget = widgetTable [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: 54 diff changeset	2243 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2244 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2245 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2246
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2247 private static extern(C) int idleProcFunc (void* data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2248 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2249 auto dbdata = cast(CallbackData*)data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2250 return dbdata.display.idleProc();
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2251 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2252 private int idleProc () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2253 bool result = runAsyncMessages (false);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2254 if (!result) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2255 synchronized (idleLock) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2256 idleHandle = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2257 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2258 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2259 return result ? 1 : 0;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2260 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2261 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2262
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2263 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2264 * Initializes any internal resources needed by the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2265 * device.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2266 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2267 * This method is called after <code>create</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2268 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2269 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2270 * @see #create
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2271 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2272 protected void init () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2273 super.init ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2274 initializeCallbacks ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2275 initializeSystemColors ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2276 initializeSystemSettings ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2277 initializeWidgetTable ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2278 initializeWindowManager ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2279 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2280
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2281 void initializeCallbacks () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2282 closures = new GClosure* [Widget.LAST_SIGNAL];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2283 signalIds = new int [Widget.LAST_SIGNAL];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2284
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2285 /* Cache signals for GtkWidget */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2286 signalIds [Widget.BUTTON_PRESS_EVENT] = OS.g_signal_lookup (OS.button_press_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2287 signalIds [Widget.BUTTON_RELEASE_EVENT] = OS.g_signal_lookup (OS.button_release_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2288 signalIds [Widget.CONFIGURE_EVENT] = OS.g_signal_lookup (OS.configure_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2289 signalIds [Widget.DELETE_EVENT] = OS.g_signal_lookup (OS.delete_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2290 signalIds [Widget.ENTER_NOTIFY_EVENT] = OS.g_signal_lookup (OS.enter_notify_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2291 signalIds [Widget.EVENT] = OS.g_signal_lookup (OS.event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2292 signalIds [Widget.EVENT_AFTER] = OS.g_signal_lookup (OS.event_after.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2293 signalIds [Widget.EXPOSE_EVENT] = OS.g_signal_lookup (OS.expose_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2294 signalIds [Widget.FOCUS] = OS.g_signal_lookup (OS.focus.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2295 signalIds [Widget.FOCUS_IN_EVENT] = OS.g_signal_lookup (OS.focus_in_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2296 signalIds [Widget.FOCUS_OUT_EVENT] = OS.g_signal_lookup (OS.focus_out_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2297 signalIds [Widget.GRAB_FOCUS] = OS.g_signal_lookup (OS.grab_focus.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2298 signalIds [Widget.HIDE] = OS.g_signal_lookup (OS.hide.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2299 signalIds [Widget.KEY_PRESS_EVENT] = OS.g_signal_lookup (OS.key_press_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2300 signalIds [Widget.KEY_RELEASE_EVENT] = OS.g_signal_lookup (OS.key_release_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2301 signalIds [Widget.LEAVE_NOTIFY_EVENT] = OS.g_signal_lookup (OS.leave_notify_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2302 signalIds [Widget.MAP] = OS.g_signal_lookup (OS.map.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2303 signalIds [Widget.MAP_EVENT] = OS.g_signal_lookup (OS.map_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2304 signalIds [Widget.MNEMONIC_ACTIVATE] = OS.g_signal_lookup (OS.mnemonic_activate.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2305 signalIds [Widget.MOTION_NOTIFY_EVENT] = OS.g_signal_lookup (OS.motion_notify_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2306 signalIds [Widget.POPUP_MENU] = OS.g_signal_lookup (OS.popup_menu.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2307 signalIds [Widget.REALIZE] = OS.g_signal_lookup (OS.realize.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2308 signalIds [Widget.SCROLL_EVENT] = OS.g_signal_lookup (OS.scroll_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2309 signalIds [Widget.SHOW] = OS.g_signal_lookup (OS.show.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2310 signalIds [Widget.SHOW_HELP] = OS.g_signal_lookup (OS.show_help.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2311 signalIds [Widget.SIZE_ALLOCATE] = OS.g_signal_lookup (OS.size_allocate.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2312 signalIds [Widget.STYLE_SET] = OS.g_signal_lookup (OS.style_set.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2313 signalIds [Widget.UNMAP] = OS.g_signal_lookup (OS.unmap.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2314 signalIds [Widget.UNMAP_EVENT] = OS.g_signal_lookup (OS.unmap_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2315 signalIds [Widget.UNREALIZE] = OS.g_signal_lookup (OS.realize.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2316 signalIds [Widget.VISIBILITY_NOTIFY_EVENT] = OS.g_signal_lookup (OS.visibility_notify_event.ptr, OS.GTK_TYPE_WIDGET ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2317 signalIds [Widget.WINDOW_STATE_EVENT] = OS.g_signal_lookup (OS.window_state_event.ptr, OS.GTK_TYPE_WIDGET ());
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2318
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2319 GClosure* do_cclosure_new( GCallback cb, int value, int notify ){
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2320 CallbackData* res= new CallbackData;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2321 res.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2322 res.data = cast(void*)value;
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2323 windowProcCallbackDatas[ value ] = res;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2324 return OS.g_cclosure_new( cb, cast(void*)res, cast(GClosureNotify)notify );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2325 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2326
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2327 GCallback windowProc2 = cast(GCallback)&windowProcFunc2;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2328 closures [Widget.ACTIVATE] = do_cclosure_new (windowProc2, Widget.ACTIVATE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2329 closures [Widget.ACTIVATE_INVERSE] = do_cclosure_new (windowProc2, Widget.ACTIVATE_INVERSE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2330 closures [Widget.CHANGED] = do_cclosure_new (windowProc2, Widget.CHANGED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2331 closures [Widget.CLICKED] = do_cclosure_new (windowProc2, Widget.CLICKED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2332 closures [Widget.DAY_SELECTED] = do_cclosure_new (windowProc2, Widget.DAY_SELECTED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2333 closures [Widget.HIDE] = do_cclosure_new (windowProc2, Widget.HIDE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2334 closures [Widget.GRAB_FOCUS] = do_cclosure_new (windowProc2, Widget.GRAB_FOCUS, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2335 closures [Widget.MAP] = do_cclosure_new (windowProc2, Widget.MAP, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2336 closures [Widget.MONTH_CHANGED] = do_cclosure_new (windowProc2, Widget.MONTH_CHANGED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2337 closures [Widget.OUTPUT] = do_cclosure_new (windowProc2, Widget.OUTPUT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2338 closures [Widget.POPUP_MENU] = do_cclosure_new (windowProc2, Widget.POPUP_MENU, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2339 closures [Widget.PREEDIT_CHANGED] = do_cclosure_new (windowProc2, Widget.PREEDIT_CHANGED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2340 closures [Widget.REALIZE] = do_cclosure_new (windowProc2, Widget.REALIZE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2341 closures [Widget.SELECT] = do_cclosure_new (windowProc2, Widget.SELECT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2342 closures [Widget.SHOW] = do_cclosure_new (windowProc2, Widget.SHOW, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2343 closures [Widget.VALUE_CHANGED] = do_cclosure_new (windowProc2, Widget.VALUE_CHANGED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2344 closures [Widget.UNMAP] = do_cclosure_new (windowProc2, Widget.UNMAP, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2345 closures [Widget.UNREALIZE] = do_cclosure_new (windowProc2, Widget.UNREALIZE, 0);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2346
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2347 GCallback windowProc3 = cast(GCallback)&windowProcFunc3;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2348 closures [Widget.BUTTON_PRESS_EVENT] = do_cclosure_new (windowProc3, Widget.BUTTON_PRESS_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2349 closures [Widget.BUTTON_PRESS_EVENT_INVERSE] = do_cclosure_new (windowProc3, Widget.BUTTON_PRESS_EVENT_INVERSE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2350 closures [Widget.BUTTON_RELEASE_EVENT] = do_cclosure_new (windowProc3, Widget.BUTTON_RELEASE_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2351 closures [Widget.BUTTON_RELEASE_EVENT_INVERSE] = do_cclosure_new (windowProc3, Widget.BUTTON_RELEASE_EVENT_INVERSE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2352 closures [Widget.COMMIT] = do_cclosure_new (windowProc3, Widget.COMMIT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2353 closures [Widget.CONFIGURE_EVENT] = do_cclosure_new (windowProc3, Widget.CONFIGURE_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2354 closures [Widget.DELETE_EVENT] = do_cclosure_new (windowProc3, Widget.DELETE_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2355 closures [Widget.ENTER_NOTIFY_EVENT] = do_cclosure_new (windowProc3, Widget.ENTER_NOTIFY_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2356 closures [Widget.EVENT] = do_cclosure_new (windowProc3, Widget.EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2357 closures [Widget.EVENT_AFTER] = do_cclosure_new (windowProc3, Widget.EVENT_AFTER, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2358 closures [Widget.EXPOSE_EVENT] = do_cclosure_new (windowProc3, Widget.EXPOSE_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2359 closures [Widget.EXPOSE_EVENT_INVERSE] = do_cclosure_new (windowProc3, Widget.EXPOSE_EVENT_INVERSE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2360 closures [Widget.FOCUS] = do_cclosure_new (windowProc3, Widget.FOCUS, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2361 closures [Widget.FOCUS_IN_EVENT] = do_cclosure_new (windowProc3, Widget.FOCUS_IN_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2362 closures [Widget.FOCUS_OUT_EVENT] = do_cclosure_new (windowProc3, Widget.FOCUS_OUT_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2363 closures [Widget.KEY_PRESS_EVENT] = do_cclosure_new (windowProc3, Widget.KEY_PRESS_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2364 closures [Widget.KEY_RELEASE_EVENT] = do_cclosure_new (windowProc3, Widget.KEY_RELEASE_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2365 closures [Widget.INPUT] = do_cclosure_new (windowProc3, Widget.INPUT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2366 closures [Widget.LEAVE_NOTIFY_EVENT] = do_cclosure_new (windowProc3, Widget.LEAVE_NOTIFY_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2367 closures [Widget.MAP_EVENT] = do_cclosure_new (windowProc3, Widget.MAP_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2368 closures [Widget.MNEMONIC_ACTIVATE] = do_cclosure_new (windowProc3, Widget.MNEMONIC_ACTIVATE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2369 closures [Widget.MOTION_NOTIFY_EVENT] = do_cclosure_new (windowProc3, Widget.MOTION_NOTIFY_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2370 closures [Widget.MOTION_NOTIFY_EVENT_INVERSE] = do_cclosure_new (windowProc3, Widget.MOTION_NOTIFY_EVENT_INVERSE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2371 closures [Widget.MOVE_FOCUS] = do_cclosure_new (windowProc3, Widget.MOVE_FOCUS, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2372 closures [Widget.SCROLL_EVENT] = do_cclosure_new (windowProc3, Widget.SCROLL_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2373 closures [Widget.SHOW_HELP] = do_cclosure_new (windowProc3, Widget.SHOW_HELP, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2374 closures [Widget.SIZE_ALLOCATE] = do_cclosure_new (windowProc3, Widget.SIZE_ALLOCATE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2375 closures [Widget.STYLE_SET] = do_cclosure_new (windowProc3, Widget.STYLE_SET, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2376 closures [Widget.TOGGLED] = do_cclosure_new (windowProc3, Widget.TOGGLED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2377 closures [Widget.UNMAP_EVENT] = do_cclosure_new (windowProc3, Widget.UNMAP_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2378 closures [Widget.VISIBILITY_NOTIFY_EVENT] = do_cclosure_new (windowProc3, Widget.VISIBILITY_NOTIFY_EVENT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2379 closures [Widget.WINDOW_STATE_EVENT] = do_cclosure_new (windowProc3, Widget.WINDOW_STATE_EVENT, 0);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2380
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2381 GCallback windowProc4 = cast(GCallback)&windowProcFunc4;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2382 closures [Widget.DELETE_RANGE] = do_cclosure_new (windowProc4, Widget.DELETE_RANGE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2383 closures [Widget.DELETE_TEXT] = do_cclosure_new (windowProc4, Widget.DELETE_TEXT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2384 closures [Widget.ROW_ACTIVATED] = do_cclosure_new (windowProc4, Widget.ROW_ACTIVATED, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2385 closures [Widget.SCROLL_CHILD] = do_cclosure_new (windowProc4, Widget.SCROLL_CHILD, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2386 closures [Widget.SWITCH_PAGE] = do_cclosure_new (windowProc4, Widget.SWITCH_PAGE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2387 closures [Widget.TEST_COLLAPSE_ROW] = do_cclosure_new (windowProc4, Widget.TEST_COLLAPSE_ROW, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2388 closures [Widget.TEST_EXPAND_ROW] = do_cclosure_new (windowProc4, Widget.TEST_EXPAND_ROW, 0);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2389
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2390 GCallback windowProc5 = cast(GCallback)&windowProcFunc5;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2391 closures [Widget.CHANGE_VALUE] = do_cclosure_new (windowProc5, Widget.CHANGE_VALUE, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2392 closures [Widget.EXPAND_COLLAPSE_CURSOR_ROW] = do_cclosure_new (windowProc5, Widget.EXPAND_COLLAPSE_CURSOR_ROW, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2393 closures [Widget.INSERT_TEXT] = do_cclosure_new (windowProc5, Widget.INSERT_TEXT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2394 closures [Widget.TEXT_BUFFER_INSERT_TEXT] = do_cclosure_new (windowProc5, Widget.TEXT_BUFFER_INSERT_TEXT, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2395
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2396 for (int i = 0; i < Widget.LAST_SIGNAL; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2397 if (closures [i] !is null) OS.g_closure_ref (closures [i]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2398 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2399 shellMapProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2400 shellMapProcCallbackData.data = null;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2401 shellMapProcClosure = OS.g_cclosure_new (cast(GCallback)&shellMapProcFunc, &shellMapProcCallbackData, cast(GClosureNotify)0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2402 OS.g_closure_ref (shellMapProcClosure);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2403 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2404
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2405 void* getWindowProcUserData( int value ){
bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2406 return windowProcCallbackDatas[ value ];
bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2407 }
bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2408
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2409 void initializeSystemSettings () {
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2410 styleSetProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2411 styleSetProcCallbackData.data = null;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2412 OS.g_signal_connect (shellHandle, OS.style_set.ptr, cast(GCallback)&styleSetProcFunc, &styleSetProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2413
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2414 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2415 * Feature in GTK. Despite the fact that the
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2416 * gtk-entry-select-on-focus property is a global
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2417 * setting, it is initialized when the GtkEntry
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2418 * is initialized. This means that it cannot be
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2419 * accessed before a GtkEntry is created. The
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2420 * fix is to for the initializaion by creating
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2421 * a temporary GtkEntry.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2422 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2423 auto entry = OS.gtk_entry_new ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2424 OS.gtk_widget_destroy (entry);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2425 int buffer2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2426 auto settings = OS.gtk_settings_get_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2427 OS.g_object_get1 (settings, OS.gtk_entry_select_on_focus.ptr, &buffer2);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2428 entrySelectOnFocus = buffer2 !is 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2429 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2430
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2431 void initializeWidgetTable () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2432 indexTable = new int [GROW_SIZE];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2433 widgetTable = new Widget [GROW_SIZE];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2434 for (int i=0; i<GROW_SIZE-1; i++) indexTable [i] = i + 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2435 indexTable [GROW_SIZE - 1] = -1;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2436 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2437
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2438 void initializeWindowManager () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2439 /* Get the window manager name */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2440 windowManager = "";
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2441 if (OS.GTK_VERSION >= OS.buildVERSION (2, 2, 0)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2442 auto screen = OS.gdk_screen_get_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2443 if (screen !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2444 auto ptr2 = OS.gdk_x11_screen_get_window_manager_name (screen);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2445 windowManager = fromUtf8z( ptr2 );
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2446 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2447 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2448 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2449
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2450 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2451 * Invokes platform specific functionality to dispose a GC handle.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2452 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2453 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2454 * API for <code>Display</code>. It is marked public only so that it
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2455 * can be shared within the packages provided by SWT. It is not
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2456 * available on all platforms, and should never be called from
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2457 * application code.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2458 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2459 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2460 * @param hDC the platform specific GC handle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2461 * @param data the platform specific GC data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2462 */
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2463 public void internal_dispose_GC (GdkGC* gdkGC, GCData data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2464 OS.g_object_unref (gdkGC);
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2465 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2466
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2467 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2468 * Invokes platform specific functionality to allocate a new GC handle.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2469 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2470 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2471 * API for <code>Display</code>. It is marked public only so that it
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2472 * can be shared within the packages provided by SWT. It is not
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2473 * available on all platforms, and should never be called from
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2474 * application code.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2475 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2476 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2477 * @param data the platform specific GC data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2478 * @return the platform specific GC handle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2479 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2480 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2481 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2482 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2483 * @exception SWTError <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2484 * <li>ERROR_NO_HANDLES if a handle could not be obtained for gc creation</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2485 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2486 */
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2487 public GdkGC* internal_new_GC (GCData data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2488 if (isDisposed()) SWT.error(SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2489 auto root = cast(GdkDrawable *) OS.GDK_ROOT_PARENT ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2490 auto gdkGC = OS.gdk_gc_new (root);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2491 if (gdkGC is null) SWT.error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2492 OS.gdk_gc_set_subwindow (gdkGC, OS.GDK_INCLUDE_INFERIORS);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2493 if (data !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2494 int mask = SWT.LEFT_TO_RIGHT \| SWT.RIGHT_TO_LEFT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2495 if ((data.style & mask) is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2496 data.style \|= SWT.LEFT_TO_RIGHT;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2497 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2498 data.device = this;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2499 data.drawable = root;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2500 data.background = getSystemColor (SWT.COLOR_WHITE).handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2501 data.foreground = getSystemColor (SWT.COLOR_BLACK).handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2502 data.font = getSystemFont ().handle;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2503 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2504 return gdkGC;
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2505 return null;
09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2506 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2507
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	2508 bool isValidThread () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2509 return thread is Thread.getThis ();
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2510 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2511
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2512 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2513 * Maps a point from one coordinate system to another.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2514 * When the control is null, coordinates are mapped to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2515 * the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2516 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2517 * NOTE: On right-to-left platforms where the coordinate
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2518 * systems are mirrored, special care needs to be taken
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2519 * when mapping coordinates from one control to another
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2520 * to ensure the result is correctly mirrored.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2521 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2522 * Mapping a point that is the origin of a rectangle and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2523 * then adding the width and height is not equivalent to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2524 * mapping the rectangle. When one control is mirrored
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2525 * and the other is not, adding the width and height to a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2526 * point that was mapped causes the rectangle to extend
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2527 * in the wrong direction. Mapping the entire rectangle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2528 * instead of just one point causes both the origin and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2529 * the corner of the rectangle to be mapped.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2530 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2531 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2532 * @param from the source <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2533 * @param to the destination <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2534 * @param point to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2535 * @return point with mapped coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2536 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2537 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2538 * <li>ERROR_NULL_ARGUMENT - if the point is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2539 * <li>ERROR_INVALID_ARGUMENT - if the Control from or the Control to have been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2540 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2541 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2542 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2543 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2544 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2545 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2546 * @since 2.1.2
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2547 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2548 public Point map (Control from, Control to, Point point) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2549 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2550 if (point is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2551 return map (from, to, point.x, point.y);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2552 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2553
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2554 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2555 * Maps a point from one coordinate system to another.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2556 * When the control is null, coordinates are mapped to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2557 * the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2558 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2559 * NOTE: On right-to-left platforms where the coordinate
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2560 * systems are mirrored, special care needs to be taken
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2561 * when mapping coordinates from one control to another
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2562 * to ensure the result is correctly mirrored.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2563 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2564 * Mapping a point that is the origin of a rectangle and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2565 * then adding the width and height is not equivalent to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2566 * mapping the rectangle. When one control is mirrored
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2567 * and the other is not, adding the width and height to a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2568 * point that was mapped causes the rectangle to extend
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2569 * in the wrong direction. Mapping the entire rectangle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2570 * instead of just one point causes both the origin and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2571 * the corner of the rectangle to be mapped.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2572 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2573 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2574 * @param from the source <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2575 * @param to the destination <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2576 * @param x coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2577 * @param y coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2578 * @return point with mapped coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2579 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2580 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2581 * <li>ERROR_INVALID_ARGUMENT - if the Control from or the Control to have been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2582 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2583 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2584 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2585 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2586 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2587 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2588 * @since 2.1.2
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2589 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2590 public Point map (Control from, Control to, int x, int y) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2591 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2592 if (from !is null && from.isDisposed()) error (SWT.ERROR_INVALID_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2593 if (to !is null && to.isDisposed()) error (SWT.ERROR_INVALID_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2594 Point point = new Point (x, y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2595 if (from is to) return point;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2596 if (from !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2597 auto window = from.eventWindow ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2598 int origin_x, origin_y;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2599 OS.gdk_window_get_origin (window, &origin_x, &origin_y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2600 point.x += origin_x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2601 point.y += origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2602 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2603 if (to !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2604 auto window = to.eventWindow ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2605 int origin_x, origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2606 OS.gdk_window_get_origin (window, &origin_x, &origin_y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2607 point.x -= origin_x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2608 point.y -= origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2609 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2610 return point;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2611 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2612
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2613 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2614 * Maps a point from one coordinate system to another.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2615 * When the control is null, coordinates are mapped to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2616 * the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2617 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2618 * NOTE: On right-to-left platforms where the coordinate
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2619 * systems are mirrored, special care needs to be taken
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2620 * when mapping coordinates from one control to another
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2621 * to ensure the result is correctly mirrored.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2622 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2623 * Mapping a point that is the origin of a rectangle and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2624 * then adding the width and height is not equivalent to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2625 * mapping the rectangle. When one control is mirrored
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2626 * and the other is not, adding the width and height to a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2627 * point that was mapped causes the rectangle to extend
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2628 * in the wrong direction. Mapping the entire rectangle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2629 * instead of just one point causes both the origin and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2630 * the corner of the rectangle to be mapped.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2631 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2632 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2633 * @param from the source <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2634 * @param to the destination <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2635 * @param rectangle to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2636 * @return rectangle with mapped coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2637 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2638 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2639 * <li>ERROR_NULL_ARGUMENT - if the rectangle is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2640 * <li>ERROR_INVALID_ARGUMENT - if the Control from or the Control to have been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2641 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2642 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2643 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2644 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2645 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2646 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2647 * @since 2.1.2
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2648 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2649 public Rectangle map (Control from, Control to, Rectangle rectangle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2650 checkDevice();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2651 if (rectangle is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2652 return map (from, to, rectangle.x, rectangle.y, rectangle.width, rectangle.height);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2653 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2654
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2655 static wchar mbcsToWcs (wchar ch) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2656 int key = ch & 0xFFFF;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2657 if (key <= 0x7F) return ch;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2658 char [] buffer;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2659 if (key <= 0xFF) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2660 buffer = new char [1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2661 buffer [0] = cast(char) key;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2662 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2663 buffer = new char [2];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2664 buffer [0] = cast(char) ((key >> 8) & 0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2665 buffer [1] = cast(char) (key & 0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2666 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2667 wchar [] result = Converter.mbcsToWcs (null, buffer);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2668 if (result.length is 0) return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2669 return result [0];
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2670 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2671
48 8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2672
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2673 package void doMenuPositionProc( GtkMenu* window, bool hasLocation ){
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2674 /*
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2675 * Bug in GTK. The timestamp passed into gtk_menu_popup is used
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2676 * to perform an X pointer grab. It cannot be zero, else the grab
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2677 * will fail. The fix is to ensure that the timestamp of the last
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2678 * event processed is used.
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2679 */
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2680 OS.gtk_menu_popup (window, null, null,
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2681 hasLocation ? &menuPositionProcFunc : null,
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2682 cast(void*)this, 0, getLastEventTime() );
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2683 }
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2684
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2685 private static extern(C) void menuPositionProcFunc (GtkMenu* menu, int* x, int* y, int* push_in, void* user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2686 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
48 8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2687 auto display = cast(Display)user_data;
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2688 display.menuPositionProc( menu, x, y, push_in, null );
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2689 }
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2690
8e9ea24111fd Menu, MenuItem Frank Benoit <benoit@tionex.de> parents: 47 diff changeset	2691 void menuPositionProc (GtkMenu* menu, int* x, int* y, int* push_in, void* user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2692 Widget widget = getWidget (cast(GtkWidget*)menu);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2693 if (widget 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: 54 diff changeset	2694 widget.menuPositionProc (menu, x, y, push_in, user_data);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2695 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2696
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2697 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2698 * Maps a point from one coordinate system to another.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2699 * When the control is null, coordinates are mapped to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2700 * the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2701 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2702 * NOTE: On right-to-left platforms where the coordinate
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2703 * systems are mirrored, special care needs to be taken
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2704 * when mapping coordinates from one control to another
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2705 * to ensure the result is correctly mirrored.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2706 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2707 * Mapping a point that is the origin of a rectangle and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2708 * then adding the width and height is not equivalent to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2709 * mapping the rectangle. When one control is mirrored
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2710 * and the other is not, adding the width and height to a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2711 * point that was mapped causes the rectangle to extend
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2712 * in the wrong direction. Mapping the entire rectangle
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2713 * instead of just one point causes both the origin and
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2714 * the corner of the rectangle to be mapped.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2715 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2716 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2717 * @param from the source <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2718 * @param to the destination <code>Control</code> or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2719 * @param x coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2720 * @param y coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2721 * @param width coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2722 * @param height coordinates to be mapped
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2723 * @return rectangle with mapped coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2724 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2725 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2726 * <li>ERROR_INVALID_ARGUMENT - if the Control from or the Control to have been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2727 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2728 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2729 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2730 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2731 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2732 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2733 * @since 2.1.2
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2734 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2735 public Rectangle map (Control from, Control to, int x, int y, int width, int height) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2736 checkDevice();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2737 if (from !is null && from.isDisposed()) error (SWT.ERROR_INVALID_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2738 if (to !is null && to.isDisposed()) error (SWT.ERROR_INVALID_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2739 Rectangle rect = new Rectangle (x, y, width, height);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2740 if (from is to) return rect;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2741 if (from !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2742 auto window = from.eventWindow ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2743 int origin_x, origin_y;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2744 OS.gdk_window_get_origin (window, &origin_x, &origin_y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2745 rect.x += origin_x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2746 rect.y += origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2747 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2748 if (to !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2749 auto window = to.eventWindow ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2750 int origin_x, origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2751 OS.gdk_window_get_origin (window, &origin_x, &origin_y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2752 rect.x -= origin_x;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2753 rect.y -= origin_y;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2754 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2755 return rect;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2756 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2757
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	2758 private static extern(C) int /long/ mouseHoverProcFunc ( void* user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	2759 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	2760 CallbackData* cbdata = cast(CallbackData*)user_data;
5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	2761 return cbdata.display.mouseHoverProc( cast(GtkWidget*)cbdata.data );
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2762 }
30 5e5d1c9cffdb ATK, Control Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	2763 int /long/ mouseHoverProc (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2764 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2765 if (widget 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: 54 diff changeset	2766 return widget.hoverProc (handle);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2767 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2768
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2769 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2770 * Generate a low level system event.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2771 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2772 * <code>post</code> is used to generate low level keyboard
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2773 * and mouse events. The intent is to enable automated UI
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2774 * testing by simulating the input from the user. Most
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2775 * SWT applications should never need to call this method.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2776 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2777 * Note that this operation can fail when the operating system
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2778 * fails to generate the event for any reason. For example,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2779 * this can happen when there is no such key or mouse button
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2780 * or when the system event queue is full.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2781 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2782 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2783 * <b>Event Types:</b>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2784 * <p>KeyDown, KeyUp
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2785 * <p>The following fields in the <code>Event</code> apply:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2786 * <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2787 * <li>(in) type KeyDown or KeyUp</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2788 * <p> Either one of:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2789 * <li>(in) character a character that corresponds to a keyboard key</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2790 * <li>(in) keyCode the key code of the key that was typed,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2791 * as defined by the key code constants in class <code>SWT</code></li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2792 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2793 * <p>MouseDown, MouseUp</p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2794 * <p>The following fields in the <code>Event</code> apply:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2795 * <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2796 * <li>(in) type MouseDown or MouseUp
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2797 * <li>(in) button the button that is pressed or released
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2798 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2799 * <p>MouseMove</p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2800 * <p>The following fields in the <code>Event</code> apply:
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2801 * <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2802 * <li>(in) type MouseMove
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2803 * <li>(in) x the x coordinate to move the mouse pointer to in screen coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2804 * <li>(in) y the y coordinate to move the mouse pointer to in screen coordinates
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2805 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2806 * </dl>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2807 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2808 * @param event the event to be generated
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2809 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2810 * @return true if the event was generated or false otherwise
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2811 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2812 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2813 * <li>ERROR_NULL_ARGUMENT - if the event is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2814 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2815 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2816 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2817 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2818 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2819 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2820 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2821 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2822 public bool post (Event event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2823 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2824 if (event is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2825 if (!OS.GDK_WINDOWING_X11()) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2826 auto xDisplay = OS.GDK_DISPLAY ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2827 int type = event.type;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2828 switch (type) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2829 case SWT.KeyDown:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2830 case SWT.KeyUp: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2831 int keyCode = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2832 auto keysym = untranslateKey (event.keyCode);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2833 if (keysym !is 0) keyCode = OS.XKeysymToKeycode (xDisplay, keysym);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2834 if (keyCode is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2835 char key = event.character;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2836 switch (key) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2837 case SWT.BS: keysym = OS.GDK_BackSpace; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2838 case SWT.CR: keysym = OS.GDK_Return; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2839 case SWT.DEL: keysym = OS.GDK_Delete; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2840 case SWT.ESC: keysym = OS.GDK_Escape; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2841 case SWT.TAB: keysym = OS.GDK_Tab; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2842 case SWT.LF: keysym = OS.GDK_Linefeed; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2843 default:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2844 keysym = wcsToMbcs (key);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2845 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2846 keyCode = OS.XKeysymToKeycode (xDisplay, keysym);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2847 if (keyCode is 0) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2848 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2849 OS.XTestFakeKeyEvent (xDisplay, keyCode, type is SWT.KeyDown, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2850 return true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2851 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2852 case SWT.MouseDown:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2853 case SWT.MouseMove:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2854 case SWT.MouseUp: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2855 if (type is SWT.MouseMove) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2856 OS.XTestFakeMotionEvent (xDisplay, -1, event.x, event.y, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2857 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2858 int button = event.button;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2859 switch (button) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2860 case 1:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2861 case 2:
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2862 case 3: break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2863 case 4: button = 6; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2864 case 5: button = 7; break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2865 default: return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2866 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2867 OS.XTestFakeButtonEvent (xDisplay, button, type is SWT.MouseDown, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2868 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2869 return true;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	2870 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2871 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2872 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2873 * This code is intentionally commented. After posting a
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2874 * mouse wheel event the system may respond unpredictably
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2875 * to subsequent mouse actions.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2876 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2877 // case SWT.MouseWheel: {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2878 // if (event.count is 0) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2879 // int button = event.count < 0 ? 5 : 4;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2880 // OS.XTestFakeButtonEvent (xDisplay, button, type is SWT.MouseWheel, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2881 // }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2882 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2883 return false;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2884 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2885
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2886 void postEvent (Event event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2887 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2888 * Place the event at the end of the event queue.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2889 * This code is always called in the Display's
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2890 * thread so it must be re-enterant but does not
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2891 * need to be synchronized.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2892 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2893 if (eventQueue is null) eventQueue = new Event [4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2894 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2895 int length = eventQueue.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2896 while (index < length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2897 if (eventQueue [index] is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2898 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2899 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2900 if (index is length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2901 Event [] newQueue = new Event [length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2902 System.arraycopy (eventQueue, 0, newQueue, 0, length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2903 eventQueue = newQueue;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2904 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2905 eventQueue [index] = event;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2906 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2907
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2908 void putGdkEvents () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2909 if (gdkEventCount !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2910 for (int i = 0; i < gdkEventCount; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2911 auto event = gdkEvents [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2912 Widget widget = gdkEventWidgets [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2913 if (widget is null \|\| !widget.isDisposed ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2914 OS.gdk_event_put (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2915 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2916 OS.gdk_event_free (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2917 gdkEvents [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2918 gdkEventWidgets [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2919 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2920 gdkEventCount = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2921 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2922 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2923
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2924 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2925 * Reads an event from the operating system's event queue,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2926 * dispatches it appropriately, and returns <code>true</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2927 * if there is potentially more work to do, or <code>false</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2928 * if the caller can sleep until another event is placed on
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2929 * the event queue.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2930 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2931 * In addition to checking the system event queue, this method also
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2932 * checks if any inter-thread messages (created by <code>syncExec()</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2933 * or <code>asyncExec()</code>) are waiting to be processed, and if
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2934 * so handles them before returning.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2935 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2936 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2937 * @return <code>false</code> if the caller can sleep upon return from this method
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2938 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2939 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2940 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2941 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2942 * <li>ERROR_FAILED_EXEC - if an exception occurred while running an inter-thread message</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2943 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2944 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2945 * @see #sleep
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2946 * @see #wake
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2947 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2948 public bool readAndDispatch () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2949 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2950 bool events = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2951 events \|= runSettings ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2952 events \|= runPopups ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2953 events \|= cast(bool)OS.g_main_context_iteration (null, false);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2954 if (events) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2955 runDeferredEvents ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2956 return true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2957 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2958 return runAsyncMessages (false);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2959 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2960
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2961 synchronized void register () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2962 for (int i=0; i<Displays.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2963 if (Displays [i] is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2964 Displays [i] = this;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2965 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2966 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2967 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2968 Display [] newDisplays = new Display [Displays.length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2969 System.arraycopy (Displays, 0, newDisplays, 0, Displays.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2970 newDisplays [Displays.length] = this;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2971 Displays = newDisplays;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2972 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	2973
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2974 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2975 * Releases any internal resources back to the operating
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2976 * system and clears all fields except the device handle.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2977 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2978 * Disposes all shells which are currently open on the display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2979 * After this method has been invoked, all related related shells
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2980 * will answer <code>true</code> when sent the message
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2981 * <code>isDisposed()</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2982 * </p><p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2983 * When a device is destroyed, resources that were acquired
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2984 * on behalf of the programmer need to be returned to the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2985 * operating system. For example, if the device allocated a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2986 * font to be used as the system font, this font would be
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2987 * freed in <code>release</code>. Also,to assist the garbage
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2988 * collector and minimize the amount of memory that is not
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2989 * reclaimed when the programmer keeps a reference to a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2990 * disposed device, all fields except the handle are zero'd.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2991 * The handle is needed by <code>destroy</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2992 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2993 * This method is called before <code>destroy</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2994 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2995 * @see Device#dispose
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2996 * @see #destroy
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2997 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	2998 protected void release () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	2999 sendEvent (SWT.Dispose, new Event ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3000 Shell [] shells = getShells ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3001 for (int i=0; i<shells.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3002 Shell shell = shells [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3003 if (!shell.isDisposed ()) shell.dispose ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3004 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3005 if (tray !is null) tray.dispose ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3006 tray = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3007 while (readAndDispatch ()) {}
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3008 if (disposeList !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3009 for (int i=0; i<disposeList.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3010 if (disposeList [i] !is null) disposeList [i].run ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3011 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3012 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3013 disposeList = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3014 synchronizer.releaseSynchronizer ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3015 synchronizer = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3016 releaseDisplay ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3017 super.release ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3018 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3019
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3020 void releaseDisplay () {
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3021
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3022 /* Dispose xfilter callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3023
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3024 /* Dispose checkIfEvent callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3025
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3026 /* Dispose preedit window */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3027 if (preeditWindow !is null) OS.gtk_widget_destroy ( &preeditWindow.bin.container.widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3028 imControl = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3029
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3030 /* Dispose the menu callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3031
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3032 /* Dispose the tooltip map callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3033
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3034 /* Dispose the shell map callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3035
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3036 /* Dispose the run async messages callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3037 if (idleHandle !is 0) OS.g_source_remove (idleHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3038 idleHandle = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3039
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3040 /* Dispose GtkTreeView callbacks */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3041
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3042 /* Dispose the set direction callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3043
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3044 /* Dispose the set direction callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3045
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3046 /* Dispose the caret callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3047 if (caretId !is 0) OS.gtk_timeout_remove (caretId);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3048 caretId = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3049
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3050 /* Release closures */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3051 for (int i = 0; i < Widget.LAST_SIGNAL; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3052 if (closures [i] !is null) OS.g_closure_unref (closures [i]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3053 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3054 if (shellMapProcClosure !is null) OS.g_closure_unref (shellMapProcClosure);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3055
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3056 /* Dispose the timer callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3057 if (timerIds !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3058 for (int i=0; i<timerIds.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3059 if (timerIds [i] !is 0) OS.gtk_timeout_remove (timerIds [i]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3060 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3061 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3062 timerIds = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3063 timerList = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3064
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3065 /* Dispose mouse hover callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3066 if (mouseHoverId !is 0) OS.gtk_timeout_remove (mouseHoverId);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3067 mouseHoverId = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3068 mouseHoverHandle = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3069
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3070 /* Dispose the default font */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3071 if (systemFont !is null) systemFont.dispose ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3072 systemFont = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3073
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3074 /* Dispose the System Images */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3075 if (errorImage !is null) errorImage.dispose();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3076 if (infoImage !is null) infoImage.dispose();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3077 if (questionImage !is null) questionImage.dispose();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3078 if (warningImage !is null) warningImage.dispose();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3079 errorImage = infoImage = questionImage = warningImage = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3080
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3081 /* Release the System Cursors */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3082 for (int i = 0; i < cursors.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3083 if (cursors [i] !is null) cursors [i].dispose ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3084 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3085 cursors = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3086
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3087 /* Release Acquired Resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3088 if (resources !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3089 for (int i=0; i<resources.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3090 if (resources [i] !is null) resources [i].dispose ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3091 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3092 resources = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3093 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3094
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3095 /* Release the System Colors */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3096 COLOR_WIDGET_DARK_SHADOW = COLOR_WIDGET_NORMAL_SHADOW = COLOR_WIDGET_LIGHT_SHADOW =
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3097 COLOR_WIDGET_HIGHLIGHT_SHADOW = COLOR_WIDGET_BACKGROUND = COLOR_WIDGET_BORDER =
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3098 COLOR_LIST_FOREGROUND = COLOR_LIST_BACKGROUND = COLOR_LIST_SELECTION = COLOR_LIST_SELECTION_TEXT =
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3099 COLOR_INFO_BACKGROUND = COLOR_INFO_FOREGROUND = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3100
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3101 /* Dispose the event callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3102 OS.gdk_event_handler_set (null, null, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3103
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3104 /* Dispose the hidden shell */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3105 if (shellHandle !is null) OS.gtk_widget_destroy (shellHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3106 shellHandle = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3107
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3108 /* Dispose the settings callback */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3109
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3110 /* Release the sleep resources */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3111 max_priority = 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3112 timeout = 0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3113 if (fds !is null) OS.g_free (fds.ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3114 fds = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3115
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3116 /* Release references */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3117 popups = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3118 thread = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3119 activeShell = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3120 lastWidget = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3121 indexTable = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3122 widgetTable = null;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3123 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3124
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3125 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3126 * Removes the listener from the collection of listeners who will
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3127 * be notified when an event of the given type occurs anywhere in
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3128 * a widget. The event type is one of the event constants defined
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3129 * in class <code>SWT</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3130 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3131 * @param eventType the type of event to listen for
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3132 * @param listener the listener which should no longer be notified when the event occurs
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3133 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3134 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3135 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3136 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3137 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3138 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3139 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3140 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3141 * @see Listener
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3142 * @see SWT
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3143 * @see #addFilter
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3144 * @see #addListener
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3145 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3146 * @since 3.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3147 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3148 public void removeFilter (int eventType, Listener listener) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3149 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3150 if (listener is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3151 if (filterTable is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3152 filterTable.unhook (eventType, listener);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3153 if (filterTable.size () is 0) filterTable = null;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3154 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3155
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3156 GdkEvent* removeGdkEvent () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3157 if (gdkEventCount is 0) return null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3158 auto event = gdkEvents [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3159 --gdkEventCount;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3160 SimpleType!(GdkEvent*).arraycopy (gdkEvents, 1, gdkEvents, 0, gdkEventCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3161 System.arraycopy (gdkEventWidgets, 1, gdkEventWidgets, 0, gdkEventCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3162 gdkEvents [gdkEventCount] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3163 gdkEventWidgets [gdkEventCount] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3164 if (gdkEventCount is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3165 gdkEvents = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3166 gdkEventWidgets = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3167 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3168 return event;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3169 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3170
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3171 void removeIdleProc () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3172 synchronized(idleLock) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3173 if (idleHandle !is 0) OS.g_source_remove (idleHandle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3174 idleNeeded = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3175 idleHandle = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3176 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3177 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3178 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3179 * Removes the listener from the collection of listeners who will
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3180 * be notified when an event of the given type occurs. The event type
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3181 * is one of the event constants defined in class <code>SWT</code>.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3182 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3183 * @param eventType the type of event to listen for
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3184 * @param listener the listener which should no longer be notified when the event occurs
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3185 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3186 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3187 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3188 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3189 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3190 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3191 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3192 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3193 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3194 * @see Listener
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3195 * @see SWT
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3196 * @see #addListener
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3197 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3198 * @since 2.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3199 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3200 public void removeListener (int eventType, Listener listener) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3201 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3202 if (listener is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3203 if (eventTable is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3204 eventTable.unhook (eventType, listener);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3205 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3206
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3207 void removeMouseHoverTimeout (void* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3208 if (handle !is mouseHoverHandle) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3209 if (mouseHoverId !is 0) OS.gtk_timeout_remove (mouseHoverId);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3210 mouseHoverId = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3211 mouseHoverHandle = null;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3212 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3213
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3214 void removePopup (Menu menu) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3215 if (popups is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3216 for (int i=0; i<popups.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3217 if (popups [i] is menu) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3218 popups [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3219 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3220 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3221 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3222 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3223
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3224 Widget removeWidget (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3225 if (handle 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: 54 diff changeset	3226 lastWidget = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3227 Widget widget = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3228 int index = cast(int)/64/ OS.g_object_get_qdata (cast(GObject*)handle, SWT_OBJECT_INDEX) - 1;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3229 if (0 <= index && index < widgetTable.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3230 widget = widgetTable [index];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3231 widgetTable [index] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3232 indexTable [index] = freeSlot;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3233 freeSlot = index;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3234 OS.g_object_set_qdata (cast(GObject*)handle, SWT_OBJECT_INDEX, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3235 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3236 return widget;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3237 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3238
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3239 bool runAsyncMessages (bool all) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3240 return synchronizer.runAsyncMessages (all);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3241 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3242
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3243 bool runDeferredEvents () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3244 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3245 * Run deferred events. This code is always
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3246 * called in the Display's thread so it must
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3247 * be re-enterant but need not be synchronized.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3248 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3249 while (eventQueue !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3250
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3251 /* Take an event off the queue */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3252 Event event = eventQueue [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3253 if (event is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3254 int len = eventQueue.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3255 System.arraycopy (eventQueue, 1, eventQueue, 0, --len);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3256 eventQueue [len] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3257
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3258 /* Run the event */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3259 Widget widget = event.widget;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3260 if (widget !is null && !widget.isDisposed ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3261 Widget item = event.item;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3262 if (item is null \|\| !item.isDisposed ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3263 widget.sendEvent (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3264 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3265 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3266
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3267 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3268 * At this point, the event queue could
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3269 * be null due to a recursive invokation
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3270 * when running the event.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3271 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3272 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3273
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3274 /* Clear the queue */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3275 eventQueue = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3276 return true;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3277 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3278
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3279 bool runPopups () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3280 if (popups is null) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3281 bool result = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3282 while (popups !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3283 Menu menu = popups [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3284 if (menu is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3285 int len = popups.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3286 System.arraycopy (popups, 1, popups, 0, --len);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3287 popups [len] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3288 runDeferredEvents ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3289 if (!menu.isDisposed ()) menu._setVisible (true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3290 result = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3291 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3292 popups = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3293 return result;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3294 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3295
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3296 bool runSettings () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3297 if (!runSettingsFld) return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3298 runSettingsFld = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3299 saveResources ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3300 initializeSystemColors ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3301 sendEvent (SWT.Settings, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3302 Shell [] shells = getShells ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3303 for (int i=0; i<shells.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3304 Shell shell = shells [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3305 if (!shell.isDisposed ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3306 shell.fixStyle ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3307 shell.redraw (true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3308 shell.layout (true, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3309 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3310 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3311 return true;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3312 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3313
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3314 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3315 * On platforms which support it, sets the application name
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3316 * to be the argument. On Motif, for example, this can be used
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3317 * to set the name used for resource lookup. Specifying
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3318 * <code>null</code> for the name clears it.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3319 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3320 * @param name the new app name or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3321 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3322 public static void setAppName (char[] name) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3323 APP_NAME = name;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3324 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3325
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3326 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3327 * Sets the location of the on-screen pointer relative to the top left corner
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3328 * of the screen. <b>Note: It is typically considered bad practice for a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3329 * program to move the on-screen pointer location.</b>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3330 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3331 * @param x the new x coordinate for the cursor
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3332 * @param y the new y coordinate for the cursor
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3333 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3334 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3335 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3336 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3337 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3338 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3339 * @since 2.1
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3340 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3341 public void setCursorLocation (int x, int y) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3342 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3343 if (OS.GDK_WINDOWING_X11 ()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3344 auto xDisplay = OS.GDK_DISPLAY ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3345 auto xWindow = OS.XDefaultRootWindow (xDisplay);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3346 OS.XWarpPointer (xDisplay, OS.None, xWindow, 0, 0, 0, 0, x, y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3347 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3348 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3349
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3350 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3351 * Sets the location of the on-screen pointer relative to the top left corner
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3352 * of the screen. <b>Note: It is typically considered bad practice for a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3353 * program to move the on-screen pointer location.</b>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3354 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3355 * @param point new position
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3356 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3357 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3358 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3359 * <li>ERROR_NULL_ARGUMENT - if the point is null
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3360 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3361 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3362 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3363 * @since 2.0
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3364 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3365 public void setCursorLocation (Point point) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3366 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3367 if (point is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3368 setCursorLocation (point.x, point.y);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3369 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3370
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3371 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3372 * Sets the application defined property of the receiver
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3373 * with the specified name to the given argument.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3374 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3375 * Applications may have associated arbitrary objects with the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3376 * receiver in this fashion. If the objects stored in the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3377 * properties need to be notified when the display is disposed
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3378 * of, it is the application's responsibility provide a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3379 * <code>disposeExec()</code> handler which does so.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3380 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3381 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3382 * @param key the name of the property
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3383 * @param value the new value for the property
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3384 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3385 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3386 * <li>ERROR_NULL_ARGUMENT - if the key is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3387 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3388 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3389 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3390 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3391 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3392 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3393 * @see #getData(String)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3394 * @see #disposeExec(Runnable)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3395 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3396 public void setData (char[] key, Object value) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3397 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3398 if (key is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3399
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3400 if (key==/eq/ DISPATCH_EVENT_KEY) {
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3401 ArrayWrapperInt wrappedValue;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3402 if (value is null \|\| (null !is (wrappedValue=cast(ArrayWrapperInt)value))) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3403 dispatchEvents = wrappedValue.array;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3404 if (value is null) putGdkEvents ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3405 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3406 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3407 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3408
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3409 if (key==/eq/ ADD_WIDGET_KEY) {
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3410 auto wrap = cast(ArrayWrapperObject) value;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3411 if( wrap is null ) SWT.error(SWT.ERROR_INVALID_ARGUMENT, null, " []");
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3412 Object [] data = wrap.array;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3413 auto handle = (cast(LONG) data [0]).value;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3414 Widget widget = cast(Widget) data [1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3415 if (widget !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3416 addWidget (cast(GtkWidget*)handle, widget);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3417 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3418 removeWidget (cast(GtkWidget*)handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3419 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3420 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3421
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3422 if (key==/eq/ ADD_IDLE_PROC_KEY) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3423 addIdleProc ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3424 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3425 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3426 if (key==/eq/ REMOVE_IDLE_PROC_KEY) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3427 removeIdleProc ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3428 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3429 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3430
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3431 /* Remove the key/value pair */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3432 if (value is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3433 if (keys is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3434 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3435 while (index < keys.length && keys [index]!=/!eq/ key) index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3436 if (index is keys.length) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3437 if (keys.length is 1) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3438 keys = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3439 values = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3440 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3441 char[] [] newKeys = new char[] [keys.length - 1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3442 Object [] newValues = new Object [values.length - 1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3443 System.arraycopy (keys, 0, newKeys, 0, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3444 System.arraycopy (keys, index + 1, newKeys, index, newKeys.length - index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3445 System.arraycopy (values, 0, newValues, 0, index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3446 System.arraycopy (values, index + 1, newValues, index, newValues.length - index);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3447 keys = newKeys;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3448 values = newValues;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3449 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3450 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3451 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3452
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3453 /* Add the key/value pair */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3454 if (keys is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3455 keys = [key];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3456 values = [value];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3457 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3458 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3459 for (int i=0; i<keys.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3460 if (keys [i]==/eq/ key) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3461 values [i] = value;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3462 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3463 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3464 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3465 char[] [] newKeys = new char[] [keys.length + 1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3466 Object [] newValues = new Object [values.length + 1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3467 System.arraycopy (keys, 0, newKeys, 0, keys.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3468 System.arraycopy (values, 0, newValues, 0, values.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3469 newKeys [keys.length] = key;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3470 newValues [values.length] = value;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3471 keys = newKeys;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3472 values = newValues;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3473 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3474
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3475 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3476 * Sets the application defined, display specific data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3477 * associated with the receiver, to the argument.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3478 * The <em>display specific data</em> is a single,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3479 * unnamed field that is stored with every display.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3480 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3481 * Applications may put arbitrary objects in this field. If
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3482 * the object stored in the display specific data needs to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3483 * be notified when the display is disposed of, it is the
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3484 * application's responsibility provide a
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3485 * <code>disposeExec()</code> handler which does so.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3486 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3487 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3488 * @param data the new display specific data
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3489 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3490 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3491 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3492 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3493 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3494 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3495 * @see #getData()
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3496 * @see #disposeExec(Runnable)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3497 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3498 public void setData (Object data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3499 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3500 this.data = data;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3501 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3502
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3503 private static extern(C) int /long/ setDirectionProcFunc (GtkWidget* widget, void* direction) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3504 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3505 return setDirectionProc( widget, cast(int)direction );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3506 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3507 static int /long/ setDirectionProc (GtkWidget* widget, int /long/ direction) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3508 OS.gtk_widget_set_direction (widget, direction);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3509 if (OS.GTK_IS_CONTAINER (cast(GTypeInstance*)widget)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3510 OS.gtk_container_forall (cast(GtkContainer)widget, cast(GtkCallback)&setDirectionProcFunc, cast(void)direction);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3511 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3512 return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3513 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3514
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3515 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3516 * Sets the synchronizer used by the display to be
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3517 * the argument, which can not be null.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3518 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3519 * @param synchronizer the new synchronizer for the display (must not be null)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3520 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3521 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3522 * <li>ERROR_NULL_ARGUMENT - if the synchronizer is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3523 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3524 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3525 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3526 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3527 * <li>ERROR_FAILED_EXEC - if an exception occurred while running an inter-thread message</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3528 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3529 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3530 public void setSynchronizer (Synchronizer synchronizer) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3531 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3532 if (synchronizer is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3533 if (this.synchronizer !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3534 this.synchronizer.runAsyncMessages(true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3535 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3536 this.synchronizer = synchronizer;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3537 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3538
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3539 void showIMWindow (Control control) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3540 imControl = control;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3541 if (preeditWindow is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3542 preeditWindow = cast(GtkWindow*)OS.gtk_window_new (OS.GTK_WINDOW_POPUP);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3543 if (preeditWindow is null) error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3544 preeditLabel = cast(GtkLabel*) OS.gtk_label_new (null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3545 if (preeditLabel is null) error (SWT.ERROR_NO_HANDLES);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3546 OS.gtk_container_add (cast(GtkContainer)preeditWindow, cast(GtkWidget) preeditLabel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3547 OS.gtk_widget_show (cast(GtkWidget*)preeditLabel);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3548 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3549 char* preeditString;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3550 PangoAttrList* pangoAttrs;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3551 auto imHandle = control.imHandle ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3552 OS.gtk_im_context_get_preedit_string (imHandle, &preeditString, &pangoAttrs, null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3553 if (preeditString !is null && strlen (preeditString) > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3554 Control widget = control.findBackgroundControl ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3555 if (widget is null) widget = control;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3556 OS.gtk_widget_modify_bg (cast(GtkWidget*)preeditWindow, OS.GTK_STATE_NORMAL, widget.getBackgroundColor ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3557 widget.setForegroundColor (cast(GtkWidget*)preeditLabel, control.getForegroundColor());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3558 OS.gtk_widget_modify_font (cast(GtkWidget*)preeditLabel, control.getFontDescription ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3559 if (pangoAttrs !is null) OS.gtk_label_set_attributes (preeditLabel, pangoAttrs);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3560 OS.gtk_label_set_text (preeditLabel, preeditString);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3561 Point point = control.toDisplay (control.getIMCaretPos ());
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3562 OS.gtk_window_move (preeditWindow, point.x, point.y);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3563 GtkRequisition* requisition = new GtkRequisition ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3564 OS.gtk_widget_size_request (cast(GtkWidget*)preeditLabel, requisition);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3565 OS.gtk_window_resize (preeditWindow, requisition.width, requisition.height);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3566 OS.gtk_widget_show (cast(GtkWidget*)preeditWindow);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3567 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3568 OS.gtk_widget_hide (cast(GtkWidget*)preeditWindow);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3569 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3570 if (preeditString !is null) OS.g_free (preeditString);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3571 if (pangoAttrs !is null) OS.pango_attr_list_unref (pangoAttrs);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3572 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3573
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3574 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3575 * Causes the user-interface thread to <em>sleep</em> (that is,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3576 * to be put in a state where it does not consume CPU cycles)
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3577 * until an event is received or it is otherwise awakened.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3578 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3579 * @return <code>true</code> if an event requiring dispatching was placed on the queue.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3580 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3581 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3582 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3583 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3584 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3585 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3586 * @see #wake
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3587 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3588 public bool sleep () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3589 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3590 if (gdkEventCount is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3591 gdkEvents = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3592 gdkEventWidgets = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3593 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3594 if (settingsChanged) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3595 settingsChanged = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3596 runSettingsFld = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3597 return false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3598 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3599 if (getMessageCount () !is 0) return true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3600 if (fds is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3601 allocated_nfds = 2;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3602 fds = new GPollFD[ allocated_nfds ];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3603 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3604 max_priority = timeout = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3605 auto context = OS.g_main_context_default ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3606 bool result = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3607 do {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3608 if (OS.g_main_context_acquire (context)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3609 result = cast(bool)OS.g_main_context_prepare (context, &max_priority);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3610 int nfds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3611 while ((nfds = OS.g_main_context_query (context, max_priority, &timeout, fds.ptr, allocated_nfds)) > allocated_nfds) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3612 OS.g_free (fds.ptr);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3613 allocated_nfds = nfds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3614 fds = new GPollFD[allocated_nfds];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3615 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3616 GPollFunc poll = OS.g_main_context_get_poll_func (context);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3617 if (poll !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3618 if (nfds > 0 \|\| timeout !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3619 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3620 * Bug in GTK. For some reason, g_main_context_wakeup() may
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3621 * fail to wake up the UI thread from the polling function.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3622 * The fix is to sleep for a maximum of 50 milliseconds.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3623 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3624 if (timeout < 0) timeout = 50;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3625
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3626 /* Exit the OS lock to allow other threads to enter GTK */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3627 Lock lock = OS.lock;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3628 int count = lock.lock ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3629 for (int i = 0; i < count; i++) lock.unlock ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3630 try {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3631 wake_state = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3632 poll( fds.ptr, nfds, timeout);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3633 } finally {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3634 for (int i = 0; i < count; i++) lock.lock ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3635 lock.unlock ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3636 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3637 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3638 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3639 OS.g_main_context_check (context, max_priority, fds.ptr, nfds);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3640 OS.g_main_context_release (context);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3641 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3642 } while (!result && getMessageCount () is 0 && !wake_state);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3643 wake_state = false;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3644 return true;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3645 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3646
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3647 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3648 * Causes the <code>run()</code> method of the runnable to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3649 * be invoked by the user-interface thread after the specified
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3650 * number of milliseconds have elapsed. If milliseconds is less
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3651 * than zero, the runnable is not executed.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3652 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3653 * Note that at the time the runnable is invoked, widgets
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3654 * that have the receiver as their display may have been
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3655 * disposed. Therefore, it is necessary to check for this
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3656 * case inside the runnable before accessing the widget.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3657 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3658 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3659 * @param milliseconds the delay before running the runnable
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3660 * @param runnable code to run on the user-interface thread
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3661 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3662 * @exception IllegalArgumentException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3663 * <li>ERROR_NULL_ARGUMENT - if the runnable is null</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3664 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3665 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3666 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3667 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3668 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3669 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3670 * @see #asyncExec
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3671 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3672 public void timerExec (int milliseconds, Runnable runnable) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3673 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3674 if (runnable is null) error (SWT.ERROR_NULL_ARGUMENT);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3675 if (timerList is null) timerList = new Runnable [4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3676 if (timerIds is null) timerIds = new int [4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3677 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3678 while (index < timerList.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3679 if (timerList [index] is runnable) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3680 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3681 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3682 if (index !is timerList.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3683 OS.gtk_timeout_remove (timerIds [index]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3684 timerList [index] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3685 timerIds [index] = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3686 if (milliseconds < 0) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3687 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3688 if (milliseconds < 0) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3689 index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3690 while (index < timerList.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3691 if (timerList [index] is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3692 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3693 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3694 if (index is timerList.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3695 Runnable [] newTimerList = new Runnable [timerList.length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3696 SimpleType!(Runnable).arraycopy (timerList, 0, newTimerList, 0, timerList.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3697 timerList = newTimerList;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3698 int [] newTimerIds = new int [timerIds.length + 4];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3699 System.arraycopy (timerIds, 0, newTimerIds, 0, timerIds.length);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3700 timerIds = newTimerIds;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3701 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3702 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3703 timerProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3704 timerProcCallbackData.data = cast(void*)index;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3705 int timerId = OS.gtk_timeout_add (milliseconds, &timerProcFunc, &timerProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3706 if (timerId !is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3707 timerIds [index] = timerId;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3708 timerList [index] = runnable;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3709 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3710 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3711
47 f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	3712
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3713 private static extern(C) int timerProcFunc ( void * data ) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3714 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3715 CallbackData* cbdata = cast( CallbackData* ) data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3716 return cbdata.display.timerProc( cast(int) cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3717 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3718
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3719 int /long/ timerProc (int /long/ i) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3720 if (timerList 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: 54 diff changeset	3721 int index = cast(int)/64/i;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3722 if (0 <= index && index < timerList.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3723 Runnable runnable = timerList [index];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3724 timerList [index] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3725 timerIds [index] = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3726 if (runnable !is null) runnable.run ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3727 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3728 return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3729 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3730
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3731 private static extern(C) int caretProcFunc ( void * data ) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3732 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3733 CallbackData* cbdata = cast( CallbackData* ) data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3734 return cbdata.display.caretProc( cast(int) cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3735 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3736 int /long/ caretProc (int /long/ clientData) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3737 caretId = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3738 if (currentCaret is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3739 return 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3740 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3741 if (currentCaret.blinkCaret()) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3742 int blinkRate = currentCaret.blinkRate;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3743 if (blinkRate is 0) return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3744 caretProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3745 caretProcCallbackData.data = cast(void*)0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3746 caretId = OS.gtk_timeout_add (blinkRate, &caretProcFunc, &caretProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3747 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3748 currentCaret = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3749 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3750 return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3751 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3752
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3753
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3754 package int doSizeAllocateConnect( CallbackData* cbdata, GtkWidget* window, GtkWidget* widget ){
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3755 cbdata.display = this;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3756 cbdata.data = cast(void*)widget;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3757 return OS.g_signal_connect (cast(void)window, OS.size_allocate.ptr, cast(GCallback)&sizeAllocateProcFunc, cast(void)&cbdata);
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3758 }
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3759
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3760 private static extern(C) void sizeAllocateProcFunc (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3761 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3762 auto cbdata = cast(CallbackData*)user_data;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3763 cbdata.display.sizeAllocateProc( cast(GtkWidget*)handle, arg0, cast(int)cbdata.data );
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3764 }
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3765
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3766 void sizeAllocateProc (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3767 Widget widget = getWidget ( cast(GtkWidget*)user_data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3768 if (widget 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: 54 diff changeset	3769 widget.sizeAllocateProc (handle, arg0, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3770 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3771
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	3772
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3773 package int doSizeRequestConnect( CallbackData* cbdata, GtkWidget* window, GtkWidget* widget ){
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3774 cbdata.display = this;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3775 cbdata.data = cast(void*)widget;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3776 return OS.g_signal_connect (cast(void)window, OS.size_request.ptr, cast(GCallback)&sizeRequestProcFunc, cast(void)&cbdata );
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3777 }
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3778
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3779 private static extern(C) void sizeRequestProcFunc (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3780 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3781 auto cbdata = cast(CallbackData*)user_data;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3782 cbdata.display.sizeRequestProcMeth( cast(GtkWidget*)handle, arg0, cast(int)cbdata.data );
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3783 }
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	3784
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	3785 int /long/ sizeRequestProcMeth (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3786 Widget widget = getWidget (cast(GtkWidget*)user_data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3787 if (widget 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: 54 diff changeset	3788 return widget.sizeRequestProc (handle, arg0, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3789 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3790
67 15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3791 package void doTreeSelectionProcConnect( CallbackData* cbdata, GtkWidget* widget, GtkTreeSelection* selection ){
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3792 cbdata.display = this;
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3793 cbdata.data = cast(void*)widget;
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3794 OS.gtk_tree_selection_selected_foreach (selection, &treeSelectionProcFunc, widget);
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3795 }
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3796
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3797 private static extern(C) void treeSelectionProcFunc (GtkTreeModel model, GtkTreePath path, GtkTreeIter iter, void data) {
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3798 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3799 auto cbdata = cast(CallbackData*)data;
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3800 cbdata.display.treeSelectionProcMeth( model, path, iter, cbdata.data );
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3801 }
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3802
15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3803 void treeSelectionProcMeth (GtkTreeModel model, GtkTreePath path, GtkTreeIter iter, void data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3804 Widget widget = getWidget (cast(GtkWidget*)data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3805 if (widget is null) return 0;
67 15b21862b0ac List Frank Benoit <benoit@tionex.de> parents: 66 diff changeset	3806 widget.treeSelectionProc (model, path, iter, treeSelection, treeSelectionLength++);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3807 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3808
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3809 void saveResources () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3810 int resourceCount = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3811 if (resources is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3812 resources = new Resource [RESOURCE_SIZE];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3813 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3814 resourceCount = resources.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3815 Resource [] newResources = new Resource [resourceCount + RESOURCE_SIZE];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3816 System.arraycopy (resources, 0, newResources, 0, resourceCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3817 resources = newResources;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3818 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3819 if (systemFont !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3820 resources [resourceCount++] = systemFont;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3821 systemFont = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3822 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3823 if (errorImage !is null) resources [resourceCount++] = errorImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3824 if (infoImage !is null) resources [resourceCount++] = infoImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3825 if (questionImage !is null) resources [resourceCount++] = questionImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3826 if (warningImage !is null) resources [resourceCount++] = warningImage;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3827 errorImage = infoImage = questionImage = warningImage = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3828 for (int i=0; i<cursors.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3829 if (cursors [i] !is null) resources [resourceCount++] = cursors [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3830 cursors [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3831 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3832 if (resourceCount < RESOURCE_SIZE) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3833 Resource [] newResources = new Resource [resourceCount];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3834 System.arraycopy (resources, 0, newResources, 0, resourceCount);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3835 resources = newResources;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3836 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3837 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3838
26 09f5459a5014 Display in work Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	3839 void sendEvent (int eventType, Event event) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3840 if (eventTable is null && filterTable is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3841 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3842 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3843 if (event is null) event = new Event ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3844 event.display = this;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3845 event.type = eventType;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3846 if (event.time is 0) event.time = getLastEventTime ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3847 if (!filterEvent (event)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3848 if (eventTable !is null) eventTable.sendEvent (event);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3849 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3850 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3851
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3852 void setCurrentCaret (Caret caret) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3853 if (caretId !is 0) OS.gtk_timeout_remove(caretId);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3854 caretId = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3855 currentCaret = caret;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3856 if (caret is null) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3857 int blinkRate = currentCaret.blinkRate;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3858 caretProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3859 caretProcCallbackData.data = cast(void*)0;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3860 caretId = OS.gtk_timeout_add (blinkRate, &caretProcFunc, &caretProcCallbackData);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3861 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3862
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3863 private static extern(C) int /long/ shellMapProcFunc (int /long/ handle, int /long/ arg0, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3864 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3865 auto cbdata = cast(CallbackData*)user_data;
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	3866 return cbdata.display.shellMapProc( cast(GtkWidget*)handle, arg0, cast(int)cbdata.data );
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3867 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3868
38 6e625fa1612d Shell, some code left Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	3869 int /long/ shellMapProc (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3870 Widget widget = getWidget (cast(GtkWidget*)handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3871 if (widget 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: 54 diff changeset	3872 return widget.shellMapProc (handle, arg0, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3873 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3874
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3875 private static extern(C) int /long/ styleSetProcFunc (int /long/ gobject, int /long/ arg1, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3876 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3877 auto cbdata = cast(CallbackData*)user_data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3878 return cbdata.display.styleSetProcMeth( gobject, arg1, cast(int)cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3879 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3880 int /long/ styleSetProcMeth (int /long/ gobject, int /long/ arg1, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3881 settingsChanged = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3882 return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3883 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3884
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3885 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3886 * Causes the <code>run()</code> method of the runnable to
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3887 * be invoked by the user-interface thread at the next
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3888 * reasonable opportunity. The thread which calls this method
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3889 * is suspended until the runnable completes. Specifying <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3890 * as the runnable simply wakes the user-interface thread.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3891 * <p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3892 * Note that at the time the runnable is invoked, widgets
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3893 * that have the receiver as their display may have been
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3894 * disposed. Therefore, it is necessary to check for this
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3895 * case inside the runnable before accessing the widget.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3896 * </p>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3897 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3898 * @param runnable code to run on the user-interface thread or <code>null</code>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3899 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3900 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3901 * <li>ERROR_FAILED_EXEC - if an exception occurred when executing the runnable</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3902 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3903 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3904 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3905 * @see #asyncExec
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3906 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3907 public void syncExec (Runnable runnable) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3908 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3909 synchronized (idleLock) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3910 if (idleNeeded && idleHandle is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3911 //NOTE: calling unlocked function in OS
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3912 idleProcCallbackData.display = this;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3913 idleProcCallbackData.data = cast(void*)0;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3914 //PORTING_TODO: was _g_idle_add, calling directly
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3915 idleHandle = OS.g_idle_add (&idleProcFunc, &idleProcCallbackData);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3916 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3917 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3918 synchronizer.syncExec (runnable);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3919 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3920
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3921 static int translateKey (int key) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3922 for (int i=0; i<KeyTable.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3923 if (KeyTable [i] [0] is key) return KeyTable [i] [1];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3924 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3925 return 0;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3926 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3927
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3928 static int untranslateKey (int key) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3929 for (int i=0; i<KeyTable.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3930 if (KeyTable [i] [1] is key) return KeyTable [i] [0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3931 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3932 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	3933 }
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3934
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3935 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3936 * Forces all outstanding paint requests for the display
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3937 * to be processed before this method returns.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3938 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3939 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3940 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3941 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3942 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3943 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3944 * @see Control#update()
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3945 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3946 public void update () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3947 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3948 flushExposes (null, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3949 OS.gdk_window_process_all_updates ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3950 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3951
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3952 /**
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3953 * If the receiver's user-interface thread was <code>sleep</code>ing,
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3954 * causes it to be awakened and start running again. Note that this
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3955 * method may be called from any thread.
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3956 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3957 * @exception SWTException <ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3958 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3959 * </ul>
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3960 *
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3961 * @see #sleep
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3962 */
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3963 public void wake () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3964 if (isDisposed ()) error (SWT.ERROR_DEVICE_DISPOSED);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3965 if (thread is Thread.getThis ()) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3966 wakeThread ();
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3967 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3968
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3969 void wakeThread () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3970 OS.g_main_context_wakeup (null);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3971 wake_state = true;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3972 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3973
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3974 static dchar wcsToMbcs (char ch) {
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3975 //PORTING_TODO not sure about this
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3976 int key = ch & 0xFFFF;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3977 if (key <= 0x7F) return ch;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3978 char [] buffer = Converter.wcsToMbcs (null,[ch], false);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3979 if (buffer.length is 1) return '\0';
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3980 if (buffer.length is 2) {
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3981 return cast(char) (((buffer [0] & 0xFF) << 8) \| (buffer [1] & 0xFF));
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3982 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3983 return '\0';
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3984 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	3985
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3986 private static extern(C) int /long/ windowProcFunc2 (GtkWidget* handle, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3987 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3988 CallbackData* cbdata = cast(CallbackData*)user_data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3989 return cbdata.display.windowProc( handle, cast(int)cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3990 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3991 int /long/ windowProc (GtkWidget* handle, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3992 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	3993 if (widget 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: 54 diff changeset	3994 return widget.windowProc (handle, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3995 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3996
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3997 private static extern(C) int /long/ windowProcFunc3 (int /long/ handle, int /long/ arg0, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	3998 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	3999 CallbackData* cbdata = cast(CallbackData*)user_data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4000 return cbdata.display.windowProc( cast(GtkWidget*)handle, arg0, cast(int)cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4001 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4002 int /long/ windowProc (GtkWidget* handle, int /long/ arg0, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4003 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4004 if (widget 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: 54 diff changeset	4005 return widget.windowProc (handle, arg0, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4006 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4007
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4008 private static extern(C) int /long/ windowProcFunc4 (int /long/ handle, int /long/ arg0, int /long/ arg1, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	4009 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4010 CallbackData* cbdata = cast(CallbackData*)user_data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4011 return cbdata.display.windowProc( cast(GtkWidget*)handle, arg0, arg1, cast(int)cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4012 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4013 int /long/ windowProc (GtkWidget* handle, int /long/ arg0, int /long/ arg1, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4014 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4015 if (widget 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: 54 diff changeset	4016 return widget.windowProc (handle, arg0, arg1, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4017 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4018
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4019 private static extern(C) int /long/ windowProcFunc5 (int /long/ handle, int /long/ arg0, int /long/ arg1, int /long/ arg2, int /long/ user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	4020 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4021 CallbackData* cbdata = cast(CallbackData*)user_data;
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4022 return cbdata.display.windowProc( cast(GtkWidget*)handle, arg0, arg1, arg2, cast(int)cbdata.data );
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4023 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4024 int /long/ windowProc (GtkWidget* handle, int /long/ arg0, int /long/ arg1, int /long/ arg2, int /long/ user_data) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4025 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4026 if (widget 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: 54 diff changeset	4027 return widget.windowProc (handle, arg0, arg1, arg2, user_data);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4028 }
ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4029
47 f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4030 package int doWindowTimerAdd( CallbackData* cbdata, int delay, GtkWidget* widget ){
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	4031 cbdata.display = this;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	4032 cbdata.data = cast(void*)widget;
8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 48 diff changeset	4033 return OS.gtk_timeout_add (delay, &windowTimerProcFunc, &cbdata);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4034 }
47 f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4035
f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4036 private static extern(C) int /long/ windowTimerProcFunc (void* user_data) {
66 bb2217c09e61 Fixed signal blocking/unblocking: Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	4037 version(LOG) Stderr.formatln( "Display {}:", __LINE__ ).flush;
47 f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4038 CallbackData* cbdata = cast(CallbackData*)user_data;
f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4039 return cbdata.display.windowTimerProc( cast(GtkWidget*)cbdata.data );
f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4040 }
f646579f309c Tray, Tooltip, TrayItem, Item Frank Benoit <benoit@tionex.de> parents: 46 diff changeset	4041
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4042 int /long/ windowTimerProc (GtkWidget* handle) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4043 Widget widget = getWidget (handle);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	4044 if (widget 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: 54 diff changeset	4045 return widget.timerProc (handle);
27 ffa3c27c4328 Display Frank Benoit <benoit@tionex.de> parents: 26 diff changeset	4046 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	4047
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	4048 }
42 787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4049
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4050 package struct CallbackData {
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4051 Display display;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4052 void* data;
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4053 }
787b5413b0ce accessibility package Frank Benoit <benoit@tionex.de> parents: 40 diff changeset	4054

Mercurial > projects > dwt-linux

annotate dwt/widgets/Display.d @ 69:7cf1deebc8d4