/*******************************************************************************
 * 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
 * Port to the D programming language:
 *     Frank Benoit <benoit@tionex.de>
 *******************************************************************************/
module dwt.widgets.ColorDialog;

import dwt.widgets.Dialog;
import dwt.widgets.Shell;

class ColorDialog : Dialog {
    public this (Shell parent, int style) {
        super (parent, style);
    }
}

/++
import dwt.DWT;
import dwt.DWTException;
import dwt.graphics.PaletteData;
import dwt.graphics.RGB;
import dwt.internal.Callback;
import dwt.internal.win32.CHOOSECOLOR;
import dwt.internal.win32.OS;
import dwt.internal.win32.RECT;
import dwt.internal.win32.TCHAR;

/**
 * Instances of this class allow the user to select a color
 * from a predefined set of available colors.
 * <dl>
 * <dt><b>Styles:</b></dt>
 * <dd>(none)</dd>
 * <dt><b>Events:</b></dt>
 * <dd>(none)</dd>
 * </dl>
 * <p>
 * IMPORTANT: This class is intended to be subclassed <em>only</em>
 * within the DWT implementation.
 * </p>
 */

public class ColorDialog extends Dialog {
    Display display;
    int width, height;
    RGB rgb;

/**
 * Constructs a new instance of this class given only its parent.
 *
 * @param parent a composite control which will be the parent of the new instance
 *
 * @exception IllegalArgumentException <ul>
 *    <li>ERROR_NULL_ARGUMENT - if the parent is null</li>
 * </ul>
 * @exception DWTException <ul>
 *    <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the parent</li>
 *    <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
 * </ul>
 *
 * @see DWT
 * @see Widget#checkSubclass
 * @see Widget#getStyle
 */
public ColorDialog (Shell parent) {
    this (parent, DWT.PRIMARY_MODAL);
}

/**
 * Constructs a new instance of this class given its parent
 * and a style value describing its behavior and appearance.
 * <p>
 * The style value is either one of the style constants defined in
 * class <code>DWT</code> which is applicable to instances of this
 * class, or must be built by <em>bitwise OR</em>'ing together
 * (that is, using the <code>int</code> "|" operator) two or more
 * of those <code>DWT</code> style constants. The class description
 * lists the style constants that are applicable to the class.
 * Style bits are also inherited from superclasses.
 * </p>
 *
 * @param parent a composite control which will be the parent of the new instance (cannot be null)
 * @param style the style of control to construct
 *
 * @exception IllegalArgumentException <ul>
 *    <li>ERROR_NULL_ARGUMENT - if the parent is null</li>
 * </ul>
 * @exception DWTException <ul>
 *    <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the parent</li>
 *    <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
 * </ul>
 *
 * @see DWT
 * @see Widget#checkSubclass
 * @see Widget#getStyle
 */
public ColorDialog (Shell parent, int style) {
    super (parent, style);
    checkSubclass ();
}

int CCHookProc (int hdlg, int uiMsg, int lParam, int lpData) {
    switch (uiMsg) {
        case OS.WM_INITDIALOG: {
            RECT rect = new RECT ();
            OS.GetWindowRect (hdlg, rect);
            width = rect.right - rect.left;
            height = rect.bottom - rect.top;
            if (title !is null && title.length () !is 0) {
                /* Use the character encoding for the default locale */
                TCHAR buffer = new TCHAR (0, title, true);
                OS.SetWindowText (hdlg, buffer);
            }
            break;
        }
        case OS.WM_DESTROY: {
            RECT rect = new RECT ();
            OS.GetWindowRect (hdlg, rect);
            int newWidth = rect.right - rect.left;
            int newHeight = rect.bottom - rect.top;
            if (newWidth < width || newHeight < height) {
                //display.fullOpen = false;
            } else {
                if (newWidth > width || newHeight > height) {
                    //display.fullOpen = true;
                }
            }
            break;
        }
    }
    return 0;
}

/**
 * Returns the currently selected color in the receiver.
 *
 * @return the RGB value for the selected color, may be null
 *
 * @see PaletteData#getRGBs
 */
public RGB getRGB () {
    return rgb;
}

/**
 * Makes the receiver visible and brings it to the front
 * of the display.
 *
 * @return the selected color, or null if the dialog was
 *         cancelled, no color was selected, or an error
 *         occurred
 *
 * @exception DWTException <ul>
 *    <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
 *    <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
 * </ul>
 */
public RGB open () {

    /* Get the owner HWND for the dialog */
    int hwndOwner = parent.handle;

    /* Create the CCHookProc */
    Callback callback = new Callback (this, "CCHookProc", 4); //$NON-NLS-1$
    int lpfnHook = callback.getAddress ();
    if (lpfnHook is 0) DWT.error(DWT.ERROR_NO_MORE_CALLBACKS);

    /* Allocate the Custom Colors */
    display = parent.display;
    if (display.lpCustColors is 0) {
        int hHeap = OS.GetProcessHeap ();
        display.lpCustColors = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, 16 * 4);
    }

    /* Open the dialog */
    CHOOSECOLOR lpcc = new CHOOSECOLOR ();
    lpcc.lStructSize = CHOOSECOLOR.sizeof;
    lpcc.Flags = OS.CC_ANYCOLOR | OS.CC_ENABLEHOOK;
    //if (display.fullOpen) lpcc.Flags |= OS.CC_FULLOPEN;
    lpcc.lpfnHook = lpfnHook;
    lpcc.hwndOwner = hwndOwner;
    lpcc.lpCustColors = display.lpCustColors;
    if (rgb !is null) {
        lpcc.Flags |= OS.CC_RGBINIT;
        int red = rgb.red & 0xFF;
        int green = (rgb.green << 8) & 0xFF00;
        int blue = (rgb.blue << 16) & 0xFF0000;
        lpcc.rgbResult = red | green | blue;
    }

    /* Make the parent shell be temporary modal */
    Shell oldModal = null;
    if ((style & (DWT.APPLICATION_MODAL | DWT.SYSTEM_MODAL)) !is 0) {
        oldModal = display.getModalDialogShell ();
        display.setModalDialogShell (parent);
    }

    /* Open the dialog */
    bool success = OS.ChooseColor (lpcc);

    /* Clear the temporary dialog modal parent */
    if ((style & (DWT.APPLICATION_MODAL | DWT.SYSTEM_MODAL)) !is 0) {
        display.setModalDialogShell (oldModal);
    }

    if (success) {
        int red = lpcc.rgbResult & 0xFF;
        int green = (lpcc.rgbResult >> 8) & 0xFF;
        int blue = (lpcc.rgbResult >> 16) & 0xFF;
        rgb = new RGB (red, green, blue);
    }

    /* Free the CCHookProc */
    callback.dispose ();

    /* Free the Custom Colors */
    /*
    * This code is intentionally commented.  Currently,
    * there is exactly one set of custom colors per display.
    * The memory associated with these colors is released
    * when the display is disposed.
    */
//  if (lpCustColors !is 0) OS.HeapFree (hHeap, 0, lpCustColors);

    /*
    * This code is intentionally commented.  On some
    * platforms, the owner window is repainted right
    * away when a dialog window exits.  This behavior
    * is currently unspecified.
    */
//  if (hwndOwner !is 0) OS.UpdateWindow (hwndOwner);

    if (!success) return null;
    return rgb;
}

/**
 * Sets the receiver's selected color to be the argument.
 *
 * @param rgb the new RGB value for the selected color, may be
 *        null to let the platform select a default when
 *        open() is called
 * @see PaletteData#getRGBs
 */
public void setRGB (RGB rgb) {
    this.rgb = rgb;
}

}
++/