- filter = m_wildCard;
-
- Widget filterWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_FILTER_TEXT);
- 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...
-//
+ 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.
+ //