projects/dwt-linux: dwt/graphics/Device.d annotate

annotate dwt/graphics/Device.d @ 104:62a654ba5276

optimation of static ctors

author	Frank Benoit <benoit@tionex.de>
date	Fri, 18 Jan 2008 19:13:47 +0100
parents	5899e0b43e5d
children	de2578a843a7

rev	line source
72 5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 71 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
72 5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 71 diff changeset	10 * Port to the D programming language:
5899e0b43e5d porting notice Frank Benoit <benoit@tionex.de> parents: 71 diff changeset	11 * Frank Benoit <benoit@tionex.de>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	12 *******************************************************************************/
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	13 module dwt.graphics.Device;
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	14
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	15 import dwt.graphics.Color;
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	16 import dwt.graphics.Font;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	17 import dwt.graphics.Drawable;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	18 import dwt.graphics.DeviceData;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	19 import dwt.graphics.Rectangle;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	20 import dwt.graphics.FontData;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	21 import dwt.graphics.Font;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	22 import dwt.graphics.GCData;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	23 import dwt.dwthelper.Runnable;
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	24 import dwt.DWT;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	25 import dwt.DWTError;
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	26 import dwt.internal.Compatibility;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	27 import dwt.internal.gtk.OS;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	28
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	29 import tango.core.Exception;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	30 import tango.stdc.stringz;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	31 import tango.io.Stdout;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	32
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	33 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	34 * This class is the abstract superclass of all device objects,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	35 * such as the Display device and the Printer device. Devices
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	36 * can have a graphics context (GC) created for them, and they
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	37 * can be drawn on by sending messages to the associated GC.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	38 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	39 public abstract class Device : Drawable {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	40 /**
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	41 * the handle to the X Display
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	42 * (Warning: This field is platform dependent)
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	43 * <p>
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	44 * <b>IMPORTANT:</b> This field is <em>not</em> part of the DWT
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	45 * public API. It is marked protected only so that it can be shared
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	46 * within the packages provided by DWT. It is not available on all
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	47 * platforms and should never be accessed from application code.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	48 * </p>
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	49 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	50 protected void* xDisplay;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	51 GtkWidget* shellHandle;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	52
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	53 /* Debugging */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	54 public static bool DEBUG;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	55 bool debugging;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	56 bool tracking;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	57 TracedException [] errors;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	58 Object [] objects;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	59
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	60 /* Colormap and reference count */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	61 GdkColor *[] gdkColors;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	62 int [] colorRefCount;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	63
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	64 /* Disposed flag */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	65 bool disposed;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	66
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	67 /* Warning and Error Handlers */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	68 //int /long/ logProcFld;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	69 //GLogFunc logCallback;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	70 //NOT DONE - get list of valid names
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	71 char[] [] log_domains = ["GLib-GObject"[], "GLib", "GObject", "Pango", "ATK", "GdkPixbuf", "Gdk", "Gtk", "GnomeVFS"];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	72 int [] handler_ids;// = new int [log_domains.length];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	73 int warningLevel;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	74
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	75 /* X Warning and Error Handlers */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	76 static extern(C) int function(void *) mXIOErrorHandler;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	77 static extern(C) int function(void , XErrorEvent ) mXErrorHandler;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	78 //static int mXErrorCallback, mXIOErrorCallback;
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	79
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	80 static int /long/ XErrorProc, XIOErrorProc, XNullErrorProc, XNullIOErrorProc;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	81 static Device[] Devices;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	82
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	83 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	84 * The following colors are listed in the Windows
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	85 * Programmer's Reference as the colors in the default
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	86 * palette.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	87 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	88 Color COLOR_BLACK, COLOR_DARK_RED, COLOR_DARK_GREEN, COLOR_DARK_YELLOW, COLOR_DARK_BLUE;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	89 Color COLOR_DARK_MAGENTA, COLOR_DARK_CYAN, COLOR_GRAY, COLOR_DARK_GRAY, COLOR_RED;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	90 Color COLOR_GREEN, COLOR_YELLOW, COLOR_BLUE, COLOR_MAGENTA, COLOR_CYAN, COLOR_WHITE;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	91
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	92 /* System Font */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	93 Font systemFont;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	94
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	95 PangoTabArray* emptyTab;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	96
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	97 bool useXRender;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	98
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	99 static bool CAIRO_LOADED;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	100
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	101 // static Object CREATE_LOCK;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	102
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	103 /*
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	104 * TEMPORARY CODE. When a graphics object is
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	105 * created and the device parameter is null,
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	106 * the current Display is used. This presents
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	107 * a problem because DWT graphics does not
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	108 * reference classes in DWT widgets. The correct
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	109 * fix is to remove this feature. Unfortunately,
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	110 * too many application programs rely on this
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	111 * feature.
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	112 *
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	113 * This code will 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: 55 diff changeset	114 */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	115 protected static Device CurrentDevice;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	116 protected static Runnable DeviceFinder;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	117
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	118 //synchronized static void static_this(){
62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	119 // CREATE_LOCK = new Object();
62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	120 // Devices = new Device[4];
62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	121 //}
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	122 /*
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	123 * TEMPORARY CODE.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	124 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	125 static synchronized Device getDevice () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	126 if (DeviceFinder !is null) DeviceFinder.run();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	127 Device device = CurrentDevice;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	128 CurrentDevice = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	129 return device;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	130 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	131
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	132 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	133 * Constructs a new instance of this class.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	134 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	135 * You must dispose the device when it is no longer required.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	136 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	137 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	138 * @see #create
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	139 * @see #init
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	140 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	141 * @since 3.1
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	142 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	143 public this() {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	144 this(null);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	145 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	146
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	147 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	148 * Constructs a new instance of this class.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	149 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	150 * You must dispose the device when it is no longer required.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	151 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	152 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	153 * @param data the DeviceData which describes the receiver
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	154 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	155 * @see #create
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	156 * @see #init
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	157 * @see DeviceData
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	158 */
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	159
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	160 public this(DeviceData data) {
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	161 handler_ids = new int [log_domains.length];
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	162 debugging = DEBUG;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	163 tracking = DEBUG;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	164
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	165 synchronized ( this.classinfo ) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	166 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: 55 diff changeset	167 debugging = data.debugging;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	168 tracking = data.tracking;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	169 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	170 if (tracking) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	171 errors = new TracedException [128];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	172 objects = new Object [128];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	173 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	174 create (data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	175 init ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	176 register (this);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	177
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	178 /* Initialize the system font slot */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	179 systemFont = getSystemFont ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	180 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	181 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	182
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	183 void checkCairo() {
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	184 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	185
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	186 /**
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	187 * Throws an <code>DWTException</code> if the receiver can not
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	188 * be accessed by the caller. This may include both checks on
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	189 * the state of the receiver and more generally on the entire
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	190 * execution context. This method <em>should</em> be called by
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	191 * device implementors to enforce the standard DWT invariants.
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	192 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	193 * Currently, it is an error to invoke any method (other than
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	194 * <code>isDisposed()</code> and <code>dispose()</code>) on a
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	195 * device that has had its <code>dispose()</code> method called.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	196 * </p><p>
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	197 * In future releases of DWT, there may be more or fewer error
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	198 * checks and exceptions may be thrown for different reasons.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	199 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	200 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	201 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	202 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	203 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	204 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	205 protected void checkDevice () {
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	206 if (disposed) DWT.error(DWT.ERROR_DEVICE_DISPOSED);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	207 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	208
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	209 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	210 * Creates the device in the operating system. If the device
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	211 * does not have a handle, this method may do nothing depending
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	212 * on the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	213 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	214 * This method is called before <code>init</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	215 * </p><p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	216 * Subclasses are supposed to reimplement this method and not
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	217 * call the <code>super</code> implementation.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	218 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	219 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	220 * @param data the DeviceData which describes the receiver
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	221 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	222 * @see #init
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	223 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	224 protected void create (DeviceData data) {
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	225 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	226
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	227 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	228 * Disposes of the operating system resources associated with
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	229 * the receiver. After this method has been invoked, the receiver
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	230 * will answer <code>true</code> when sent the message
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	231 * <code>isDisposed()</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	232 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	233 * @see #release
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	234 * @see #destroy
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	235 * @see #checkDevice
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	236 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	237 public void dispose () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	238 if (isDisposed()) return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	239 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	240 release ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	241 destroy ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	242 deregister (this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	243 xDisplay = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	244 disposed = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	245 if (tracking) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	246 objects = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	247 errors = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	248 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	249 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	250
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	251 void dispose_Object (Object object) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	252 for (int i=0; i<objects.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	253 if (objects [i] is object) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	254 objects [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	255 errors [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	256 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	257 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	258 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	259 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	260
28 10acbb123580 Widget and TypedListener Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	261 static synchronized Device findDevice (void* xDisplay) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	262 for (int i=0; i<Devices.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	263 Device device = Devices [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	264 if (device !is null && device.xDisplay is xDisplay) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	265 return device;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	266 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	267 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	268 return null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	269 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	270
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	271 synchronized static void deregister (Device device) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	272 for (int i=0; i<Devices.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	273 if (device is Devices [i]) Devices [i] = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	274 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	275 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	276
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	277 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	278 * Destroys the device in the operating system and releases
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	279 * 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	280 * this method may do nothing depending on the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	281 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	282 * This method is called after <code>release</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	283 * </p><p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	284 * Subclasses are supposed to reimplement this method and not
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	285 * call the <code>super</code> implementation.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	286 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	287 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	288 * @see #dispose
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	289 * @see #release
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	290 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	291 protected void destroy () {
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	292 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	293
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	294 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	295 * Returns a rectangle describing the receiver's size and location.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	296 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	297 * @return the bounding rectangle
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	298 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	299 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	300 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	301 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	302 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	303 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: 55 diff changeset	304 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	305 return new Rectangle(0, 0, 0, 0);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	306 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	307
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	308 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	309 * Returns a <code>DeviceData</code> based on the receiver.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	310 * Modifications made to this <code>DeviceData</code> will not
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	311 * affect the receiver.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	312 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	313 * @return a <code>DeviceData</code> containing the device's data and attributes
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	314 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	315 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	316 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	317 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	318 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	319 * @see DeviceData
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	320 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	321 public DeviceData getDeviceData () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	322 checkDevice();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	323 DeviceData data = new DeviceData ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	324 data.debugging = debugging;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	325 data.tracking = tracking;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	326 int count = 0, length = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	327 if (tracking) length = objects.length;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	328 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: 55 diff changeset	329 if (objects [i] !is null) count++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	330 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	331 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	332 data.objects = new Object [count];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	333 data.errors = new TracedException [count];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	334 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: 55 diff changeset	335 if (objects [i] !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	336 data.objects [index] = objects [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	337 data.errors [index] = errors [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	338 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	339 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	340 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	341 return data;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	342 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	343
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	344 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	345 * Returns a rectangle which describes the area of the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	346 * receiver which is capable of displaying data.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	347 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	348 * @return the client area
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	349 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	350 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	351 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	352 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	353 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	354 * @see #getBounds
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	355 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	356 public Rectangle getClientArea () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	357 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	358 return getBounds ();
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	359 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	360
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	361 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	362 * Returns the bit depth of the screen, which is the number of
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	363 * bits it takes to represent the number of unique colors that
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	364 * the screen is currently capable of displaying. This number
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	365 * will typically be one of 1, 8, 15, 16, 24 or 32.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	366 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	367 * @return the depth of the screen
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	368 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	369 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	370 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	371 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	372 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	373 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: 55 diff changeset	374 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	375 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	376 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	377
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	378 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	379 * Returns a point whose x coordinate is the horizontal
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	380 * dots per inch of the display, and whose y coordinate
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	381 * is the vertical dots per inch of the display.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	382 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	383 * @return the horizontal and vertical DPI
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	384 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	385 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	386 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	387 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	388 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	389 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: 55 diff changeset	390 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	391 return new Point (72, 72);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	392 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	393
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	394 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	395 * Returns <code>FontData</code> objects which describe
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	396 * the fonts that match the given arguments. If the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	397 * <code>faceName</code> is null, all fonts will be returned.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	398 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	399 * @param faceName the name of the font to look for, or null
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	400 * @param scalable if true only scalable fonts are returned, otherwise only non-scalable fonts are returned.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	401 * @return the matching font data
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	402 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	403 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	404 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	405 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	406 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	407 public FontData[] getFontList (char[] faceName, bool scalable) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	408 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	409 if (!scalable) return new FontData[0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	410 PangoFontFamily* family;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	411 PangoFontFace * face;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	412 PangoFontFamily** families;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	413 int n_families;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	414 PangoFontFace ** faces;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	415 int n_faces;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	416 auto context = OS.gdk_pango_context_get();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	417 OS.pango_context_list_families(context, &families, &n_families);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	418 int nFds = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	419 FontData[] fds = new FontData[faceName !is null ? 4 : n_families];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	420 for (int i=0; i<n_families; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	421 family = families[i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	422 bool match = true;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	423 if (faceName !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	424 auto familyName = OS.pango_font_family_get_name(family);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	425 match = Compatibility.equalsIgnoreCase(faceName, fromUtf8z( familyName ));
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	426 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	427 if (match) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	428 OS.pango_font_family_list_faces(family, &faces, &n_faces);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	429 for (int j=0; j<n_faces; j++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	430 face = faces[j];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	431 auto fontDesc = OS.pango_font_face_describe(face);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	432 Font font = Font.gtk_new(this, fontDesc);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	433 FontData data = font.getFontData()[0];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	434 if (nFds is fds.length) {
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	435 FontData[] newFds = new FontData[fds.length + n_families];
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	436 System.arraycopy(fds, 0, newFds, 0, nFds);
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	437 fds = newFds;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	438 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	439 fds[nFds++] = data;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	440 OS.pango_font_description_free(fontDesc);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	441 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	442 OS.g_free(faces[0]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	443 if (faceName !is null) break;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	444 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	445 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	446 OS.g_free(families);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	447 OS.g_object_unref(context);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	448 if (nFds is fds.length) return fds;
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	449 FontData[] result = new FontData[nFds];
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	450 System.arraycopy(fds, 0, result, 0, nFds);
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	451 return result;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	452 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	453
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	454 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	455 * Returns the matching standard color for the given
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	456 * constant, which should be one of the color constants
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	457 * specified in class <code>DWT</code>. Any value other
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	458 * than one of the DWT color constants which is passed
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	459 * in will result in the color black. This color should
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	460 * not be freed because it was allocated by the system,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	461 * not the application.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	462 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	463 * @param id the color constant
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	464 * @return the matching color
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	465 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	466 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	467 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	468 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	469 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	470 * @see DWT
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	471 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	472 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: 55 diff changeset	473 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	474 switch (id) {
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	475 case DWT.COLOR_BLACK: return COLOR_BLACK;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	476 case DWT.COLOR_DARK_RED: return COLOR_DARK_RED;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	477 case DWT.COLOR_DARK_GREEN: return COLOR_DARK_GREEN;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	478 case DWT.COLOR_DARK_YELLOW: return COLOR_DARK_YELLOW;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	479 case DWT.COLOR_DARK_BLUE: return COLOR_DARK_BLUE;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	480 case DWT.COLOR_DARK_MAGENTA: return COLOR_DARK_MAGENTA;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	481 case DWT.COLOR_DARK_CYAN: return COLOR_DARK_CYAN;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	482 case DWT.COLOR_GRAY: return COLOR_GRAY;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	483 case DWT.COLOR_DARK_GRAY: return COLOR_DARK_GRAY;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	484 case DWT.COLOR_RED: return COLOR_RED;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	485 case DWT.COLOR_GREEN: return COLOR_GREEN;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	486 case DWT.COLOR_YELLOW: return COLOR_YELLOW;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	487 case DWT.COLOR_BLUE: return COLOR_BLUE;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	488 case DWT.COLOR_MAGENTA: return COLOR_MAGENTA;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	489 case DWT.COLOR_CYAN: return COLOR_CYAN;
295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	490 case DWT.COLOR_WHITE: return COLOR_WHITE;
55 93981635e709 Checked and inserted missing default switch cases. Frank Benoit <benoit@tionex.de> parents: 54 diff changeset	491 default:
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	492 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	493 return COLOR_BLACK;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	494 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	495
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	496 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	497 * Returns a reasonable font for applications to use.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	498 * On some platforms, this will match the "default font"
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	499 * or "system font" if such can be found. This font
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	500 * should not be freed because it was allocated by the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	501 * system, not the application.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	502 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	503 * Typically, applications which want the default look
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	504 * should simply not set the font on the widgets they
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	505 * create. Widgets are always created with the correct
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	506 * default font for the class of user-interface component
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	507 * they represent.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	508 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	509 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	510 * @return a font
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	511 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	512 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	513 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	514 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	515 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	516 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: 55 diff changeset	517 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	518 return systemFont;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	519 }
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 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	522 * Returns <code>true</code> if the underlying window system prints out
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	523 * warning messages on the console, and <code>setWarnings</code>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	524 * had previously been called with <code>true</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	525 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	526 * @return <code>true</code>if warnings are being handled, and <code>false</code> otherwise
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	527 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	528 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	529 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	530 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	531 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	532 public bool getWarnings () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	533 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	534 return warningLevel is 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	535 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	536
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	537 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	538 * Initializes any internal resources needed by the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	539 * device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	540 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	541 * This method is called after <code>create</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	542 * </p><p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	543 * If subclasses reimplement this method, they must
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	544 * call the <code>super</code> implementation.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	545 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	546 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	547 * @see #create
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	548 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	549 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: 55 diff changeset	550 if (xDisplay !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	551 int event_basep, error_basep;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	552 if (OS.XRenderQueryExtension (xDisplay, &event_basep, &error_basep)) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	553 int major_version, minor_version;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	554 OS.XRenderQueryVersion (xDisplay, &major_version, &minor_version);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	555 useXRender = major_version > 0 \|\| (major_version is 0 && minor_version >= 8);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	556 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	557 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	558
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	559 if (debugging) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	560 if (xDisplay !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	561 /* Create the warning and error callbacks */
104 62a654ba5276 optimation of static ctors Frank Benoit <benoit@tionex.de> parents: 72 diff changeset	562 synchronized (this.classinfo) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	563 int index = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	564 while (index < Devices.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	565 if (Devices [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: 55 diff changeset	566 index++;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	567 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	568 if (index is Devices.length) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	569 OS.XSetErrorHandler ( & XErrorProcFunc );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	570 OS.XSetIOErrorHandler ( & XIOErrorProcFunc );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	571 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	572 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	573 OS.XSynchronize (xDisplay, true);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	574 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	575 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	576
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	577 /* Create GTK warnings and error callbacks */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	578 if (xDisplay !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	579 /* Set GTK warning and error handlers */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	580 if (debugging) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	581 int flags = OS.G_LOG_LEVEL_MASK \| OS.G_LOG_FLAG_FATAL \| OS.G_LOG_FLAG_RECURSION;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	582 for (int i=0; i<log_domains.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	583 handler_ids [i] = OS.g_log_set_handler (toStringz(log_domains [i]), flags, & logFunction, cast(void*)this);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	584 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	585 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	586 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	587
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	588 /* Create the standard colors */
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	589 COLOR_BLACK = new Color (this, 0,0,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	590 COLOR_DARK_RED = new Color (this, 0x80,0,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	591 COLOR_DARK_GREEN = new Color (this, 0,0x80,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	592 COLOR_DARK_YELLOW = new Color (this, 0x80,0x80,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	593 COLOR_DARK_BLUE = new Color (this, 0,0,0x80);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	594 COLOR_DARK_MAGENTA = new Color (this, 0x80,0,0x80);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	595 COLOR_DARK_CYAN = new Color (this, 0,0x80,0x80);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	596 COLOR_GRAY = new Color (this, 0xC0,0xC0,0xC0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	597 COLOR_DARK_GRAY = new Color (this, 0x80,0x80,0x80);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	598 COLOR_RED = new Color (this, 0xFF,0,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	599 COLOR_GREEN = new Color (this, 0,0xFF,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	600 COLOR_YELLOW = new Color (this, 0xFF,0xFF,0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	601 COLOR_BLUE = new Color (this, 0,0,0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	602 COLOR_MAGENTA = new Color (this, 0xFF,0,0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	603 COLOR_CYAN = new Color (this, 0,0xFF,0xFF);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	604 COLOR_WHITE = new Color (this, 0xFF,0xFF,0xFF);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	605
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	606 emptyTab = OS.pango_tab_array_new(1, false);
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	607 if (emptyTab is null) DWT.error(DWT.ERROR_NO_HANDLES);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	608 OS.pango_tab_array_set_tab(emptyTab, 0, OS.PANGO_TAB_LEFT, 1);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	609
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	610 shellHandle = OS.gtk_window_new(OS.GTK_WINDOW_TOPLEVEL);
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	611 if (shellHandle is null) DWT.error(DWT.ERROR_NO_HANDLES);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	612 OS.gtk_widget_realize(shellHandle);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	613 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	614
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	615 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	616 * Invokes platform specific functionality to allocate a new GC handle.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	617 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	618 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	619 * API for <code>Device</code>. It is marked public only so that it
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	620 * can be shared within the packages provided by DWT. It is not
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	621 * available on all platforms, and should never be called from
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	622 * application code.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	623 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	624 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	625 * @param data the platform specific GC data
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	626 * @return the platform specific GC handle
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	627 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	628 public abstract GdkGC* internal_new_GC (GCData data);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	629
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	630 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	631 * Invokes platform specific functionality to dispose a GC handle.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	632 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	633 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	634 * API for <code>Device</code>. It is marked public only so that it
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	635 * can be shared within the packages provided by DWT. It is not
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	636 * available on all platforms, and should never be called from
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	637 * application code.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	638 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	639 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	640 * @param hDC the platform specific GC handle
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	641 * @param data the platform specific GC data
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	642 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	643 public abstract void internal_dispose_GC (GdkGC* handle, GCData data);
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	644
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	645 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	646 * Returns <code>true</code> if the device has been disposed,
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	647 * and <code>false</code> otherwise.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	648 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	649 * This method gets the dispose state for the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	650 * When a device has been disposed, it is an error to
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	651 * invoke any other method using the device.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	652 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	653 * @return <code>true</code> when the device is disposed and <code>false</code> otherwise
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	654 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	655 public bool isDisposed () {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	656 return disposed;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	657 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	658
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	659 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	660 * Loads the font specified by a file. The font will be
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	661 * present in the list of fonts available to the application.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	662 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	663 * @param path the font file path
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	664 * @return whether the font was successfully loaded
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	665 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	666 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	667 * <li>ERROR_NULL_ARGUMENT - if path is null</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	668 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	669 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	670 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	671 * @see Font
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	672 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	673 * @since 3.3
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	674 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	675 public bool loadFont (char[] path) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	676 checkDevice();
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	677 if (path is null) DWT.error (DWT.ERROR_NULL_ARGUMENT);
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	678 return cast(bool) OS.FcConfigAppFontAddFile (null, toStringz(path));
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	679 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	680
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	681 private static extern(C) void logFunction (char* log_domain, int log_level, char* message, void* user_data) {
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	682 Device dev = cast(Device)user_data;
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	683 if (dev.warningLevel is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	684 if (DEBUG \|\| dev.debugging) {
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	685 foreach( msg; new TracedException ("") ){
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	686 Stderr.formatln( "trc {}", msg );
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	687 }
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	688 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	689 OS.g_log_default_handler (log_domain, log_level, message, user_data);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	690 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	691 return 0;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	692 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	693
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	694 void new_Object (Object object) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	695 for (int i=0; i<objects.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	696 if (objects [i] is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	697 objects [i] = object;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	698 errors [i] = new TracedException ("");
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	699 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	700 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	701 }
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	702 Object [] newObjects = new Object [objects.length + 128];
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	703 System.arraycopy (objects, 0, newObjects, 0, objects.length);
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	704 newObjects [objects.length] = object;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	705 objects = newObjects;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	706 TracedException [] newErrors = new TracedException [errors.length + 128];
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	707 System.arraycopy (errors, 0, newErrors, 0, errors.length);
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	708 newErrors [errors.length] = new TracedException ("");
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	709 errors = newErrors;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	710 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	711
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	712 static synchronized void register (Device device) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	713 for (int i=0; i<Devices.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	714 if (Devices [i] is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	715 Devices [i] = device;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	716 return;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	717 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	718 }
25 fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	719 Device [] newDevices = new Device [Devices.length + 4];
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	720 System.arraycopy (Devices, 0, newDevices, 0, Devices.length);
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	721 newDevices [Devices.length] = device;
fc2b263b8a3f Merged back the System.arraycopy and use a System class Frank Benoit <benoit@tionex.de> parents: 19 diff changeset	722 Devices = newDevices;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	723 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	724
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 * Releases any internal resources back to the operating
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	727 * system and clears all fields except the device handle.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	728 * <p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	729 * When a device is destroyed, resources that were acquired
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	730 * on behalf of the programmer need to be returned to the
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	731 * operating system. For example, if the device allocated a
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	732 * font to be used as the system font, this font would be
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	733 * freed in <code>release</code>. Also,to assist the garbage
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	734 * collector and minimize the amount of memory that is not
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	735 * reclaimed when the programmer keeps a reference to a
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	736 * disposed device, all fields except the handle are zero'd.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	737 * The handle is needed by <code>destroy</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	738 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	739 * This method is called before <code>destroy</code>.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	740 * </p><p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	741 * If subclasses reimplement this method, they must
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	742 * call the <code>super</code> implementation.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	743 * </p>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	744 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	745 * @see #dispose
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	746 * @see #destroy
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	747 */
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	748 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: 55 diff changeset	749 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: 55 diff changeset	750 shellHandle = null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	751
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	752 if (gdkColors !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	753 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: 55 diff changeset	754 for (int i = 0; i < gdkColors.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	755 GdkColor* color = gdkColors [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	756 if (color !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	757 while (colorRefCount [i] > 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	758 OS.gdk_colormap_free_colors(colormap, color, 1);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	759 --colorRefCount [i];
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	760 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	761 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	762 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	763 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	764 gdkColors = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	765 colorRefCount = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	766 COLOR_BLACK = COLOR_DARK_RED = COLOR_DARK_GREEN = COLOR_DARK_YELLOW = COLOR_DARK_BLUE =
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	767 COLOR_DARK_MAGENTA = COLOR_DARK_CYAN = COLOR_GRAY = COLOR_DARK_GRAY = COLOR_RED =
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	768 COLOR_GREEN = COLOR_YELLOW = COLOR_BLUE = COLOR_MAGENTA = COLOR_CYAN = COLOR_WHITE = null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	769
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	770 if (emptyTab !is null ) OS.pango_tab_array_free(emptyTab);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	771 emptyTab = null;
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	772
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	773 /* Free the GTK error and warning handler */
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	774 if (xDisplay !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	775 for (int i=0; i<handler_ids.length; i++) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	776 if (handler_ids [i] !is 0 ) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	777 OS.g_log_remove_handler (toStringz(log_domains [i]), handler_ids [i]);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	778 handler_ids [i] = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	779 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	780 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	781 //logCallback.dispose (); logCallback = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	782 handler_ids = null; log_domains = null;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	783 //logProcFld = 0;
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	784 }
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	785 }
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	786
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	787 /**
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	788 * If the underlying window system supports printing warning messages
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	789 * to the console, setting warnings to <code>false</code> prevents these
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	790 * messages from being printed. If the argument is <code>true</code> then
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	791 * message printing is not blocked.
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	792 *
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	793 * @param warnings <code>true</code>if warnings should be printed, and <code>false</code> otherwise
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	794 *
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	795 * @exception DWTException <ul>
18 92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	796 * <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	797 * </ul>
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	798 */
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	799 public void setWarnings (bool warnings) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	800 checkDevice ();
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	801 if (warnings) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	802 if (--warningLevel is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	803 if (debugging) return;
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	804 for (int i=0; i<handler_ids.length; i++) {
54 8f049b136add first example working Frank Benoit <benoit@tionex.de> parents: 33 diff changeset	805 if (handler_ids [i] !is 0) {
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	806 OS.g_log_remove_handler (toStringz(log_domains [i]), handler_ids [i]);
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	807 handler_ids [i] = 0;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	808 }
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	809 }
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	810 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	811 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	812 if (warningLevel++ is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	813 if (debugging) return;
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	814 int flags = OS.G_LOG_LEVEL_MASK \| OS.G_LOG_FLAG_FATAL \| OS.G_LOG_FLAG_RECURSION;
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	815 for (int i=0; i<log_domains.length; i++) {
33 27324bbbac70 changed to regenerated BCD bindings Frank Benoit <benoit@tionex.de> parents: 28 diff changeset	816 handler_ids [i] = OS.g_log_set_handler (toStringz(log_domains [i]), flags, & logFunction, cast(void*)this );
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	817 }
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	818 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	819 }
18 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
28 10acbb123580 Widget and TypedListener Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	822 private static extern(C) int /long/ XErrorProcFunc (void* xDisplay, dwt.internal.gtk.OS.XErrorEvent* xErrorEvent) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	823 Device device = findDevice (xDisplay);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	824 if (device !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	825 if (device.warningLevel is 0) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	826 if (DEBUG \|\| device.debugging) {
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	827 foreach( msg; new TracedException ("") ){
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	828 Stderr.formatln( "trc {}", msg );
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	829 }
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	830 }
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	831 //PORTING_FIXME ??
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	832 //OS.Call (XErrorProc, xDisplay, xErrorEvent);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	833 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	834 } else {
71 295b29fc7d13 Renamed SWT to DWT Frank Benoit <benoit@tionex.de> parents: 59 diff changeset	835 if (DEBUG) (new DWTError ()).printStackTrace ();
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	836 //PORTING_FIXME ??
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	837 //OS.Call (XErrorProc, xDisplay, xErrorEvent);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	838 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	839 return 0;
18 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
28 10acbb123580 Widget and TypedListener Frank Benoit <benoit@tionex.de> parents: 25 diff changeset	842 private static extern(C) int /long/ XIOErrorProcFunc (void* xDisplay) {
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	843 Device device = findDevice (xDisplay);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	844 if (device !is null) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	845 if (DEBUG \|\| device.debugging) {
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	846 foreach( msg; new TracedException ("") ){
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	847 Stderr.formatln( "trc {}", msg );
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	848 }
b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	849 }
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	850 } else {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	851 if (DEBUG) {
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	852 foreach( msg; new TracedException ("") ){
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	853 Stderr.formatln( "trc {}", msg );
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	854 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	855 }
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	856 }
19 b73b14942338 Device Frank Benoit <benoit@tionex.de> parents: 18 diff changeset	857 //PORTING_FIXME ??
59 8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	858 //OS.Call (XIOErrorProc, xDisplay, 0);
8cec8f536af3 All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed. Frank Benoit <benoit@tionex.de> parents: 55 diff changeset	859 return 0;
18 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
92223a4ecca7 start of image port Frank Benoit <benoit@tionex.de> parents: diff changeset	862 }

Mercurial > projects > dwt-linux

annotate dwt/graphics/Device.d @ 104:62a654ba5276