src/motif/filedlg.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        filedlg.cpp
// Purpose:     wxFileDialog
// Author:      Julian Smart
// Modified by:
// Created:     17/09/98
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "filedlg.h"
#endif

#ifdef __VMS
#define XtDisplay XTDISPLAY
#define XtParent XTPARENT
#define XtWindow XTWINDOW
#endif

#include "wx/defs.h"
#include "wx/utils.h"
#include "wx/dialog.h"
#include "wx/filedlg.h"
#include "wx/intl.h"
#include "wx/app.h"
#include "wx/settings.h"

#ifdef __VMS__
#pragma message disable nosimpint
#endif
#include <Xm/Xm.h>
#include <Xm/MwmUtil.h>
#include <Xm/Label.h>
#include <Xm/BulletinB.h>
#include <Xm/Frame.h>
#include <Xm/Text.h>
#include <Xm/DialogS.h>
#include <Xm/FileSB.h>
#include <Xm/RowColumn.h>
#include <Xm/LabelG.h>
#ifdef __VMS__
#pragma message enable nosimpint
#endif

#include "wx/motif/private.h"

IMPLEMENT_CLASS(wxFileDialog, wxDialog)

#define DEFAULT_FILE_SELECTOR_SIZE 0
// Let Motif defines the size of File
// Selector Box (if 1), or fix it to
// wxFSB_WIDTH x wxFSB_HEIGHT (if 0)
#define wxFSB_WIDTH                600
#define wxFSB_HEIGHT               500


wxString wxFileSelector(const char *title,
                     const char *defaultDir, const char *defaultFileName,
                     const char *defaultExtension, const char *filter, int flags,
                     wxWindow *parent, int x, int y)
{
    // If there's a default extension specified but no filter, we create a suitable
    // filter.

    wxString filter2("");
    if ( defaultExtension && !filter )
        filter2 = wxString("*.") + wxString(defaultExtension) ;
    else if ( filter )
        filter2 = filter;

    wxString defaultDirString;
    if (defaultDir)
        defaultDirString = defaultDir;
    else
        defaultDirString = "";

    wxString defaultFilenameString;
    if (defaultFileName)
        defaultFilenameString = defaultFileName;
    else
        defaultFilenameString = "";

    wxFileDialog fileDialog(parent, title, defaultDirString, defaultFilenameString, filter2, flags, wxPoint(x, y));

    if ( fileDialog.ShowModal() == wxID_OK )
    {
        return fileDialog.GetPath();
    }
    else
        return wxEmptyString;
}

wxString wxFileSelectorEx(const char *title,
                       const char *defaultDir,
                       const char *defaultFileName,
                       int* defaultFilterIndex,
                       const char *filter,
                       int       flags,
                       wxWindow* parent,
                       int       x,
                       int       y)

{
    wxFileDialog fileDialog(parent, title ? title : "", defaultDir ? defaultDir : "",
        defaultFileName ? defaultFileName : "", filter ? filter : "", flags, wxPoint(x, y));

    if ( fileDialog.ShowModal() == wxID_OK )
    {
        *defaultFilterIndex = fileDialog.GetFilterIndex();
        return fileDialog.GetPath();
    }
    else
        return wxEmptyString;
}

wxString wxFileDialog::m_fileSelectorAnswer = "";
bool wxFileDialog::m_fileSelectorReturned = FALSE;

void wxFileSelCancel( Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data),
                     XmFileSelectionBoxCallbackStruct *WXUNUSED(cbs) )
{
    wxFileDialog::m_fileSelectorAnswer = "";
    wxFileDialog::m_fileSelectorReturned = TRUE;
}

void wxFileSelOk(Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data), XmFileSelectionBoxCallbackStruct *cbs)
{
    char *filename = NULL;
    if (!XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &filename)) {
        wxFileDialog::m_fileSelectorAnswer = "";
        wxFileDialog::m_fileSelectorReturned = TRUE;
    } else {
        if (filename) {
            wxFileDialog::m_fileSelectorAnswer = filename;
            XtFree(filename);
        }
        wxFileDialog::m_fileSelectorReturned = TRUE;
    }
}

wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
                           const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
                           long style, const wxPoint& pos)
{
    m_message = message;
    m_dialogStyle = style;
    m_parent = parent;
    m_path = "";
    m_fileName = defaultFileName;
    m_dir = defaultDir;
    m_wildCard = wildCard;
    m_filterIndex = 1;
    m_pos = pos;
}

