+ 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;