# HG changeset patch
# User Frank Benoit <benoit@tionex.de>
# Date 1201267408 -3600
# Node ID d3cfc7ee5c521893fe95c49ce30ec57c2b97c465
# Parent  02112e568fee010f74bb122bd719b467aae36b27
Resource, Device as proto

diff -r 02112e568fee -r d3cfc7ee5c52 dwt/graphics/Device.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dwt/graphics/Device.d	Fri Jan 25 14:23:28 2008 +0100
@@ -0,0 +1,869 @@
+/*******************************************************************************
+ * Copyright (c) 2000, 2007 IBM Corporation and others.
+ * All rights reserved. This program and the accompanying materials
+ * are made available under the terms of the Eclipse Public License v1.0
+ * which accompanies this distribution, and is available at
+ * http://www.eclipse.org/legal/epl-v10.html
+ *
+ * Contributors:
+ *     IBM Corporation - initial API and implementation
+ *******************************************************************************/
+module dwt.graphics.Device;
+
+//PORTING_TYPE
+class Device{
+}
+/+++
+ 
+import dwt.DWT;
+import dwt.DWTException;
+import dwt.internal.Callback;
+import dwt.internal.gdip.Gdip;
+import dwt.internal.gdip.GdiplusStartupInput;
+import dwt.internal.win32.LOGFONT;
+import dwt.internal.win32.LOGFONTA;
+import dwt.internal.win32.LOGFONTW;
+import dwt.internal.win32.OS;
+import dwt.internal.win32.TCHAR;
+import dwt.internal.win32.TEXTMETRIC;
+import dwt.internal.win32.TEXTMETRICA;
+import dwt.internal.win32.TEXTMETRICW;
+
+/**
+ * This class is the abstract superclass of all device objects,
+ * such as the Display device and the Printer device. Devices
+ * can have a graphics context (GC) created for them, and they
+ * can be drawn on by sending messages to the associated GC.
+ */
+public abstract class Device implements Drawable {
+    
+    /* Debugging */
+    public static bool DEBUG;
+    bool debug = DEBUG;
+    bool tracking = DEBUG;
+    Error [] errors;
+    Object [] objects;
+    
+    /**
+     * Palette 
+     * (Warning: This field is platform dependent)
+     * <p>
+     * <b>IMPORTANT:</b> This field is <em>not</em> part of the DWT
+     * public API. It is marked public only so that it can be shared
+     * within the packages provided by DWT. It is not available on all
+     * platforms and should never be accessed from application code.
+     * </p>
+     */
+    public int hPalette = 0;
+    int [] colorRefCount;
+    
+    /* System Font */
+    int systemFont;
+
+    /* Font Enumeration */
+    int nFonts = 256;
+    LOGFONT [] logFonts;
+    TEXTMETRIC metrics;
+    int[] pixels;
+
+    /* Scripts */
+    int [] scripts;
+
+    /* Advanced Graphics */
+    int [] gdipToken;
+
+    bool disposed;
+    
+    final static Object CREATE_LOCK = new Object();
+
+    /*
+    * TEMPORARY CODE. When a graphics object is
+    * created and the device parameter is null,
+    * the current Display is used. This presents
+    * a problem because DWT graphics does not
+    * reference classes in DWT widgets. The correct
+    * fix is to remove this feature. Unfortunately,
+    * too many application programs rely on this
+    * feature.
+    *
+    * This code will be removed in the future.
+    */
+    protected static Device CurrentDevice;
+    protected static Runnable DeviceFinder;
+    static {
+        try {
+            Class.forName ("org.eclipse.swt.widgets.Display"); //$NON-NLS-1$
+        } catch (Throwable e) {}
+    }   
+
+/*
+* TEMPORARY CODE.
+*/
+static synchronized Device getDevice () {
+    if (DeviceFinder !is null) DeviceFinder.run();
+    Device device = CurrentDevice;  
+    CurrentDevice = null;
+    return device;
+}
+
+/**
+ * Constructs a new instance of this class.
+ * <p>
+ * You must dispose the device when it is no longer required. 
+ * </p>
+ *
+ * @see #create
+ * @see #init
+ * 
+ * @since 3.1
+ */
+public Device() {
+    this(null);
+}
+
+/**
+ * Constructs a new instance of this class.
+ * <p>
+ * You must dispose the device when it is no longer required. 
+ * </p>
+ *
+ * @param data the DeviceData which describes the receiver
+ *
+ * @see #create
+ * @see #init
+ * @see DeviceData
+ */
+public Device(DeviceData data) {
+    synchronized (CREATE_LOCK) {
+        if (data !is null) {
+            debug = data.debug;
+            tracking = data.tracking;
+        }
+        create (data);
+        init ();
+        if (tracking) {
+            errors = new Error [128];
+            objects = new Object [128];
+        }
+        
+        /* Initialize the system font slot */
+        systemFont = getSystemFont().handle;
+    }
+}
+
+/**
+ * Throws an <code>DWTException</code> if the receiver can not
+ * be accessed by the caller. This may include both checks on
+ * the state of the receiver and more generally on the entire
+ * execution context. This method <em>should</em> be called by
+ * device implementors to enforce the standard DWT invariants.
+ * <p>
+ * Currently, it is an error to invoke any method (other than
+ * <code>isDisposed()</code> and <code>dispose()</code>) on a
+ * device that has had its <code>dispose()</code> method called.
+ * </p><p>
+ * In future releases of DWT, there may be more or fewer error
+ * checks and exceptions may be thrown for different reasons.
+ * <p>
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+protected void checkDevice () {
+    if (disposed) DWT.error(DWT.ERROR_DEVICE_DISPOSED);
+}
+
+void checkGDIP() {
+    if (gdipToken !is null) return;
+    if (OS.IsWinCE) DWT.error(DWT.ERROR_NOT_IMPLEMENTED);
+    int oldErrorMode = OS.SetErrorMode (OS.SEM_FAILCRITICALERRORS);
+    try {
+        int [] token = new int [1];
+        GdiplusStartupInput input = new GdiplusStartupInput ();
+        input.GdiplusVersion = 1;
+        if (Gdip.GdiplusStartup (token, input, 0) is 0) {
+            gdipToken = token;
+        }
+    } catch (Throwable t) {
+        DWT.error (DWT.ERROR_NO_GRAPHICS_LIBRARY, t, " [GDI+ is required]"); //$NON-NLS-1$
+    } finally {
+        OS.SetErrorMode (oldErrorMode);
+    }
+}
+
+/**
+ * Creates the device in the operating system.  If the device
+ * does not have a handle, this method may do nothing depending
+ * on the device.
+ * <p>
+ * This method is called before <code>init</code>.
+ * </p><p>
+ * Subclasses are supposed to reimplement this method and not
+ * call the <code>super</code> implementation.
+ * </p>
+ *
+ * @param data the DeviceData which describes the receiver
+ *
+ * @see #init
+ */
+protected void create (DeviceData data) {
+}
+
+int computePixels(float height) {
+    int hDC = internal_new_GC (null);
+    int pixels = -(int)(0.5f + (height * OS.GetDeviceCaps(hDC, OS.LOGPIXELSY) / 72f));
+    internal_dispose_GC (hDC, null);
+    return pixels;
+}
+
+float computePoints(LOGFONT logFont, int hFont) {
+    int hDC = internal_new_GC (null);
+    int logPixelsY = OS.GetDeviceCaps(hDC, OS.LOGPIXELSY);
+    int pixels = 0; 
+    if (logFont.lfHeight > 0) {
+        /*
+         * Feature in Windows. If the lfHeight of the LOGFONT structure
+         * is positive, the lfHeight measures the height of the entire
+         * cell, including internal leading, in logical units. Since the
+         * height of a font in points does not include the internal leading,
+         * we must subtract the internal leading, which requires a TEXTMETRIC.
+         */
+        int oldFont = OS.SelectObject(hDC, hFont);
+        TEXTMETRIC lptm = OS.IsUnicode ? (TEXTMETRIC)new TEXTMETRICW() : new TEXTMETRICA();
+        OS.GetTextMetrics(hDC, lptm);
+        OS.SelectObject(hDC, oldFont);
+        pixels = logFont.lfHeight - lptm.tmInternalLeading;
+    } else {
+        pixels = -logFont.lfHeight;
+    }
+    internal_dispose_GC (hDC, null);
+    return pixels * 72f / logPixelsY;
+}
+
+/**
+ * Destroys the device in the operating system and releases
+ * the device's handle.  If the device does not have a handle,
+ * this method may do nothing depending on the device.
+ * <p>
+ * This method is called after <code>release</code>.
+ * </p><p>
+ * Subclasses are supposed to reimplement this method and not
+ * call the <code>super</code> implementation.
+ * </p>
+ *
+ * @see #dispose
+ * @see #release
+ */
+protected void destroy () {
+}
+
+/**
+ * Disposes of the operating system resources associated with
+ * the receiver. After this method has been invoked, the receiver
+ * will answer <code>true</code> when sent the message
+ * <code>isDisposed()</code>.
+ *
+ * @see #release
+ * @see #destroy
+ * @see #checkDevice
+ */
+public void dispose () {
+    if (isDisposed()) return;
+    checkDevice ();
+    release ();
+    destroy ();
+    disposed = true;
+    if (tracking) {
+        objects = null;
+        errors = null;
+    }
+}
+
+void dispose_Object (Object object) {
+    for (int i=0; i<objects.length; i++) {
+        if (objects [i] is object) {
+            objects [i] = null;
+            errors [i] = null;
+            return;
+        }
+    }
+}
+
+int EnumFontFamProc (int lpelfe, int lpntme, int FontType, int lParam) {
+    bool isScalable = (FontType & OS.RASTER_FONTTYPE) is 0;
+    bool scalable = lParam is 1;
+    if (isScalable is scalable) {
+        /* Add the log font to the list of log fonts */
+        if (nFonts is logFonts.length) {
+            LOGFONT [] newLogFonts = new LOGFONT [logFonts.length + 128];
+            System.arraycopy (logFonts, 0, newLogFonts, 0, nFonts);
+            logFonts = newLogFonts;
+            int[] newPixels = new int[newLogFonts.length];
+            System.arraycopy (pixels, 0, newPixels, 0, nFonts);
+            pixels = newPixels;
+        }
+        LOGFONT logFont = logFonts [nFonts];
+        if (logFont is null) logFont = OS.IsUnicode ? (LOGFONT)new LOGFONTW () : new LOGFONTA ();
+        OS.MoveMemory (logFont, lpelfe, LOGFONT.sizeof);
+        logFonts [nFonts] = logFont;
+        if (logFont.lfHeight > 0) {
+            /*
+             * Feature in Windows. If the lfHeight of the LOGFONT structure
+             * is positive, the lfHeight measures the height of the entire
+             * cell, including internal leading, in logical units. Since the
+             * height of a font in points does not include the internal leading,
+             * we must subtract the internal leading, which requires a TEXTMETRIC,
+             * which in turn requires font creation.
+             */
+            OS.MoveMemory(metrics, lpntme, TEXTMETRIC.sizeof);
+            pixels[nFonts] = logFont.lfHeight - metrics.tmInternalLeading;
+        } else {
+            pixels[nFonts] = -logFont.lfHeight;
+        }
+        nFonts++;
+    }
+    return 1;
+}
+
+/**
+ * Returns a rectangle describing the receiver's size and location.
+ *
+ * @return the bounding rectangle
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public Rectangle getBounds () {
+    checkDevice ();
+    int hDC = internal_new_GC (null);
+    int width = OS.GetDeviceCaps (hDC, OS.HORZRES);
+    int height = OS.GetDeviceCaps (hDC, OS.VERTRES);
+    internal_dispose_GC (hDC, null);
+    return new Rectangle (0, 0, width, height);
+}
+
+/**
+ * Returns a <code>DeviceData</code> based on the receiver.
+ * Modifications made to this <code>DeviceData</code> will not
+ * affect the receiver.
+ *
+ * @return a <code>DeviceData</code> containing the device's data and attributes
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ *
+ * @see DeviceData
+ */
+public DeviceData getDeviceData () {
+    checkDevice();
+    DeviceData data = new DeviceData ();
+    data.debug = debug;
+    data.tracking = tracking;
+    int count = 0, length = 0;
+    if (tracking) length = objects.length;
+    for (int i=0; i<length; i++) {
+        if (objects [i] !is null) count++;
+    }
+    int index = 0;
+    data.objects = new Object [count];
+    data.errors = new Error [count];
+    for (int i=0; i<length; i++) {
+        if (objects [i] !is null) {
+            data.objects [index] = objects [i];
+            data.errors [index] = errors [i];
+            index++;
+        }
+    }
+    return data;
+}
+
+/**
+ * Returns a rectangle which describes the area of the
+ * receiver which is capable of displaying data.
+ * 
+ * @return the client area
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ *
+ * @see #getBounds
+ */
+public Rectangle getClientArea () {
+    return getBounds ();
+}
+
+/**
+ * Returns the bit depth of the screen, which is the number of
+ * bits it takes to represent the number of unique colors that
+ * the screen is currently capable of displaying. This number 
+ * will typically be one of 1, 8, 15, 16, 24 or 32.
+ *
+ * @return the depth of the screen
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public int getDepth () {
+    checkDevice ();
+    int hDC = internal_new_GC (null);
+    int bits = OS.GetDeviceCaps (hDC, OS.BITSPIXEL);
+    int planes = OS.GetDeviceCaps (hDC, OS.PLANES);
+    internal_dispose_GC (hDC, null);
+    return bits * planes;
+}
+
+/**
+ * Returns a point whose x coordinate is the horizontal
+ * dots per inch of the display, and whose y coordinate
+ * is the vertical dots per inch of the display.
+ *
+ * @return the horizontal and vertical DPI
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public Point getDPI () {
+    checkDevice ();
+    int hDC = internal_new_GC (null);
+    int dpiX = OS.GetDeviceCaps (hDC, OS.LOGPIXELSX);
+    int dpiY = OS.GetDeviceCaps (hDC, OS.LOGPIXELSY);
+    internal_dispose_GC (hDC, null);
+    return new Point (dpiX, dpiY);
+}
+
+/**
+ * Returns <code>FontData</code> objects which describe
+ * the fonts that match the given arguments. If the
+ * <code>faceName</code> is null, all fonts will be returned.
+ *
+ * @param faceName the name of the font to look for, or null
+ * @param scalable if true only scalable fonts are returned, otherwise only non-scalable fonts are returned.
+ * @return the matching font data
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public FontData [] getFontList (String faceName, bool scalable) {
+    checkDevice ();
+    
+    /* Create the callback */
+    Callback callback = new Callback (this, "EnumFontFamProc", 4); //$NON-NLS-1$
+    int lpEnumFontFamProc = callback.getAddress ();
+    if (lpEnumFontFamProc is 0) DWT.error (DWT.ERROR_NO_MORE_CALLBACKS);
+    
+    /* Initialize the instance variables */
+    metrics = OS.IsUnicode ? (TEXTMETRIC)new TEXTMETRICW() : new TEXTMETRICA();
+    pixels = new int[nFonts];
+    logFonts = new LOGFONT [nFonts];
+    for (int i=0; i<logFonts.length; i++) {
+        logFonts [i] = OS.IsUnicode ? (LOGFONT) new LOGFONTW () : new LOGFONTA ();
+    }
+    nFonts = 0;
+
+    /* Enumerate */
+    int offset = 0;
+    int hDC = internal_new_GC (null);
+    if (faceName is null) { 
+        /* The user did not specify a face name, so they want all versions of all available face names */
+        OS.EnumFontFamilies (hDC, null, lpEnumFontFamProc, scalable ? 1 : 0);
+        
+        /**
+         * For bitmapped fonts, EnumFontFamilies only enumerates once for each font, regardless
+         * of how many styles are available. If the user wants bitmapped fonts, enumerate on
+         * each face name now.
+         */
+        offset = nFonts;
+        for (int i=0; i<offset; i++) {
+            LOGFONT lf = logFonts [i];
+            /**
+             * Bug in Windows 98. When EnumFontFamiliesEx is called with a specified face name, it
+             * should enumerate for each available style of that font. Instead, it only enumerates
+             * once. The fix is to call EnumFontFamilies, which works as expected.
+             */
+            if (OS.IsUnicode) {
+                OS.EnumFontFamiliesW (hDC, ((LOGFONTW)lf).lfFaceName, lpEnumFontFamProc, scalable ? 1 : 0);
+            } else {
+                OS.EnumFontFamiliesA (hDC, ((LOGFONTA)lf).lfFaceName, lpEnumFontFamProc, scalable ? 1 : 0);
+            }
+        }
+    } else {
+        /* Use the character encoding for the default locale */
+        TCHAR lpFaceName = new TCHAR (0, faceName, true);
+        /**
+         * Bug in Windows 98. When EnumFontFamiliesEx is called with a specified face name, it
+         * should enumerate for each available style of that font. Instead, it only enumerates
+         * once. The fix is to call EnumFontFamilies, which works as expected.
+         */
+        OS.EnumFontFamilies (hDC, lpFaceName, lpEnumFontFamProc, scalable ? 1 : 0);
+    }
+    int logPixelsY = OS.GetDeviceCaps(hDC, OS.LOGPIXELSY);
+    internal_dispose_GC (hDC, null);
+
+    /* Create the fontData from the logfonts */
+    int count = 0;
+    FontData [] result = new FontData [nFonts - offset];
+    for (int i=offset; i<nFonts; i++) {
+        FontData fd = FontData.win32_new (logFonts [i], pixels [i] * 72f / logPixelsY);
+        int j;
+        for (j = 0; j < count; j++) {
+            if (fd.equals (result [j])) break;
+        }
+        if (j is count) result [count++] = fd;
+    }
+    if (count !is result.length) {
+        FontData [] newResult = new FontData [count];
+        System.arraycopy (result, 0, newResult, 0, count);
+        result = newResult;
+    }
+    
+    /* Clean up */
+    callback.dispose ();
+    logFonts = null;
+    pixels = null;
+    metrics = null;
+    return result;
+}
+
+String getLastError () {
+    int error = OS.GetLastError();
+    if (error is 0) return ""; //$NON-NLS-1$
+    return " [GetLastError=0x" + Integer.toHexString(error) + "]"; //$NON-NLS-1$ //$NON-NLS-2$
+}
+
+String getLastErrorText () {
+    int error = OS.GetLastError();
+    if (error is 0) return ""; //$NON-NLS-1$
+    int[] buffer = new int[1];
+    int dwFlags = OS.FORMAT_MESSAGE_ALLOCATE_BUFFER | OS.FORMAT_MESSAGE_FROM_SYSTEM | OS.FORMAT_MESSAGE_IGNORE_INSERTS;
+    int length = OS.FormatMessage(dwFlags, 0, error, OS.LANG_USER_DEFAULT, buffer, 0, 0);
+    if (length is 0) return " [GetLastError=0x" + Integer.toHexString(error) + "]"; //$NON-NLS-1$ //$NON-NLS-2$
+    TCHAR buffer1 = new TCHAR(0, length);
+    OS.MoveMemory(buffer1, buffer[0], length * TCHAR.sizeof);
+    if (buffer[0] !is 0) OS.LocalFree(buffer[0]);
+    return buffer1.toString(0, length);
+}
+
+/**
+ * Returns the matching standard color for the given
+ * constant, which should be one of the color constants
+ * specified in class <code>DWT</code>. Any value other
+ * than one of the DWT color constants which is passed
+ * in will result in the color black. This color should
+ * not be freed because it was allocated by the system,
+ * not the application.
+ *
+ * @param id the color constant
+ * @return the matching color
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ *
+ * @see DWT
+ */
+public Color getSystemColor (int id) {
+    checkDevice ();
+    int pixel = 0x00000000;
+    switch (id) {
+        case DWT.COLOR_WHITE:               pixel = 0x00FFFFFF;  break;
+        case DWT.COLOR_BLACK:               pixel = 0x00000000;  break;
+        case DWT.COLOR_RED:                 pixel = 0x000000FF;  break;
+        case DWT.COLOR_DARK_RED:            pixel = 0x00000080;  break;
+        case DWT.COLOR_GREEN:               pixel = 0x0000FF00;  break;
+        case DWT.COLOR_DARK_GREEN:          pixel = 0x00008000;  break;
+        case DWT.COLOR_YELLOW:              pixel = 0x0000FFFF;  break;
+        case DWT.COLOR_DARK_YELLOW:         pixel = 0x00008080;  break;
+        case DWT.COLOR_BLUE:                pixel = 0x00FF0000;  break;
+        case DWT.COLOR_DARK_BLUE:           pixel = 0x00800000;  break;
+        case DWT.COLOR_MAGENTA:             pixel = 0x00FF00FF;  break;
+        case DWT.COLOR_DARK_MAGENTA:        pixel = 0x00800080;  break;
+        case DWT.COLOR_CYAN:                pixel = 0x00FFFF00;  break;
+        case DWT.COLOR_DARK_CYAN:           pixel = 0x00808000;  break;
+        case DWT.COLOR_GRAY:                pixel = 0x00C0C0C0;  break;
+        case DWT.COLOR_DARK_GRAY:           pixel = 0x00808080;  break;
+    }
+    return Color.win32_new (this, pixel);
+}
+
+/**
+ * Returns a reasonable font for applications to use.
+ * On some platforms, this will match the "default font"
+ * or "system font" if such can be found.  This font
+ * should not be freed because it was allocated by the
+ * system, not the application.
+ * <p>
+ * Typically, applications which want the default look
+ * should simply not set the font on the widgets they
+ * create. Widgets are always created with the correct
+ * default font for the class of user-interface component
+ * they represent.
+ * </p>
+ *
+ * @return a font
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public Font getSystemFont () {
+    checkDevice ();
+    int hFont = OS.GetStockObject (OS.SYSTEM_FONT);
+    return Font.win32_new (this, hFont);
+}
+
+/**
+ * Returns <code>true</code> if the underlying window system prints out
+ * warning messages on the console, and <code>setWarnings</code>
+ * had previously been called with <code>true</code>.
+ *
+ * @return <code>true</code>if warnings are being handled, and <code>false</code> otherwise
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public bool getWarnings () {
+    checkDevice ();
+    return false;
+}
+
+/**
+ * Initializes any internal resources needed by the
+ * device.
+ * <p>
+ * This method is called after <code>create</code>.
+ * </p><p>
+ * If subclasses reimplement this method, they must
+ * call the <code>super</code> implementation.
+ * </p>
+ * 
+ * @see #create
+ */
+protected void init () {
+    if (debug) {
+        if (!OS.IsWinCE) OS.GdiSetBatchLimit(1);
+    }
+
+    /* Initialize scripts list */
+    if (!OS.IsWinCE) {
+        int [] ppSp = new int [1];
+        int [] piNumScripts = new int [1];
+        OS.ScriptGetProperties (ppSp, piNumScripts);
+        scripts = new int [piNumScripts [0]];
+        OS.MoveMemory (scripts, ppSp [0], scripts.length * 4);
+    }
+    
+    /*
+     * If we're not on a device which supports palettes,
+     * don't create one.
+     */
+    int hDC = internal_new_GC (null);
+    int rc = OS.GetDeviceCaps (hDC, OS.RASTERCAPS);
+    int bits = OS.GetDeviceCaps (hDC, OS.BITSPIXEL);
+    int planes = OS.GetDeviceCaps (hDC, OS.PLANES);
+    
+    bits *= planes;
+    if ((rc & OS.RC_PALETTE) is 0 || bits !is 8) {
+        internal_dispose_GC (hDC, null);
+        return;
+    }
+    
+    int numReserved = OS.GetDeviceCaps (hDC, OS.NUMRESERVED);
+    int numEntries = OS.GetDeviceCaps (hDC, OS.SIZEPALETTE);
+
+    if (OS.IsWinCE) {
+        /*
+        * Feature on WinCE.  For some reason, certain 8 bit WinCE
+        * devices return 0 for the number of reserved entries in
+        * the system palette.  Their system palette correctly contains
+        * the usual 20 system colors.  The workaround is to assume
+        * there are 20 reserved system colors instead of 0.
+        */
+        if (numReserved is 0 && numEntries >= 20) numReserved = 20;
+    }
+
+    /* Create the palette and reference counter */
+    colorRefCount = new int [numEntries];
+
+    /* 4 bytes header + 4 bytes per entry * numEntries entries */
+    byte [] logPalette = new byte [4 + 4 * numEntries];
+    
+    /* 2 bytes = special header */
+    logPalette [0] = 0x00;
+    logPalette [1] = 0x03;
+    
+    /* 2 bytes = number of colors, LSB first */
+    logPalette [2] = 0;
+    logPalette [3] = 1;
+
+    /* 
+    * Create a palette which contains the system entries
+    * as they are located in the system palette.  The
+    * MSDN article 'Memory Device Contexts' describes
+    * where system entries are located.  On an 8 bit
+    * display with 20 reserved colors, the system colors
+    * will be the first 10 entries and the last 10 ones.
+    */
+    byte[] lppe = new byte [4 * numEntries];
+    OS.GetSystemPaletteEntries (hDC, 0, numEntries, lppe);
+    /* Copy all entries from the system palette */
+    System.arraycopy (lppe, 0, logPalette, 4, 4 * numEntries);
+    /* Lock the indices corresponding to the system entries */
+    for (int i = 0; i < numReserved / 2; i++) {
+        colorRefCount [i] = 1;
+        colorRefCount [numEntries - 1 - i] = 1;
+    }
+    internal_dispose_GC (hDC, null);
+    hPalette = OS.CreatePalette (logPalette);
+}
+/**  
+ * Invokes platform specific functionality to allocate a new GC handle.
+ * <p>
+ * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
+ * API for <code>Device</code>. It is marked public only so that it
+ * can be shared within the packages provided by DWT. It is not
+ * available on all platforms, and should never be called from
+ * application code.
+ * </p>
+ *
+ * @param data the platform specific GC data 
+ * @return the platform specific GC handle
+ */
+public abstract int internal_new_GC (GCData data);
+
+/**  
+ * Invokes platform specific functionality to dispose a GC handle.
+ * <p>
+ * <b>IMPORTANT:</b> This method is <em>not</em> part of the public
+ * API for <code>Device</code>. It is marked public only so that it
+ * can be shared within the packages provided by DWT. It is not
+ * available on all platforms, and should never be called from
+ * application code.
+ * </p>
+ *
+ * @param hDC the platform specific GC handle
+ * @param data the platform specific GC data 
+ */
+public abstract void internal_dispose_GC (int hDC, GCData data);
+
+/**
+ * Returns <code>true</code> if the device has been disposed,
+ * and <code>false</code> otherwise.
+ * <p>
+ * This method gets the dispose state for the device.
+ * When a device has been disposed, it is an error to
+ * invoke any other method using the device.
+ *
+ * @return <code>true</code> when the device is disposed and <code>false</code> otherwise
+ */
+public bool isDisposed () {
+    return disposed;
+}
+
+/**
+ * Loads the font specified by a file.  The font will be
+ * present in the list of fonts available to the application.
+ *
+ * @param path the font file path
+ * @return whether the font was successfully loaded
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_NULL_ARGUMENT - if path is null</li>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ *
+ * @see Font
+ * 
+ * @since 3.3
+ */
+public bool loadFont (String path) {
+    checkDevice();
+    if (path is null) DWT.error (DWT.ERROR_NULL_ARGUMENT);
+    if (OS.IsWinNT && OS.WIN32_VERSION >= OS.VERSION (4, 10)) {
+        TCHAR lpszFilename = new TCHAR (0, path, true);
+        return OS.AddFontResourceEx (lpszFilename, OS.FR_PRIVATE, 0) !is 0;
+    }
+    return false;
+}
+
+void new_Object (Object object) {
+    for (int i=0; i<objects.length; i++) {
+        if (objects [i] is null) {
+            objects [i] = object;
+            errors [i] = new Error ();
+            return;
+        }
+    }
+    Object [] newObjects = new Object [objects.length + 128];
+    System.arraycopy (objects, 0, newObjects, 0, objects.length);
+    newObjects [objects.length] = object;
+    objects = newObjects;
+    Error [] newErrors = new Error [errors.length + 128];
+    System.arraycopy (errors, 0, newErrors, 0, errors.length);
+    newErrors [errors.length] = new Error ();
+    errors = newErrors;
+}
+
+/**
+ * Releases any internal resources back to the operating
+ * system and clears all fields except the device handle.
+ * <p>
+ * When a device is destroyed, resources that were acquired
+ * on behalf of the programmer need to be returned to the
+ * operating system.  For example, if the device allocated a
+ * font to be used as the system font, this font would be
+ * freed in <code>release</code>.  Also,to assist the garbage
+ * collector and minimize the amount of memory that is not
+ * reclaimed when the programmer keeps a reference to a
+ * disposed device, all fields except the handle are zero'd.
+ * The handle is needed by <code>destroy</code>.
+ * </p>
+ * This method is called before <code>destroy</code>.
+ * </p><p>
+ * If subclasses reimplement this method, they must
+ * call the <code>super</code> implementation.
+ * </p>
+ *
+ * @see #dispose
+ * @see #destroy
+ */
+protected void release () {
+    if (gdipToken !is null) {
+        Gdip.GdiplusShutdown (gdipToken[0]);
+    }
+    gdipToken = null;
+    scripts = null;
+    if (hPalette !is 0) OS.DeleteObject (hPalette);
+    hPalette = 0;
+    colorRefCount = null;
+    logFonts = null;
+    nFonts = 0;
+}
+
+/**
+ * If the underlying window system supports printing warning messages
+ * to the console, setting warnings to <code>false</code> prevents these
+ * messages from being printed. If the argument is <code>true</code> then
+ * message printing is not blocked.
+ *
+ * @param warnings <code>true</code>if warnings should be printed, and <code>false</code> otherwise
+ *
+ * @exception DWTException <ul>
+ *    <li>ERROR_DEVICE_DISPOSED - if the receiver has been disposed</li>
+ * </ul>
+ */
+public void setWarnings (bool warnings) {
+    checkDevice ();
+}
+
+}
++++/
+
+
diff -r 02112e568fee -r d3cfc7ee5c52 dwt/graphics/Resource.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dwt/graphics/Resource.d	Fri Jan 25 14:23:28 2008 +0100
@@ -0,0 +1,78 @@
+/*******************************************************************************
+ * Copyright (c) 2000, 2005 IBM Corporation and others.
+ * All rights reserved. This program and the accompanying materials
+ * are made available under the terms of the Eclipse Public License v1.0
+ * which accompanies this distribution, and is available at
+ * http://www.eclipse.org/legal/epl-v10.html
+ *
+ * Contributors:
+ *     IBM Corporation - initial API and implementation
+ *******************************************************************************/
+module dwt.graphics.Resource;
+
+import dwt.DWT;
+import dwt.graphics.Device;
+
+/**
+ * This class is the abstract superclass of all graphics resource objects.  
+ * Resources created by the application must be disposed.
+ * <p>
+ * IMPORTANT: This class is intended to be subclassed <em>only</em>
+ * within the DWT implementation. However, it has not been marked
+ * final to allow those outside of the DWT development team to implement
+ * patched versions of the class in order to get around specific
+ * limitations in advance of when those limitations can be addressed
+ * by the team.  Any class built using subclassing to access the internals
+ * of this class will likely fail to compile or run between releases and
+ * may be strongly platform specific. Subclassing should not be attempted
+ * without an intimate and detailed understanding of the workings of the
+ * hierarchy. No support is provided for user-written classes which are
+ * implemented as subclasses of this class.
+ * </p>
+ *
+ * @see #dispose
+ * @see #isDisposed
+ * 
+ * @since 3.1
+ */
+public abstract class Resource {
+    
+    /**
+     * the device where this resource was created
+     */
+    Device device;
+
+/**
+ * Disposes of the operating system resources associated with
+ * this resource. Applications must dispose of all resources
+ * which they allocate.
+ */
+public abstract void dispose();
+
+/**
+ * Returns the <code>Device</code> where this resource was
+ * created.
+ *
+ * @return <code>Device</code> the device of the receiver
+ * 
+ * @since 3.2
+ */
+public Device getDevice() {
+    Device device = this.device;
+    if (device is null || isDisposed ()) DWT.error (DWT.ERROR_GRAPHIC_DISPOSED);
+    return device;
+}
+
+/**
+ * Returns <code>true</code> if the resource has been disposed,
+ * and <code>false</code> otherwise.
+ * <p>
+ * This method gets the dispose state for the resource.
+ * When a resource has been disposed, it is an error to
+ * invoke any other method using the resource.
+ *
+ * @return <code>true</code> when the resource is disposed and <code>false</code> otherwise
+ */
+public abstract bool isDisposed();
+
+}