]> git.saurik.com Git - wxWidgets.git/blob - src/motif/filedlg.cpp
some more build fix for wxPen/wxBrush style changes
[wxWidgets.git] / src / motif / filedlg.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/motif/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 // For compilers that support precompilation, includes "wx.h".
13 #include "wx/wxprec.h"
14
15 #include "wx/filedlg.h"
16
17 #ifndef WX_PRECOMP
18 #include "wx/intl.h"
19 #include "wx/app.h"
20 #include "wx/utils.h"
21 #include "wx/settings.h"
22 #endif
23
24 #include "wx/tokenzr.h"
25 #include "wx/stockitem.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 IMPLEMENT_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
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
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
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
89 static wxString ParseWildCard( const wxString& wild )
90 {
91 #ifdef __WXDEBUG__
92 static const wxChar* msg =
93 _T("Motif file dialog does not understand this ")
94 _T("wildcard syntax");
95 #endif
96
97 wxArrayString wildDescriptions, wildFilters;
98 const size_t count = wxParseCommonDialogsFilter(wild,
99 wildDescriptions,
100 wildFilters);
101 wxCHECK_MSG( count, _T("*.*"), wxT("wxFileDialog: bad wildcard string") );
102 wxCHECK_MSG( count == 1, _T("*.*"), msg );
103
104 // check for *.txt;*.rtf
105 wxStringTokenizer tok2( wildFilters[0], _T(";") );
106 wxString wildcard = tok2.GetNextToken();
107
108 wxCHECK_MSG( tok2.CountTokens() <= 1, wildcard, msg );
109 return wildcard;
110 }
111
112 wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
113 const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
114 long style, const wxPoint& pos, const wxSize& sz, const wxString& name)
115 :wxFileDialogBase(parent, message, defaultDir, defaultFileName, wildCard, style, pos, sz, name)
116 {
117 m_filterIndex = 1;
118 }
119
120 static void wxChangeListBoxColours(wxWindow* WXUNUSED(win), Widget widget)
121 {
122 wxDoChangeBackgroundColour((WXWidget) widget, *wxWHITE);
123
124 // Change colour of the scrolled areas of the listboxes
125 Widget listParent = XtParent (widget);
126 #if 0
127 wxDoChangeBackgroundColour((WXWidget) listParent, *wxWHITE, true);
128 #endif
129
130 Widget hsb = (Widget) 0;
131 Widget vsb = (Widget) 0;
132 XtVaGetValues (listParent,
133 XmNhorizontalScrollBar, &hsb,
134 XmNverticalScrollBar, &vsb,
135 NULL);
136
137 /* TODO: should scrollbars be affected? Should probably have separate
138 * function to change them (by default, taken from wxSystemSettings)
139 */
140 wxColour backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
141 wxDoChangeBackgroundColour((WXWidget) hsb, backgroundColour, true);
142 wxDoChangeBackgroundColour((WXWidget) vsb, backgroundColour, true);
143
144 if (hsb)
145 XtVaSetValues (hsb,
146 XmNtroughColor, backgroundColour.AllocColour(XtDisplay(hsb)),
147 NULL);
148 if (vsb)
149 XtVaSetValues (vsb,
150 XmNtroughColor, backgroundColour.AllocColour(XtDisplay(vsb)),
151 NULL);
152 }
153
154 int wxFileDialog::ShowModal()
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.Ok())
170 {
171 wxComputeColours (dpy, & m_backgroundColour, (wxColour*) 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.IsNull())
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 }