static void wxChangeListBoxColours(wxWindow* WXUNUSED(win), Widget widget)
{
    wxWindow::DoChangeBackgroundColour((WXWidget) widget, *wxWHITE);

    // Change colour of the scrolled areas of the listboxes
    Widget listParent = XtParent (widget);
    wxWindow::DoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, TRUE);

    Widget hsb = (Widget) 0;
    Widget vsb = (Widget) 0;
    XtVaGetValues (listParent,
        XmNhorizontalScrollBar, &hsb,
        XmNverticalScrollBar, &vsb,
        NULL);

   /* TODO: should scrollbars be affected? Should probably have separate
    * function to change them (by default, taken from wxSystemSettings)
    */
    wxColour backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE);
    wxWindow::DoChangeBackgroundColour((WXWidget) hsb, backgroundColour, TRUE);
    wxWindow::DoChangeBackgroundColour((WXWidget) vsb, backgroundColour, TRUE);

    if (hsb)
      XtVaSetValues (hsb,
        XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
        NULL);
    if (vsb)
      XtVaSetValues (vsb,
        XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
        NULL);
}

int wxFileDialog::ShowModal()
{
    wxBeginBusyCursor();

    //  static char fileBuf[512];
    Widget parentWidget = (Widget) 0;
    if (m_parent)
    {
        parentWidget = (Widget) m_parent->GetTopWidget();
    }
    else
        parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
    // prepare the arg list
    Arg args[10];
    int ac = 0;

    wxComputeColours (XtDisplay(parentWidget), & m_backgroundColour,
        (wxColour*) NULL);

    XtSetArg(args[ac], XmNbackground, g_itemColors[wxBACK_INDEX].pixel); ac++;
    XtSetArg(args[ac], XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel); ac++;
    XtSetArg(args[ac], XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel); ac++;
    XtSetArg(args[ac], XmNforeground, g_itemColors[wxFORE_INDEX].pixel); ac++;


    Widget fileSel = XmCreateFileSelectionDialog(parentWidget, "file_selector", args, ac);
    XtUnmanageChild(XmFileSelectionBoxGetChild(fileSel, XmDIALOG_HELP_BUTTON));

    Widget filterWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_FILTER_TEXT);
    Widget selectionWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_TEXT);
    Widget dirListWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_DIR_LIST);
    Widget fileListWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_LIST);

    // code using these vars disabled
#if 0
    Widget okWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_OK_BUTTON);
    Widget applyWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_APPLY_BUTTON);
    Widget cancelWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_CANCEL_BUTTON);
#endif


    Widget shell = XtParent(fileSel);

    if (!m_message.IsNull())
        XtVaSetValues(shell, XmNtitle, (char*) (const char*) m_message, NULL);

    wxString entirePath("");

    if ((m_dir != "") && (m_fileName != ""))
    {
        entirePath = m_dir + wxString("/") + m_fileName;
    }
    else if ((m_dir != "") && (m_fileName == ""))
    {
        entirePath = m_dir + wxString("/");
    }
    else if ((m_dir == "") && (m_fileName != ""))
    {
        entirePath = m_fileName;
    }

    if (entirePath != "")
    {
        XmTextSetString(selectionWidget, (char*) (const char*) entirePath);
    }

    if (m_wildCard != "")
    {
        wxString filter("");
        if (m_dir != "")
            filter = m_dir + wxString("/") + m_wildCard;
        else
            filter = m_wildCard;

        XmTextSetString(filterWidget, (char*) (const char*) filter);
        XmFileSelectionDoSearch(fileSel, NULL);
    }

    // Suggested by Terry Gitnick, 16/9/97, because of change in Motif
    // file selector on Solaris 1.5.1.
    if ( m_dir != "" )
    {
        XmString thePath = XmStringCreateLtoR ((char*) (const char*) m_dir,
            XmSTRING_DEFAULT_CHARSET);

        XtVaSetValues (fileSel,
            XmNdirectory, thePath,
            NULL);

        XmStringFree(thePath);
    }

    XtAddCallback(fileSel, XmNcancelCallback, (XtCallbackProc)wxFileSelCancel, (XtPointer)NULL);
    XtAddCallback(fileSel, XmNokCallback, (XtCallbackProc)wxFileSelOk, (XtPointer)NULL);

    //#if XmVersion > 1000
    // I'm not sure about what you mean with XmVersion.
    // If this is for Motif1.1/Motif1.2, then check XmVersion>=1200
    // (Motif1.1.4 ==> XmVersion 1100 )
    // Nevertheless, I put here a #define, so anyone can choose in (I)makefile...
    //
