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