/*******************************************************************************
 * 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.FileDialog;

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

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

}

/++
import dwt.DWT;
import dwt.DWTException;
import dwt.internal.Callback;
import dwt.internal.win32.OFNOTIFY;
import dwt.internal.win32.OPENFILENAME;
import dwt.internal.win32.OS;
import dwt.internal.win32.TCHAR;

/**
 * Instances of this class allow the user to navigate
 * the file system and select or enter a file name.
 * <dl>
 * <dt><b>Styles:</b></dt>
 * <dd>SAVE, OPEN, MULTI</dd>
 * <dt><b>Events:</b></dt>
 * <dd>(none)</dd>
 * </dl>
 * <p>
 * Note: Only one of the styles SAVE and OPEN may be specified.
 * </p><p>
 * IMPORTANT: This class is intended to be subclassed <em>only</em>
 * within the DWT implementation.
 * </p>
 */
public class FileDialog extends Dialog {
    String [] filterNames = new String [0];
    String [] filterExtensions = new String [0];
    String [] fileNames = new String [0];
    String filterPath = "", fileName = "";
    static final String FILTER = "*.*";
    static int BUFFER_SIZE = 1024 * 32;
    static bool USE_HOOK;

/**
 * Constructs a new instance of this class given only its parent.
 *
 * @param parent a shell 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>
 */
public FileDialog (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 shell which will be the parent of the new instance
 * @param style the style of dialog 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>
 */
public FileDialog (Shell parent, int style) {
    super (parent, style);
    checkSubclass ();
}

/**
 * Returns the path of the first file that was
 * selected in the dialog relative to the filter path, or an
 * empty string if no such file has been selected.
 *
 * @return the relative path of the file
 */
public String getFileName () {
    return fileName;
}

/**
 * Returns a (possibly empty) array with the paths of all files
 * that were selected in the dialog relative to the filter path.
 *
 * @return the relative paths of the files
 */
public String [] getFileNames () {
    return fileNames;
}

/**
 * Returns the file extensions which the dialog will
 * use to filter the files it shows.
 *
 * @return the file extensions filter
 */
public String [] getFilterExtensions () {
    return filterExtensions;
}

/**
 * Returns the names that describe the filter extensions
 * which the dialog will use to filter the files it shows.
 *
 * @return the list of filter names
 */
public String [] getFilterNames () {
    return filterNames;
}

/**
 * Returns the directory path that the dialog will use, or an empty
 * string if this is not set.  File names in this path will appear
 * in the dialog, filtered according to the filter extensions.
 *
 * @return the directory path string
 *
 * @see #setFilterExtensions
 */
public String getFilterPath () {
    return filterPath;
}

int OFNHookProc (int hdlg, int uiMsg, int wParam, int lParam) {
    switch (uiMsg) {
        case OS.WM_NOTIFY:
            OFNOTIFY ofn = new OFNOTIFY ();
            OS.MoveMemory (ofn, lParam, OFNOTIFY.sizeof);
            if (ofn.code is OS.CDN_SELCHANGE) {
                int lResult = OS.SendMessage (ofn.hwndFrom, OS.CDM_GETSPEC, 0, 0);
                if (lResult > 0) {
                    lResult += OS.MAX_PATH;
                    OPENFILENAME lpofn = new OPENFILENAME ();
                    OS.MoveMemory (lpofn, ofn.lpOFN, OPENFILENAME.sizeof);
                    if (lpofn.nMaxFile < lResult) {
                        int hHeap = OS.GetProcessHeap ();
                        int lpstrFile = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, lResult * TCHAR.sizeof);
                        if (lpstrFile !is 0) {
                            if (lpofn.lpstrFile !is 0) OS.HeapFree (hHeap, 0, lpofn.lpstrFile);
                            lpofn.lpstrFile = lpstrFile;
                            lpofn.nMaxFile = lResult;
                            OS.MoveMemory (ofn.lpOFN, lpofn, OPENFILENAME.sizeof);
                        }
                    }
              }
          }
          break;
    }
    return 0;
}

/**
 * Makes the dialog visible and brings it to the front
 * of the display.
 *
 * @return a string describing the absolute path of the first selected file,
 *         or null if the dialog was cancelled or an error occurred
 *
 * @exception DWTException <ul>
 *    <li>ERROR_WIDGET_DISPOSED - if the dialog has been disposed</li>
 *    <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the dialog</li>
 * </ul>
 */
public String open () {
    int hHeap = OS.GetProcessHeap ();

    /* Get the owner HWND for the dialog */
    int hwndOwner = 0;
    if (parent !is null) hwndOwner = parent.handle;

    /* Convert the title and copy it into lpstrTitle */
    if (title is null) title = "";
    /* Use the character encoding for the default locale */
    TCHAR buffer3 = new TCHAR (0, title, true);
    int byteCount3 = buffer3.length () * TCHAR.sizeof;
    int lpstrTitle = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, byteCount3);
    OS.MoveMemory (lpstrTitle, buffer3, byteCount3);

