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
/////////////////////////////////////////////////////////////////////////////

#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
#pragma implementation "filedlg.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

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

#include "wx/defs.h"
#include "wx/utils.h"
#include "wx/filedlg.h"
#include "wx/intl.h"
#include "wx/app.h"
#include "wx/settings.h"
#include "wx/tokenzr.h"
#include "wx/stockitem.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, wxFileDialogBase)

#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 wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
bool wxFileDialog::m_fileSelectorReturned = false;

static void wxFileSelClose(Widget WXUNUSED(w),
                           void* WXUNUSED(client_data),
                           XmAnyCallbackStruct *WXUNUSED(call_data))
{
    wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
    wxFileDialog::m_fileSelectorReturned = true;
}

void wxFileSelCancel( Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data),
                     XmFileSelectionBoxCallbackStruct *WXUNUSED(cbs) )
{
    wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
    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 = wxEmptyString;
        wxFileDialog::m_fileSelectorReturned = true;
    } else {
        if (filename) {
            wxFileDialog::m_fileSelectorAnswer = filename;
            XtFree(filename);
        }
        wxFileDialog::m_fileSelectorReturned = true;
    }
}

static wxString ParseWildCard( const wxString& wild )
{
#ifdef __WXDEBUG__
    static const wxChar* msg =
        _T("Motif file dialog does not understand this ")
        _T("wildcard syntax");
#endif

    wxArrayString wildDescriptions, wildFilters;
    const size_t count = wxParseCommonDialogsFilter(wild,
                                                    wildDescriptions,
                                                    wildFilters);
    wxCHECK_MSG( count, _T("*.*"), wxT("wxFileDialog: bad wildcard string") );
    wxCHECK_MSG( count == 1, _T("*.*"), msg );

    // check for *.txt;*.rtf
    wxStringTokenizer tok2( wildFilters[0], _T(";") );
    wxString wildcard = tok2.GetNextToken();

    wxCHECK_MSG( tok2.CountTokens() <= 1, wildcard, msg );
    return wildcard;
}

wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
                           const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
                           long style, const wxPoint& pos)
             :wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos)
{
    m_filterIndex = 1;
}

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

    // Change colour of the scrolled areas of the listboxes
    Widget listParent = XtParent (widget);
#if 0
    wxDoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, true);
