- wxBeginBusyCursor();
-
- static char fileBuf[512];
- Widget parentWidget = (Widget) 0;
- if (m_parent)
- {
- parentWidget = (Widget) m_parent->GetTopWidget();
- }
- else
- parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
-
- Widget fileSel = XmCreateFileSelectionDialog(parentWidget, "file_selector", NULL, 0);
- XtUnmanageChild(XmFileSelectionBoxGetChild(fileSel, XmDIALOG_HELP_BUTTON));
-
- 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 != "")
- {
- Widget selectionWidget = XmFileSelectionBoxGetChild(fileSel, XmDIALOG_TEXT);
- XmTextSetString(selectionWidget, (char*) (const char*) entirePath);
- }
-
- if (m_wildCard != "")
- {
- wxString filter("");
- if (m_dir != "")
- filter = m_dir + wxString("/") + m_wildCard;
+ 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;
+
+ if (m_backgroundColour.IsOk())
+ {
+ wxComputeColours (dpy, & m_backgroundColour, 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.empty() )
+ XtVaSetValues(shell,
+ XmNtitle, (const char*)m_message.mb_str(),
+ 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, filter.char_str());
+ 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;
+ }