    /* Compute filters and copy into lpstrFilter */
    String strFilter = "";
    if (filterNames is null) filterNames = new String [0];
    if (filterExtensions is null) filterExtensions = new String [0];
    for (int i=0; i<filterExtensions.length; i++) {
        String filterName = filterExtensions [i];
        if (i < filterNames.length) filterName = filterNames [i];
        strFilter = strFilter + filterName + '\0' + filterExtensions [i] + '\0';
    }
    if (filterExtensions.length is 0) {
        strFilter = strFilter + FILTER + '\0' + FILTER + '\0';
    }
    /* Use the character encoding for the default locale */
    TCHAR buffer4 = new TCHAR (0, strFilter, true);
    int byteCount4 = buffer4.length () * TCHAR.sizeof;
    int lpstrFilter = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, byteCount4);
    OS.MoveMemory (lpstrFilter, buffer4, byteCount4);

    /* Convert the fileName and filterName to C strings */
    if (fileName is null) fileName = "";
    /* Use the character encoding for the default locale */
    TCHAR name = new TCHAR (0, fileName, true);

    /*
    * Copy the name into lpstrFile and ensure that the
    * last byte is NULL and the buffer does not overrun.
    */
    int nMaxFile = OS.MAX_PATH;
    if ((style & DWT.MULTI) !is 0) nMaxFile = Math.max (nMaxFile, BUFFER_SIZE);
    int byteCount = nMaxFile * TCHAR.sizeof;
    int lpstrFile = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, byteCount);
    int byteCountFile = Math.min (name.length () * TCHAR.sizeof, byteCount - TCHAR.sizeof);
    OS.MoveMemory (lpstrFile, name, byteCountFile);

    /*
    * Copy the path into lpstrInitialDir and ensure that
    * the last byte is NULL and the buffer does not overrun.
    */
    if (filterPath is null) filterPath = "";
    /* Use the character encoding for the default locale */
    TCHAR path = new TCHAR (0, filterPath.replace ('/', '\\'), true);
    int byteCount5 = OS.MAX_PATH * TCHAR.sizeof;
    int lpstrInitialDir = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, byteCount5);
    int byteCountDir = Math.min (path.length () * TCHAR.sizeof, byteCount5 - TCHAR.sizeof);
    OS.MoveMemory (lpstrInitialDir, path, byteCountDir);

    /* Create the file dialog struct */
    OPENFILENAME struct = new OPENFILENAME ();
    struct.lStructSize = OPENFILENAME.sizeof;
    struct.Flags = OS.OFN_HIDEREADONLY | OS.OFN_NOCHANGEDIR;
    Callback callback = null;
    if ((style & DWT.MULTI) !is 0) {
        struct.Flags |= OS.OFN_ALLOWMULTISELECT | OS.OFN_EXPLORER;
        if (!OS.IsWinCE && USE_HOOK) {
            callback = new Callback (this, "OFNHookProc", 4); //$NON-NLS-1$
            int lpfnHook = callback.getAddress ();
            if (lpfnHook is 0) DWT.error (DWT.ERROR_NO_MORE_CALLBACKS);
            struct.lpfnHook = lpfnHook;
            struct.Flags |= OS.OFN_ENABLEHOOK;
        }
    }
    struct.hwndOwner = hwndOwner;
    struct.lpstrTitle = lpstrTitle;
    struct.lpstrFile = lpstrFile;
    struct.nMaxFile = nMaxFile;
    struct.lpstrInitialDir = lpstrInitialDir;
    struct.lpstrFilter = lpstrFilter;
    struct.nFilterIndex = 0;

    /*
    * Set the default extension to an empty string.  If the
    * user fails to type an extension and this extension is
    * empty, Windows uses the current value of the filter
    * extension at the time that the dialog is closed.
    */
    int lpstrDefExt = 0;
    bool save = (style & DWT.SAVE) !is 0;
    if (save) {
        lpstrDefExt = OS.HeapAlloc (hHeap, OS.HEAP_ZERO_MEMORY, TCHAR.sizeof);
        struct.lpstrDefExt = lpstrDefExt;
    }

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

    /*
    * Feature in Windows.  For some reason, the WH_MSGFILTER filter
    * does not run for GetSaveFileName() or GetOpenFileName().  The
    * fix is to allow async messages to run in the WH_FOREGROUNDIDLE
    * hook instead.
    *
    * Bug in Windows 98.  For some reason, when certain operating
    * system calls such as Shell_NotifyIcon(), GetOpenFileName()
    * and GetSaveFileName() are made during the WH_FOREGROUNDIDLE
    * hook, Windows hangs.  The fix is to disallow async messages
    * during WH_FOREGROUNDIDLE.
    */
    bool oldRunMessagesInIdle = display.runMessagesInIdle;
    display.runMessagesInIdle = !OS.IsWin95;
    /*
    * Open the dialog.  If the open fails due to an invalid
    * file name, use an empty file name and open it again.
    */
    bool success = (save) ? OS.GetSaveFileName (struct) : OS.GetOpenFileName (struct);
    switch (OS.CommDlgExtendedError ()) {
        case OS.FNERR_INVALIDFILENAME:
            OS.MoveMemory (lpstrFile, new TCHAR (0, "", true), TCHAR.sizeof);
            success = (save) ? OS.GetSaveFileName (struct) : OS.GetOpenFileName (struct);
            break;
        case OS.FNERR_BUFFERTOOSMALL:
            USE_HOOK = true;
            break;
    }
    display.runMessagesInIdle = oldRunMessagesInIdle;

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

    /* Dispose the callback and reassign the buffer */
    if (callback !is null) callback.dispose ();
    lpstrFile = struct.lpstrFile;

    /* Set the new path, file name and filter */
    fileNames = new String [0];
    String fullPath = null;
    if (success) {

        /* Use the character encoding for the default locale */
        TCHAR buffer = new TCHAR (0, struct.nMaxFile);
        int byteCount1 = buffer.length () * TCHAR.sizeof;
        OS.MoveMemory (buffer, lpstrFile, byteCount1);

        /*
        * Bug in WinCE.  For some reason, nFileOffset and nFileExtension
        * are always zero on WinCE HPC. nFileOffset is always zero on
        * WinCE PPC when using GetSaveFileName().  nFileOffset is correctly
        * set on WinCE PPC when using OpenFileName().  The fix is to parse
        * lpstrFile to calculate nFileOffset.
        *
        * Note: WinCE does not support multi-select file dialogs.
        */
        int nFileOffset = struct.nFileOffset;
        if (OS.IsWinCE && nFileOffset is 0) {
            int index = 0;
            while (index < buffer.length ()) {
                int ch = buffer.tcharAt (index);
                if (ch is 0) break;
                if (ch is '\\') nFileOffset = index + 1;
                index++;
            }
        }
        if (nFileOffset > 0) {

            /* Use the character encoding for the default locale */
            TCHAR prefix = new TCHAR (0, nFileOffset - 1);
            int byteCount2 = prefix.length () * TCHAR.sizeof;
            OS.MoveMemory (prefix, lpstrFile, byteCount2);
            filterPath = prefix.toString (0, prefix.length ());

            /*
            * Get each file from the buffer.  Files are delimited
            * by a NULL character with 2 NULL characters at the end.
            */
            int count = 0;
            fileNames = new String [(style & DWT.MULTI) !is 0 ? 4 : 1];
            int start = nFileOffset;
            do {
                int end = start;
                while (end < buffer.length () && buffer.tcharAt (end) !is 0) end++;
                String string = buffer.toString (start, end - start);
                start = end;
                if (count is fileNames.length) {
                    String [] newFileNames = new String [fileNames.length + 4];
                    System.arraycopy (fileNames, 0, newFileNames, 0, fileNames.length);
                    fileNames = newFileNames;
                }
                fileNames [count++] = string;
                if ((style & DWT.MULTI) is 0) break;
                start++;
            } while (start < buffer.length () && buffer.tcharAt (start) !is 0);

            if (fileNames.length > 0) fileName = fileNames  [0];
            String separator = "";
            int length = filterPath.length ();
            if (length > 0 && filterPath.charAt (length - 1) !is '\\') {
                separator = "\\";
            }
            fullPath = filterPath + separator + fileName;
            if (count < fileNames.length) {
                String [] newFileNames = new String [count];
                System.arraycopy (fileNames, 0, newFileNames, 0, count);
                fileNames = newFileNames;
            }
        }
    }

    /* Free the memory that was allocated. */
    OS.HeapFree (hHeap, 0, lpstrFile);
    OS.HeapFree (hHeap, 0, lpstrFilter);
    OS.HeapFree (hHeap, 0, lpstrInitialDir);
    OS.HeapFree (hHeap, 0, lpstrTitle);
    if (lpstrDefExt !is 0) OS.HeapFree (hHeap, 0, lpstrDefExt);

    /*
    * 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);

    /* Answer the full path or null */
    return fullPath;
}