#endif

    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::GetColour(wxSYS_COLOUR_3DFACE);
    wxDoChangeBackgroundColour((WXWidget) hsb, backgroundColour, true);
    wxDoChangeBackgroundColour((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
    Display* dpy = XtDisplay(parentWidget);
    Arg args[10];
    int ac = 0;

    wxComputeColours (dpy, & 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++;

    wxFont font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);

#if __WXMOTIF20__ && !__WXLESSTIF__
    XtSetArg(args[ac], XmNbuttonRenderTable, font.GetFontTypeC(dpy)); ac++;
    XtSetArg(args[ac], XmNlabelRenderTable, font.GetFontTypeC(dpy)); ac++;
    XtSetArg(args[ac], XmNtextRenderTable, font.GetFontTypeC(dpy)); ac++;
#else
    XtSetArg(args[ac], XmNbuttonFontList, font.GetFontTypeC(dpy)); ac++;
    XtSetArg(args[ac], XmNlabelFontList, font.GetFontTypeC(dpy)); ac++;
    XtSetArg(args[ac], XmNtextFontList, font.GetFontTypeC(dpy)); ac++;
#endif

    Widget fileSel = XmCreateFileSelectionDialog(parentWidget,
                                                 wxMOTIF_STR("file_selector"),
                                                 args, ac);
#define wxFSChild( name ) \
    XmFileSelectionBoxGetChild(fileSel, name)

    XtUnmanageChild(wxFSChild(XmDIALOG_HELP_BUTTON));

    Widget filterWidget = wxFSChild(XmDIALOG_FILTER_TEXT);
    Widget selectionWidget = wxFSChild(XmDIALOG_TEXT);
    Widget dirListWidget = wxFSChild(XmDIALOG_DIR_LIST);
    Widget fileListWidget = wxFSChild(XmDIALOG_LIST);

    // for changing labels
    Widget okWidget = wxFSChild(XmDIALOG_OK_BUTTON);
    Widget applyWidget = wxFSChild(XmDIALOG_APPLY_BUTTON);
    Widget cancelWidget = wxFSChild(XmDIALOG_CANCEL_BUTTON);
    Widget dirlistLabel = wxFSChild(XmDIALOG_DIR_LIST_LABEL);
    Widget filterLabel = wxFSChild(XmDIALOG_FILTER_LABEL);
    Widget listLabel = wxFSChild(XmDIALOG_LIST_LABEL);
    Widget selectionLabel = wxFSChild(XmDIALOG_SELECTION_LABEL);

#undef wxFSChild

    // change labels
    wxXmString btnOK( wxGetStockLabel( wxID_OK, false ) ),
               btnCancel( wxGetStockLabel( wxID_CANCEL, false ) ),
               btnFilter( _("Filter") ), lblFilter( _("Filter") ),
               lblDirectories( _("Directories") ),
               lblFiles( _("Files" ) ), lblSelection( _("Selection") );

    XtVaSetValues( okWidget, XmNlabelString, btnOK(), NULL );
    XtVaSetValues( applyWidget, XmNlabelString, btnFilter(), NULL );
    XtVaSetValues( cancelWidget, XmNlabelString, btnCancel(), NULL );
    XtVaSetValues( dirlistLabel, XmNlabelString, lblDirectories(), NULL );
    XtVaSetValues( filterLabel, XmNlabelString, lblFilter(), NULL );
    XtVaSetValues( listLabel, XmNlabelString, lblFiles(), NULL );
    XtVaSetValues( selectionLabel, XmNlabelString, lblSelection(), NULL );

    Widget shell = XtParent(fileSel);

    if (!m_message.IsNull())
        XtVaSetValues(shell,
                      XmNtitle, wxConstCast(m_message.c_str(), char),
                      NULL);

    if (!m_wildCard.empty())
    {
        // return something understandable by Motif
        wxString wildCard = ParseWildCard( m_wildCard );
        wxString filter;
        if (!m_dir.empty())
            filter = m_dir + wxString("/") + wildCard;
        else
            filter = wildCard;

        XmTextSetString(filterWidget, wxConstCast(filter.c_str(), char));
        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.empty() )
    {
        wxXmString thePath( m_dir );

        XtVaSetValues (fileSel,
            XmNdirectory, thePath(),
            NULL);
    }

    wxString entirePath;

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

    if (!entirePath.empty())
    {
        XmTextSetString(selectionWidget,
                        wxConstCast(entirePath.c_str(), char));
    }

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

    //#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
    wxDoChangeBackgroundColour((WXWidget) filterWidget, *wxWHITE);
    wxDoChangeBackgroundColour((WXWidget) selectionWidget, *wxWHITE);

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

    XtManageChild(fileSel);

    m_fileSelectorAnswer = wxEmptyString;
    m_fileSelectorReturned = false;

    wxEndBusyCursor();

    XtAddGrab(XtParent(fileSel), True, False);
    XtAppContext context = (XtAppContext) wxTheApp->GetAppContext();
    XEvent event;
    while (!m_fileSelectorReturned)
    {
        XtAppNextEvent(context, &event);
        XtDispatchEvent(&event);
    }
    XtRemoveGrab(XtParent(fileSel));

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

    // Now process all events, because otherwise
    // this might remain on the screen
    wxFlushEvents(XtDisplay(fileSel));

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

    if (m_fileName.empty())
        return wxID_CANCEL;
    else
        return wxID_OK;
}
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	#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
	13	#pragma implementation "filedlg.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx.h".
	17	#include "wx/wxprec.h"
	18
	19	#ifdef __VMS
	20	#define XtDisplay XTDISPLAY
	21	#define XtParent XTPARENT
	22	#define XtWindow XTWINDOW
	23	#endif
	24
	25	#include "wx/defs.h"
	26	#include "wx/utils.h"
	27	#include "wx/filedlg.h"
	28	#include "wx/intl.h"
	29	#include "wx/app.h"
	30	#include "wx/settings.h"
	31	#include "wx/tokenzr.h"
	32	#include "wx/stockitem.h"
	33
	34	#ifdef __VMS__
	35	#pragma message disable nosimpint
	36	#endif
	37	#include <Xm/Xm.h>
	38	#include <Xm/MwmUtil.h>
	39	#include <Xm/Label.h>
	40	#include <Xm/BulletinB.h>
	41	#include <Xm/Frame.h>
	42	#include <Xm/Text.h>
	43	#include <Xm/DialogS.h>
	44	#include <Xm/FileSB.h>
	45	#include <Xm/RowColumn.h>
	46	#include <Xm/LabelG.h>
	47	#ifdef __VMS__
	48	#pragma message enable nosimpint
	49	#endif
	50
	51	#include "wx/motif/private.h"
	52
	53	IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase)
	54
	55	#define DEFAULT_FILE_SELECTOR_SIZE 0
	56	// Let Motif defines the size of File
	57	// Selector Box (if 1), or fix it to
	58	// wxFSB_WIDTH x wxFSB_HEIGHT (if 0)
	59	#define wxFSB_WIDTH 600
	60	#define wxFSB_HEIGHT 500
	61
	62
	63	wxString wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
	64	bool wxFileDialog::m_fileSelectorReturned = false;
	65
	66	static void wxFileSelClose(Widget WXUNUSED(w),
	67	void* WXUNUSED(client_data),
	68	XmAnyCallbackStruct *WXUNUSED(call_data))
	69	{
	70	wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
	71	wxFileDialog::m_fileSelectorReturned = true;
	72	}
	73
	74	void wxFileSelCancel( Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data),
	75	XmFileSelectionBoxCallbackStruct *WXUNUSED(cbs) )
	76	{
	77	wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
	78	wxFileDialog::m_fileSelectorReturned = true;
	79	}
	80
	81	void wxFileSelOk(Widget WXUNUSED(fs), XtPointer WXUNUSED(client_data), XmFileSelectionBoxCallbackStruct *cbs)
	82	{
	83	char *filename = NULL;
	84	if (!XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &filename)) {
	85	wxFileDialog::m_fileSelectorAnswer = wxEmptyString;
	86	wxFileDialog::m_fileSelectorReturned = true;
	87	} else {
	88	if (filename) {
	89	wxFileDialog::m_fileSelectorAnswer = filename;
	90	XtFree(filename);
	91	}
	92	wxFileDialog::m_fileSelectorReturned = true;
	93	}
	94	}
	95
	96	static wxString ParseWildCard( const wxString& wild )
	97	{
	98	#ifdef __WXDEBUG__
	99	static const wxChar* msg =
	100	_T("Motif file dialog does not understand this ")
	101	_T("wildcard syntax");
	102	#endif
	103
	104	wxArrayString wildDescriptions, wildFilters;
	105	const size_t count = wxParseCommonDialogsFilter(wild,
	106	wildDescriptions,
	107	wildFilters);
	108	wxCHECK_MSG( count, _T("."), wxT("wxFileDialog: bad wildcard string") );
	109	wxCHECK_MSG( count == 1, _T("."), msg );
	110
	111	// check for .txt;.rtf
	112	wxStringTokenizer tok2( wildFilters[0], _T(";") );
	113	wxString wildcard = tok2.GetNextToken();
	114
	115	wxCHECK_MSG( tok2.CountTokens() <= 1, wildcard, msg );
	116	return wildcard;
	117	}
	118
	119	wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
	120	const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
	121	long style, const wxPoint& pos)
	122	:wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos)
	123	{
	124	m_filterIndex = 1;
	125	}
	126
	127	static void wxChangeListBoxColours(wxWindow* WXUNUSED(win), Widget widget)
	128	{
	129	wxDoChangeBackgroundColour((WXWidget) widget, *wxWHITE);
	130
	131	// Change colour of the scrolled areas of the listboxes
	132	Widget listParent = XtParent (widget);
	133	#if 0
	134	wxDoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, true);
	135	#endif
	136
	137	Widget hsb = (Widget) 0;
	138	Widget vsb = (Widget) 0;
	139	XtVaGetValues (listParent,
	140	XmNhorizontalScrollBar, &hsb,
	141	XmNverticalScrollBar, &vsb,
	142	NULL);
	143
	144	/* TODO: should scrollbars be affected? Should probably have separate
	145	* function to change them (by default, taken from wxSystemSettings)
	146	*/
	147	wxColour backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
	148	wxDoChangeBackgroundColour((WXWidget) hsb, backgroundColour, true);
	149	wxDoChangeBackgroundColour((WXWidget) vsb, backgroundColour, true);
	150
	151	if (hsb)
	152	XtVaSetValues (hsb,
	153	XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
	154	NULL);
	155	if (vsb)
	156	XtVaSetValues (vsb,
	157	XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
	158	NULL);
	159	}
	160
	161	int wxFileDialog::ShowModal()
	162	{
	163	wxBeginBusyCursor();
	164
	165	// static char fileBuf[512];
	166	Widget parentWidget = (Widget) 0;
	167	if (m_parent)
	168	parentWidget = (Widget) m_parent->GetTopWidget();
	169	else
	170	parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
	171	// prepare the arg list
	172	Display* dpy = XtDisplay(parentWidget);
	173	Arg args[10];
	174	int ac = 0;
	175
	176	wxComputeColours (dpy, & m_backgroundColour, (wxColour*) NULL);
	177
	178	XtSetArg(args[ac], XmNbackground, g_itemColors[wxBACK_INDEX].pixel); ac++;
	179	XtSetArg(args[ac], XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel); ac++;
	180	XtSetArg(args[ac], XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel); ac++;
	181	XtSetArg(args[ac], XmNforeground, g_itemColors[wxFORE_INDEX].pixel); ac++;
	182
	183	wxFont font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
	184
	185	#if __WXMOTIF20__ && !__WXLESSTIF__
	186	XtSetArg(args[ac], XmNbuttonRenderTable, font.GetFontTypeC(dpy)); ac++;
	187	XtSetArg(args[ac], XmNlabelRenderTable, font.GetFontTypeC(dpy)); ac++;
	188	XtSetArg(args[ac], XmNtextRenderTable, font.GetFontTypeC(dpy)); ac++;
	189	#else
	190	XtSetArg(args[ac], XmNbuttonFontList, font.GetFontTypeC(dpy)); ac++;
	191	XtSetArg(args[ac], XmNlabelFontList, font.GetFontTypeC(dpy)); ac++;
	192	XtSetArg(args[ac], XmNtextFontList, font.GetFontTypeC(dpy)); ac++;
	193	#endif
	194
	195	Widget fileSel = XmCreateFileSelectionDialog(parentWidget,
	196	wxMOTIF_STR("file_selector"),
	197	args, ac);
	198	#define wxFSChild( name ) \
	199	XmFileSelectionBoxGetChild(fileSel, name)
	200
	201	XtUnmanageChild(wxFSChild(XmDIALOG_HELP_BUTTON));
	202
	203	Widget filterWidget = wxFSChild(XmDIALOG_FILTER_TEXT);
	204	Widget selectionWidget = wxFSChild(XmDIALOG_TEXT);
	205	Widget dirListWidget = wxFSChild(XmDIALOG_DIR_LIST);
	206	Widget fileListWidget = wxFSChild(XmDIALOG_LIST);
	207
	208	// for changing labels
	209	Widget okWidget = wxFSChild(XmDIALOG_OK_BUTTON);
	210	Widget applyWidget = wxFSChild(XmDIALOG_APPLY_BUTTON);
	211	Widget cancelWidget = wxFSChild(XmDIALOG_CANCEL_BUTTON);
	212	Widget dirlistLabel = wxFSChild(XmDIALOG_DIR_LIST_LABEL);
	213	Widget filterLabel = wxFSChild(XmDIALOG_FILTER_LABEL);
	214	Widget listLabel = wxFSChild(XmDIALOG_LIST_LABEL);
	215	Widget selectionLabel = wxFSChild(XmDIALOG_SELECTION_LABEL);
	216
	217	#undef wxFSChild
	218
	219	// change labels
	220	wxXmString btnOK( wxGetStockLabel( wxID_OK, false ) ),
	221	btnCancel( wxGetStockLabel( wxID_CANCEL, false ) ),
	222	btnFilter( _("Filter") ), lblFilter( _("Filter") ),
	223	lblDirectories( _("Directories") ),
	224	lblFiles( _("Files" ) ), lblSelection( _("Selection") );
	225
	226	XtVaSetValues( okWidget, XmNlabelString, btnOK(), NULL );
	227	XtVaSetValues( applyWidget, XmNlabelString, btnFilter(), NULL );
	228	XtVaSetValues( cancelWidget, XmNlabelString, btnCancel(), NULL );
	229	XtVaSetValues( dirlistLabel, XmNlabelString, lblDirectories(), NULL );
	230	XtVaSetValues( filterLabel, XmNlabelString, lblFilter(), NULL );
	231	XtVaSetValues( listLabel, XmNlabelString, lblFiles(), NULL );
	232	XtVaSetValues( selectionLabel, XmNlabelString, lblSelection(), NULL );
	233
	234	Widget shell = XtParent(fileSel);
	235
	236	if (!m_message.IsNull())
	237	XtVaSetValues(shell,
	238	XmNtitle, wxConstCast(m_message.c_str(), char),
	239	NULL);
	240
	241	if (!m_wildCard.empty())
	242	{
	243	// return something understandable by Motif
	244	wxString wildCard = ParseWildCard( m_wildCard );
	245	wxString filter;
	246	if (!m_dir.empty())
	247	filter = m_dir + wxString("/") + wildCard;
	248	else
	249	filter = wildCard;
	250
	251	XmTextSetString(filterWidget, wxConstCast(filter.c_str(), char));
	252	XmFileSelectionDoSearch(fileSel, NULL);
	253	}
	254
	255	// Suggested by Terry Gitnick, 16/9/97, because of change in Motif
	256	// file selector on Solaris 1.5.1.
	257	if ( !m_dir.empty() )
	258	{
	259	wxXmString thePath( m_dir );
	260
	261	XtVaSetValues (fileSel,
	262	XmNdirectory, thePath(),
	263	NULL);
	264	}
	265
	266	wxString entirePath;
	267
	268	if (!m_dir.empty())
	269	{
	270	entirePath = m_dir + wxString("/") + m_fileName;
	271	}
	272	else
	273	{
	274	entirePath = m_fileName;
	275	}
	276
	277	if (!entirePath.empty())
	278	{
	279	XmTextSetString(selectionWidget,
	280	wxConstCast(entirePath.c_str(), char));
	281	}
	282
	283	XtAddCallback(fileSel, XmNcancelCallback,
	284	(XtCallbackProc)wxFileSelCancel, (XtPointer)NULL);
	285	XtAddCallback(fileSel, XmNokCallback,
	286	(XtCallbackProc)wxFileSelOk, (XtPointer)NULL);
	287	XtAddCallback(fileSel, XmNunmapCallback,
	288	(XtCallbackProc)wxFileSelClose, (XtPointer)this);
	289
	290	//#if XmVersion > 1000
	291	// I'm not sure about what you mean with XmVersion.
	292	// If this is for Motif1.1/Motif1.2, then check XmVersion>=1200
	293	// (Motif1.1.4 ==> XmVersion 1100 )
	294	// Nevertheless, I put here a #define, so anyone can choose in (I)makefile.
	295	//
	296	#if !DEFAULT_FILE_SELECTOR_SIZE
	297	int width = wxFSB_WIDTH;
	298	int height = wxFSB_HEIGHT;
	299	XtVaSetValues(fileSel,
	300	XmNwidth, width,
	301	XmNheight, height,
	302	XmNresizePolicy, XmRESIZE_NONE,
	303	NULL);
	304	#endif
	305	wxDoChangeBackgroundColour((WXWidget) filterWidget, *wxWHITE);
	306	wxDoChangeBackgroundColour((WXWidget) selectionWidget, *wxWHITE);
	307
	308	wxChangeListBoxColours(this, dirListWidget);
	309	wxChangeListBoxColours(this, fileListWidget);
	310
	311	XtManageChild(fileSel);
	312
	313	m_fileSelectorAnswer = wxEmptyString;
	314	m_fileSelectorReturned = false;
	315
	316	wxEndBusyCursor();
	317
	318	XtAddGrab(XtParent(fileSel), True, False);
	319	XtAppContext context = (XtAppContext) wxTheApp->GetAppContext();
	320	XEvent event;
	321	while (!m_fileSelectorReturned)
	322	{
	323	XtAppNextEvent(context, &event);
	324	XtDispatchEvent(&event);
	325	}
	326	XtRemoveGrab(XtParent(fileSel));
	327
	328	XtUnmapWidget(XtParent(fileSel));
	329	XtDestroyWidget(XtParent(fileSel));
	330
	331	// Now process all events, because otherwise
	332	// this might remain on the screen
	333	wxFlushEvents(XtDisplay(fileSel));
	334
	335	m_path = m_fileSelectorAnswer;
	336	m_fileName = wxFileNameFromPath(m_fileSelectorAnswer);
	337	m_dir = wxPathOnly(m_path);
	338
	339	if (m_fileName.empty())
	340	return wxID_CANCEL;
	341	else
	342	return wxID_OK;
	343	}