#if !DEFAULT_FILE_SELECTOR_SIZE
    int width = wxFSB_WIDTH;
    int height = wxFSB_HEIGHT;
    XtVaSetValues(fileSel,
        XmNwidth, width,
        XmNheight, height,
        XmNresizePolicy, XmRESIZE_NONE,
        NULL);
#endif
    //    DoChangeBackgroundColour((WXWidget) fileSel, m_backgroundColour);
    DoChangeBackgroundColour((WXWidget) filterWidget, *wxWHITE);
    DoChangeBackgroundColour((WXWidget) selectionWidget, *wxWHITE);

    wxChangeListBoxColours(this, dirListWidget);
    wxChangeListBoxColours(this, fileListWidget);

    XtManageChild(fileSel);

    m_fileSelectorAnswer = "";
    m_fileSelectorReturned = FALSE;

    wxEndBusyCursor();

    XtAddGrab(XtParent(fileSel), TRUE, FALSE);
    XEvent event;
    while (!m_fileSelectorReturned)
    {
        XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
    }
    XtRemoveGrab(XtParent(fileSel));

    XmUpdateDisplay((Widget) wxTheApp->GetTopLevelWidget()); // Experimental

    //  XtDestroyWidget(fileSel);
    XtUnmapWidget(XtParent(fileSel));
    XtDestroyWidget(XtParent(fileSel));

    // Now process all events, because otherwise
    // this might remain on the screen
    XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE);
    while (XtAppPending((XtAppContext) wxTheApp->GetAppContext()))
    {
        XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()));
        XtAppNextEvent((XtAppContext) wxTheApp->GetAppContext(), &event);
        XtDispatchEvent(&event);
    }

    m_path = m_fileSelectorAnswer;
    m_fileName = wxFileNameFromPath(m_fileSelectorAnswer);
    m_dir = wxPathOnly(m_path);

    if (m_fileName == "")
        return wxID_CANCEL;
    else
        return wxID_OK;
}

// Generic file load/save dialog
static wxString
wxDefaultFileSelector(bool load, const char *what, const char *extension, const char *default_name, wxWindow *parent)
{
    char *ext = (char *)extension;

    wxString prompt;
    wxString str;
    if (load)
        str = _("Load %s file");
    else
        str = _("Save %s file");
    prompt.Printf(str, what);

    if (*ext == '.')
        ext++;
    wxString wild;
    wild.Printf("*.%s", ext);

    return wxFileSelector (prompt, NULL, default_name, ext, wild, 0, parent);
}

// Generic file load dialog
wxString wxLoadFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
{
    return wxDefaultFileSelector(TRUE, what, extension, default_name, parent);
}