/**
 * Set the initial filename which the dialog will
 * select by default when opened to the argument,
 * which may be null.  The name will be prefixed with
 * the filter path when one is supplied.
 *
 * @param string the file name
 */
public void setFileName (String string) {
    fileName = string;
}

/**
 * Set the file extensions which the dialog will
 * use to filter the files it shows to the argument,
 * which may be null.
 * <p>
 * The strings are platform specific. For example, on
 * Windows, an extension filter string is typically of
 * the form "*.extension", where "*.*" matches all files.
 * </p>
 *
 * @param extensions the file extension filter
 *
 * @see #setFilterNames to specify the user-friendly
 * names corresponding to the extensions
 */
public void setFilterExtensions (String [] extensions) {
    filterExtensions = extensions;
}

/**
 * Sets the the names that describe the filter extensions
 * which the dialog will use to filter the files it shows
 * to the argument, which may be null.
 * <p>
 * Each name is a user-friendly short description shown for
 * its corresponding filter. The <code>names</code> array must
 * be the same length as the <code>extensions</code> array.
 * </p>
 *
 * @param names the list of filter names, or null for no filter names
 *
 * @see #setFilterExtensions
 */
public void setFilterNames (String [] names) {
    filterNames = names;
}

/**
 * Sets the directory path that the dialog will use
 * to the argument, which may be null. File names in this
 * path will appear in the dialog, filtered according
 * to the filter extensions. If the string is null,
 * then the operating system's default filter path
 * will be used.
 * <p>
 * Note that the path string is platform dependent.
 * For convenience, either '/' or '\' can be used
 * as a path separator.
 * </p>
 *
 * @param string the directory path
 *
 * @see #setFilterExtensions
 */
public void setFilterPath (String string) {
    filterPath = string;
}

}
++/