// Generic file save dialog
wxString wxSaveFileSelector(const char *what, const char *extension, const char *default_name, wxWindow *parent)
{
    return wxDefaultFileSelector(FALSE, what, extension, default_name, parent);
}
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: filedlg.cpp
	3	// Purpose: wxFileDialog
	4	// Author: Julian Smart
	5	// Modified by:
	6	// Created: 17/09/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) Julian Smart
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "filedlg.h"
	14	#endif
	15
	16	#ifdef __VMS
	17	#define XtDisplay XTDISPLAY
	18	#define XtParent XTPARENT
	19	#define XtWindow XTWINDOW
	20	#endif
	21
	22	#include "wx/defs.h"
	23	#include "wx/utils.h"
	24	#include "wx/dialog.h"
	25	#include "wx/filedlg.h"
	26	#include "wx/intl.h"
	27	#include "wx/app.h"
	28	#include "wx/settings.h"
	29
	30	#ifdef __VMS__
	31	#pragma message disable nosimpint
	32	#endif
	33	#include <Xm/Xm.h>
	34	#include <Xm/MwmUtil.h>
	35	#include <Xm/Label.h>
	36	#include <Xm/BulletinB.h>
	37	#include <Xm/Frame.h>
	38	#include <Xm/Text.h>
	39	#include <Xm/DialogS.h>
	40	#include <Xm/FileSB.h>
	41	#include <Xm/RowColumn.h>
	42	#include <Xm/LabelG.h>
	43	#ifdef __VMS__
	44	#pragma message enable nosimpint
	45	#endif
	46
	47	#include "wx/motif/private.h"
	48
	49	IMPLEMENT_CLASS(wxFileDialog, wxDialog)
	50
	51	#define DEFAULT_FILE_SELECTOR_SIZE 0
	52	// Let Motif defines the size of File
	53	// Selector Box (if 1), or fix it to
	54	// wxFSB_WIDTH x wxFSB_HEIGHT (if 0)
	55	#define wxFSB_WIDTH 600
	56	#define wxFSB_HEIGHT 500
	57
	58
	59	wxString wxFileSelector(const char *title,
	60	const char defaultDir, const char defaultFileName,
	61	const char defaultExtension, const char filter, int flags,
	62	wxWindow *parent, int x, int y)
	63	{
	64	// If there's a default extension specified but no filter, we create a suitable
	65	// filter.
	66
	67	wxString filter2("");
	68	if ( defaultExtension && !filter )
	69	filter2 = wxString("*.") + wxString(defaultExtension) ;
	70	else if ( filter )
	71	filter2 = filter;
	72
	73	wxString defaultDirString;
	74	if (defaultDir)
	75	defaultDirString = defaultDir;
	76	else
	77	defaultDirString = "";
	78
	79	wxString defaultFilenameString;
	80	if (defaultFileName)
	81	defaultFilenameString = defaultFileName;
	82	else
	83	defaultFilenameString = "";
	84
	85	wxFileDialog fileDialog(parent, title, defaultDirString, defaultFilenameString, filter2, flags, wxPoint(x, y));
	86
	87	if ( fileDialog.ShowModal() == wxID_OK )
	88	{
	89	return fileDialog.GetPath();
	90	}
	91	else
	92	return wxEmptyString;
	93	}
	94
	95	wxString wxFileSelectorEx(const char *title,
	96	const char *defaultDir,
	97	const char *defaultFileName,
	98	int* defaultFilterIndex,
	99	const char *filter,
	100	int flags,
	101	wxWindow* parent,
	102	int x,
	103	int y)
	104
	105	{
	106	wxFileDialog fileDialog(parent, title ? title : "", defaultDir ? defaultDir : "",
	107	defaultFileName ? defaultFileName : "", filter ? filter : "", flags, wxPoint(x, y));
	108
	109	if ( fileDialog.ShowModal() == wxID_OK )
	110	{
	111	*defaultFilterIndex = fileDialog.GetFilterIndex();
	112	return fileDialog.GetPath();
	113	}
	114	else
	115	return wxEmptyString;
	116	}
	117
	118	wxString wxFileDialog::m_fileSelectorAnswer = "";
	119	bool wxFileDialog::m_fileSelectorReturned = FALSE;
	120
	121	void wxFileSelCancel( Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data),
	122	XmFileSelectionBoxCallbackStruct *WXUNUSED(cbs) )
	123	{
	124	wxFileDialog::m_fileSelectorAnswer = "";
	125	wxFileDialog::m_fileSelectorReturned = TRUE;
	126	}
	127
	128	void wxFileSelOk(Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data), XmFileSelectionBoxCallbackStruct *cbs)
	129	{
	130	char *filename = NULL;
	131	if (!XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &filename)) {
	132	wxFileDialog::m_fileSelectorAnswer = "";
	133	wxFileDialog::m_fileSelectorReturned = TRUE;
	134	} else {
	135	if (filename) {
	136	wxFileDialog::m_fileSelectorAnswer = filename;
	137	XtFree(filename);
	138	}
	139	wxFileDialog::m_fileSelectorReturned = TRUE;
	140	}
	141	}
	142
	143	wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
	144	const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
	145	long style, const wxPoint& pos)
	146	{
	147	m_message = message;
	148	m_dialogStyle = style;
	149	m_parent = parent;
	150	m_path = "";
	151	m_fileName = defaultFileName;
	152	m_dir = defaultDir;
	153	m_wildCard = wildCard;
	154	m_filterIndex = 1;
	155	m_pos = pos;
	156	}
	157
	158	static void wxChangeListBoxColours(wxWindow* WXUNUSED(win), Widget widget)
	159	{
	160	wxWindow::DoChangeBackgroundColour((WXWidget) widget, *wxWHITE);
	161
	162	// Change colour of the scrolled areas of the listboxes
	163	Widget listParent = XtParent (widget);
	164	wxWindow::DoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, TRUE);
	165
	166	Widget hsb = (Widget) 0;
	167	Widget vsb = (Widget) 0;
	168	XtVaGetValues (listParent,
	169	XmNhorizontalScrollBar, &hsb,
	170	XmNverticalScrollBar, &vsb,
	171	NULL);
	172
	173	/* TODO: should scrollbars be affected? Should probably have separate
	174	* function to change them (by default, taken from wxSystemSettings)
	175	*/
	176	wxColour backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE);
	177	wxWindow::DoChangeBackgroundColour((WXWidget) hsb, backgroundColour, TRUE);
	178	wxWindow::DoChangeBackgroundColour((WXWidget) vsb, backgroundColour, TRUE);
	179
	180	if (hsb)
	181	XtVaSetValues (hsb,
	182	XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
	183	NULL);
	184	if (vsb)
	185	XtVaSetValues (vsb,
	186	XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
	187	NULL);
	188	}
	189
	190	int wxFileDialog::ShowModal()
	191	{
	192	wxBeginBusyCursor();
	193
	194	// static char fileBuf[512];
	195	Widget parentWidget = (Widget) 0;
	196	if (m_parent)
	197	{
	198	parentWidget = (Widget) m_parent->GetTopWidget();
	199	}
	200	else
	201	parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
	202	// prepare the arg list
	203	Arg args[10];
	204	int ac = 0;
	205
	206	wxComputeColours (XtDisplay(parentWidget), & m_backgroundColour,
	207	(wxColour*) NULL);
	208
	209	XtSetArg(args[ac], XmNbackground, g_itemColors[wxBACK_INDEX].pixel); ac++;
	210	XtSetArg(args[ac], XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel); ac++;
	211	XtSetArg(args[ac], XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel); ac++;
	212	XtSetArg(args[ac], XmNforeground, g_itemColors[wxFORE_INDEX].pixel); ac++;
	213
	214
	215	Widget fileSel = XmCreateFileSelectionDialog(parentWidget, "file_selector", args, ac);
	216	XtUnmanageChild(XmFileSelectionBoxGetChild(fileSel, XmDIALOG_HELP_BUTTON));
	217
	218	Widget filterWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_FILTER_TEXT);
	219	Widget selectionWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_TEXT);
	220	Widget dirListWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_DIR_LIST);
	221	Widget fileListWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_LIST);
	222
	223	// code using these vars disabled
	224	#if 0
	225	Widget okWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_OK_BUTTON);
	226	Widget applyWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_APPLY_BUTTON);
	227	Widget cancelWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_CANCEL_BUTTON);
	228	#endif
	229
	230
	231	Widget shell = XtParent(fileSel);
	232
	233	if (!m_message.IsNull())
	234	XtVaSetValues(shell, XmNtitle, (char) (const char) m_message, NULL);
	235
	236	wxString entirePath("");
	237
	238	if ((m_dir != "") && (m_fileName != ""))
	239	{
	240	entirePath = m_dir + wxString("/") + m_fileName;
	241	}
	242	else if ((m_dir != "") && (m_fileName == ""))
	243	{
	244	entirePath = m_dir + wxString("/");
	245	}
	246	else if ((m_dir == "") && (m_fileName != ""))
	247	{
	248	entirePath = m_fileName;
	249	}
	250
	251	if (entirePath != "")
	252	{
	253	XmTextSetString(selectionWidget, (char) (const char) entirePath);
	254	}
	255
	256	if (m_wildCard != "")
	257	{
	258	wxString filter("");
	259	if (m_dir != "")
	260	filter = m_dir + wxString("/") + m_wildCard;
	261	else
	262	filter = m_wildCard;
	263
	264	XmTextSetString(filterWidget, (char) (const char) filter);
	265	XmFileSelectionDoSearch(fileSel, NULL);
	266	}
	267
	268	// Suggested by Terry Gitnick, 16/9/97, because of change in Motif
	269	// file selector on Solaris 1.5.1.
	270	if ( m_dir != "" )
	271	{
	272	XmString thePath = XmStringCreateLtoR ((char) (const char) m_dir,
	273	XmSTRING_DEFAULT_CHARSET);
	274
	275	XtVaSetValues (fileSel,
	276	XmNdirectory, thePath,
	277	NULL);
	278
	279	XmStringFree(thePath);
	280	}
	281
	282	XtAddCallback(fileSel, XmNcancelCallback, (XtCallbackProc)wxFileSelCancel, (XtPointer)NULL);
	283	XtAddCallback(fileSel, XmNokCallback, (XtCallbackProc)wxFileSelOk, (XtPointer)NULL);
	284
	285	//#if XmVersion > 1000
	286	// I'm not sure about what you mean with XmVersion.
	287	// If this is for Motif1.1/Motif1.2, then check XmVersion>=1200
	288	// (Motif1.1.4 ==> XmVersion 1100 )
	289	// Nevertheless, I put here a #define, so anyone can choose in (I)makefile...
	290	//
	291	#if !DEFAULT_FILE_SELECTOR_SIZE
	292	int width = wxFSB_WIDTH;
	293	int height = wxFSB_HEIGHT;
	294	XtVaSetValues(fileSel,
	295	XmNwidth, width,
	296	XmNheight, height,
	297	XmNresizePolicy, XmRESIZE_NONE,
	298	NULL);
	299	#endif
	300	// DoChangeBackgroundColour((WXWidget) fileSel, m_backgroundColour);
	301	DoChangeBackgroundColour((WXWidget) filterWidget, *wxWHITE);
	302	DoChangeBackgroundColour((WXWidget) selectionWidget, *wxWHITE);
	303
	304	wxChangeListBoxColours(this, dirListWidget);
	305	wxChangeListBoxColours(this, fileListWidget);
	306
	307	XtManageChild(fileSel);
	308
	309	m_fileSelectorAnswer = "";
	310	m_fileSelectorReturned = FALSE;
	311
	312	wxEndBusyCursor();
	313
	314	XtAddGrab(XtParent(fileSel), TRUE, FALSE);
	315	XEvent event;
	316	while (!m_fileSelectorReturned)
	317	{
	318	XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
	319	}
	320	XtRemoveGrab(XtParent(fileSel));
	321
	322	XmUpdateDisplay((Widget) wxTheApp->GetTopLevelWidget()); // Experimental
	323
	324	// XtDestroyWidget(fileSel);
	325	XtUnmapWidget(XtParent(fileSel));
	326	XtDestroyWidget(XtParent(fileSel));
	327
	328	// Now process all events, because otherwise
	329	// this might remain on the screen
	330	XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE);
	331	while (XtAppPending((XtAppContext) wxTheApp->GetAppContext()))
	332	{
	333	XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()));
	334	XtAppNextEvent((XtAppContext) wxTheApp->GetAppContext(), &event);
	335	XtDispatchEvent(&event);
	336	}
	337
	338	m_path = m_fileSelectorAnswer;
	339	m_fileName = wxFileNameFromPath(m_fileSelectorAnswer);
	340	m_dir = wxPathOnly(m_path);
	341
	342	if (m_fileName == "")
	343	return wxID_CANCEL;
	344	else
	345	return wxID_OK;
	346	}
	347
	348	// Generic file load/save dialog
	349	static wxString
	350	wxDefaultFileSelector(bool load, const char what, const char extension, const char default_name, wxWindow parent)
	351	{
	352	char ext = (char )extension;
	353
	354	wxString prompt;
	355	wxString str;
	356	if (load)
	357	str = _("Load %s file");
	358	else
	359	str = _("Save %s file");
	360	prompt.Printf(str, what);
	361
	362	if (*ext == '.')
	363	ext++;
	364	wxString wild;
	365	wild.Printf("*.%s", ext);
	366
	367	return wxFileSelector (prompt, NULL, default_name, ext, wild, 0, parent);
	368	}
	369
	370	// Generic file load dialog
	371	wxString wxLoadFileSelector(const char what, const char extension, const char default_name, wxWindow parent)
	372	{
	373	return wxDefaultFileSelector(TRUE, what, extension, default_name, parent);
	374	}
	375
	376
	377	// Generic file save dialog
	378	wxString wxSaveFileSelector(const char what, const char extension, const char default_name, wxWindow parent)
	379	{
	380	return wxDefaultFileSelector(FALSE, what, extension, default_name, parent);
	381	}
	382
	383